más y más modificaciones
Código Delphi
[-]procedure TFXPAF.DBNCodigoClienteChange(Sender: TObject);
begin
if FXPAF.Active then
begin
if DBNCodigoCliente.Text <> '' then
begin
ActQuery(IBQClientes, 'Select * from Clientes where Upper(CODIGO)=Upper(' + QuotedStr (DBNCodigoCliente.Text) + ')');
if not IBQDirecciones.isempty then ActQuery(IBQDirecciones,'SELECT * FROM DIRECCIONES WHERE (DIRECCIONES.MODULO = '+
QuotedStr ('CLIENTES')+') AND (DIRECCIONES.CODIGO = '+QuotedStr (DBNCodigoCliente.Text)+')');
end;
end;
end;
Código Delphi
[-]procedure TFXPAF.SbNuevoClick(Sender: TObject);
begin
PC.ActivePageIndex:=1;
DSPrincipal.DataSet.Insert;
NSESerie.Value:=1;
if DM.IBDCONFIUSARSERIEYEAR.Value='S' then
begin
NSESerie.Enabled:=False;
DBNSerie.Field.Value:=Copy(IntToStr(Ano(now)),3,4);
end else
begin
NSESerie.Enabled:=True;
DBNSerie.Field.Value:=DM.IBDCONFISERIE.AsString;
end;
NDBSENumeroProteccionDatos.Field.Value:=1;
DBNNumeroDocumento.Field.value:=VerNumeroDocumento(VarSTipoDocumento,DBNSerie.Text);
DSPrincipal.DataSet.FieldByName('PORCENTAJEFINANCIADO').Value:=0;
DSPrincipal.DataSet.FieldByName('TIPODOCUMENTO').Value:=VarSTipoDocumento;
Memo2.Lines.Clear;
DBNSerie.SetFocus;
end;