david
32153cd070
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@5 9a1d36f3-7752-2d40-8ccb-50eb49674c68
1960 lines
60 KiB
ObjectPascal
1960 lines
60 KiB
ObjectPascal
unit FactuGES_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. }
|
|
{----------------------------------------------------------------------------}
|
|
|
|
interface
|
|
|
|
uses
|
|
{vcl:} Classes, TypInfo,
|
|
{RemObjects:} uROClasses, uROClient, uROTypes, uROClientIntf,
|
|
{Used RODLs:} DataAbstract_Intf;
|
|
|
|
const
|
|
{ Library ID }
|
|
LibraryUID = '{AF0811AD-706A-47DE-A1DA-2891A7C80E01}';
|
|
|
|
{ Service Interface ID's }
|
|
IsrvContactos_IID : TGUID = '{2502C3BD-1DD5-435B-832A-208767D5D55A}';
|
|
IsrvLogin_IID : TGUID = '{6B132AE4-D45F-4AE8-8215-E95789358329}';
|
|
IsrvPresupuestos_IID : TGUID = '{B89887A1-264C-4BF9-8D0F-C20B4709F180}';
|
|
IsrvPedidosProveedor_IID : TGUID = '{CCF8B5C3-4A8B-4CB4-B0FB-D95D3887C054}';
|
|
IsrvAlbaranesCliente_IID : TGUID = '{2DFDD00B-79D5-47C3-AD92-5FD6E88DCE61}';
|
|
IsrvFacturasCliente_IID : TGUID = '{9FD3194D-D8DE-4224-A209-13FC3FC6CD06}';
|
|
IsrvAlmacenes_IID : TGUID = '{EC5C0006-F1E0-4181-8E87-AC3C639AF9E3}';
|
|
IsrvArticulos_IID : TGUID = '{E6A99249-A392-4731-BC9B-9AD3A2FBDB16}';
|
|
IsrvMontajes_IID : TGUID = '{5A4F12DF-5370-439D-B976-A7BA389B0E30}';
|
|
IsrvFacturasProveedor_IID : TGUID = '{8610382E-FC02-47D6-9B1D-08DCB903B275}';
|
|
IsrvPagos_IID : TGUID = '{A260D4E7-F965-4457-AD15-135C802519CB}';
|
|
IsrvCuentas_IID : TGUID = '{E61A3B4E-AACE-4A1E-B798-968C90D61BBC}';
|
|
IsrvComisiones_IID : TGUID = '{461DBBE7-293D-497A-8CD1-840401883BCE}';
|
|
IsrvAsientos_IID : TGUID = '{1F0F3DFC-B6DD-430D-9D2D-758FEDE7F23B}';
|
|
IsrvIntervalos_IID : TGUID = '{DFEDABB2-C0A6-4229-A753-F4DB93B8278B}';
|
|
IsrvConfiguracion_IID : TGUID = '{38039721-5BEC-42A9-A057-78C47740F844}';
|
|
IsrvCitas_IID : TGUID = '{E31D5D39-5609-4E64-809C-B576D6CE9D1D}';
|
|
|
|
{ Event ID's }
|
|
|
|
type
|
|
{ Forward declarations }
|
|
IsrvContactos = interface;
|
|
IsrvLogin = interface;
|
|
IsrvPresupuestos = interface;
|
|
IsrvPedidosProveedor = interface;
|
|
IsrvAlbaranesCliente = interface;
|
|
IsrvFacturasCliente = interface;
|
|
IsrvAlmacenes = interface;
|
|
IsrvArticulos = interface;
|
|
IsrvMontajes = interface;
|
|
IsrvFacturasProveedor = interface;
|
|
IsrvPagos = interface;
|
|
IsrvCuentas = interface;
|
|
IsrvComisiones = interface;
|
|
IsrvAsientos = interface;
|
|
IsrvIntervalos = interface;
|
|
IsrvConfiguracion = interface;
|
|
IsrvCitas = interface;
|
|
|
|
|
|
TLoginInfo = class;
|
|
TstImportes = class;
|
|
|
|
|
|
{ TLoginInfo }
|
|
TLoginInfo = class(TDALoginInfo)
|
|
private
|
|
fRoles: TDAStringArray;
|
|
function GetRoles: TDAStringArray;
|
|
public
|
|
procedure Assign(iSource: TPersistent); override;
|
|
published
|
|
property Roles:TDAStringArray read GetRoles write fRoles;
|
|
end;
|
|
|
|
{ TLoginInfoCollection }
|
|
TLoginInfoCollection = class(TDALoginInfoCollection)
|
|
protected
|
|
constructor Create(aItemClass: TCollectionItemClass); overload;
|
|
function GetItems(Index: integer): TLoginInfo;
|
|
procedure SetItems(Index: integer; const Value: TLoginInfo);
|
|
public
|
|
constructor Create; overload;
|
|
function Add: TLoginInfo; reintroduce;
|
|
property Items[Index: integer]:TLoginInfo read GetItems write SetItems; default;
|
|
end;
|
|
|
|
{ TstImportes }
|
|
TstImportes = class(TROComplexType)
|
|
private
|
|
fBaseImponible: Currency;
|
|
fImporteIVA: Currency;
|
|
fImporteTotal: Currency;
|
|
public
|
|
procedure Assign(iSource: TPersistent); override;
|
|
published
|
|
property BaseImponible:Currency read fBaseImponible write fBaseImponible;
|
|
property ImporteIVA:Currency read fImporteIVA write fImporteIVA;
|
|
property ImporteTotal:Currency read fImporteTotal write fImporteTotal;
|
|
end;
|
|
|
|
{ TstImportesCollection }
|
|
TstImportesCollection = class(TROCollection)
|
|
protected
|
|
constructor Create(aItemClass: TCollectionItemClass); overload;
|
|
function GetItems(Index: integer): TstImportes;
|
|
procedure SetItems(Index: integer; const Value: TstImportes);
|
|
public
|
|
constructor Create; overload;
|
|
function Add: TstImportes; reintroduce;
|
|
property Items[Index: integer]:TstImportes read GetItems write SetItems; default;
|
|
end;
|
|
|
|
{ IsrvContactos }
|
|
IsrvContactos = interface(IDARemoteService)
|
|
['{2502C3BD-1DD5-435B-832A-208767D5D55A}']
|
|
function GenerateReport: Binary;
|
|
function GetNextAutoinc: Integer;
|
|
function PuedoEliminarContacto(const CodigoContacto: Integer): Boolean;
|
|
end;
|
|
|
|
{ CosrvContactos }
|
|
CosrvContactos = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvContactos;
|
|
end;
|
|
|
|
{ TsrvContactos_Proxy }
|
|
TsrvContactos_Proxy = class(TDARemoteService_Proxy, IsrvContactos)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
function GenerateReport: Binary;
|
|
function GetNextAutoinc: Integer;
|
|
function PuedoEliminarContacto(const CodigoContacto: Integer): Boolean;
|
|
end;
|
|
|
|
{ IsrvLogin }
|
|
IsrvLogin = interface
|
|
['{6B132AE4-D45F-4AE8-8215-E95789358329}']
|
|
function Login(const UserID: String; const Password: String; out LoginInfo: TLoginInfo): Boolean;
|
|
procedure Logout;
|
|
function Ping: Boolean;
|
|
function SetUserPassword(const UserID: String; const NewPassword: String): Boolean;
|
|
function UpdateUsers(const UsersDelta: Binary): Binary;
|
|
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: TLoginInfo): Boolean;
|
|
procedure Logout;
|
|
function Ping: Boolean;
|
|
function SetUserPassword(const UserID: String; const NewPassword: String): Boolean;
|
|
function UpdateUsers(const UsersDelta: Binary): Binary;
|
|
end;
|
|
|
|
{ IsrvPresupuestos }
|
|
IsrvPresupuestos = interface(IDARemoteService)
|
|
['{B89887A1-264C-4BF9-8D0F-C20B4709F180}']
|
|
function GetNextAutoinc: Integer;
|
|
function GenerateReport(const Codigo: Integer; const TamLetra: Integer): Binary;
|
|
function PuedoEliminarPresupuesto(const CodigoPresupuesto: Integer): Boolean;
|
|
end;
|
|
|
|
{ CosrvPresupuestos }
|
|
CosrvPresupuestos = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvPresupuestos;
|
|
end;
|
|
|
|
{ TsrvPresupuestos_Proxy }
|
|
TsrvPresupuestos_Proxy = class(TDARemoteService_Proxy, IsrvPresupuestos)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
function GetNextAutoinc: Integer;
|
|
function GenerateReport(const Codigo: Integer; const TamLetra: Integer): Binary;
|
|
function PuedoEliminarPresupuesto(const CodigoPresupuesto: Integer): Boolean;
|
|
end;
|
|
|
|
{ IsrvPedidosProveedor }
|
|
IsrvPedidosProveedor = interface(IDARemoteService)
|
|
['{CCF8B5C3-4A8B-4CB4-B0FB-D95D3887C054}']
|
|
function GetNextAutoinc: Integer;
|
|
function DarNuevaReferencia: String;
|
|
function GenerateReport(const Codigo: Integer): Binary;
|
|
function PuedoEliminarPedido(const CodigoPedido: Integer): Boolean;
|
|
end;
|
|
|
|
{ CosrvPedidosProveedor }
|
|
CosrvPedidosProveedor = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvPedidosProveedor;
|
|
end;
|
|
|
|
{ TsrvPedidosProveedor_Proxy }
|
|
TsrvPedidosProveedor_Proxy = class(TDARemoteService_Proxy, IsrvPedidosProveedor)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
function GetNextAutoinc: Integer;
|
|
function DarNuevaReferencia: String;
|
|
function GenerateReport(const Codigo: Integer): Binary;
|
|
function PuedoEliminarPedido(const CodigoPedido: Integer): Boolean;
|
|
end;
|
|
|
|
{ IsrvAlbaranesCliente }
|
|
IsrvAlbaranesCliente = interface(IDARemoteService)
|
|
['{2DFDD00B-79D5-47C3-AD92-5FD6E88DCE61}']
|
|
function ExisteAlbaranDePresupuesto(const CodigoPresupuesto: Integer; out CodigoAlbaran: Integer): Boolean;
|
|
function DarNuevaReferencia: String;
|
|
function GetNextAutoinc: Integer;
|
|
function GenerateReport(const Codigo: Integer): Binary;
|
|
function PuedoEliminarAlbaran(const CodigoAlbaran: Integer): Boolean;
|
|
function DarSumaImportes(const FechaIni: DateTime; const FechaFin: DateTime): TstImportes;
|
|
end;
|
|
|
|
{ CosrvAlbaranesCliente }
|
|
CosrvAlbaranesCliente = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvAlbaranesCliente;
|
|
end;
|
|
|
|
{ TsrvAlbaranesCliente_Proxy }
|
|
TsrvAlbaranesCliente_Proxy = class(TDARemoteService_Proxy, IsrvAlbaranesCliente)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
function ExisteAlbaranDePresupuesto(const CodigoPresupuesto: Integer; out CodigoAlbaran: Integer): Boolean;
|
|
function DarNuevaReferencia: String;
|
|
function GetNextAutoinc: Integer;
|
|
function GenerateReport(const Codigo: Integer): Binary;
|
|
function PuedoEliminarAlbaran(const CodigoAlbaran: Integer): Boolean;
|
|
function DarSumaImportes(const FechaIni: DateTime; const FechaFin: DateTime): TstImportes;
|
|
end;
|
|
|
|
{ IsrvFacturasCliente }
|
|
IsrvFacturasCliente = interface(IDARemoteService)
|
|
['{9FD3194D-D8DE-4224-A209-13FC3FC6CD06}']
|
|
function GetNextAutoinc: Integer;
|
|
function PuedoEliminarFactura(const CodigoFactura: Integer): Boolean;
|
|
function ExisteFacturaDeAlbaran(const CodigoAlbaran: Integer; out CodigoFactura: Integer): Boolean;
|
|
function GenerateReport(const Codigo: Integer; const TamLetra: Integer): Binary;
|
|
function DarNuevaReferencia: String;
|
|
end;
|
|
|
|
{ CosrvFacturasCliente }
|
|
CosrvFacturasCliente = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvFacturasCliente;
|
|
end;
|
|
|
|
{ TsrvFacturasCliente_Proxy }
|
|
TsrvFacturasCliente_Proxy = class(TDARemoteService_Proxy, IsrvFacturasCliente)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
function GetNextAutoinc: Integer;
|
|
function PuedoEliminarFactura(const CodigoFactura: Integer): Boolean;
|
|
function ExisteFacturaDeAlbaran(const CodigoAlbaran: Integer; out CodigoFactura: Integer): Boolean;
|
|
function GenerateReport(const Codigo: Integer; const TamLetra: Integer): Binary;
|
|
function DarNuevaReferencia: String;
|
|
end;
|
|
|
|
{ IsrvAlmacenes }
|
|
IsrvAlmacenes = interface(IDARemoteService)
|
|
['{EC5C0006-F1E0-4181-8E87-AC3C639AF9E3}']
|
|
function GenerateReport: Binary;
|
|
function PuedoEliminarAlmacen(const Codigo: Integer): Boolean;
|
|
end;
|
|
|
|
{ CosrvAlmacenes }
|
|
CosrvAlmacenes = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvAlmacenes;
|
|
end;
|
|
|
|
{ TsrvAlmacenes_Proxy }
|
|
TsrvAlmacenes_Proxy = class(TDARemoteService_Proxy, IsrvAlmacenes)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
function GenerateReport: Binary;
|
|
function PuedoEliminarAlmacen(const Codigo: Integer): Boolean;
|
|
end;
|
|
|
|
{ IsrvArticulos }
|
|
IsrvArticulos = interface(IDARemoteService)
|
|
['{E6A99249-A392-4731-BC9B-9AD3A2FBDB16}']
|
|
function GetNextAutoinc: Integer;
|
|
end;
|
|
|
|
{ CosrvArticulos }
|
|
CosrvArticulos = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvArticulos;
|
|
end;
|
|
|
|
{ TsrvArticulos_Proxy }
|
|
TsrvArticulos_Proxy = class(TDARemoteService_Proxy, IsrvArticulos)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
function GetNextAutoinc: Integer;
|
|
end;
|
|
|
|
{ IsrvMontajes }
|
|
IsrvMontajes = interface(IDARemoteService)
|
|
['{5A4F12DF-5370-439D-B976-A7BA389B0E30}']
|
|
function GetNextAutoinc(const Generador: String): Integer;
|
|
function PuedoEliminarMontaje(const Codigo: Integer): Boolean;
|
|
function GenerateReportFicha(const Codigo: Integer): Binary;
|
|
function GenerateReportEtiquetas(const Codigo: Integer; const NumEtiquetas: Integer): Binary;
|
|
function DarNuevaReferencia(const TipoMontaje: String): String;
|
|
end;
|
|
|
|
{ CosrvMontajes }
|
|
CosrvMontajes = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvMontajes;
|
|
end;
|
|
|
|
{ TsrvMontajes_Proxy }
|
|
TsrvMontajes_Proxy = class(TDARemoteService_Proxy, IsrvMontajes)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
function GetNextAutoinc(const Generador: String): Integer;
|
|
function PuedoEliminarMontaje(const Codigo: Integer): Boolean;
|
|
function GenerateReportFicha(const Codigo: Integer): Binary;
|
|
function GenerateReportEtiquetas(const Codigo: Integer; const NumEtiquetas: Integer): Binary;
|
|
function DarNuevaReferencia(const TipoMontaje: String): String;
|
|
end;
|
|
|
|
{ IsrvFacturasProveedor }
|
|
IsrvFacturasProveedor = interface(IDARemoteService)
|
|
['{8610382E-FC02-47D6-9B1D-08DCB903B275}']
|
|
function GetNextAutoinc: Integer;
|
|
function PuedoEliminarFactura(const CodigoFactura: Integer): Boolean;
|
|
end;
|
|
|
|
{ CosrvFacturasProveedor }
|
|
CosrvFacturasProveedor = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvFacturasProveedor;
|
|
end;
|
|
|
|
{ TsrvFacturasProveedor_Proxy }
|
|
TsrvFacturasProveedor_Proxy = class(TDARemoteService_Proxy, IsrvFacturasProveedor)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
function GetNextAutoinc: Integer;
|
|
function PuedoEliminarFactura(const CodigoFactura: Integer): Boolean;
|
|
end;
|
|
|
|
{ IsrvPagos }
|
|
IsrvPagos = interface(IDARemoteService)
|
|
['{A260D4E7-F965-4457-AD15-135C802519CB}']
|
|
function GetNextAutoinc: Integer;
|
|
function GenerateReport(const Codigo: Integer): Binary;
|
|
end;
|
|
|
|
{ CosrvPagos }
|
|
CosrvPagos = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvPagos;
|
|
end;
|
|
|
|
{ TsrvPagos_Proxy }
|
|
TsrvPagos_Proxy = class(TDARemoteService_Proxy, IsrvPagos)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
function GetNextAutoinc: Integer;
|
|
function GenerateReport(const Codigo: Integer): Binary;
|
|
end;
|
|
|
|
{ IsrvCuentas }
|
|
IsrvCuentas = interface(IDARemoteService)
|
|
['{E61A3B4E-AACE-4A1E-B798-968C90D61BBC}']
|
|
function GenerateReport: Binary;
|
|
function PuedoEliminarCuenta(const Codigo: Integer): Boolean;
|
|
end;
|
|
|
|
{ CosrvCuentas }
|
|
CosrvCuentas = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvCuentas;
|
|
end;
|
|
|
|
{ TsrvCuentas_Proxy }
|
|
TsrvCuentas_Proxy = class(TDARemoteService_Proxy, IsrvCuentas)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
function GenerateReport: Binary;
|
|
function PuedoEliminarCuenta(const Codigo: Integer): Boolean;
|
|
end;
|
|
|
|
{ IsrvComisiones }
|
|
IsrvComisiones = interface(IDARemoteService)
|
|
['{461DBBE7-293D-497A-8CD1-840401883BCE}']
|
|
function GetComision(const CodigoContacto: Integer): Double;
|
|
procedure SetComision(const CodigoContacto: Integer; const Value: Double);
|
|
end;
|
|
|
|
{ CosrvComisiones }
|
|
CosrvComisiones = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvComisiones;
|
|
end;
|
|
|
|
{ TsrvComisiones_Proxy }
|
|
TsrvComisiones_Proxy = class(TDARemoteService_Proxy, IsrvComisiones)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
function GetComision(const CodigoContacto: Integer): Double;
|
|
procedure SetComision(const CodigoContacto: Integer; const Value: Double);
|
|
end;
|
|
|
|
{ IsrvAsientos }
|
|
IsrvAsientos = interface(IDARemoteService)
|
|
['{1F0F3DFC-B6DD-430D-9D2D-758FEDE7F23B}']
|
|
function AsignarPunteo(const CodigoCuenta: Integer; const FechaIni: DateTime; const FechaFin: DateTime; const ValorPunteado: Integer): Boolean;
|
|
function darPenultimoCierre(const CodigoCuenta: Integer): DateTime;
|
|
function darSumaAcumulada(const CodigoCuenta: Integer; const FechaIni: DateTime; const FechaFin: DateTime): Currency;
|
|
end;
|
|
|
|
{ CosrvAsientos }
|
|
CosrvAsientos = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvAsientos;
|
|
end;
|
|
|
|
{ TsrvAsientos_Proxy }
|
|
TsrvAsientos_Proxy = class(TDARemoteService_Proxy, IsrvAsientos)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
function AsignarPunteo(const CodigoCuenta: Integer; const FechaIni: DateTime; const FechaFin: DateTime; const ValorPunteado: Integer): Boolean;
|
|
function darPenultimoCierre(const CodigoCuenta: Integer): DateTime;
|
|
function darSumaAcumulada(const CodigoCuenta: Integer; const FechaIni: DateTime; const FechaFin: DateTime): Currency;
|
|
end;
|
|
|
|
{ IsrvIntervalos }
|
|
IsrvIntervalos = interface(IDARemoteService)
|
|
['{DFEDABB2-C0A6-4229-A753-F4DB93B8278B}']
|
|
end;
|
|
|
|
{ CosrvIntervalos }
|
|
CosrvIntervalos = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvIntervalos;
|
|
end;
|
|
|
|
{ TsrvIntervalos_Proxy }
|
|
TsrvIntervalos_Proxy = class(TDARemoteService_Proxy, IsrvIntervalos)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
end;
|
|
|
|
{ IsrvConfiguracion }
|
|
IsrvConfiguracion = interface
|
|
['{38039721-5BEC-42A9-A057-78C47740F844}']
|
|
function darRutaDocumentos: String;
|
|
end;
|
|
|
|
{ CosrvConfiguracion }
|
|
CosrvConfiguracion = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvConfiguracion;
|
|
end;
|
|
|
|
{ TsrvConfiguracion_Proxy }
|
|
TsrvConfiguracion_Proxy = class(TROProxy, IsrvConfiguracion)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
function darRutaDocumentos: String;
|
|
end;
|
|
|
|
{ IsrvCitas }
|
|
IsrvCitas = interface(IDARemoteService)
|
|
['{E31D5D39-5609-4E64-809C-B576D6CE9D1D}']
|
|
function getCodigo(const Generador: String): Integer;
|
|
end;
|
|
|
|
{ CosrvCitas }
|
|
CosrvCitas = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvCitas;
|
|
end;
|
|
|
|
{ TsrvCitas_Proxy }
|
|
TsrvCitas_Proxy = class(TDARemoteService_Proxy, IsrvCitas)
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
function getCodigo(const Generador: String): Integer;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
{vcl:} SysUtils,
|
|
{RemObjects:} uROEventRepository, uRORes;
|
|
|
|
{ TLoginInfo }
|
|
|
|
procedure TLoginInfo.Assign(iSource: TPersistent);
|
|
var lSource:TLoginInfo;
|
|
begin
|
|
inherited Assign(iSource);
|
|
if (iSource is TLoginInfo) then begin
|
|
lSource := TLoginInfo(iSource);
|
|
Roles.Assign(lSource.Roles);
|
|
end;
|
|
end;
|
|
|
|
function TLoginInfo.GetRoles: TDAStringArray;
|
|
begin
|
|
if (fRoles = nil) then fRoles := TDAStringArray.Create();
|
|
result := fRoles;
|
|
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(Index: integer): TLoginInfo;
|
|
begin
|
|
result := TLoginInfo(inherited Items[Index]);
|
|
end;
|
|
|
|
procedure TLoginInfoCollection.SetItems(Index: integer; const Value: TLoginInfo);
|
|
begin
|
|
TLoginInfo(inherited Items[Index]).Assign(Value);
|
|
end;
|
|
|
|
{ TstImportes }
|
|
|
|
procedure TstImportes.Assign(iSource: TPersistent);
|
|
var lSource:TstImportes;
|
|
begin
|
|
inherited Assign(iSource);
|
|
if (iSource is TstImportes) then begin
|
|
lSource := TstImportes(iSource);
|
|
BaseImponible := lSource.BaseImponible;
|
|
ImporteIVA := lSource.ImporteIVA;
|
|
ImporteTotal := lSource.ImporteTotal;
|
|
end;
|
|
end;
|
|
|
|
{ TstImportesCollection }
|
|
constructor TstImportesCollection.Create;
|
|
begin
|
|
inherited Create(TstImportes);
|
|
end;
|
|
|
|
constructor TstImportesCollection.Create(aItemClass: TCollectionItemClass);
|
|
begin
|
|
inherited Create(aItemClass);
|
|
end;
|
|
|
|
function TstImportesCollection.Add: TstImportes;
|
|
begin
|
|
result := TstImportes(inherited Add);
|
|
end;
|
|
|
|
function TstImportesCollection.GetItems(Index: integer): TstImportes;
|
|
begin
|
|
result := TstImportes(inherited Items[Index]);
|
|
end;
|
|
|
|
procedure TstImportesCollection.SetItems(Index: integer; const Value: TstImportes);
|
|
begin
|
|
TstImportes(inherited Items[Index]).Assign(Value);
|
|
end;
|
|
|
|
{ CosrvContactos }
|
|
|
|
class function CosrvContactos.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvContactos;
|
|
begin
|
|
result := TsrvContactos_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
{ TsrvContactos_Proxy }
|
|
|
|
function TsrvContactos_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvContactos';
|
|
end;
|
|
|
|
function TsrvContactos_Proxy.GenerateReport: Binary;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
result := nil;
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Binary), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvContactos_Proxy.GetNextAutoinc: Integer;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoinc');
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Integer), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvContactos_Proxy.PuedoEliminarContacto(const CodigoContacto: Integer): Boolean;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'PuedoEliminarContacto');
|
|
__Message.Write('CodigoContacto', TypeInfo(Integer), CodigoContacto, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Boolean), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
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: TLoginInfo): Boolean;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
LoginInfo := nil;
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'Login');
|
|
__Message.Write('UserID', TypeInfo(String), UserID, []);
|
|
__Message.Write('Password', TypeInfo(String), Password, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Boolean), result, []);
|
|
__Message.Read('LoginInfo', TypeInfo(FactuGES_Intf.TLoginInfo), LoginInfo, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
procedure TsrvLogin_Proxy.Logout;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'Logout');
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvLogin_Proxy.Ping: Boolean;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'Ping');
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Boolean), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvLogin_Proxy.SetUserPassword(const UserID: String; const NewPassword: String): Boolean;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'SetUserPassword');
|
|
__Message.Write('UserID', TypeInfo(String), UserID, []);
|
|
__Message.Write('NewPassword', TypeInfo(String), NewPassword, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Boolean), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvLogin_Proxy.UpdateUsers(const UsersDelta: Binary): Binary;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
result := nil;
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'UpdateUsers');
|
|
__Message.Write('UsersDelta', TypeInfo(Binary), UsersDelta, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Binary), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
{ CosrvPresupuestos }
|
|
|
|
class function CosrvPresupuestos.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvPresupuestos;
|
|
begin
|
|
result := TsrvPresupuestos_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
{ TsrvPresupuestos_Proxy }
|
|
|
|
function TsrvPresupuestos_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvPresupuestos';
|
|
end;
|
|
|
|
function TsrvPresupuestos_Proxy.GetNextAutoinc: Integer;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoinc');
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Integer), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvPresupuestos_Proxy.GenerateReport(const Codigo: Integer; const TamLetra: Integer): Binary;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
result := nil;
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
|
|
__Message.Write('Codigo', TypeInfo(Integer), Codigo, []);
|
|
__Message.Write('TamLetra', TypeInfo(Integer), TamLetra, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Binary), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvPresupuestos_Proxy.PuedoEliminarPresupuesto(const CodigoPresupuesto: Integer): Boolean;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'PuedoEliminarPresupuesto');
|
|
__Message.Write('CodigoPresupuesto', TypeInfo(Integer), CodigoPresupuesto, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Boolean), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
{ CosrvPedidosProveedor }
|
|
|
|
class function CosrvPedidosProveedor.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvPedidosProveedor;
|
|
begin
|
|
result := TsrvPedidosProveedor_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
{ TsrvPedidosProveedor_Proxy }
|
|
|
|
function TsrvPedidosProveedor_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvPedidosProveedor';
|
|
end;
|
|
|
|
function TsrvPedidosProveedor_Proxy.GetNextAutoinc: Integer;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoinc');
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Integer), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvPedidosProveedor_Proxy.DarNuevaReferencia: String;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'DarNuevaReferencia');
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(String), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvPedidosProveedor_Proxy.GenerateReport(const Codigo: Integer): Binary;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
result := nil;
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
|
|
__Message.Write('Codigo', TypeInfo(Integer), Codigo, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Binary), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvPedidosProveedor_Proxy.PuedoEliminarPedido(const CodigoPedido: Integer): Boolean;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'PuedoEliminarPedido');
|
|
__Message.Write('CodigoPedido', TypeInfo(Integer), CodigoPedido, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Boolean), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
{ CosrvAlbaranesCliente }
|
|
|
|
class function CosrvAlbaranesCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvAlbaranesCliente;
|
|
begin
|
|
result := TsrvAlbaranesCliente_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
{ TsrvAlbaranesCliente_Proxy }
|
|
|
|
function TsrvAlbaranesCliente_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvAlbaranesCliente';
|
|
end;
|
|
|
|
function TsrvAlbaranesCliente_Proxy.ExisteAlbaranDePresupuesto(const CodigoPresupuesto: Integer; out CodigoAlbaran: Integer): Boolean;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'ExisteAlbaranDePresupuesto');
|
|
__Message.Write('CodigoPresupuesto', TypeInfo(Integer), CodigoPresupuesto, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Boolean), result, []);
|
|
__Message.Read('CodigoAlbaran', TypeInfo(Integer), CodigoAlbaran, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvAlbaranesCliente_Proxy.DarNuevaReferencia: String;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'DarNuevaReferencia');
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(String), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvAlbaranesCliente_Proxy.GetNextAutoinc: Integer;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoinc');
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Integer), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvAlbaranesCliente_Proxy.GenerateReport(const Codigo: Integer): Binary;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
result := nil;
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
|
|
__Message.Write('Codigo', TypeInfo(Integer), Codigo, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Binary), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvAlbaranesCliente_Proxy.PuedoEliminarAlbaran(const CodigoAlbaran: Integer): Boolean;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'PuedoEliminarAlbaran');
|
|
__Message.Write('CodigoAlbaran', TypeInfo(Integer), CodigoAlbaran, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Boolean), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvAlbaranesCliente_Proxy.DarSumaImportes(const FechaIni: DateTime; const FechaFin: DateTime): TstImportes;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
result := nil;
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'DarSumaImportes');
|
|
__Message.Write('FechaIni', TypeInfo(DateTime), FechaIni, [paIsDateTime]);
|
|
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(FactuGES_Intf.TstImportes), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
{ CosrvFacturasCliente }
|
|
|
|
class function CosrvFacturasCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvFacturasCliente;
|
|
begin
|
|
result := TsrvFacturasCliente_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
{ TsrvFacturasCliente_Proxy }
|
|
|
|
function TsrvFacturasCliente_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvFacturasCliente';
|
|
end;
|
|
|
|
function TsrvFacturasCliente_Proxy.GetNextAutoinc: Integer;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoinc');
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Integer), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvFacturasCliente_Proxy.PuedoEliminarFactura(const CodigoFactura: Integer): Boolean;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'PuedoEliminarFactura');
|
|
__Message.Write('CodigoFactura', TypeInfo(Integer), CodigoFactura, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Boolean), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvFacturasCliente_Proxy.ExisteFacturaDeAlbaran(const CodigoAlbaran: Integer; out CodigoFactura: Integer): Boolean;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'ExisteFacturaDeAlbaran');
|
|
__Message.Write('CodigoAlbaran', TypeInfo(Integer), CodigoAlbaran, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Boolean), result, []);
|
|
__Message.Read('CodigoFactura', TypeInfo(Integer), CodigoFactura, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvFacturasCliente_Proxy.GenerateReport(const Codigo: Integer; const TamLetra: Integer): Binary;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
result := nil;
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
|
|
__Message.Write('Codigo', TypeInfo(Integer), Codigo, []);
|
|
__Message.Write('TamLetra', TypeInfo(Integer), TamLetra, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Binary), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvFacturasCliente_Proxy.DarNuevaReferencia: String;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'DarNuevaReferencia');
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(String), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
{ CosrvAlmacenes }
|
|
|
|
class function CosrvAlmacenes.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvAlmacenes;
|
|
begin
|
|
result := TsrvAlmacenes_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
{ TsrvAlmacenes_Proxy }
|
|
|
|
function TsrvAlmacenes_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvAlmacenes';
|
|
end;
|
|
|
|
function TsrvAlmacenes_Proxy.GenerateReport: Binary;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
result := nil;
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Binary), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvAlmacenes_Proxy.PuedoEliminarAlmacen(const Codigo: Integer): Boolean;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'PuedoEliminarAlmacen');
|
|
__Message.Write('Codigo', TypeInfo(Integer), Codigo, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Boolean), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
{ CosrvArticulos }
|
|
|
|
class function CosrvArticulos.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvArticulos;
|
|
begin
|
|
result := TsrvArticulos_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
{ TsrvArticulos_Proxy }
|
|
|
|
function TsrvArticulos_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvArticulos';
|
|
end;
|
|
|
|
function TsrvArticulos_Proxy.GetNextAutoinc: Integer;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoinc');
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Integer), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
{ CosrvMontajes }
|
|
|
|
class function CosrvMontajes.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvMontajes;
|
|
begin
|
|
result := TsrvMontajes_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
{ TsrvMontajes_Proxy }
|
|
|
|
function TsrvMontajes_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvMontajes';
|
|
end;
|
|
|
|
function TsrvMontajes_Proxy.GetNextAutoinc(const Generador: String): Integer;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoinc');
|
|
__Message.Write('Generador', TypeInfo(String), Generador, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Integer), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvMontajes_Proxy.PuedoEliminarMontaje(const Codigo: Integer): Boolean;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'PuedoEliminarMontaje');
|
|
__Message.Write('Codigo', TypeInfo(Integer), Codigo, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Boolean), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvMontajes_Proxy.GenerateReportFicha(const Codigo: Integer): Binary;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
result := nil;
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReportFicha');
|
|
__Message.Write('Codigo', TypeInfo(Integer), Codigo, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Binary), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvMontajes_Proxy.GenerateReportEtiquetas(const Codigo: Integer; const NumEtiquetas: Integer): Binary;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
result := nil;
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReportEtiquetas');
|
|
__Message.Write('Codigo', TypeInfo(Integer), Codigo, []);
|
|
__Message.Write('NumEtiquetas', TypeInfo(Integer), NumEtiquetas, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Binary), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvMontajes_Proxy.DarNuevaReferencia(const TipoMontaje: String): String;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'DarNuevaReferencia');
|
|
__Message.Write('TipoMontaje', TypeInfo(String), TipoMontaje, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(String), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
{ CosrvFacturasProveedor }
|
|
|
|
class function CosrvFacturasProveedor.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvFacturasProveedor;
|
|
begin
|
|
result := TsrvFacturasProveedor_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
{ TsrvFacturasProveedor_Proxy }
|
|
|
|
function TsrvFacturasProveedor_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvFacturasProveedor';
|
|
end;
|
|
|
|
function TsrvFacturasProveedor_Proxy.GetNextAutoinc: Integer;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoinc');
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Integer), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvFacturasProveedor_Proxy.PuedoEliminarFactura(const CodigoFactura: Integer): Boolean;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'PuedoEliminarFactura');
|
|
__Message.Write('CodigoFactura', TypeInfo(Integer), CodigoFactura, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Boolean), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
{ CosrvPagos }
|
|
|
|
class function CosrvPagos.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvPagos;
|
|
begin
|
|
result := TsrvPagos_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
{ TsrvPagos_Proxy }
|
|
|
|
function TsrvPagos_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvPagos';
|
|
end;
|
|
|
|
function TsrvPagos_Proxy.GetNextAutoinc: Integer;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoinc');
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Integer), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvPagos_Proxy.GenerateReport(const Codigo: Integer): Binary;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
result := nil;
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
|
|
__Message.Write('Codigo', TypeInfo(Integer), Codigo, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Binary), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
{ CosrvCuentas }
|
|
|
|
class function CosrvCuentas.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvCuentas;
|
|
begin
|
|
result := TsrvCuentas_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
{ TsrvCuentas_Proxy }
|
|
|
|
function TsrvCuentas_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvCuentas';
|
|
end;
|
|
|
|
function TsrvCuentas_Proxy.GenerateReport: Binary;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
result := nil;
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Binary), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvCuentas_Proxy.PuedoEliminarCuenta(const Codigo: Integer): Boolean;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'PuedoEliminarCuenta');
|
|
__Message.Write('Codigo', TypeInfo(Integer), Codigo, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Boolean), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
{ CosrvComisiones }
|
|
|
|
class function CosrvComisiones.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvComisiones;
|
|
begin
|
|
result := TsrvComisiones_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
{ TsrvComisiones_Proxy }
|
|
|
|
function TsrvComisiones_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvComisiones';
|
|
end;
|
|
|
|
function TsrvComisiones_Proxy.GetComision(const CodigoContacto: Integer): Double;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GetComision');
|
|
__Message.Write('CodigoContacto', TypeInfo(Integer), CodigoContacto, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Double), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
procedure TsrvComisiones_Proxy.SetComision(const CodigoContacto: Integer; const Value: Double);
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'SetComision');
|
|
__Message.Write('CodigoContacto', TypeInfo(Integer), CodigoContacto, []);
|
|
__Message.Write('Value', TypeInfo(Double), Value, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
{ CosrvAsientos }
|
|
|
|
class function CosrvAsientos.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvAsientos;
|
|
begin
|
|
result := TsrvAsientos_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
{ TsrvAsientos_Proxy }
|
|
|
|
function TsrvAsientos_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvAsientos';
|
|
end;
|
|
|
|
function TsrvAsientos_Proxy.AsignarPunteo(const CodigoCuenta: Integer; const FechaIni: DateTime; const FechaFin: DateTime; const ValorPunteado: Integer): Boolean;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'AsignarPunteo');
|
|
__Message.Write('CodigoCuenta', TypeInfo(Integer), CodigoCuenta, []);
|
|
__Message.Write('FechaIni', TypeInfo(DateTime), FechaIni, [paIsDateTime]);
|
|
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
|
__Message.Write('ValorPunteado', TypeInfo(Integer), ValorPunteado, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Boolean), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvAsientos_Proxy.darPenultimoCierre(const CodigoCuenta: Integer): DateTime;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'darPenultimoCierre');
|
|
__Message.Write('CodigoCuenta', TypeInfo(Integer), CodigoCuenta, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(DateTime), result, [paIsDateTime]);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
function TsrvAsientos_Proxy.darSumaAcumulada(const CodigoCuenta: Integer; const FechaIni: DateTime; const FechaFin: DateTime): Currency;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'darSumaAcumulada');
|
|
__Message.Write('CodigoCuenta', TypeInfo(Integer), CodigoCuenta, []);
|
|
__Message.Write('FechaIni', TypeInfo(DateTime), FechaIni, [paIsDateTime]);
|
|
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Currency), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
{ CosrvIntervalos }
|
|
|
|
class function CosrvIntervalos.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvIntervalos;
|
|
begin
|
|
result := TsrvIntervalos_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
function TsrvIntervalos_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvIntervalos';
|
|
end;
|
|
|
|
{ CosrvConfiguracion }
|
|
|
|
class function CosrvConfiguracion.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvConfiguracion;
|
|
begin
|
|
result := TsrvConfiguracion_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
{ TsrvConfiguracion_Proxy }
|
|
|
|
function TsrvConfiguracion_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvConfiguracion';
|
|
end;
|
|
|
|
function TsrvConfiguracion_Proxy.darRutaDocumentos: String;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'darRutaDocumentos');
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(String), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
{ CosrvCitas }
|
|
|
|
class function CosrvCitas.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvCitas;
|
|
begin
|
|
result := TsrvCitas_Proxy.Create(aMessage, aTransportChannel);
|
|
end;
|
|
|
|
{ TsrvCitas_Proxy }
|
|
|
|
function TsrvCitas_Proxy.__GetInterfaceName:string;
|
|
begin
|
|
result := 'srvCitas';
|
|
end;
|
|
|
|
function TsrvCitas_Proxy.getCodigo(const Generador: String): Integer;
|
|
var
|
|
__request, __response : TMemoryStream;
|
|
begin
|
|
__request := TMemoryStream.Create;
|
|
__response := TMemoryStream.Create;
|
|
|
|
try
|
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'getCodigo');
|
|
__Message.Write('Generador', TypeInfo(String), Generador, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__TransportChannel.Dispatch(__request, __response);
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(Integer), result, []);
|
|
finally
|
|
__request.Free;
|
|
__response.Free;
|
|
end
|
|
end;
|
|
|
|
initialization
|
|
RegisterROClass(TLoginInfo);
|
|
RegisterROClass(TstImportes);
|
|
RegisterProxyClass(IsrvContactos_IID, TsrvContactos_Proxy);
|
|
RegisterProxyClass(IsrvLogin_IID, TsrvLogin_Proxy);
|
|
RegisterProxyClass(IsrvPresupuestos_IID, TsrvPresupuestos_Proxy);
|
|
RegisterProxyClass(IsrvPedidosProveedor_IID, TsrvPedidosProveedor_Proxy);
|
|
RegisterProxyClass(IsrvAlbaranesCliente_IID, TsrvAlbaranesCliente_Proxy);
|
|
RegisterProxyClass(IsrvFacturasCliente_IID, TsrvFacturasCliente_Proxy);
|
|
RegisterProxyClass(IsrvAlmacenes_IID, TsrvAlmacenes_Proxy);
|
|
RegisterProxyClass(IsrvArticulos_IID, TsrvArticulos_Proxy);
|
|
RegisterProxyClass(IsrvMontajes_IID, TsrvMontajes_Proxy);
|
|
RegisterProxyClass(IsrvFacturasProveedor_IID, TsrvFacturasProveedor_Proxy);
|
|
RegisterProxyClass(IsrvPagos_IID, TsrvPagos_Proxy);
|
|
RegisterProxyClass(IsrvCuentas_IID, TsrvCuentas_Proxy);
|
|
RegisterProxyClass(IsrvComisiones_IID, TsrvComisiones_Proxy);
|
|
RegisterProxyClass(IsrvAsientos_IID, TsrvAsientos_Proxy);
|
|
RegisterProxyClass(IsrvIntervalos_IID, TsrvIntervalos_Proxy);
|
|
RegisterProxyClass(IsrvConfiguracion_IID, TsrvConfiguracion_Proxy);
|
|
RegisterProxyClass(IsrvCitas_IID, TsrvCitas_Proxy);
|
|
|
|
|
|
finalization
|
|
UnregisterROClass(TLoginInfo);
|
|
UnregisterROClass(TstImportes);
|
|
UnregisterProxyClass(IsrvContactos_IID);
|
|
UnregisterProxyClass(IsrvLogin_IID);
|
|
UnregisterProxyClass(IsrvPresupuestos_IID);
|
|
UnregisterProxyClass(IsrvPedidosProveedor_IID);
|
|
UnregisterProxyClass(IsrvAlbaranesCliente_IID);
|
|
UnregisterProxyClass(IsrvFacturasCliente_IID);
|
|
UnregisterProxyClass(IsrvAlmacenes_IID);
|
|
UnregisterProxyClass(IsrvArticulos_IID);
|
|
UnregisterProxyClass(IsrvMontajes_IID);
|
|
UnregisterProxyClass(IsrvFacturasProveedor_IID);
|
|
UnregisterProxyClass(IsrvPagos_IID);
|
|
UnregisterProxyClass(IsrvCuentas_IID);
|
|
UnregisterProxyClass(IsrvComisiones_IID);
|
|
UnregisterProxyClass(IsrvAsientos_IID);
|
|
UnregisterProxyClass(IsrvIntervalos_IID);
|
|
UnregisterProxyClass(IsrvConfiguracion_IID);
|
|
UnregisterProxyClass(IsrvCitas_IID);
|
|
|
|
end.
|