git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@100 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Source/Cliente/uBootStrap.pas

@@ -34,6 +34,9 @@ begin
     LoadModule('RecibosCliente_plugin.bpl');
     LoadModule('FacturasCliente_plugin.bpl');
 
+    LoadModule('PedidosProveedor_plugin.bpl');    
+    LoadModule('RecibosProveedor_plugin.bpl');    
+
   end;
 end;
 

Source/GUIBase/GUIBase.drc

@@ -35,4 +35,4 @@ END
 /* C:\Codigo Tecsitel\Source\GUIBase\uDialogBase.dfm */
 /* C:\Codigo Tecsitel\Source\GUIBase\uViewGrid.dfm */
 /* C:\Codigo Tecsitel\Source\GUIBase\GUIBase.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf7A.tmp */
+/* C:\Codigo Tecsitel\Source\GUIBase\GUIBase.drf */

Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Controller\AlbaranesCliente_controller.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfCE.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1B7.tmp */

Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Data\uDataModuleAlbaranesCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Data\AlbaranesCliente_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfCC.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1B5.tmp */

Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Model\AlbaranesCliente_model.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfCA.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1B3.tmp */

Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas

@@ -3,8 +3,8 @@ unit uBizAlbaranClienteServer;
 interface
 
 uses
-  schAlbaranesClienteServer_Intf, uDAInterfaces, uDADelta,
+  uDAInterfaces, uDADelta, uDABusinessProcessor,
-  uDADataTable, uDABusinessProcessor;
+  schAlbaranesClienteServer_Intf;
 
 const
   BIZ_SERVER_ALBARAN_CLIENTE = 'Server.AlbaranCliente';
@@ -20,8 +20,8 @@ type
 implementation
 
 uses
-  Dialogs, SysUtils, Variants, uDataModuleServer, uDAClasses, DARemoteService_Impl,
+  Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses,  uDataModuleServer,
-  schAlbaranesClienteClient_Intf, uBusinessUtils, uReferenciasUtils, uROClasses;
+  schAlbaranesClienteClient_Intf;
 
 { TBizAlbaranClienteServer }
 

Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Plugin\uPluginAlbaranesCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfDC.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1C5.tmp */

Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas

@@ -14,14 +14,11 @@ uses
   {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
   {Ancestor Implementation:} DataAbstractService_Impl,
   {Used RODLs:} DataAbstract4_Intf,
-  {Generated:} FactuGES_Intf, uDADataTable, uDABINAdapter, uDAClasses,
+  {Generated:}   uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
-  uDAInterfaces, uDAScriptingProvider,
+  uDAScriptingProvider, uDAClasses,
-  uDABusinessProcessor, uDADataStreamer, uDABin2DataStreamer;
+  FactuGES_Intf, uDAInterfaces;
-{
+
-  uDACDSDataTable, uDAInterfaces, DB,
+
-  frxClass, frxDBSet,  frxDCtrl, frxDMPExport, frxGradient,
-  frxChBox, frxCross, frxRich, frxChart, frxOLE, frxBarcode;
-}
 type
   { TsrvAlbaranesCliente }
   TsrvAlbaranesCliente = class(TDataAbstractService, IsrvAlbaranesCliente)

Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas.bak

@@ -12,32 +12,30 @@ interface
 uses
   {vcl:} Classes, SysUtils,
   {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
-  {Ancestor Implementation:} DARemoteService_Impl,
+  {Ancestor Implementation:} DataAbstractService_Impl,
-  {Used RODLs:} DataAbstract_Intf,
+  {Used RODLs:} DataAbstract4_Intf,
-  {Generated:} FactuGES_Intf, uDAScriptingProvider, uDABusinessProcessor,
+  {Generated:} FactuGES_Intf, uDADataTable, uDABINAdapter, uDAClasses,
-  uDAClasses, uDADataTable, uDABINAdapter,
+  uDAInterfaces, uDAScriptingProvider,
-
+  uDABusinessProcessor, uDADataStreamer, uDABin2DataStreamer;
+{
   uDACDSDataTable, uDAInterfaces, DB,
   frxClass, frxDBSet,  frxDCtrl, frxDMPExport, frxGradient,
   frxChBox, frxCross, frxRich, frxChart, frxOLE, frxBarcode;
-
+}
 type
   { TsrvAlbaranesCliente }
-  TsrvAlbaranesCliente = class(TDARemoteService, IsrvAlbaranesCliente)
+  TsrvAlbaranesCliente = class(TDataAbstractService, IsrvAlbaranesCliente)
-    DABINAdapter: TDABINAdapter;
     bpAlbaranesCliente: TDABusinessProcessor;
     bpAlbaranesCliente_Detalles: TDABusinessProcessor;
+    Bin2DataStreamer: TDABin2DataStreamer;
     schAlbaranesCliente: TDASchema;
     DADataDictionary: TDADataDictionary;
-    procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService;
+    procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
-      var ConnectionName: string);
+    procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer);
-    procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
-      const IncludeSchema: Boolean; const MaxRecords: Integer);
     procedure DARemoteServiceCreate(Sender: TObject);
   private
   protected
     { IsrvAlbaranesCliente methods }
-    function GetNextAutoInc(const GeneratorName: String): Integer;
     function GenerateReport(const ID: String): Binary;
     function GenerateEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
   end;
@@ -46,10 +44,10 @@ implementation
 
 {$R *.dfm}
 uses
-  Dialogs,
   {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils,
   schAlbaranesClienteClient_Intf, uRestriccionesUsuarioUtils,
-  uRptAlbaranesCliente_Server, uBizAlbaranClienteServer;
+//  uRptAlbaranesCliente_Server,
+  uBizAlbaranClienteServer;
 
 procedure Create_srvAlbaranesCliente(out anInstance : IUnknown);
 begin
@@ -57,12 +55,6 @@ begin
 end;
 
 { srvAlbaranesCliente }
-procedure TsrvAlbaranesCliente.DARemoteServiceBeforeAcquireConnection(
-  Sender: TDARemoteService; var ConnectionName: string);
-begin
-  ConnectionName := dmServer.ConnectionName;
-end;
-
 procedure TsrvAlbaranesCliente.DARemoteServiceBeforeGetDatasetData(
   const Dataset: IDADataset; const IncludeSchema: Boolean;
   const MaxRecords: Integer);
@@ -82,33 +74,38 @@ begin
   bpAlbaranesCliente.BusinessRulesID := BIZ_SERVER_ALBARAN_CLIENTE;
 end;
 
-function TsrvAlbaranesCliente.GenerateEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
+procedure TsrvAlbaranesCliente.DataAbstractServiceBeforeAcquireConnection(
-var
+  aSender: TObject; var aConnectionName: string);
-  AReportGenerator : TRptAlbaranesCliente;
 begin
+  ConnectionName := dmServer.ConnectionName;
+end;
+
+function TsrvAlbaranesCliente.GenerateEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
+//var
+//  AReportGenerator : TRptAlbaranesCliente;
+begin
+{
   AReportGenerator := TRptAlbaranesCliente.Create(nil);
   try
     Result := AReportGenerator.GenerarEtiquetas(ID, withRefCliente);
   finally
     FreeAndNIL(AReportGenerator);
   end;
+}
 end;
 
 function TsrvAlbaranesCliente.GenerateReport(const ID: String): Binary;
-var
+//var
-  AReportGenerator : TRptAlbaranesCliente;
+//  AReportGenerator : TRptAlbaranesCliente;
 begin
+{
   AReportGenerator := TRptAlbaranesCliente.Create(nil);
   try
     Result := AReportGenerator.GenerarAlbaran(ID);
   finally
     FreeAndNIL(AReportGenerator);
   end;
-end;
+}  
-
-function TsrvAlbaranesCliente.GetNextAutoInc(const GeneratorName: String): Integer;
-begin
-  Result := uDatabaseUtils.GetNextAutoInc(GeneratorName)
 end;
 
 initialization

Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.drc

@@ -27,4 +27,4 @@ END
 /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\uViewAlbaranDevCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\uEditorAlbaranDevCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\AlbaranesCliente_view.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfDA.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1C3.tmp */

Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.pas

@@ -14,9 +14,9 @@ uses
   {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
   {Ancestor Implementation:} DataAbstractService_Impl,
   {Used RODLs:} DataAbstract4_Intf,
-  {Generated:} FactuGES_Intf, uDADataTable, uDABINAdapter, uDAClasses,
+  {Generated:}   uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
-  uDAScriptingProvider, uDABusinessProcessor, uDAInterfaces, uDADataStreamer,
+  uDAScriptingProvider, uDAClasses,
-  uDABin2DataStreamer;
+  FactuGES_Intf, uDAInterfaces;
 
 type
   { TsrvAlmacenes }

Source/Modulos/Articulos/Servidor/srvArticulos_Impl.pas

@@ -14,9 +14,9 @@ uses
   {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
   {Ancestor Implementation:} DataAbstractService_Impl,
   {Used RODLs:} DataAbstract4_Intf,
-  {Generated:} FactuGES_Intf, uDADataTable, uDABINAdapter, uDAClasses,
+  {Generated:}   uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
-  uDAInterfaces, uDAScriptingProvider,
+  uDAScriptingProvider, uDAClasses,
-  uDABusinessProcessor, uDADataStreamer, uDABin2DataStreamer;
+  FactuGES_Intf, uDAInterfaces;
 
 type
   { TsrvArticulos }

Source/Modulos/Contactos/Controller/Contactos_controller.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Controller\Contactos_controller.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA0.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf189.tmp */

Source/Modulos/Contactos/Data/Contactos_data.drc

@@ -17,4 +17,4 @@ END
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\uDataModuleProveedores.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\uDataModuleEmpleados.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\Contactos_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf9E.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf187.tmp */

Source/Modulos/Contactos/Model/Contactos_model.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Model\Contactos_model.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf9C.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf185.tmp */

Source/Modulos/Contactos/Plugin/Contactos_plugin.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Plugin\uPluginContactos.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Plugin\Contactos_plugin.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA4.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf18D.tmp */

Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas

@@ -15,9 +15,9 @@ uses
   {Required:} uRORemoteDataModule,
   {Ancestor Implementation:} DataAbstractService_Impl,
   {Used RODLs:} DataAbstract4_Intf,
-  {Generated:} FactuGES_Intf, uDADataTable, uDABINAdapter, uDAClasses,
+  {Generated:}   uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
-  uDAInterfaces, uDAScriptingProvider,
+  uDAScriptingProvider, uDAClasses,
-  uDABusinessProcessor, uDADataStreamer, uDABin2DataStreamer;
+  FactuGES_Intf, uDAInterfaces;
 
 type
   { TsrvContactos }

Source/Modulos/Contactos/Views/Contactos_view.drc

@@ -45,4 +45,4 @@ END
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewDatosYSeleccionProveedor.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewDatosYSeleccionCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\Contactos_view.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA2.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf18B.tmp */

Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Controller\FacturasCliente_controller.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfD4.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1BD.tmp */

Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Data\uDataModuleFacturasCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Data\FacturasCliente_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfD2.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1BB.tmp */

Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Model\FacturasCliente_model.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfD0.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1B9.tmp */

Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas

@@ -3,13 +3,13 @@ unit uBizFacturasClienteServer;
 interface
 
 uses
-  schFacturasClienteServer_Intf, uDAInterfaces, uDADelta,
+  uDAInterfaces, uDADelta, uDABusinessProcessor,
-  uDADataTable, uDABusinessProcessor;
+  schFacturasClienteServer_Intf;
 
 const
   BIZ_SERVER_FACTURAS_CLIENTE = 'Server.FacturasCliente';
   REF_FACTURAS_CLIENTE = 'REF_FACTURAS_CLIENTE';
-  REF_ABONOS_CLIENTE = 'REF_ABONOS_CLIENTE';  
+  REF_ABONOS_CLIENTE = 'REF_ABONOS_CLIENTE';
   CTE_TIPO_ABONO = 'A';
   CTE_TIPO_FACTURA = 'F';
 
@@ -22,8 +22,8 @@ type
 implementation
 
 uses
-  Dialogs, SysUtils, Variants, uDataModuleServer, uDAClasses, DARemoteService_Impl,
+  Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses,  uDataModuleServer,
-  schFacturasClienteClient_Intf, uBusinessUtils, uReferenciasUtils, uROClasses;
+  schFacturasClienteClient_Intf;
 
 { TBizFacturasClienteServer }
 

Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Plugin\uPluginFacturasCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Plugin\FacturasCliente_plugin.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE0.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1C9.tmp */

Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas

@@ -14,10 +14,9 @@ uses
   {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
   {Ancestor Implementation:} DataAbstractService_Impl,
   {Used RODLs:} DataAbstract4_Intf,
-  {Generated:} FactuGES_Intf, uDAClasses, uDADataTable, uDABINAdapter,
+  {Generated:}   uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
-  uDAInterfaces, frxClass, DB, IBCustomDataSet, IBDatabase,
+  uDAScriptingProvider, uDAClasses,
-  uDABusinessProcessor, uDAScriptingProvider, uDACDSDataTable, uDADataStreamer,
+  FactuGES_Intf, uDAInterfaces;
-  uDABin2DataStreamer;
 
 type
   { TsrvFacturasCliente }

Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.drc

@@ -22,4 +22,4 @@ END
 /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\uEditorElegirArticulosFacturaCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\uEditorElegirFacturasCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\FacturasCliente_view.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfDE.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1C7.tmp */

Source/Modulos/Familias/Servidor/srvFamilias_Impl.pas

@@ -14,9 +14,9 @@ uses
   {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
   {Ancestor Implementation:} DataAbstractService_Impl,
   {Used RODLs:} DataAbstract4_Intf,
-  {Generated:} FactuGES_Intf, uDADataTable, uDABINAdapter, uDAClasses,
+  {Generated:}   uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
-  uDAScriptingProvider, uDABusinessProcessor, uDAInterfaces, uDADataStreamer,
+  uDAScriptingProvider, uDAClasses,
-  uDABin2DataStreamer;
+  FactuGES_Intf, uDAInterfaces;
 
 type
   { TsrvFamilias }

Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Controller\PresupuestosCliente_controller.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfC8.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1B1.tmp */

Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Data\uDataModulePresupuestosCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Data\PresupuestosCliente_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfC6.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1AF.tmp */

Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Model\PresupuestosCliente_model.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfC4.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1AD.tmp */

Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas

@@ -3,8 +3,8 @@ unit uBizPresupuestosClienteServer;
 interface
 
 uses
-  schPresupuestosClienteServer_Intf, uDAInterfaces, uDADelta,
+  uDAInterfaces, uDADelta, uDABusinessProcessor,
-  uDADataTable, uDABusinessProcessor;
+  schPresupuestosClienteServer_Intf;
 
 const
   BIZ_SERVER_PRESUPUESTOS_CLIENTE = 'Server.PresupuestosCliente';
@@ -19,12 +19,11 @@ type
 implementation
 
 uses
-  Dialogs, SysUtils, Variants, uDataModuleServer, uDAClasses, DARemoteService_Impl,
+  Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses,  uDataModuleServer,
-  schPresupuestosClienteClient_Intf, uBusinessUtils, uReferenciasUtils, uROClasses;
+  schPresupuestosClienteClient_Intf;
 
 { TBizPresupuestosClienteServer }
 
-
 procedure TBizPresupuestosClienteServer.BeforeProcessDelta(
   Sender: TDABusinessProcessor; const aDelta: IDADelta);
 var

Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Plugin\uPluginPresupuestosCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Plugin\PresupuestosCliente_plugin.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfD8.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1C1.tmp */

Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas

@@ -14,10 +14,9 @@ uses
   {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
   {Ancestor Implementation:} DataAbstractService_Impl,
   {Used RODLs:} DataAbstract4_Intf,
-  {Generated:} FactuGES_Intf, uDADataTable, uDABINAdapter, uDAClasses,
+  {Generated:}   uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
-  uDAInterfaces, uDAScriptingProvider,
+  uDAScriptingProvider, uDAClasses,
-  uDABusinessProcessor, uDADataStreamer, uDABin2DataStreamer;
+  FactuGES_Intf, uDAInterfaces;
-
 
 type
   { TsrvPresupuestosCliente }

Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.drc

@@ -23,4 +23,4 @@ END
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Views\uEditorElegirArticulosPresupuestoCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Views\uEditorPresupuestosClienteReport.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Views\PresupuestosCliente_view.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfD6.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1BF.tmp */

Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Data\uDataModuleRecibosCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Data\RecibosCliente_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBC.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1A5.tmp */

Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas

@@ -32,8 +32,8 @@ uses
   uDADesigntimeCall, uDataModuleBase,
 
   uIDataModuleRecibosCliente, uIDataModuleRecibosClienteReport,
-  uBizRecibosCliente, uBizPagosCliente, uDAInterfaces, uDAMemDataTable,
+  uBizRecibosCliente, uBizPagosCliente, uBizRecibosCliCompensados, uDAInterfaces,
-  uDADataStreamer, uDABin2DataStreamer, uDARemoteDataAdapter;
+  uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer, uDARemoteDataAdapter;
 
 type
   TDataModuleRecibosCliente = class(TDataModuleBase, IDataModuleRecibosCliente, IDataModuleRecibosClienteReport)
@@ -55,7 +55,6 @@ type
     function GetItem(const ID : Integer) : IBizRecibosCliente;
     function NewItem : IBizRecibosCliente;
     function GetReport(const ID: String): Binary;
-    
   end;
 
 implementation

Source/Modulos/Recibos de cliente/Model/RecibosCliente_model.dpk

@@ -26,7 +26,15 @@ package RecibosCliente_model;
 
 requires
   Base,
-  Contactos_model;
+  Contactos_model,
+  dbrtl,
+  rtl,
+  DataAbstract_Core_D11,
+  vcldb,
+  vcl,
+  dsnap,
+  adortl,
+  RemObjects_Core_D11;
 
 contains
   uIDataModuleRecibosCliente in 'Data\uIDataModuleRecibosCliente.pas',
@@ -34,6 +42,7 @@ contains
   uBizPagosCliente in 'uBizPagosCliente.pas',
   uIDataModuleRecibosClienteReport in 'Data\uIDataModuleRecibosClienteReport.pas',
   schRecibosClienteClient_Intf in 'schRecibosClienteClient_Intf.pas',
-  schRecibosClienteServer_Intf in 'schRecibosClienteServer_Intf.pas';
+  schRecibosClienteServer_Intf in 'schRecibosClienteServer_Intf.pas',
+  uBizRecibosCliCompensados in 'uBizRecibosCliCompensados.pas';
 
 end.

Source/Modulos/Recibos de cliente/Model/RecibosCliente_model.dproj

@@ -1,4 +1,5 @@
-<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <PropertyGroup>
     <ProjectGuid>{e2f6ada6-f893-403e-8ebc-dd36413017f6}</ProjectGuid>
     <MainSource>RecibosCliente_model.dpk</MainSource>
@@ -39,64 +40,32 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RecibosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
-      <Parameters Name="UseLauncher">False</Parameters>
-      <Parameters Name="LoadAllSymbols">True</Parameters>
-      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
-    </Parameters>
-    <Package_Options>
-      <Package_Options Name="ImplicitBuild">True</Package_Options>
-      <Package_Options Name="DesigntimeOnly">False</Package_Options>
-      <Package_Options Name="RuntimeOnly">False</Package_Options>
-    </Package_Options>
-    <VersionInfo>
-      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
-      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
-      <VersionInfo Name="MajorVer">1</VersionInfo>
-      <VersionInfo Name="MinorVer">0</VersionInfo>
-      <VersionInfo Name="Release">0</VersionInfo>
-      <VersionInfo Name="Build">0</VersionInfo>
-      <VersionInfo Name="Debug">False</VersionInfo>
-      <VersionInfo Name="PreRelease">False</VersionInfo>
-      <VersionInfo Name="Special">False</VersionInfo>
-      <VersionInfo Name="Private">False</VersionInfo>
-      <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">3082</VersionInfo>
-      <VersionInfo Name="CodePage">1252</VersionInfo>
-    </VersionInfo>
-    <VersionInfoKeys>
-      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
-      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
-      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
-      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
-      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
-      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
-    </VersionInfoKeys>
-    <Source>
-      <Source Name="MainSource">RecibosCliente_model.dpk</Source>
-    </Source>
-  </Delphi.Personality> </BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="RecibosCliente_model.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Lib\Base.dcp" />
+    <DCCReference Include="adortl.dcp" />
-    <DCCReference Include="..\..\Lib\Contactos_model.dcp" />
+    <DCCReference Include="Base.dcp" />
+    <DCCReference Include="Contactos_model.dcp" />
+    <DCCReference Include="DataAbstract_Core_D11.dcp" />
     <DCCReference Include="Data\uIDataModuleRecibosCliente.pas" />
     <DCCReference Include="Data\uIDataModuleRecibosClienteReport.pas" />
+    <DCCReference Include="dbrtl.dcp" />
+    <DCCReference Include="dsnap.dcp" />
+    <DCCReference Include="RemObjects_Core_D11.dcp" />
+    <DCCReference Include="rtl.dcp" />
     <DCCReference Include="schRecibosClienteClient_Intf.pas" />
     <DCCReference Include="schRecibosClienteServer_Intf.pas" />
     <DCCReference Include="uBizPagosCliente.pas" />
+    <DCCReference Include="uBizRecibosCliCompensados.pas" />
     <DCCReference Include="uBizRecibosCliente.pas" />
+    <DCCReference Include="vcl.dcp" />
+    <DCCReference Include="vcldb.dcp" />
   </ItemGroup>
 </Project>
-
 <!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=6006

Source/Modulos/Recibos de cliente/Model/RecibosCliente_model.rc

@@ -0,0 +1,22 @@
+1 VERSIONINFO
+FILEVERSION 1,0,0,0
+PRODUCTVERSION 1,0,0,0
+FILEFLAGSMASK 0x3FL
+FILEFLAGS 0x00L
+FILEOS 0x40004L
+FILETYPE 0x1L
+FILESUBTYPE 0x0L
+BEGIN
+    BLOCK "StringFileInfo"
+    BEGIN
+         BLOCK "0C0A04E4"
+         BEGIN
+              VALUE "FileVersion", "1.0.0.0\0"
+              VALUE "ProductVersion", "1.0.0.0\0"
+         END
+    END
+    BLOCK "VarFileInfo"
+    BEGIN
+         VALUE "Translation", 0x0C0A, 1252
+    END
+END

Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas

@@ -27,20 +27,16 @@ interface
 
 uses
   uDAInterfaces, uDADataTable, uDBSelectionListUtils, schRecibosClienteClient_Intf,
-  uBizPagosCliente, uBizContactos;
+  uBizPagosCliente, uBizRecibosCliCompensados, uBizContactos;
 
 const
   BIZ_CLIENT_IBIZRECIBOSCLIENTE = 'Client.IBizRecibosCliente';
-  BIZ_CLIENT_RECIBOS_COMPENSADOSCLI = 'Client.RecibosCompensadosCli';
 
   CTE_PENDIENTE = 'PENDIENTE';
   CTE_COBRADO = 'COBRADO';
   CTE_DEVUELTO = 'DEVUELTO';
 
 type
-  IBizRecibosCompensadosCli = interface(IRecibosCompensadosCli)
-  ['{F9C18EAC-6769-428C-ABFB-AD6639F413D9}']
-  end;
 
   IBizRecibosCliente = interface(IRecibosCliente)
   ['{93758493-260C-450D-9018-E5339C2E09B2}']
@@ -65,9 +61,6 @@ type
     property RecibosCompensados: IBizRecibosCompensadosCli read GetRecibosCompensados write SetRecibosCompensados;
   end;
 
-  TBizRecibosCompensadosCli = class(TRecibosCompensadosCliDataTableRules, IBizRecibosCompensadosCli)
-  end;
-
   TBizRecibosCliente = class(TRecibosClienteDataTableRules, IBizRecibosCliente, ISeleccionable)
   protected
     FPagos : IBizPagosCliente;
@@ -217,7 +210,6 @@ end;
 
 initialization
   RegisterDataTableRules(BIZ_CLIENT_IBIZRECIBOSCLIENTE, TBizRecibosCliente);
-  RegisterDataTableRules(BIZ_CLIENT_RECIBOS_COMPENSADOSCLI, TBizRecibosCompensadosCli);
 
 finalization
 

Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Plugin\uPluginRecibosCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Plugin\RecibosCliente_plugin.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfC2.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1AB.tmp */

Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm

@@ -1,6 +1,7 @@
 object srvRecibosCliente: TsrvRecibosCliente
   OldCreateOrder = True
   OnCreate = DARemoteServiceCreate
+  RequiresSession = True
   SessionManager = dmServer.SessionManager
   ConnectionName = 'IBX'
   ServiceSchema = schRecibosCliente

Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas

@@ -14,15 +14,9 @@ uses
   {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
   {Ancestor Implementation:} DataAbstractService_Impl,
   {Used RODLs:} DataAbstract4_Intf,
-  {Generated:} FactuGES_Intf, uDADataTable, uDABINAdapter, uDAClasses,
+  {Generated:}   uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
-  uDAInterfaces, uDAScriptingProvider,
+  uDAScriptingProvider, uDAClasses,
-  uDABusinessProcessor, uDADataStreamer, uDABin2DataStreamer;
+  FactuGES_Intf, uDAInterfaces;
-
-{
-  uDACDSDataTable, uDAInterfaces, DB,
-  frxClass, frxDBSet,  frxDCtrl, frxDMPExport, frxGradient,
-  frxChBox, frxCross, frxRich, frxChart, frxOLE, frxBarcode;
-}
 
 type
   { TsrvRecibosProveedor }

Source/Modulos/Tipos de IVA/Data/TiposIVA_data.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Data\uDataModuleTiposIVA.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Data\TiposIVA_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf8A.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf173.tmp */

Source/Modulos/Tipos de IVA/Model/TiposIVA_model.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Model\TiposIVA_model.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf88.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf171.tmp */

Source/Modulos/Tipos de IVA/Servidor/srvTiposIVA_Impl.pas

@@ -14,9 +14,9 @@ uses
   {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
   {Ancestor Implementation:} DataAbstractService_Impl,
   {Used RODLs:} DataAbstract4_Intf,
-  {Generated:} FactuGES_Intf, uDADataTable, uDABINAdapter, uDAClasses,
+  {Generated:}   uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
-  uDAScriptingProvider, uDABusinessProcessor, uDADataStreamer,
+  uDAScriptingProvider, uDAClasses,
-  uDABin2DataStreamer;
+  FactuGES_Intf, uDAInterfaces;
 
 type
   { TsrvTiposIVA }

Source/Servicios/FactuGES.RODL

@@ -143,6 +143,22 @@
 </Interface>
 </Interfaces>
 </Service>
+<Service Name="srvRecibosProveedor" UID="{7371CFA3-E8FE-4897-817B-5ECD3A1A2BB1}" Ancestor="DataAbstractService">
+<Interfaces>
+<Interface Name="Default" UID="{22580F16-8FFC-4FE0-BCDD-5533D5DB1F55}">
+<Operations>
+<Operation Name="GenerateReport" UID="{04293024-D9C5-4C05-A44F-3F59BF66D0AF}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="ID" DataType="Integer" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
 <Service Name="srvFacturasCliente" UID="{B4F37BBE-C464-45EA-86D3-73A1FED94AAA}" Ancestor="DataAbstractService">
 <Interfaces>
 <Interface Name="Default" UID="{56B4FFF0-AB1B-46B2-BA16-ABD5360F6311}">
@@ -159,6 +175,22 @@
 </Interface>
 </Interfaces>
 </Service>
+<Service Name="srvFacturasProveedor" UID="{B2B5EFA1-A7EE-4245-AA50-4DF252B771DE}" Ancestor="DataAbstractService">
+<Interfaces>
+<Interface Name="Default" UID="{7655160C-7023-452E-BB0E-C97E29B915E7}">
+<Operations>
+<Operation Name="GenerateReport" UID="{B1B95D4E-DC3A-41AF-BC71-D8F99D5B793F}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="FacturaID" DataType="String" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
 <Service Name="srvPresupuestosCliente" UID="{E9EDA019-251A-44CF-B681-A3159E292796}" Ancestor="DataAbstractService">
 <Interfaces>
 <Interface Name="Default" UID="{8A06D5A7-8461-4F6E-8A8B-EC49C84C45D1}">
@@ -175,6 +207,22 @@
 </Interface>
 </Interfaces>
 </Service>
+<Service Name="srvPedidosProveedor" UID="{130EDFD7-E5B7-4FB3-A0C2-892EA0904B10}" Ancestor="DataAbstractService">
+<Interfaces>
+<Interface Name="Default" UID="{3DCC03E4-E9CE-4798-99D4-7170C9CF815B}">
+<Operations>
+<Operation Name="GenerateReport" UID="{F038EDC3-4754-4A6D-B705-B75E994E7A95}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="ID" DataType="String" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
 <Service Name="srvAlbaranesCliente" UID="{04C0C0C5-2DA0-4BAA-B591-9EF79C303C51}" Ancestor="DataAbstractService">
 <Interfaces>
 <Interface Name="Default" UID="{6E910718-9AB0-47BB-9875-B0DE66A68D7A}">
@@ -201,6 +249,23 @@
 </Interface>
 </Interfaces>
 </Service>
+<Service Name="srvAlbaranesProveedor" UID="{6E7E1B20-A5C6-4570-84D2-CACB9965FC3D}" Ancestor="DataAbstractService">
+<Interfaces>
+<Interface Name="Default" UID="{66B71884-5CE4-4574-B825-60CDA956B628}">
+<Operations>
+<Operation Name="GenerateReport" UID="{C735D3BE-A3FE-49FA-8874-C5E4A7E01EB2}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="ID" DataType="String" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+
 </Services>
 <EventSinks>
 </EventSinks>

Source/Servicios/FactuGES_Intf.pas

@@ -34,9 +34,13 @@ const
   IsrvAlmacenes_IID : TGUID = '{F984D2A1-9922-4790-9B2D-A78ACFDAE82B}';
   IsrvArticulos_IID : TGUID = '{CFBE5841-DF0F-48AD-853E-A35FDA989E6E}';
   IsrvRecibosCliente_IID : TGUID = '{3B68252A-EE6A-4D37-B250-93F2DB940DDF}';
+  IsrvRecibosProveedor_IID : TGUID = '{22580F16-8FFC-4FE0-BCDD-5533D5DB1F55}';
   IsrvFacturasCliente_IID : TGUID = '{56B4FFF0-AB1B-46B2-BA16-ABD5360F6311}';
+  IsrvFacturasProveedor_IID : TGUID = '{7655160C-7023-452E-BB0E-C97E29B915E7}';
   IsrvPresupuestosCliente_IID : TGUID = '{8A06D5A7-8461-4F6E-8A8B-EC49C84C45D1}';
+  IsrvPedidosProveedor_IID : TGUID = '{3DCC03E4-E9CE-4798-99D4-7170C9CF815B}';
   IsrvAlbaranesCliente_IID : TGUID = '{6E910718-9AB0-47BB-9875-B0DE66A68D7A}';
+  IsrvAlbaranesProveedor_IID : TGUID = '{66B71884-5CE4-4574-B825-60CDA956B628}';
 
   { Event ID's }
 
@@ -53,9 +57,13 @@ type
   IsrvAlmacenes = interface;
   IsrvArticulos = interface;
   IsrvRecibosCliente = interface;
+  IsrvRecibosProveedor = interface;
   IsrvFacturasCliente = interface;
+  IsrvFacturasProveedor = interface;
   IsrvPresupuestosCliente = interface;
+  IsrvPedidosProveedor = interface;
   IsrvAlbaranesCliente = interface;
+  IsrvAlbaranesProveedor = interface;
 
   TRdxEmpresasArray = class;
 
@@ -334,6 +342,25 @@ type
     function GenerateReport(const ID: String): Binary;
   end;
 
+  { IsrvRecibosProveedor }
+  IsrvRecibosProveedor = interface(IDataAbstractService)
+    ['{22580F16-8FFC-4FE0-BCDD-5533D5DB1F55}']
+    function GenerateReport(const ID: Integer): Binary;
+  end;
+
+  { CosrvRecibosProveedor }
+  CosrvRecibosProveedor = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvRecibosProveedor;
+  end;
+
+  { TsrvRecibosProveedor_Proxy }
+  TsrvRecibosProveedor_Proxy = class(TDataAbstractService_Proxy, IsrvRecibosProveedor)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function GenerateReport(const ID: Integer): Binary;
+  end;
+
   { IsrvFacturasCliente }
   IsrvFacturasCliente = interface(IDataAbstractService)
     ['{56B4FFF0-AB1B-46B2-BA16-ABD5360F6311}']
@@ -353,6 +380,25 @@ type
     function GenerateReport(const FacturaID: String): Binary;
   end;
 
+  { IsrvFacturasProveedor }
+  IsrvFacturasProveedor = interface(IDataAbstractService)
+    ['{7655160C-7023-452E-BB0E-C97E29B915E7}']
+    function GenerateReport(const FacturaID: String): Binary;
+  end;
+
+  { CosrvFacturasProveedor }
+  CosrvFacturasProveedor = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvFacturasProveedor;
+  end;
+
+  { TsrvFacturasProveedor_Proxy }
+  TsrvFacturasProveedor_Proxy = class(TDataAbstractService_Proxy, IsrvFacturasProveedor)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function GenerateReport(const FacturaID: String): Binary;
+  end;
+
   { IsrvPresupuestosCliente }
   IsrvPresupuestosCliente = interface(IDataAbstractService)
     ['{8A06D5A7-8461-4F6E-8A8B-EC49C84C45D1}']
@@ -372,6 +418,25 @@ type
     function GenerateReport(const ID: String): Binary;
   end;
 
+  { IsrvPedidosProveedor }
+  IsrvPedidosProveedor = interface(IDataAbstractService)
+    ['{3DCC03E4-E9CE-4798-99D4-7170C9CF815B}']
+    function GenerateReport(const ID: String): Binary;
+  end;
+
+  { CosrvPedidosProveedor }
+  CosrvPedidosProveedor = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvPedidosProveedor;
+  end;
+
+  { TsrvPedidosProveedor_Proxy }
+  TsrvPedidosProveedor_Proxy = class(TDataAbstractService_Proxy, IsrvPedidosProveedor)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function GenerateReport(const ID: String): Binary;
+  end;
+
   { IsrvAlbaranesCliente }
   IsrvAlbaranesCliente = interface(IDataAbstractService)
     ['{6E910718-9AB0-47BB-9875-B0DE66A68D7A}']
@@ -393,6 +458,25 @@ type
     function GenerateEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
   end;
 
+  { IsrvAlbaranesProveedor }
+  IsrvAlbaranesProveedor = interface(IDataAbstractService)
+    ['{66B71884-5CE4-4574-B825-60CDA956B628}']
+    function GenerateReport(const ID: String): Binary;
+  end;
+
+  { CosrvAlbaranesProveedor }
+  CosrvAlbaranesProveedor = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvAlbaranesProveedor;
+  end;
+
+  { TsrvAlbaranesProveedor_Proxy }
+  TsrvAlbaranesProveedor_Proxy = class(TDataAbstractService_Proxy, IsrvAlbaranesProveedor)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function GenerateReport(const ID: String): Binary;
+  end;
+
 implementation
 
 uses
@@ -922,6 +1006,37 @@ begin
   end
 end;
 
+{ CosrvRecibosProveedor }
+
+class function CosrvRecibosProveedor.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvRecibosProveedor;
+begin
+  result := TsrvRecibosProveedor_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TsrvRecibosProveedor_Proxy }
+
+function TsrvRecibosProveedor_Proxy.__GetInterfaceName:string;
+begin
+  result := 'srvRecibosProveedor';
+end;
+
+function TsrvRecibosProveedor_Proxy.GenerateReport(const ID: Integer): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
+    __Message.Write('ID', TypeInfo(Integer), ID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
 { CosrvFacturasCliente }
 
 class function CosrvFacturasCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvFacturasCliente;
@@ -953,6 +1068,37 @@ begin
   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.GenerateReport(const FacturaID: String): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
+    __Message.Write('FacturaID', TypeInfo(String), FacturaID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
 { CosrvPresupuestosCliente }
 
 class function CosrvPresupuestosCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvPresupuestosCliente;
@@ -984,6 +1130,37 @@ begin
   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.GenerateReport(const ID: String): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
+    __Message.Write('ID', TypeInfo(String), ID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
 { CosrvAlbaranesCliente }
 
 class function CosrvAlbaranesCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvAlbaranesCliente;
@@ -1033,6 +1210,37 @@ begin
   end
 end;
 
+{ CosrvAlbaranesProveedor }
+
+class function CosrvAlbaranesProveedor.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvAlbaranesProveedor;
+begin
+  result := TsrvAlbaranesProveedor_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TsrvAlbaranesProveedor_Proxy }
+
+function TsrvAlbaranesProveedor_Proxy.__GetInterfaceName:string;
+begin
+  result := 'srvAlbaranesProveedor';
+end;
+
+function TsrvAlbaranesProveedor_Proxy.GenerateReport(const ID: String): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
+    __Message.Write('ID', TypeInfo(String), ID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
 initialization
   RegisterROClass(TRdxLoginInfo);
   RegisterROClass(TRdxEmpresasArray);
@@ -1047,9 +1255,13 @@ initialization
   RegisterProxyClass(IsrvAlmacenes_IID, TsrvAlmacenes_Proxy);
   RegisterProxyClass(IsrvArticulos_IID, TsrvArticulos_Proxy);
   RegisterProxyClass(IsrvRecibosCliente_IID, TsrvRecibosCliente_Proxy);
+  RegisterProxyClass(IsrvRecibosProveedor_IID, TsrvRecibosProveedor_Proxy);
   RegisterProxyClass(IsrvFacturasCliente_IID, TsrvFacturasCliente_Proxy);
+  RegisterProxyClass(IsrvFacturasProveedor_IID, TsrvFacturasProveedor_Proxy);
   RegisterProxyClass(IsrvPresupuestosCliente_IID, TsrvPresupuestosCliente_Proxy);
+  RegisterProxyClass(IsrvPedidosProveedor_IID, TsrvPedidosProveedor_Proxy);
   RegisterProxyClass(IsrvAlbaranesCliente_IID, TsrvAlbaranesCliente_Proxy);
+  RegisterProxyClass(IsrvAlbaranesProveedor_IID, TsrvAlbaranesProveedor_Proxy);
 
 
 finalization
@@ -1066,8 +1278,12 @@ finalization
   UnregisterProxyClass(IsrvAlmacenes_IID);
   UnregisterProxyClass(IsrvArticulos_IID);
   UnregisterProxyClass(IsrvRecibosCliente_IID);
+  UnregisterProxyClass(IsrvRecibosProveedor_IID);
   UnregisterProxyClass(IsrvFacturasCliente_IID);
+  UnregisterProxyClass(IsrvFacturasProveedor_IID);
   UnregisterProxyClass(IsrvPresupuestosCliente_IID);
+  UnregisterProxyClass(IsrvPedidosProveedor_IID);
   UnregisterProxyClass(IsrvAlbaranesCliente_IID);
+  UnregisterProxyClass(IsrvAlbaranesProveedor_IID);
 
 end.

Source/Servicios/FactuGES_Invk.pas

@@ -93,6 +93,13 @@ type
     procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
 
+  TsrvRecibosProveedor_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  published
+    procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
   TsrvFacturasCliente_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
@@ -100,6 +107,13 @@ type
     procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
 
+  TsrvFacturasProveedor_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  published
+    procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
   TsrvPresupuestosCliente_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
@@ -107,6 +121,13 @@ type
     procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
 
+  TsrvPedidosProveedor_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  published
+    procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
   TsrvAlbaranesCliente_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
@@ -115,6 +136,13 @@ type
     procedure Invoke_GenerateEtiquetas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
 
+  TsrvAlbaranesProveedor_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  published
+    procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
 implementation
 
 uses
@@ -296,6 +324,36 @@ begin
   end;
 end;
 
+{ TsrvRecibosProveedor_Invoker }
+
+procedure TsrvRecibosProveedor_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerateReport(const ID: Integer): Binary; }
+var
+  ID: Integer;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  lResult := nil;
+  try
+    __Message.Read('ID', TypeInfo(Integer), ID, []);
+
+    lResult := (__Instance as IsrvRecibosProveedor).GenerateReport(ID);
+
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvRecibosProveedor', 'GenerateReportResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
 { TsrvFacturasCliente_Invoker }
 
 procedure TsrvFacturasCliente_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@@ -326,6 +384,36 @@ begin
   end;
 end;
 
+{ TsrvFacturasProveedor_Invoker }
+
+procedure TsrvFacturasProveedor_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerateReport(const FacturaID: String): Binary; }
+var
+  FacturaID: String;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  lResult := nil;
+  try
+    __Message.Read('FacturaID', TypeInfo(String), FacturaID, []);
+
+    lResult := (__Instance as IsrvFacturasProveedor).GenerateReport(FacturaID);
+
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvFacturasProveedor', 'GenerateReportResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
 { TsrvPresupuestosCliente_Invoker }
 
 procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@@ -356,6 +444,36 @@ begin
   end;
 end;
 
+{ TsrvPedidosProveedor_Invoker }
+
+procedure TsrvPedidosProveedor_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerateReport(const ID: String): Binary; }
+var
+  ID: String;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  lResult := nil;
+  try
+    __Message.Read('ID', TypeInfo(String), ID, []);
+
+    lResult := (__Instance as IsrvPedidosProveedor).GenerateReport(ID);
+
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPedidosProveedor', 'GenerateReportResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
 { TsrvAlbaranesCliente_Invoker }
 
 procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@@ -416,5 +534,35 @@ begin
   end;
 end;
 
+{ TsrvAlbaranesProveedor_Invoker }
+
+procedure TsrvAlbaranesProveedor_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerateReport(const ID: String): Binary; }
+var
+  ID: String;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  lResult := nil;
+  try
+    __Message.Read('ID', TypeInfo(String), ID, []);
+
+    lResult := (__Instance as IsrvAlbaranesProveedor).GenerateReport(ID);
+
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesProveedor', 'GenerateReportResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
 initialization
 end.

Source/Servidor/Configuracion/srvConfiguracion_Impl.pas

@@ -14,10 +14,9 @@ uses
   {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
   {Ancestor Implementation:} DataAbstractService_Impl,
   {Used RODLs:} DataAbstract4_Intf,
-  {Generated:} FactuGES_Intf, uDAClasses, uDAScriptingProvider,
+  {Generated:}   uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
-  uDABusinessProcessor, uDADataTable, uDABINAdapter, uDADataStreamer,
+  uDAScriptingProvider, uDAClasses,
-  uDABin2DataStreamer;
+  FactuGES_Intf, uDAInterfaces;
-
 
 type
   { TsrvConfiguracion }
@@ -36,8 +35,8 @@ implementation
 
 {$R *.dfm}
 uses
-  {Generated:} FactuGES_Invk, uDAInterfaces, uDataModuleServer, Variants,
+  {Generated:} FactuGES_Invk, uDataModuleServer, Variants,  uROClasses;
-  uROClasses;
+  
 
 procedure Create_srvConfiguracion(out anInstance : IUnknown);
 begin

Source/Servidor/FactuGES_Server.dpr

@@ -67,7 +67,21 @@ uses
   schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
   schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
   schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
-  schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas';
+  schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
+  srvRecibosProveedor_Impl in '..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas' {srvRecibosProveedor: TDataAbstractService},
+  schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
+  schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
+  uBizFacturasClienteServer in '..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas',
+  srvFacturasProveedor_Impl in '..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas' {srvFacturasProveedor: TDataAbstractService},
+  schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
+  schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
+  srvAlbaranesProveedor_Impl in '..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas' {srvAlbaranesProveedor: TDataAbstractService},
+  schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
+  schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
+  srvPedidosProveedor_Impl in '..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas' {srvPedidosProveedor: TDataAbstractService},
+  schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
+  schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
+  uBizPedidosProveedorServer in '..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.dproj

@@ -1,154 +1,181 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-	<PropertyGroup>
+  <PropertyGroup>
-		<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
+    <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
-		<MainSource>FactuGES_Server.dpr</MainSource>
+    <MainSource>FactuGES_Server.dpr</MainSource>
-		<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
-		<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
-		<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
-		<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
+    <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
-	</PropertyGroup>
+  </PropertyGroup>
-	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
-		<Version>7.0</Version>
+    <Version>7.0</Version>
-		<DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
-		<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
-		<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
-		<DCC_MapFile>3</DCC_MapFile>
+    <DCC_MapFile>3</DCC_MapFile>
-		<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
+    <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
-		<DCC_Define>RELEASE</DCC_Define>
+    <DCC_Define>RELEASE</DCC_Define>
-	</PropertyGroup>
+  </PropertyGroup>
-	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-		<Version>7.0</Version>
+    <Version>7.0</Version>
-		<DCC_MapFile>3</DCC_MapFile>
+    <DCC_MapFile>3</DCC_MapFile>
-		<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
+    <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
-		<DCC_Define>DEBUG;</DCC_Define>
+    <DCC_Define>DEBUG;</DCC_Define>
-		<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
-	</PropertyGroup>
+  </PropertyGroup>
-	<ProjectExtensions>
+  <ProjectExtensions>
-		<Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
-		<Borland.ProjectType/>
+    <Borland.ProjectType />
-		<BorlandProject>
+    <BorlandProject>
-			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">3</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">domingo, 30 de septiembre de 2007 20:47</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">3</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">domingo, 30 de septiembre de 2007 20:47</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-						<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
+      
-					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+      <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
-	</ProjectExtensions>
+    </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
-	<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
+  </ProjectExtensions>
-	<ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
-		<DelphiCompile Include="FactuGES_Server.dpr">
+  <ItemGroup>
-			<MainSource>MainSource</MainSource>
+    <DelphiCompile Include="FactuGES_Server.dpr">
-		</DelphiCompile>
+      <MainSource>MainSource</MainSource>
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
+    </DelphiCompile>
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
-		<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
-			<Form>srvEmpresas</Form>
+    <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
-			<DesignClass>TDARemoteService</DesignClass>
+      <Form>srvEmpresas</Form>
-		</DCCReference>
+      <DesignClass>TDARemoteService</DesignClass>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
-		<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
-		<DCCReference Include="..\Base\schBase_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Base\schBase_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
-			<Form>srvAlbaranesCliente</Form>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvAlbaranesCliente</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
-			<Form>srvAlmacenes</Form>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
-			<DesignClass>TDARemoteService</DesignClass>
+      <Form>srvAlbaranesProveedor</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
+      <Form>srvAlmacenes</Form>
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
+      <DesignClass>TDARemoteService</DesignClass>
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
+    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
+    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
+    <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
-			<Form>srvContactos</Form>
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
-			<DesignClass>TDARemoteService</DesignClass>
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
-		<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
-			<Form>srvFacturasCliente</Form>
+    <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvContactos</Form>
-		</DCCReference>
+      <DesignClass>TDARemoteService</DesignClass>
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
-		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
-		<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
+      <Form>srvFacturasCliente</Form>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
-			<Form>RptPresupuestosCliente</Form>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
-		</DCCReference>
+      <Form>srvFacturasProveedor</Form>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
+      <DesignClass>TDataAbstractService</DesignClass>
-			<Form>srvPresupuestosCliente</Form>
+    </DCCReference>
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
-			<Form>srvRecibosCliente</Form>
+    <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
-		<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
+      <Form>srvPedidosProveedor</Form>
-		<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
+    </DCCReference>
-		<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
-			<Form>srvConfiguracion</Form>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
-		<DCCReference Include="Configuracion\uConexionBD.pas">
+      <Form>RptPresupuestosCliente</Form>
-			<Form>frConexionBD</Form>
+    </DCCReference>
-			<DesignClass>TFrame</DesignClass>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
-		</DCCReference>
+      <Form>srvPresupuestosCliente</Form>
-		<DCCReference Include="Configuracion\uConfGeneral.pas">
+      <DesignClass>TDataAbstractService</DesignClass>
-			<Form>frConfGeneral</Form>
+    </DCCReference>
-			<DesignClass>TFrame</DesignClass>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
-		<DCCReference Include="Configuracion\uConfiguracion.pas">
+    <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
-			<Form>fConfiguracion</Form>
+      <Form>srvRecibosCliente</Form>
-			<DesignClass>TForm</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
-			<Form>FrameConfiguracion</Form>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
-			<DesignClass>TFrame</DesignClass>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
-		</DCCReference>
+      <Form>srvRecibosProveedor</Form>
-		<DCCReference Include="srvLogin_Impl.pas">
+      <DesignClass>TDataAbstractService</DesignClass>
-			<Form>srvLogin</Form>
+    </DCCReference>
-			<DesignClass>TDARemoteService</DesignClass>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
-		<DCCReference Include="uAcercaDe.pas">
+    <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
-			<Form>fAcercaDe</Form>
+    <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
-		<DCCReference Include="uDataModuleServer.pas">
+    <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
-			<Form>dmServer</Form>
+      <Form>srvConfiguracion</Form>
-			<DesignClass>TDataModule</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="uServerMainForm.pas">
+    <DCCReference Include="Configuracion\uConexionBD.pas">
-			<Form>fServerForm</Form>
+      <Form>frConexionBD</Form>
-		</DCCReference>
+      <DesignClass>TFrame</DesignClass>
-		<DCCReference Include="Utiles\RegExpr.pas"/>
+    </DCCReference>
-		<DCCReference Include="Utiles\uBusinessUtils.pas"/>
+    <DCCReference Include="Configuracion\uConfGeneral.pas">
-		<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
+      <Form>frConfGeneral</Form>
-		<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
+      <DesignClass>TFrame</DesignClass>
-		<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
+    </DCCReference>
-		<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
+    <DCCReference Include="Configuracion\uConfiguracion.pas">
-		<DCCReference Include="Utiles\uServerAppUtils.pas"/>
+      <Form>fConfiguracion</Form>
-		<DCCReference Include="Utiles\uSesionesUtils.pas"/>
+      <DesignClass>TForm</DesignClass>
-	</ItemGroup>
+    </DCCReference>
+    <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
+      <Form>FrameConfiguracion</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="srvLogin_Impl.pas">
+      <Form>srvLogin</Form>
+      <DesignClass>TDARemoteService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uAcercaDe.pas">
+      <Form>fAcercaDe</Form>
+    </DCCReference>
+    <DCCReference Include="uDataModuleServer.pas">
+      <Form>dmServer</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uServerMainForm.pas">
+      <Form>fServerForm</Form>
+    </DCCReference>
+    <DCCReference Include="Utiles\RegExpr.pas" />
+    <DCCReference Include="Utiles\uBusinessUtils.pas" />
+    <DCCReference Include="Utiles\uDatabaseUtils.pas" />
+    <DCCReference Include="Utiles\uReferenciasUtils.pas" />
+    <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
+    <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
+    <DCCReference Include="Utiles\uServerAppUtils.pas" />
+    <DCCReference Include="Utiles\uSesionesUtils.pas" />
+  </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "3.0.0.0\0"
               VALUE "ProductVersion", "3.0.0.0\0"
-              VALUE "CompileDate", "jueves, 15 de noviembre de 2007 13:47\0"
+              VALUE "CompileDate", "jueves, 15 de noviembre de 2007 19:54\0"
          END
     END
     BLOCK "VarFileInfo"