david
ceacc28fe9
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@75 f33bb606-9f5c-448d-9c99-757f00063c96
49 lines
1.5 KiB
ObjectPascal
49 lines
1.5 KiB
ObjectPascal
unit uViewContactoDatosBancarios;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewBase, dxLayoutControl, cxControls, cxContainer, cxEdit,
|
|
cxTextEdit, cxDBEdit, DB, uDADataTable, uDAInterfaces, cxGraphics,
|
|
cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters;
|
|
|
|
type
|
|
IViewDatosBancarios = interface(IViewBase)
|
|
['{2C3C0C39-F0AE-4FC2-A198-91D901890801}']
|
|
end;
|
|
|
|
TfrViewClienteDatosBancarios = class(TfrViewBase, IViewDatosBancarios)
|
|
dxLayoutControl1Group_Root: TdxLayoutGroup;
|
|
dxLayoutControl1: TdxLayoutControl;
|
|
dxLayoutControl1Item1: TdxLayoutItem;
|
|
eEntidad: TcxDBTextEdit;
|
|
dxLayoutControl1Item2: TdxLayoutItem;
|
|
eSucursal: TcxDBTextEdit;
|
|
dxLayoutControl1Item3: TdxLayoutItem;
|
|
eCuenta: TcxDBTextEdit;
|
|
dxLayoutControl1Item4: TdxLayoutItem;
|
|
eDC: TcxDBTextEdit;
|
|
dxLayoutControl1Item5: TdxLayoutItem;
|
|
eTitular: TcxDBTextEdit;
|
|
dxLayoutControl1Group2: TdxLayoutGroup;
|
|
dxLayoutControl1Group3: TdxLayoutGroup;
|
|
dxLayoutControl1Group4: TdxLayoutGroup;
|
|
dxLayoutControl1Group1: TdxLayoutGroup;
|
|
dsDatosBancarios: TDADataSource;
|
|
procedure CalcularDC(Sender: TObject);
|
|
end;
|
|
|
|
implementation
|
|
{$R *.dfm}
|
|
|
|
uses
|
|
uValidacionUtils;
|
|
|
|
procedure TfrViewClienteDatosBancarios.CalcularDC(Sender: TObject);
|
|
begin
|
|
eDC.EditValue := DarDC(eEntidad.EditValue,eSucursal.EditValue,eCuenta.EditValue);
|
|
end;
|
|
|
|
end.
|