david
a501958189
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@268 c93665c3-c93d-084d-9b98-7d5f4a9c3376
49 lines
1.3 KiB
ObjectPascal
49 lines
1.3 KiB
ObjectPascal
unit uDataModuleImpresiones;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes, DB, uDAClientDataModule, uDADataTable, uDABINAdapter,
|
|
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
|
uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
|
|
uDADesigntimeCall;
|
|
|
|
type
|
|
TDataModuleImpresiones = class(TDAClientDataModule)
|
|
RORemoteService: TRORemoteService;
|
|
DABinAdapter: TDABINAdapter;
|
|
DADesigntimeCall1: TDADesigntimeCall;
|
|
LoginRemoteService: TRORemoteService;
|
|
ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
|
|
ROBinMessage1: TROBinMessage;
|
|
procedure DAClientDataModuleCreate(Sender: TObject);
|
|
public
|
|
function AnadirMarcaImpresion(const Tabla: String; IdsTabla: String): Boolean;
|
|
end;
|
|
|
|
var
|
|
dmImpresiones: TDataModuleImpresiones;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
|
|
uses
|
|
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces,
|
|
Dialogs;
|
|
|
|
{ TdmImpresiones }
|
|
|
|
function TDataModuleImpresiones.AnadirMarcaImpresion(const Tabla: String; IdsTabla: String): Boolean;
|
|
begin
|
|
Result := (RORemoteService as IsrvImpresiones).AnadirMarcaImpresion(Tabla, IdsTabla);
|
|
end;
|
|
|
|
procedure TDataModuleImpresiones.DAClientDataModuleCreate(Sender: TObject);
|
|
begin
|
|
RORemoteService.Channel := dmConexion.Channel;
|
|
RORemoteService.Message := dmConexion.Message;
|
|
end;
|
|
|
|
end.
|