104 lines
2.9 KiB
ObjectPascal
104 lines
2.9 KiB
ObjectPascal
unit uDataModuleFormasPago;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes, DB, uDAClientDataModule, uDADataTable, uDABINAdapter,
|
|
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
|
uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
|
|
uDADesigntimeCall,
|
|
uIDataModuleFormasPago, uBizFormasPago, uBizFormasPagoPlazos,
|
|
uDARemoteDataAdapter, uDADataStreamer, uDAInterfaces, uRODynamicRequest,
|
|
uDABin2DataStreamer, uDAMemDataTable;
|
|
|
|
type
|
|
TDataModuleFormasPago = class(TDAClientDataModule, IDataModuleFormasPago)
|
|
RORemoteService: TRORemoteService;
|
|
Bin2DataStreamer: TDABin2DataStreamer;
|
|
rda_FormasPago: TDARemoteDataAdapter;
|
|
tbl_FormasPago: TDAMemDataTable;
|
|
ds_FormasPago: TDADataSource;
|
|
tbl_FormasPagoPlazos: TDAMemDataTable;
|
|
ds_FormasPagoPlazos: TDADataSource;
|
|
procedure DAClientDataModuleCreate(Sender: TObject);
|
|
protected
|
|
function DarNombreGenerador(DataSetName: String): String; virtual;
|
|
function _GetPlazos: IBizFormaPagoPlazos;
|
|
public
|
|
function GetItems: IBizFormaPago;
|
|
function GetNextID(const DataSetName : String) : Integer;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
|
|
uses
|
|
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls,
|
|
schFormasPagoClient_Intf;
|
|
|
|
{ TdmAlmacens }
|
|
|
|
procedure TDataModuleFormasPago.DAClientDataModuleCreate(Sender: TObject);
|
|
begin
|
|
RORemoteService.Channel := dmConexion.Channel;
|
|
RORemoteService.Message := dmConexion.Message;
|
|
end;
|
|
|
|
function TDataModuleFormasPago.DarNombreGenerador(DataSetName: String): String;
|
|
begin
|
|
Result := '';
|
|
if DataSetName = nme_FormasPago then
|
|
Result := 'GEN_FORMAS_PAGO_ID'
|
|
else
|
|
if DataSetName = nme_FormasPagoPlazos then
|
|
Result := 'GEN_FORMAS_PAGO_PLAZOS_ID';
|
|
end;
|
|
|
|
function TDataModuleFormasPago.GetNextID(const DataSetName: String): Integer;
|
|
var
|
|
aGeneratorName : String;
|
|
begin
|
|
aGeneratorName := DarNombreGenerador(DataSetName);
|
|
Result := (RORemoteService as IsrvFormasPago).GetNextAutoInc(aGeneratorName)
|
|
end;
|
|
|
|
function TDataModuleFormasPago._GetPlazos: IBizFormaPagoPlazos;
|
|
var
|
|
APlazos : TDAMemDataTable;
|
|
begin
|
|
ShowHourglassCursor;
|
|
try
|
|
APlazos := CloneDataTable(tbl_FormasPagoPlazos);
|
|
with APlazos do
|
|
begin
|
|
BusinessRulesID := BIZ_CLIENT_FORMAPAGOPLAZOS;
|
|
DetailOptions := DetailOptions -
|
|
[dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
|
|
end;
|
|
Result := (APlazos as IBizFormaPagoPlazos);
|
|
finally
|
|
HideHourglassCursor;
|
|
end;
|
|
end;
|
|
|
|
function TDataModuleFormasPago.GetItems: IBizFormaPago;
|
|
var
|
|
AFormaPago : TDAMemDataTable;
|
|
begin
|
|
ShowHourglassCursor;
|
|
try
|
|
AFormaPago := CloneDataTable(tbl_FormasPago);
|
|
AFormaPago.BusinessRulesID := BIZ_CLIENT_FORMAPAGO;
|
|
with TBizFormaPago(AFormaPago.BusinessEventsObj) do
|
|
Plazos := _GetPlazos;
|
|
|
|
Result := (AFormaPago as IBizFormaPago);
|
|
finally
|
|
HideHourglassCursor;
|
|
end;
|
|
end;
|
|
|
|
|
|
end.
|