david
80b830fccc
git-svn-id: https://192.168.0.254/svn/Proyectos.Varela_PuntosVenta/trunk@111 1c943782-d109-9647-9548-93b3ac332352
1283 lines
43 KiB
ObjectPascal
1283 lines
43 KiB
ObjectPascal
unit VARELA_Intf;
|
|
|
|
{----------------------------------------------------------------------------}
|
|
{ This unit was automatically generated by the RemObjects SDK after reading }
|
|
{ the RODL file associated with this project . }
|
|
{ }
|
|
{ Do not modify this unit manually, or your changes will be lost when this }
|
|
{ unit is regenerated the next time you compile the project. }
|
|
{----------------------------------------------------------------------------}
|
|
|
|
{$I Remobjects.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
{vcl:} Classes, TypInfo,
|
|
{RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf,
|
|
{Used RODLs:} DataAbstract3_Intf, DataAbstract4_Intf;
|
|
|
|
const
|
|
{ Library ID }
|
|
LibraryUID = '{AD45905A-2C7F-4295-A913-3D4F93CE82CF}';
|
|
TargetNamespace = '';
|
|
|
|
{ Service Interface ID's }
|
|
IEDI_Inventary_IID : TGUID = '{079CAD81-712F-48D0-ACD9-3677BBB9B2AD}';
|
|
IEDI_Sales_IID : TGUID = '{A9A65D73-350D-4530-AF81-FF69845C6B61}';
|
|
IsrvLogin_IID : TGUID = '{6B132AE4-D45F-4AE8-8215-E95789358329}';
|
|
IsrvVentasTerminadas_IID : TGUID = '{755D5EC4-06FD-4C26-BCD1-5C8F112B18A1}';
|
|
IsrvInformes_IID : TGUID = '{78BEEBFF-E26F-48BB-82AF-F8D09A47E446}';
|
|
IsrvTransfereciaFicheros_IID : TGUID = '{2A7AFE06-0600-46ED-9B7A-C694A1191311}';
|
|
IsrvControles_IID : TGUID = '{A0C11144-A1B7-408D-BA07-63565D587662}';
|
|
IsrvVentasEnProceso_IID : TGUID = '{1ADA4BDF-C8B6-4CD7-910B-EDB44C10ABDB}';
|
|
IEDI_Log_IID : TGUID = '{F4EBB9F5-A0CC-4AF7-8B81-98ED00FA95B1}';
|
|
IsrvReferenciaGenerica_IID : TGUID = '{994518CC-96BD-4976-ABC6-9B421A4B65D3}';
|
|
IsrvRecepciones_IID : TGUID = '{02EB4B9C-155E-477C-AE2D-3E73B7846AB3}';
|
|
IsrvDevoluciones_IID : TGUID = '{87C31D12-C353-437F-A7A3-10882373AB54}';
|
|
IsrvTraspasos_IID : TGUID = '{47DA82A0-51AD-477A-85B3-CE9EEAAB29D6}';
|
|
IsrvStock_IID : TGUID = '{F617B727-5B8B-4645-BBB2-3D645AB31981}';
|
|
IsrvParametros_IID : TGUID = '{E5177628-952A-4217-80C0-36F59E423EC4}';
|
|
IsrvUsuarios_IID : TGUID = '{C73839FB-BEF4-4AC4-B711-97F54FFCEE68}';
|
|
ILogin_IID : TGUID = '{25F9BAED-ECB6-47B6-90B6-AD72743E8576}';
|
|
|
|
{ Event ID's }
|
|
|
|
type
|
|
{ Forward declarations }
|
|
IEDI_Inventary = interface;
|
|
IEDI_Sales = interface;
|
|
IsrvLogin = interface;
|
|
IsrvVentasTerminadas = interface;
|
|
IsrvInformes = interface;
|
|
IsrvTransfereciaFicheros = interface;
|
|
IsrvControles = interface;
|
|
IsrvVentasEnProceso = interface;
|
|
IEDI_Log = interface;
|
|
IsrvReferenciaGenerica = interface;
|
|
IsrvRecepciones = interface;
|
|
IsrvDevoluciones = interface;
|
|
IsrvTraspasos = interface;
|
|
IsrvStock = interface;
|
|
IsrvParametros = interface;
|
|
IsrvUsuarios = interface;
|
|
ILogin = interface;
|
|
|
|
|
|
TLoginInfo = class;
|
|
TRdxLoginInfo = class;
|
|
|
|
|
|
|
|
{ Enumerateds }
|
|
|
|
{ TLoginInfo }
|
|
TLoginInfo = class(TDALoginInfo)
|
|
private
|
|
fRoles: TDAStringArray;
|
|
function GetRoles: TDAStringArray;
|
|
public
|
|
procedure Assign(iSource: TPersistent); override;
|
|
procedure ReadComplex(ASerializer: TObject); override;
|
|
procedure WriteComplex(ASerializer: TObject); override;
|
|
published
|
|
property Roles:TDAStringArray read GetRoles write fRoles;
|
|
end;
|
|
|
|
{ TLoginInfoCollection }
|
|
TLoginInfoCollection = class(TDALoginInfoCollection)
|
|
protected
|
|
constructor Create(aItemClass: TCollectionItemClass); overload;
|
|
function GetItems(aIndex: integer): TLoginInfo;
|
|
procedure SetItems(aIndex: integer; const Value: TLoginInfo);
|
|
public
|
|
constructor Create; overload;
|
|
function Add: TLoginInfo; reintroduce;
|
|
property Items[Index: integer]:TLoginInfo read GetItems write SetItems; default;
|
|
end;
|
|
|
|
{ TRdxLoginInfo }
|
|
TRdxLoginInfo = class(TROComplexType)
|
|
private
|
|
fUserID: Integer;
|
|
fSessionID: String;
|
|
fUsuario: String;
|
|
fPerfiles: TDAStringArray;
|
|
function GetPerfiles: TDAStringArray;
|
|
public
|
|
procedure Assign(iSource: TPersistent); override;
|
|
procedure ReadComplex(ASerializer: TObject); override;
|
|
procedure WriteComplex(ASerializer: TObject); override;
|
|
published
|
|
property UserID:Integer read fUserID write fUserID;
|
|
property SessionID:String read fSessionID write fSessionID;
|
|
property Usuario:String read fUsuario write fUsuario;
|
|
property Perfiles:TDAStringArray read GetPerfiles write fPerfiles;
|
|
end;
|
|
|
|
{ TRdxLoginInfoCollection }
|
|
TRdxLoginInfoCollection = class(TROCollection)
|
|
protected
|
|
constructor Create(aItemClass: TCollectionItemClass); overload;
|
|
function GetItems(aIndex: integer): TRdxLoginInfo;
|
|
procedure SetItems(aIndex: integer; const Value: TRdxLoginInfo);
|
|
public
|
|
constructor Create; overload;
|
|
function Add: TRdxLoginInfo; reintroduce;
|
|
property Items[Index: integer]:TRdxLoginInfo read GetItems write SetItems; default;
|
|
end;
|
|
|
|
{ IEDI_Inventary }
|
|
IEDI_Inventary = interface(IDARemoteService)
|
|
['{079CAD81-712F-48D0-ACD9-3677BBB9B2AD}']
|
|
function CargarFicheroEDI(const FicheroCAB: String; const FicheroLIN: String; const FicheroCANT: String; out MsgError: String): Boolean;
|
|
end;
|
|
|
|
{ CoEDI_Inventary }
|
|
CoEDI_Inventary = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IEDI_Inventary;
|
|
end;
|
|
|
|
{ TEDI_Inventary_Proxy }
|
|
TEDI_Inventary_Proxy = class(TDARemoteService_Proxy, IEDI_Inventary)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
function CargarFicheroEDI(const FicheroCAB: String; const FicheroLIN: String; const FicheroCANT: String; out MsgError: String): Boolean;
|
|
end;
|
|
|
|
{ IEDI_Sales }
|
|
IEDI_Sales = interface(IDARemoteService)
|
|
['{A9A65D73-350D-4530-AF81-FF69845C6B61}']
|
|
function CargarFicheroEDI(const FicheroCAB: String; const FicheroLUG: String; const FicheroART: String; out MsgError: String): Boolean;
|
|
end;
|
|
|
|
{ CoEDI_Sales }
|
|
CoEDI_Sales = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IEDI_Sales;
|
|
end;
|
|
|
|
{ TEDI_Sales_Proxy }
|
|
TEDI_Sales_Proxy = class(TDARemoteService_Proxy, IEDI_Sales)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
function CargarFicheroEDI(const FicheroCAB: String; const FicheroLUG: String; const FicheroART: String; out MsgError: String): Boolean;
|
|
end;
|
|
|
|
{ IsrvLogin }
|
|
IsrvLogin = interface
|
|
['{6B132AE4-D45F-4AE8-8215-E95789358329}']
|
|
function Login(const UserID: String; const Password: String; out LoginInfo: TRdxLoginInfo): Boolean;
|
|
procedure Logout;
|
|
function Ping: Boolean;
|
|
end;
|
|
|
|
{ CosrvLogin }
|
|
CosrvLogin = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvLogin;
|
|
end;
|
|
|
|
{ TsrvLogin_Proxy }
|
|
TsrvLogin_Proxy = class(TROProxy, IsrvLogin)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
function Login(const UserID: String; const Password: String; out LoginInfo: TRdxLoginInfo): Boolean;
|
|
procedure Logout;
|
|
function Ping: Boolean;
|
|
end;
|
|
|
|
{ IsrvVentasTerminadas }
|
|
IsrvVentasTerminadas = interface(IDARemoteService)
|
|
['{755D5EC4-06FD-4C26-BCD1-5C8F112B18A1}']
|
|
function GetDataEx(const DatasetName: String; const Columns: String; const Params: String; const MaxRecords: Integer): Binary;
|
|
function GetSchema(const DatasetName: String; const Columns: String): Binary;
|
|
function GetDataCrossTab(const FechaIni: String; const FechaFin: String; const Coleccion: String): Binary;
|
|
function GetSchemaCrossTab(const FechaIni: String; const FechaFin: String; const Coleccion: String): Binary;
|
|
end;
|
|
|
|
{ CosrvVentasTerminadas }
|
|
CosrvVentasTerminadas = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvVentasTerminadas;
|
|
end;
|
|
|
|
{ TsrvVentasTerminadas_Proxy }
|
|
TsrvVentasTerminadas_Proxy = class(TDARemoteService_Proxy, IsrvVentasTerminadas)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
function GetDataEx(const DatasetName: String; const Columns: String; const Params: String; const MaxRecords: Integer): Binary;
|
|
function GetSchema(const DatasetName: String; const Columns: String): Binary;
|
|
function GetDataCrossTab(const FechaIni: String; const FechaFin: String; const Coleccion: String): Binary;
|
|
function GetSchemaCrossTab(const FechaIni: String; const FechaFin: String; const Coleccion: String): Binary;
|
|
end;
|
|
|
|
{ IsrvInformes }
|
|
IsrvInformes = interface(IDARemoteService)
|
|
['{78BEEBFF-E26F-48BB-82AF-F8D09A47E446}']
|
|
end;
|
|
|
|
{ CosrvInformes }
|
|
CosrvInformes = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvInformes;
|
|
end;
|
|
|
|
{ TsrvInformes_Proxy }
|
|
TsrvInformes_Proxy = class(TDARemoteService_Proxy, IsrvInformes)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
end;
|
|
|
|
{ IsrvTransfereciaFicheros }
|
|
IsrvTransfereciaFicheros = interface
|
|
['{2A7AFE06-0600-46ED-9B7A-C694A1191311}']
|
|
procedure UploadChunk(const IsFirst: Boolean; const Filename: String; const Filedata: Binary);
|
|
procedure UploadFinished(const Filename: String; const Filesize: Int64);
|
|
end;
|
|
|
|
{ CosrvTransfereciaFicheros }
|
|
CosrvTransfereciaFicheros = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvTransfereciaFicheros;
|
|
end;
|
|
|
|
{ TsrvTransfereciaFicheros_Proxy }
|
|
TsrvTransfereciaFicheros_Proxy = class(TROProxy, IsrvTransfereciaFicheros)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
procedure UploadChunk(const IsFirst: Boolean; const Filename: String; const Filedata: Binary);
|
|
procedure UploadFinished(const Filename: String; const Filesize: Int64);
|
|
end;
|
|
|
|
{ IsrvControles }
|
|
IsrvControles = interface(IDARemoteService)
|
|
['{A0C11144-A1B7-408D-BA07-63565D587662}']
|
|
end;
|
|
|
|
{ CosrvControles }
|
|
CosrvControles = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvControles;
|
|
end;
|
|
|
|
{ TsrvControles_Proxy }
|
|
TsrvControles_Proxy = class(TDARemoteService_Proxy, IsrvControles)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
end;
|
|
|
|
{ IsrvVentasEnProceso }
|
|
IsrvVentasEnProceso = interface(IDARemoteService)
|
|
['{1ADA4BDF-C8B6-4CD7-910B-EDB44C10ABDB}']
|
|
function GetData(const DatasetName: String; const Columns: String; const Params: String; const MaxRecords: Integer): Binary;
|
|
function GetSchema(const DatasetName: String; const Columns: String): Binary;
|
|
end;
|
|
|
|
{ CosrvVentasEnProceso }
|
|
CosrvVentasEnProceso = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvVentasEnProceso;
|
|
end;
|
|
|
|
{ TsrvVentasEnProceso_Proxy }
|
|
TsrvVentasEnProceso_Proxy = class(TDARemoteService_Proxy, IsrvVentasEnProceso)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
function GetData(const DatasetName: String; const Columns: String; const Params: String; const MaxRecords: Integer): Binary;
|
|
function GetSchema(const DatasetName: String; const Columns: String): Binary;
|
|
end;
|
|
|
|
{ IEDI_Log }
|
|
IEDI_Log = interface(IDARemoteService)
|
|
['{F4EBB9F5-A0CC-4AF7-8B81-98ED00FA95B1}']
|
|
procedure InsertarLog(const Fecha: DateTime; const Report: String; const OK: Boolean; const Error_msg: String);
|
|
end;
|
|
|
|
{ CoEDI_Log }
|
|
CoEDI_Log = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IEDI_Log;
|
|
end;
|
|
|
|
{ TEDI_Log_Proxy }
|
|
TEDI_Log_Proxy = class(TDARemoteService_Proxy, IEDI_Log)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
procedure InsertarLog(const Fecha: DateTime; const Report: String; const OK: Boolean; const Error_msg: String);
|
|
end;
|
|
|
|
{ IsrvReferenciaGenerica }
|
|
IsrvReferenciaGenerica = interface(IDataAbstractService)
|
|
['{994518CC-96BD-4976-ABC6-9B421A4B65D3}']
|
|
function GetProducto(const Codigo: String; const Talla: String; const Color: String; out CodigoBarras: String; out Descripcion: String): Boolean;
|
|
function GenerateReport(const Centro: String; const Vendedor: String; const Estado: String; const FiltroUsuario: String): Binary;
|
|
procedure PasarProductosAEspera(const Centro: String; const Vendedor: String);
|
|
end;
|
|
|
|
{ CosrvReferenciaGenerica }
|
|
CosrvReferenciaGenerica = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvReferenciaGenerica;
|
|
end;
|
|
|
|
{ TsrvReferenciaGenerica_Proxy }
|
|
TsrvReferenciaGenerica_Proxy = class(TDataAbstractService_Proxy, IsrvReferenciaGenerica)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
function GetProducto(const Codigo: String; const Talla: String; const Color: String; out CodigoBarras: String; out Descripcion: String): Boolean;
|
|
function GenerateReport(const Centro: String; const Vendedor: String; const Estado: String; const FiltroUsuario: String): Binary;
|
|
procedure PasarProductosAEspera(const Centro: String; const Vendedor: String);
|
|
end;
|
|
|
|
{ IsrvRecepciones }
|
|
IsrvRecepciones = interface(IDataAbstractService)
|
|
['{02EB4B9C-155E-477C-AE2D-3E73B7846AB3}']
|
|
end;
|
|
|
|
{ CosrvRecepciones }
|
|
CosrvRecepciones = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvRecepciones;
|
|
end;
|
|
|
|
{ TsrvRecepciones_Proxy }
|
|
TsrvRecepciones_Proxy = class(TDataAbstractService_Proxy, IsrvRecepciones)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
end;
|
|
|
|
{ IsrvDevoluciones }
|
|
IsrvDevoluciones = interface(IDataAbstractService)
|
|
['{87C31D12-C353-437F-A7A3-10882373AB54}']
|
|
end;
|
|
|
|
{ CosrvDevoluciones }
|
|
CosrvDevoluciones = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvDevoluciones;
|
|
end;
|
|
|
|
{ TsrvDevoluciones_Proxy }
|
|
TsrvDevoluciones_Proxy = class(TDataAbstractService_Proxy, IsrvDevoluciones)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
end;
|
|
|
|
{ IsrvTraspasos }
|
|
IsrvTraspasos = interface(IDataAbstractService)
|
|
['{47DA82A0-51AD-477A-85B3-CE9EEAAB29D6}']
|
|
end;
|
|
|
|
{ CosrvTraspasos }
|
|
CosrvTraspasos = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvTraspasos;
|
|
end;
|
|
|
|
{ TsrvTraspasos_Proxy }
|
|
TsrvTraspasos_Proxy = class(TDataAbstractService_Proxy, IsrvTraspasos)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
end;
|
|
|
|
{ IsrvStock }
|
|
IsrvStock = interface(IDARemoteService)
|
|
['{F617B727-5B8B-4645-BBB2-3D645AB31981}']
|
|
end;
|
|
|
|
{ CosrvStock }
|
|
CosrvStock = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvStock;
|
|
end;
|
|
|
|
{ TsrvStock_Proxy }
|
|
TsrvStock_Proxy = class(TDARemoteService_Proxy, IsrvStock)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
end;
|
|
|
|
{ IsrvParametros }
|
|
IsrvParametros = interface(IDARemoteService)
|
|
['{E5177628-952A-4217-80C0-36F59E423EC4}']
|
|
end;
|
|
|
|
{ CosrvParametros }
|
|
CosrvParametros = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvParametros;
|
|
end;
|
|
|
|
{ TsrvParametros_Proxy }
|
|
TsrvParametros_Proxy = class(TDARemoteService_Proxy, IsrvParametros)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
end;
|
|
|
|
{ IsrvUsuarios }
|
|
IsrvUsuarios = interface(IDataAbstractService)
|
|
['{C73839FB-BEF4-4AC4-B711-97F54FFCEE68}']
|
|
end;
|
|
|
|
{ CosrvUsuarios }
|
|
CosrvUsuarios = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvUsuarios;
|
|
end;
|
|
|
|
{ TsrvUsuarios_Proxy }
|
|
TsrvUsuarios_Proxy = class(TDataAbstractService_Proxy, IsrvUsuarios)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
end;
|
|
|
|
{ ILogin }
|
|
ILogin = interface(IDARemoteService)
|
|
['{25F9BAED-ECB6-47B6-90B6-AD72743E8576}']
|
|
procedure Login(const User: String; const Password: String; out LoginInfo: String);
|
|
end;
|
|
|
|
{ CoLogin }
|
|
CoLogin = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ILogin;
|
|
end;
|
|
|
|
{ TLogin_Proxy }
|
|
TLogin_Proxy = class(TDARemoteService_Proxy, ILogin)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
procedure Login(const User: String; const Password: String; out LoginInfo: String);
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
{vcl:} SysUtils,
|
|
{RemObjects:} uROEventRepository, uROSerializer, uRORes;
|
|
|
|
{ TLoginInfo }
|
|
|
|
procedure TLoginInfo.Assign(iSource: TPersistent);
|
|
var lSource: VARELA_Intf.TLoginInfo;
|
|
begin
|
|
inherited Assign(iSource);
|
|
if (iSource is VARELA_Intf.TLoginInfo) then begin
|
|
lSource := VARELA_Intf.TLoginInfo(iSource);
|
|
Roles.Assign(lSource.Roles);
|
|
end;
|
|
end;
|
|
|
|
function TLoginInfo.GetRoles: TDAStringArray;
|
|
begin
|
|
if (fRoles = nil) then fRoles := TDAStringArray.Create();
|
|
result := fRoles;
|
|
end;
|
|
|
|
procedure TLoginInfo.ReadComplex(ASerializer: TObject);
|
|
var
|
|
l_Attributes: TDAStringArray;
|
|
l_Data: Binary;
|
|
l_Privileges: TDAStringArray;
|
|
l_Roles: TDAStringArray;
|
|
l_SessionID: String;
|
|
l_UserID: String;
|
|
begin
|
|
if TROSerializer(ASerializer).RecordStrictOrder then begin
|
|
inherited;
|
|
l_Roles := Roles;
|
|
TROSerializer(ASerializer).ReadArray('Roles', TDAStringArray, l_Roles);
|
|
if Roles <> l_Roles then Roles.Free;
|
|
Roles := l_Roles;
|
|
end
|
|
else begin
|
|
l_Attributes := Attributes;
|
|
TROSerializer(ASerializer).ReadArray('Attributes', TDAStringArray, l_Attributes);
|
|
if Attributes <> l_Attributes then Attributes.Free;
|
|
Attributes := l_Attributes;
|
|
l_Data := Data;
|
|
TROSerializer(ASerializer).ReadBinary('Data', l_Data);
|
|
if Data <> l_Data then Data.Free;
|
|
Data := l_Data;
|
|
l_Privileges := Privileges;
|
|
TROSerializer(ASerializer).ReadArray('Privileges', TDAStringArray, l_Privileges);
|
|
if Privileges <> l_Privileges then Privileges.Free;
|
|
Privileges := l_Privileges;
|
|
l_Roles := Roles;
|
|
TROSerializer(ASerializer).ReadArray('Roles', TDAStringArray, l_Roles);
|
|
if Roles <> l_Roles then Roles.Free;
|
|
Roles := l_Roles;
|
|
l_SessionID := SessionID;
|
|
TROSerializer(ASerializer).ReadUTF8String('SessionID', l_SessionID);
|
|
SessionID := l_SessionID;
|
|
l_UserID := UserID;
|
|
TROSerializer(ASerializer).ReadUTF8String('UserID', l_UserID);
|
|
UserID := l_UserID;
|
|
end;
|
|
end;
|
|
|
|
procedure TLoginInfo.WriteComplex(ASerializer: TObject);
|
|
var
|
|
l_Attributes: TDAStringArray;
|
|
l_Data: Binary;
|
|
l_Privileges: TDAStringArray;
|
|
l_Roles: TDAStringArray;
|
|
l_SessionID: String;
|
|
l_UserID: String;
|
|
begin
|
|
if TROSerializer(ASerializer).RecordStrictOrder then begin
|
|
inherited;
|
|
TROSerializer(ASerializer).ChangeClass(TLoginInfo);
|
|
l_Roles := Roles;
|
|
TROSerializer(ASerializer).WriteArray('Roles', l_Roles, TDAStringArray);
|
|
end
|
|
else begin
|
|
l_Attributes := Attributes;
|
|
TROSerializer(ASerializer).WriteArray('Attributes', l_Attributes, TDAStringArray);
|
|
l_Data := Data;
|
|
TROSerializer(ASerializer).WriteBinary('Data', l_Data);
|
|
l_Privileges := Privileges;
|
|
TROSerializer(ASerializer).WriteArray('Privileges', l_Privileges, TDAStringArray);
|
|
l_Roles := Roles;
|
|
TROSerializer(ASerializer).WriteArray('Roles', l_Roles, TDAStringArray);
|
|
l_SessionID := SessionID;
|
|
TROSerializer(ASerializer).WriteUTF8String('SessionID', l_SessionID);
|
|
l_UserID := UserID;
|
|
TROSerializer(ASerializer).WriteUTF8String('UserID', l_UserID);
|
|
end;
|
|
end;
|
|
|
|
{ TLoginInfoCollection }
|
|
constructor TLoginInfoCollection.Create;
|
|
begin
|
|
inherited Create(TLoginInfo);
|
|
end;
|
|
|
|
constructor TLoginInfoCollection.Create(aItemClass: TCollectionItemClass);
|
|
begin
|
|
inherited Create(aItemClass);
|
|
end;
|
|
|
|
function TLoginInfoCollection.Add: TLoginInfo;
|
|
begin
|
|
result := TLoginInfo(inherited Add);
|
|
end;
|
|
|
|
function TLoginInfoCollection.GetItems(aIndex: integer): TLoginInfo;
|
|
begin
|
|
result := TLoginInfo(inherited Items[aIndex]);
|
|
end;
|
|
|
|
procedure TLoginInfoCollection.SetItems(aIndex: integer; const Value: TLoginInfo);
|
|
begin
|
|
TLoginInfo(inherited Items[aIndex]).Assign(Value);
|
|
end;
|
|
|
|
{ TRdxLoginInfo }
|
|
|
|
procedure TRdxLoginInfo.Assign(iSource: TPersistent);
|
|
var lSource: VARELA_Intf.TRdxLoginInfo;
|
|
begin
|
|
inherited Assign(iSource);
|
|
if (iSource is VARELA_Intf.TRdxLoginInfo) then begin
|
|
lSource := VARELA_Intf.TRdxLoginInfo(iSource);
|
|
UserID := lSource.UserID;
|
|
SessionID := lSource.SessionID;
|
|
Usuario := lSource.Usuario;
|
|
Perfiles.Assign(lSource.Perfiles);
|
|
end;
|
|
end;
|
|
|
|
function TRdxLoginInfo.GetPerfiles: TDAStringArray;
|
|
begin
|
|
if (fPerfiles = nil) then fPerfiles := TDAStringArray.Create();
|
|
result := fPerfiles;
|
|
end;
|
|
|
|
procedure TRdxLoginInfo.ReadComplex(ASerializer: TObject);
|
|
var
|
|
l_Perfiles: TDAStringArray;
|
|
l_SessionID: String;
|
|
l_UserID: Integer;
|
|
l_Usuario: String;
|
|
begin
|
|
if TROSerializer(ASerializer).RecordStrictOrder then begin
|
|
l_UserID := UserID;
|
|
TROSerializer(ASerializer).ReadInteger('UserID', otSLong, l_UserID);
|
|
UserID := l_UserID;
|
|
l_SessionID := SessionID;
|
|
TROSerializer(ASerializer).ReadUTF8String('SessionID', l_SessionID);
|
|
SessionID := l_SessionID;
|
|
l_Usuario := Usuario;
|
|
TROSerializer(ASerializer).ReadUTF8String('Usuario', l_Usuario);
|
|
Usuario := l_Usuario;
|
|
l_Perfiles := Perfiles;
|
|
TROSerializer(ASerializer).ReadArray('Perfiles', TDAStringArray, l_Perfiles);
|
|
if Perfiles <> l_Perfiles then Perfiles.Free;
|
|
Perfiles := l_Perfiles;
|
|
end
|
|
else begin
|
|
l_Perfiles := Perfiles;
|
|
TROSerializer(ASerializer).ReadArray('Perfiles', TDAStringArray, l_Perfiles);
|
|
if Perfiles <> l_Perfiles then Perfiles.Free;
|
|
Perfiles := l_Perfiles;
|
|
l_SessionID := SessionID;
|
|
TROSerializer(ASerializer).ReadUTF8String('SessionID', l_SessionID);
|
|
SessionID := l_SessionID;
|
|
l_UserID := UserID;
|
|
TROSerializer(ASerializer).ReadInteger('UserID', otSLong, l_UserID);
|
|
UserID := l_UserID;
|
|
l_Usuario := Usuario;
|
|
TROSerializer(ASerializer).ReadUTF8String('Usuario', l_Usuario);
|
|
Usuario := l_Usuario;
|
|
end;
|
|
end;
|
|
|
|
procedure TRdxLoginInfo.WriteComplex(ASerializer: TObject);
|
|
var
|
|
l_Perfiles: TDAStringArray;
|
|
l_SessionID: String;
|
|
l_UserID: Integer;
|
|
l_Usuario: String;
|
|
begin
|
|
if TROSerializer(ASerializer).RecordStrictOrder then begin
|
|
TROSerializer(ASerializer).ChangeClass(TRdxLoginInfo);
|
|
l_UserID := UserID;
|
|
TROSerializer(ASerializer).WriteInteger('UserID', otSLong, l_UserID);
|
|
l_SessionID := SessionID;
|
|
TROSerializer(ASerializer).WriteUTF8String('SessionID', l_SessionID);
|
|
l_Usuario := Usuario;
|
|
TROSerializer(ASerializer).WriteUTF8String('Usuario', l_Usuario);
|
|
l_Perfiles := Perfiles;
|
|
TROSerializer(ASerializer).WriteArray('Perfiles', l_Perfiles, TDAStringArray);
|
|
end
|
|
else begin
|
|
l_Perfiles := Perfiles;
|
|
TROSerializer(ASerializer).WriteArray('Perfiles', l_Perfiles, TDAStringArray);
|
|
l_SessionID := SessionID;
|
|
TROSerializer(ASerializer).WriteUTF8String('SessionID', l_SessionID);
|
|
l_UserID := UserID;
|
|
TROSerializer(ASerializer).WriteInteger('UserID', otSLong, l_UserID);
|
|
l_Usuario := Usuario;
|
|
TROSerializer(ASerializer).WriteUTF8String('Usuario', l_Usuario);
|
|
end;
|
|
end;
|
|
|
|
{ TRdxLoginInfoCollection }
|
|
constructor TRdxLoginInfoCollection.Create;
|
|
begin
|
|
inherited Create(TRdxLoginInfo);
|
|
end;
|
|
|
|
constructor TRdxLoginInfoCollection.Create(aItemClass: TCollectionItemClass);
|
|
begin
|
|
inherited Create(aItemClass);
|
|
end;
|
|
|
|
function TRdxLoginInfoCollection.Add: TRdxLoginInfo;
|
|
begin
|
|
result := TRdxLoginInfo(inherited Add);
|
|
end;
|
|
|
|
function TRdxLoginInfoCollection.GetItems(aIndex: integer): TRdxLoginInfo;
|
|
begin
|
|
result := TRdxLoginInfo(inherited Items[aIndex]);
|
|
end;
|
|
|
|
procedure TRdxLoginInfoCollection.SetItems(aIndex: integer; const Value: TRdxLoginInfo);
|
|
begin
|
|
TRdxLoginInfo(inherited Items[aIndex]).Assign(Value);
|
|
end;
|
|
|
|
{ CoEDI_Inventary }
|
|
|
|
class function CoEDI_Inventary.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IEDI_Inventary;
|
|
begin
|
|
result := TEDI_Inventary_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
{ TEDI_Inventary_Proxy }
|
|
|
|
function TEDI_Inventary_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'EDI_Inventary';
|
|
end;
|
|
|
|
function TEDI_Inventary_Proxy.CargarFicheroEDI(const FicheroCAB: String; const FicheroLIN: String; const FicheroCANT: String; out MsgError: String): Boolean;
|
|
begin
|
|
try
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'CargarFicheroEDI');
|
|
__Message.Write('FicheroCAB', TypeInfo(String), FicheroCAB, []);
|
|
__Message.Write('FicheroLIN', TypeInfo(String), FicheroLIN, []);
|
|
__Message.Write('FicheroCANT', TypeInfo(String), FicheroCANT, []);
|
|
__Message.Finalize;
|
|
|
|
__TransportChannel.Dispatch(__Message);
|
|
|
|
__Message.Read('Result', TypeInfo(Boolean), result, []);
|
|
__Message.Read('MsgError', TypeInfo(String), MsgError, []);
|
|
finally
|
|
__Message.UnsetAttributes(__TransportChannel);
|
|
__Message.FreeStream;
|
|
end
|
|
end;
|
|
|
|
{ CoEDI_Sales }
|
|
|
|
class function CoEDI_Sales.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IEDI_Sales;
|
|
begin
|
|
result := TEDI_Sales_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
{ TEDI_Sales_Proxy }
|
|
|
|
function TEDI_Sales_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'EDI_Sales';
|
|
end;
|
|
|
|
function TEDI_Sales_Proxy.CargarFicheroEDI(const FicheroCAB: String; const FicheroLUG: String; const FicheroART: String; out MsgError: String): Boolean;
|
|
begin
|
|
try
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'CargarFicheroEDI');
|
|
__Message.Write('FicheroCAB', TypeInfo(String), FicheroCAB, []);
|
|
__Message.Write('FicheroLUG', TypeInfo(String), FicheroLUG, []);
|
|
__Message.Write('FicheroART', TypeInfo(String), FicheroART, []);
|
|
__Message.Finalize;
|
|
|
|
__TransportChannel.Dispatch(__Message);
|
|
|
|
__Message.Read('Result', TypeInfo(Boolean), result, []);
|
|
__Message.Read('MsgError', TypeInfo(String), MsgError, []);
|
|
finally
|
|
__Message.UnsetAttributes(__TransportChannel);
|
|
__Message.FreeStream;
|
|
end
|
|
end;
|
|
|
|
{ CosrvLogin }
|
|
|
|
class function CosrvLogin.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvLogin;
|
|
begin
|
|
result := TsrvLogin_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
{ TsrvLogin_Proxy }
|
|
|
|
function TsrvLogin_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvLogin';
|
|
end;
|
|
|
|
function TsrvLogin_Proxy.Login(const UserID: String; const Password: String; out LoginInfo: TRdxLoginInfo): Boolean;
|
|
begin
|
|
try
|
|
LoginInfo := nil;
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'Login');
|
|
__Message.Write('UserID', TypeInfo(String), UserID, []);
|
|
__Message.Write('Password', TypeInfo(String), Password, []);
|
|
__Message.Finalize;
|
|
|
|
__TransportChannel.Dispatch(__Message);
|
|
|
|
__Message.Read('Result', TypeInfo(Boolean), result, []);
|
|
__Message.Read('LoginInfo', TypeInfo(VARELA_Intf.TRdxLoginInfo), LoginInfo, []);
|
|
finally
|
|
__Message.UnsetAttributes(__TransportChannel);
|
|
__Message.FreeStream;
|
|
end
|
|
end;
|
|
|
|
procedure TsrvLogin_Proxy.Logout;
|
|
begin
|
|
try
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'Logout');
|
|
__Message.Finalize;
|
|
|
|
__TransportChannel.Dispatch(__Message);
|
|
|
|
finally
|
|
__Message.FreeStream;
|
|
end
|
|
end;
|
|
|
|
function TsrvLogin_Proxy.Ping: Boolean;
|
|
begin
|
|
try
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'Ping');
|
|
__Message.Finalize;
|
|
|
|
__TransportChannel.Dispatch(__Message);
|
|
|
|
__Message.Read('Result', TypeInfo(Boolean), result, []);
|
|
finally
|
|
__Message.UnsetAttributes(__TransportChannel);
|
|
__Message.FreeStream;
|
|
end
|
|
end;
|
|
|
|
{ CosrvVentasTerminadas }
|
|
|
|
class function CosrvVentasTerminadas.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvVentasTerminadas;
|
|
begin
|
|
result := TsrvVentasTerminadas_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
{ TsrvVentasTerminadas_Proxy }
|
|
|
|
function TsrvVentasTerminadas_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvVentasTerminadas';
|
|
end;
|
|
|
|
function TsrvVentasTerminadas_Proxy.GetDataEx(const DatasetName: String; const Columns: String; const Params: String; const MaxRecords: Integer): Binary;
|
|
begin
|
|
try
|
|
result := nil;
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'GetDataEx');
|
|
__Message.Write('DatasetName', TypeInfo(String), DatasetName, []);
|
|
__Message.Write('Columns', TypeInfo(String), Columns, []);
|
|
__Message.Write('Params', TypeInfo(String), Params, []);
|
|
__Message.Write('MaxRecords', TypeInfo(Integer), MaxRecords, []);
|
|
__Message.Finalize;
|
|
|
|
__TransportChannel.Dispatch(__Message);
|
|
|
|
__Message.Read('Result', TypeInfo(Binary), result, []);
|
|
finally
|
|
__Message.UnsetAttributes(__TransportChannel);
|
|
__Message.FreeStream;
|
|
end
|
|
end;
|
|
|
|
function TsrvVentasTerminadas_Proxy.GetSchema(const DatasetName: String; const Columns: String): Binary;
|
|
begin
|
|
try
|
|
result := nil;
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'GetSchema');
|
|
__Message.Write('DatasetName', TypeInfo(String), DatasetName, []);
|
|
__Message.Write('Columns', TypeInfo(String), Columns, []);
|
|
__Message.Finalize;
|
|
|
|
__TransportChannel.Dispatch(__Message);
|
|
|
|
__Message.Read('Result', TypeInfo(Binary), result, []);
|
|
finally
|
|
__Message.UnsetAttributes(__TransportChannel);
|
|
__Message.FreeStream;
|
|
end
|
|
end;
|
|
|
|
function TsrvVentasTerminadas_Proxy.GetDataCrossTab(const FechaIni: String; const FechaFin: String; const Coleccion: String): Binary;
|
|
begin
|
|
try
|
|
result := nil;
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'GetDataCrossTab');
|
|
__Message.Write('FechaIni', TypeInfo(String), FechaIni, []);
|
|
__Message.Write('FechaFin', TypeInfo(String), FechaFin, []);
|
|
__Message.Write('Coleccion', TypeInfo(String), Coleccion, []);
|
|
__Message.Finalize;
|
|
|
|
__TransportChannel.Dispatch(__Message);
|
|
|
|
__Message.Read('Result', TypeInfo(Binary), result, []);
|
|
finally
|
|
__Message.UnsetAttributes(__TransportChannel);
|
|
__Message.FreeStream;
|
|
end
|
|
end;
|
|
|
|
function TsrvVentasTerminadas_Proxy.GetSchemaCrossTab(const FechaIni: String; const FechaFin: String; const Coleccion: String): Binary;
|
|
begin
|
|
try
|
|
result := nil;
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'GetSchemaCrossTab');
|
|
__Message.Write('FechaIni', TypeInfo(String), FechaIni, []);
|
|
__Message.Write('FechaFin', TypeInfo(String), FechaFin, []);
|
|
__Message.Write('Coleccion', TypeInfo(String), Coleccion, []);
|
|
__Message.Finalize;
|
|
|
|
__TransportChannel.Dispatch(__Message);
|
|
|
|
__Message.Read('Result', TypeInfo(Binary), result, []);
|
|
finally
|
|
__Message.UnsetAttributes(__TransportChannel);
|
|
__Message.FreeStream;
|
|
end
|
|
end;
|
|
|
|
{ CosrvInformes }
|
|
|
|
class function CosrvInformes.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvInformes;
|
|
begin
|
|
result := TsrvInformes_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
function TsrvInformes_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvInformes';
|
|
end;
|
|
|
|
{ CosrvTransfereciaFicheros }
|
|
|
|
class function CosrvTransfereciaFicheros.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvTransfereciaFicheros;
|
|
begin
|
|
result := TsrvTransfereciaFicheros_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
{ TsrvTransfereciaFicheros_Proxy }
|
|
|
|
function TsrvTransfereciaFicheros_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvTransfereciaFicheros';
|
|
end;
|
|
|
|
procedure TsrvTransfereciaFicheros_Proxy.UploadChunk(const IsFirst: Boolean; const Filename: String; const Filedata: Binary);
|
|
begin
|
|
try
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'UploadChunk');
|
|
__Message.Write('IsFirst', TypeInfo(Boolean), IsFirst, []);
|
|
__Message.Write('Filename', TypeInfo(String), Filename, []);
|
|
__Message.Write('Filedata', TypeInfo(Binary), Filedata, []);
|
|
__Message.Finalize;
|
|
|
|
__TransportChannel.Dispatch(__Message);
|
|
|
|
finally
|
|
__Message.UnsetAttributes(__TransportChannel);
|
|
__Message.FreeStream;
|
|
end
|
|
end;
|
|
|
|
procedure TsrvTransfereciaFicheros_Proxy.UploadFinished(const Filename: String; const Filesize: Int64);
|
|
begin
|
|
try
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'UploadFinished');
|
|
__Message.Write('Filename', TypeInfo(String), Filename, []);
|
|
__Message.Write('Filesize', TypeInfo(Int64), Filesize, []);
|
|
__Message.Finalize;
|
|
|
|
__TransportChannel.Dispatch(__Message);
|
|
|
|
finally
|
|
__Message.UnsetAttributes(__TransportChannel);
|
|
__Message.FreeStream;
|
|
end
|
|
end;
|
|
|
|
{ CosrvControles }
|
|
|
|
class function CosrvControles.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvControles;
|
|
begin
|
|
result := TsrvControles_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
function TsrvControles_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvControles';
|
|
end;
|
|
|
|
{ CosrvVentasEnProceso }
|
|
|
|
class function CosrvVentasEnProceso.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvVentasEnProceso;
|
|
begin
|
|
result := TsrvVentasEnProceso_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
{ TsrvVentasEnProceso_Proxy }
|
|
|
|
function TsrvVentasEnProceso_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvVentasEnProceso';
|
|
end;
|
|
|
|
function TsrvVentasEnProceso_Proxy.GetData(const DatasetName: String; const Columns: String; const Params: String; const MaxRecords: Integer): Binary;
|
|
begin
|
|
try
|
|
result := nil;
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'GetData');
|
|
__Message.Write('DatasetName', TypeInfo(String), DatasetName, []);
|
|
__Message.Write('Columns', TypeInfo(String), Columns, []);
|
|
__Message.Write('Params', TypeInfo(String), Params, []);
|
|
__Message.Write('MaxRecords', TypeInfo(Integer), MaxRecords, []);
|
|
__Message.Finalize;
|
|
|
|
__TransportChannel.Dispatch(__Message);
|
|
|
|
__Message.Read('Result', TypeInfo(Binary), result, []);
|
|
finally
|
|
__Message.UnsetAttributes(__TransportChannel);
|
|
__Message.FreeStream;
|
|
end
|
|
end;
|
|
|
|
function TsrvVentasEnProceso_Proxy.GetSchema(const DatasetName: String; const Columns: String): Binary;
|
|
begin
|
|
try
|
|
result := nil;
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'GetSchema');
|
|
__Message.Write('DatasetName', TypeInfo(String), DatasetName, []);
|
|
__Message.Write('Columns', TypeInfo(String), Columns, []);
|
|
__Message.Finalize;
|
|
|
|
__TransportChannel.Dispatch(__Message);
|
|
|
|
__Message.Read('Result', TypeInfo(Binary), result, []);
|
|
finally
|
|
__Message.UnsetAttributes(__TransportChannel);
|
|
__Message.FreeStream;
|
|
end
|
|
end;
|
|
|
|
{ CoEDI_Log }
|
|
|
|
class function CoEDI_Log.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IEDI_Log;
|
|
begin
|
|
result := TEDI_Log_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
{ TEDI_Log_Proxy }
|
|
|
|
function TEDI_Log_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'EDI_Log';
|
|
end;
|
|
|
|
procedure TEDI_Log_Proxy.InsertarLog(const Fecha: DateTime; const Report: String; const OK: Boolean; const Error_msg: String);
|
|
begin
|
|
try
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'InsertarLog');
|
|
__Message.Write('Fecha', TypeInfo(DateTime), Fecha, [paIsDateTime]);
|
|
__Message.Write('Report', TypeInfo(String), Report, []);
|
|
__Message.Write('OK', TypeInfo(Boolean), OK, []);
|
|
__Message.Write('Error_msg', TypeInfo(String), Error_msg, []);
|
|
__Message.Finalize;
|
|
|
|
__TransportChannel.Dispatch(__Message);
|
|
|
|
finally
|
|
__Message.UnsetAttributes(__TransportChannel);
|
|
__Message.FreeStream;
|
|
end
|
|
end;
|
|
|
|
{ CosrvReferenciaGenerica }
|
|
|
|
class function CosrvReferenciaGenerica.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvReferenciaGenerica;
|
|
begin
|
|
result := TsrvReferenciaGenerica_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
{ TsrvReferenciaGenerica_Proxy }
|
|
|
|
function TsrvReferenciaGenerica_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvReferenciaGenerica';
|
|
end;
|
|
|
|
function TsrvReferenciaGenerica_Proxy.GetProducto(const Codigo: String; const Talla: String; const Color: String; out CodigoBarras: String; out Descripcion: String): Boolean;
|
|
begin
|
|
try
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'GetProducto');
|
|
__Message.Write('Codigo', TypeInfo(String), Codigo, []);
|
|
__Message.Write('Talla', TypeInfo(String), Talla, []);
|
|
__Message.Write('Color', TypeInfo(String), Color, []);
|
|
__Message.Finalize;
|
|
|
|
__TransportChannel.Dispatch(__Message);
|
|
|
|
__Message.Read('Result', TypeInfo(Boolean), result, []);
|
|
__Message.Read('CodigoBarras', TypeInfo(String), CodigoBarras, []);
|
|
__Message.Read('Descripcion', TypeInfo(String), Descripcion, []);
|
|
finally
|
|
__Message.UnsetAttributes(__TransportChannel);
|
|
__Message.FreeStream;
|
|
end
|
|
end;
|
|
|
|
function TsrvReferenciaGenerica_Proxy.GenerateReport(const Centro: String; const Vendedor: String; const Estado: String; const FiltroUsuario: String): Binary;
|
|
begin
|
|
try
|
|
result := nil;
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'GenerateReport');
|
|
__Message.Write('Centro', TypeInfo(String), Centro, []);
|
|
__Message.Write('Vendedor', TypeInfo(String), Vendedor, []);
|
|
__Message.Write('Estado', TypeInfo(String), Estado, []);
|
|
__Message.Write('FiltroUsuario', TypeInfo(String), FiltroUsuario, []);
|
|
__Message.Finalize;
|
|
|
|
__TransportChannel.Dispatch(__Message);
|
|
|
|
__Message.Read('Result', TypeInfo(Binary), result, []);
|
|
finally
|
|
__Message.UnsetAttributes(__TransportChannel);
|
|
__Message.FreeStream;
|
|
end
|
|
end;
|
|
|
|
procedure TsrvReferenciaGenerica_Proxy.PasarProductosAEspera(const Centro: String; const Vendedor: String);
|
|
begin
|
|
try
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'PasarProductosAEspera');
|
|
__Message.Write('Centro', TypeInfo(String), Centro, []);
|
|
__Message.Write('Vendedor', TypeInfo(String), Vendedor, []);
|
|
__Message.Finalize;
|
|
|
|
__TransportChannel.Dispatch(__Message);
|
|
|
|
finally
|
|
__Message.UnsetAttributes(__TransportChannel);
|
|
__Message.FreeStream;
|
|
end
|
|
end;
|
|
|
|
{ CosrvRecepciones }
|
|
|
|
class function CosrvRecepciones.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvRecepciones;
|
|
begin
|
|
result := TsrvRecepciones_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
function TsrvRecepciones_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvRecepciones';
|
|
end;
|
|
|
|
{ CosrvDevoluciones }
|
|
|
|
class function CosrvDevoluciones.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvDevoluciones;
|
|
begin
|
|
result := TsrvDevoluciones_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
function TsrvDevoluciones_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvDevoluciones';
|
|
end;
|
|
|
|
{ CosrvTraspasos }
|
|
|
|
class function CosrvTraspasos.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvTraspasos;
|
|
begin
|
|
result := TsrvTraspasos_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
function TsrvTraspasos_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvTraspasos';
|
|
end;
|
|
|
|
{ CosrvStock }
|
|
|
|
class function CosrvStock.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvStock;
|
|
begin
|
|
result := TsrvStock_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
function TsrvStock_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvStock';
|
|
end;
|
|
|
|
{ CosrvParametros }
|
|
|
|
class function CosrvParametros.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvParametros;
|
|
begin
|
|
result := TsrvParametros_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
function TsrvParametros_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvParametros';
|
|
end;
|
|
|
|
{ CosrvUsuarios }
|
|
|
|
class function CosrvUsuarios.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvUsuarios;
|
|
begin
|
|
result := TsrvUsuarios_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
function TsrvUsuarios_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvUsuarios';
|
|
end;
|
|
|
|
{ CoLogin }
|
|
|
|
class function CoLogin.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ILogin;
|
|
begin
|
|
result := TLogin_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
{ TLogin_Proxy }
|
|
|
|
function TLogin_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'Login';
|
|
end;
|
|
|
|
procedure TLogin_Proxy.Login(const User: String; const Password: String; out LoginInfo: String);
|
|
begin
|
|
try
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'Login');
|
|
__Message.Write('User', TypeInfo(String), User, []);
|
|
__Message.Write('Password', TypeInfo(String), Password, []);
|
|
__Message.Finalize;
|
|
|
|
__TransportChannel.Dispatch(__Message);
|
|
|
|
__Message.Read('LoginInfo', TypeInfo(String), LoginInfo, []);
|
|
finally
|
|
__Message.UnsetAttributes(__TransportChannel);
|
|
__Message.FreeStream;
|
|
end
|
|
end;
|
|
|
|
initialization
|
|
RegisterROClass(TLoginInfo);
|
|
RegisterROClass(TRdxLoginInfo);
|
|
RegisterProxyClass(IEDI_Inventary_IID, TEDI_Inventary_Proxy);
|
|
RegisterProxyClass(IEDI_Sales_IID, TEDI_Sales_Proxy);
|
|
RegisterProxyClass(IsrvLogin_IID, TsrvLogin_Proxy);
|
|
RegisterProxyClass(IsrvVentasTerminadas_IID, TsrvVentasTerminadas_Proxy);
|
|
RegisterProxyClass(IsrvInformes_IID, TsrvInformes_Proxy);
|
|
RegisterProxyClass(IsrvTransfereciaFicheros_IID, TsrvTransfereciaFicheros_Proxy);
|
|
RegisterProxyClass(IsrvControles_IID, TsrvControles_Proxy);
|
|
RegisterProxyClass(IsrvVentasEnProceso_IID, TsrvVentasEnProceso_Proxy);
|
|
RegisterProxyClass(IEDI_Log_IID, TEDI_Log_Proxy);
|
|
RegisterProxyClass(IsrvReferenciaGenerica_IID, TsrvReferenciaGenerica_Proxy);
|
|
RegisterProxyClass(IsrvRecepciones_IID, TsrvRecepciones_Proxy);
|
|
RegisterProxyClass(IsrvDevoluciones_IID, TsrvDevoluciones_Proxy);
|
|
RegisterProxyClass(IsrvTraspasos_IID, TsrvTraspasos_Proxy);
|
|
RegisterProxyClass(IsrvStock_IID, TsrvStock_Proxy);
|
|
RegisterProxyClass(IsrvParametros_IID, TsrvParametros_Proxy);
|
|
RegisterProxyClass(IsrvUsuarios_IID, TsrvUsuarios_Proxy);
|
|
RegisterProxyClass(ILogin_IID, TLogin_Proxy);
|
|
|
|
|
|
finalization
|
|
UnregisterROClass(TLoginInfo);
|
|
UnregisterROClass(TRdxLoginInfo);
|
|
UnregisterProxyClass(IEDI_Inventary_IID);
|
|
UnregisterProxyClass(IEDI_Sales_IID);
|
|
UnregisterProxyClass(IsrvLogin_IID);
|
|
UnregisterProxyClass(IsrvVentasTerminadas_IID);
|
|
UnregisterProxyClass(IsrvInformes_IID);
|
|
UnregisterProxyClass(IsrvTransfereciaFicheros_IID);
|
|
UnregisterProxyClass(IsrvControles_IID);
|
|
UnregisterProxyClass(IsrvVentasEnProceso_IID);
|
|
UnregisterProxyClass(IEDI_Log_IID);
|
|
UnregisterProxyClass(IsrvReferenciaGenerica_IID);
|
|
UnregisterProxyClass(IsrvRecepciones_IID);
|
|
UnregisterProxyClass(IsrvDevoluciones_IID);
|
|
UnregisterProxyClass(IsrvTraspasos_IID);
|
|
UnregisterProxyClass(IsrvStock_IID);
|
|
UnregisterProxyClass(IsrvParametros_IID);
|
|
UnregisterProxyClass(IsrvUsuarios_IID);
|
|
UnregisterProxyClass(ILogin_IID);
|
|
|
|
end.
|