62 lines
1.5 KiB
ObjectPascal
62 lines
1.5 KiB
ObjectPascal
unit uDataModuleFicherosEDI;
|
|
|
|
interface
|
|
|
|
uses {vcl:} SysUtils, Classes, DB, DBClient,
|
|
{RemObjects:} uDAClientDataModule, uDADataTable, uDAScriptingProvider,
|
|
uDACDSDataTable, uDABINAdapter, uROServiceComponent, uRORemoteService,
|
|
uROClient, uROBinMessage, uROWinInetHttpChannel, uDataModuleBase,
|
|
schEDILogClient_Intf, uBizEDILog, uDARemoteDataAdapter, uDAInterfaces;
|
|
|
|
type
|
|
TdmFicherosEDI = class(TDAClientDataModule)
|
|
RORemoteService: TRORemoteService;
|
|
tbl_EDILog: TDACDSDataTable;
|
|
ds_EDILog: TDADataSource;
|
|
DARemoteDataAdapter: TDARemoteDataAdapter;
|
|
procedure DAClientDataModuleCreate(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
function GetItems : IBizEDILog;
|
|
end;
|
|
|
|
var
|
|
dmFicherosEDI: TdmFicherosEDI;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
|
|
uses
|
|
uDataTableUtils, Forms, Controls, cxControls;
|
|
|
|
procedure TdmFicherosEDI.DAClientDataModuleCreate(Sender: TObject);
|
|
begin
|
|
RORemoteService.Channel := dmBase.Channel;
|
|
RORemoteService.Message := dmBase.Message;
|
|
end;
|
|
|
|
function TdmFicherosEDI.GetItems: IBizEDILog;
|
|
var
|
|
dtLog: TDACDSDataTable;
|
|
begin
|
|
ShowHourglassCursor;
|
|
try
|
|
dtLog := TDACDSDataTable.Create(NIL);
|
|
CloneDataTable(tbl_EDILog, dtLog);
|
|
dtLog.BusinessRulesID := BIZ_EDILOG;
|
|
Result := (dtLog as IBizEDILog);
|
|
finally
|
|
HideHourglassCursor;
|
|
end;
|
|
end;
|
|
|
|
initialization
|
|
dmFicherosEDI := TdmFicherosEDI.Create(nil);
|
|
|
|
finalization
|
|
FreeAndNil(dmFicherosEDI);
|
|
|
|
end.
|