david
44fa0b0199
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@83 f33bb606-9f5c-448d-9c99-757f00063c96
103 lines
3.0 KiB
ObjectPascal
103 lines
3.0 KiB
ObjectPascal
unit uEditorDatoBancario;
|
|
|
|
interface
|
|
|
|
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
|
|
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDAInterfaces, uDADataTable,
|
|
uBizContactosDatosBancarios, uIEditorDatoBancarioContacto, uDMBase,
|
|
uDatosBancariosContactoController, cxGraphics, cxControls, cxLookAndFeels,
|
|
cxLookAndFeelPainters, cxContainer, cxEdit, dxLayoutcxEditAdapters,
|
|
dxLayoutControl, cxTextEdit, cxDBEdit;
|
|
|
|
type
|
|
TfEditorDatoBancario = class(TForm, IEditorDatoBancarioContacto)
|
|
CancelBtn: TButton;
|
|
dsDatosBancarios: TDADataSource;
|
|
dxLayoutControl1: TdxLayoutControl;
|
|
eEntidad: TcxDBTextEdit;
|
|
eSucursal: TcxDBTextEdit;
|
|
eCuenta: TcxDBTextEdit;
|
|
eDC: TcxDBTextEdit;
|
|
eTitular: TcxDBTextEdit;
|
|
dxLayoutGroup1: TdxLayoutGroup;
|
|
dxLayoutControl1Group3: TdxLayoutGroup;
|
|
dxLayoutControl1Item5: TdxLayoutItem;
|
|
dxLayoutControl1Group2: TdxLayoutGroup;
|
|
dxLayoutGroup2: TdxLayoutGroup;
|
|
dxLayoutItem1: TdxLayoutItem;
|
|
dxLayoutControl1Item2: TdxLayoutItem;
|
|
dxLayoutControl1Group4: TdxLayoutGroup;
|
|
dxLayoutControl1Item4: TdxLayoutItem;
|
|
dxLayoutControl1Item3: TdxLayoutItem;
|
|
OKBtn: TButton;
|
|
procedure CalcularDC(Sender: TObject);
|
|
protected
|
|
FController : IDatosBancariosContactoController;
|
|
FDatosBanco : IBizContactosDatosBancarios;
|
|
|
|
function GetController : IDatosBancariosContactoController;
|
|
procedure SetController (const Value : IDatosBancariosContactoController);
|
|
function GetDatoBancario: IBizContactosDatosBancarios;
|
|
procedure SetDatoBancario(const Value: IBizContactosDatosBancarios);
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
property Controller : IDatosBancariosContactoController read GetController
|
|
write SetController;
|
|
property DatoBancario: IBizContactosDatosBancarios read GetDatoBancario write SetDatoBancario;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Variants, uValidacionUtils;
|
|
|
|
{$R *.dfm}
|
|
|
|
{ TfEditorDireccion }
|
|
|
|
procedure TfEditorDatoBancario.CalcularDC(Sender: TObject);
|
|
begin
|
|
eDC.EditValue := DarDC(eEntidad.EditValue,eSucursal.EditValue,eCuenta.EditValue);
|
|
end;
|
|
|
|
constructor TfEditorDatoBancario.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FController := NIL;
|
|
end;
|
|
|
|
destructor TfEditorDatoBancario.Destroy;
|
|
begin
|
|
FController := NIL;
|
|
inherited;
|
|
end;
|
|
|
|
function TfEditorDatoBancario.GetController: IDatosBancariosContactoController;
|
|
begin
|
|
Result := FController;
|
|
end;
|
|
|
|
function TfEditorDatoBancario.GetDatoBancario: IBizContactosDatosBancarios;
|
|
begin
|
|
Result := FDatosBanco;
|
|
end;
|
|
|
|
procedure TfEditorDatoBancario.SetController(
|
|
const Value: IDatosBancariosContactoController);
|
|
begin
|
|
FController := Value;
|
|
end;
|
|
|
|
procedure TfEditorDatoBancario.SetDatoBancario(
|
|
const Value: IBizContactosDatosBancarios);
|
|
begin
|
|
FDatosBanco := Value;
|
|
if Assigned(FDatosBanco) then
|
|
dsDatosBancarios.DataTable := FDatosBanco.DataTable
|
|
else
|
|
dsDatosBancarios.DataTable := NIL;
|
|
end;
|
|
|
|
end.
|