roberto
f891f12f87
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@61 0c75b7a4-871f-7646-8a2f-f78d34cc349f
42 lines
914 B
ObjectPascal
42 lines
914 B
ObjectPascal
unit uFormasPagoPlazosController;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
|
|
uBizFormasPago, uBizFormasPagoPlazos, uIDataModuleFormasPago;
|
|
type
|
|
IFormasPagoPlazosController = interface
|
|
['{3FCE2A31-9783-45F9-96D6-1157165AB8DB}']
|
|
end;
|
|
|
|
TFormasPagoPlazosController = class(TInterfacedObject, IFormasPagoPlazosController)
|
|
private
|
|
FDataModule : IDataModuleFormasPago;
|
|
public
|
|
constructor Create; virtual;
|
|
destructor Destroy; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TFormasPagoPlazosController }
|
|
|
|
uses
|
|
uEditorRegistryUtils, uDataModuleFormasPago,
|
|
cxControls, schFormasPagoClient_Intf;
|
|
|
|
constructor TFormasPagoPlazosController.Create;
|
|
begin
|
|
inherited;
|
|
FDataModule := TDataModuleFormasPago.Create(Nil);
|
|
end;
|
|
|
|
destructor TFormasPagoPlazosController.Destroy;
|
|
begin
|
|
FDataModule := Nil;
|
|
inherited;
|
|
end;
|
|
|
|
end.
|