david
acd17b74cc
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@2 c93665c3-c93d-084d-9b98-7d5f4a9c3376
40 lines
812 B
ObjectPascal
40 lines
812 B
ObjectPascal
unit uDataModuleConfiguracion;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes, uROServiceComponent, uRORemoteService, uDADataTable,
|
|
uDABINAdapter, uROClient, uROBinMessage, uROWinInetHttpChannel;
|
|
|
|
const
|
|
SERVER_URL = 'http://localhost:8099/bin';
|
|
|
|
type
|
|
TdmConfiguracion = class(TDataModule)
|
|
ROChannel: TROWinInetHTTPChannel;
|
|
ROMessage: TROBinMessage;
|
|
DABINAdapter: TDABINAdapter;
|
|
RORemoteService: TRORemoteService;
|
|
public
|
|
function darValor(const CODIGO: String): Variant;
|
|
end;
|
|
|
|
var
|
|
dmConfiguracion: TdmConfiguracion;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
uses FactuGES_Intf, Variants;
|
|
|
|
|
|
{ TdmConfiguracion }
|
|
|
|
function TdmConfiguracion.darValor(const CODIGO: String): Variant;
|
|
begin
|
|
Result := (RORemoteService as IsrvConfiguracion).darValor(CODIGO);
|
|
end;
|
|
|
|
end.
|