72 lines
1.7 KiB
ObjectPascal
72 lines
1.7 KiB
ObjectPascal
unit uDatosBancariosEmpresaController;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
|
|
uBizEmpresas, uBizEmpresasDatosBancarios, uIDataModuleEmpresas;
|
|
|
|
type
|
|
IDatosBancariosEmpresaController = interface
|
|
['{E9B0313E-7B16-420A-B47E-20E42E96BAC6}']
|
|
procedure Ver(ADatosBancarios : IBizEmpresasDatosBancarios);
|
|
end;
|
|
|
|
TDatosBancariosEmpresaController = class(TInterfacedObject, IDatosBancariosEmpresaController)
|
|
private
|
|
FDataModule : IDataModuleEmpresas;
|
|
public
|
|
procedure Ver(ADatosBancarios : IBizEmpresasDatosBancarios);
|
|
constructor Create; virtual;
|
|
destructor Destroy; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TDatosBancariosEmpresaController }
|
|
|
|
uses
|
|
uDataModuleEmpresas, schEmpresasClient_Intf, uIEditorDatosBancarioEmpresa,
|
|
uEditorRegistryUtils, cxControls;
|
|
|
|
constructor TDatosBancariosEmpresaController.Create;
|
|
begin
|
|
inherited;
|
|
FDataModule := TDataModuleEmpresas.Create(Nil);
|
|
end;
|
|
|
|
destructor TDatosBancariosEmpresaController.Destroy;
|
|
begin
|
|
FDataModule := Nil;
|
|
inherited;
|
|
end;
|
|
|
|
procedure TDatosBancariosEmpresaController.Ver(
|
|
ADatosBancarios : IBizEmpresasDatosBancarios);
|
|
var
|
|
AEditor : IEditorDatosBancariosEmpresa;
|
|
begin
|
|
AEditor := NIL;
|
|
ShowHourglassCursor;
|
|
try
|
|
CreateEditor('EditorDatosBancariosEmpresa', IEditorDatosBancariosEmpresa, AEditor);
|
|
with AEditor do
|
|
begin
|
|
DatosBancarios := ADatosBancarios;
|
|
Controller := Self;
|
|
end;
|
|
finally
|
|
HideHourglassCursor;
|
|
end;
|
|
|
|
if Assigned(AEditor) then
|
|
try
|
|
AEditor.ShowModal;
|
|
AEditor.Release;
|
|
finally
|
|
AEditor := NIL;
|
|
end;
|
|
end;
|
|
|
|
end.
|