roberto
8679a9bc04
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
48 lines
1.2 KiB
ObjectPascal
48 lines
1.2 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
|
|
try
|
|
AEditor.DatosBancarios := ADatosBancarios;
|
|
AEditor.Controller := Self;
|
|
AEditor.ShowModal;
|
|
finally
|
|
AEditor.Release;
|
|
AEditor := NIL;
|
|
end;
|
|
end;
|
|
|
|
end.
|