david
abaebda04d
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@324 f4e31baf-9722-1c47-927c-6f952f962d4b
51 lines
1.3 KiB
ObjectPascal
51 lines
1.3 KiB
ObjectPascal
unit uDatosBancariosEmpresaController;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
|
|
uBizEmpresas, uBizEmpresasDatosBancarios, uIDataModuleEmpresas,
|
|
uControllerBase;
|
|
|
|
type
|
|
IDatosBancariosEmpresaController = interface(IControllerBase)
|
|
['{E9B0313E-7B16-420A-B47E-20E42E96BAC6}']
|
|
procedure Ver(ADatosBancarios : IBizEmpresasDatosBancarios);
|
|
end;
|
|
|
|
TDatosBancariosEmpresaController = class(TControllerBase, IDatosBancariosEmpresaController)
|
|
public
|
|
procedure Ver(ADatosBancarios : IBizEmpresasDatosBancarios);
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TDatosBancariosEmpresaController }
|
|
|
|
uses
|
|
uDataModuleEmpresas, schEmpresasClient_Intf, uIEditorDatosBancarioEmpresa,
|
|
uEditorRegistryUtils, cxControls;
|
|
|
|
procedure TDatosBancariosEmpresaController.Ver(ADatosBancarios : IBizEmpresasDatosBancarios);
|
|
var
|
|
AEditor : IEditorDatosBancariosEmpresa;
|
|
begin
|
|
AEditor := NIL;
|
|
|
|
CreateEditor('EditorDatosBancariosEmpresa', IEditorDatosBancariosEmpresa, AEditor);
|
|
if Assigned(AEditor) then
|
|
with AEditor do
|
|
begin
|
|
try
|
|
DatosBancarios := ADatosBancarios;
|
|
Controller := Self;
|
|
ShowModal;
|
|
finally
|
|
Release;
|
|
AEditor := NIL;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
end.
|