diff --git a/Source/Cliente/uBootStrap.pas b/Source/Cliente/uBootStrap.pas index e5191ae1..86dd8ef0 100644 --- a/Source/Cliente/uBootStrap.pas +++ b/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; diff --git a/Source/GUIBase/GUIBase.drc b/Source/GUIBase/GUIBase.drc index 4f57aa3b..c1adf14b 100644 --- a/Source/GUIBase/GUIBase.drc +++ b/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 */ diff --git a/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.drc b/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.drc index 367beab6..fc278cf3 100644 --- a/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.drc +++ b/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 */ diff --git a/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.drc b/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.drc index fb2b7f9e..0057b41c 100644 --- a/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.drc +++ b/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 */ diff --git a/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.drc b/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.drc index 524a6baf..966d73c6 100644 --- a/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.drc +++ b/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 */ diff --git a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas index f906dd45..d4c7e8f7 100644 --- a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas +++ b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas @@ -3,8 +3,8 @@ unit uBizAlbaranClienteServer; interface uses - schAlbaranesClienteServer_Intf, uDAInterfaces, uDADelta, - uDADataTable, uDABusinessProcessor; + uDAInterfaces, uDADelta, uDABusinessProcessor, + schAlbaranesClienteServer_Intf; const BIZ_SERVER_ALBARAN_CLIENTE = 'Server.AlbaranCliente'; @@ -20,8 +20,8 @@ type implementation uses - Dialogs, SysUtils, Variants, uDataModuleServer, uDAClasses, DARemoteService_Impl, - schAlbaranesClienteClient_Intf, uBusinessUtils, uReferenciasUtils, uROClasses; + Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses, uDataModuleServer, + schAlbaranesClienteClient_Intf; { TBizAlbaranClienteServer } diff --git a/Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.drc b/Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.drc index 615595a5..d7f33921 100644 --- a/Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.drc +++ b/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 */ diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas index d7bcd166..fb958d66 100644 --- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas +++ b/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, - uDAInterfaces, uDAScriptingProvider, - uDABusinessProcessor, uDADataStreamer, uDABin2DataStreamer; -{ - uDACDSDataTable, uDAInterfaces, DB, - frxClass, frxDBSet, frxDCtrl, frxDMPExport, frxGradient, - frxChBox, frxCross, frxRich, frxChart, frxOLE, frxBarcode; -} + {Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer, + uDAScriptingProvider, uDAClasses, + FactuGES_Intf, uDAInterfaces; + + type { TsrvAlbaranesCliente } TsrvAlbaranesCliente = class(TDataAbstractService, IsrvAlbaranesCliente) diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas.bak b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas.bak index f80cf026..d7bcd166 100644 --- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas.bak +++ b/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, - {Used RODLs:} DataAbstract_Intf, - {Generated:} FactuGES_Intf, uDAScriptingProvider, uDABusinessProcessor, - uDAClasses, uDADataTable, uDABINAdapter, - + {Ancestor Implementation:} DataAbstractService_Impl, + {Used RODLs:} DataAbstract4_Intf, + {Generated:} FactuGES_Intf, uDADataTable, uDABINAdapter, uDAClasses, + 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) - DABINAdapter: TDABINAdapter; + TsrvAlbaranesCliente = class(TDataAbstractService, IsrvAlbaranesCliente) bpAlbaranesCliente: TDABusinessProcessor; bpAlbaranesCliente_Detalles: TDABusinessProcessor; + Bin2DataStreamer: TDABin2DataStreamer; schAlbaranesCliente: TDASchema; DADataDictionary: TDADataDictionary; - procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService; - var ConnectionName: string); - procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; - const IncludeSchema: Boolean; const MaxRecords: Integer); + procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string); + 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; -var - AReportGenerator : TRptAlbaranesCliente; +procedure TsrvAlbaranesCliente.DataAbstractServiceBeforeAcquireConnection( + aSender: TObject; var aConnectionName: string); 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 - AReportGenerator : TRptAlbaranesCliente; +//var +// 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 diff --git a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.drc b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.drc index d75911b2..fb54f9c4 100644 --- a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.drc +++ b/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 */ diff --git a/Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.pas b/Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.pas index 60b85f16..0f9b948e 100644 --- a/Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.pas +++ b/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, - uDAScriptingProvider, uDABusinessProcessor, uDAInterfaces, uDADataStreamer, - uDABin2DataStreamer; + {Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer, + uDAScriptingProvider, uDAClasses, + FactuGES_Intf, uDAInterfaces; type { TsrvAlmacenes } diff --git a/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.pas b/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.pas index b314c08c..c59e56db 100644 --- a/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.pas +++ b/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, - uDAInterfaces, uDAScriptingProvider, - uDABusinessProcessor, uDADataStreamer, uDABin2DataStreamer; + {Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer, + uDAScriptingProvider, uDAClasses, + FactuGES_Intf, uDAInterfaces; type { TsrvArticulos } diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.drc b/Source/Modulos/Contactos/Controller/Contactos_controller.drc index 3d13ec8d..168c6f9a 100644 --- a/Source/Modulos/Contactos/Controller/Contactos_controller.drc +++ b/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 */ diff --git a/Source/Modulos/Contactos/Data/Contactos_data.drc b/Source/Modulos/Contactos/Data/Contactos_data.drc index d8ec29d8..9da2a7e2 100644 --- a/Source/Modulos/Contactos/Data/Contactos_data.drc +++ b/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 */ diff --git a/Source/Modulos/Contactos/Model/Contactos_model.drc b/Source/Modulos/Contactos/Model/Contactos_model.drc index bf0b9f28..fa91b7e3 100644 --- a/Source/Modulos/Contactos/Model/Contactos_model.drc +++ b/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 */ diff --git a/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc b/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc index 08236be0..f36a1f6b 100644 --- a/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc +++ b/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 */ diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas index 4babb806..5608adb3 100644 --- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas +++ b/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, - uDAInterfaces, uDAScriptingProvider, - uDABusinessProcessor, uDADataStreamer, uDABin2DataStreamer; + {Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer, + uDAScriptingProvider, uDAClasses, + FactuGES_Intf, uDAInterfaces; type { TsrvContactos } diff --git a/Source/Modulos/Contactos/Views/Contactos_view.drc b/Source/Modulos/Contactos/Views/Contactos_view.drc index 09b03030..1be20785 100644 --- a/Source/Modulos/Contactos/Views/Contactos_view.drc +++ b/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 */ diff --git a/Source/Modulos/Contactos/Views/Contactos_view.identcache b/Source/Modulos/Contactos/Views/Contactos_view.identcache index 7c5a27da..75324b6a 100644 Binary files a/Source/Modulos/Contactos/Views/Contactos_view.identcache and b/Source/Modulos/Contactos/Views/Contactos_view.identcache differ diff --git a/Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.drc b/Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.drc index 04ffb794..2a4c1b64 100644 --- a/Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.drc +++ b/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 */ diff --git a/Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.drc b/Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.drc index cb2a0515..59e1f455 100644 --- a/Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.drc +++ b/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 */ diff --git a/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.drc b/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.drc index 1cb53178..39305625 100644 --- a/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.drc +++ b/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 */ diff --git a/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas b/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas index eb3c83e7..b1c2bcd2 100644 --- a/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas +++ b/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas @@ -3,13 +3,13 @@ unit uBizFacturasClienteServer; interface uses - schFacturasClienteServer_Intf, uDAInterfaces, uDADelta, - uDADataTable, uDABusinessProcessor; + uDAInterfaces, uDADelta, 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, - schFacturasClienteClient_Intf, uBusinessUtils, uReferenciasUtils, uROClasses; + Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses, uDataModuleServer, + schFacturasClienteClient_Intf; { TBizFacturasClienteServer } diff --git a/Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.drc b/Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.drc index 55089463..1d12628e 100644 --- a/Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.drc +++ b/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 */ diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas index 38eecf30..1a14d34d 100644 --- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas +++ b/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, - uDAInterfaces, frxClass, DB, IBCustomDataSet, IBDatabase, - uDABusinessProcessor, uDAScriptingProvider, uDACDSDataTable, uDADataStreamer, - uDABin2DataStreamer; + {Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer, + uDAScriptingProvider, uDAClasses, + FactuGES_Intf, uDAInterfaces; type { TsrvFacturasCliente } diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.drc b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.drc index 651fc614..196605f5 100644 --- a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.drc +++ b/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 */ diff --git a/Source/Modulos/Familias/Servidor/srvFamilias_Impl.pas b/Source/Modulos/Familias/Servidor/srvFamilias_Impl.pas index 8287643b..3fca6745 100644 --- a/Source/Modulos/Familias/Servidor/srvFamilias_Impl.pas +++ b/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, - uDAScriptingProvider, uDABusinessProcessor, uDAInterfaces, uDADataStreamer, - uDABin2DataStreamer; + {Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer, + uDAScriptingProvider, uDAClasses, + FactuGES_Intf, uDAInterfaces; type { TsrvFamilias } diff --git a/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.drc b/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.drc index 4280c719..12eead19 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.drc +++ b/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 */ diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.dcu b/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.dcu index 787f8f45..87678e68 100644 Binary files a/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.dcu and b/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.dcu differ diff --git a/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.drc b/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.drc index 2d27adef..a26f15c8 100644 --- a/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.drc +++ b/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 */ diff --git a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.drc b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.drc index 4f543e0a..844c7624 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.drc +++ b/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 */ diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas index 75322f8a..dc0784b0 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas @@ -3,8 +3,8 @@ unit uBizPresupuestosClienteServer; interface uses - schPresupuestosClienteServer_Intf, uDAInterfaces, uDADelta, - uDADataTable, uDABusinessProcessor; + uDAInterfaces, uDADelta, uDABusinessProcessor, + schPresupuestosClienteServer_Intf; const BIZ_SERVER_PRESUPUESTOS_CLIENTE = 'Server.PresupuestosCliente'; @@ -19,12 +19,11 @@ type implementation uses - Dialogs, SysUtils, Variants, uDataModuleServer, uDAClasses, DARemoteService_Impl, - schPresupuestosClienteClient_Intf, uBusinessUtils, uReferenciasUtils, uROClasses; + Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses, uDataModuleServer, + schPresupuestosClienteClient_Intf; { TBizPresupuestosClienteServer } - procedure TBizPresupuestosClienteServer.BeforeProcessDelta( Sender: TDABusinessProcessor; const aDelta: IDADelta); var diff --git a/Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.drc b/Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.drc index f7f05428..7ab3dce7 100644 --- a/Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.drc +++ b/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 */ diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas index 65d3952a..2dbe8d20 100644 --- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas +++ b/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, - uDAInterfaces, uDAScriptingProvider, - uDABusinessProcessor, uDADataStreamer, uDABin2DataStreamer; - + {Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer, + uDAScriptingProvider, uDAClasses, + FactuGES_Intf, uDAInterfaces; type { TsrvPresupuestosCliente } diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.drc b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.drc index 3ff66b0d..4ae60999 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.drc +++ b/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 */ diff --git a/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc b/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc index a53314d3..bc22054e 100644 --- a/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc +++ b/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 */ diff --git a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas index ce79f6ab..fc72e5b9 100644 --- a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas +++ b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas @@ -32,8 +32,8 @@ uses uDADesigntimeCall, uDataModuleBase, uIDataModuleRecibosCliente, uIDataModuleRecibosClienteReport, - uBizRecibosCliente, uBizPagosCliente, uDAInterfaces, uDAMemDataTable, - uDADataStreamer, uDABin2DataStreamer, uDARemoteDataAdapter; + uBizRecibosCliente, uBizPagosCliente, uBizRecibosCliCompensados, uDAInterfaces, + 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 diff --git a/Source/Modulos/Recibos de cliente/Model/RecibosCliente_model.dpk b/Source/Modulos/Recibos de cliente/Model/RecibosCliente_model.dpk index 60780918..a1c8bb29 100644 --- a/Source/Modulos/Recibos de cliente/Model/RecibosCliente_model.dpk +++ b/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. diff --git a/Source/Modulos/Recibos de cliente/Model/RecibosCliente_model.dproj b/Source/Modulos/Recibos de cliente/Model/RecibosCliente_model.dproj index c37904bc..8a35c0fb 100644 --- a/Source/Modulos/Recibos de cliente/Model/RecibosCliente_model.dproj +++ b/Source/Modulos/Recibos de cliente/Model/RecibosCliente_model.dproj @@ -1,4 +1,5 @@ - + + {e2f6ada6-f893-403e-8ebc-dd36413017f6} RecibosCliente_model.dpk @@ -39,64 +40,32 @@ Delphi.Personality Package - - False - True - False - - - True - False - False - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - - RecibosCliente_model.dpk - - +FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0RecibosCliente_model.dpk MainSource - - + + + + + + + + + + + -