diff --git a/Build/BuildRoberto.fbl5 b/Build/BuildRoberto.fbl5 index 2963ab9f..fa44938f 100644 Binary files a/Build/BuildRoberto.fbl5 and b/Build/BuildRoberto.fbl5 differ diff --git a/Build/buildlog.html b/Build/buildlog.html index 28edad59..fd1d833a 100644 --- a/Build/buildlog.html +++ b/Build/buildlog.html @@ -65,19 +65,19 @@ function domCollapseAll(show){ Date : -30/07/2007 +01/08/2007 Start Time : -20:55:34 +19:23:22 End Time : -20:58:56 +19:26:52 Run Time : -00:03:22 +00:03:30
@@ -94,16 +94,16 @@ function domCollapseAll(show){ - - - + + + - - + + @@ -125,17 +125,17 @@ source_path = E:\Codigo (Luis Le - - + + - - - + + + @@ -144,7 +144,7 @@ source_path = E:\Codigo (Luis Le [Microsoft .NET Framework, versión 2.0.50727.832] Copyright (C) Microsoft Corporation 2005. Reservados todos los derechos. -Operación Generar iniciada a las 30/07/2007 20:55:42. +Operación Generar iniciada a las 01/08/2007 19:23:28. __________________________________________________ Proyecto "E:\Codigo (Luis León)\Source\ClearFiles.msbuild" (CleanFiles destino(s)): @@ -364,15 +364,69 @@ Destino CleanFiles: Eliminando archivo "Base\uViewRegistryUtils.dcu". Comando: del "Base\uViewRegistryUtils.dcu" + Eliminando archivo "Cliente\EBase64.dcu". + Comando: + del "Cliente\EBase64.dcu" + Eliminando archivo "Cliente\EConsts.dcu". + Comando: + del "Cliente\EConsts.dcu" + Eliminando archivo "Cliente\ECore.dcu". + Comando: + del "Cliente\ECore.dcu" + Eliminando archivo "Cliente\EEncrypt.dcu". + Comando: + del "Cliente\EEncrypt.dcu" + Eliminando archivo "Cliente\EHook.dcu". + Comando: + del "Cliente\EHook.dcu" + Eliminando archivo "Cliente\ELang.dcu". + Comando: + del "Cliente\ELang.dcu" + Eliminando archivo "Cliente\EListView.dcu". + Comando: + del "Cliente\EListView.dcu" + Eliminando archivo "Cliente\ELogManager.dcu". + Comando: + del "Cliente\ELogManager.dcu" + Eliminando archivo "Cliente\ESockets.dcu". + Comando: + del "Cliente\ESockets.dcu" + Eliminando archivo "Cliente\ETarGZip.dcu". + Comando: + del "Cliente\ETarGZip.dcu" + Eliminando archivo "Cliente\ETypes.dcu". + Comando: + del "Cliente\ETypes.dcu" + Eliminando archivo "Cliente\EWebTools.dcu". + Comando: + del "Cliente\EWebTools.dcu" + Eliminando archivo "Cliente\ExceptionLog.dcu". + Comando: + del "Cliente\ExceptionLog.dcu" + Eliminando archivo "Cliente\EXMLBuilder.dcu". + Comando: + del "Cliente\EXMLBuilder.dcu" + Eliminando archivo "Cliente\EZLib.dcu". + Comando: + del "Cliente\EZLib.dcu" Eliminando archivo "Cliente\uAcercaDe.dcu". Comando: del "Cliente\uAcercaDe.dcu" + Eliminando archivo "Cliente\uClienteUtils.dcu". + Comando: + del "Cliente\uClienteUtils.dcu" Eliminando archivo "Cliente\uMainMenuController.dcu". Comando: del "Cliente\uMainMenuController.dcu" + Eliminando archivo "Cliente\uMenuUtils.dcu". + Comando: + del "Cliente\uMenuUtils.dcu" Eliminando archivo "Cliente\uNavPaneController.dcu". Comando: del "Cliente\uNavPaneController.dcu" + Eliminando archivo "Cliente\uNavPaneUtils.dcu". + Comando: + del "Cliente\uNavPaneUtils.dcu" Eliminando archivo "Cliente\uPantallaPrincipal.dcu". Comando: del "Cliente\uPantallaPrincipal.dcu" @@ -391,99 +445,6 @@ Destino CleanFiles: Eliminando archivo "DataAbstract_D10\DataAbstract_D10.dcu". Comando: del "DataAbstract_D10\DataAbstract_D10.dcu" - Eliminando archivo "DataAbstract_D10\uROBinaryHelpers.dcu". - Comando: - del "DataAbstract_D10\uROBinaryHelpers.dcu" - Eliminando archivo "DataAbstract_D10\uROBinMessage.dcu". - Comando: - del "DataAbstract_D10\uROBinMessage.dcu" - Eliminando archivo "DataAbstract_D10\uROCipher.dcu". - Comando: - del "DataAbstract_D10\uROCipher.dcu" - Eliminando archivo "DataAbstract_D10\uroCipher1.dcu". - Comando: - del "DataAbstract_D10\uroCipher1.dcu" - Eliminando archivo "DataAbstract_D10\uROCiphers.dcu". - Comando: - del "DataAbstract_D10\uROCiphers.dcu" - Eliminando archivo "DataAbstract_D10\uROClasses.dcu". - Comando: - del "DataAbstract_D10\uROClasses.dcu" - Eliminando archivo "DataAbstract_D10\uROClient.dcu". - Comando: - del "DataAbstract_D10\uROClient.dcu" - Eliminando archivo "DataAbstract_D10\uROClientIntf.dcu". - Comando: - del "DataAbstract_D10\uROClientIntf.dcu" - Eliminando archivo "DataAbstract_D10\uROCompression.dcu". - Comando: - del "DataAbstract_D10\uROCompression.dcu" - Eliminando archivo "DataAbstract_D10\uRODECConst.dcu". - Comando: - del "DataAbstract_D10\uRODECConst.dcu" - Eliminando archivo "DataAbstract_D10\uRODECUtil.dcu". - Comando: - del "DataAbstract_D10\uRODECUtil.dcu" - Eliminando archivo "DataAbstract_D10\uRODL.dcu". - Comando: - del "DataAbstract_D10\uRODL.dcu" - Eliminando archivo "DataAbstract_D10\uRODLToXML.dcu". - Comando: - del "DataAbstract_D10\uRODLToXML.dcu" - Eliminando archivo "DataAbstract_D10\uRODynamicRequest.dcu". - Comando: - del "DataAbstract_D10\uRODynamicRequest.dcu" - Eliminando archivo "DataAbstract_D10\uROEncryption.dcu". - Comando: - del "DataAbstract_D10\uROEncryption.dcu" - Eliminando archivo "DataAbstract_D10\uROEventRepository.dcu". - Comando: - del "DataAbstract_D10\uROEventRepository.dcu" - Eliminando archivo "DataAbstract_D10\uROHash.dcu". - Comando: - del "DataAbstract_D10\uROHash.dcu" - Eliminando archivo "DataAbstract_D10\uROHTTPTools.dcu". - Comando: - del "DataAbstract_D10\uROHTTPTools.dcu" - Eliminando archivo "DataAbstract_D10\uROMSXML2_TLB.dcu". - Comando: - del "DataAbstract_D10\uROMSXML2_TLB.dcu" - Eliminando archivo "DataAbstract_D10\uROMSXMLImpl.dcu". - Comando: - del "DataAbstract_D10\uROMSXMLImpl.dcu" - Eliminando archivo "DataAbstract_D10\uRORemoteService.dcu". - Comando: - del "DataAbstract_D10\uRORemoteService.dcu" - Eliminando archivo "DataAbstract_D10\uRORes.dcu". - Comando: - del "DataAbstract_D10\uRORes.dcu" - Eliminando archivo "DataAbstract_D10\uROSerializer.dcu". - Comando: - del "DataAbstract_D10\uROSerializer.dcu" - Eliminando archivo "DataAbstract_D10\uROServiceComponent.dcu". - Comando: - del "DataAbstract_D10\uROServiceComponent.dcu" - Eliminando archivo "DataAbstract_D10\uROSessions.dcu". - Comando: - del "DataAbstract_D10\uROSessions.dcu" - Eliminando archivo "DataAbstract_D10\uROStreamSerializer.dcu". - Comando: - del "DataAbstract_D10\uROStreamSerializer.dcu" - Eliminando archivo "DataAbstract_D10\uROThread.dcu". - Comando: - del "DataAbstract_D10\uROThread.dcu" - Eliminando archivo "DataAbstract_D10\uROTypes.dcu". - Comando: - del "DataAbstract_D10\uROTypes.dcu" - Eliminando archivo "DataAbstract_D10\uROWinInetHttpChannel.dcu". - Comando: - del "DataAbstract_D10\uROWinInetHttpChannel.dcu" - Eliminando archivo "DataAbstract_D10\uROXMLIntf.dcu". - Comando: - del "DataAbstract_D10\uROXMLIntf.dcu" - Eliminando archivo "DataAbstract_D10\uROZLib.dcu". - Comando: - del "DataAbstract_D10\uROZLib.dcu" Eliminando archivo "Modulos\Albaranes de cliente\Controller\AlbaranesCliente_controller.dcu". Comando: del "Modulos\Albaranes de cliente\Controller\AlbaranesCliente_controller.dcu" @@ -499,30 +460,6 @@ Destino CleanFiles: Eliminando archivo "Modulos\Albaranes de cliente\Controller\uDetallesAlbaranClienteController.dcu". Comando: del "Modulos\Albaranes de cliente\Controller\uDetallesAlbaranClienteController.dcu" - Eliminando archivo "Modulos\Albaranes de cliente\Controller\uIEditorAlbaranCliente.dcu". - Comando: - del "Modulos\Albaranes de cliente\Controller\uIEditorAlbaranCliente.dcu" - Eliminando archivo "Modulos\Albaranes de cliente\Controller\uIEditorAlbaranDevCliente.dcu". - Comando: - del "Modulos\Albaranes de cliente\Controller\uIEditorAlbaranDevCliente.dcu" - Eliminando archivo "Modulos\Albaranes de cliente\Controller\uIEditorAlbaranesCliente.dcu". - Comando: - del "Modulos\Albaranes de cliente\Controller\uIEditorAlbaranesCliente.dcu" - Eliminando archivo "Modulos\Albaranes de cliente\Controller\uIEditorAlbaranesClientePreview.dcu". - Comando: - del "Modulos\Albaranes de cliente\Controller\uIEditorAlbaranesClientePreview.dcu" - Eliminando archivo "Modulos\Albaranes de cliente\Controller\uIEditorAlbaranesDevCliente.dcu". - Comando: - del "Modulos\Albaranes de cliente\Controller\uIEditorAlbaranesDevCliente.dcu" - Eliminando archivo "Modulos\Albaranes de cliente\Controller\uIEditorDireccionEntregaAlbaranCliente.dcu". - Comando: - del "Modulos\Albaranes de cliente\Controller\uIEditorDireccionEntregaAlbaranCliente.dcu" - Eliminando archivo "Modulos\Albaranes de cliente\Controller\uIEditorElegirAlbaranesCliente.dcu". - Comando: - del "Modulos\Albaranes de cliente\Controller\uIEditorElegirAlbaranesCliente.dcu" - Eliminando archivo "Modulos\Albaranes de cliente\Controller\uIEditorElegirArticulosAlbaranesCliente.dcu". - Comando: - del "Modulos\Albaranes de cliente\Controller\uIEditorElegirArticulosAlbaranesCliente.dcu" Eliminando archivo "Modulos\Albaranes de cliente\Controller\View\uIEditorAlbaranCliente.dcu". Comando: del "Modulos\Albaranes de cliente\Controller\View\uIEditorAlbaranCliente.dcu" @@ -652,30 +589,6 @@ Destino CleanFiles: Eliminando archivo "Modulos\Albaranes de proveedor\Controller\uDetallesAlbaranProveedorController.dcu". Comando: del "Modulos\Albaranes de proveedor\Controller\uDetallesAlbaranProveedorController.dcu" - Eliminando archivo "Modulos\Albaranes de proveedor\Controller\uIEditorAlbaranDevProveedor.dcu". - Comando: - del "Modulos\Albaranes de proveedor\Controller\uIEditorAlbaranDevProveedor.dcu" - Eliminando archivo "Modulos\Albaranes de proveedor\Controller\uIEditorAlbaranesDevProveedor.dcu". - Comando: - del "Modulos\Albaranes de proveedor\Controller\uIEditorAlbaranesDevProveedor.dcu" - Eliminando archivo "Modulos\Albaranes de proveedor\Controller\uIEditorAlbaranesProveedor.dcu". - Comando: - del "Modulos\Albaranes de proveedor\Controller\uIEditorAlbaranesProveedor.dcu" - Eliminando archivo "Modulos\Albaranes de proveedor\Controller\uIEditorAlbaranesProveedorPreview.dcu". - Comando: - del "Modulos\Albaranes de proveedor\Controller\uIEditorAlbaranesProveedorPreview.dcu" - Eliminando archivo "Modulos\Albaranes de proveedor\Controller\uIEditorAlbaranProveedor.dcu". - Comando: - del "Modulos\Albaranes de proveedor\Controller\uIEditorAlbaranProveedor.dcu" - Eliminando archivo "Modulos\Albaranes de proveedor\Controller\uIEditorDireccionEntregaAlbaranProveedor.dcu". - Comando: - del "Modulos\Albaranes de proveedor\Controller\uIEditorDireccionEntregaAlbaranProveedor.dcu" - Eliminando archivo "Modulos\Albaranes de proveedor\Controller\uIEditorElegirAlbaranesProveedor.dcu". - Comando: - del "Modulos\Albaranes de proveedor\Controller\uIEditorElegirAlbaranesProveedor.dcu" - Eliminando archivo "Modulos\Albaranes de proveedor\Controller\uIEditorElegirArticulosAlbaranesProveedor.dcu". - Comando: - del "Modulos\Albaranes de proveedor\Controller\uIEditorElegirArticulosAlbaranesProveedor.dcu" Eliminando archivo "Modulos\Albaranes de proveedor\Controller\View\uIEditorAlbaranDevProveedor.dcu". Comando: del "Modulos\Albaranes de proveedor\Controller\View\uIEditorAlbaranDevProveedor.dcu" @@ -934,24 +847,9 @@ Destino CleanFiles: Eliminando archivo "Modulos\Banca electronica\Controller\BancaElectronica_controller.dcu". Comando: del "Modulos\Banca electronica\Controller\BancaElectronica_controller.dcu" - Eliminando archivo "Modulos\Banca electronica\Controller\CVBNorma1958CSB.dcu". - Comando: - del "Modulos\Banca electronica\Controller\CVBNorma1958CSB.dcu" - Eliminando archivo "Modulos\Banca electronica\Controller\CVBNorma19CSB.dcu". - Comando: - del "Modulos\Banca electronica\Controller\CVBNorma19CSB.dcu" - Eliminando archivo "Modulos\Banca electronica\Controller\CVBNorma34CSB.dcu". - Comando: - del "Modulos\Banca electronica\Controller\CVBNorma34CSB.dcu" - Eliminando archivo "Modulos\Banca electronica\Controller\CVBUtils.dcu". - Comando: - del "Modulos\Banca electronica\Controller\CVBUtils.dcu" Eliminando archivo "Modulos\Banca electronica\Controller\uBancaElectronicaController.dcu". Comando: del "Modulos\Banca electronica\Controller\uBancaElectronicaController.dcu" - Eliminando archivo "Modulos\Banca electronica\Controller\uIEditorExportacionNorma19.dcu". - Comando: - del "Modulos\Banca electronica\Controller\uIEditorExportacionNorma19.dcu" Eliminando archivo "Modulos\Banca electronica\Controller\View\uIEditorExportacionNorma19.dcu". Comando: del "Modulos\Banca electronica\Controller\View\uIEditorExportacionNorma19.dcu" @@ -1570,12 +1468,6 @@ Destino CleanFiles: Eliminando archivo "Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.dcu". Comando: del "Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.dcu" - Eliminando archivo "Modulos\Facturas de proveedor\Model\uIDataModuleFacturasProveedor.dcu". - Comando: - del "Modulos\Facturas de proveedor\Model\uIDataModuleFacturasProveedor.dcu" - Eliminando archivo "Modulos\Facturas de proveedor\Model\uIDataModuleFacturasProveedorReport.dcu". - Comando: - del "Modulos\Facturas de proveedor\Model\uIDataModuleFacturasProveedorReport.dcu" Eliminando archivo "Modulos\Facturas de proveedor\Plugin\FacturasProveedor_plugin.dcu". Comando: del "Modulos\Facturas de proveedor\Plugin\FacturasProveedor_plugin.dcu" @@ -1777,9 +1669,69 @@ Destino CleanFiles: Eliminando archivo "Modulos\Historico de movimientos\Views\uViewHistoricoMovimientos.dcu". Comando: del "Modulos\Historico de movimientos\Views\uViewHistoricoMovimientos.dcu" + Eliminando archivo "Modulos\Informe margen por articulo\Controller\InfMargenArticulo_controller.dcu". + Comando: + del "Modulos\Informe margen por articulo\Controller\InfMargenArticulo_controller.dcu" + Eliminando archivo "Modulos\Informe margen por articulo\Controller\uIEditorInfMargenArticulo.dcu". + Comando: + del "Modulos\Informe margen por articulo\Controller\uIEditorInfMargenArticulo.dcu" + Eliminando archivo "Modulos\Informe margen por articulo\Controller\uInfMargenArticuloController.dcu". + Comando: + del "Modulos\Informe margen por articulo\Controller\uInfMargenArticuloController.dcu" + Eliminando archivo "Modulos\Informe margen por articulo\Controller\uInfMargenArticuloInformeRegister.dcu". + Comando: + del "Modulos\Informe margen por articulo\Controller\uInfMargenArticuloInformeRegister.dcu" + Eliminando archivo "Modulos\Informe margen por articulo\Data\InfMargenArticulo_data.dcu". + Comando: + del "Modulos\Informe margen por articulo\Data\InfMargenArticulo_data.dcu" + Eliminando archivo "Modulos\Informe margen por articulo\Data\uDataModuleInfMargenArticulo.dcu". + Comando: + del "Modulos\Informe margen por articulo\Data\uDataModuleInfMargenArticulo.dcu" + Eliminando archivo "Modulos\Informe margen por articulo\Model\InfMargenArticulo_model.dcu". + Comando: + del "Modulos\Informe margen por articulo\Model\InfMargenArticulo_model.dcu" + Eliminando archivo "Modulos\Informe margen por articulo\Model\schInfMargenArticuloClient_Intf.dcu". + Comando: + del "Modulos\Informe margen por articulo\Model\schInfMargenArticuloClient_Intf.dcu" + Eliminando archivo "Modulos\Informe margen por articulo\Model\schInfMargenArticuloServer_Intf.dcu". + Comando: + del "Modulos\Informe margen por articulo\Model\schInfMargenArticuloServer_Intf.dcu" + Eliminando archivo "Modulos\Informe margen por articulo\Model\uBizInfMargenArticulo.dcu". + Comando: + del "Modulos\Informe margen por articulo\Model\uBizInfMargenArticulo.dcu" + Eliminando archivo "Modulos\Informe margen por articulo\Model\uIDataModuleInfMargenArticulo.dcu". + Comando: + del "Modulos\Informe margen por articulo\Model\uIDataModuleInfMargenArticulo.dcu" + Eliminando archivo "Modulos\Informe margen por articulo\Plugin\InfMargenArticulo_plugin.dcu". + Comando: + del "Modulos\Informe margen por articulo\Plugin\InfMargenArticulo_plugin.dcu" + Eliminando archivo "Modulos\Informe margen por articulo\Plugin\uPluginInfMargenArticulo.dcu". + Comando: + del "Modulos\Informe margen por articulo\Plugin\uPluginInfMargenArticulo.dcu" + Eliminando archivo "Modulos\Informe margen por articulo\Servidor\srvInfMargenArticulo_Impl.dcu". + Comando: + del "Modulos\Informe margen por articulo\Servidor\srvInfMargenArticulo_Impl.dcu" + Eliminando archivo "Modulos\Informe margen por articulo\Views\InfMargenArticulo_view.dcu". + Comando: + del "Modulos\Informe margen por articulo\Views\InfMargenArticulo_view.dcu" + Eliminando archivo "Modulos\Informe margen por articulo\Views\uEditorInfMargenArticulo.dcu". + Comando: + del "Modulos\Informe margen por articulo\Views\uEditorInfMargenArticulo.dcu" + Eliminando archivo "Modulos\Informe margen por articulo\Views\uInfMargenArticuloViewRegister.dcu". + Comando: + del "Modulos\Informe margen por articulo\Views\uInfMargenArticuloViewRegister.dcu" + Eliminando archivo "Modulos\Informe margen por articulo\Views\uViewInfMargenArticulo.dcu". + Comando: + del "Modulos\Informe margen por articulo\Views\uViewInfMargenArticulo.dcu" + Eliminando archivo "Modulos\Informe margen por articulo\Views\uViewInfMargenArticuloGrid.dcu". + Comando: + del "Modulos\Informe margen por articulo\Views\uViewInfMargenArticuloGrid.dcu" Eliminando archivo "Modulos\Informe ventas por articulo\Controller\InfVentasArticulo_controller.dcu". Comando: del "Modulos\Informe ventas por articulo\Controller\InfVentasArticulo_controller.dcu" + Eliminando archivo "Modulos\Informe ventas por articulo\Controller\uIEditorInfVentasArticulo.dcu". + Comando: + del "Modulos\Informe ventas por articulo\Controller\uIEditorInfVentasArticulo.dcu" Eliminando archivo "Modulos\Informe ventas por articulo\Controller\uInfVentasArticuloController.dcu". Comando: del "Modulos\Informe ventas por articulo\Controller\uInfVentasArticuloController.dcu" @@ -1810,6 +1762,9 @@ Destino CleanFiles: Eliminando archivo "Modulos\Informe ventas por articulo\Model\uBizInfVentasArticulo.dcu". Comando: del "Modulos\Informe ventas por articulo\Model\uBizInfVentasArticulo.dcu" + Eliminando archivo "Modulos\Informe ventas por articulo\Model\uIDataModuleInfVentasArticulo.dcu". + Comando: + del "Modulos\Informe ventas por articulo\Model\uIDataModuleInfVentasArticulo.dcu" Eliminando archivo "Modulos\Informe ventas por articulo\Plugin\InfVentasArticulo_plugin.dcu". Comando: del "Modulos\Informe ventas por articulo\Plugin\InfVentasArticulo_plugin.dcu" @@ -1840,6 +1795,9 @@ Destino CleanFiles: Eliminando archivo "Modulos\Informes base\Controller\InformesBase_controller.dcu". Comando: del "Modulos\Informes base\Controller\InformesBase_controller.dcu" + Eliminando archivo "Modulos\Informes base\Controller\uIEditorInformes.dcu". + Comando: + del "Modulos\Informes base\Controller\uIEditorInformes.dcu" Eliminando archivo "Modulos\Informes base\Controller\uInformeBaseController.dcu". Comando: del "Modulos\Informes base\Controller\uInformeBaseController.dcu" @@ -1870,6 +1828,9 @@ Destino CleanFiles: Eliminando archivo "Modulos\Informes base\Model\uBizInformes.dcu". Comando: del "Modulos\Informes base\Model\uBizInformes.dcu" + Eliminando archivo "Modulos\Informes base\Model\uIDataModuleInformes.dcu". + Comando: + del "Modulos\Informes base\Model\uIDataModuleInformes.dcu" Eliminando archivo "Modulos\Informes base\Plugin\Informes_plugin.dcu". Comando: del "Modulos\Informes base\Plugin\Informes_plugin.dcu" @@ -2248,21 +2209,6 @@ Destino CleanFiles: Eliminando archivo "Modulos\Recibos de cliente\Controller\RecibosCliente_controller.dcu". Comando: del "Modulos\Recibos de cliente\Controller\RecibosCliente_controller.dcu" - Eliminando archivo "Modulos\Recibos de cliente\Controller\uIEditorElegirRecibosCliente.dcu". - Comando: - del "Modulos\Recibos de cliente\Controller\uIEditorElegirRecibosCliente.dcu" - Eliminando archivo "Modulos\Recibos de cliente\Controller\uIEditorFechaPago.dcu". - Comando: - del "Modulos\Recibos de cliente\Controller\uIEditorFechaPago.dcu" - Eliminando archivo "Modulos\Recibos de cliente\Controller\uIEditorReciboCliente.dcu". - Comando: - del "Modulos\Recibos de cliente\Controller\uIEditorReciboCliente.dcu" - Eliminando archivo "Modulos\Recibos de cliente\Controller\uIEditorRecibosCliente.dcu". - Comando: - del "Modulos\Recibos de cliente\Controller\uIEditorRecibosCliente.dcu" - Eliminando archivo "Modulos\Recibos de cliente\Controller\uIEditorRecibosClientePreview.dcu". - Comando: - del "Modulos\Recibos de cliente\Controller\uIEditorRecibosClientePreview.dcu" Eliminando archivo "Modulos\Recibos de cliente\Controller\uPagosClienteController.dcu". Comando: del "Modulos\Recibos de cliente\Controller\uPagosClienteController.dcu" @@ -2314,12 +2260,6 @@ Destino CleanFiles: Eliminando archivo "Modulos\Recibos de cliente\Model\uBizRecibosCliente.dcu". Comando: del "Modulos\Recibos de cliente\Model\uBizRecibosCliente.dcu" - Eliminando archivo "Modulos\Recibos de cliente\Model\uIDataModuleRecibosCliente.dcu". - Comando: - del "Modulos\Recibos de cliente\Model\uIDataModuleRecibosCliente.dcu" - Eliminando archivo "Modulos\Recibos de cliente\Model\uIDataModuleRecibosClienteReport.dcu". - Comando: - del "Modulos\Recibos de cliente\Model\uIDataModuleRecibosClienteReport.dcu" Eliminando archivo "Modulos\Recibos de cliente\Plugin\RecibosCliente_plugin.dcu". Comando: del "Modulos\Recibos de cliente\Plugin\RecibosCliente_plugin.dcu" @@ -2560,15 +2500,6 @@ Destino CleanFiles: Eliminando archivo "Modulos\Remesas de cliente\Controller\RemesasCliente_controller.dcu". Comando: del "Modulos\Remesas de cliente\Controller\RemesasCliente_controller.dcu" - Eliminando archivo "Modulos\Remesas de cliente\Controller\uIEditorRemesaCliente.dcu". - Comando: - del "Modulos\Remesas de cliente\Controller\uIEditorRemesaCliente.dcu" - Eliminando archivo "Modulos\Remesas de cliente\Controller\uIEditorRemesasCliente.dcu". - Comando: - del "Modulos\Remesas de cliente\Controller\uIEditorRemesasCliente.dcu" - Eliminando archivo "Modulos\Remesas de cliente\Controller\uIEditorRemesasClientePreview.dcu". - Comando: - del "Modulos\Remesas de cliente\Controller\uIEditorRemesasClientePreview.dcu" Eliminando archivo "Modulos\Remesas de cliente\Controller\uRemesasClienteController.dcu". Comando: del "Modulos\Remesas de cliente\Controller\uRemesasClienteController.dcu" @@ -2611,12 +2542,6 @@ Destino CleanFiles: Eliminando archivo "Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.dcu". Comando: del "Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.dcu" - Eliminando archivo "Modulos\Remesas de cliente\Model\uIDataModuleRemesasCliente.dcu". - Comando: - del "Modulos\Remesas de cliente\Model\uIDataModuleRemesasCliente.dcu" - Eliminando archivo "Modulos\Remesas de cliente\Model\uIDataModuleRemesasClienteReport.dcu". - Comando: - del "Modulos\Remesas de cliente\Model\uIDataModuleRemesasClienteReport.dcu" Eliminando archivo "Modulos\Remesas de cliente\Plugin\RemesasCliente_plugin.dcu". Comando: del "Modulos\Remesas de cliente\Plugin\RemesasCliente_plugin.dcu" @@ -2656,15 +2581,6 @@ Destino CleanFiles: Eliminando archivo "Modulos\Remesas de proveedor\Controller\RemesasProveedor_controller.dcu". Comando: del "Modulos\Remesas de proveedor\Controller\RemesasProveedor_controller.dcu" - Eliminando archivo "Modulos\Remesas de proveedor\Controller\uIEditorRemesaProveedor.dcu". - Comando: - del "Modulos\Remesas de proveedor\Controller\uIEditorRemesaProveedor.dcu" - Eliminando archivo "Modulos\Remesas de proveedor\Controller\uIEditorRemesasProveedor.dcu". - Comando: - del "Modulos\Remesas de proveedor\Controller\uIEditorRemesasProveedor.dcu" - Eliminando archivo "Modulos\Remesas de proveedor\Controller\uIEditorRemesasProveedorPreview.dcu". - Comando: - del "Modulos\Remesas de proveedor\Controller\uIEditorRemesasProveedorPreview.dcu" Eliminando archivo "Modulos\Remesas de proveedor\Controller\uRemesasProveedorController.dcu". Comando: del "Modulos\Remesas de proveedor\Controller\uRemesasProveedorController.dcu" @@ -2707,12 +2623,6 @@ Destino CleanFiles: Eliminando archivo "Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.dcu". Comando: del "Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.dcu" - Eliminando archivo "Modulos\Remesas de proveedor\Model\uIDataModuleRemesasProveedor.dcu". - Comando: - del "Modulos\Remesas de proveedor\Model\uIDataModuleRemesasProveedor.dcu" - Eliminando archivo "Modulos\Remesas de proveedor\Model\uIDataModuleRemesasProveedorReport.dcu". - Comando: - del "Modulos\Remesas de proveedor\Model\uIDataModuleRemesasProveedorReport.dcu" Eliminando archivo "Modulos\Remesas de proveedor\Plugin\RemesasProveedor_plugin.dcu". Comando: del "Modulos\Remesas de proveedor\Plugin\RemesasProveedor_plugin.dcu" @@ -3196,6 +3106,21 @@ Destino CleanFiles: Eliminando archivo "Modulos\Lib\HistoricoMovimientos_view.dcp". Comando: del "Modulos\Lib\HistoricoMovimientos_view.dcp" + Eliminando archivo "Modulos\Lib\InfMargenArticulo_controller.dcp". + Comando: + del "Modulos\Lib\InfMargenArticulo_controller.dcp" + Eliminando archivo "Modulos\Lib\InfMargenArticulo_data.dcp". + Comando: + del "Modulos\Lib\InfMargenArticulo_data.dcp" + Eliminando archivo "Modulos\Lib\InfMargenArticulo_model.dcp". + Comando: + del "Modulos\Lib\InfMargenArticulo_model.dcp" + Eliminando archivo "Modulos\Lib\InfMargenArticulo_plugin.dcp". + Comando: + del "Modulos\Lib\InfMargenArticulo_plugin.dcp" + Eliminando archivo "Modulos\Lib\InfMargenArticulo_view.dcp". + Comando: + del "Modulos\Lib\InfMargenArticulo_view.dcp" Eliminando archivo "Modulos\Lib\Informes_controller.dcp". Comando: del "Modulos\Lib\Informes_controller.dcp" @@ -3397,12 +3322,12 @@ Destino CleanFiles: Eliminando archivo "Modulos\Lib\Usuarios.dcp". Comando: del "Modulos\Lib\Usuarios.dcp" - Eliminando archivo "Compras_Group.dsk". - Comando: - del "Compras_Group.dsk" Eliminando archivo "FactuGES_Group.dsk". Comando: del "FactuGES_Group.dsk" + Eliminando archivo "Informes_Group.dsk". + Comando: + del "Informes_Group.dsk" Eliminando archivo "FactuGES_Group.~dsk". Comando: del "FactuGES_Group.~dsk" @@ -3414,7 +3339,7 @@ Generaci 0 Advertencia(s) 0 Errores -Tiempo transcurrido 00:00:07.20 +Tiempo transcurrido 00:00:11.79 @@ -3422,14 +3347,14 @@ Tiempo transcurrido 00:00:07.20 - - + + @@ -3437,17 +3362,17 @@ Tiempo transcurrido 00:00:07.20 - - + + - - - + + + @@ -3465,7 +3390,7 @@ C:\Archivos de programa\RemObjects Software\RemObjects SDK for Delphi\Source\uRO E:\Componentes\FastReport 3\LibD10\frxClass.pas(1749) Hint: H2219 Private symbol 'FParentForm' declared but never used Utiles\uSchemaUtilsServer.pas(41) Hint: H2164 Variable 'APos' is declared but never used in 'TReplicarDataSet.GenerateNewSQL' Utiles\uSchemaUtilsServer.pas(127) Hint: H2164 Variable 'AField' is declared but never used in 'TReplicarDataSet.GetNewDataSet' -210175 lines, 3.44 seconds, 4614676 bytes code, 191388 bytes data. +210458 lines, 5.14 seconds, 4619468 bytes code, 191408 bytes data. @@ -3473,17 +3398,17 @@ Utiles\uSchemaUtilsServer.pas(127) Hint: H2164 Variable 'AField' is declared but - - + + - - - + + + @@ -3499,7 +3424,7 @@ Copyright (c) 1983,2005 Borland Software Corporation C:\Archivos de programa\RemObjects Software\RemObjects SDK for Delphi\Source\uROClasses.pas(676) Warning: W1002 Symbol 'IncludeTrailingBackslash' is specific to a platform C:\Archivos de programa\RemObjects Software\RemObjects SDK for Delphi\Source\uROWinInetHttpChannel.pas(358) Warning: W1000 Symbol 'RaiseLastWin32Error' is deprecated C:\Archivos de programa\RemObjects Software\RemObjects SDK for Delphi\Source\uROWinInetHttpChannel.pas(376) Warning: W1000 Symbol 'RaiseLastWin32Error' is deprecated -50245 lines, 0.47 seconds, 575092 bytes code, 130072 bytes data. +50245 lines, 1.42 seconds, 575092 bytes code, 130072 bytes data. @@ -3507,9 +3432,9 @@ C:\Archivos de programa\RemObjects Software\RemObjects SDK for Delphi\Source\uRO - - - + + + @@ -3525,7 +3450,7 @@ Copyright (c) 1983,2005 Borland Software Corporation Utiles\uDataTableUtils.pas(398) Warning: W1036 Variable 'ADetailFields' might not have been initialized Utiles\uPasswordUtils.pas(40) Warning: W1012 Constant expression violates subrange bounds ClassRegistry\uInformeRegistryUtils.pas(48) Hint: H2077 Value assigned to 'aOwner' never used -5966 lines, 0.48 seconds, 93836 bytes code, 832 bytes data. +6057 lines, 0.72 seconds, 95936 bytes code, 848 bytes data. @@ -3533,8 +3458,8 @@ ClassRegistry\uInformeRegistryUtils.pas(48) Hint: H2077 Value assigned to 'aOwne - - + + @@ -3551,7 +3476,7 @@ Copyright (c) 1983,2005 Borland Software Corporation uControllerDetallesBase.pas(301) Warning: W1036 Variable 'DeletePosicion' might not have been initialized uControllerDetallesDTO.pas(20) Hint: H2365 Override method TControllerDetallesDTO.ValidarCampos should match case of ancestor TControllerDetallesBase.validarCampos uControllerDetallesDTO.pas(37) Hint: H2077 Value assigned to 'ImporteTotal' never used -809 lines, 0.12 seconds, 16264 bytes code, 76 bytes data. +809 lines, 0.22 seconds, 16264 bytes code, 76 bytes data. @@ -3559,9 +3484,9 @@ uControllerDetallesDTO.pas(37) Hint: H2077 Value assigned to 'ImporteTotal' neve - - - + + + @@ -3580,7 +3505,7 @@ uViewGridBase.pas(267) Warning: W1035 Return value of function 'TfrViewGridBase. uEditorPreview.pas(82) Warning: W1010 Method 'FormShow' hides virtual method of base type 'TfEditorBase' uViewDetallesBase.pas(481) Hint: H2077 Value assigned to 'TfrViewDetallesBase.darPosicionCAMPO' never used uViewDetallesBase.pas(150) Hint: H2219 Private symbol 'OnSelectChange' declared but never used -4023 lines, 0.77 seconds, 71088 bytes code, 164 bytes data. +4023 lines, 1.16 seconds, 71088 bytes code, 164 bytes data. @@ -3588,33 +3513,33 @@ uViewDetallesBase.pas(150) Hint: H2219 Private symbol 'OnSelectChange' declared - - + + - - + + - - + + - - - + + + @@ -3627,7 +3552,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Empresas\Model\Empresas_model.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -3170 lines, 0.27 seconds, 52724 bytes code, 84 bytes data. +3170 lines, 0.45 seconds, 52724 bytes code, 84 bytes data. @@ -3635,8 +3560,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -3650,7 +3575,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Empresas\Data\Empresas_data.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -192 lines, 0.34 seconds, 8096 bytes code, 72 bytes data. +192 lines, 0.47 seconds, 8096 bytes code, 72 bytes data. @@ -3658,8 +3583,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -3676,7 +3601,7 @@ Copyright (c) 1983,2005 Borland Software Corporation uEmpresasController.pas(70) Hint: H2164 Variable 'AContador' is declared but never used in 'TEmpresasController.AsignarID' uEmpresasController.pas(187) Hint: H2077 Value assigned to 'TEmpresasController.Eliminar' never used uEmpresasController.pas(278) Hint: H2077 Value assigned to 'TEmpresasController.ValidarEmpresa' never used -651 lines, 0.92 seconds, 13784 bytes code, 84 bytes data. +651 lines, 0.55 seconds, 13784 bytes code, 84 bytes data. @@ -3684,8 +3609,8 @@ uEmpresasController.pas(278) Hint: H2077 Value assigned to 'TEmpresasController. - - + + @@ -3699,7 +3624,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Base\Usuarios\Usuarios.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -534 lines, 0.41 seconds, 14236 bytes code, 116 bytes data. +534 lines, 0.61 seconds, 14236 bytes code, 116 bytes data. @@ -3707,8 +3632,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -3723,7 +3648,7 @@ Using Command Line : /B "E:\Codigo (Luis Le Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation uEditorEmpresa.pas(24) Warning: W1010 Method 'FormShow' hides virtual method of base type 'TfEditorBase' -647 lines, 0.55 seconds, 16668 bytes code, 88 bytes data. +647 lines, 0.48 seconds, 16668 bytes code, 88 bytes data. @@ -3731,8 +3656,8 @@ uEditorEmpresa.pas(24) Warning: W1010 Method 'FormShow' hides virtual method of - - + + @@ -3746,7 +3671,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Empresas\Plugin\Empresas_plugin.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -201 lines, 0.45 seconds, 9420 bytes code, 72 bytes data. +201 lines, 0.52 seconds, 9420 bytes code, 72 bytes data. @@ -3754,16 +3679,16 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + - - + + @@ -3777,7 +3702,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Formas de pago\Model\FormasPago_model.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -914 lines, 0.25 seconds, 18736 bytes code, 84 bytes data. +914 lines, 0.27 seconds, 18736 bytes code, 84 bytes data. @@ -3785,8 +3710,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -3800,7 +3725,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Formas de pago\Data\FormasPago_data.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -162 lines, 0.38 seconds, 7836 bytes code, 72 bytes data. +162 lines, 0.36 seconds, 7836 bytes code, 72 bytes data. @@ -3808,8 +3733,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -3824,7 +3749,7 @@ Using Command Line : /B "E:\Codigo (Luis Le Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation uFormasPagoController.pas(243) Hint: H2077 Value assigned to 'TFormasPagoController.Eliminar' never used -531 lines, 0.44 seconds, 12084 bytes code, 84 bytes data. +531 lines, 0.34 seconds, 12084 bytes code, 84 bytes data. @@ -3832,8 +3757,8 @@ uFormasPagoController.pas(243) Hint: H2077 Value assigned to 'TFormasPagoControl - - + + @@ -3855,8 +3780,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -3870,7 +3795,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Formas de pago\Plugin\FormasPago_plugin.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -120 lines, 0.56 seconds, 8108 bytes code, 68 bytes data. +120 lines, 0.41 seconds, 8108 bytes code, 68 bytes data. @@ -3878,16 +3803,16 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + - - + + @@ -3901,7 +3826,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Tipos de IVA\Model\TiposIVA_model.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -551 lines, 0.27 seconds, 11372 bytes code, 80 bytes data. +551 lines, 0.25 seconds, 11372 bytes code, 80 bytes data. @@ -3909,8 +3834,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -3924,7 +3849,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Tipos de IVA\Data\TiposIVA_data.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -231 lines, 0.31 seconds, 7760 bytes code, 72 bytes data. +231 lines, 0.34 seconds, 7760 bytes code, 72 bytes data. @@ -3932,8 +3857,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -3949,7 +3874,7 @@ Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation uTiposIVAController.pas(207) Hint: H2077 Value assigned to 'TTiposIVAController.ValidarTipoIVA' never used uTiposIVAController.pas(272) Hint: H2077 Value assigned to 'TTiposIVAController.Eliminar' never used -496 lines, 0.56 seconds, 10720 bytes code, 76 bytes data. +496 lines, 0.59 seconds, 10720 bytes code, 76 bytes data. @@ -3957,8 +3882,8 @@ uTiposIVAController.pas(272) Hint: H2077 Value assigned to 'TTiposIVAController. - - + + @@ -3972,7 +3897,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Tipos de IVA\Views\TiposIVA_view.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -428 lines, 0.38 seconds, 11740 bytes code, 80 bytes data. +428 lines, 0.39 seconds, 11740 bytes code, 80 bytes data. @@ -3980,8 +3905,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -3995,7 +3920,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Tipos de IVA\Plugin\TiposIVA_plugin.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -120 lines, 0.39 seconds, 7908 bytes code, 68 bytes data. +120 lines, 0.41 seconds, 7908 bytes code, 68 bytes data. @@ -4003,16 +3928,16 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + - - + + @@ -4026,7 +3951,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Contactos\Model\Contactos_model.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -7493 lines, 0.53 seconds, 124948 bytes code, 124 bytes data. +7493 lines, 0.47 seconds, 124948 bytes code, 124 bytes data. @@ -4034,8 +3959,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -4049,7 +3974,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Contactos\Data\Contactos_data.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -633 lines, 0.44 seconds, 15112 bytes code, 84 bytes data. +633 lines, 0.45 seconds, 15112 bytes code, 84 bytes data. @@ -4057,8 +3982,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -4076,7 +4001,7 @@ uContactosController.pas(347) Hint: H2077 Value assigned to 'TContactosControlle uClientesController.pas(167) Hint: H2077 Value assigned to 'TClientesController.TieneDatosBancarios' never used uGruposClienteController.pas(125) Hint: H2077 Value assigned to 'TGruposClienteController.ValidarGrupoCliente' never used uGruposClienteController.pas(167) Hint: H2077 Value assigned to 'TGruposClienteController.Eliminar' never used -1770 lines, 0.61 seconds, 29492 bytes code, 152 bytes data. +1770 lines, 0.59 seconds, 29492 bytes code, 152 bytes data. @@ -4084,9 +4009,9 @@ uGruposClienteController.pas(167) Hint: H2077 Value assigned to 'TGruposClienteC - - - + + + @@ -4103,7 +4028,7 @@ uEditorContactos.pas(19) Warning: W1010 Method 'FormShow' hides virtual method o uEditorContacto.pas(24) Warning: W1010 Method 'FormShow' hides virtual method of base type 'TfEditorBase' uViewClienteDatosComerciales.pas(104) Warning: W1020 Constructing instance of 'TAgentesController' containing abstract method 'TContactosController.ElegirContacto' uViewProveedorDatosComerciales.pas(98) Warning: W1020 Constructing instance of 'TAgentesController' containing abstract method 'TContactosController.ElegirContacto' -3239 lines, 0.72 seconds, 71868 bytes code, 192 bytes data. +3239 lines, 0.94 seconds, 71868 bytes code, 192 bytes data. @@ -4111,9 +4036,9 @@ uViewProveedorDatosComerciales.pas(98) Warning: W1020 Constructing instance of ' - - - + + + @@ -4127,7 +4052,7 @@ Using Command Line : /B "E:\Codigo (Luis Le Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation uPluginContactos.pas(97) Warning: W1020 Constructing instance of 'TAgentesController' containing abstract method 'TContactosController.ElegirContacto' -178 lines, 0.70 seconds, 11768 bytes code, 68 bytes data. +178 lines, 0.77 seconds, 11768 bytes code, 68 bytes data. @@ -4135,16 +4060,16 @@ uPluginContactos.pas(97) Warning: W1020 Constructing instance of 'TAgentesContro - - + + - - + + @@ -4158,7 +4083,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Familias\Model\Familias_model.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -174 lines, 0.08 seconds, 5204 bytes code, 76 bytes data. +174 lines, 0.09 seconds, 5204 bytes code, 76 bytes data. @@ -4166,8 +4091,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -4181,7 +4106,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Familias\Data\Familias_data.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -123 lines, 0.56 seconds, 7060 bytes code, 72 bytes data. +123 lines, 0.34 seconds, 7060 bytes code, 72 bytes data. @@ -4189,8 +4114,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -4206,7 +4131,7 @@ Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation uFamiliasController.pas(134) Warning: W1035 Return value of function 'TFamiliasController.ValidarAlmacen' might be undefined uFamiliasController.pas(169) Hint: H2077 Value assigned to 'TFamiliasController.Eliminar' never used -319 lines, 0.39 seconds, 9812 bytes code, 76 bytes data. +319 lines, 0.41 seconds, 9812 bytes code, 76 bytes data. @@ -4214,8 +4139,8 @@ uFamiliasController.pas(169) Hint: H2077 Value assigned to 'TFamiliasController. - - + + @@ -4237,8 +4162,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -4252,7 +4177,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Familias\Plugin\Familias_plugin.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -120 lines, 0.41 seconds, 8212 bytes code, 68 bytes data. +120 lines, 0.42 seconds, 8212 bytes code, 68 bytes data. @@ -4260,16 +4185,16 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + - - + + @@ -4283,7 +4208,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Almacenes\Model\Almacenes_model.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -459 lines, 0.41 seconds, 12768 bytes code, 80 bytes data. +459 lines, 0.61 seconds, 12768 bytes code, 80 bytes data. @@ -4291,8 +4216,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -4306,7 +4231,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Almacenes\Data\Almacenes_data.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -167 lines, 0.61 seconds, 9080 bytes code, 72 bytes data. +167 lines, 0.44 seconds, 9080 bytes code, 72 bytes data. @@ -4314,8 +4239,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -4330,7 +4255,7 @@ Using Command Line : /B "E:\Codigo (Luis Le Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation uAlmacenesController.pas(185) Hint: H2077 Value assigned to 'TAlmacenesController.ValidarAlmacen' never used -551 lines, 0.53 seconds, 13876 bytes code, 88 bytes data. +551 lines, 0.55 seconds, 13876 bytes code, 88 bytes data. @@ -4338,8 +4263,8 @@ uAlmacenesController.pas(185) Hint: H2077 Value assigned to 'TAlmacenesControlle - - + + @@ -4355,7 +4280,7 @@ Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation uEditorAlmacenes.pas(20) Warning: W1010 Method 'FormShow' hides virtual method of base type 'TfEditorGridBase' uEditorAlmacen.pas(22) Warning: W1010 Method 'FormShow' hides virtual method of base type 'TfEditorBase' -731 lines, 0.59 seconds, 21332 bytes code, 100 bytes data. +731 lines, 0.66 seconds, 21332 bytes code, 100 bytes data. @@ -4363,8 +4288,8 @@ uEditorAlmacen.pas(22) Warning: W1010 Method 'FormShow' hides virtual method of - - + + @@ -4386,16 +4311,16 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + - - + + @@ -4418,8 +4343,8 @@ uBizArticulos.pas(84) Warning: W1035 Return value of function 'TBizArticulo.HayI - - + + @@ -4433,7 +4358,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Articulos\Data\Articulos_data.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -192 lines, 0.41 seconds, 9496 bytes code, 72 bytes data. +192 lines, 0.47 seconds, 9496 bytes code, 72 bytes data. @@ -4441,8 +4366,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -4458,7 +4383,7 @@ Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation uArticulosController.pas(345) Hint: H2077 Value assigned to 'TArticulosController.ValidarArticulo' never used uControllerDetallesArticulos.pas(39) Warning: W1010 Method 'Add' hides virtual method of base type 'TControllerDetallesBase' -1181 lines, 0.61 seconds, 23060 bytes code, 92 bytes data. +1181 lines, 0.62 seconds, 23060 bytes code, 92 bytes data. @@ -4466,9 +4391,9 @@ uControllerDetallesArticulos.pas(39) Warning: W1010 Method 'Add' hides virtual m - - - + + + @@ -4486,7 +4411,7 @@ uViewArticulo.pas(241) Hint: H2164 Variable 'aAux' is declared but never used in uViewArticulo.pas(84) Hint: H2219 Private symbol 'CargarImagen' declared but never used uViewArticulo.pas(85) Hint: H2219 Private symbol 'SalvarImagen' declared but never used uEditorArticulo.pas(25) Warning: W1010 Method 'FormShow' hides virtual method of base type 'TfEditorBase' -1210 lines, 0.73 seconds, 30580 bytes code, 104 bytes data. +1210 lines, 0.80 seconds, 30580 bytes code, 104 bytes data. @@ -4494,8 +4419,8 @@ uEditorArticulo.pas(25) Warning: W1010 Method 'FormShow' hides virtual method of - - + + @@ -4509,7 +4434,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Articulos\Plugin\Articulos_plugin.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -121 lines, 0.94 seconds, 10632 bytes code, 68 bytes data. +121 lines, 0.78 seconds, 10632 bytes code, 68 bytes data. @@ -4517,24 +4442,24 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + - - + + - - + + @@ -4548,7 +4473,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Recibos de cliente\Model\RecibosCliente_model.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -4209 lines, 0.45 seconds, 71436 bytes code, 88 bytes data. +4209 lines, 0.56 seconds, 71436 bytes code, 88 bytes data. @@ -4556,8 +4481,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -4571,7 +4496,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Recibos de cliente\Data\RecibosCliente_data.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -253 lines, 0.41 seconds, 10212 bytes code, 72 bytes data. +253 lines, 0.45 seconds, 10212 bytes code, 72 bytes data. @@ -4579,8 +4504,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -4605,7 +4530,7 @@ uRecibosClienteController.pas(599) Hint: H2077 Value assigned to 'TRecibosClient uRecibosClienteController.pas(633) Warning: W1035 Return value of function 'TRecibosClienteController.EliminarTodo' might be undefined uRecibosClienteController.pas(842) Warning: W1036 Variable 'ID_Recibos' might not have been initialized uRecibosClienteController.pas(877) Warning: W1036 Variable 'ID_Recibos' might not have been initialized -1423 lines, 0.69 seconds, 26072 bytes code, 108 bytes data. +1423 lines, 0.70 seconds, 26072 bytes code, 108 bytes data. @@ -4613,8 +4538,8 @@ uRecibosClienteController.pas(877) Warning: W1036 Variable 'ID_Recibos' might no - - + + @@ -4631,7 +4556,7 @@ Copyright (c) 1983,2005 Borland Software Corporation uViewRecibosCliente.pas(76) Hint: H2269 Overriding virtual method 'TfrViewRecibosCliente.AnadirOtrosFiltros' has lower visibility (protected) than base class 'TfrViewGrid' (public) uEditorRecibosCliente.pas(47) Warning: W1010 Method 'FormShow' hides virtual method of base type 'TfEditorGridBase' uEditorReciboCliente.pas(24) Warning: W1010 Method 'FormShow' hides virtual method of base type 'TfEditorBase' -1775 lines, 0.81 seconds, 41448 bytes code, 124 bytes data. +1775 lines, 0.86 seconds, 41448 bytes code, 124 bytes data. @@ -4639,8 +4564,8 @@ uEditorReciboCliente.pas(24) Warning: W1010 Method 'FormShow' hides virtual meth - - + + @@ -4662,16 +4587,16 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + - - + + @@ -4685,7 +4610,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Remesas de cliente\Model\RemesasCliente_model.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -1953 lines, 0.44 seconds, 38820 bytes code, 88 bytes data. +1953 lines, 0.61 seconds, 38820 bytes code, 88 bytes data. @@ -4693,8 +4618,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -4708,7 +4633,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Remesas de cliente\Data\RemesasCliente_data.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -176 lines, 0.42 seconds, 9820 bytes code, 72 bytes data. +176 lines, 0.47 seconds, 9820 bytes code, 72 bytes data. @@ -4716,8 +4641,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -4743,8 +4668,8 @@ uRemesasClienteController.pas(596) Warning: W1036 Variable 'ID_Remesas' might no - - + + @@ -4767,7 +4692,7 @@ E:\Codigo (Luis Le E:\Codigo (Luis León)\Source\Modulos\Banca electronica\Utiles\CVBNorma19CSB.pas(262) Hint: H2164 Variable 'iX' is declared but never used in 'TCVBNorma19CSB.CompCabecera' E:\Codigo (Luis León)\Source\Modulos\Banca electronica\Utiles\CVBNorma19CSB.pas(263) Hint: H2164 Variable 'cT' is declared but never used in 'TCVBNorma19CSB.CompCabecera' E:\Codigo (Luis León)\Source\Modulos\Banca electronica\Utiles\CVBNorma19CSB.pas(263) Hint: H2164 Variable 'cIT' is declared but never used in 'TCVBNorma19CSB.CompCabecera' -3246 lines, 0.80 seconds, 55912 bytes code, 88 bytes data. +3246 lines, 0.81 seconds, 55912 bytes code, 88 bytes data. @@ -4775,8 +4700,8 @@ E:\Codigo (Luis Le - - + + @@ -4791,7 +4716,7 @@ Using Command Line : /B "E:\Codigo (Luis Le Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation uEditorExportacionNorma19.pas(128) Hint: H2164 Variable 'ASaveDialog' is declared but never used in 'TfEditorExportacionNorma19.OKBtnClick' -292 lines, 0.39 seconds, 7856 bytes code, 80 bytes data. +292 lines, 0.42 seconds, 7856 bytes code, 80 bytes data. @@ -4799,8 +4724,8 @@ uEditorExportacionNorma19.pas(128) Hint: H2164 Variable 'ASaveDialog' is declare - - + + @@ -4818,7 +4743,7 @@ uEditorRemesasCliente.pas(28) Warning: W1010 Method 'FormShow' hides virtual met uEditorRemesasCliente.pas(222) Hint: H2164 Variable 'ACadena' is declared but never used in 'TfEditorRemesasCliente.EliminarInterno' uEditorRemesaCliente.pas(31) Warning: W1010 Method 'FormShow' hides virtual method of base type 'TfEditorBase' uEditorRemesaCliente.pas(115) Hint: H2077 Value assigned to 'bEsNuevo' never used -1166 lines, 0.94 seconds, 31212 bytes code, 104 bytes data. +1166 lines, 0.98 seconds, 31212 bytes code, 104 bytes data. @@ -4826,8 +4751,8 @@ uEditorRemesaCliente.pas(115) Hint: H2077 Value assigned to 'bEsNuevo' never use - - + + @@ -4841,7 +4766,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Remesas de cliente\Plugin\RemesasCliente_plugin.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -120 lines, 1.25 seconds, 12888 bytes code, 68 bytes data. +120 lines, 1.19 seconds, 12888 bytes code, 68 bytes data. @@ -4849,16 +4774,16 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + - - + + @@ -4872,7 +4797,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -5119 lines, 0.45 seconds, 89308 bytes code, 92 bytes data. +5119 lines, 0.58 seconds, 89308 bytes code, 92 bytes data. @@ -4880,8 +4805,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -4895,7 +4820,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -237 lines, 0.62 seconds, 10712 bytes code, 72 bytes data. +237 lines, 0.47 seconds, 10712 bytes code, 72 bytes data. @@ -4903,9 +4828,9 @@ Copyright (c) 1983,2005 Borland Software Corporation - - - + + + @@ -4921,7 +4846,7 @@ Copyright (c) 1983,2005 Borland Software Corporation uPedidosClienteController.pas(325) Hint: H2077 Value assigned to 'TPedidosClienteController.ValidarPedido' never used uPedidosClienteController.pas(800) Warning: W1036 Variable 'ID_Pedidos' might not have been initialized uPedidosClienteController.pas(835) Warning: W1036 Variable 'ID_Pedidos' might not have been initialized -1320 lines, 0.73 seconds, 27788 bytes code, 112 bytes data. +1320 lines, 0.80 seconds, 27788 bytes code, 112 bytes data. @@ -4929,16 +4854,16 @@ uPedidosClienteController.pas(835) Warning: W1036 Variable 'ID_Pedidos' might no - - + + - - + + @@ -4952,7 +4877,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Albaranes de cliente\Model\AlbaranesCliente_model.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -5202 lines, 0.45 seconds, 86492 bytes code, 92 bytes data. +5202 lines, 0.47 seconds, 86492 bytes code, 92 bytes data. @@ -4960,8 +4885,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -4975,7 +4900,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Albaranes de cliente\Data\AlbaranesCliente_data.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -211 lines, 0.44 seconds, 10108 bytes code, 72 bytes data. +211 lines, 0.47 seconds, 10108 bytes code, 72 bytes data. @@ -4983,8 +4908,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -5004,7 +4929,7 @@ uAlbaranesClienteController.pas(432) Hint: H2077 Value assigned to 'TAlbaranesCl uAlbaranesClienteController.pas(507) Hint: H2077 Value assigned to 'TAlbaranesClienteController.ValidarSituacion' never used uAlbaranesClienteController.pas(964) Warning: W1036 Variable 'ID_Albaranes' might not have been initialized uAlbaranesClienteController.pas(999) Warning: W1036 Variable 'ID_Albaranes' might not have been initialized -1597 lines, 0.88 seconds, 31640 bytes code, 120 bytes data. +1597 lines, 0.89 seconds, 31640 bytes code, 120 bytes data. @@ -5012,16 +4937,16 @@ uAlbaranesClienteController.pas(999) Warning: W1036 Variable 'ID_Albaranes' migh - - + + - - + + @@ -5044,8 +4969,8 @@ uBizFacturasCliente.pas(44) Hint: H2219 Private symbol 'CalcularDescuento' decla - - + + @@ -5059,7 +4984,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Facturas de cliente\Data\FacturasCliente_data.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -195 lines, 0.47 seconds, 10036 bytes code, 72 bytes data. +195 lines, 0.48 seconds, 10036 bytes code, 72 bytes data. @@ -5067,8 +4992,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -5087,7 +5012,7 @@ uFacturasClienteController.pas(241) Hint: H2077 Value assigned to 'TFacturasClie uFacturasClienteController.pas(546) Hint: H2077 Value assigned to 'TFacturasClienteController.ValidarFactura' never used uFacturasClienteController.pas(938) Warning: W1036 Variable 'ID_Facturas' might not have been initialized uFacturasClienteController.pas(973) Warning: W1036 Variable 'ID_Facturas' might not have been initialized -1626 lines, 1.22 seconds, 32552 bytes code, 116 bytes data. +1640 lines, 1.27 seconds, 32828 bytes code, 116 bytes data. @@ -5095,16 +5020,16 @@ uFacturasClienteController.pas(973) Warning: W1036 Variable 'ID_Facturas' might - - + + - - + + @@ -5118,7 +5043,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Comisiones\Model\Comisiones_model.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -2604 lines, 0.42 seconds, 49164 bytes code, 88 bytes data. +2604 lines, 0.44 seconds, 49164 bytes code, 88 bytes data. @@ -5126,8 +5051,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -5141,7 +5066,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Comisiones\Data\Comisiones_data.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -214 lines, 0.59 seconds, 10036 bytes code, 72 bytes data. +214 lines, 0.61 seconds, 10036 bytes code, 72 bytes data. @@ -5149,8 +5074,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -5167,7 +5092,7 @@ Copyright (c) 1983,2005 Borland Software Corporation uComisionesController.pas(262) Hint: H2077 Value assigned to 'TComisionesController.ValidarComision' never used uComisionesController.pas(260) Hint: H2164 Variable 'AFechaPagado' is declared but never used in 'TComisionesController.ValidarComision' uComisionesController.pas(399) Hint: H2077 Value assigned to 'TComisionesController.Eliminar' never used -764 lines, 1.22 seconds, 19932 bytes code, 92 bytes data. +764 lines, 1.25 seconds, 19932 bytes code, 92 bytes data. @@ -5175,24 +5100,24 @@ uComisionesController.pas(399) Hint: H2077 Value assigned to 'TComisionesControl - - + + - - + + - - + + @@ -5214,8 +5139,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -5237,8 +5162,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -5266,9 +5191,9 @@ uPedidosProveedorController.pas(796) Warning: W1036 Variable 'ID_Pedidos' might - - - + + + @@ -5287,7 +5212,7 @@ uPedidosProveedorController.pas(327) Hint: H2077 Value assigned to 'TPedidosProv uPedidosProveedorController.pas(373) Hint: H2077 Value assigned to 'TPedidosProveedorController.ValidarSituacion' never used uPedidosProveedorController.pas(761) Warning: W1036 Variable 'ID_Pedidos' might not have been initialized uPedidosProveedorController.pas(796) Warning: W1036 Variable 'ID_Pedidos' might not have been initialized -1342 lines, 0.75 seconds, 27564 bytes code, 116 bytes data. +1342 lines, 0.73 seconds, 27564 bytes code, 116 bytes data. @@ -5295,16 +5220,16 @@ uPedidosProveedorController.pas(796) Warning: W1036 Variable 'ID_Pedidos' might - - + + - - + + @@ -5318,7 +5243,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Recibos de proveedor\Model\RecibosProveedor_model.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -4369 lines, 0.45 seconds, 74200 bytes code, 88 bytes data. +4369 lines, 0.47 seconds, 74200 bytes code, 88 bytes data. @@ -5326,8 +5251,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -5341,7 +5266,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Recibos de proveedor\Data\RecibosProveedor_data.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -252 lines, 0.62 seconds, 10240 bytes code, 72 bytes data. +252 lines, 0.70 seconds, 10240 bytes code, 72 bytes data. @@ -5349,8 +5274,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -5374,7 +5299,7 @@ uRecibosProveedorController.pas(454) Hint: H2164 Variable 'ImporteRestante' is d uRecibosProveedorController.pas(578) Warning: W1035 Return value of function 'TRecibosProveedorController.ElegirRecibosCompensados' might be undefined uRecibosProveedorController.pas(582) Hint: H2077 Value assigned to 'TRecibosProveedorController.Eliminar' never used uRecibosProveedorController.pas(615) Warning: W1035 Return value of function 'TRecibosProveedorController.EliminarTodo' might be undefined -1357 lines, 0.70 seconds, 25340 bytes code, 104 bytes data. +1357 lines, 0.69 seconds, 25340 bytes code, 104 bytes data. @@ -5382,8 +5307,8 @@ uRecibosProveedorController.pas(615) Warning: W1035 Return value of function 'TR - - + + @@ -5401,7 +5326,7 @@ uViewRecibosProveedor.pas(77) Hint: H2269 Overriding virtual method 'TfrViewReci uViewRecibosProveedor.pas(173) Hint: H2164 Variable 'R' is declared but never used in 'TfrViewRecibosProveedor.cxGridViewICONOCustomDrawCell' uEditorRecibosProveedor.pas(45) Warning: W1010 Method 'FormShow' hides virtual method of base type 'TfEditorGridBase' uEditorReciboProveedor.pas(24) Warning: W1010 Method 'FormShow' hides virtual method of base type 'TfEditorBase' -1685 lines, 0.81 seconds, 40248 bytes code, 120 bytes data. +1685 lines, 0.98 seconds, 40248 bytes code, 120 bytes data. @@ -5409,8 +5334,8 @@ uEditorReciboProveedor.pas(24) Warning: W1010 Method 'FormShow' hides virtual me - - + + @@ -5424,7 +5349,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Recibos de proveedor\Plugin\RecibosProveedor_plugin.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -120 lines, 0.83 seconds, 12624 bytes code, 68 bytes data. +120 lines, 0.88 seconds, 12624 bytes code, 68 bytes data. @@ -5432,24 +5357,24 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + - - + + - - + + @@ -5463,7 +5388,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Inventario\Model\Inventario_model.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -1780 lines, 0.44 seconds, 35220 bytes code, 80 bytes data. +1780 lines, 0.56 seconds, 35220 bytes code, 80 bytes data. @@ -5471,8 +5396,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -5486,7 +5411,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Inventario\Data\Inventario_data.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -172 lines, 0.58 seconds, 9304 bytes code, 72 bytes data. +172 lines, 0.45 seconds, 9304 bytes code, 72 bytes data. @@ -5494,8 +5419,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -5512,7 +5437,7 @@ Copyright (c) 1983,2005 Borland Software Corporation uInventarioController.pas(653) Hint: H2077 Value assigned to 'TInventarioController.EntradaPedido' never used uInventarioController.pas(754) Warning: W1035 Return value of function 'TInventarioController.Reservar' might be undefined uInventarioController.pas(1006) Warning: W1035 Return value of function 'TInventarioController.Liberar' might be undefined -1446 lines, 1.01 seconds, 23608 bytes code, 108 bytes data. +1446 lines, 1.06 seconds, 23608 bytes code, 108 bytes data. @@ -5520,16 +5445,16 @@ uInventarioController.pas(1006) Warning: W1035 Return value of function 'TInvent - - + + - - + + @@ -5543,7 +5468,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Historico de movimientos\Model\HistoricoMovimientos_model.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -722 lines, 0.48 seconds, 15732 bytes code, 80 bytes data. +722 lines, 0.27 seconds, 15732 bytes code, 80 bytes data. @@ -5551,8 +5476,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -5566,7 +5491,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Historico de movimientos\Data\HistoricoMovimientos_data.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -144 lines, 0.38 seconds, 7476 bytes code, 72 bytes data. +144 lines, 0.36 seconds, 7476 bytes code, 72 bytes data. @@ -5574,8 +5499,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -5589,7 +5514,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Historico de movimientos\Controller\HistoricoMovimientos_controller.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -285 lines, 0.58 seconds, 10624 bytes code, 80 bytes data. +285 lines, 0.56 seconds, 10624 bytes code, 80 bytes data. @@ -5597,16 +5522,16 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + - - + + @@ -5620,7 +5545,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Albaranes de proveedor\Model\AlbaranesProveedor_model.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -4928 lines, 0.48 seconds, 82796 bytes code, 92 bytes data. +4928 lines, 0.58 seconds, 82796 bytes code, 92 bytes data. @@ -5628,8 +5553,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -5651,8 +5576,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -5680,16 +5605,16 @@ uAlbaranesProveedorController.pas(995) Warning: W1036 Variable 'ID_Albaranes' mi - - + + - - + + @@ -5704,7 +5629,7 @@ Using Command Line : /B "E:\Codigo (Luis Le Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation uBizFacturasProveedor.pas(44) Hint: H2219 Private symbol 'CalcularDescuento' declared but never used -4642 lines, 0.52 seconds, 78412 bytes code, 92 bytes data. +4642 lines, 0.45 seconds, 78412 bytes code, 92 bytes data. @@ -5712,8 +5637,8 @@ uBizFacturasProveedor.pas(44) Hint: H2219 Private symbol 'CalcularDescuento' dec - - + + @@ -5735,8 +5660,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -5764,16 +5689,16 @@ uFacturasProveedorController.pas(982) Warning: W1036 Variable 'ID_Facturas' migh - - + + - - + + @@ -5787,7 +5712,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Relaciones\Pedidos de cliente - Pedidos a proveedor\PedCli_PedProv_relation.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -226 lines, 0.92 seconds, 13948 bytes code, 88 bytes data. +226 lines, 0.97 seconds, 13948 bytes code, 88 bytes data. @@ -5795,8 +5720,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -5818,8 +5743,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -5834,7 +5759,7 @@ Using Command Line : /B "E:\Codigo (Luis Le Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation uGenerarAlbaranesProvUtils.pas(155) Hint: H2077 Value assigned to 'GenerarAlbaranProv' never used -402 lines, 1.66 seconds, 17696 bytes code, 96 bytes data. +402 lines, 1.73 seconds, 17696 bytes code, 96 bytes data. @@ -5842,8 +5767,8 @@ uGenerarAlbaranesProvUtils.pas(155) Hint: H2077 Value assigned to 'GenerarAlbara - - + + @@ -5865,8 +5790,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -5880,7 +5805,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -398 lines, 1.45 seconds, 15380 bytes code, 100 bytes data. +398 lines, 1.44 seconds, 15380 bytes code, 100 bytes data. @@ -5888,8 +5813,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -5911,8 +5836,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -5934,8 +5859,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -5949,7 +5874,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -397 lines, 1.98 seconds, 15432 bytes code, 100 bytes data. +397 lines, 1.97 seconds, 15432 bytes code, 100 bytes data. @@ -5957,8 +5882,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -5976,7 +5901,7 @@ uGenerarFacturasProvPedProvUtils.pas(153) Hint: H2077 Value assigned to 'Generar uGenerarFacturasProvPedProvUtils.pas(166) Hint: H2164 Variable 'ARespuesta' is declared but never used in 'GenerarFacturaProv' uGenerarFacturasProvPedProvUtils.pas(226) Warning: W1035 Return value of function 'GenerarFacturaProv' might be undefined uGenerarFacturasProvPedProvUtils.pas(210) Hint: H2164 Variable 'APedidos' is declared but never used in 'GenerarFacturaProv' -280 lines, 1.56 seconds, 13412 bytes code, 84 bytes data. +280 lines, 1.62 seconds, 13412 bytes code, 84 bytes data. @@ -5984,16 +5909,16 @@ uGenerarFacturasProvPedProvUtils.pas(210) Hint: H2164 Variable 'APedidos' is dec - - + + - - + + @@ -6017,8 +5942,8 @@ uEditorPedidoCliente.pas(162) Hint: H2077 Value assigned to 'bEsNuevo' never use - - + + @@ -6032,7 +5957,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -121 lines, 2.62 seconds, 14252 bytes code, 68 bytes data. +121 lines, 2.70 seconds, 14252 bytes code, 68 bytes data. @@ -6040,8 +5965,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -6063,7 +5988,7 @@ uEditorAlbaranesCliente.pas(194) Hint: H2164 Variable 'AAlbaran' is declared but uEditorAlbaranesCliente.pas(409) Hint: H2164 Variable 'AAlbaran' is declared but never used in 'TfEditorAlbaranesCliente.NuevoInterno' uEditorAlbaranCliente.pas(135) Hint: H2164 Variable 'i' is declared but never used in 'TfEditorAlbaranCliente.FormShow' uEditorAlbaranCliente.pas(193) Hint: H2077 Value assigned to 'bEsNuevo' never used -2319 lines, 3.16 seconds, 57032 bytes code, 140 bytes data. +2319 lines, 3.28 seconds, 57032 bytes code, 140 bytes data. @@ -6071,8 +5996,8 @@ uEditorAlbaranCliente.pas(193) Hint: H2077 Value assigned to 'bEsNuevo' never us - - + + @@ -6094,8 +6019,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -6111,7 +6036,7 @@ Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation uEditorFacturasCliente.pas(34) Warning: W1010 Method 'FormShow' hides virtual method of base type 'TfEditorGridBase' uEditorFacturaCliente.pas(26) Warning: W1010 Method 'FormShow' hides virtual method of base type 'TfEditorBase' -1574 lines, 2.16 seconds, 41908 bytes code, 116 bytes data. +1574 lines, 2.25 seconds, 41908 bytes code, 116 bytes data. @@ -6119,8 +6044,8 @@ uEditorFacturaCliente.pas(26) Warning: W1010 Method 'FormShow' hides virtual met - - + + @@ -6134,7 +6059,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Facturas de cliente\Plugin\FacturasCliente_plugin.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -122 lines, 2.81 seconds, 14032 bytes code, 68 bytes data. +122 lines, 2.78 seconds, 14032 bytes code, 68 bytes data. @@ -6142,8 +6067,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -6170,7 +6095,7 @@ uEditorDetalleReservas.pas(91) Hint: H2164 Variable 'Respuesta' is declared but uEditorDetalleReservas.pas(166) Hint: H2164 Variable 'AAlmacenes' is declared but never used in 'TfEditorDetalleReservas.SeleccionarAlmacen' uEditorDetalleReservas.pas(167) Hint: H2164 Variable 'Respuesta' is declared but never used in 'TfEditorDetalleReservas.SeleccionarAlmacen' uEditorDetalleReservas.pas(28) Hint: H2219 Private symbol 'DarIDAlmacenSeleccionado' declared but never used -1688 lines, 2.06 seconds, 40624 bytes code, 112 bytes data. +1688 lines, 2.25 seconds, 40624 bytes code, 112 bytes data. @@ -6178,8 +6103,8 @@ uEditorDetalleReservas.pas(28) Hint: H2219 Private symbol 'DarIDAlmacenSeleccion - - + + @@ -6193,7 +6118,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Inventario\Plugin\Inventario_plugin.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -120 lines, 2.44 seconds, 13592 bytes code, 68 bytes data. +120 lines, 2.48 seconds, 13592 bytes code, 68 bytes data. @@ -6201,8 +6126,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -6220,7 +6145,7 @@ uEditorPedidosProveedor.pas(28) Warning: W1010 Method 'FormShow' hides virtual m uEditorPedidoProveedor.pas(161) Hint: H2077 Value assigned to 'bEsNuevo' never used uEditorElegirArticulosPedidoProveedor.pas(16) Warning: W1010 Method 'FormCloseQuery' hides virtual method of base type 'TfEditorDBBase' uEditorDireccionEntregaPedidoProveedor.pas(43) Hint: H2219 Private symbol 'Pedido' declared but never used -2078 lines, 3.08 seconds, 49948 bytes code, 128 bytes data. +2078 lines, 3.14 seconds, 49948 bytes code, 128 bytes data. @@ -6228,8 +6153,8 @@ uEditorDireccionEntregaPedidoProveedor.pas(43) Hint: H2219 Private symbol 'Pedid - - + + @@ -6243,7 +6168,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -121 lines, 3.44 seconds, 14016 bytes code, 68 bytes data. +121 lines, 3.47 seconds, 14016 bytes code, 68 bytes data. @@ -6251,8 +6176,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -6276,7 +6201,7 @@ uEditorAlbaranProveedor.pas(221) Hint: H2164 Variable 'ADireccion' is declared b uEditorElegirArticulosAlbaranProveedor.pas(16) Warning: W1010 Method 'FormCloseQuery' hides virtual method of base type 'TfEditorDBBase' uEditorDireccionEntregaAlbaranProveedor.pas(43) Hint: H2219 Private symbol 'Albaran' declared but never used uEditorAlbaranDevProveedor.pas(67) Hint: H2077 Value assigned to 'bEsNuevo' never used -2228 lines, 3.75 seconds, 55136 bytes code, 140 bytes data. +2228 lines, 3.89 seconds, 55136 bytes code, 140 bytes data. @@ -6284,8 +6209,8 @@ uEditorAlbaranDevProveedor.pas(67) Hint: H2077 Value assigned to 'bEsNuevo' neve - - + + @@ -6299,7 +6224,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Albaranes de proveedor\Plugin\AlbaranesProveedor_plugin.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -134 lines, 4.50 seconds, 14764 bytes code, 68 bytes data. +134 lines, 4.55 seconds, 14764 bytes code, 68 bytes data. @@ -6307,8 +6232,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -6322,7 +6247,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Banca electronica\Plugin\BancaElectronica_plugin.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -107 lines, 1.00 seconds, 12324 bytes code, 68 bytes data. +107 lines, 0.97 seconds, 12324 bytes code, 68 bytes data. @@ -6330,8 +6255,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -6350,7 +6275,7 @@ uEditorComisiones.pas(23) Warning: W1010 Method 'FormShow' hides virtual method uViewComision.pas(73) Warning: W1020 Constructing instance of 'TAgentesController' containing abstract method 'TContactosController.ElegirContacto' uEditorComision.pas(31) Warning: W1010 Method 'FormShow' hides virtual method of base type 'TfEditorBase' uEditorComision.pas(111) Hint: H2077 Value assigned to 'bEsNuevo' never used -1119 lines, 1.30 seconds, 29620 bytes code, 104 bytes data. +1119 lines, 1.31 seconds, 29620 bytes code, 104 bytes data. @@ -6358,8 +6283,8 @@ uEditorComision.pas(111) Hint: H2077 Value assigned to 'bEsNuevo' never used - - + + @@ -6373,7 +6298,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Comisiones\Plugin\Comisiones_plugin.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -119 lines, 2.00 seconds, 13660 bytes code, 68 bytes data. +119 lines, 2.02 seconds, 13660 bytes code, 68 bytes data. @@ -6381,9 +6306,9 @@ Copyright (c) 1983,2005 Borland Software Corporation - - - + + + @@ -6406,7 +6331,7 @@ uEditorAlbaranProveedor.pas(221) Hint: H2164 Variable 'ADireccion' is declared b uEditorElegirArticulosAlbaranProveedor.pas(16) Warning: W1010 Method 'FormCloseQuery' hides virtual method of base type 'TfEditorDBBase' uEditorDireccionEntregaAlbaranProveedor.pas(43) Hint: H2219 Private symbol 'Albaran' declared but never used uEditorAlbaranDevProveedor.pas(67) Hint: H2077 Value assigned to 'bEsNuevo' never used -2228 lines, 4.09 seconds, 55136 bytes code, 140 bytes data. +2228 lines, 3.70 seconds, 55136 bytes code, 140 bytes data. @@ -6414,9 +6339,9 @@ uEditorAlbaranDevProveedor.pas(67) Hint: H2077 Value assigned to 'bEsNuevo' neve - - - + + + @@ -6429,7 +6354,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Albaranes de proveedor\Plugin\AlbaranesProveedor_plugin.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -134 lines, 4.78 seconds, 14764 bytes code, 68 bytes data. +134 lines, 4.50 seconds, 14764 bytes code, 68 bytes data. @@ -6437,9 +6362,9 @@ Copyright (c) 1983,2005 Borland Software Corporation - - - + + + @@ -6455,7 +6380,7 @@ Copyright (c) 1983,2005 Borland Software Corporation uEditorFacturasProveedor.pas(34) Warning: W1010 Method 'FormShow' hides virtual method of base type 'TfEditorGridBase' uEditorFacturaProveedor.pas(24) Warning: W1010 Method 'FormShow' hides virtual method of base type 'TfEditorBase' uEditorElegirArticulosFacturaProveedor.pas(16) Warning: W1010 Method 'FormCloseQuery' hides virtual method of base type 'TfEditorDBBase' -1527 lines, 3.59 seconds, 40348 bytes code, 112 bytes data. +1527 lines, 3.64 seconds, 40348 bytes code, 112 bytes data. @@ -6463,8 +6388,8 @@ uEditorElegirArticulosFacturaProveedor.pas(16) Warning: W1010 Method 'FormCloseQ - - + + @@ -6478,7 +6403,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Facturas de proveedor\Plugin\FacturasProveedor_plugin.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -122 lines, 4.02 seconds, 14088 bytes code, 68 bytes data. +122 lines, 3.98 seconds, 14088 bytes code, 68 bytes data. @@ -6486,9 +6411,9 @@ Copyright (c) 1983,2005 Borland Software Corporation - - - + + + @@ -6507,7 +6432,7 @@ uEditorHistoricoMovimientos.pas(91) Hint: H2164 Variable 'AAlmacenes' is declare uEditorHistoricoMovimientos.pas(92) Hint: H2164 Variable 'AAlmacenesController' is declared but never used in 'TfEditorHistoricoMovimientos.DarIDAlmacenSeleccionado' uEditorHistoricoMovimientos.pas(93) Hint: H2164 Variable 'Respuesta' is declared but never used in 'TfEditorHistoricoMovimientos.DarIDAlmacenSeleccionado' uEditorHistoricoMovimientos.pas(34) Hint: H2219 Private symbol 'DarIDAlmacenSeleccionado' declared but never used -544 lines, 1.78 seconds, 20752 bytes code, 84 bytes data. +544 lines, 1.69 seconds, 20752 bytes code, 84 bytes data. @@ -6515,8 +6440,8 @@ uEditorHistoricoMovimientos.pas(34) Hint: H2219 Private symbol 'DarIDAlmacenSele - - + + @@ -6530,7 +6455,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Historico de movimientos\Plugin\HistoricoMovimientos_plugin.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -120 lines, 1.98 seconds, 13436 bytes code, 68 bytes data. +120 lines, 1.91 seconds, 13436 bytes code, 68 bytes data. @@ -6538,16 +6463,16 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + - - + + @@ -6569,8 +6494,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -6584,7 +6509,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Tienda web\Data\TiendaWeb_data.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -437 lines, 0.41 seconds, 12072 bytes code, 72 bytes data. +437 lines, 0.44 seconds, 12072 bytes code, 72 bytes data. @@ -6592,8 +6517,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -6662,8 +6587,8 @@ uTiendaWebController.pas(416) Hint: H2077 Value assigned to 'TTiendaWebControlle - - + + @@ -6677,7 +6602,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Tienda web\Views\TiendaWeb_view.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -453 lines, 0.94 seconds, 16800 bytes code, 84 bytes data. +453 lines, 0.92 seconds, 16800 bytes code, 84 bytes data. @@ -6685,8 +6610,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -6700,7 +6625,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Tienda web\Plugin\TiendaWeb_plugin.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -149 lines, 1.26 seconds, 13296 bytes code, 72 bytes data. +149 lines, 1.24 seconds, 13296 bytes code, 72 bytes data. @@ -6708,16 +6633,16 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + - - + + @@ -6739,8 +6664,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -6754,7 +6679,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Remesas de proveedor\Data\RemesasProveedor_data.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -176 lines, 0.55 seconds, 9836 bytes code, 72 bytes data. +176 lines, 0.61 seconds, 9836 bytes code, 72 bytes data. @@ -6762,8 +6687,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -6789,8 +6714,8 @@ uRemesasProveedorController.pas(596) Warning: W1036 Variable 'ID_Remesas' might - - + + @@ -6808,7 +6733,7 @@ uEditorRemesasProveedor.pas(28) Warning: W1010 Method 'FormShow' hides virtual m uEditorRemesasProveedor.pas(222) Hint: H2164 Variable 'ACadena' is declared but never used in 'TfEditorRemesasProveedor.EliminarInterno' uEditorRemesaProveedor.pas(32) Warning: W1010 Method 'FormShow' hides virtual method of base type 'TfEditorBase' uEditorRemesaProveedor.pas(116) Hint: H2077 Value assigned to 'bEsNuevo' never used -1170 lines, 0.95 seconds, 30568 bytes code, 104 bytes data. +1170 lines, 0.91 seconds, 30568 bytes code, 104 bytes data. @@ -6816,8 +6741,8 @@ uEditorRemesaProveedor.pas(116) Hint: H2077 Value assigned to 'bEsNuevo' never u - - + + @@ -6839,16 +6764,16 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + - - + + @@ -6862,7 +6787,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Referencias\Model\Referencias_model.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -379 lines, 0.14 seconds, 8792 bytes code, 80 bytes data. +379 lines, 0.12 seconds, 8792 bytes code, 80 bytes data. @@ -6870,8 +6795,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -6885,7 +6810,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Referencias\Data\Referencias_data.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -117 lines, 0.34 seconds, 7060 bytes code, 72 bytes data. +117 lines, 0.36 seconds, 7060 bytes code, 72 bytes data. @@ -6893,8 +6818,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -6918,8 +6843,8 @@ uReferenciasController.pas(147) Hint: H2164 Variable 'NuevoID' is declared but n - - + + @@ -6933,7 +6858,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Referencias\Views\Referencias_view.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -244 lines, 0.38 seconds, 9928 bytes code, 76 bytes data. +244 lines, 0.41 seconds, 9928 bytes code, 76 bytes data. @@ -6941,8 +6866,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -6956,7 +6881,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Referencias\Plugin\Referencias_plugin.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -120 lines, 0.53 seconds, 8056 bytes code, 68 bytes data. +120 lines, 0.39 seconds, 8056 bytes code, 68 bytes data. @@ -6964,16 +6889,16 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + - - + + @@ -6995,8 +6920,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -7010,7 +6935,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Informes base\Data\Informes_data.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -160 lines, 0.33 seconds, 7268 bytes code, 76 bytes data. +160 lines, 0.36 seconds, 7268 bytes code, 76 bytes data. @@ -7018,8 +6943,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -7035,7 +6960,7 @@ Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation uInformesController.pas(119) Hint: H2077 Value assigned to 'TInformesController.Eliminar' never used uInformesController.pas(179) Hint: H2077 Value assigned to 'TInformesController.ValidarInforme' never used -458 lines, 0.45 seconds, 9984 bytes code, 80 bytes data. +458 lines, 0.66 seconds, 9984 bytes code, 80 bytes data. @@ -7043,8 +6968,8 @@ uInformesController.pas(179) Hint: H2077 Value assigned to 'TInformesController. - - + + @@ -7058,7 +6983,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Informes base\Controller\InformesBase_controller.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -70 lines, 0.12 seconds, 2440 bytes code, 68 bytes data. +70 lines, 0.14 seconds, 2440 bytes code, 68 bytes data. @@ -7066,8 +6991,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -7085,7 +7010,7 @@ uViewInformes.pas(52) Warning: W1010 Method 'GetPopupMenu' hides virtual method uViewInformes.pas(140) Warning: W1036 Variable 'Group' might not have been initialized uViewInformes.pas(88) Hint: H2164 Variable 'GroupModificable' is declared but never used in 'TfrViewInformes.Refresh' uEditorInformes.pas(30) Warning: W1010 Method 'FormShow' hides virtual method of base type 'TfEditorBase' -546 lines, 0.47 seconds, 15012 bytes code, 88 bytes data. +546 lines, 0.48 seconds, 15012 bytes code, 88 bytes data. @@ -7093,8 +7018,8 @@ uEditorInformes.pas(30) Warning: W1010 Method 'FormShow' hides virtual method of - - + + @@ -7128,8 +7053,8 @@ uViewFiltros.pas(138) Hint: H2164 Variable 'AItemIndex' is declared but never us - - + + @@ -7143,7 +7068,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Informes Base\Plugin\Informes_plugin.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -120 lines, 0.67 seconds, 8888 bytes code, 68 bytes data. +120 lines, 0.48 seconds, 8888 bytes code, 68 bytes data. @@ -7151,16 +7076,16 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + - - + + @@ -7182,8 +7107,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -7197,7 +7122,7 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Informe ventas por articulo\Data\InfVentasArticulo_data.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -152 lines, 0.33 seconds, 7696 bytes code, 76 bytes data. +152 lines, 0.61 seconds, 7696 bytes code, 76 bytes data. @@ -7205,8 +7130,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -7228,8 +7153,8 @@ Copyright (c) 1983,2005 Borland Software Corporation - - + + @@ -7243,13 +7168,13 @@ Running Delphi compiler.... Using Command Line : /B "E:\Codigo (Luis León)\Source\Modulos\Informe ventas por articulo\Views\InfVentasArticulo_view.dpk" /Q Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation -uViewInfVentasArticuloGrid.pas(152) Hint: H2164 Variable 'AColumn' is declared but never used in 'TfrViewInfVentasArticuloGrid.cxGridViewStylesGetContentStyle' -uViewInfVentasArticuloGrid.pas(153) Hint: H2164 Variable 'AFecha' is declared but never used in 'TfrViewInfVentasArticuloGrid.cxGridViewStylesGetContentStyle' -uViewInfVentasArticuloGrid.pas(373) Hint: H2164 Variable 'AValue1' is declared but never used in 'TfrViewInfVentasArticuloGrid.cxGridViewDataControllerCompare' -uViewInfVentasArticuloGrid.pas(374) Hint: H2164 Variable 'AValue2' is declared but never used in 'TfrViewInfVentasArticuloGrid.cxGridViewDataControllerCompare' +uViewInfVentasArticuloGrid.pas(153) Hint: H2164 Variable 'AColumn' is declared but never used in 'TfrViewInfVentasArticuloGrid.cxGridViewStylesGetContentStyle' +uViewInfVentasArticuloGrid.pas(154) Hint: H2164 Variable 'AFecha' is declared but never used in 'TfrViewInfVentasArticuloGrid.cxGridViewStylesGetContentStyle' +uViewInfVentasArticuloGrid.pas(374) Hint: H2164 Variable 'AValue1' is declared but never used in 'TfrViewInfVentasArticuloGrid.cxGridViewDataControllerCompare' +uViewInfVentasArticuloGrid.pas(375) Hint: H2164 Variable 'AValue2' is declared but never used in 'TfrViewInfVentasArticuloGrid.cxGridViewDataControllerCompare' uEditorInfVentasArticulo.pas(37) Warning: W1010 Method 'FormShow' hides virtual method of base type 'TfEditorBase' uEditorInfVentasArticulo.pas(198) Hint: H2164 Variable 'Fichero' is declared but never used in 'TfEditorInfVentasArticulo.GuardarConfiguracion' -1020 lines, 0.64 seconds, 22032 bytes code, 84 bytes data. +1021 lines, 0.66 seconds, 22112 bytes code, 84 bytes data. @@ -7257,8 +7182,8 @@ uEditorInfVentasArticulo.pas(198) Hint: H2164 Variable 'Fichero' is declared but - - + + @@ -7274,7 +7199,7 @@ Borland Delphi for Win32 compiler version 18.0 Copyright (c) 1983,2005 Borland Software Corporation uPluginInfVentasArticulo.pas(48) Hint: H2164 Variable 'AInfVentasArticuloController' is declared but never used in 'TPluginInfVentasArticulo.actVentasArticuloExecute' uPluginInfVentasArticulo.pas(49) Hint: H2164 Variable 'AInfVentasArticulo' is declared but never used in 'TPluginInfVentasArticulo.actVentasArticuloExecute' -124 lines, 0.67 seconds, 10604 bytes code, 68 bytes data. +124 lines, 0.66 seconds, 10604 bytes code, 68 bytes data. @@ -7282,17 +7207,17 @@ uPluginInfVentasArticulo.pas(49) Hint: H2164 Variable 'AInfVentasArticulo' is de - - + + - - - + + + @@ -7312,9 +7237,9 @@ uNavPaneController.pas(176) Hint: H2077 Value assigned to 'AListaSecciones' neve uNavPaneController.pas(133) Hint: H2077 Value assigned to 'AIndex' never used uNavPaneController.pas(132) Hint: H2077 Value assigned to 'ASeccionPadre' never used uNavPaneController.pas(156) Warning: W1036 Variable 'AEmpresasCount' might not have been initialized -uPantallaPrincipal.pas(551) Warning: W1035 Return value of function 'TfPantallaPrincipal.IsShortCut' might be undefined +uPantallaPrincipal.pas(552) Warning: W1035 Return value of function 'TfPantallaPrincipal.IsShortCut' might be undefined uPantallaPrincipal.pas(112) Hint: H2219 Private symbol 'ExecuteActionMenu' declared but never used -25289 lines, 0.70 seconds, 238320 bytes code, 11744 bytes data. +25290 lines, 0.66 seconds, 238376 bytes code, 11744 bytes data. @@ -7322,16 +7247,16 @@ uPantallaPrincipal.pas(112) Hint: H2219 Private symbol 'ExecuteActionMenu' decla - - + + - - + + @@ -7347,8 +7272,8 @@ Success - - + + @@ -7364,8 +7289,8 @@ Success - - + +
- Action List Action List: Main20:55:3420:58:5600:03:2219:23:2219:26:5200:03:30
Completed Log Variable Values Log Variable Values20:55:3420:55:3419:23:2219:23:22 00:00:00 View
Completed Action Group Borrar ficheros temporales20:55:3420:55:3419:23:2219:23:22 00:00:00
Completed MSBuild Project MSBuild Project [ E:\Codigo (Luis León)\Source\ClearFiles.msbuild ]20:55:3420:55:5000:00:1519:23:2219:23:4100:00:18 View
Completed Read Registry Value Leer la ruta de búsqueda de Delphi desde el registro20:55:5020:55:5019:23:4119:23:41 00:00:00 View
-
Completed Action Group Servidor20:55:5020:55:5019:23:4119:23:41 00:00:00
Completed Compile Delphi Win32 Project Compile Servidor\FactuGES_Server.dpr20:55:5020:55:5600:00:0519:23:4119:23:4800:00:07 View
Completed Action Group Base20:55:5620:55:5619:23:4819:23:48 00:00:00
Completed Compile Delphi Win32 Project Compile DataAbstract_D10\DataAbstract_D10.dpk20:55:5620:55:5900:00:0319:23:4819:23:5000:00:01 View
Completed Compile Delphi Win32 Project Compile Base\Base.dpk20:55:5920:56:0000:00:0019:23:5019:23:5100:00:01 View
Completed Compile Delphi Win32 Project Compile Base\ControllerBase\ControllerBase.dpk20:56:0020:56:0019:23:5119:23:52 00:00:00 View
Completed Compile Delphi Win32 Project Compile Base\GUIBase\GUIBase.dpk20:56:0020:56:0100:00:0119:23:5219:23:5400:00:02 View
Completed Action Group Módulos20:56:0120:56:0119:23:5419:23:54 00:00:00
Completed Action Group General20:56:0120:56:0119:23:5419:23:54 00:00:00
Completed Action Group Empresas20:56:0120:56:0119:23:5419:23:54 00:00:00
Completed Compile Delphi Win32 Project Compile Modulos\Empresas\Model\Empresas_model.dpk20:56:0120:56:0200:00:0019:23:5419:23:5600:00:01 View
Completed Compile Delphi Win32 Project Compile Modulos\Empresas\Data\Empresas_data.dpk20:56:0220:56:0319:23:5619:23:57 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Empresas\Controller\Empresas_controller.dpk20:56:0320:56:0419:23:5719:23:58 00:00:01 View
Completed Compile Delphi Win32 Project Compile Base\Usuarios\Usuarios.dpk20:56:0420:56:0519:23:5819:23:59 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Empresas\Views\Empresas_view.dpk20:56:0520:56:0519:23:5919:24:00 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Empresas\Plugin\Empresas_plugin.dpk20:56:0520:56:0619:24:0019:24:00 00:00:00 View
Completed Action Group Formas de pago20:56:0620:56:0619:24:0019:24:00 00:00:00
Completed Compile Delphi Win32 Project Compile Modulos\Formas de pago\Model\FormasPago_model.dpk20:56:0620:56:0719:24:0019:24:01 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Formas de pago\Data\FormasPago_data.dpk20:56:0720:56:0719:24:0119:24:02 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Formas de pago\Controller\FormasPago_controller.dpk20:56:0720:56:0819:24:0219:24:02 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Formas de pago\Views\FormasPago_view.dpk20:56:0820:56:0919:24:0219:24:03 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Formas de pago\Plugin\FormasPago_plugin.dpk20:56:0920:56:1019:24:0319:24:04 00:00:00 View
Completed Action Group Tipos de IVA20:56:1020:56:1019:24:0419:24:04 00:00:00
Completed Compile Delphi Win32 Project Compile Modulos\Tipos de IVA\Model\TiposIVA_model.dpk20:56:1020:56:1019:24:0419:24:04 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Tipos de IVA\Data\TiposIVA_data.dpk20:56:1020:56:1119:24:0419:24:05 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Tipos de IVA\Controller\TiposIVA_controller.dpk20:56:1120:56:1219:24:0519:24:06 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Tipos de IVA\Views\TiposIVA_view.dpk20:56:1220:56:1219:24:0619:24:06 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Tipos de IVA\Plugin\TiposIVA_plugin.dpk20:56:1220:56:1319:24:0619:24:07 00:00:00 View
Completed Action Group Contactos20:56:1320:56:1319:24:0719:24:07 00:00:00
Completed Compile Delphi Win32 Project Compile Modulos\Contactos\Model\Contactos_model.dpk20:56:1320:56:1419:24:0719:24:08 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Contactos\Data\Contactos_data.dpk20:56:1420:56:1419:24:0819:24:09 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Contactos\Controller\Contactos_controller.dpk20:56:1420:56:1519:24:0919:24:09 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Contactos\Views\Contactos_view.dpk20:56:1520:56:1600:00:0019:24:0919:24:1100:00:01 View
Completed Compile Delphi Win32 Project Compile Modulos\Contactos\Plugin\Contactos_plugin.dpk20:56:1620:56:1700:00:0019:24:1119:24:1200:00:01 View
Completed Action Group Familias20:56:1720:56:1719:24:1219:24:12 00:00:00
Completed Compile Delphi Win32 Project Compile Modulos\Familias\Model\Familias_model.dpk20:56:1720:56:1819:24:1219:24:12 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Familias\Data\Familias_data.dpk20:56:1820:56:1819:24:1219:24:13 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Familias\Controller\Familias_controller.dpk20:56:1820:56:1919:24:1319:24:13 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Familias\Views\Familias_view.dpk20:56:1920:56:2019:24:1319:24:14 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Familias\Plugin\Familias_plugin.dpk20:56:2020:56:2119:24:1419:24:15 00:00:00 View
Completed Action Group Almacenes MDC20:56:2120:56:2119:24:1519:24:15 00:00:00
Completed Compile Delphi Win32 Project Compile Modulos\Almacenes\Model\Almacenes_model.dpk20:56:2120:56:2119:24:1519:24:16 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Almacenes\Data\Almacenes_data.dpk20:56:2120:56:2219:24:1619:24:16 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Almacenes\Controller\Almacenes_controller.dpk20:56:2220:56:2319:24:1619:24:17 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Almacenes\Views\Almacenes_view.dpk20:56:2320:56:2419:24:1719:24:18 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Almacenes\Plugin\Almacenes_plugin.dpk20:56:2420:56:2519:24:1819:24:19 00:00:00 View
Completed Action Group Artículos MDC20:56:2520:56:2519:24:1919:24:19 00:00:00
Completed Compile Delphi Win32 Project Compile Modulos\Articulos\Model\Articulos_model.dpk20:56:2520:56:2519:24:1919:24:20 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Articulos\Data\Articulos_data.dpk20:56:2520:56:2619:24:2019:24:21 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Articulos\Controller\Articulos_controller.dpk20:56:2620:56:2719:24:2119:24:21 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Articulos\Views\Articulos_view.dpk20:56:2720:56:2800:00:0019:24:2119:24:2300:00:01 View
Completed Compile Delphi Win32 Project Compile Modulos\Articulos\Plugin\Articulos_plugin.dpk20:56:2820:56:2919:24:2319:24:24 00:00:01 View
Completed Action Group Ventas20:56:2920:56:2919:24:2419:24:24 00:00:00
Completed Action Group Recibos de cliente MDC20:56:2920:56:2919:24:2419:24:24 00:00:00
Completed Compile Delphi Win32 Project Compile Modulos\Recibos de cliente\Model\RecibosCliente_model.dpk20:56:2920:56:3019:24:2419:24:24 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Recibos de cliente\Data\RecibosCliente_data.dpk20:56:3020:56:3019:24:2419:24:25 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Recibos de cliente\Controller\RecibosCliente_controller.dpk20:56:3020:56:3119:24:2519:24:26 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Recibos de cliente\Views\RecibosCliente_view.dpk20:56:3120:56:3219:24:2619:24:27 00:00:01 View
Completed Compile Delphi Win32 Project Compile Modulos\Recibos de cliente\Plugin\RecibosCliente_plugin.dpk20:56:3220:56:3319:24:2719:24:28 00:00:01 View
Completed Action Group Remesas de cliente MDC20:56:3320:56:3319:24:2819:24:28 00:00:00
Completed Compile Delphi Win32 Project Compile Modulos\Remesas de cliente\Model\RemesasCliente_model.dpk20:56:3320:56:3419:24:2819:24:29 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Remesas de cliente\Data\RemesasCliente_data.dpk20:56:3420:56:3519:24:2919:24:30 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Remesas de cliente\Controller\RemesasCliente_controller.dpk20:56:3520:56:3619:24:3019:24:31 00:00:01 View
Completed Compile Delphi Win32 Project Compile Modulos\Banca electronica\Controller\BancaElectronica_controller.dpk20:56:3620:56:3719:24:3119:24:32 00:00:01 View
Completed Compile Delphi Win32 Project Compile Modulos\Banca electronica\Views\BancaElectronica_view.dpk20:56:3720:56:3719:24:3219:24:33 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Remesas de cliente\Views\RemesasCliente_view.dpk20:56:3720:56:3919:24:3319:24:34 00:00:01 View
Completed Compile Delphi Win32 Project Compile Modulos\Remesas de cliente\Plugin\RemesasCliente_plugin.dpk20:56:3920:56:4019:24:3419:24:35 00:00:01 View
Completed Action Group Pedidos de cliente MDC20:56:4020:56:4019:24:3519:24:35 00:00:00
Completed Compile Delphi Win32 Project Compile Modulos\Pedidos de cliente\Model\PedidosCliente_model.dpk20:56:4020:56:4119:24:3519:24:36 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Pedidos de cliente\Data\PedidosCliente_data.dpk20:56:4120:56:4219:24:3619:24:37 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.dpk20:56:4220:56:4300:00:0019:24:3719:24:3800:00:01 View
Completed Action Group Albaranes de cliente MDC20:56:4320:56:4319:24:3819:24:38 00:00:00
Completed Compile Delphi Win32 Project Compile Modulos\Albaranes de cliente\Model\AlbaranesCliente_model.dpk20:56:4320:56:4319:24:3819:24:39 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Albaranes de cliente\Data\AlbaranesCliente_data.dpk20:56:4320:56:4419:24:3919:24:39 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Albaranes de cliente\Controller\AlbaranesCliente_controller.dpk20:56:4420:56:4619:24:3919:24:40 00:00:01 View
Completed Action Group Facturas de cliente MDC20:56:4620:56:4619:24:4019:24:40 00:00:00
Completed Compile Delphi Win32 Project Compile Modulos\Facturas de cliente\Model\FacturasCliente_model.dpk20:56:4620:56:4619:24:4019:24:41 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Facturas de cliente\Data\FacturasCliente_data.dpk20:56:4620:56:4719:24:4119:24:42 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Facturas de cliente\Controller\FacturasCliente_controller.dpk20:56:4720:56:4819:24:4219:24:43 00:00:01 View
Completed Action Group Comisiones MDC20:56:4820:56:4819:24:4319:24:43 00:00:00
Completed Compile Delphi Win32 Project Compile Modulos\Comisiones\Model\Comisiones_model.dpk20:56:4820:56:4919:24:4319:24:44 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Comisiones\Data\Comisiones_data.dpk20:56:4920:56:5019:24:4419:24:45 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Comisiones\Controller\Comisiones_controller.dpk20:56:5020:56:5119:24:4519:24:46 00:00:01 View
Completed Action Group Compras20:56:5120:56:5119:24:4619:24:46 00:00:00
Completed Action Group Pedidos de proveedor MDC20:56:5120:56:5119:24:4619:24:46 00:00:00
Completed Compile Delphi Win32 Project Compile Modulos\Pedidos a proveedor\Model\PedidosProveedor_model.dpk20:56:5220:56:5219:24:4619:24:47 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Pedidos a proveedor\Data\PedidosProveedor_data.dpk20:56:5220:56:5319:24:4719:24:48 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Pedidos a proveedor\Controller\PedidosProveedor_controller.dpk20:56:5320:56:5419:24:4819:24:49 00:00:01 View
Completed Compile Delphi Win32 Project Compile Modulos\Pedidos a proveedor\Controller\PedidosProveedor_controller.dpk20:56:5420:56:5500:00:0119:24:4919:24:5000:00:00 View
Completed Action Group Recibos de proveedor20:56:5520:56:5519:24:5019:24:50 00:00:00
Completed Compile Delphi Win32 Project Compile Modulos\Recibos de proveedor\Model\RecibosProveedor_model.dpk20:56:5520:56:5619:24:5019:24:51 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Recibos de proveedor\Data\RecibosProveedor_data.dpk20:56:5620:56:5719:24:5119:24:52 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Recibos de proveedor\Controller\RecibosProveedor_controller.dpk20:56:5720:56:5819:24:5219:24:53 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Recibos de proveedor\Views\RecibosProveedor_view.dpk20:56:5820:56:5919:24:5319:24:54 00:00:01 View
Completed Compile Delphi Win32 Project Compile Modulos\Recibos de proveedor\Plugin\RecibosProveedor_plugin.dpk20:56:5920:57:0019:24:5419:24:55 00:00:01 View
Completed Action Group Logística20:57:0020:57:0019:24:5519:24:55 00:00:00
Completed Action Group Inventario MDC20:57:0020:57:0019:24:5519:24:55 00:00:00
Completed Compile Delphi Win32 Project Compile Modulos\Inventario\Model\Inventario_model.dpk20:57:0020:57:0019:24:5519:24:56 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Inventario\Data\Inventario_data.dpk20:57:0020:57:0119:24:5619:24:57 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Inventario\Controller\Inventario_controller.dpk20:57:0120:57:0219:24:5719:24:58 00:00:01 View
Completed Action Group Historico Movimientos MDC20:57:0220:57:0219:24:5819:24:58 00:00:00
Completed Compile Delphi Win32 Project Compile Modulos\Historico de movimientos\Model\HistoricoMovimientos_model.dpk20:57:0220:57:0319:24:5819:24:58 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Historico de movimientos\Data\HistoricoMovimientos_data.dpk20:57:0320:57:0419:24:5819:24:59 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Historico de movimientos\Controller\HistoricoMovimientos_controller.dpk20:57:0420:57:0519:24:5919:25:00 00:00:00 View
Completed Action Group Albaranes de proveedor MDC20:57:0520:57:0519:25:0019:25:00 00:00:00
Completed Compile Delphi Win32 Project Compile Modulos\Albaranes de proveedor\Model\AlbaranesProveedor_model.dpk20:57:0520:57:0619:25:0019:25:01 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Albaranes de proveedor\Data\AlbaranesProveedor_data.dpk20:57:0620:57:0619:25:0119:25:02 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.dpk20:57:0620:57:0819:25:0219:25:03 00:00:01 View
Completed Action Group Facturas de proveedor MDC20:57:0820:57:0819:25:0319:25:03 00:00:00
Completed Compile Delphi Win32 Project Compile Modulos\Facturas de proveedor\Model\FacturasProveedor_model.dpk20:57:0820:57:0819:25:0319:25:04 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Facturas de proveedor\Data\FacturasProveedor_data.dpk20:57:0820:57:0919:25:0419:25:05 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Facturas de proveedor\Controller\FacturasProveedor_controller.dpk20:57:0920:57:1119:25:0519:25:06 00:00:01 View
Completed Action Group Relaciones20:57:1120:57:1119:25:0619:25:06 00:00:00
Completed Compile Delphi Win32 Project Compile Modulos\Relaciones\Pedidos de cliente - Pedidos a proveedor\PedCli_PedProv_relation.dpk20:57:1120:57:1219:25:0619:25:08 00:00:01 View
Completed Compile Delphi Win32 Project Compile Modulos\Relaciones\Pedidos de cliente - Albaranes de cliente\PedCli_AlbCli_relation.dpk20:57:1220:57:1319:25:0819:25:09 00:00:01 View
Completed Compile Delphi Win32 Project Compile Modulos\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dpk ]20:57:1320:57:1519:25:0919:25:11 00:00:01 View
Completed Compile Delphi Win32 Project Compile Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dpk ]20:57:1520:57:1719:25:1119:25:13 00:00:02 View
Completed Compile Delphi Win32 Project Compile Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dpk ]20:57:1720:57:1919:25:1319:25:15 00:00:01 View
Completed Compile Delphi Win32 Project Compile Modulos\Relaciones\Pedidos de cliente - Albaranes de cliente\PedCli_AlbCli_relation.dpk ]20:57:1920:57:2119:25:1519:25:16 00:00:01 View
Completed Compile Delphi Win32 Project Compile Modulos\Relaciones\Pedidos de cliente - Pedidos a proveedor\PedCli_PedProv_relation.dpk20:57:2120:57:2219:25:1619:25:17 00:00:01 View
Completed Compile Delphi Win32 Project Compile Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dpk20:57:2220:57:2419:25:1719:25:20 00:00:02 View
Completed Compile Delphi Win32 Project Compile Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dpk20:57:2420:57:2619:25:2019:25:21 00:00:01 View
Completed Action Group Vistas - Plugin20:57:2620:57:2619:25:2119:25:21 00:00:00
Completed Compile Delphi Win32 Project Compile Modulos\Pedidos de cliente\Views\PedidosCliente_view.dpk20:57:2620:57:2819:25:2119:25:24 00:00:02 View
Completed Compile Delphi Win32 Project Compile Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.dpk20:57:2820:57:3119:25:2419:25:27 00:00:02 View
Completed Compile Delphi Win32 Project Compile Modulos\Albaranes de cliente\Views\AlbaranesCliente_view.dpk20:57:3120:57:3519:25:2719:25:31 00:00:03 View
Completed Compile Delphi Win32 Project Compile Modulos\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.dpk20:57:3520:57:3919:25:3119:25:34 00:00:03 View
Completed Compile Delphi Win32 Project Compile Modulos\Facturas de cliente\Views\FacturasCliente_view.dpk20:57:3920:57:4119:25:3419:25:37 00:00:02 View
Completed Compile Delphi Win32 Project Compile Modulos\Facturas de cliente\Plugin\FacturasCliente_plugin.dpk20:57:4120:57:4419:25:3719:25:40 00:00:03 View
Completed Compile Delphi Win32 Project Compile Modulos\Inventario\Views\Inventario_view.dpk20:57:4420:57:4619:25:4019:25:43 00:00:02 View
Completed Compile Delphi Win32 Project Compile Modulos\Inventario\Plugin\Inventario_plugin.dpk20:57:4620:57:4919:25:4319:25:45 00:00:02 View
Completed Compile Delphi Win32 Project Compile Modulos\Pedidos a proveedor\Views\PedidosProveedor_view.dpk20:57:4920:57:5219:25:4519:25:49 00:00:03 View
Completed Compile Delphi Win32 Project Compile Modulos\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.dpk20:57:5220:57:5619:25:4919:25:52 00:00:03 View
Completed Compile Delphi Win32 Project Compile Modulos\Albaranes de proveedor\Views\AlbaranesProveedor_view.dpk20:57:5620:58:0019:25:5219:25:57 00:00:04 View
Completed Compile Delphi Win32 Project Compile Modulos\Albaranes de proveedor\Plugin\AlbaranesProveedor_plugin.dpk20:58:0020:58:0519:25:5719:26:01 00:00:04 View
Completed Compile Delphi Win32 Project Compile Modulos\Banca electronica\Plugin\BancaElectronica_plugin.dpk20:58:0520:58:0619:26:0119:26:03 00:00:01 View
Completed Compile Delphi Win32 Project Compile Modulos\Comisiones\Views\Comisiones_view.dpk20:58:0620:58:0819:26:0319:26:04 00:00:01 View
Completed Compile Delphi Win32 Project Compile Modulos\Comisiones\Plugin\Comisiones_plugin.dpk20:58:0820:58:1019:26:0419:26:06 00:00:02 View
Completed Compile Delphi Win32 Project Compile Modulos\Albaranes de proveedor\Views\AlbaranesProveedor_view.dpk20:58:1020:58:1500:00:0419:26:0619:26:1000:00:03 View
Completed Compile Delphi Win32 Project Compile Modulos\Albaranes de proveedor\Plugin\AlbaranesProveedor_plugin.dpk20:58:1520:58:2000:00:0519:26:1019:26:1500:00:04 View
Completed Compile Delphi Win32 Project Compile Modulos\Facturas de proveedor\Views\FacturasProveedor_view.dpk20:58:2020:58:2400:00:0419:26:1519:26:1900:00:03 View
Completed Compile Delphi Win32 Project Compile Modulos\Facturas de proveedor\Plugin\FacturasProveedor_plugin.dpk20:58:2420:58:2819:26:1919:26:23 00:00:04 View
Completed Compile Delphi Win32 Project Compile Modulos\Historico de movimientos\Views\HistoricoMovimientos_view.dpk20:58:2820:58:3100:00:0219:26:2319:26:2500:00:01 View
Completed Compile Delphi Win32 Project Compile Modulos\Historico de movimientos\Plugin\HistoricoMovimientos_plugin.dpk20:58:3120:58:3319:26:2519:26:27 00:00:02 View
Completed Action Group Tienda Web20:58:3320:58:3319:26:2719:26:27 00:00:00
Completed Compile Delphi Win32 Project Compile Modulos\Tienda web\Model\TiendaWeb_model.dpk20:58:3320:58:3419:26:2719:26:28 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Tienda web\Data\TiendaWeb_data.dpk20:58:3420:58:3419:26:2819:26:29 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Tienda web\Controller\TiendaWeb_controller.dpk20:58:3420:58:3519:26:2919:26:30 00:00:01 View
Completed Compile Delphi Win32 Project Compile Modulos\Tienda web\Views\TiendaWeb_view.dpk20:58:3520:58:3719:26:3019:26:32 00:00:01 View
Completed Compile Delphi Win32 Project Compile Modulos\Tienda web\Plugin\TiendaWeb_plugin.dpk20:58:3720:58:3819:26:3219:26:33 00:00:01 View
Completed Action Group Remesas de proveedor20:58:3820:58:3819:26:3319:26:33 00:00:00
Completed Compile Delphi Win32 Project Compile Modulos\Remesas de proveedor\Model\RemesasProveedor_model.dpk20:58:3820:58:3919:26:3319:26:34 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Remesas de proveedor\Data\RemesasProveedor_data.dpk20:58:3920:58:4019:26:3419:26:35 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Remesas de proveedor\Controller\RemesasProveedor_controller.dpk20:58:4020:58:4119:26:3519:26:36 00:00:01 View
Completed Compile Delphi Win32 Project Compile Modulos\Remesas de proveedor\Views\RemesasProveedor_view.dpk20:58:4120:58:4219:26:3619:26:37 00:00:01 View
Completed Compile Delphi Win32 Project Compile Modulos\Remesas de proveedor\Plugin\RemesasProveedor_plugin.dpk20:58:4220:58:4319:26:3719:26:38 00:00:01 View
Completed Action Group Referencias20:58:4320:58:4319:26:3819:26:38 00:00:00
Completed Compile Delphi Win32 Project Compile Modulos\Referencias\Model\Referencias_model.dpk20:58:4320:58:4419:26:3819:26:38 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Referencias\Data\Referencias_data.dpk20:58:4420:58:4419:26:3819:26:39 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Referencias\Controller\Referencias_controller.dpk20:58:4420:58:4519:26:3919:26:40 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Referencias\Views\Referencias_view.dpk20:58:4520:58:4519:26:4019:26:41 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Referencias\Plugin\Referencias_plugin.dpk20:58:4520:58:4619:26:4119:26:42 00:00:00 View
Completed Action Group Informes base20:58:4620:58:4619:26:4219:26:42 00:00:00
Completed Compile Delphi Win32 Project Compile Modulos\Informes base\Model\Informes_model.dpk20:58:4620:58:4719:26:4219:26:42 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Informes base\Data\Informes_data.dpk20:58:4720:58:4719:26:4219:26:42 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Informes base\Controller\Informes_controller.dpk20:58:4720:58:4819:26:4219:26:43 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Informes base\Controller\InformesBase_controller.dpk20:58:4820:58:4819:26:4319:26:44 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Informes base\Views\Informes_view.dpk20:58:4820:58:4919:26:4419:26:45 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Informes base\Views\InformesBase_view.dpk20:58:4920:58:5019:26:4519:26:45 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Informes base\Plugin\Informes_plugin.dpk20:58:5020:58:5119:26:4519:26:46 00:00:00 View
Completed Action Group Informes ventas por articulo20:58:5120:58:5119:26:4619:26:46 00:00:00
Completed Compile Delphi Win32 Project Compile Modulos\Informe ventas por articulo\Model\InfVentasArticulo_model.dpk20:58:5120:58:5119:26:4619:26:46 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Informe ventas por articulo\Data\InfVentasArticulo_data.dpk20:58:5120:58:5219:26:4619:26:47 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Informe ventas por articulo\Controller\InfVentasArticulo_controller.dpk20:58:5220:58:5219:26:4719:26:48 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Informe ventas por articulo\Views\InfVentasArticulo_view.dpk20:58:5220:58:5319:26:4819:26:49 00:00:00 View
Completed Compile Delphi Win32 Project Compile Modulos\Informe ventas por articulo\Plugin\InfVentasArticulo_plugin.dpk20:58:5320:58:5419:26:4919:26:50 00:00:00 View
Completed Action Group Cliente20:58:5420:58:5419:26:5019:26:50 00:00:00
Completed Compile Delphi Win32 Project Compile Cliente\FactuGES.dpr20:58:5420:58:5500:00:0119:26:5019:26:5100:00:00 View
Completed Action Group Comprimir ejecutables20:58:5520:58:5519:26:5119:26:51 00:00:00
Completed ASPack Compress Executable Comprimir servidor20:58:5520:58:5619:26:5119:26:52 00:00:00 View
Completed ASPack Compress Executable Comprimir cliente20:58:5620:58:5619:26:5219:26:52 00:00:00 View
Completed Export Log Export Log20:58:5620:58:5619:26:5219:26:52 00:00:00

diff --git a/Database/FACTUGES.FDB b/Database/FACTUGES.FDB index 1eac742a..3695c175 100644 Binary files a/Database/FACTUGES.FDB and b/Database/FACTUGES.FDB differ diff --git a/Database/VISTAS.SQL b/Database/VISTAS.SQL index 844a902c..727867f5 100644 --- a/Database/VISTAS.SQL +++ b/Database/VISTAS.SQL @@ -1,4 +1,13 @@ DROP VIEW V_VENTAS_ARTICULOS; + + +DROP VIEW V_INF_VENTAS_ARTICULOS; +DROP VIEW V_INF_MARGEN_VENTAS_ARTICULOS; +DROP VIEW V_INF_ULTIMA_COMPRA; +DROP VIEW V_INF_PROMEDIO_COMPRA; +DROP VIEW V_INF_FEC_ULTIMA_COMPRA; + + DROP VIEW V_INV_DETALLE_RESERVAS; DROP VIEW V_ARTICULOS; @@ -2083,118 +2092,6 @@ WHERE (V_HIS_MOV_AUX.ID_ARTICULO <> 0) AND (ARTICULOS.INVENTARIABLE = 1); - -/* **********************************************************************/ -/* INFORMES *************************************************************/ -/* **********************************************************************/ -/* Al igual que en Varela tendremos esta vista para hacer todos los informes que queramos de ventas, ya que estará desglosado por artículo */ -CREATE VIEW V_VENTAS_ARTICULOS( - ID_FACTURA, - ID_EMPRESA, - REFERENCIA_FACTURA, - FECHA_FACTURA, - IMPORTE_TOTAL_FACTURA, - ID_COMISION_FACTURA, - ID_ARTICULO, - FAMILIA, - REFERENCIA, - REFERENCIA_PROV, - DESCRIPCION, - COMISIONABLE, - INVENTARIABLE, - PRECIO_COSTE, - DESCUENTO_PROVEEDOR, - PRECIO_NETO, - PRECIO_PORTE, - CANTIDAD, - IMPORTE_UNIDAD, - DESCUENTO_CLIENTE, - IMPORTE_PORTE, - IMPORTE_TOTAL, - NIF_CIF_PROVEEDOR, - NOMBRE_PROVEEDOR, - CALLE_PROVEEDOR, - POBLACION_PROVEEDOR, - PROVINCIA_PROVEEDOR, - NIF_CIF_CLIENTE, - NOMBRE_CLIENTE, - NOMBRE_COMERCIAL_CLIENTE, - CALLE_CLIENTE, - POBLACION_CLIENTE, - PROVINCIA_CLIENTE, - NIF_CIF_AGENTE, - NOMBRE_AGENTE, - CALLE_AGENTE, - POBLACION_AGENTE, - PROVINCIA_AGENTE, - COMISION_AGENTE, - IMPORTE_COMISION_AGENTE) -AS -select -FACTURAS_CLIENTE.ID, -FACTURAS_CLIENTE.ID_EMPRESA, -FACTURAS_CLIENTE.REFERENCIA, -FACTURAS_CLIENTE.FECHA_FACTURA, -FACTURAS_CLIENTE.IMPORTE_TOTAL, -FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA, - -FACTURAS_CLIENTE_DETALLES.ID_ARTICULO, - -ARTICULOS.FAMILIA, -ARTICULOS.REFERENCIA, -ARTICULOS.REFERENCIA_PROV, -ARTICULOS.DESCRIPCION, -ARTICULOS.COMISIONABLE, -ARTICULOS.INVENTARIABLE, - -ARTICULOS.PRECIO_COSTE, -ARTICULOS.DESCUENTO, -ARTICULOS.PRECIO_NETO, -ARTICULOS.PRECIO_PORTE, - -FACTURAS_CLIENTE_DETALLES.CANTIDAD, -FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD, -FACTURAS_CLIENTE_DETALLES.DESCUENTO, -FACTURAS_CLIENTE_DETALLES.IMPORTE_PORTE, -FACTURAS_CLIENTE_DETALLES.IMPORTE_TOTAL, - -V_PROVEEDORES.NIF_CIF, -V_PROVEEDORES.NOMBRE, -V_PROVEEDORES.CALLE, -V_PROVEEDORES.POBLACION, -V_PROVEEDORES.PROVINCIA, - -V_CLIENTES.NIF_CIF, -V_CLIENTES.NOMBRE, -V_CLIENTES.NOMBRE_COMERCIAL, -V_CLIENTES.CALLE, -V_CLIENTES.POBLACION, -V_CLIENTES.PROVINCIA, - -V_AGENTES.NIF_CIF, -V_AGENTES.NOMBRE, -V_AGENTES.CALLE, -V_AGENTES.POBLACION, -V_AGENTES.PROVINCIA, - -COALESCE(AGENTES_COMISIONES.COMISION, 0) AS COMISION, - -(CASE COALESCE(AGENTES_COMISIONES.COMISION, 0) WHEN 0 THEN 0 - ELSE ((FACTURAS_CLIENTE_DETALLES.IMPORTE_TOTAL * AGENTES_COMISIONES.COMISION)/100) END) as IMPORTE_COMISION - - -from FACTURAS_CLIENTE_DETALLES -left join ARTICULOS on (ARTICULOS.ID = FACTURAS_CLIENTE_DETALLES.ID_ARTICULO) -left join V_PROVEEDORES on (V_PROVEEDORES.ID = ARTICULOS.ID_PROVEEDOR) -left join FACTURAS_CLIENTE on (FACTURAS_CLIENTE.ID = FACTURAS_CLIENTE_DETALLES.ID_FACTURA) -left join V_CLIENTES on (V_CLIENTES.ID = FACTURAS_CLIENTE.ID_CLIENTE) -left join V_AGENTES on (V_AGENTES.ID = V_CLIENTES.ID_AGENTE) -left join AGENTES_COMISIONES -on ((AGENTES_COMISIONES.ID_AGENTE = V_AGENTES.ID) and (AGENTES_COMISIONES.ID_PROVEEDOR = V_PROVEEDORES.ID)) - -where FACTURAS_CLIENTE_DETALLES.ID_ARTICULO is not null; - - CREATE VIEW V_REMESAS_PROVEEDOR( ID, ID_EMPRESA, @@ -2350,4 +2247,365 @@ SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCR ARTICULOS.ELIMINADO FROM ARTICULOS LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = ARTICULOS.ID_PROVEEDOR) -WHERE (ARTICULOS.ELIMINADO = 0); \ No newline at end of file +WHERE (ARTICULOS.ELIMINADO = 0); + + +/* **********************************************************************/ +/* INFORMES *************************************************************/ +/* **********************************************************************/ +CREATE VIEW V_INF_FEC_ULTIMA_COMPRA( + ID_EMPRESA, + ID_ARTICULO, + FECHA) +AS +select + +facturas_proveedor.ID_EMPRESA, +facturas_proveedor_detalles.ID_ARTICULO, +max(facturas_proveedor.FECHA_FACTURA) + +from facturas_proveedor_detalles +left join facturas_proveedor +on (facturas_proveedor.id = facturas_proveedor_detalles.id_factura) +WHERE (ID_ARTICULO IS NOT NULL) +AND (ID_ARTICULO > 0) +and (facturas_proveedor_detalles.cantidad > 0) + +group by +facturas_proveedor.ID_EMPRESA, +facturas_proveedor_detalles.ID_ARTICULO +; + + +CREATE VIEW V_INF_PROMEDIO_COMPRA( + ID_EMPRESA, + ID_ARTICULO, + IMPORTE_UNIDAD_COMPRA, + IMPORTE_NETO_COMPRA, + IMPORTE_PORTE_COMPRA) +AS +select +facturas_proveedor.id_empresa, +facturas_proveedor_detalles.ID_ARTICULO, + +avg(facturas_proveedor_detalles.IMPORTE_UNIDAD) as IMPORTE_UNIDAD_COMPRA, +avg(facturas_proveedor_detalles.IMPORTE_UNIDAD - (facturas_proveedor_detalles.IMPORTE_UNIDAD * (facturas_proveedor_detalles.DESCUENTO / 100))) AS IMPORTE_NETO_COMPRA, +avg(facturas_proveedor_detalles.IMPORTE_PORTE) as IMPORTE_PORTE_COMPRA + +from facturas_proveedor_detalles + +left outer join facturas_proveedor +on (facturas_proveedor.id = facturas_proveedor_detalles.id_factura) + +WHERE (facturas_proveedor_detalles.ID_ARTICULO IS NOT NULL) AND (facturas_proveedor_detalles.ID_ARTICULO > 0) /*Quitamos conceptos libres*/ +and (facturas_proveedor_detalles.cantidad > 0) /*Quitamos los abonos*/ + +group by 1, 2; + +CREATE VIEW V_INF_ULTIMA_COMPRA( + ID_EMPRESA, + ID_ARTICULO, + IMPORTE_UNIDAD_COMPRA, + IMPORTE_NETO_COMPRA, + IMPORTE_PORTE_COMPRA) +AS +select +facturas_proveedor.id_empresa, +facturas_proveedor_detalles.ID_ARTICULO, + +avg(facturas_proveedor_detalles.IMPORTE_UNIDAD) as IMPORTE_UNIDAD_COMPRA, +avg(facturas_proveedor_detalles.IMPORTE_UNIDAD - (facturas_proveedor_detalles.IMPORTE_UNIDAD * (facturas_proveedor_detalles.DESCUENTO / 100))) AS IMPORTE_NETO_COMPRA, +avg(facturas_proveedor_detalles.IMPORTE_PORTE) as IMPORTE_PORTE_COMPRA + +from facturas_proveedor_detalles + +left outer join facturas_proveedor +on (facturas_proveedor.id = facturas_proveedor_detalles.id_factura) + +left outer join v_inf_fec_ultima_compra +on (v_inf_fec_ultima_compra.id_empresa = facturas_proveedor.id_empresa) +and (v_inf_fec_ultima_compra.id_articulo = facturas_proveedor_detalles.id_articulo) + +WHERE (facturas_proveedor_detalles.ID_ARTICULO IS NOT NULL) AND (facturas_proveedor_detalles.ID_ARTICULO > 0) /*Quitamos conceptos libres*/ +and (facturas_proveedor_detalles.cantidad > 0) /*Quitamos los abonos*/ + +and (facturas_proveedor.FECHA_FACTURA = v_inf_fec_ultima_compra.fecha) /*nos quedamos con las ultimas compras*/ + +group by 1, 2; + + +CREATE VIEW V_INF_MARGEN_VENTAS_ARTICULOS( + ID_FACTURA, + ID_EMPRESA, + REFERENCIA_FACTURA, + FECHA_FACTURA, + IMPORTE_TOTAL_FACTURA, + ID_COMISION_FACTURA, + ID_ARTICULO, + FAMILIA, + REFERENCIA, + REFERENCIA_PROV, + DESCRIPCION, + COMISIONABLE, + INVENTARIABLE, + IMPORTE_UNIDAD_COSTE, + DESCUENTO_PROVEEDOR_COSTE, + IMPORTE_NETO_COSTE, + IMPORTE_PORTE_COSTE, + IMPORTE_UNIDAD_ULTIMA_COMPRA, + IMPORTE_NETO_ULTIMA_COMPRA, + IMPORTE_PORTE_ULTIMA_COMPRA, + IMPORTE_UNIDAD_PROMEDIO_COMPRA, + IMPORTE_NETO_PROMEDIO_COMPRA, + IMPORTE_PORTE_PROMEDIO_COMPRA, + CANTIDAD, + IMPORTE_UNIDAD_VENTA, + DESCUENTO_CLIENTE_VENTA, + IMPORTE_NETO_VENTA, + IMPORTE_PORTE_VENTA, + IMPORTE_TOTAL_VENTA, + IMPORTE_MARGEN_COSTE, + PORCENTAJE_MARGEN_COSTE, + IMPORTE_MARGEN_ULT_COMPRA, + PORCENTAJE_MARGEN_ULT_COMPRA, + IMPORTE_MARGEN_PROM_COMPRA, + PORCENTAJE_MARGEN_PROM_COMPRA, + NIF_CIF_PROVEEDOR, + NOMBRE_PROVEEDOR, + CALLE_PROVEEDOR, + POBLACION_PROVEEDOR, + PROVINCIA_PROVEEDOR, + NIF_CIF_CLIENTE, + NOMBRE_CLIENTE, + NOMBRE_COMERCIAL_CLIENTE, + CALLE_CLIENTE, + POBLACION_CLIENTE, + PROVINCIA_CLIENTE, + NIF_CIF_AGENTE, + NOMBRE_AGENTE, + CALLE_AGENTE, + POBLACION_AGENTE, + PROVINCIA_AGENTE, + COMISION_AGENTE, + IMPORTE_COMISION_AGENTE) +AS + +select +FACTURAS_CLIENTE.ID, +FACTURAS_CLIENTE.ID_EMPRESA, +FACTURAS_CLIENTE.REFERENCIA, +FACTURAS_CLIENTE.FECHA_FACTURA, +FACTURAS_CLIENTE.IMPORTE_TOTAL, +FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA, + +FACTURAS_CLIENTE_DETALLES.ID_ARTICULO, + +ARTICULOS.FAMILIA, +ARTICULOS.REFERENCIA, +ARTICULOS.REFERENCIA_PROV, +ARTICULOS.DESCRIPCION, +ARTICULOS.COMISIONABLE, +ARTICULOS.INVENTARIABLE, + +ARTICULOS.PRECIO_COSTE, +ARTICULOS.DESCUENTO, +ARTICULOS.PRECIO_NETO, +ARTICULOS.PRECIO_PORTE, + +V_INF_ULTIMA_COMPRA.importe_unidad_compra, +V_INF_ULTIMA_COMPRA.importe_neto_compra, +V_INF_ULTIMA_COMPRA.importe_porte_compra, + +V_INF_PROMEDIO_COMPRA.importe_unidad_compra, +V_INF_PROMEDIO_COMPRA.importe_neto_compra, +V_INF_PROMEDIO_COMPRA.importe_porte_compra, + +FACTURAS_CLIENTE_DETALLES.CANTIDAD, +FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD as importe_unidad_venta, +FACTURAS_CLIENTE_DETALLES.DESCUENTO, +FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD - (FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD * (FACTURAS_CLIENTE_DETALLES.DESCUENTO/100)) as importe_neto_venta, +FACTURAS_CLIENTE_DETALLES.IMPORTE_PORTE as importe_porte_venta, +FACTURAS_CLIENTE_DETALLES.IMPORTE_TOTAL, + +(FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD - (FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD * (FACTURAS_CLIENTE_DETALLES.DESCUENTO/100))) - ARTICULOS.PRECIO_NETO as importe_margen_compra, +CASE WHEN (FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD - (FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD * (FACTURAS_CLIENTE_DETALLES.DESCUENTO/100))) - ARTICULOS.PRECIO_NETO > 0 +THEN +(ARTICULOS.PRECIO_NETO * 100) / (FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD - (FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD * (FACTURAS_CLIENTE_DETALLES.DESCUENTO/100))) +else +0 +END +as porcentaje_margen_compra, + +(FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD - (FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD * (FACTURAS_CLIENTE_DETALLES.DESCUENTO/100))) - V_INF_ULTIMA_COMPRA.importe_neto_compra as importe_margen_ultima_compra, +CASE WHEN (FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD - (FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD * (FACTURAS_CLIENTE_DETALLES.DESCUENTO/100))) - V_INF_ULTIMA_COMPRA.importe_neto_compra > 0 +THEN +(V_INF_ULTIMA_COMPRA.importe_neto_compra * 100) /(FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD - (FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD * (FACTURAS_CLIENTE_DETALLES.DESCUENTO/100))) +ELSE +0 +END +as porcentaje_margen_ultima_compra, + +(FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD - (FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD * (FACTURAS_CLIENTE_DETALLES.DESCUENTO/100))) - V_INF_PROMEDIO_COMPRA.importe_neto_compra as importe_margen_promedio_compra, +CASE WHEN (FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD - (FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD * (FACTURAS_CLIENTE_DETALLES.DESCUENTO/100))) - V_INF_PROMEDIO_COMPRA.importe_neto_compra > 0 +THEN +(V_INF_PROMEDIO_COMPRA.importe_neto_compra * 100) /(FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD - (FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD * (FACTURAS_CLIENTE_DETALLES.DESCUENTO/100))) +ELSE +0 +END +as porcentaje_promedio_compra, + +PROVEEDORES.NIF_CIF, +PROVEEDORES.NOMBRE, +PROVEEDORES.CALLE, +PROVEEDORES.POBLACION, +PROVEEDORES.PROVINCIA, + +CLIENTES.NIF_CIF, +CLIENTES.NOMBRE, +CLIENTES_DATOS.NOMBRE_COMERCIAL, +CLIENTES.CALLE, +CLIENTES.POBLACION, +CLIENTES.PROVINCIA, + +AGENTES.NIF_CIF, +AGENTES.NOMBRE, +AGENTES.CALLE, +AGENTES.POBLACION, +AGENTES.PROVINCIA, + +COALESCE(AGENTES_COMISIONES.COMISION, 0) AS COMISION, + +(CASE COALESCE(AGENTES_COMISIONES.COMISION, 0) WHEN 0 THEN 0 + ELSE ((FACTURAS_CLIENTE_DETALLES.IMPORTE_TOTAL * AGENTES_COMISIONES.COMISION)/100) END) as IMPORTE_COMISION + + +from FACTURAS_CLIENTE_DETALLES +left join V_INF_ULTIMA_COMPRA on (V_INF_ULTIMA_COMPRA.ID_ARTICULO = FACTURAS_CLIENTE_DETALLES.ID_ARTICULO) +left join V_INF_PROMEDIO_COMPRA on (V_INF_PROMEDIO_COMPRA.ID_ARTICULO = FACTURAS_CLIENTE_DETALLES.ID_ARTICULO) +left join ARTICULOS on (ARTICULOS.ID = FACTURAS_CLIENTE_DETALLES.ID_ARTICULO) +left join CONTACTOS PROVEEDORES on (PROVEEDORES.ID = ARTICULOS.ID_PROVEEDOR) +left join FACTURAS_CLIENTE on (FACTURAS_CLIENTE.ID = FACTURAS_CLIENTE_DETALLES.ID_FACTURA) +left join CONTACTOS CLIENTES on (CLIENTES.ID = FACTURAS_CLIENTE.ID_CLIENTE) +left join CLIENTES_DATOS on (CLIENTES_DATOS.ID_CLIENTE = CLIENTES.ID) +left join CONTACTOS AGENTES on (AGENTES.ID = CLIENTES_DATOS.ID_AGENTE) +left join AGENTES_COMISIONES +on ((AGENTES_COMISIONES.ID_AGENTE = AGENTES.ID) and (AGENTES_COMISIONES.ID_PROVEEDOR = PROVEEDORES.ID)) + +where (FACTURAS_CLIENTE_DETALLES.ID_ARTICULO is not null) and (FACTURAS_CLIENTE_DETALLES.ID_ARTICULO > 0) /*Quitamos conceptos libres*/ +and (FACTURAS_CLIENTE_DETALLES.cantidad > 0) /*Quitamos los abonos*/ +and (ARTICULOS.INVENTARIABLE = 1); /*Solo nos quedamos con los inventariables*/ + + + + +/* Al igual que en Varela tendremos esta vista para hacer todos los informes que queramos de ventas, ya que estará desglosado por artículo */ +CREATE VIEW V_INF_VENTAS_ARTICULOS( + ID_FACTURA, + ID_EMPRESA, + REFERENCIA_FACTURA, + FECHA_FACTURA, + IMPORTE_TOTAL_FACTURA, + ID_COMISION_FACTURA, + ID_ARTICULO, + FAMILIA, + REFERENCIA, + REFERENCIA_PROV, + DESCRIPCION, + COMISIONABLE, + INVENTARIABLE, + IMPORTE_UNIDAD_COSTE, + DESCUENTO_PROVEEDOR_COSTE, + IMPORTE_NETO_COSTE, + IMPORTE_PORTE_COSTE, + CANTIDAD, + IMPORTE_UNIDAD_VENTA, + DESCUENTO_CLIENTE_VENTA, + IMPORTE_NETO_VENTA, + IMPORTE_PORTE_VENTA, + IMPORTE_TOTAL_VENTA, + NIF_CIF_PROVEEDOR, + NOMBRE_PROVEEDOR, + CALLE_PROVEEDOR, + POBLACION_PROVEEDOR, + PROVINCIA_PROVEEDOR, + NIF_CIF_CLIENTE, + NOMBRE_CLIENTE, + NOMBRE_COMERCIAL_CLIENTE, + CALLE_CLIENTE, + POBLACION_CLIENTE, + PROVINCIA_CLIENTE, + NIF_CIF_AGENTE, + NOMBRE_AGENTE, + CALLE_AGENTE, + POBLACION_AGENTE, + PROVINCIA_AGENTE, + COMISION_AGENTE, + IMPORTE_COMISION_AGENTE) +AS +select +FACTURAS_CLIENTE.ID, +FACTURAS_CLIENTE.ID_EMPRESA, +FACTURAS_CLIENTE.REFERENCIA, +FACTURAS_CLIENTE.FECHA_FACTURA, +FACTURAS_CLIENTE.IMPORTE_TOTAL, +FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA, + +FACTURAS_CLIENTE_DETALLES.ID_ARTICULO, + +ARTICULOS.FAMILIA, +ARTICULOS.REFERENCIA, +ARTICULOS.REFERENCIA_PROV, +ARTICULOS.DESCRIPCION, +ARTICULOS.COMISIONABLE, +ARTICULOS.INVENTARIABLE, + +ARTICULOS.PRECIO_COSTE, +ARTICULOS.DESCUENTO, +ARTICULOS.PRECIO_NETO, +ARTICULOS.PRECIO_PORTE, + +FACTURAS_CLIENTE_DETALLES.CANTIDAD, +FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD as importe_unidad_venta, +FACTURAS_CLIENTE_DETALLES.DESCUENTO, +FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD - (FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD * (FACTURAS_CLIENTE_DETALLES.DESCUENTO/100)) as importe_neto_venta, +FACTURAS_CLIENTE_DETALLES.IMPORTE_PORTE as importe_porte_venta, +FACTURAS_CLIENTE_DETALLES.IMPORTE_TOTAL, + +PROVEEDORES.NIF_CIF, +PROVEEDORES.NOMBRE, +PROVEEDORES.CALLE, +PROVEEDORES.POBLACION, +PROVEEDORES.PROVINCIA, + +CLIENTES.NIF_CIF, +CLIENTES.NOMBRE, +CLIENTES_DATOS.NOMBRE_COMERCIAL, +CLIENTES.CALLE, +CLIENTES.POBLACION, +CLIENTES.PROVINCIA, + +AGENTES.NIF_CIF, +AGENTES.NOMBRE, +AGENTES.CALLE, +AGENTES.POBLACION, +AGENTES.PROVINCIA, + +COALESCE(AGENTES_COMISIONES.COMISION, 0) AS COMISION, + +(CASE COALESCE(AGENTES_COMISIONES.COMISION, 0) WHEN 0 THEN 0 + ELSE ((FACTURAS_CLIENTE_DETALLES.IMPORTE_TOTAL * AGENTES_COMISIONES.COMISION)/100) END) as IMPORTE_COMISION + + +from FACTURAS_CLIENTE_DETALLES +left join ARTICULOS on (ARTICULOS.ID = FACTURAS_CLIENTE_DETALLES.ID_ARTICULO) +left join CONTACTOS PROVEEDORES on (PROVEEDORES.ID = ARTICULOS.ID_PROVEEDOR) +left join FACTURAS_CLIENTE on (FACTURAS_CLIENTE.ID = FACTURAS_CLIENTE_DETALLES.ID_FACTURA) +left join CONTACTOS CLIENTES on (CLIENTES.ID = FACTURAS_CLIENTE.ID_CLIENTE) +left join CLIENTES_DATOS on (CLIENTES_DATOS.ID_CLIENTE = CLIENTES.ID) +left join CONTACTOS AGENTES on (AGENTES.ID = CLIENTES_DATOS.ID_AGENTE) +left join AGENTES_COMISIONES +on ((AGENTES_COMISIONES.ID_AGENTE = AGENTES.ID) and (AGENTES_COMISIONES.ID_PROVEEDOR = PROVEEDORES.ID)) + +where (FACTURAS_CLIENTE_DETALLES.ID_ARTICULO is not null) and (FACTURAS_CLIENTE_DETALLES.ID_ARTICULO > 0) /*Quitamos conceptos libres*/ +and (FACTURAS_CLIENTE_DETALLES.cantidad > 0) /*Quitamos los abonos*/ +and (ARTICULOS.INVENTARIABLE = 1); /*Solo nos quedamos con los inventariables*/ diff --git a/Installer/Actualizacion/Actualización.iss b/Installer/Actualizacion/Actualización.iss index 7ab393f2..fe7e67c2 100644 --- a/Installer/Actualizacion/Actualización.iss +++ b/Installer/Actualizacion/Actualización.iss @@ -1,6 +1,6 @@ [Setup] AppName=FactuGES -AppVerName=FactuGES 2.1.9 +AppVerName=FactuGES 2.2.0 AppPublisher=Rodax Software S.L. AppPublisherURL=http://www.rodax-software.com AppSupportURL=http://www.rodax-software.com diff --git a/Installer/Actualizacion/Output/instalar.exe b/Installer/Actualizacion/Output/instalar.exe index 68b7df53..b8c353b6 100644 Binary files a/Installer/Actualizacion/Output/instalar.exe and b/Installer/Actualizacion/Output/instalar.exe differ diff --git a/Output/Debug/Cliente/AlbCli_FacCli_relation.bpl b/Output/Debug/Cliente/AlbCli_FacCli_relation.bpl index 20eeae41..9fa6a04a 100644 Binary files a/Output/Debug/Cliente/AlbCli_FacCli_relation.bpl and b/Output/Debug/Cliente/AlbCli_FacCli_relation.bpl differ diff --git a/Output/Debug/Cliente/AlbProv_FacProv_relation.bpl b/Output/Debug/Cliente/AlbProv_FacProv_relation.bpl index 17a2647d..e60c04ed 100644 Binary files a/Output/Debug/Cliente/AlbProv_FacProv_relation.bpl and b/Output/Debug/Cliente/AlbProv_FacProv_relation.bpl differ diff --git a/Output/Debug/Cliente/AlbaranesCliente_controller.bpl b/Output/Debug/Cliente/AlbaranesCliente_controller.bpl index da7a5620..040412e5 100644 Binary files a/Output/Debug/Cliente/AlbaranesCliente_controller.bpl and b/Output/Debug/Cliente/AlbaranesCliente_controller.bpl differ diff --git a/Output/Debug/Cliente/AlbaranesCliente_data.bpl b/Output/Debug/Cliente/AlbaranesCliente_data.bpl index c7117936..dfa7f4b3 100644 Binary files a/Output/Debug/Cliente/AlbaranesCliente_data.bpl and b/Output/Debug/Cliente/AlbaranesCliente_data.bpl differ diff --git a/Output/Debug/Cliente/AlbaranesCliente_model.bpl b/Output/Debug/Cliente/AlbaranesCliente_model.bpl index 47e6d085..4ed26eeb 100644 Binary files a/Output/Debug/Cliente/AlbaranesCliente_model.bpl and b/Output/Debug/Cliente/AlbaranesCliente_model.bpl differ diff --git a/Output/Debug/Cliente/AlbaranesCliente_plugin.bpl b/Output/Debug/Cliente/AlbaranesCliente_plugin.bpl index 70c9ffa0..7a5d922d 100644 Binary files a/Output/Debug/Cliente/AlbaranesCliente_plugin.bpl and b/Output/Debug/Cliente/AlbaranesCliente_plugin.bpl differ diff --git a/Output/Debug/Cliente/AlbaranesCliente_view.bpl b/Output/Debug/Cliente/AlbaranesCliente_view.bpl index 8c117aee..1fdcc1b4 100644 Binary files a/Output/Debug/Cliente/AlbaranesCliente_view.bpl and b/Output/Debug/Cliente/AlbaranesCliente_view.bpl differ diff --git a/Output/Debug/Cliente/AlbaranesProveedor_controller.bpl b/Output/Debug/Cliente/AlbaranesProveedor_controller.bpl index c0bb1a6b..3dc9b875 100644 Binary files a/Output/Debug/Cliente/AlbaranesProveedor_controller.bpl and b/Output/Debug/Cliente/AlbaranesProveedor_controller.bpl differ diff --git a/Output/Debug/Cliente/AlbaranesProveedor_data.bpl b/Output/Debug/Cliente/AlbaranesProveedor_data.bpl index 84e229d9..4e5712a3 100644 Binary files a/Output/Debug/Cliente/AlbaranesProveedor_data.bpl and b/Output/Debug/Cliente/AlbaranesProveedor_data.bpl differ diff --git a/Output/Debug/Cliente/AlbaranesProveedor_model.bpl b/Output/Debug/Cliente/AlbaranesProveedor_model.bpl index 736ee005..6a5c6b19 100644 Binary files a/Output/Debug/Cliente/AlbaranesProveedor_model.bpl and b/Output/Debug/Cliente/AlbaranesProveedor_model.bpl differ diff --git a/Output/Debug/Cliente/AlbaranesProveedor_plugin.bpl b/Output/Debug/Cliente/AlbaranesProveedor_plugin.bpl index a8fab82b..11ca4323 100644 Binary files a/Output/Debug/Cliente/AlbaranesProveedor_plugin.bpl and b/Output/Debug/Cliente/AlbaranesProveedor_plugin.bpl differ diff --git a/Output/Debug/Cliente/AlbaranesProveedor_view.bpl b/Output/Debug/Cliente/AlbaranesProveedor_view.bpl index 16e87362..241b446d 100644 Binary files a/Output/Debug/Cliente/AlbaranesProveedor_view.bpl and b/Output/Debug/Cliente/AlbaranesProveedor_view.bpl differ diff --git a/Output/Debug/Cliente/Almacenes_controller.bpl b/Output/Debug/Cliente/Almacenes_controller.bpl index 97c43fe5..fe8a9c0e 100644 Binary files a/Output/Debug/Cliente/Almacenes_controller.bpl and b/Output/Debug/Cliente/Almacenes_controller.bpl differ diff --git a/Output/Debug/Cliente/Almacenes_data.bpl b/Output/Debug/Cliente/Almacenes_data.bpl index e2f2f386..dc64096f 100644 Binary files a/Output/Debug/Cliente/Almacenes_data.bpl and b/Output/Debug/Cliente/Almacenes_data.bpl differ diff --git a/Output/Debug/Cliente/Almacenes_model.bpl b/Output/Debug/Cliente/Almacenes_model.bpl index c7eacd59..6d0ad6eb 100644 Binary files a/Output/Debug/Cliente/Almacenes_model.bpl and b/Output/Debug/Cliente/Almacenes_model.bpl differ diff --git a/Output/Debug/Cliente/Almacenes_plugin.bpl b/Output/Debug/Cliente/Almacenes_plugin.bpl index 7f53c53c..9dede077 100644 Binary files a/Output/Debug/Cliente/Almacenes_plugin.bpl and b/Output/Debug/Cliente/Almacenes_plugin.bpl differ diff --git a/Output/Debug/Cliente/Almacenes_view.bpl b/Output/Debug/Cliente/Almacenes_view.bpl index 76e9ffce..59b6f768 100644 Binary files a/Output/Debug/Cliente/Almacenes_view.bpl and b/Output/Debug/Cliente/Almacenes_view.bpl differ diff --git a/Output/Debug/Cliente/Articulos_controller.bpl b/Output/Debug/Cliente/Articulos_controller.bpl index 597f80a8..7060e1af 100644 Binary files a/Output/Debug/Cliente/Articulos_controller.bpl and b/Output/Debug/Cliente/Articulos_controller.bpl differ diff --git a/Output/Debug/Cliente/Articulos_data.bpl b/Output/Debug/Cliente/Articulos_data.bpl index 7471a208..5625e4f3 100644 Binary files a/Output/Debug/Cliente/Articulos_data.bpl and b/Output/Debug/Cliente/Articulos_data.bpl differ diff --git a/Output/Debug/Cliente/Articulos_model.bpl b/Output/Debug/Cliente/Articulos_model.bpl index 0dc5d5bc..f34ff90b 100644 Binary files a/Output/Debug/Cliente/Articulos_model.bpl and b/Output/Debug/Cliente/Articulos_model.bpl differ diff --git a/Output/Debug/Cliente/Articulos_plugin.bpl b/Output/Debug/Cliente/Articulos_plugin.bpl index 12d690e0..85bae4a8 100644 Binary files a/Output/Debug/Cliente/Articulos_plugin.bpl and b/Output/Debug/Cliente/Articulos_plugin.bpl differ diff --git a/Output/Debug/Cliente/Articulos_view.bpl b/Output/Debug/Cliente/Articulos_view.bpl index e0c7953f..75da7ca2 100644 Binary files a/Output/Debug/Cliente/Articulos_view.bpl and b/Output/Debug/Cliente/Articulos_view.bpl differ diff --git a/Output/Debug/Cliente/BancaElectronica_controller.bpl b/Output/Debug/Cliente/BancaElectronica_controller.bpl index 949f321e..3057d903 100644 Binary files a/Output/Debug/Cliente/BancaElectronica_controller.bpl and b/Output/Debug/Cliente/BancaElectronica_controller.bpl differ diff --git a/Output/Debug/Cliente/BancaElectronica_plugin.bpl b/Output/Debug/Cliente/BancaElectronica_plugin.bpl index fea5333b..b4a89b0c 100644 Binary files a/Output/Debug/Cliente/BancaElectronica_plugin.bpl and b/Output/Debug/Cliente/BancaElectronica_plugin.bpl differ diff --git a/Output/Debug/Cliente/BancaElectronica_view.bpl b/Output/Debug/Cliente/BancaElectronica_view.bpl index 824af9e6..ca96f712 100644 Binary files a/Output/Debug/Cliente/BancaElectronica_view.bpl and b/Output/Debug/Cliente/BancaElectronica_view.bpl differ diff --git a/Output/Debug/Cliente/Base.bpl b/Output/Debug/Cliente/Base.bpl index 86912cdb..8be9e639 100644 Binary files a/Output/Debug/Cliente/Base.bpl and b/Output/Debug/Cliente/Base.bpl differ diff --git a/Output/Debug/Cliente/Comisiones_controller.bpl b/Output/Debug/Cliente/Comisiones_controller.bpl index 40bdfd61..64a5610e 100644 Binary files a/Output/Debug/Cliente/Comisiones_controller.bpl and b/Output/Debug/Cliente/Comisiones_controller.bpl differ diff --git a/Output/Debug/Cliente/Comisiones_data.bpl b/Output/Debug/Cliente/Comisiones_data.bpl index 3461fec0..0c5f7213 100644 Binary files a/Output/Debug/Cliente/Comisiones_data.bpl and b/Output/Debug/Cliente/Comisiones_data.bpl differ diff --git a/Output/Debug/Cliente/Comisiones_model.bpl b/Output/Debug/Cliente/Comisiones_model.bpl index 0ac8737b..18ab2937 100644 Binary files a/Output/Debug/Cliente/Comisiones_model.bpl and b/Output/Debug/Cliente/Comisiones_model.bpl differ diff --git a/Output/Debug/Cliente/Comisiones_plugin.bpl b/Output/Debug/Cliente/Comisiones_plugin.bpl index 5eefbcd5..05b89326 100644 Binary files a/Output/Debug/Cliente/Comisiones_plugin.bpl and b/Output/Debug/Cliente/Comisiones_plugin.bpl differ diff --git a/Output/Debug/Cliente/Comisiones_view.bpl b/Output/Debug/Cliente/Comisiones_view.bpl index 058f3c88..9cf9404a 100644 Binary files a/Output/Debug/Cliente/Comisiones_view.bpl and b/Output/Debug/Cliente/Comisiones_view.bpl differ diff --git a/Output/Debug/Cliente/Contactos_controller.bpl b/Output/Debug/Cliente/Contactos_controller.bpl index 2193013f..820bc3e0 100644 Binary files a/Output/Debug/Cliente/Contactos_controller.bpl and b/Output/Debug/Cliente/Contactos_controller.bpl differ diff --git a/Output/Debug/Cliente/Contactos_data.bpl b/Output/Debug/Cliente/Contactos_data.bpl index 73d8eb0e..01e2650d 100644 Binary files a/Output/Debug/Cliente/Contactos_data.bpl and b/Output/Debug/Cliente/Contactos_data.bpl differ diff --git a/Output/Debug/Cliente/Contactos_model.bpl b/Output/Debug/Cliente/Contactos_model.bpl index 420ad6ba..72aa14f4 100644 Binary files a/Output/Debug/Cliente/Contactos_model.bpl and b/Output/Debug/Cliente/Contactos_model.bpl differ diff --git a/Output/Debug/Cliente/Contactos_plugin.bpl b/Output/Debug/Cliente/Contactos_plugin.bpl index 5a8e1da1..4f143660 100644 Binary files a/Output/Debug/Cliente/Contactos_plugin.bpl and b/Output/Debug/Cliente/Contactos_plugin.bpl differ diff --git a/Output/Debug/Cliente/Contactos_view.bpl b/Output/Debug/Cliente/Contactos_view.bpl index ba9bc476..e88e0929 100644 Binary files a/Output/Debug/Cliente/Contactos_view.bpl and b/Output/Debug/Cliente/Contactos_view.bpl differ diff --git a/Output/Debug/Cliente/ControllerBase.bpl b/Output/Debug/Cliente/ControllerBase.bpl index 2caf9cac..d9392d62 100644 Binary files a/Output/Debug/Cliente/ControllerBase.bpl and b/Output/Debug/Cliente/ControllerBase.bpl differ diff --git a/Output/Debug/Cliente/DataAbstract_D10.bpl b/Output/Debug/Cliente/DataAbstract_D10.bpl index 97ad672c..39c1bd7d 100644 Binary files a/Output/Debug/Cliente/DataAbstract_D10.bpl and b/Output/Debug/Cliente/DataAbstract_D10.bpl differ diff --git a/Output/Debug/Cliente/Empresas_controller.bpl b/Output/Debug/Cliente/Empresas_controller.bpl index 53f37b4b..4fb59960 100644 Binary files a/Output/Debug/Cliente/Empresas_controller.bpl and b/Output/Debug/Cliente/Empresas_controller.bpl differ diff --git a/Output/Debug/Cliente/Empresas_data.bpl b/Output/Debug/Cliente/Empresas_data.bpl index ef227a5b..f76f8baf 100644 Binary files a/Output/Debug/Cliente/Empresas_data.bpl and b/Output/Debug/Cliente/Empresas_data.bpl differ diff --git a/Output/Debug/Cliente/Empresas_model.bpl b/Output/Debug/Cliente/Empresas_model.bpl index 99dcd3a7..4b640774 100644 Binary files a/Output/Debug/Cliente/Empresas_model.bpl and b/Output/Debug/Cliente/Empresas_model.bpl differ diff --git a/Output/Debug/Cliente/Empresas_plugin.bpl b/Output/Debug/Cliente/Empresas_plugin.bpl index b900cac9..c1ab312b 100644 Binary files a/Output/Debug/Cliente/Empresas_plugin.bpl and b/Output/Debug/Cliente/Empresas_plugin.bpl differ diff --git a/Output/Debug/Cliente/Empresas_view.bpl b/Output/Debug/Cliente/Empresas_view.bpl index fb72ab54..54215b7a 100644 Binary files a/Output/Debug/Cliente/Empresas_view.bpl and b/Output/Debug/Cliente/Empresas_view.bpl differ diff --git a/Output/Debug/Cliente/FactuGES.exe b/Output/Debug/Cliente/FactuGES.exe index aa710246..f4f229aa 100644 Binary files a/Output/Debug/Cliente/FactuGES.exe and b/Output/Debug/Cliente/FactuGES.exe differ diff --git a/Output/Debug/Cliente/FacturasCliente_controller.bpl b/Output/Debug/Cliente/FacturasCliente_controller.bpl index 8cfd06d6..42341687 100644 Binary files a/Output/Debug/Cliente/FacturasCliente_controller.bpl and b/Output/Debug/Cliente/FacturasCliente_controller.bpl differ diff --git a/Output/Debug/Cliente/FacturasCliente_data.bpl b/Output/Debug/Cliente/FacturasCliente_data.bpl index 65b544d9..340a8fa0 100644 Binary files a/Output/Debug/Cliente/FacturasCliente_data.bpl and b/Output/Debug/Cliente/FacturasCliente_data.bpl differ diff --git a/Output/Debug/Cliente/FacturasCliente_model.bpl b/Output/Debug/Cliente/FacturasCliente_model.bpl index 9b115c2a..e212bd46 100644 Binary files a/Output/Debug/Cliente/FacturasCliente_model.bpl and b/Output/Debug/Cliente/FacturasCliente_model.bpl differ diff --git a/Output/Debug/Cliente/FacturasCliente_plugin.bpl b/Output/Debug/Cliente/FacturasCliente_plugin.bpl index d5f359d7..d6403b7a 100644 Binary files a/Output/Debug/Cliente/FacturasCliente_plugin.bpl and b/Output/Debug/Cliente/FacturasCliente_plugin.bpl differ diff --git a/Output/Debug/Cliente/FacturasCliente_view.bpl b/Output/Debug/Cliente/FacturasCliente_view.bpl index c640dbd4..e6f0ff34 100644 Binary files a/Output/Debug/Cliente/FacturasCliente_view.bpl and b/Output/Debug/Cliente/FacturasCliente_view.bpl differ diff --git a/Output/Debug/Cliente/FacturasProveedor_controller.bpl b/Output/Debug/Cliente/FacturasProveedor_controller.bpl index cde7fca1..d0cc63a3 100644 Binary files a/Output/Debug/Cliente/FacturasProveedor_controller.bpl and b/Output/Debug/Cliente/FacturasProveedor_controller.bpl differ diff --git a/Output/Debug/Cliente/FacturasProveedor_data.bpl b/Output/Debug/Cliente/FacturasProveedor_data.bpl index e1565fd9..ec92e6d9 100644 Binary files a/Output/Debug/Cliente/FacturasProveedor_data.bpl and b/Output/Debug/Cliente/FacturasProveedor_data.bpl differ diff --git a/Output/Debug/Cliente/FacturasProveedor_model.bpl b/Output/Debug/Cliente/FacturasProveedor_model.bpl index a4c75a00..a39100b6 100644 Binary files a/Output/Debug/Cliente/FacturasProveedor_model.bpl and b/Output/Debug/Cliente/FacturasProveedor_model.bpl differ diff --git a/Output/Debug/Cliente/FacturasProveedor_plugin.bpl b/Output/Debug/Cliente/FacturasProveedor_plugin.bpl index 28458852..4985eafa 100644 Binary files a/Output/Debug/Cliente/FacturasProveedor_plugin.bpl and b/Output/Debug/Cliente/FacturasProveedor_plugin.bpl differ diff --git a/Output/Debug/Cliente/FacturasProveedor_view.bpl b/Output/Debug/Cliente/FacturasProveedor_view.bpl index 61cafa5a..36847603 100644 Binary files a/Output/Debug/Cliente/FacturasProveedor_view.bpl and b/Output/Debug/Cliente/FacturasProveedor_view.bpl differ diff --git a/Output/Debug/Cliente/Familias_controller.bpl b/Output/Debug/Cliente/Familias_controller.bpl index 20ce08b8..ad24c08a 100644 Binary files a/Output/Debug/Cliente/Familias_controller.bpl and b/Output/Debug/Cliente/Familias_controller.bpl differ diff --git a/Output/Debug/Cliente/Familias_data.bpl b/Output/Debug/Cliente/Familias_data.bpl index f414d33e..01ace8f6 100644 Binary files a/Output/Debug/Cliente/Familias_data.bpl and b/Output/Debug/Cliente/Familias_data.bpl differ diff --git a/Output/Debug/Cliente/Familias_model.bpl b/Output/Debug/Cliente/Familias_model.bpl index d8492e67..dc7df17d 100644 Binary files a/Output/Debug/Cliente/Familias_model.bpl and b/Output/Debug/Cliente/Familias_model.bpl differ diff --git a/Output/Debug/Cliente/Familias_plugin.bpl b/Output/Debug/Cliente/Familias_plugin.bpl index c6b0dffa..8375a3b6 100644 Binary files a/Output/Debug/Cliente/Familias_plugin.bpl and b/Output/Debug/Cliente/Familias_plugin.bpl differ diff --git a/Output/Debug/Cliente/Familias_view.bpl b/Output/Debug/Cliente/Familias_view.bpl index c78ea343..edd10789 100644 Binary files a/Output/Debug/Cliente/Familias_view.bpl and b/Output/Debug/Cliente/Familias_view.bpl differ diff --git a/Output/Debug/Cliente/FormasPago_controller.bpl b/Output/Debug/Cliente/FormasPago_controller.bpl index 07eea610..21ce5d13 100644 Binary files a/Output/Debug/Cliente/FormasPago_controller.bpl and b/Output/Debug/Cliente/FormasPago_controller.bpl differ diff --git a/Output/Debug/Cliente/FormasPago_data.bpl b/Output/Debug/Cliente/FormasPago_data.bpl index be3567fc..56c31f02 100644 Binary files a/Output/Debug/Cliente/FormasPago_data.bpl and b/Output/Debug/Cliente/FormasPago_data.bpl differ diff --git a/Output/Debug/Cliente/FormasPago_model.bpl b/Output/Debug/Cliente/FormasPago_model.bpl index 65b94df9..2a815752 100644 Binary files a/Output/Debug/Cliente/FormasPago_model.bpl and b/Output/Debug/Cliente/FormasPago_model.bpl differ diff --git a/Output/Debug/Cliente/FormasPago_plugin.bpl b/Output/Debug/Cliente/FormasPago_plugin.bpl index 0cbab747..50c079e5 100644 Binary files a/Output/Debug/Cliente/FormasPago_plugin.bpl and b/Output/Debug/Cliente/FormasPago_plugin.bpl differ diff --git a/Output/Debug/Cliente/FormasPago_view.bpl b/Output/Debug/Cliente/FormasPago_view.bpl index 58913042..0bf20a36 100644 Binary files a/Output/Debug/Cliente/FormasPago_view.bpl and b/Output/Debug/Cliente/FormasPago_view.bpl differ diff --git a/Output/Debug/Cliente/GUIBase.bpl b/Output/Debug/Cliente/GUIBase.bpl index ee856aa6..96401929 100644 Binary files a/Output/Debug/Cliente/GUIBase.bpl and b/Output/Debug/Cliente/GUIBase.bpl differ diff --git a/Output/Debug/Cliente/HistoricoMovimientos_controller.bpl b/Output/Debug/Cliente/HistoricoMovimientos_controller.bpl index 08be1b45..326b226c 100644 Binary files a/Output/Debug/Cliente/HistoricoMovimientos_controller.bpl and b/Output/Debug/Cliente/HistoricoMovimientos_controller.bpl differ diff --git a/Output/Debug/Cliente/HistoricoMovimientos_data.bpl b/Output/Debug/Cliente/HistoricoMovimientos_data.bpl index 1ff1a27d..e628edc2 100644 Binary files a/Output/Debug/Cliente/HistoricoMovimientos_data.bpl and b/Output/Debug/Cliente/HistoricoMovimientos_data.bpl differ diff --git a/Output/Debug/Cliente/HistoricoMovimientos_model.bpl b/Output/Debug/Cliente/HistoricoMovimientos_model.bpl index 22bea31f..a6115304 100644 Binary files a/Output/Debug/Cliente/HistoricoMovimientos_model.bpl and b/Output/Debug/Cliente/HistoricoMovimientos_model.bpl differ diff --git a/Output/Debug/Cliente/HistoricoMovimientos_plugin.bpl b/Output/Debug/Cliente/HistoricoMovimientos_plugin.bpl index d09135fc..4e7003fb 100644 Binary files a/Output/Debug/Cliente/HistoricoMovimientos_plugin.bpl and b/Output/Debug/Cliente/HistoricoMovimientos_plugin.bpl differ diff --git a/Output/Debug/Cliente/HistoricoMovimientos_view.bpl b/Output/Debug/Cliente/HistoricoMovimientos_view.bpl index 0d9ac490..08df4ef2 100644 Binary files a/Output/Debug/Cliente/HistoricoMovimientos_view.bpl and b/Output/Debug/Cliente/HistoricoMovimientos_view.bpl differ diff --git a/Output/Debug/Cliente/InfVentasArticulo_controller.bpl b/Output/Debug/Cliente/InfVentasArticulo_controller.bpl index 028176cd..f7973eeb 100644 Binary files a/Output/Debug/Cliente/InfVentasArticulo_controller.bpl and b/Output/Debug/Cliente/InfVentasArticulo_controller.bpl differ diff --git a/Output/Debug/Cliente/InfVentasArticulo_data.bpl b/Output/Debug/Cliente/InfVentasArticulo_data.bpl index 7b2edfa0..edf940ff 100644 Binary files a/Output/Debug/Cliente/InfVentasArticulo_data.bpl and b/Output/Debug/Cliente/InfVentasArticulo_data.bpl differ diff --git a/Output/Debug/Cliente/InfVentasArticulo_model.bpl b/Output/Debug/Cliente/InfVentasArticulo_model.bpl index c3825ad8..1d20e29e 100644 Binary files a/Output/Debug/Cliente/InfVentasArticulo_model.bpl and b/Output/Debug/Cliente/InfVentasArticulo_model.bpl differ diff --git a/Output/Debug/Cliente/InfVentasArticulo_plugin.bpl b/Output/Debug/Cliente/InfVentasArticulo_plugin.bpl index cba367a1..77a6f009 100644 Binary files a/Output/Debug/Cliente/InfVentasArticulo_plugin.bpl and b/Output/Debug/Cliente/InfVentasArticulo_plugin.bpl differ diff --git a/Output/Debug/Cliente/InfVentasArticulo_view.bpl b/Output/Debug/Cliente/InfVentasArticulo_view.bpl index 61d42c7f..d5608568 100644 Binary files a/Output/Debug/Cliente/InfVentasArticulo_view.bpl and b/Output/Debug/Cliente/InfVentasArticulo_view.bpl differ diff --git a/Output/Debug/Cliente/InformesBase_controller.bpl b/Output/Debug/Cliente/InformesBase_controller.bpl index 114bfa53..d337dfc2 100644 Binary files a/Output/Debug/Cliente/InformesBase_controller.bpl and b/Output/Debug/Cliente/InformesBase_controller.bpl differ diff --git a/Output/Debug/Cliente/InformesBase_view.bpl b/Output/Debug/Cliente/InformesBase_view.bpl index 069323d2..176585bb 100644 Binary files a/Output/Debug/Cliente/InformesBase_view.bpl and b/Output/Debug/Cliente/InformesBase_view.bpl differ diff --git a/Output/Debug/Cliente/Informes_controller.bpl b/Output/Debug/Cliente/Informes_controller.bpl index 535834ce..820bc453 100644 Binary files a/Output/Debug/Cliente/Informes_controller.bpl and b/Output/Debug/Cliente/Informes_controller.bpl differ diff --git a/Output/Debug/Cliente/Informes_data.bpl b/Output/Debug/Cliente/Informes_data.bpl index b78376a3..41712b42 100644 Binary files a/Output/Debug/Cliente/Informes_data.bpl and b/Output/Debug/Cliente/Informes_data.bpl differ diff --git a/Output/Debug/Cliente/Informes_model.bpl b/Output/Debug/Cliente/Informes_model.bpl index 446cf869..c84e76be 100644 Binary files a/Output/Debug/Cliente/Informes_model.bpl and b/Output/Debug/Cliente/Informes_model.bpl differ diff --git a/Output/Debug/Cliente/Informes_plugin.bpl b/Output/Debug/Cliente/Informes_plugin.bpl index 617bfd31..52f1146f 100644 Binary files a/Output/Debug/Cliente/Informes_plugin.bpl and b/Output/Debug/Cliente/Informes_plugin.bpl differ diff --git a/Output/Debug/Cliente/Informes_view.bpl b/Output/Debug/Cliente/Informes_view.bpl index 3b74f564..5638d5f6 100644 Binary files a/Output/Debug/Cliente/Informes_view.bpl and b/Output/Debug/Cliente/Informes_view.bpl differ diff --git a/Output/Debug/Cliente/Inventario_controller.bpl b/Output/Debug/Cliente/Inventario_controller.bpl index f8a6d4e6..6d5bf7e0 100644 Binary files a/Output/Debug/Cliente/Inventario_controller.bpl and b/Output/Debug/Cliente/Inventario_controller.bpl differ diff --git a/Output/Debug/Cliente/Inventario_data.bpl b/Output/Debug/Cliente/Inventario_data.bpl index a90c9739..c834ee9c 100644 Binary files a/Output/Debug/Cliente/Inventario_data.bpl and b/Output/Debug/Cliente/Inventario_data.bpl differ diff --git a/Output/Debug/Cliente/Inventario_model.bpl b/Output/Debug/Cliente/Inventario_model.bpl index 0d862099..cfd4a5a5 100644 Binary files a/Output/Debug/Cliente/Inventario_model.bpl and b/Output/Debug/Cliente/Inventario_model.bpl differ diff --git a/Output/Debug/Cliente/Inventario_plugin.bpl b/Output/Debug/Cliente/Inventario_plugin.bpl index 186ba547..36755cea 100644 Binary files a/Output/Debug/Cliente/Inventario_plugin.bpl and b/Output/Debug/Cliente/Inventario_plugin.bpl differ diff --git a/Output/Debug/Cliente/Inventario_view.bpl b/Output/Debug/Cliente/Inventario_view.bpl index 25eeaace..41931bce 100644 Binary files a/Output/Debug/Cliente/Inventario_view.bpl and b/Output/Debug/Cliente/Inventario_view.bpl differ diff --git a/Output/Debug/Cliente/PedCli_AlbCli_relation.bpl b/Output/Debug/Cliente/PedCli_AlbCli_relation.bpl index f8e7089a..11f39c24 100644 Binary files a/Output/Debug/Cliente/PedCli_AlbCli_relation.bpl and b/Output/Debug/Cliente/PedCli_AlbCli_relation.bpl differ diff --git a/Output/Debug/Cliente/PedCli_PedProv_relation.bpl b/Output/Debug/Cliente/PedCli_PedProv_relation.bpl index 4098fd71..810ced97 100644 Binary files a/Output/Debug/Cliente/PedCli_PedProv_relation.bpl and b/Output/Debug/Cliente/PedCli_PedProv_relation.bpl differ diff --git a/Output/Debug/Cliente/PedProv_AlbProv_relation.bpl b/Output/Debug/Cliente/PedProv_AlbProv_relation.bpl index 0eb7fe9b..c27fd0de 100644 Binary files a/Output/Debug/Cliente/PedProv_AlbProv_relation.bpl and b/Output/Debug/Cliente/PedProv_AlbProv_relation.bpl differ diff --git a/Output/Debug/Cliente/PedProv_FacProv_relation.bpl b/Output/Debug/Cliente/PedProv_FacProv_relation.bpl index 051b6ade..b5895ff8 100644 Binary files a/Output/Debug/Cliente/PedProv_FacProv_relation.bpl and b/Output/Debug/Cliente/PedProv_FacProv_relation.bpl differ diff --git a/Output/Debug/Cliente/PedidosCliente_controller.bpl b/Output/Debug/Cliente/PedidosCliente_controller.bpl index 9be2cadd..3a14740e 100644 Binary files a/Output/Debug/Cliente/PedidosCliente_controller.bpl and b/Output/Debug/Cliente/PedidosCliente_controller.bpl differ diff --git a/Output/Debug/Cliente/PedidosCliente_data.bpl b/Output/Debug/Cliente/PedidosCliente_data.bpl index 22204faa..8fb5b3b3 100644 Binary files a/Output/Debug/Cliente/PedidosCliente_data.bpl and b/Output/Debug/Cliente/PedidosCliente_data.bpl differ diff --git a/Output/Debug/Cliente/PedidosCliente_model.bpl b/Output/Debug/Cliente/PedidosCliente_model.bpl index a8d631bf..ef697fa5 100644 Binary files a/Output/Debug/Cliente/PedidosCliente_model.bpl and b/Output/Debug/Cliente/PedidosCliente_model.bpl differ diff --git a/Output/Debug/Cliente/PedidosCliente_plugin.bpl b/Output/Debug/Cliente/PedidosCliente_plugin.bpl index 205d3e1b..ce35703b 100644 Binary files a/Output/Debug/Cliente/PedidosCliente_plugin.bpl and b/Output/Debug/Cliente/PedidosCliente_plugin.bpl differ diff --git a/Output/Debug/Cliente/PedidosCliente_view.bpl b/Output/Debug/Cliente/PedidosCliente_view.bpl index 1ab91320..60709e11 100644 Binary files a/Output/Debug/Cliente/PedidosCliente_view.bpl and b/Output/Debug/Cliente/PedidosCliente_view.bpl differ diff --git a/Output/Debug/Cliente/PedidosProveedor_controller.bpl b/Output/Debug/Cliente/PedidosProveedor_controller.bpl index df4ab2fa..5fd25f27 100644 Binary files a/Output/Debug/Cliente/PedidosProveedor_controller.bpl and b/Output/Debug/Cliente/PedidosProveedor_controller.bpl differ diff --git a/Output/Debug/Cliente/PedidosProveedor_data.bpl b/Output/Debug/Cliente/PedidosProveedor_data.bpl index d6d48cc5..01dacc75 100644 Binary files a/Output/Debug/Cliente/PedidosProveedor_data.bpl and b/Output/Debug/Cliente/PedidosProveedor_data.bpl differ diff --git a/Output/Debug/Cliente/PedidosProveedor_model.bpl b/Output/Debug/Cliente/PedidosProveedor_model.bpl index 8400723d..b9d90ff1 100644 Binary files a/Output/Debug/Cliente/PedidosProveedor_model.bpl and b/Output/Debug/Cliente/PedidosProveedor_model.bpl differ diff --git a/Output/Debug/Cliente/PedidosProveedor_plugin.bpl b/Output/Debug/Cliente/PedidosProveedor_plugin.bpl index 91c9f8b7..a66d7079 100644 Binary files a/Output/Debug/Cliente/PedidosProveedor_plugin.bpl and b/Output/Debug/Cliente/PedidosProveedor_plugin.bpl differ diff --git a/Output/Debug/Cliente/PedidosProveedor_view.bpl b/Output/Debug/Cliente/PedidosProveedor_view.bpl index e7d6f448..a41a7b99 100644 Binary files a/Output/Debug/Cliente/PedidosProveedor_view.bpl and b/Output/Debug/Cliente/PedidosProveedor_view.bpl differ diff --git a/Output/Debug/Cliente/RecibosCliente_controller.bpl b/Output/Debug/Cliente/RecibosCliente_controller.bpl index bca0f324..4a2f5309 100644 Binary files a/Output/Debug/Cliente/RecibosCliente_controller.bpl and b/Output/Debug/Cliente/RecibosCliente_controller.bpl differ diff --git a/Output/Debug/Cliente/RecibosCliente_data.bpl b/Output/Debug/Cliente/RecibosCliente_data.bpl index 062898bd..6d366ebb 100644 Binary files a/Output/Debug/Cliente/RecibosCliente_data.bpl and b/Output/Debug/Cliente/RecibosCliente_data.bpl differ diff --git a/Output/Debug/Cliente/RecibosCliente_model.bpl b/Output/Debug/Cliente/RecibosCliente_model.bpl index dd611b4b..5c666c48 100644 Binary files a/Output/Debug/Cliente/RecibosCliente_model.bpl and b/Output/Debug/Cliente/RecibosCliente_model.bpl differ diff --git a/Output/Debug/Cliente/RecibosCliente_plugin.bpl b/Output/Debug/Cliente/RecibosCliente_plugin.bpl index 56fb161d..6d9bafaa 100644 Binary files a/Output/Debug/Cliente/RecibosCliente_plugin.bpl and b/Output/Debug/Cliente/RecibosCliente_plugin.bpl differ diff --git a/Output/Debug/Cliente/RecibosCliente_view.bpl b/Output/Debug/Cliente/RecibosCliente_view.bpl index 835981cd..e6824242 100644 Binary files a/Output/Debug/Cliente/RecibosCliente_view.bpl and b/Output/Debug/Cliente/RecibosCliente_view.bpl differ diff --git a/Output/Debug/Cliente/RecibosProveedor_controller.bpl b/Output/Debug/Cliente/RecibosProveedor_controller.bpl index 8b02af6c..45c51e50 100644 Binary files a/Output/Debug/Cliente/RecibosProveedor_controller.bpl and b/Output/Debug/Cliente/RecibosProveedor_controller.bpl differ diff --git a/Output/Debug/Cliente/RecibosProveedor_data.bpl b/Output/Debug/Cliente/RecibosProveedor_data.bpl index 5bb39f97..f56346a3 100644 Binary files a/Output/Debug/Cliente/RecibosProveedor_data.bpl and b/Output/Debug/Cliente/RecibosProveedor_data.bpl differ diff --git a/Output/Debug/Cliente/RecibosProveedor_model.bpl b/Output/Debug/Cliente/RecibosProveedor_model.bpl index 6823685e..343300bd 100644 Binary files a/Output/Debug/Cliente/RecibosProveedor_model.bpl and b/Output/Debug/Cliente/RecibosProveedor_model.bpl differ diff --git a/Output/Debug/Cliente/RecibosProveedor_plugin.bpl b/Output/Debug/Cliente/RecibosProveedor_plugin.bpl index a544cb57..8dd4cf31 100644 Binary files a/Output/Debug/Cliente/RecibosProveedor_plugin.bpl and b/Output/Debug/Cliente/RecibosProveedor_plugin.bpl differ diff --git a/Output/Debug/Cliente/RecibosProveedor_view.bpl b/Output/Debug/Cliente/RecibosProveedor_view.bpl index bbbc885e..d348145a 100644 Binary files a/Output/Debug/Cliente/RecibosProveedor_view.bpl and b/Output/Debug/Cliente/RecibosProveedor_view.bpl differ diff --git a/Output/Debug/Cliente/Referencias_controller.bpl b/Output/Debug/Cliente/Referencias_controller.bpl index 66dfd2a9..e397b7b0 100644 Binary files a/Output/Debug/Cliente/Referencias_controller.bpl and b/Output/Debug/Cliente/Referencias_controller.bpl differ diff --git a/Output/Debug/Cliente/Referencias_data.bpl b/Output/Debug/Cliente/Referencias_data.bpl index 67086df6..f5e55b71 100644 Binary files a/Output/Debug/Cliente/Referencias_data.bpl and b/Output/Debug/Cliente/Referencias_data.bpl differ diff --git a/Output/Debug/Cliente/Referencias_model.bpl b/Output/Debug/Cliente/Referencias_model.bpl index 55b6edd2..0a3a8423 100644 Binary files a/Output/Debug/Cliente/Referencias_model.bpl and b/Output/Debug/Cliente/Referencias_model.bpl differ diff --git a/Output/Debug/Cliente/Referencias_plugin.bpl b/Output/Debug/Cliente/Referencias_plugin.bpl index 2ba0e4e9..11e3f426 100644 Binary files a/Output/Debug/Cliente/Referencias_plugin.bpl and b/Output/Debug/Cliente/Referencias_plugin.bpl differ diff --git a/Output/Debug/Cliente/Referencias_view.bpl b/Output/Debug/Cliente/Referencias_view.bpl index 65022a0d..5274c909 100644 Binary files a/Output/Debug/Cliente/Referencias_view.bpl and b/Output/Debug/Cliente/Referencias_view.bpl differ diff --git a/Output/Debug/Cliente/RemesasCliente_controller.bpl b/Output/Debug/Cliente/RemesasCliente_controller.bpl index 776d3697..3111195b 100644 Binary files a/Output/Debug/Cliente/RemesasCliente_controller.bpl and b/Output/Debug/Cliente/RemesasCliente_controller.bpl differ diff --git a/Output/Debug/Cliente/RemesasCliente_data.bpl b/Output/Debug/Cliente/RemesasCliente_data.bpl index a4f4d152..7915c10f 100644 Binary files a/Output/Debug/Cliente/RemesasCliente_data.bpl and b/Output/Debug/Cliente/RemesasCliente_data.bpl differ diff --git a/Output/Debug/Cliente/RemesasCliente_model.bpl b/Output/Debug/Cliente/RemesasCliente_model.bpl index 7b7061db..05213f1b 100644 Binary files a/Output/Debug/Cliente/RemesasCliente_model.bpl and b/Output/Debug/Cliente/RemesasCliente_model.bpl differ diff --git a/Output/Debug/Cliente/RemesasCliente_plugin.bpl b/Output/Debug/Cliente/RemesasCliente_plugin.bpl index 798bf957..4f4b9f4f 100644 Binary files a/Output/Debug/Cliente/RemesasCliente_plugin.bpl and b/Output/Debug/Cliente/RemesasCliente_plugin.bpl differ diff --git a/Output/Debug/Cliente/RemesasCliente_view.bpl b/Output/Debug/Cliente/RemesasCliente_view.bpl index 8e1566a8..92d7a023 100644 Binary files a/Output/Debug/Cliente/RemesasCliente_view.bpl and b/Output/Debug/Cliente/RemesasCliente_view.bpl differ diff --git a/Output/Debug/Cliente/RemesasProveedor_controller.bpl b/Output/Debug/Cliente/RemesasProveedor_controller.bpl index 4a8c3429..8ec12d53 100644 Binary files a/Output/Debug/Cliente/RemesasProveedor_controller.bpl and b/Output/Debug/Cliente/RemesasProveedor_controller.bpl differ diff --git a/Output/Debug/Cliente/RemesasProveedor_data.bpl b/Output/Debug/Cliente/RemesasProveedor_data.bpl index 11a0fe10..84de26ff 100644 Binary files a/Output/Debug/Cliente/RemesasProveedor_data.bpl and b/Output/Debug/Cliente/RemesasProveedor_data.bpl differ diff --git a/Output/Debug/Cliente/RemesasProveedor_model.bpl b/Output/Debug/Cliente/RemesasProveedor_model.bpl index 1ed4a1de..7010163e 100644 Binary files a/Output/Debug/Cliente/RemesasProveedor_model.bpl and b/Output/Debug/Cliente/RemesasProveedor_model.bpl differ diff --git a/Output/Debug/Cliente/RemesasProveedor_plugin.bpl b/Output/Debug/Cliente/RemesasProveedor_plugin.bpl index 14865e0a..75e13e56 100644 Binary files a/Output/Debug/Cliente/RemesasProveedor_plugin.bpl and b/Output/Debug/Cliente/RemesasProveedor_plugin.bpl differ diff --git a/Output/Debug/Cliente/RemesasProveedor_view.bpl b/Output/Debug/Cliente/RemesasProveedor_view.bpl index d54346fc..d9771081 100644 Binary files a/Output/Debug/Cliente/RemesasProveedor_view.bpl and b/Output/Debug/Cliente/RemesasProveedor_view.bpl differ diff --git a/Output/Debug/Cliente/TiendaWeb_controller.bpl b/Output/Debug/Cliente/TiendaWeb_controller.bpl index f719094a..d7bf958b 100644 Binary files a/Output/Debug/Cliente/TiendaWeb_controller.bpl and b/Output/Debug/Cliente/TiendaWeb_controller.bpl differ diff --git a/Output/Debug/Cliente/TiendaWeb_data.bpl b/Output/Debug/Cliente/TiendaWeb_data.bpl index 7e13e56d..f3f2875e 100644 Binary files a/Output/Debug/Cliente/TiendaWeb_data.bpl and b/Output/Debug/Cliente/TiendaWeb_data.bpl differ diff --git a/Output/Debug/Cliente/TiendaWeb_model.bpl b/Output/Debug/Cliente/TiendaWeb_model.bpl index a42ddef8..e41f9891 100644 Binary files a/Output/Debug/Cliente/TiendaWeb_model.bpl and b/Output/Debug/Cliente/TiendaWeb_model.bpl differ diff --git a/Output/Debug/Cliente/TiendaWeb_plugin.bpl b/Output/Debug/Cliente/TiendaWeb_plugin.bpl index bb94adee..2b3c32df 100644 Binary files a/Output/Debug/Cliente/TiendaWeb_plugin.bpl and b/Output/Debug/Cliente/TiendaWeb_plugin.bpl differ diff --git a/Output/Debug/Cliente/TiendaWeb_view.bpl b/Output/Debug/Cliente/TiendaWeb_view.bpl index 2efea2f8..7239b7ca 100644 Binary files a/Output/Debug/Cliente/TiendaWeb_view.bpl and b/Output/Debug/Cliente/TiendaWeb_view.bpl differ diff --git a/Output/Debug/Cliente/TiposIVA_controller.bpl b/Output/Debug/Cliente/TiposIVA_controller.bpl index 9ce2ad7b..01823eb2 100644 Binary files a/Output/Debug/Cliente/TiposIVA_controller.bpl and b/Output/Debug/Cliente/TiposIVA_controller.bpl differ diff --git a/Output/Debug/Cliente/TiposIVA_data.bpl b/Output/Debug/Cliente/TiposIVA_data.bpl index 24c05516..0184401f 100644 Binary files a/Output/Debug/Cliente/TiposIVA_data.bpl and b/Output/Debug/Cliente/TiposIVA_data.bpl differ diff --git a/Output/Debug/Cliente/TiposIVA_model.bpl b/Output/Debug/Cliente/TiposIVA_model.bpl index 5d4a1e28..ea2e37ff 100644 Binary files a/Output/Debug/Cliente/TiposIVA_model.bpl and b/Output/Debug/Cliente/TiposIVA_model.bpl differ diff --git a/Output/Debug/Cliente/TiposIVA_plugin.bpl b/Output/Debug/Cliente/TiposIVA_plugin.bpl index 77abe613..e6183608 100644 Binary files a/Output/Debug/Cliente/TiposIVA_plugin.bpl and b/Output/Debug/Cliente/TiposIVA_plugin.bpl differ diff --git a/Output/Debug/Cliente/TiposIVA_view.bpl b/Output/Debug/Cliente/TiposIVA_view.bpl index 13466cca..070332e0 100644 Binary files a/Output/Debug/Cliente/TiposIVA_view.bpl and b/Output/Debug/Cliente/TiposIVA_view.bpl differ diff --git a/Output/Debug/Cliente/Usuarios.bpl b/Output/Debug/Cliente/Usuarios.bpl index 69ffcb1a..103ec9c7 100644 Binary files a/Output/Debug/Cliente/Usuarios.bpl and b/Output/Debug/Cliente/Usuarios.bpl differ diff --git a/Output/Debug/Servidor/FactuGES_Server.exe b/Output/Debug/Servidor/FactuGES_Server.exe index 9e113553..bcd68407 100644 Binary files a/Output/Debug/Servidor/FactuGES_Server.exe and b/Output/Debug/Servidor/FactuGES_Server.exe differ diff --git a/Output/Debug/Servidor/FactuGES_Server.exe.bak b/Output/Debug/Servidor/FactuGES_Server.exe.bak index d8a8453a..5c42b631 100644 Binary files a/Output/Debug/Servidor/FactuGES_Server.exe.bak and b/Output/Debug/Servidor/FactuGES_Server.exe.bak differ diff --git a/Output/Debug/Servidor/ServerLog.txt b/Output/Debug/Servidor/ServerLog.txt index 1738d002..dd66ad9b 100644 --- a/Output/Debug/Servidor/ServerLog.txt +++ b/Output/Debug/Servidor/ServerLog.txt @@ -1,9 +1,9 @@ -[30/07/2007 20:53:50] +[01/08/2007 16:53:12] [Application: FactuGES (Servidor)] : [Connect] > -[30/07/2007 20:53:50] +[01/08/2007 17:27:08] [Application: FactuGES (Servidor)] : [Prepare] SELECT ID @@ -16,45 +16,45 @@ Plan: PLAN (USUARIOS NATURAL) > -[30/07/2007 20:53:50] +[01/08/2007 17:27:08] [Application: FactuGES (Servidor)] : [Start transaction] > -[30/07/2007 20:53:50] +[01/08/2007 17:27:08] [Application: FactuGES (Servidor)] : [Prepare] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or (not (F.RDB$DEFAULT_VALUE is NULL and R.RDB$DEFAULT_VALUE is NULL))) Plan: PLAN JOIN (R INDEX (RDB$INDEX_4), F INDEX (RDB$INDEX_2)) > -[30/07/2007 20:53:50] +[01/08/2007 17:27:08] [Application: FactuGES (Servidor)] : [Execute] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or (not (F.RDB$DEFAULT_VALUE is NULL and R.RDB$DEFAULT_VALUE is NULL))) RELATION = USUARIOS > -[30/07/2007 20:53:50] +[01/08/2007 17:27:08] [Application: FactuGES (Servidor)] : [Prepare] SELECT RDB$FIELD_NAME, RDB$FIELD_POSITION FROM RDB$RELATION_CONSTRAINTS RR JOIN RDB$INDEX_SEGMENTS RI ON RR.RDB$INDEX_NAME = RI.RDB$INDEX_NAME WHERE RDB$RELATION_NAME = :relation_name AND RDB$CONSTRAINT_TYPE = 'PRIMARY KEY ' ORDER BY RDB$FIELD_POSITION Plan: PLAN SORT (JOIN (RR INDEX (RDB$INDEX_42), RI INDEX (RDB$INDEX_6))) > -[30/07/2007 20:53:50] +[01/08/2007 17:27:08] [Application: FactuGES (Servidor)] : [Execute] SELECT RDB$FIELD_NAME, RDB$FIELD_POSITION FROM RDB$RELATION_CONSTRAINTS RR JOIN RDB$INDEX_SEGMENTS RI ON RR.RDB$INDEX_NAME = RI.RDB$INDEX_NAME WHERE RDB$RELATION_NAME = :relation_name AND RDB$CONSTRAINT_TYPE = 'PRIMARY KEY ' ORDER BY RDB$FIELD_POSITION RELATION_NAME = USUARIOS > -[30/07/2007 20:53:50] +[01/08/2007 17:27:08] [Application: FactuGES (Servidor)] : [Commit (Hard commit)] > -[30/07/2007 20:53:50] +[01/08/2007 17:27:08] [Application: FactuGES (Servidor)] : [Execute] SELECT ID @@ -64,11 +64,11 @@ PASS = :PASS AND ACTIVO = 1 - USUARIO = Luis - PASS = 1 + USUARIO = Administrador + PASS = luisleon07 > -[30/07/2007 20:53:50] +[01/08/2007 17:27:08] [Application: FactuGES (Servidor)] : [Prepare] SELECT PERFILES.PERFIL @@ -80,31 +80,31 @@ Plan: PLAN JOIN (PERFILES_USUARIOS NATURAL, PERFILES INDEX (PK_PERFILES)) > -[30/07/2007 20:53:50] +[01/08/2007 17:27:08] [Application: FactuGES (Servidor)] : [Start transaction] > -[30/07/2007 20:53:50] +[01/08/2007 17:27:08] [Application: FactuGES (Servidor)] : [Execute] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or (not (F.RDB$DEFAULT_VALUE is NULL and R.RDB$DEFAULT_VALUE is NULL))) RELATION = PERFILES > -[30/07/2007 20:53:50] +[01/08/2007 17:27:08] [Application: FactuGES (Servidor)] : [Execute] SELECT RDB$FIELD_NAME, RDB$FIELD_POSITION FROM RDB$RELATION_CONSTRAINTS RR JOIN RDB$INDEX_SEGMENTS RI ON RR.RDB$INDEX_NAME = RI.RDB$INDEX_NAME WHERE RDB$RELATION_NAME = :relation_name AND RDB$CONSTRAINT_TYPE = 'PRIMARY KEY ' ORDER BY RDB$FIELD_POSITION RELATION_NAME = PERFILES > -[30/07/2007 20:53:50] +[01/08/2007 17:27:08] [Application: FactuGES (Servidor)] : [Commit (Hard commit)] > -[30/07/2007 20:53:50] +[01/08/2007 17:27:08] [Application: FactuGES (Servidor)] : [Execute] SELECT PERFILES.PERFIL @@ -113,10 +113,10 @@ WHERE PERFILES_USUARIOS.ID_USUARIO = :ID_USUARIO AND PERFILES.ID = PERFILES_USUARIOS.ID_PERFIL - ID_USUARIO = 2 + ID_USUARIO = 1 > -[30/07/2007 20:53:50] +[01/08/2007 17:27:08] [Application: FactuGES (Servidor)] : [Prepare] SELECT ID_EMPRESA @@ -127,31 +127,31 @@ Plan: PLAN (EMPRESAS_USUARIOS NATURAL) > -[30/07/2007 20:53:50] +[01/08/2007 17:27:08] [Application: FactuGES (Servidor)] : [Start transaction] > -[30/07/2007 20:53:50] +[01/08/2007 17:27:08] [Application: FactuGES (Servidor)] : [Execute] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or (not (F.RDB$DEFAULT_VALUE is NULL and R.RDB$DEFAULT_VALUE is NULL))) RELATION = EMPRESAS_USUARIOS > -[30/07/2007 20:53:50] +[01/08/2007 17:27:08] [Application: FactuGES (Servidor)] : [Execute] SELECT RDB$FIELD_NAME, RDB$FIELD_POSITION FROM RDB$RELATION_CONSTRAINTS RR JOIN RDB$INDEX_SEGMENTS RI ON RR.RDB$INDEX_NAME = RI.RDB$INDEX_NAME WHERE RDB$RELATION_NAME = :relation_name AND RDB$CONSTRAINT_TYPE = 'PRIMARY KEY ' ORDER BY RDB$FIELD_POSITION RELATION_NAME = EMPRESAS_USUARIOS > -[30/07/2007 20:53:50] +[01/08/2007 17:27:08] [Application: FactuGES (Servidor)] : [Commit (Hard commit)] > -[30/07/2007 20:53:50] +[01/08/2007 17:27:08] [Application: FactuGES (Servidor)] : [Execute] SELECT ID_EMPRESA @@ -159,10 +159,10 @@ EMPRESAS_USUARIOS WHERE ID_USUARIO = :ID_USUARIO - ID_USUARIO = 2 + ID_USUARIO = 1 > -[30/07/2007 20:53:53] +[01/08/2007 17:27:10] [Application: FactuGES (Servidor)] : [Prepare] SELECT ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, @@ -171,36 +171,36 @@ FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, REGISTRO_MERCANTIL, IVA FROM - EMPRESAS WHERE (ID IN (1)) + EMPRESAS - Plan: PLAN (EMPRESAS INDEX (PK_EMPRESAS)) + Plan: PLAN (EMPRESAS NATURAL) > -[30/07/2007 20:53:53] +[01/08/2007 17:27:10] [Application: FactuGES (Servidor)] : [Start transaction] > -[30/07/2007 20:53:53] +[01/08/2007 17:27:10] [Application: FactuGES (Servidor)] : [Execute] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or (not (F.RDB$DEFAULT_VALUE is NULL and R.RDB$DEFAULT_VALUE is NULL))) RELATION = EMPRESAS > -[30/07/2007 20:53:53] +[01/08/2007 17:27:10] [Application: FactuGES (Servidor)] : [Execute] SELECT RDB$FIELD_NAME, RDB$FIELD_POSITION FROM RDB$RELATION_CONSTRAINTS RR JOIN RDB$INDEX_SEGMENTS RI ON RR.RDB$INDEX_NAME = RI.RDB$INDEX_NAME WHERE RDB$RELATION_NAME = :relation_name AND RDB$CONSTRAINT_TYPE = 'PRIMARY KEY ' ORDER BY RDB$FIELD_POSITION RELATION_NAME = EMPRESAS > -[30/07/2007 20:53:53] +[01/08/2007 17:27:10] [Application: FactuGES (Servidor)] : [Commit (Hard commit)] > -[30/07/2007 20:53:53] +[01/08/2007 17:27:10] [Application: FactuGES (Servidor)] : [Execute] SELECT ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, @@ -209,11 +209,11 @@ FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, REGISTRO_MERCANTIL, IVA FROM - EMPRESAS WHERE (ID IN (1)) + EMPRESAS > -[30/07/2007 20:53:53] +[01/08/2007 17:27:10] [Application: FactuGES (Servidor)] : [Prepare] SELECT ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, @@ -225,31 +225,31 @@ WHERE ID_EMPRESA = :ID_EMPRESA Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO)) > -[30/07/2007 20:53:53] +[01/08/2007 17:27:10] [Application: FactuGES (Servidor)] : [Start transaction] > -[30/07/2007 20:53:53] +[01/08/2007 17:27:10] [Application: FactuGES (Servidor)] : [Execute] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or (not (F.RDB$DEFAULT_VALUE is NULL and R.RDB$DEFAULT_VALUE is NULL))) RELATION = EMPRESAS_DATOS_BANCO > -[30/07/2007 20:53:53] +[01/08/2007 17:27:10] [Application: FactuGES (Servidor)] : [Execute] SELECT RDB$FIELD_NAME, RDB$FIELD_POSITION FROM RDB$RELATION_CONSTRAINTS RR JOIN RDB$INDEX_SEGMENTS RI ON RR.RDB$INDEX_NAME = RI.RDB$INDEX_NAME WHERE RDB$RELATION_NAME = :relation_name AND RDB$CONSTRAINT_TYPE = 'PRIMARY KEY ' ORDER BY RDB$FIELD_POSITION RELATION_NAME = EMPRESAS_DATOS_BANCO > -[30/07/2007 20:53:53] +[01/08/2007 17:27:10] [Application: FactuGES (Servidor)] : [Commit (Hard commit)] > -[30/07/2007 20:53:53] +[01/08/2007 17:27:10] [Application: FactuGES (Servidor)] : [Execute] SELECT ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, @@ -261,7 +261,7 @@ WHERE ID_EMPRESA = :ID_EMPRESA ID_EMPRESA = 1 > -[30/07/2007 20:53:53] +[01/08/2007 17:27:10] [Application: FactuGES (Servidor)] : [Prepare] SELECT ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, @@ -270,12 +270,12 @@ WHERE ID_EMPRESA = :ID_EMPRESA FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, REGISTRO_MERCANTIL, IVA FROM - EMPRESAS WHERE (ID IN (1)) + EMPRESAS - Plan: PLAN (EMPRESAS INDEX (PK_EMPRESAS)) + Plan: PLAN (EMPRESAS NATURAL) > -[30/07/2007 20:53:53] +[01/08/2007 17:27:10] [Application: FactuGES (Servidor)] : [Execute] SELECT ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, @@ -284,11 +284,11 @@ WHERE ID_EMPRESA = :ID_EMPRESA FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, REGISTRO_MERCANTIL, IVA FROM - EMPRESAS WHERE (ID IN (1)) + EMPRESAS > -[30/07/2007 20:53:53] +[01/08/2007 17:27:10] [Application: FactuGES (Servidor)] : [Prepare] SELECT ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, @@ -300,7 +300,7 @@ WHERE ID_EMPRESA = :ID_EMPRESA Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO)) > -[30/07/2007 20:53:53] +[01/08/2007 17:27:10] [Application: FactuGES (Servidor)] : [Execute] SELECT ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, @@ -312,7 +312,7 @@ WHERE ID_EMPRESA = :ID_EMPRESA ID_EMPRESA = 1 > -[30/07/2007 20:53:53] +[01/08/2007 17:27:10] [Application: FactuGES (Servidor)] : [Prepare] SELECT ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, @@ -321,12 +321,12 @@ WHERE ID_EMPRESA = :ID_EMPRESA FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, REGISTRO_MERCANTIL, IVA FROM - EMPRESAS WHERE (EMPRESAS.ID = 1) AND (ID IN (1)) + EMPRESAS WHERE (EMPRESAS.ID = 1) Plan: PLAN (EMPRESAS INDEX (PK_EMPRESAS)) > -[30/07/2007 20:53:53] +[01/08/2007 17:27:10] [Application: FactuGES (Servidor)] : [Execute] SELECT ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, @@ -335,11 +335,11 @@ WHERE ID_EMPRESA = :ID_EMPRESA FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, REGISTRO_MERCANTIL, IVA FROM - EMPRESAS WHERE (EMPRESAS.ID = 1) AND (ID IN (1)) + EMPRESAS WHERE (EMPRESAS.ID = 1) > -[30/07/2007 20:53:53] +[01/08/2007 17:27:10] [Application: FactuGES (Servidor)] : [Prepare] SELECT ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, @@ -351,7 +351,7 @@ WHERE ID_EMPRESA = :ID_EMPRESA Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO)) > -[30/07/2007 20:53:53] +[01/08/2007 17:27:10] [Application: FactuGES (Servidor)] : [Execute] SELECT ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, @@ -363,767 +363,2182 @@ WHERE ID_EMPRESA = :ID_EMPRESA ID_EMPRESA = 1 > -[30/07/2007 20:53:55] +[01/08/2007 17:27:12] [Application: FactuGES (Servidor)] -: [Prepare] SELECT ID, - ID_RECIBO_COMPENSADO, - REFERENCIA, - SITUACION, - ID_FACTURA, - FECHA_EMISION, - FECHA_VENCIMIENTO, - IMPORTE, - OTROS_GASTOS, - IMPORTE_TOTAL, - FECHA_FACTURA, - IMPORTE_FACTURA, - ID_CLIENTE, - NOMBRE_CLIENTE, - NIF_CIF_CLIENTE, - ID_EMPRESA +: [Prepare] SELECT + ID, ID_EMPRESA, CATEGORIA, CONTROLLER, MODIFICABLE, ICONO, NOMBRE, DESCRIPCION, ORDEN, VISTA + FROM + INFORMES +ORDER BY CATEGORIA -FROM V_RECIBOS_CLIENTE -WHERE ID_RECIBO_COMPENSADO = :ID - - Plan: PLAN JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (V_RECIBOS_CLIENTE RECIBOS_CLIENTE INDEX (IDX_RECIBOS_CLIENTE), JOIN (V_RECIBOS_CLIENTE V_REC_CLI_SITUACION RECIBOS_CLIENTE ORDER PK_RECIBOS_CLIENTE, V_RECIBOS_CLIENTE V_REC_CLI_SITUACION PAGOS_CLIENTE INDEX (FK_PAGOS_CLIENTE))), V_RECIBOS_CLIENTE FACTURAS_CLIENTE INDEX (PK_FACTURAS_CLIENTE)), V_RECIBOS_CLIENTE FORMAS_PAGO INDEX (RDB$PRIMARY1)), V_RECIBOS_CLIENTE CONTACTOS INDEX (PK_CONTACTOS)), V_RECIBOS_CLIENTE CONTACTOS_DATOS_BANCO INDEX (IDX_CONTACTOS_DATOS_BANCO)) + Plan: PLAN SORT ((INFORMES NATURAL)) > -[30/07/2007 20:53:55], V_RECIBOS_CLIENTE REMESAS_CLIENTE INDEX (PK_REMESAS_CLIENTE)), V_RECIBOS_CLIENTE V_REC_CLI_COMPENSADOS RECIBOS_CLIENTE ORDER IDX_RECIBOS_CLIENTE), V_RECIBOS_CLIENTE RECIBO_COMPENSADO1 INDEX (PK_RECIBOS_CLIENTE)), JOIN (V_RECIBOS_CLIENTE RECIBO_COMPENSADO2 RECIBOS_CLIENTE ORDER PK_RECIBOS_CLIENTE, V_RECIBOS_CLIENTE RECIBO_COMPENSADO2 PAGOS_CLIENTE INDEX (FK_PAGOS_CLIENTE))) - - > -[30/07/2007 20:53:55] +[01/08/2007 17:27:12] [Application: FactuGES (Servidor)] : [Start transaction] > -[30/07/2007 20:53:55] +[01/08/2007 17:27:12] [Application: FactuGES (Servidor)] : [Execute] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or (not (F.RDB$DEFAULT_VALUE is NULL and R.RDB$DEFAULT_VALUE is NULL))) - RELATION = V_RECIBOS_CLIENTE + RELATION = INFORMES > -[30/07/2007 20:53:55] +[01/08/2007 17:27:12] [Application: FactuGES (Servidor)] : [Execute] SELECT RDB$FIELD_NAME, RDB$FIELD_POSITION FROM RDB$RELATION_CONSTRAINTS RR JOIN RDB$INDEX_SEGMENTS RI ON RR.RDB$INDEX_NAME = RI.RDB$INDEX_NAME WHERE RDB$RELATION_NAME = :relation_name AND RDB$CONSTRAINT_TYPE = 'PRIMARY KEY ' ORDER BY RDB$FIELD_POSITION - RELATION_NAME = V_RECIBOS_CLIENTE + RELATION_NAME = INFORMES > -[30/07/2007 20:53:55] +[01/08/2007 17:27:12] [Application: FactuGES (Servidor)] : [Commit (Hard commit)] > -[30/07/2007 20:53:55] +[01/08/2007 17:27:12] [Application: FactuGES (Servidor)] -: [Execute] SELECT ID, - ID_RECIBO_COMPENSADO, - REFERENCIA, - SITUACION, - ID_FACTURA, - FECHA_EMISION, - FECHA_VENCIMIENTO, - IMPORTE, - OTROS_GASTOS, - IMPORTE_TOTAL, - FECHA_FACTURA, - IMPORTE_FACTURA, - ID_CLIENTE, - NOMBRE_CLIENTE, - NIF_CIF_CLIENTE, - ID_EMPRESA - -FROM V_RECIBOS_CLIENTE -WHERE ID_RECIBO_COMPENSADO = :ID - - ID = > - - > -[30/07/2007 20:53:55] -[Application: FactuGES (Servidor)] -: [Prepare] SELECT ID, - ID_RECIBO_COMPENSADO, - REFERENCIA_REC_COMPENSADO, - REFERENCIA, - SITUACION, - ID_FACTURA, - ID_REMESA, - REFERENCIA_REMESA, - FECHA_EMISION, - FECHA_VENCIMIENTO, - DESCRIPCION, - OBSERVACIONES, - IMPORTE, - OTROS_GASTOS, - IMPORTE_TOTAL, - FECHA_FACTURA, - FORMA_PAGO_FACTURA, - IMPORTE_FACTURA, - ID_CLIENTE, - NOMBRE_CLIENTE, - NIF_CIF_CLIENTE, - ENTIDAD_CLIENTE, - SUCURSAL_CLIENTE, - DC_CLIENTE, - CUENTA_CLIENTE, - ID_EMPRESA, - FECHA_ALTA, - FECHA_MODIFICACION, - USUARIO - -FROM V_RECIBOS_CLIENTE WHERE (ID_EMPRESA IN (1)) - - Plan: PLAN JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (V_RECIBOS_CLIENTE RECIBOS_CLIENTE NATURAL, JOIN (V_RECIBOS_CLIENTE V_REC_CLI_SITUACION RECIBOS_CLIENTE ORDER PK_RECIBOS_CLIENTE, V_RECIBOS_CLIENTE V_REC_CLI_SITUACION - - > -[30/07/2007 20:53:55] PAGOS_CLIENTE INDEX (FK_PAGOS_CLIENTE))), V_RECIBOS_CLIENTE FACTURAS_CLIENTE INDEX (PK_FACTURAS_CLIENTE)), V_RECIBOS_CLIENTE FORMAS_PAGO INDEX (RDB$PRIMARY1)), V_RECIBOS_CLIENTE CONTACTOS INDEX (PK_CONTACTOS)), V_RECIBOS_CLIENTE CONTACTOS_DATOS_BANCO INDEX (IDX_CONTACTOS_DATOS_BANCO)), V_RECIBOS_CLIENTE REMESAS_CLIENTE INDEX (PK_REMESAS_CLIENTE)), V_RECIBOS_CLIENTE V_REC_CLI_COMPENSADOS RECIBOS_CLIENTE ORDER IDX_RECIBOS_CLIENTE), V_RECIBOS_CLIENTE RECIBO_COMPENSADO1 INDEX (PK_RECIBOS_CLIENTE)), JOIN (V_RECIBOS_CLIENTE RECIBO_COMPENSADO2 RECIBOS_CLIENTE ORDER PK_RECIBOS_CLIENTE, V_RECIBOS_CLIENTE RECIBO_COMPENSADO2 PAGOS_CLIENTE INDEX (FK_PAGOS_CLIENTE))) - - > -[30/07/2007 20:53:55] -[Application: FactuGES (Servidor)] -: [Execute] SELECT ID, - ID_RECIBO_COMPENSADO, - REFERENCIA_REC_COMPENSADO, - REFERENCIA, - SITUACION, - ID_FACTURA, - ID_REMESA, - REFERENCIA_REMESA, - FECHA_EMISION, - FECHA_VENCIMIENTO, - DESCRIPCION, - OBSERVACIONES, - IMPORTE, - OTROS_GASTOS, - IMPORTE_TOTAL, - FECHA_FACTURA, - FORMA_PAGO_FACTURA, - IMPORTE_FACTURA, - ID_CLIENTE, - NOMBRE_CLIENTE, - NIF_CIF_CLIENTE, - ENTIDAD_CLIENTE, - SUCURSAL_CLIENTE, - DC_CLIENTE, - CUENTA_CLIENTE, - ID_EMPRESA, - FECHA_ALTA, - FECHA_MODIFICACION, - USUARIO - -FROM V_RECIBOS_CLIENTE WHERE (ID_EMPRESA IN (1)) +: [Execute] SELECT + ID, ID_EMPRESA, CATEGORIA, CONTROLLER, MODIFICABLE, ICONO, NOMBRE, DESCRIPCION, ORDEN, VISTA + FROM + INFORMES +ORDER BY CATEGORIA > -[30/07/2007 20:53:55] +[01/08/2007 17:28:33] [Application: FactuGES (Servidor)] -: [Prepare] SELECT ID, - ID_RECIBO_COMPENSADO, - REFERENCIA, - SITUACION, - ID_FACTURA, - FECHA_EMISION, - FECHA_VENCIMIENTO, - IMPORTE, - OTROS_GASTOS, - IMPORTE_TOTAL, - FECHA_FACTURA, - IMPORTE_FACTURA, - ID_CLIENTE, - NOMBRE_CLIENTE, - NIF_CIF_CLIENTE, - ID_EMPRESA +: [Prepare] SELECT + ID + FROM + USUARIOS + WHERE USUARIO = :USUARIO AND + PASS = :PASS AND + ACTIVO = 1 -FROM V_RECIBOS_CLIENTE -WHERE ID_RECIBO_COMPENSADO = :ID - - Plan: PLAN JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (V_RECIBOS_CLIENTE RECIBOS_CLIENTE INDEX (IDX_RECIBOS_CLIENTE), JOIN (V_RECIBOS_CLIENTE V_REC_CLI_SITUACION RECIBOS_CLIENTE ORDER PK_RECIBOS_CLIENTE, V_RECIBOS_CLIENTE V_REC_CLI_SITUACION PAGOS_CLIENTE INDEX (FK_PAGOS_CLIENTE))), V_RECIBOS_CLIENTE FACTURAS_CLIENTE INDEX (PK_FACTURAS_CLIENTE)), V_RECIBOS_CLIENTE FORMAS_PAGO INDEX (RDB$PRIMARY1)), V_RECIBOS_CLIENTE CONTACTOS INDEX (PK_CONTACTOS)), V_RECIBOS_CLIENTE CONTACTOS_DATOS_BANCO INDEX (IDX_CONTACTOS_DATOS_BANCO)) + Plan: PLAN (USUARIOS NATURAL) > -[30/07/2007 20:53:55], V_RECIBOS_CLIENTE REMESAS_CLIENTE INDEX (PK_REMESAS_CLIENTE)), V_RECIBOS_CLIENTE V_REC_CLI_COMPENSADOS RECIBOS_CLIENTE ORDER IDX_RECIBOS_CLIENTE), V_RECIBOS_CLIENTE RECIBO_COMPENSADO1 INDEX (PK_RECIBOS_CLIENTE)), JOIN (V_RECIBOS_CLIENTE RECIBO_COMPENSADO2 RECIBOS_CLIENTE ORDER PK_RECIBOS_CLIENTE, V_RECIBOS_CLIENTE RECIBO_COMPENSADO2 PAGOS_CLIENTE INDEX (FK_PAGOS_CLIENTE))) - - > -[30/07/2007 20:53:55] +[01/08/2007 17:28:33] [Application: FactuGES (Servidor)] -: [Execute] SELECT ID, - ID_RECIBO_COMPENSADO, - REFERENCIA, - SITUACION, - ID_FACTURA, - FECHA_EMISION, - FECHA_VENCIMIENTO, - IMPORTE, - OTROS_GASTOS, - IMPORTE_TOTAL, - FECHA_FACTURA, - IMPORTE_FACTURA, - ID_CLIENTE, - NOMBRE_CLIENTE, - NIF_CIF_CLIENTE, - ID_EMPRESA +: [Execute] SELECT + ID + FROM + USUARIOS + WHERE USUARIO = :USUARIO AND + PASS = :PASS AND + ACTIVO = 1 -FROM V_RECIBOS_CLIENTE -WHERE ID_RECIBO_COMPENSADO = :ID - - ID = 273 + USUARIO = Administrador + PASS = luisleon07 > -[30/07/2007 20:53:56] -[Application: FactuGES (Servidor)] -: [Prepare] SELECT ID, - ID_RECIBO_COMPENSADO, - REFERENCIA, - SITUACION, - ID_FACTURA, - FECHA_EMISION, - FECHA_VENCIMIENTO, - IMPORTE, - OTROS_GASTOS, - IMPORTE_TOTAL, - FECHA_FACTURA, - IMPORTE_FACTURA, - ID_CLIENTE, - NOMBRE_CLIENTE, - NIF_CIF_CLIENTE, - ID_EMPRESA - -FROM V_RECIBOS_CLIENTE -WHERE ID_RECIBO_COMPENSADO = :ID - - Plan: PLAN JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (V_RECIBOS_CLIENTE RECIBOS_CLIENTE INDEX (IDX_RECIBOS_CLIENTE), JOIN (V_RECIBOS_CLIENTE V_REC_CLI_SITUACION RECIBOS_CLIENTE ORDER PK_RECIBOS_CLIENTE, V_RECIBOS_CLIENTE V_REC_CLI_SITUACION PAGOS_CLIENTE INDEX (FK_PAGOS_CLIENTE))), V_RECIBOS_CLIENTE FACTURAS_CLIENTE INDEX (PK_FACTURAS_CLIENTE)), V_RECIBOS_CLIENTE FORMAS_PAGO INDEX (RDB$PRIMARY1)), V_RECIBOS_CLIENTE CONTACTOS INDEX (PK_CONTACTOS)), V_RECIBOS_CLIENTE CONTACTOS_DATOS_BANCO INDEX (IDX_CONTACTOS_DATOS_BANCO)) - - > -[30/07/2007 20:53:56], V_RECIBOS_CLIENTE REMESAS_CLIENTE INDEX (PK_REMESAS_CLIENTE)), V_RECIBOS_CLIENTE V_REC_CLI_COMPENSADOS RECIBOS_CLIENTE ORDER IDX_RECIBOS_CLIENTE), V_RECIBOS_CLIENTE RECIBO_COMPENSADO1 INDEX (PK_RECIBOS_CLIENTE)), JOIN (V_RECIBOS_CLIENTE RECIBO_COMPENSADO2 RECIBOS_CLIENTE ORDER PK_RECIBOS_CLIENTE, V_RECIBOS_CLIENTE RECIBO_COMPENSADO2 PAGOS_CLIENTE INDEX (FK_PAGOS_CLIENTE))) - - > -[30/07/2007 20:53:56] -[Application: FactuGES (Servidor)] -: [Execute] SELECT ID, - ID_RECIBO_COMPENSADO, - REFERENCIA, - SITUACION, - ID_FACTURA, - FECHA_EMISION, - FECHA_VENCIMIENTO, - IMPORTE, - OTROS_GASTOS, - IMPORTE_TOTAL, - FECHA_FACTURA, - IMPORTE_FACTURA, - ID_CLIENTE, - NOMBRE_CLIENTE, - NIF_CIF_CLIENTE, - ID_EMPRESA - -FROM V_RECIBOS_CLIENTE -WHERE ID_RECIBO_COMPENSADO = :ID - - ID = 28 - - > -[30/07/2007 20:53:56] +[01/08/2007 17:28:33] [Application: FactuGES (Servidor)] : [Prepare] SELECT - ID, ID_RECIBO, TIPO, FECHA_PAGO, TITULAR, ENTIDAD, - SUCURSAL, DC, CUENTA, FECHA_ALTA, FECHA_MODIFICACION, - USUARIO - -FROM PAGOS_CLIENTE -WHERE ID_RECIBO = :ID -ORDER BY ID /*Muy importante no quitar*/ + PERFILES.PERFIL + FROM + PERFILES, PERFILES_USUARIOS + WHERE PERFILES_USUARIOS.ID_USUARIO = :ID_USUARIO + AND PERFILES.ID = PERFILES_USUARIOS.ID_PERFIL - Plan: PLAN (PAGOS_CLIENTE ORDER PK_PAGOS_CLIENTE INDEX (FK_PAGOS_CLIENTE)) + Plan: PLAN JOIN (PERFILES_USUARIOS NATURAL, PERFILES INDEX (PK_PERFILES)) > -[30/07/2007 20:53:56] +[01/08/2007 17:28:33] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + PERFILES.PERFIL + FROM + PERFILES, PERFILES_USUARIOS + WHERE PERFILES_USUARIOS.ID_USUARIO = :ID_USUARIO + AND PERFILES.ID = PERFILES_USUARIOS.ID_PERFIL + + ID_USUARIO = 1 + + > +[01/08/2007 17:28:33] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID_EMPRESA + FROM + EMPRESAS_USUARIOS + WHERE ID_USUARIO = :ID_USUARIO + + Plan: PLAN (EMPRESAS_USUARIOS NATURAL) + + > +[01/08/2007 17:28:33] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID_EMPRESA + FROM + EMPRESAS_USUARIOS + WHERE ID_USUARIO = :ID_USUARIO + + ID_USUARIO = 1 + + > +[01/08/2007 17:28:35] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + Plan: PLAN (EMPRESAS NATURAL) + + > +[01/08/2007 17:28:35] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + + > +[01/08/2007 17:28:35] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO)) + + > +[01/08/2007 17:28:35] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + ID_EMPRESA = 1 + + > +[01/08/2007 17:28:35] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + Plan: PLAN (EMPRESAS NATURAL) + + > +[01/08/2007 17:28:35] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + + > +[01/08/2007 17:28:35] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO)) + + > +[01/08/2007 17:28:35] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + ID_EMPRESA = 1 + + > +[01/08/2007 17:28:35] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS WHERE (EMPRESAS.ID = 1) + + Plan: PLAN (EMPRESAS INDEX (PK_EMPRESAS)) + + > +[01/08/2007 17:28:35] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS WHERE (EMPRESAS.ID = 1) + + + > +[01/08/2007 17:28:35] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO)) + + > +[01/08/2007 17:28:35] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + ID_EMPRESA = 1 + + > +[01/08/2007 17:28:37] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, CATEGORIA, CONTROLLER, MODIFICABLE, ICONO, NOMBRE, DESCRIPCION, ORDEN, VISTA + FROM + INFORMES +ORDER BY CATEGORIA + + Plan: PLAN SORT ((INFORMES NATURAL)) + + > +[01/08/2007 17:28:37] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, CATEGORIA, CONTROLLER, MODIFICABLE, ICONO, NOMBRE, DESCRIPCION, ORDEN, VISTA + FROM + INFORMES +ORDER BY CATEGORIA + + + > +[01/08/2007 17:30:33] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID + FROM + USUARIOS + WHERE USUARIO = :USUARIO AND + PASS = :PASS AND + ACTIVO = 1 + + Plan: PLAN (USUARIOS NATURAL) + + > +[01/08/2007 17:30:33] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID + FROM + USUARIOS + WHERE USUARIO = :USUARIO AND + PASS = :PASS AND + ACTIVO = 1 + + USUARIO = Administrador + PASS = luisleon07 + + > +[01/08/2007 17:30:33] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + PERFILES.PERFIL + FROM + PERFILES, PERFILES_USUARIOS + WHERE PERFILES_USUARIOS.ID_USUARIO = :ID_USUARIO + AND PERFILES.ID = PERFILES_USUARIOS.ID_PERFIL + + Plan: PLAN JOIN (PERFILES_USUARIOS NATURAL, PERFILES INDEX (PK_PERFILES)) + + > +[01/08/2007 17:30:33] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + PERFILES.PERFIL + FROM + PERFILES, PERFILES_USUARIOS + WHERE PERFILES_USUARIOS.ID_USUARIO = :ID_USUARIO + AND PERFILES.ID = PERFILES_USUARIOS.ID_PERFIL + + ID_USUARIO = 1 + + > +[01/08/2007 17:30:33] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID_EMPRESA + FROM + EMPRESAS_USUARIOS + WHERE ID_USUARIO = :ID_USUARIO + + Plan: PLAN (EMPRESAS_USUARIOS NATURAL) + + > +[01/08/2007 17:30:33] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID_EMPRESA + FROM + EMPRESAS_USUARIOS + WHERE ID_USUARIO = :ID_USUARIO + + ID_USUARIO = 1 + + > +[01/08/2007 17:30:35] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + Plan: PLAN (EMPRESAS NATURAL) + + > +[01/08/2007 17:30:35] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + + > +[01/08/2007 17:30:35] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO)) + + > +[01/08/2007 17:30:35] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + ID_EMPRESA = 1 + + > +[01/08/2007 17:30:35] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + Plan: PLAN (EMPRESAS NATURAL) + + > +[01/08/2007 17:30:35] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + + > +[01/08/2007 17:30:35] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO)) + + > +[01/08/2007 17:30:35] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + ID_EMPRESA = 1 + + > +[01/08/2007 17:30:35] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS WHERE (EMPRESAS.ID = 1) + + Plan: PLAN (EMPRESAS INDEX (PK_EMPRESAS)) + + > +[01/08/2007 17:30:35] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS WHERE (EMPRESAS.ID = 1) + + + > +[01/08/2007 17:30:35] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO)) + + > +[01/08/2007 17:30:35] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + ID_EMPRESA = 1 + + > +[01/08/2007 17:30:36] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, CATEGORIA, CONTROLLER, MODIFICABLE, ICONO, NOMBRE, DESCRIPCION, ORDEN, VISTA + FROM + INFORMES +ORDER BY CATEGORIA + + Plan: PLAN SORT ((INFORMES NATURAL)) + + > +[01/08/2007 17:30:36] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, CATEGORIA, CONTROLLER, MODIFICABLE, ICONO, NOMBRE, DESCRIPCION, ORDEN, VISTA + FROM + INFORMES +ORDER BY CATEGORIA + + + > +[01/08/2007 17:31:16] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID + FROM + USUARIOS + WHERE USUARIO = :USUARIO AND + PASS = :PASS AND + ACTIVO = 1 + + Plan: PLAN (USUARIOS NATURAL) + + > +[01/08/2007 17:31:16] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID + FROM + USUARIOS + WHERE USUARIO = :USUARIO AND + PASS = :PASS AND + ACTIVO = 1 + + USUARIO = Administrador + PASS = luisleon07 + + > +[01/08/2007 17:31:16] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + PERFILES.PERFIL + FROM + PERFILES, PERFILES_USUARIOS + WHERE PERFILES_USUARIOS.ID_USUARIO = :ID_USUARIO + AND PERFILES.ID = PERFILES_USUARIOS.ID_PERFIL + + Plan: PLAN JOIN (PERFILES_USUARIOS NATURAL, PERFILES INDEX (PK_PERFILES)) + + > +[01/08/2007 17:31:16] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + PERFILES.PERFIL + FROM + PERFILES, PERFILES_USUARIOS + WHERE PERFILES_USUARIOS.ID_USUARIO = :ID_USUARIO + AND PERFILES.ID = PERFILES_USUARIOS.ID_PERFIL + + ID_USUARIO = 1 + + > +[01/08/2007 17:31:16] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID_EMPRESA + FROM + EMPRESAS_USUARIOS + WHERE ID_USUARIO = :ID_USUARIO + + Plan: PLAN (EMPRESAS_USUARIOS NATURAL) + + > +[01/08/2007 17:31:16] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID_EMPRESA + FROM + EMPRESAS_USUARIOS + WHERE ID_USUARIO = :ID_USUARIO + + ID_USUARIO = 1 + + > +[01/08/2007 17:31:18] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + Plan: PLAN (EMPRESAS NATURAL) + + > +[01/08/2007 17:31:18] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + + > +[01/08/2007 17:31:18] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO)) + + > +[01/08/2007 17:31:18] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + ID_EMPRESA = 1 + + > +[01/08/2007 17:31:18] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + Plan: PLAN (EMPRESAS NATURAL) + + > +[01/08/2007 17:31:18] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + + > +[01/08/2007 17:31:18] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO)) + + > +[01/08/2007 17:31:18] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + ID_EMPRESA = 1 + + > +[01/08/2007 17:31:18] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS WHERE (EMPRESAS.ID = 1) + + Plan: PLAN (EMPRESAS INDEX (PK_EMPRESAS)) + + > +[01/08/2007 17:31:18] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS WHERE (EMPRESAS.ID = 1) + + + > +[01/08/2007 17:31:19] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO)) + + > +[01/08/2007 17:31:19] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + ID_EMPRESA = 1 + + > +[01/08/2007 17:31:21] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, CATEGORIA, CONTROLLER, MODIFICABLE, ICONO, NOMBRE, DESCRIPCION, ORDEN, VISTA + FROM + INFORMES +ORDER BY CATEGORIA + + Plan: PLAN SORT ((INFORMES NATURAL)) + + > +[01/08/2007 17:31:21] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, CATEGORIA, CONTROLLER, MODIFICABLE, ICONO, NOMBRE, DESCRIPCION, ORDEN, VISTA + FROM + INFORMES +ORDER BY CATEGORIA + + + > +[01/08/2007 17:32:05] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID + FROM + USUARIOS + WHERE USUARIO = :USUARIO AND + PASS = :PASS AND + ACTIVO = 1 + + Plan: PLAN (USUARIOS NATURAL) + + > +[01/08/2007 17:32:05] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID + FROM + USUARIOS + WHERE USUARIO = :USUARIO AND + PASS = :PASS AND + ACTIVO = 1 + + USUARIO = Administrador + PASS = luisleon07 + + > +[01/08/2007 17:32:05] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + PERFILES.PERFIL + FROM + PERFILES, PERFILES_USUARIOS + WHERE PERFILES_USUARIOS.ID_USUARIO = :ID_USUARIO + AND PERFILES.ID = PERFILES_USUARIOS.ID_PERFIL + + Plan: PLAN JOIN (PERFILES_USUARIOS NATURAL, PERFILES INDEX (PK_PERFILES)) + + > +[01/08/2007 17:32:05] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + PERFILES.PERFIL + FROM + PERFILES, PERFILES_USUARIOS + WHERE PERFILES_USUARIOS.ID_USUARIO = :ID_USUARIO + AND PERFILES.ID = PERFILES_USUARIOS.ID_PERFIL + + ID_USUARIO = 1 + + > +[01/08/2007 17:32:05] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID_EMPRESA + FROM + EMPRESAS_USUARIOS + WHERE ID_USUARIO = :ID_USUARIO + + Plan: PLAN (EMPRESAS_USUARIOS NATURAL) + + > +[01/08/2007 17:32:05] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID_EMPRESA + FROM + EMPRESAS_USUARIOS + WHERE ID_USUARIO = :ID_USUARIO + + ID_USUARIO = 1 + + > +[01/08/2007 17:32:07] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + Plan: PLAN (EMPRESAS NATURAL) + + > +[01/08/2007 17:32:07] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + + > +[01/08/2007 17:32:07] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO)) + + > +[01/08/2007 17:32:07] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + ID_EMPRESA = 1 + + > +[01/08/2007 17:32:07] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + Plan: PLAN (EMPRESAS NATURAL) + + > +[01/08/2007 17:32:07] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + + > +[01/08/2007 17:32:07] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO)) + + > +[01/08/2007 17:32:07] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + ID_EMPRESA = 1 + + > +[01/08/2007 17:32:07] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS WHERE (EMPRESAS.ID = 1) + + Plan: PLAN (EMPRESAS INDEX (PK_EMPRESAS)) + + > +[01/08/2007 17:32:07] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS WHERE (EMPRESAS.ID = 1) + + + > +[01/08/2007 17:32:07] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO)) + + > +[01/08/2007 17:32:07] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + ID_EMPRESA = 1 + + > +[01/08/2007 17:32:09] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, CATEGORIA, CONTROLLER, MODIFICABLE, ICONO, NOMBRE, DESCRIPCION, ORDEN, VISTA + FROM + INFORMES +ORDER BY CATEGORIA + + Plan: PLAN SORT ((INFORMES NATURAL)) + + > +[01/08/2007 17:32:09] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, CATEGORIA, CONTROLLER, MODIFICABLE, ICONO, NOMBRE, DESCRIPCION, ORDEN, VISTA + FROM + INFORMES +ORDER BY CATEGORIA + + + > +[01/08/2007 17:32:49] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID + FROM + USUARIOS + WHERE USUARIO = :USUARIO AND + PASS = :PASS AND + ACTIVO = 1 + + Plan: PLAN (USUARIOS NATURAL) + + > +[01/08/2007 17:32:49] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID + FROM + USUARIOS + WHERE USUARIO = :USUARIO AND + PASS = :PASS AND + ACTIVO = 1 + + USUARIO = Administrador + PASS = luisleon07 + + > +[01/08/2007 17:32:49] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + PERFILES.PERFIL + FROM + PERFILES, PERFILES_USUARIOS + WHERE PERFILES_USUARIOS.ID_USUARIO = :ID_USUARIO + AND PERFILES.ID = PERFILES_USUARIOS.ID_PERFIL + + Plan: PLAN JOIN (PERFILES_USUARIOS NATURAL, PERFILES INDEX (PK_PERFILES)) + + > +[01/08/2007 17:32:49] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + PERFILES.PERFIL + FROM + PERFILES, PERFILES_USUARIOS + WHERE PERFILES_USUARIOS.ID_USUARIO = :ID_USUARIO + AND PERFILES.ID = PERFILES_USUARIOS.ID_PERFIL + + ID_USUARIO = 1 + + > +[01/08/2007 17:32:49] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID_EMPRESA + FROM + EMPRESAS_USUARIOS + WHERE ID_USUARIO = :ID_USUARIO + + Plan: PLAN (EMPRESAS_USUARIOS NATURAL) + + > +[01/08/2007 17:32:49] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID_EMPRESA + FROM + EMPRESAS_USUARIOS + WHERE ID_USUARIO = :ID_USUARIO + + ID_USUARIO = 1 + + > +[01/08/2007 17:32:51] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + Plan: PLAN (EMPRESAS NATURAL) + + > +[01/08/2007 17:32:51] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + + > +[01/08/2007 17:32:51] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO)) + + > +[01/08/2007 17:32:51] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + ID_EMPRESA = 1 + + > +[01/08/2007 17:32:51] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + Plan: PLAN (EMPRESAS NATURAL) + + > +[01/08/2007 17:32:51] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + + > +[01/08/2007 17:32:51] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO)) + + > +[01/08/2007 17:32:51] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + ID_EMPRESA = 1 + + > +[01/08/2007 17:32:51] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS WHERE (EMPRESAS.ID = 1) + + Plan: PLAN (EMPRESAS INDEX (PK_EMPRESAS)) + + > +[01/08/2007 17:32:51] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS WHERE (EMPRESAS.ID = 1) + + + > +[01/08/2007 17:32:51] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO)) + + > +[01/08/2007 17:32:51] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + ID_EMPRESA = 1 + + > +[01/08/2007 17:32:53] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, CATEGORIA, CONTROLLER, MODIFICABLE, ICONO, NOMBRE, DESCRIPCION, ORDEN, VISTA + FROM + INFORMES +ORDER BY CATEGORIA + + Plan: PLAN SORT ((INFORMES NATURAL)) + + > +[01/08/2007 17:32:53] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, CATEGORIA, CONTROLLER, MODIFICABLE, ICONO, NOMBRE, DESCRIPCION, ORDEN, VISTA + FROM + INFORMES +ORDER BY CATEGORIA + + + > +[01/08/2007 17:34:28] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID + FROM + USUARIOS + WHERE USUARIO = :USUARIO AND + PASS = :PASS AND + ACTIVO = 1 + + Plan: PLAN (USUARIOS NATURAL) + + > +[01/08/2007 17:34:28] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID + FROM + USUARIOS + WHERE USUARIO = :USUARIO AND + PASS = :PASS AND + ACTIVO = 1 + + USUARIO = Administrador + PASS = luisleon07 + + > +[01/08/2007 17:34:28] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + PERFILES.PERFIL + FROM + PERFILES, PERFILES_USUARIOS + WHERE PERFILES_USUARIOS.ID_USUARIO = :ID_USUARIO + AND PERFILES.ID = PERFILES_USUARIOS.ID_PERFIL + + Plan: PLAN JOIN (PERFILES_USUARIOS NATURAL, PERFILES INDEX (PK_PERFILES)) + + > +[01/08/2007 17:34:28] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + PERFILES.PERFIL + FROM + PERFILES, PERFILES_USUARIOS + WHERE PERFILES_USUARIOS.ID_USUARIO = :ID_USUARIO + AND PERFILES.ID = PERFILES_USUARIOS.ID_PERFIL + + ID_USUARIO = 1 + + > +[01/08/2007 17:34:28] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID_EMPRESA + FROM + EMPRESAS_USUARIOS + WHERE ID_USUARIO = :ID_USUARIO + + Plan: PLAN (EMPRESAS_USUARIOS NATURAL) + + > +[01/08/2007 17:34:28] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID_EMPRESA + FROM + EMPRESAS_USUARIOS + WHERE ID_USUARIO = :ID_USUARIO + + ID_USUARIO = 1 + + > +[01/08/2007 17:34:31] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + Plan: PLAN (EMPRESAS NATURAL) + + > +[01/08/2007 17:34:31] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + + > +[01/08/2007 17:34:31] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO)) + + > +[01/08/2007 17:34:31] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + ID_EMPRESA = 1 + + > +[01/08/2007 17:34:31] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + Plan: PLAN (EMPRESAS NATURAL) + + > +[01/08/2007 17:34:31] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + + > +[01/08/2007 17:34:31] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO)) + + > +[01/08/2007 17:34:31] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + ID_EMPRESA = 1 + + > +[01/08/2007 17:34:31] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS WHERE (EMPRESAS.ID = 1) + + Plan: PLAN (EMPRESAS INDEX (PK_EMPRESAS)) + + > +[01/08/2007 17:34:31] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS WHERE (EMPRESAS.ID = 1) + + + > +[01/08/2007 17:34:31] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO)) + + > +[01/08/2007 17:34:31] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + ID_EMPRESA = 1 + + > +[01/08/2007 17:34:32] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, CATEGORIA, CONTROLLER, MODIFICABLE, ICONO, NOMBRE, DESCRIPCION, ORDEN, VISTA + FROM + INFORMES +ORDER BY CATEGORIA + + Plan: PLAN SORT ((INFORMES NATURAL)) + + > +[01/08/2007 17:34:32] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, CATEGORIA, CONTROLLER, MODIFICABLE, ICONO, NOMBRE, DESCRIPCION, ORDEN, VISTA + FROM + INFORMES +ORDER BY CATEGORIA + + + > +[01/08/2007 17:36:22] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID + FROM + USUARIOS + WHERE USUARIO = :USUARIO AND + PASS = :PASS AND + ACTIVO = 1 + + Plan: PLAN (USUARIOS NATURAL) + + > +[01/08/2007 17:36:22] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID + FROM + USUARIOS + WHERE USUARIO = :USUARIO AND + PASS = :PASS AND + ACTIVO = 1 + + USUARIO = Administrador + PASS = luisleon07 + + > +[01/08/2007 17:36:22] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + PERFILES.PERFIL + FROM + PERFILES, PERFILES_USUARIOS + WHERE PERFILES_USUARIOS.ID_USUARIO = :ID_USUARIO + AND PERFILES.ID = PERFILES_USUARIOS.ID_PERFIL + + Plan: PLAN JOIN (PERFILES_USUARIOS NATURAL, PERFILES INDEX (PK_PERFILES)) + + > +[01/08/2007 17:36:22] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + PERFILES.PERFIL + FROM + PERFILES, PERFILES_USUARIOS + WHERE PERFILES_USUARIOS.ID_USUARIO = :ID_USUARIO + AND PERFILES.ID = PERFILES_USUARIOS.ID_PERFIL + + ID_USUARIO = 1 + + > +[01/08/2007 17:36:22] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID_EMPRESA + FROM + EMPRESAS_USUARIOS + WHERE ID_USUARIO = :ID_USUARIO + + Plan: PLAN (EMPRESAS_USUARIOS NATURAL) + + > +[01/08/2007 17:36:22] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID_EMPRESA + FROM + EMPRESAS_USUARIOS + WHERE ID_USUARIO = :ID_USUARIO + + ID_USUARIO = 1 + + > +[01/08/2007 17:36:24] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + Plan: PLAN (EMPRESAS NATURAL) + + > +[01/08/2007 17:36:24] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + + > +[01/08/2007 17:36:24] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO)) + + > +[01/08/2007 17:36:24] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + ID_EMPRESA = 1 + + > +[01/08/2007 17:36:24] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + Plan: PLAN (EMPRESAS NATURAL) + + > +[01/08/2007 17:36:24] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + + > +[01/08/2007 17:36:24] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO)) + + > +[01/08/2007 17:36:24] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + ID_EMPRESA = 1 + + > +[01/08/2007 17:36:24] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS WHERE (EMPRESAS.ID = 1) + + Plan: PLAN (EMPRESAS INDEX (PK_EMPRESAS)) + + > +[01/08/2007 17:36:24] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS WHERE (EMPRESAS.ID = 1) + + + > +[01/08/2007 17:36:24] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO)) + + > +[01/08/2007 17:36:24] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + ID_EMPRESA = 1 + + > +[01/08/2007 17:36:26] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, CATEGORIA, CONTROLLER, MODIFICABLE, ICONO, NOMBRE, DESCRIPCION, ORDEN, VISTA + FROM + INFORMES +ORDER BY CATEGORIA + + Plan: PLAN SORT ((INFORMES NATURAL)) + + > +[01/08/2007 17:36:26] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, CATEGORIA, CONTROLLER, MODIFICABLE, ICONO, NOMBRE, DESCRIPCION, ORDEN, VISTA + FROM + INFORMES +ORDER BY CATEGORIA + + + > +[01/08/2007 17:37:06] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT DISTINCT +CALLE_AGENTE,CALLE_CLIENTE,CALLE_PROVEEDOR,SUM(CANTIDAD) AS CANTIDAD,COMISION_AGENTE,COMISIONABLE,DESCRIPCION,DESCUENTO_CLIENTE_VENTA,DESCUENTO_PROVEEDOR_COSTE,FAMILIA,FECHA_FACTURA,ID_ARTICULO,ID_COMISION_FACTURA,ID_EMPRESA,ID_FACTURA,SUM(IMPORTE_COMISION_AGENTE) AS IMPORTE_COMISION_AGENTE,IMPORTE_NETO_COSTE,IMPORTE_NETO_VENTA,IMPORTE_PORTE_COSTE,SUM(IMPORTE_TOTAL_FACTURA) AS IMPORTE_TOTAL_FACTURA,IMPORTE_TOTAL_VENTA,IMPORTE_UNIDAD_COSTE,IMPORTE_UNIDAD_VENTA,INVENTARIABLE,NIF_CIF_AGENTE,NIF_CIF_CLIENTE,NIF_CIF_PROVEEDOR,NOMBRE_AGENTE,NOMBRE_CLIENTE,NOMBRE_COMERCIAL_CLIENTE,NOMBRE_PROVEEDOR,POBLACION_AGENTE,POBLACION_CLIENTE,POBLACION_PROVEEDOR,PROVINCIA_AGENTE,PROVINCIA_CLIENTE,PROVINCIA_PROVEEDOR,REFERENCIA,REFERENCIA_FACTURA,REFERENCIA_PROV +FROM V_INF_MARGEN_VENTAS_ARTICULOS +WHERE FECHA_FACTURA BETWEEN :FECHAINI AND :FECHAFIN +GROUP BY CALLE_AGENTE,CALLE_CLIENTE,CALLE_PROVEEDOR,COMISION_AGENTE,COMISIONABLE,DESCRIPC + + > +[01/08/2007 17:37:06]ION,DESCUENTO_CLIENTE_VENTA,DESCUENTO_PROVEEDOR_COSTE,FAMILIA,FECHA_FACTURA,ID_ARTICULO,ID_COMISION_FACTURA,ID_EMPRESA,ID_FACTURA,IMPORTE_NETO_COSTE,IMPORTE_NETO_VENTA,IMPORTE_PORTE_COSTE,IMPORTE_TOTAL_VENTA,IMPORTE_UNIDAD_COSTE,IMPORTE_UNIDAD_VENTA,INVENTARIABLE,NIF_CIF_AGENTE,NIF_CIF_CLIENTE,NIF_CIF_PROVEEDOR,NOMBRE_AGENTE,NOMBRE_CLIENTE,NOMBRE_COMERCIAL_CLIENTE,NOMBRE_PROVEEDOR,POBLACION_AGENTE,POBLACION_CLIENTE,POBLACION_PROVEEDOR,PROVINCIA_AGENTE,PROVINCIA_CLIENTE,PROVINCIA_PROVEEDOR,REFERENCIA,REFERENCIA_FACTURA,REFERENCIA_PROV + + Plan: PLAN SORT (SORT (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (V_INF_MARGEN_VENTAS_ARTICULOS FACTURAS_CLIENTE_DETALLES INDEX (IDX_FACTURAS_CLIENTE_DETALLES2), SORT (JOIN (JOIN (V_INF_MARGEN_VENTAS_ARTICULOS V_INF_ULTIMA_COMPRA FACTURAS_PROVEEDOR_DETALLES INDEX (IDX_FACTURAS_PROVEEDOR_DETALLES), V_INF_MARGEN_VENTAS_ARTICULOS V_INF_ULTIMA_COMPRA FACTURAS_PROVEEDOR INDEX (PK_FACTURAS_PROVEEDOR)), SORT (JOIN (V_INF_MARGEN_VENTAS_ARTICULOS V_ + + > +[01/08/2007 17:37:06]INF_ULTIMA_COMPRA V_INF_FEC_ULTIMA_COMPRA FACTURAS_PROVEEDOR_DETALLES INDEX (IDX_FACTURAS_PROVEEDOR_DETALLES), V_INF_MARGEN_VENTAS_ARTICULOS V_INF_ULTIMA_COMPRA V_INF_FEC_ULTIMA_COMPRA FACTURAS_PROVEEDOR INDEX (PK_FACTURAS_PROVEEDOR)))))), SORT (JOIN (V_INF_MARGEN_VENTAS_ARTICULOS V_INF_PROMEDIO_COMPRA FACTURAS_PROVEEDOR_DETALLES INDEX (IDX_FACTURAS_PROVEEDOR_DETALLES), V_INF_MARGEN_VENTAS_ARTICULOS V_INF_PROMEDIO_COMPRA FACTURAS_PROVEEDOR INDEX (PK_FACTURAS_PROVEEDOR)))), V_INF_MARGEN_VENTAS_ARTICULOS ARTICULOS INDEX (PK_ARTICULOS)), V_INF_MARGEN_VENTAS_ARTICULOS PROVEEDORES INDEX (PK_CONTACTOS)), V_INF_MARGEN_VENTAS_ARTICULOS FACTURAS_CLIENTE INDEX (PK_FACTURAS_CLIENTE)), V_INF_MARGEN_VENTAS_ARTICULOS CLIENTES INDEX (PK_CONTACTOS)), V_INF_MARGEN_VENTAS_ARTICULOS CLIENTES_DATOS INDEX (PK_CLIENTES_DATOS)), V_INF_MARGEN_VENTAS_ARTICULOS AGENTES INDEX (PK_CONTACTOS)), V_INF_MARGEN_VENTAS_ARTICULOS AGENTES_COMISIONES INDEX (IDX_AGENTES_COMISIONES2, IDX_AGENTES_COMISIONES1)))) + + > +[01/08/2007 17:37:06] [Application: FactuGES (Servidor)] : [Start transaction] > -[30/07/2007 20:53:56] +[01/08/2007 17:37:06] [Application: FactuGES (Servidor)] : [Execute] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or (not (F.RDB$DEFAULT_VALUE is NULL and R.RDB$DEFAULT_VALUE is NULL))) - RELATION = PAGOS_CLIENTE + RELATION = > -[30/07/2007 20:53:56] +[01/08/2007 17:37:06] [Application: FactuGES (Servidor)] : [Execute] SELECT RDB$FIELD_NAME, RDB$FIELD_POSITION FROM RDB$RELATION_CONSTRAINTS RR JOIN RDB$INDEX_SEGMENTS RI ON RR.RDB$INDEX_NAME = RI.RDB$INDEX_NAME WHERE RDB$RELATION_NAME = :relation_name AND RDB$CONSTRAINT_TYPE = 'PRIMARY KEY ' ORDER BY RDB$FIELD_POSITION - RELATION_NAME = PAGOS_CLIENTE + RELATION_NAME = > -[30/07/2007 20:53:56] +[01/08/2007 17:37:06] [Application: FactuGES (Servidor)] : [Commit (Hard commit)] > -[30/07/2007 20:53:56] +[01/08/2007 17:37:06] [Application: FactuGES (Servidor)] -: [Execute] SELECT - ID, ID_RECIBO, TIPO, FECHA_PAGO, TITULAR, ENTIDAD, - SUCURSAL, DC, CUENTA, FECHA_ALTA, FECHA_MODIFICACION, - USUARIO - -FROM PAGOS_CLIENTE -WHERE ID_RECIBO = :ID -ORDER BY ID /*Muy importante no quitar*/ - - ID = 28 +: [Execute] SELECT DISTINCT +CALLE_AGENTE,CALLE_CLIENTE,CALLE_PROVEEDOR,SUM(CANTIDAD) AS CANTIDAD,COMISION_AGENTE,COMISIONABLE,DESCRIPCION,DESCUENTO_CLIENTE_VENTA,DESCUENTO_PROVEEDOR_COSTE,FAMILIA,FECHA_FACTURA,ID_ARTICULO,ID_COMISION_FACTURA,ID_EMPRESA,ID_FACTURA,SUM(IMPORTE_COMISION_AGENTE) AS IMPORTE_COMISION_AGENTE,IMPORTE_NETO_COSTE,IMPORTE_NETO_VENTA,IMPORTE_PORTE_COSTE,SUM(IMPORTE_TOTAL_FACTURA) AS IMPORTE_TOTAL_FACTURA,IMPORTE_TOTAL_VENTA,IMPORTE_UNIDAD_COSTE,IMPORTE_UNIDAD_VENTA,INVENTARIABLE,NIF_CIF_AGENTE,NIF_CIF_CLIENTE,NIF_CIF_PROVEEDOR,NOMBRE_AGENTE,NOMBRE_CLIENTE,NOMBRE_COMERCIAL_CLIENTE,NOMBRE_PROVEEDOR,POBLACION_AGENTE,POBLACION_CLIENTE,POBLACION_PROVEEDOR,PROVINCIA_AGENTE,PROVINCIA_CLIENTE,PROVINCIA_PROVEEDOR,REFERENCIA,REFERENCIA_FACTURA,REFERENCIA_PROV +FROM V_INF_MARGEN_VENTAS_ARTICULOS +WHERE FECHA_FACTURA BETWEEN :FECHAINI AND :FECHAFIN +GROUP BY CALLE_AGENTE,CALLE_CLIENTE,CALLE_PROVEEDOR,COMISION_AGENTE,COMISIONABLE,DESCRIPC > -[30/07/2007 20:53:56] +[01/08/2007 17:37:06]ION,DESCUENTO_CLIENTE_VENTA,DESCUENTO_PROVEEDOR_COSTE,FAMILIA,FECHA_FACTURA,ID_ARTICULO,ID_COMISION_FACTURA,ID_EMPRESA,ID_FACTURA,IMPORTE_NETO_COSTE,IMPORTE_NETO_VENTA,IMPORTE_PORTE_COSTE,IMPORTE_TOTAL_VENTA,IMPORTE_UNIDAD_COSTE,IMPORTE_UNIDAD_VENTA,INVENTARIABLE,NIF_CIF_AGENTE,NIF_CIF_CLIENTE,NIF_CIF_PROVEEDOR,NOMBRE_AGENTE,NOMBRE_CLIENTE,NOMBRE_COMERCIAL_CLIENTE,NOMBRE_PROVEEDOR,POBLACION_AGENTE,POBLACION_CLIENTE,POBLACION_PROVEEDOR,PROVINCIA_AGENTE,PROVINCIA_CLIENTE,PROVINCIA_PROVEEDOR,REFERENCIA,REFERENCIA_FACTURA,REFERENCIA_PROV + + FECHAINI = 01/08/2007 + FECHAFIN = 31/08/2007 + + > +[01/08/2007 17:44:40] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID + FROM + USUARIOS + WHERE USUARIO = :USUARIO AND + PASS = :PASS AND + ACTIVO = 1 + + Plan: PLAN (USUARIOS NATURAL) + + > +[01/08/2007 17:44:40] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID + FROM + USUARIOS + WHERE USUARIO = :USUARIO AND + PASS = :PASS AND + ACTIVO = 1 + + USUARIO = Administrador + PASS = luisleon07 + + > +[01/08/2007 17:44:40] [Application: FactuGES (Servidor)] : [Prepare] SELECT - ID, ID_RECIBO, TIPO, FECHA_PAGO, TITULAR, ENTIDAD, - SUCURSAL, DC, CUENTA, FECHA_ALTA, FECHA_MODIFICACION, - USUARIO - -FROM PAGOS_CLIENTE -WHERE ID_RECIBO = :ID -ORDER BY ID /*Muy importante no quitar*/ + PERFILES.PERFIL + FROM + PERFILES, PERFILES_USUARIOS + WHERE PERFILES_USUARIOS.ID_USUARIO = :ID_USUARIO + AND PERFILES.ID = PERFILES_USUARIOS.ID_PERFIL - Plan: PLAN (PAGOS_CLIENTE ORDER PK_PAGOS_CLIENTE INDEX (FK_PAGOS_CLIENTE)) + Plan: PLAN JOIN (PERFILES_USUARIOS NATURAL, PERFILES INDEX (PK_PERFILES)) > -[30/07/2007 20:53:56] +[01/08/2007 17:44:40] [Application: FactuGES (Servidor)] : [Execute] SELECT - ID, ID_RECIBO, TIPO, FECHA_PAGO, TITULAR, ENTIDAD, - SUCURSAL, DC, CUENTA, FECHA_ALTA, FECHA_MODIFICACION, - USUARIO - -FROM PAGOS_CLIENTE -WHERE ID_RECIBO = :ID -ORDER BY ID /*Muy importante no quitar*/ + PERFILES.PERFIL + FROM + PERFILES, PERFILES_USUARIOS + WHERE PERFILES_USUARIOS.ID_USUARIO = :ID_USUARIO + AND PERFILES.ID = PERFILES_USUARIOS.ID_PERFIL - ID = 44 + ID_USUARIO = 1 > -[30/07/2007 20:53:56] -[Application: FactuGES (Servidor)] -: [Prepare] SELECT ID, - ID_RECIBO_COMPENSADO, - REFERENCIA, - SITUACION, - ID_FACTURA, - FECHA_EMISION, - FECHA_VENCIMIENTO, - IMPORTE, - OTROS_GASTOS, - IMPORTE_TOTAL, - FECHA_FACTURA, - IMPORTE_FACTURA, - ID_CLIENTE, - NOMBRE_CLIENTE, - NIF_CIF_CLIENTE, - ID_EMPRESA - -FROM V_RECIBOS_CLIENTE -WHERE ID_RECIBO_COMPENSADO = :ID - - Plan: PLAN JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (V_RECIBOS_CLIENTE RECIBOS_CLIENTE INDEX (IDX_RECIBOS_CLIENTE), JOIN (V_RECIBOS_CLIENTE V_REC_CLI_SITUACION RECIBOS_CLIENTE ORDER PK_RECIBOS_CLIENTE, V_RECIBOS_CLIENTE V_REC_CLI_SITUACION PAGOS_CLIENTE INDEX (FK_PAGOS_CLIENTE))), V_RECIBOS_CLIENTE FACTURAS_CLIENTE INDEX (PK_FACTURAS_CLIENTE)), V_RECIBOS_CLIENTE FORMAS_PAGO INDEX (RDB$PRIMARY1)), V_RECIBOS_CLIENTE CONTACTOS INDEX (PK_CONTACTOS)), V_RECIBOS_CLIENTE CONTACTOS_DATOS_BANCO INDEX (IDX_CONTACTOS_DATOS_BANCO)) - - > -[30/07/2007 20:53:56], V_RECIBOS_CLIENTE REMESAS_CLIENTE INDEX (PK_REMESAS_CLIENTE)), V_RECIBOS_CLIENTE V_REC_CLI_COMPENSADOS RECIBOS_CLIENTE ORDER IDX_RECIBOS_CLIENTE), V_RECIBOS_CLIENTE RECIBO_COMPENSADO1 INDEX (PK_RECIBOS_CLIENTE)), JOIN (V_RECIBOS_CLIENTE RECIBO_COMPENSADO2 RECIBOS_CLIENTE ORDER PK_RECIBOS_CLIENTE, V_RECIBOS_CLIENTE RECIBO_COMPENSADO2 PAGOS_CLIENTE INDEX (FK_PAGOS_CLIENTE))) - - > -[30/07/2007 20:53:56] -[Application: FactuGES (Servidor)] -: [Execute] SELECT ID, - ID_RECIBO_COMPENSADO, - REFERENCIA, - SITUACION, - ID_FACTURA, - FECHA_EMISION, - FECHA_VENCIMIENTO, - IMPORTE, - OTROS_GASTOS, - IMPORTE_TOTAL, - FECHA_FACTURA, - IMPORTE_FACTURA, - ID_CLIENTE, - NOMBRE_CLIENTE, - NIF_CIF_CLIENTE, - ID_EMPRESA - -FROM V_RECIBOS_CLIENTE -WHERE ID_RECIBO_COMPENSADO = :ID - - ID = 44 - - > -[30/07/2007 20:53:57] +[01/08/2007 17:44:40] [Application: FactuGES (Servidor)] : [Prepare] SELECT - ID, ID_RECIBO, TIPO, FECHA_PAGO, TITULAR, ENTIDAD, - SUCURSAL, DC, CUENTA, FECHA_ALTA, FECHA_MODIFICACION, - USUARIO - -FROM PAGOS_CLIENTE -WHERE ID_RECIBO = :ID -ORDER BY ID /*Muy importante no quitar*/ + ID_EMPRESA + FROM + EMPRESAS_USUARIOS + WHERE ID_USUARIO = :ID_USUARIO - Plan: PLAN (PAGOS_CLIENTE ORDER PK_PAGOS_CLIENTE INDEX (FK_PAGOS_CLIENTE)) + Plan: PLAN (EMPRESAS_USUARIOS NATURAL) > -[30/07/2007 20:53:57] +[01/08/2007 17:44:40] [Application: FactuGES (Servidor)] : [Execute] SELECT - ID, ID_RECIBO, TIPO, FECHA_PAGO, TITULAR, ENTIDAD, - SUCURSAL, DC, CUENTA, FECHA_ALTA, FECHA_MODIFICACION, - USUARIO - -FROM PAGOS_CLIENTE -WHERE ID_RECIBO = :ID -ORDER BY ID /*Muy importante no quitar*/ + ID_EMPRESA + FROM + EMPRESAS_USUARIOS + WHERE ID_USUARIO = :ID_USUARIO - ID = 50 + ID_USUARIO = 1 > -[30/07/2007 20:53:57] +[01/08/2007 17:44:42] [Application: FactuGES (Servidor)] -: [Prepare] SELECT ID, - ID_RECIBO_COMPENSADO, - REFERENCIA, - SITUACION, - ID_FACTURA, - FECHA_EMISION, - FECHA_VENCIMIENTO, - IMPORTE, - OTROS_GASTOS, - IMPORTE_TOTAL, - FECHA_FACTURA, - IMPORTE_FACTURA, - ID_CLIENTE, - NOMBRE_CLIENTE, - NIF_CIF_CLIENTE, - ID_EMPRESA +: [Prepare] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS -FROM V_RECIBOS_CLIENTE -WHERE ID_RECIBO_COMPENSADO = :ID - - Plan: PLAN JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (V_RECIBOS_CLIENTE RECIBOS_CLIENTE INDEX (IDX_RECIBOS_CLIENTE), JOIN (V_RECIBOS_CLIENTE V_REC_CLI_SITUACION RECIBOS_CLIENTE ORDER PK_RECIBOS_CLIENTE, V_RECIBOS_CLIENTE V_REC_CLI_SITUACION PAGOS_CLIENTE INDEX (FK_PAGOS_CLIENTE))), V_RECIBOS_CLIENTE FACTURAS_CLIENTE INDEX (PK_FACTURAS_CLIENTE)), V_RECIBOS_CLIENTE FORMAS_PAGO INDEX (RDB$PRIMARY1)), V_RECIBOS_CLIENTE CONTACTOS INDEX (PK_CONTACTOS)), V_RECIBOS_CLIENTE CONTACTOS_DATOS_BANCO INDEX (IDX_CONTACTOS_DATOS_BANCO)) + Plan: PLAN (EMPRESAS NATURAL) > -[30/07/2007 20:53:57], V_RECIBOS_CLIENTE REMESAS_CLIENTE INDEX (PK_REMESAS_CLIENTE)), V_RECIBOS_CLIENTE V_REC_CLI_COMPENSADOS RECIBOS_CLIENTE ORDER IDX_RECIBOS_CLIENTE), V_RECIBOS_CLIENTE RECIBO_COMPENSADO1 INDEX (PK_RECIBOS_CLIENTE)), JOIN (V_RECIBOS_CLIENTE RECIBO_COMPENSADO2 RECIBOS_CLIENTE ORDER PK_RECIBOS_CLIENTE, V_RECIBOS_CLIENTE RECIBO_COMPENSADO2 PAGOS_CLIENTE INDEX (FK_PAGOS_CLIENTE))) - - > -[30/07/2007 20:53:57] +[01/08/2007 17:44:42] [Application: FactuGES (Servidor)] -: [Execute] SELECT ID, - ID_RECIBO_COMPENSADO, - REFERENCIA, - SITUACION, - ID_FACTURA, - FECHA_EMISION, - FECHA_VENCIMIENTO, - IMPORTE, - OTROS_GASTOS, - IMPORTE_TOTAL, - FECHA_FACTURA, - IMPORTE_FACTURA, - ID_CLIENTE, - NOMBRE_CLIENTE, - NIF_CIF_CLIENTE, - ID_EMPRESA - -FROM V_RECIBOS_CLIENTE -WHERE ID_RECIBO_COMPENSADO = :ID - - ID = 50 - - > -[30/07/2007 20:53:57] -[Application: FactuGES (Servidor)] -: [Prepare] SELECT - ID, ID_RECIBO, TIPO, FECHA_PAGO, TITULAR, ENTIDAD, - SUCURSAL, DC, CUENTA, FECHA_ALTA, FECHA_MODIFICACION, - USUARIO - -FROM PAGOS_CLIENTE -WHERE ID_RECIBO = :ID -ORDER BY ID /*Muy importante no quitar*/ - - Plan: PLAN (PAGOS_CLIENTE ORDER PK_PAGOS_CLIENTE INDEX (FK_PAGOS_CLIENTE)) - - > -[30/07/2007 20:53:57] -[Application: FactuGES (Servidor)] -: [Execute] SELECT - ID, ID_RECIBO, TIPO, FECHA_PAGO, TITULAR, ENTIDAD, - SUCURSAL, DC, CUENTA, FECHA_ALTA, FECHA_MODIFICACION, - USUARIO - -FROM PAGOS_CLIENTE -WHERE ID_RECIBO = :ID -ORDER BY ID /*Muy importante no quitar*/ - - ID = 84 - - > -[30/07/2007 20:53:57] -[Application: FactuGES (Servidor)] -: [Prepare] SELECT ID, - ID_RECIBO_COMPENSADO, - REFERENCIA, - SITUACION, - ID_FACTURA, - FECHA_EMISION, - FECHA_VENCIMIENTO, - IMPORTE, - OTROS_GASTOS, - IMPORTE_TOTAL, - FECHA_FACTURA, - IMPORTE_FACTURA, - ID_CLIENTE, - NOMBRE_CLIENTE, - NIF_CIF_CLIENTE, - ID_EMPRESA - -FROM V_RECIBOS_CLIENTE -WHERE ID_RECIBO_COMPENSADO = :ID - - Plan: PLAN JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (V_RECIBOS_CLIENTE RECIBOS_CLIENTE INDEX (IDX_RECIBOS_CLIENTE), JOIN (V_RECIBOS_CLIENTE V_REC_CLI_SITUACION RECIBOS_CLIENTE ORDER PK_RECIBOS_CLIENTE, V_RECIBOS_CLIENTE V_REC_CLI_SITUACION PAGOS_CLIENTE INDEX (FK_PAGOS_CLIENTE))), V_RECIBOS_CLIENTE FACTURAS_CLIENTE INDEX (PK_FACTURAS_CLIENTE)), V_RECIBOS_CLIENTE FORMAS_PAGO INDEX (RDB$PRIMARY1)), V_RECIBOS_CLIENTE CONTACTOS INDEX (PK_CONTACTOS)), V_RECIBOS_CLIENTE CONTACTOS_DATOS_BANCO INDEX (IDX_CONTACTOS_DATOS_BANCO)) - - > -[30/07/2007 20:53:57], V_RECIBOS_CLIENTE REMESAS_CLIENTE INDEX (PK_REMESAS_CLIENTE)), V_RECIBOS_CLIENTE V_REC_CLI_COMPENSADOS RECIBOS_CLIENTE ORDER IDX_RECIBOS_CLIENTE), V_RECIBOS_CLIENTE RECIBO_COMPENSADO1 INDEX (PK_RECIBOS_CLIENTE)), JOIN (V_RECIBOS_CLIENTE RECIBO_COMPENSADO2 RECIBOS_CLIENTE ORDER PK_RECIBOS_CLIENTE, V_RECIBOS_CLIENTE RECIBO_COMPENSADO2 PAGOS_CLIENTE INDEX (FK_PAGOS_CLIENTE))) - - > -[30/07/2007 20:53:57] -[Application: FactuGES (Servidor)] -: [Execute] SELECT ID, - ID_RECIBO_COMPENSADO, - REFERENCIA, - SITUACION, - ID_FACTURA, - FECHA_EMISION, - FECHA_VENCIMIENTO, - IMPORTE, - OTROS_GASTOS, - IMPORTE_TOTAL, - FECHA_FACTURA, - IMPORTE_FACTURA, - ID_CLIENTE, - NOMBRE_CLIENTE, - NIF_CIF_CLIENTE, - ID_EMPRESA - -FROM V_RECIBOS_CLIENTE -WHERE ID_RECIBO_COMPENSADO = :ID - - ID = 84 - - > -[30/07/2007 20:53:58] -[Application: FactuGES (Servidor)] -: [Prepare] SELECT - ID, ID_RECIBO, TIPO, FECHA_PAGO, TITULAR, ENTIDAD, - SUCURSAL, DC, CUENTA, FECHA_ALTA, FECHA_MODIFICACION, - USUARIO - -FROM PAGOS_CLIENTE -WHERE ID_RECIBO = :ID -ORDER BY ID /*Muy importante no quitar*/ - - Plan: PLAN (PAGOS_CLIENTE ORDER PK_PAGOS_CLIENTE INDEX (FK_PAGOS_CLIENTE)) - - > -[30/07/2007 20:53:58] -[Application: FactuGES (Servidor)] -: [Execute] SELECT - ID, ID_RECIBO, TIPO, FECHA_PAGO, TITULAR, ENTIDAD, - SUCURSAL, DC, CUENTA, FECHA_ALTA, FECHA_MODIFICACION, - USUARIO - -FROM PAGOS_CLIENTE -WHERE ID_RECIBO = :ID -ORDER BY ID /*Muy importante no quitar*/ - - ID = 115 - - > -[30/07/2007 20:53:58] -[Application: FactuGES (Servidor)] -: [Prepare] SELECT ID, - ID_RECIBO_COMPENSADO, - REFERENCIA, - SITUACION, - ID_FACTURA, - FECHA_EMISION, - FECHA_VENCIMIENTO, - IMPORTE, - OTROS_GASTOS, - IMPORTE_TOTAL, - FECHA_FACTURA, - IMPORTE_FACTURA, - ID_CLIENTE, - NOMBRE_CLIENTE, - NIF_CIF_CLIENTE, - ID_EMPRESA - -FROM V_RECIBOS_CLIENTE -WHERE ID_RECIBO_COMPENSADO = :ID - - Plan: PLAN JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (V_RECIBOS_CLIENTE RECIBOS_CLIENTE INDEX (IDX_RECIBOS_CLIENTE), JOIN (V_RECIBOS_CLIENTE V_REC_CLI_SITUACION RECIBOS_CLIENTE ORDER PK_RECIBOS_CLIENTE, V_RECIBOS_CLIENTE V_REC_CLI_SITUACION PAGOS_CLIENTE INDEX (FK_PAGOS_CLIENTE))), V_RECIBOS_CLIENTE FACTURAS_CLIENTE INDEX (PK_FACTURAS_CLIENTE)), V_RECIBOS_CLIENTE FORMAS_PAGO INDEX (RDB$PRIMARY1)), V_RECIBOS_CLIENTE CONTACTOS INDEX (PK_CONTACTOS)), V_RECIBOS_CLIENTE CONTACTOS_DATOS_BANCO INDEX (IDX_CONTACTOS_DATOS_BANCO)) - - > -[30/07/2007 20:53:58], V_RECIBOS_CLIENTE REMESAS_CLIENTE INDEX (PK_REMESAS_CLIENTE)), V_RECIBOS_CLIENTE V_REC_CLI_COMPENSADOS RECIBOS_CLIENTE ORDER IDX_RECIBOS_CLIENTE), V_RECIBOS_CLIENTE RECIBO_COMPENSADO1 INDEX (PK_RECIBOS_CLIENTE)), JOIN (V_RECIBOS_CLIENTE RECIBO_COMPENSADO2 RECIBOS_CLIENTE ORDER PK_RECIBOS_CLIENTE, V_RECIBOS_CLIENTE RECIBO_COMPENSADO2 PAGOS_CLIENTE INDEX (FK_PAGOS_CLIENTE))) - - > -[30/07/2007 20:53:58] -[Application: FactuGES (Servidor)] -: [Execute] SELECT ID, - ID_RECIBO_COMPENSADO, - REFERENCIA, - SITUACION, - ID_FACTURA, - FECHA_EMISION, - FECHA_VENCIMIENTO, - IMPORTE, - OTROS_GASTOS, - IMPORTE_TOTAL, - FECHA_FACTURA, - IMPORTE_FACTURA, - ID_CLIENTE, - NOMBRE_CLIENTE, - NIF_CIF_CLIENTE, - ID_EMPRESA - -FROM V_RECIBOS_CLIENTE -WHERE ID_RECIBO_COMPENSADO = :ID - - ID = 115 - - > -[30/07/2007 20:54:01] -[Application: FactuGES (Servidor)] -: [Prepare] SELECT ID, - ID_RECIBO_COMPENSADO, - REFERENCIA, - SITUACION, - ID_FACTURA, - FECHA_EMISION, - FECHA_VENCIMIENTO, - IMPORTE, - OTROS_GASTOS, - IMPORTE_TOTAL, - FECHA_FACTURA, - IMPORTE_FACTURA, - ID_CLIENTE, - NOMBRE_CLIENTE, - NIF_CIF_CLIENTE, - ID_EMPRESA - -FROM V_RECIBOS_CLIENTE -WHERE ID_RECIBO_COMPENSADO = :ID - - Plan: PLAN JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (V_RECIBOS_CLIENTE RECIBOS_CLIENTE INDEX (IDX_RECIBOS_CLIENTE), JOIN (V_RECIBOS_CLIENTE V_REC_CLI_SITUACION RECIBOS_CLIENTE ORDER PK_RECIBOS_CLIENTE, V_RECIBOS_CLIENTE V_REC_CLI_SITUACION PAGOS_CLIENTE INDEX (FK_PAGOS_CLIENTE))), V_RECIBOS_CLIENTE FACTURAS_CLIENTE INDEX (PK_FACTURAS_CLIENTE)), V_RECIBOS_CLIENTE FORMAS_PAGO INDEX (RDB$PRIMARY1)), V_RECIBOS_CLIENTE CONTACTOS INDEX (PK_CONTACTOS)), V_RECIBOS_CLIENTE CONTACTOS_DATOS_BANCO INDEX (IDX_CONTACTOS_DATOS_BANCO)) - - > -[30/07/2007 20:54:01], V_RECIBOS_CLIENTE REMESAS_CLIENTE INDEX (PK_REMESAS_CLIENTE)), V_RECIBOS_CLIENTE V_REC_CLI_COMPENSADOS RECIBOS_CLIENTE ORDER IDX_RECIBOS_CLIENTE), V_RECIBOS_CLIENTE RECIBO_COMPENSADO1 INDEX (PK_RECIBOS_CLIENTE)), JOIN (V_RECIBOS_CLIENTE RECIBO_COMPENSADO2 RECIBOS_CLIENTE ORDER PK_RECIBOS_CLIENTE, V_RECIBOS_CLIENTE RECIBO_COMPENSADO2 PAGOS_CLIENTE INDEX (FK_PAGOS_CLIENTE))) - - > -[30/07/2007 20:54:01] -[Application: FactuGES (Servidor)] -: [Execute] SELECT ID, - ID_RECIBO_COMPENSADO, - REFERENCIA, - SITUACION, - ID_FACTURA, - FECHA_EMISION, - FECHA_VENCIMIENTO, - IMPORTE, - OTROS_GASTOS, - IMPORTE_TOTAL, - FECHA_FACTURA, - IMPORTE_FACTURA, - ID_CLIENTE, - NOMBRE_CLIENTE, - NIF_CIF_CLIENTE, - ID_EMPRESA - -FROM V_RECIBOS_CLIENTE -WHERE ID_RECIBO_COMPENSADO = :ID - - ID = > - - > -[30/07/2007 20:54:01] -[Application: FactuGES (Servidor)] -: [Prepare] SELECT ID, - ID_RECIBO_COMPENSADO, - REFERENCIA_REC_COMPENSADO, - REFERENCIA, - SITUACION, - ID_FACTURA, - ID_REMESA, - REFERENCIA_REMESA, - FECHA_EMISION, - FECHA_VENCIMIENTO, - DESCRIPCION, - OBSERVACIONES, - IMPORTE, - OTROS_GASTOS, - IMPORTE_TOTAL, - FECHA_FACTURA, - FORMA_PAGO_FACTURA, - IMPORTE_FACTURA, - ID_CLIENTE, - NOMBRE_CLIENTE, - NIF_CIF_CLIENTE, - ENTIDAD_CLIENTE, - SUCURSAL_CLIENTE, - DC_CLIENTE, - CUENTA_CLIENTE, - ID_EMPRESA, - FECHA_ALTA, - FECHA_MODIFICACION, - USUARIO - -FROM V_RECIBOS_CLIENTE WHERE (ID_EMPRESA IN (1)) - - Plan: PLAN JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (V_RECIBOS_CLIENTE RECIBOS_CLIENTE NATURAL, JOIN (V_RECIBOS_CLIENTE V_REC_CLI_SITUACION RECIBOS_CLIENTE ORDER PK_RECIBOS_CLIENTE, V_RECIBOS_CLIENTE V_REC_CLI_SITUACION - - > -[30/07/2007 20:54:01] PAGOS_CLIENTE INDEX (FK_PAGOS_CLIENTE))), V_RECIBOS_CLIENTE FACTURAS_CLIENTE INDEX (PK_FACTURAS_CLIENTE)), V_RECIBOS_CLIENTE FORMAS_PAGO INDEX (RDB$PRIMARY1)), V_RECIBOS_CLIENTE CONTACTOS INDEX (PK_CONTACTOS)), V_RECIBOS_CLIENTE CONTACTOS_DATOS_BANCO INDEX (IDX_CONTACTOS_DATOS_BANCO)), V_RECIBOS_CLIENTE REMESAS_CLIENTE INDEX (PK_REMESAS_CLIENTE)), V_RECIBOS_CLIENTE V_REC_CLI_COMPENSADOS RECIBOS_CLIENTE ORDER IDX_RECIBOS_CLIENTE), V_RECIBOS_CLIENTE RECIBO_COMPENSADO1 INDEX (PK_RECIBOS_CLIENTE)), JOIN (V_RECIBOS_CLIENTE RECIBO_COMPENSADO2 RECIBOS_CLIENTE ORDER PK_RECIBOS_CLIENTE, V_RECIBOS_CLIENTE RECIBO_COMPENSADO2 PAGOS_CLIENTE INDEX (FK_PAGOS_CLIENTE))) - - > -[30/07/2007 20:54:01] -[Application: FactuGES (Servidor)] -: [Execute] SELECT ID, - ID_RECIBO_COMPENSADO, - REFERENCIA_REC_COMPENSADO, - REFERENCIA, - SITUACION, - ID_FACTURA, - ID_REMESA, - REFERENCIA_REMESA, - FECHA_EMISION, - FECHA_VENCIMIENTO, - DESCRIPCION, - OBSERVACIONES, - IMPORTE, - OTROS_GASTOS, - IMPORTE_TOTAL, - FECHA_FACTURA, - FORMA_PAGO_FACTURA, - IMPORTE_FACTURA, - ID_CLIENTE, - NOMBRE_CLIENTE, - NIF_CIF_CLIENTE, - ENTIDAD_CLIENTE, - SUCURSAL_CLIENTE, - DC_CLIENTE, - CUENTA_CLIENTE, - ID_EMPRESA, - FECHA_ALTA, - FECHA_MODIFICACION, - USUARIO - -FROM V_RECIBOS_CLIENTE WHERE (ID_EMPRESA IN (1)) +: [Execute] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS > +[01/08/2007 17:44:42] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO)) + + > +[01/08/2007 17:44:42] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + ID_EMPRESA = 1 + + > +[01/08/2007 17:44:42] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + Plan: PLAN (EMPRESAS NATURAL) + + > +[01/08/2007 17:44:42] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS + + + > +[01/08/2007 17:44:43] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO)) + + > +[01/08/2007 17:44:43] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + ID_EMPRESA = 1 + + > +[01/08/2007 17:44:43] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS WHERE (EMPRESAS.ID = 1) + + Plan: PLAN (EMPRESAS INDEX (PK_EMPRESAS)) + + > +[01/08/2007 17:44:43] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, + PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, + MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, + FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, + REGISTRO_MERCANTIL, IVA + FROM + EMPRESAS WHERE (EMPRESAS.ID = 1) + + + > +[01/08/2007 17:44:43] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO)) + + > +[01/08/2007 17:44:43] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, + SUFIJO_N19, SUFIJO_N58 + FROM + EMPRESAS_DATOS_BANCO +WHERE ID_EMPRESA = :ID_EMPRESA + + ID_EMPRESA = 1 + + > +[01/08/2007 17:44:45] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT + ID, ID_EMPRESA, CATEGORIA, CONTROLLER, MODIFICABLE, ICONO, NOMBRE, DESCRIPCION, ORDEN, VISTA + FROM + INFORMES +ORDER BY CATEGORIA + + Plan: PLAN SORT ((INFORMES NATURAL)) + + > +[01/08/2007 17:44:45] +[Application: FactuGES (Servidor)] +: [Execute] SELECT + ID, ID_EMPRESA, CATEGORIA, CONTROLLER, MODIFICABLE, ICONO, NOMBRE, DESCRIPCION, ORDEN, VISTA + FROM + INFORMES +ORDER BY CATEGORIA + + + > +[01/08/2007 17:44:51] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT DISTINCT +CALLE_AGENTE,CALLE_CLIENTE,CALLE_PROVEEDOR,SUM(CANTIDAD) AS CANTIDAD,COMISION_AGENTE,COMISIONABLE,DESCRIPCION,DESCUENTO_CLIENTE_VENTA,DESCUENTO_PROVEEDOR_COSTE,FAMILIA,FECHA_FACTURA,ID_ARTICULO,ID_COMISION_FACTURA,ID_EMPRESA,ID_FACTURA,SUM(IMPORTE_COMISION_AGENTE) AS IMPORTE_COMISION_AGENTE,IMPORTE_MARGEN_COSTE,IMPORTE_MARGEN_PROM_COMPRA,IMPORTE_MARGEN_ULT_COMPRA,IMPORTE_NETO_COSTE,IMPORTE_NETO_PROMEDIO_COMPRA,IMPORTE_NETO_ULTIMA_COMPRA,IMPORTE_NETO_VENTA,IMPORTE_PORTE_COSTE,IMPORTE_PORTE_PROMEDIO_COMPRA,IMPORTE_PORTE_ULTIMA_COMPRA,SUM(IMPORTE_TOTAL_FACTURA) AS IMPORTE_TOTAL_FACTURA,IMPORTE_TOTAL_VENTA,IMPORTE_UNIDAD_COSTE,IMPORTE_UNIDAD_PROMEDIO_COMPRA,IMPORTE_UNIDAD_ULTIMA_COMPRA,IMPORTE_UNIDAD_VENTA,INVENTARIABLE,NIF_CIF_AGENTE,NIF_CIF_CLIENTE,NIF_CIF_PROVEEDOR,NOMBRE_AGENTE,NOMBRE_CLIENTE,NOMBRE_COMERCIAL_CLIENTE,NOMBRE_PROVEEDOR,POBLACION_AGENTE,POBLACION_CLIENTE,POBLACION_PROVEEDOR,PORCENTAJE_MARGEN_COSTE,PORCENTA + + > +[01/08/2007 17:44:51]JE_MARGEN_PROM_COMPRA,PORCENTAJE_MARGEN_ULT_COMPRA,PROVINCIA_AGENTE,PROVINCIA_CLIENTE,PROVINCIA_PROVEEDOR,REFERENCIA,REFERENCIA_FACTURA,REFERENCIA_PROV +FROM V_INF_MARGEN_VENTAS_ARTICULOS +WHERE FECHA_FACTURA BETWEEN :FECHAINI AND :FECHAFIN +GROUP BY CALLE_AGENTE,CALLE_CLIENTE,CALLE_PROVEEDOR,COMISION_AGENTE,COMISIONABLE,DESCRIPCION,DESCUENTO_CLIENTE_VENTA,DESCUENTO_PROVEEDOR_COSTE,FAMILIA,FECHA_FACTURA,ID_ARTICULO,ID_COMISION_FACTURA,ID_EMPRESA,ID_FACTURA,IMPORTE_MARGEN_COSTE,IMPORTE_MARGEN_PROM_COMPRA,IMPORTE_MARGEN_ULT_COMPRA,IMPORTE_NETO_COSTE,IMPORTE_NETO_PROMEDIO_COMPRA,IMPORTE_NETO_ULTIMA_COMPRA,IMPORTE_NETO_VENTA,IMPORTE_PORTE_COSTE,IMPORTE_PORTE_PROMEDIO_COMPRA,IMPORTE_PORTE_ULTIMA_COMPRA,IMPORTE_TOTAL_VENTA,IMPORTE_UNIDAD_COSTE,IMPORTE_UNIDAD_PROMEDIO_COMPRA,IMPORTE_UNIDAD_ULTIMA_COMPRA,IMPORTE_UNIDAD_VENTA,INVENTARIABLE,NIF_CIF_AGENTE,NIF_CIF_CLIENTE,NIF_CIF_PROVEEDOR,NOMBRE_AGENTE,NOMBRE_CLIENTE,NOMBRE_COMERCIAL_CLIENTE,NOMBRE_PROVEEDOR,POBLACION_AGENTE,POBLACION_CLIENTE,PO + + > +[01/08/2007 17:44:51]BLACION_PROVEEDOR,PORCENTAJE_MARGEN_COSTE,PORCENTAJE_MARGEN_PROM_COMPRA,PORCENTAJE_MARGEN_ULT_COMPRA,PROVINCIA_AGENTE,PROVINCIA_CLIENTE,PROVINCIA_PROVEEDOR,REFERENCIA,REFERENCIA_FACTURA,REFERENCIA_PROV + + Plan: PLAN SORT (SORT (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (V_INF_MARGEN_VENTAS_ARTICULOS FACTURAS_CLIENTE_DETALLES INDEX (IDX_FACTURAS_CLIENTE_DETALLES2), SORT (JOIN (JOIN (V_INF_MARGEN_VENTAS_ARTICULOS V_INF_ULTIMA_COMPRA FACTURAS_PROVEEDOR_DETALLES INDEX (IDX_FACTURAS_PROVEEDOR_DETALLES), V_INF_MARGEN_VENTAS_ARTICULOS V_INF_ULTIMA_COMPRA FACTURAS_PROVEEDOR INDEX (PK_FACTURAS_PROVEEDOR)), SORT (JOIN (V_INF_MARGEN_VENTAS_ARTICULOS V_INF_ULTIMA_COMPRA V_INF_FEC_ULTIMA_COMPRA FACTURAS_PROVEEDOR_DETALLES INDEX (IDX_FACTURAS_PROVEEDOR_DETALLES), V_INF_MARGEN_VENTAS_ARTICULOS V_INF_ULTIMA_COMPRA V_INF_FEC_ULTIMA_COMPRA FACTURAS_PROVEEDOR INDEX (PK_FACTURAS_PROVEEDOR)))))), SORT (JOIN (V_INF_MARGEN_VENTAS_ARTICULOS V_INF_PROMEDIO_COMPRA FACTURAS_PROVEEDOR_DETALLES INDEX + + > +[01/08/2007 17:44:51](IDX_FACTURAS_PROVEEDOR_DETALLES), V_INF_MARGEN_VENTAS_ARTICULOS V_INF_PROMEDIO_COMPRA FACTURAS_PROVEEDOR INDEX (PK_FACTURAS_PROVEEDOR)))), V_INF_MARGEN_VENTAS_ARTICULOS ARTICULOS INDEX (PK_ARTICULOS)), V_INF_MARGEN_VENTAS_ARTICULOS PROVEEDORES INDEX (PK_CONTACTOS)), V_INF_MARGEN_VENTAS_ARTICULOS FACTURAS_CLIENTE INDEX (PK_FACTURAS_CLIENTE)), V_INF_MARGEN_VENTAS_ARTICULOS CLIENTES INDEX (PK_CONTACTOS)), V_INF_MARGEN_VENTAS_ARTICULOS CLIENTES_DATOS INDEX (PK_CLIENTES_DATOS)), V_INF_MARGEN_VENTAS_ARTICULOS AGENTES INDEX (PK_CONTACTOS)), V_INF_MARGEN_VENTAS_ARTICULOS AGENTES_COMISIONES INDEX (IDX_AGENTES_COMISIONES2, IDX_AGENTES_COMISIONES1)))) + + > +[01/08/2007 17:44:51] +[Application: FactuGES (Servidor)] +: [Execute] SELECT DISTINCT +CALLE_AGENTE,CALLE_CLIENTE,CALLE_PROVEEDOR,SUM(CANTIDAD) AS CANTIDAD,COMISION_AGENTE,COMISIONABLE,DESCRIPCION,DESCUENTO_CLIENTE_VENTA,DESCUENTO_PROVEEDOR_COSTE,FAMILIA,FECHA_FACTURA,ID_ARTICULO,ID_COMISION_FACTURA,ID_EMPRESA,ID_FACTURA,SUM(IMPORTE_COMISION_AGENTE) AS IMPORTE_COMISION_AGENTE,IMPORTE_MARGEN_COSTE,IMPORTE_MARGEN_PROM_COMPRA,IMPORTE_MARGEN_ULT_COMPRA,IMPORTE_NETO_COSTE,IMPORTE_NETO_PROMEDIO_COMPRA,IMPORTE_NETO_ULTIMA_COMPRA,IMPORTE_NETO_VENTA,IMPORTE_PORTE_COSTE,IMPORTE_PORTE_PROMEDIO_COMPRA,IMPORTE_PORTE_ULTIMA_COMPRA,SUM(IMPORTE_TOTAL_FACTURA) AS IMPORTE_TOTAL_FACTURA,IMPORTE_TOTAL_VENTA,IMPORTE_UNIDAD_COSTE,IMPORTE_UNIDAD_PROMEDIO_COMPRA,IMPORTE_UNIDAD_ULTIMA_COMPRA,IMPORTE_UNIDAD_VENTA,INVENTARIABLE,NIF_CIF_AGENTE,NIF_CIF_CLIENTE,NIF_CIF_PROVEEDOR,NOMBRE_AGENTE,NOMBRE_CLIENTE,NOMBRE_COMERCIAL_CLIENTE,NOMBRE_PROVEEDOR,POBLACION_AGENTE,POBLACION_CLIENTE,POBLACION_PROVEEDOR,PORCENTAJE_MARGEN_COSTE,PORCENTA + + > +[01/08/2007 17:44:51]JE_MARGEN_PROM_COMPRA,PORCENTAJE_MARGEN_ULT_COMPRA,PROVINCIA_AGENTE,PROVINCIA_CLIENTE,PROVINCIA_PROVEEDOR,REFERENCIA,REFERENCIA_FACTURA,REFERENCIA_PROV +FROM V_INF_MARGEN_VENTAS_ARTICULOS +WHERE FECHA_FACTURA BETWEEN :FECHAINI AND :FECHAFIN +GROUP BY CALLE_AGENTE,CALLE_CLIENTE,CALLE_PROVEEDOR,COMISION_AGENTE,COMISIONABLE,DESCRIPCION,DESCUENTO_CLIENTE_VENTA,DESCUENTO_PROVEEDOR_COSTE,FAMILIA,FECHA_FACTURA,ID_ARTICULO,ID_COMISION_FACTURA,ID_EMPRESA,ID_FACTURA,IMPORTE_MARGEN_COSTE,IMPORTE_MARGEN_PROM_COMPRA,IMPORTE_MARGEN_ULT_COMPRA,IMPORTE_NETO_COSTE,IMPORTE_NETO_PROMEDIO_COMPRA,IMPORTE_NETO_ULTIMA_COMPRA,IMPORTE_NETO_VENTA,IMPORTE_PORTE_COSTE,IMPORTE_PORTE_PROMEDIO_COMPRA,IMPORTE_PORTE_ULTIMA_COMPRA,IMPORTE_TOTAL_VENTA,IMPORTE_UNIDAD_COSTE,IMPORTE_UNIDAD_PROMEDIO_COMPRA,IMPORTE_UNIDAD_ULTIMA_COMPRA,IMPORTE_UNIDAD_VENTA,INVENTARIABLE,NIF_CIF_AGENTE,NIF_CIF_CLIENTE,NIF_CIF_PROVEEDOR,NOMBRE_AGENTE,NOMBRE_CLIENTE,NOMBRE_COMERCIAL_CLIENTE,NOMBRE_PROVEEDOR,POBLACION_AGENTE,POBLACION_CLIENTE,PO + + > +[01/08/2007 17:44:51]BLACION_PROVEEDOR,PORCENTAJE_MARGEN_COSTE,PORCENTAJE_MARGEN_PROM_COMPRA,PORCENTAJE_MARGEN_ULT_COMPRA,PROVINCIA_AGENTE,PROVINCIA_CLIENTE,PROVINCIA_PROVEEDOR,REFERENCIA,REFERENCIA_FACTURA,REFERENCIA_PROV + + FECHAINI = 01/08/2007 + FECHAFIN = 31/08/2007 + + > +[01/08/2007 17:45:41] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT DISTINCT +SUM(CANTIDAD) AS CANTIDAD,DESCRIPCION,DESCUENTO_CLIENTE_VENTA,DESCUENTO_PROVEEDOR_COSTE,FAMILIA,IMPORTE_MARGEN_COSTE,IMPORTE_MARGEN_PROM_COMPRA,IMPORTE_MARGEN_ULT_COMPRA,IMPORTE_NETO_COSTE,IMPORTE_NETO_PROMEDIO_COMPRA,IMPORTE_NETO_ULTIMA_COMPRA,IMPORTE_NETO_VENTA,IMPORTE_PORTE_COSTE,IMPORTE_PORTE_PROMEDIO_COMPRA,IMPORTE_PORTE_ULTIMA_COMPRA,IMPORTE_TOTAL_VENTA,IMPORTE_UNIDAD_COSTE,IMPORTE_UNIDAD_PROMEDIO_COMPRA,IMPORTE_UNIDAD_ULTIMA_COMPRA,IMPORTE_UNIDAD_VENTA,PORCENTAJE_MARGEN_COSTE,PORCENTAJE_MARGEN_PROM_COMPRA,PORCENTAJE_MARGEN_ULT_COMPRA,REFERENCIA,REFERENCIA_PROV +FROM V_INF_MARGEN_VENTAS_ARTICULOS +WHERE FECHA_FACTURA BETWEEN :FECHAINI AND :FECHAFIN +GROUP BY DESCRIPCION,DESCUENTO_CLIENTE_VENTA,DESCUENTO_PROVEEDOR_COSTE,FAMILIA,IMPORTE_MARGEN_COSTE,IMPORTE_MARGEN_PROM_COMPRA,IMPORTE_MARGEN_ULT_COMPRA,IMPORTE_NETO_COSTE,IMPORTE_NETO_PROMEDIO_COMPRA,IMPORTE_NETO_ULTIMA_COMPRA,IMPORTE_NETO_VENTA,IMPORTE_PORTE_COSTE,IM + + > +[01/08/2007 17:45:41]PORTE_PORTE_PROMEDIO_COMPRA,IMPORTE_PORTE_ULTIMA_COMPRA,IMPORTE_TOTAL_VENTA,IMPORTE_UNIDAD_COSTE,IMPORTE_UNIDAD_PROMEDIO_COMPRA,IMPORTE_UNIDAD_ULTIMA_COMPRA,IMPORTE_UNIDAD_VENTA,PORCENTAJE_MARGEN_COSTE,PORCENTAJE_MARGEN_PROM_COMPRA,PORCENTAJE_MARGEN_ULT_COMPRA,REFERENCIA,REFERENCIA_PROV + + Plan: PLAN SORT (SORT (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (V_INF_MARGEN_VENTAS_ARTICULOS FACTURAS_CLIENTE_DETALLES INDEX (IDX_FACTURAS_CLIENTE_DETALLES2), SORT (JOIN (JOIN (V_INF_MARGEN_VENTAS_ARTICULOS V_INF_ULTIMA_COMPRA FACTURAS_PROVEEDOR_DETALLES INDEX (IDX_FACTURAS_PROVEEDOR_DETALLES), V_INF_MARGEN_VENTAS_ARTICULOS V_INF_ULTIMA_COMPRA FACTURAS_PROVEEDOR INDEX (PK_FACTURAS_PROVEEDOR)), SORT (JOIN (V_INF_MARGEN_VENTAS_ARTICULOS V_INF_ULTIMA_COMPRA V_INF_FEC_ULTIMA_COMPRA FACTURAS_PROVEEDOR_DETALLES INDEX (IDX_FACTURAS_PROVEEDOR_DETALLES), V_INF_MARGEN_VENTAS_ARTICULOS V_INF_ULTIMA_COMPRA V_INF_FEC_ULTIMA_COMPRA FACTURAS_PROVEEDOR INDEX (PK_FACTURAS_PROVEEDOR)))))), SORT (JOIN ( + + > +[01/08/2007 17:45:41]V_INF_MARGEN_VENTAS_ARTICULOS V_INF_PROMEDIO_COMPRA FACTURAS_PROVEEDOR_DETALLES INDEX (IDX_FACTURAS_PROVEEDOR_DETALLES), V_INF_MARGEN_VENTAS_ARTICULOS V_INF_PROMEDIO_COMPRA FACTURAS_PROVEEDOR INDEX (PK_FACTURAS_PROVEEDOR)))), V_INF_MARGEN_VENTAS_ARTICULOS ARTICULOS INDEX (PK_ARTICULOS)), V_INF_MARGEN_VENTAS_ARTICULOS PROVEEDORES INDEX (PK_CONTACTOS)), V_INF_MARGEN_VENTAS_ARTICULOS FACTURAS_CLIENTE INDEX (PK_FACTURAS_CLIENTE)), V_INF_MARGEN_VENTAS_ARTICULOS CLIENTES INDEX (PK_CONTACTOS)), V_INF_MARGEN_VENTAS_ARTICULOS CLIENTES_DATOS INDEX (PK_CLIENTES_DATOS)), V_INF_MARGEN_VENTAS_ARTICULOS AGENTES INDEX (PK_CONTACTOS)), V_INF_MARGEN_VENTAS_ARTICULOS AGENTES_COMISIONES INDEX (IDX_AGENTES_COMISIONES2, IDX_AGENTES_COMISIONES1)))) + + > +[01/08/2007 17:45:41] +[Application: FactuGES (Servidor)] +: [Execute] SELECT DISTINCT +SUM(CANTIDAD) AS CANTIDAD,DESCRIPCION,DESCUENTO_CLIENTE_VENTA,DESCUENTO_PROVEEDOR_COSTE,FAMILIA,IMPORTE_MARGEN_COSTE,IMPORTE_MARGEN_PROM_COMPRA,IMPORTE_MARGEN_ULT_COMPRA,IMPORTE_NETO_COSTE,IMPORTE_NETO_PROMEDIO_COMPRA,IMPORTE_NETO_ULTIMA_COMPRA,IMPORTE_NETO_VENTA,IMPORTE_PORTE_COSTE,IMPORTE_PORTE_PROMEDIO_COMPRA,IMPORTE_PORTE_ULTIMA_COMPRA,IMPORTE_TOTAL_VENTA,IMPORTE_UNIDAD_COSTE,IMPORTE_UNIDAD_PROMEDIO_COMPRA,IMPORTE_UNIDAD_ULTIMA_COMPRA,IMPORTE_UNIDAD_VENTA,PORCENTAJE_MARGEN_COSTE,PORCENTAJE_MARGEN_PROM_COMPRA,PORCENTAJE_MARGEN_ULT_COMPRA,REFERENCIA,REFERENCIA_PROV +FROM V_INF_MARGEN_VENTAS_ARTICULOS +WHERE FECHA_FACTURA BETWEEN :FECHAINI AND :FECHAFIN +GROUP BY DESCRIPCION,DESCUENTO_CLIENTE_VENTA,DESCUENTO_PROVEEDOR_COSTE,FAMILIA,IMPORTE_MARGEN_COSTE,IMPORTE_MARGEN_PROM_COMPRA,IMPORTE_MARGEN_ULT_COMPRA,IMPORTE_NETO_COSTE,IMPORTE_NETO_PROMEDIO_COMPRA,IMPORTE_NETO_ULTIMA_COMPRA,IMPORTE_NETO_VENTA,IMPORTE_PORTE_COSTE,IM + + > +[01/08/2007 17:45:41]PORTE_PORTE_PROMEDIO_COMPRA,IMPORTE_PORTE_ULTIMA_COMPRA,IMPORTE_TOTAL_VENTA,IMPORTE_UNIDAD_COSTE,IMPORTE_UNIDAD_PROMEDIO_COMPRA,IMPORTE_UNIDAD_ULTIMA_COMPRA,IMPORTE_UNIDAD_VENTA,PORCENTAJE_MARGEN_COSTE,PORCENTAJE_MARGEN_PROM_COMPRA,PORCENTAJE_MARGEN_ULT_COMPRA,REFERENCIA,REFERENCIA_PROV + + FECHAINI = 01/08/2007 + FECHAFIN = 31/08/2007 + + > +[01/08/2007 17:45:59] +[Application: FactuGES (Servidor)] +: [Prepare] SELECT DISTINCT +SUM(CANTIDAD) AS CANTIDAD,DESCRIPCION,DESCUENTO_CLIENTE_VENTA,DESCUENTO_PROVEEDOR_COSTE,FAMILIA,IMPORTE_MARGEN_COSTE,IMPORTE_MARGEN_PROM_COMPRA,IMPORTE_MARGEN_ULT_COMPRA,IMPORTE_NETO_COSTE,IMPORTE_NETO_PROMEDIO_COMPRA,IMPORTE_NETO_ULTIMA_COMPRA,IMPORTE_NETO_VENTA,IMPORTE_PORTE_COSTE,IMPORTE_PORTE_PROMEDIO_COMPRA,IMPORTE_PORTE_ULTIMA_COMPRA,IMPORTE_TOTAL_VENTA,IMPORTE_UNIDAD_COSTE,IMPORTE_UNIDAD_PROMEDIO_COMPRA,IMPORTE_UNIDAD_ULTIMA_COMPRA,IMPORTE_UNIDAD_VENTA,PORCENTAJE_MARGEN_COSTE,PORCENTAJE_MARGEN_PROM_COMPRA,PORCENTAJE_MARGEN_ULT_COMPRA,REFERENCIA,REFERENCIA_PROV +FROM V_INF_MARGEN_VENTAS_ARTICULOS +WHERE FECHA_FACTURA BETWEEN :FECHAINI AND :FECHAFIN +GROUP BY DESCRIPCION,DESCUENTO_CLIENTE_VENTA,DESCUENTO_PROVEEDOR_COSTE,FAMILIA,IMPORTE_MARGEN_COSTE,IMPORTE_MARGEN_PROM_COMPRA,IMPORTE_MARGEN_ULT_COMPRA,IMPORTE_NETO_COSTE,IMPORTE_NETO_PROMEDIO_COMPRA,IMPORTE_NETO_ULTIMA_COMPRA,IMPORTE_NETO_VENTA,IMPORTE_PORTE_COSTE,IM + + > +[01/08/2007 17:45:59]PORTE_PORTE_PROMEDIO_COMPRA,IMPORTE_PORTE_ULTIMA_COMPRA,IMPORTE_TOTAL_VENTA,IMPORTE_UNIDAD_COSTE,IMPORTE_UNIDAD_PROMEDIO_COMPRA,IMPORTE_UNIDAD_ULTIMA_COMPRA,IMPORTE_UNIDAD_VENTA,PORCENTAJE_MARGEN_COSTE,PORCENTAJE_MARGEN_PROM_COMPRA,PORCENTAJE_MARGEN_ULT_COMPRA,REFERENCIA,REFERENCIA_PROV + + Plan: PLAN SORT (SORT (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (JOIN (V_INF_MARGEN_VENTAS_ARTICULOS FACTURAS_CLIENTE_DETALLES INDEX (IDX_FACTURAS_CLIENTE_DETALLES2), SORT (JOIN (JOIN (V_INF_MARGEN_VENTAS_ARTICULOS V_INF_ULTIMA_COMPRA FACTURAS_PROVEEDOR_DETALLES INDEX (IDX_FACTURAS_PROVEEDOR_DETALLES), V_INF_MARGEN_VENTAS_ARTICULOS V_INF_ULTIMA_COMPRA FACTURAS_PROVEEDOR INDEX (PK_FACTURAS_PROVEEDOR)), SORT (JOIN (V_INF_MARGEN_VENTAS_ARTICULOS V_INF_ULTIMA_COMPRA V_INF_FEC_ULTIMA_COMPRA FACTURAS_PROVEEDOR_DETALLES INDEX (IDX_FACTURAS_PROVEEDOR_DETALLES), V_INF_MARGEN_VENTAS_ARTICULOS V_INF_ULTIMA_COMPRA V_INF_FEC_ULTIMA_COMPRA FACTURAS_PROVEEDOR INDEX (PK_FACTURAS_PROVEEDOR)))))), SORT (JOIN ( + + > +[01/08/2007 17:45:59]V_INF_MARGEN_VENTAS_ARTICULOS V_INF_PROMEDIO_COMPRA FACTURAS_PROVEEDOR_DETALLES INDEX (IDX_FACTURAS_PROVEEDOR_DETALLES), V_INF_MARGEN_VENTAS_ARTICULOS V_INF_PROMEDIO_COMPRA FACTURAS_PROVEEDOR INDEX (PK_FACTURAS_PROVEEDOR)))), V_INF_MARGEN_VENTAS_ARTICULOS ARTICULOS INDEX (PK_ARTICULOS)), V_INF_MARGEN_VENTAS_ARTICULOS PROVEEDORES INDEX (PK_CONTACTOS)), V_INF_MARGEN_VENTAS_ARTICULOS FACTURAS_CLIENTE INDEX (PK_FACTURAS_CLIENTE)), V_INF_MARGEN_VENTAS_ARTICULOS CLIENTES INDEX (PK_CONTACTOS)), V_INF_MARGEN_VENTAS_ARTICULOS CLIENTES_DATOS INDEX (PK_CLIENTES_DATOS)), V_INF_MARGEN_VENTAS_ARTICULOS AGENTES INDEX (PK_CONTACTOS)), V_INF_MARGEN_VENTAS_ARTICULOS AGENTES_COMISIONES INDEX (IDX_AGENTES_COMISIONES2, IDX_AGENTES_COMISIONES1)))) + + > +[01/08/2007 17:45:59] +[Application: FactuGES (Servidor)] +: [Execute] SELECT DISTINCT +SUM(CANTIDAD) AS CANTIDAD,DESCRIPCION,DESCUENTO_CLIENTE_VENTA,DESCUENTO_PROVEEDOR_COSTE,FAMILIA,IMPORTE_MARGEN_COSTE,IMPORTE_MARGEN_PROM_COMPRA,IMPORTE_MARGEN_ULT_COMPRA,IMPORTE_NETO_COSTE,IMPORTE_NETO_PROMEDIO_COMPRA,IMPORTE_NETO_ULTIMA_COMPRA,IMPORTE_NETO_VENTA,IMPORTE_PORTE_COSTE,IMPORTE_PORTE_PROMEDIO_COMPRA,IMPORTE_PORTE_ULTIMA_COMPRA,IMPORTE_TOTAL_VENTA,IMPORTE_UNIDAD_COSTE,IMPORTE_UNIDAD_PROMEDIO_COMPRA,IMPORTE_UNIDAD_ULTIMA_COMPRA,IMPORTE_UNIDAD_VENTA,PORCENTAJE_MARGEN_COSTE,PORCENTAJE_MARGEN_PROM_COMPRA,PORCENTAJE_MARGEN_ULT_COMPRA,REFERENCIA,REFERENCIA_PROV +FROM V_INF_MARGEN_VENTAS_ARTICULOS +WHERE FECHA_FACTURA BETWEEN :FECHAINI AND :FECHAFIN +GROUP BY DESCRIPCION,DESCUENTO_CLIENTE_VENTA,DESCUENTO_PROVEEDOR_COSTE,FAMILIA,IMPORTE_MARGEN_COSTE,IMPORTE_MARGEN_PROM_COMPRA,IMPORTE_MARGEN_ULT_COMPRA,IMPORTE_NETO_COSTE,IMPORTE_NETO_PROMEDIO_COMPRA,IMPORTE_NETO_ULTIMA_COMPRA,IMPORTE_NETO_VENTA,IMPORTE_PORTE_COSTE,IM + + > +[01/08/2007 17:45:59]PORTE_PORTE_PROMEDIO_COMPRA,IMPORTE_PORTE_ULTIMA_COMPRA,IMPORTE_TOTAL_VENTA,IMPORTE_UNIDAD_COSTE,IMPORTE_UNIDAD_PROMEDIO_COMPRA,IMPORTE_UNIDAD_ULTIMA_COMPRA,IMPORTE_UNIDAD_VENTA,PORCENTAJE_MARGEN_COSTE,PORCENTAJE_MARGEN_PROM_COMPRA,PORCENTAJE_MARGEN_ULT_COMPRA,REFERENCIA,REFERENCIA_PROV + + FECHAINI = 01/01/2007 + FECHAFIN = 31/12/2007 + + > diff --git a/Source/Cliente/FactuGES.bdsproj b/Source/Cliente/FactuGES.bdsproj index fe580c31..221b0059 100644 --- a/Source/Cliente/FactuGES.bdsproj +++ b/Source/Cliente/FactuGES.bdsproj @@ -148,8 +148,8 @@ True False 2 - 1 - 9 + 2 + 0 0 False False @@ -162,7 +162,7 @@ Rodax Software S.L. - 2.1.9.0 + 2.2.0.0 FactuGES diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index 53b35787..a4a10720 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,7 +1,7 @@ MAINICON ICON "E:\Codigo (Luis León)\Source\Iconos\Factuges.ico" 1 VERSIONINFO -FILEVERSION 2,1,9,0 -PRODUCTVERSION 2,1,9,0 +FILEVERSION 2,2,0,0 +PRODUCTVERSION 2,2,0,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,7 +13,7 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "2.1.9.0\0" + VALUE "FileVersion", "2.2.0.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" VALUE "ProductVersion", "2.1.4\0" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 5ebe02ac..96730b9a 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/Cliente/uPantallaPrincipal.pas b/Source/Cliente/uPantallaPrincipal.pas index a9d7c7ea..0ce9d2b3 100644 --- a/Source/Cliente/uPantallaPrincipal.pas +++ b/Source/Cliente/uPantallaPrincipal.pas @@ -465,7 +465,8 @@ begin HostManager.LoadModule('Referencias_plugin.bpl'); HostManager.LoadModule('Informes_plugin.bpl'); - HostManager.LoadModule('InfVentasArticulo_plugin.bpl'); + HostManager.LoadModule('InfVentasArticulo_plugin.bpl'); + HostManager.LoadModule('InfMargenArticulo_plugin.bpl'); { HostManager.LoadModule('PedidosMontaje_plugin.bpl'); diff --git a/Source/FactuGES_Group.bdsgroup b/Source/FactuGES_Group.bdsgroup index e794b256..1bf05d80 100644 --- a/Source/FactuGES_Group.bdsgroup +++ b/Source/FactuGES_Group.bdsgroup @@ -89,7 +89,8 @@ Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.bdsproj Modulos\Facturas de proveedor\Controller\FacturasProveedor_controller.bdsproj Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.bdsproj - DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Empresas_model.bpl Empresas_data.bpl Empresas_controller.bpl Usuarios.bpl Empresas_view.bpl Empresas_plugin.bpl TiposIVA_model.bpl TiposIVA_data.bpl TiposIVA_controller.bpl TiposIVA_view.bpl TiposIVA_plugin.bpl Contactos_model.bpl Contactos_data.bpl Contactos_controller.bpl Contactos_view.bpl Contactos_plugin.bpl Almacenes_model.bpl Almacenes_data.bpl Almacenes_controller.bpl Almacenes_view.bpl Almacenes_plugin.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Articulos_view.bpl Articulos_plugin.bpl RecibosCliente_model.bpl RecibosCliente_data.bpl RecibosCliente_controller.bpl RecibosCliente_view.bpl RecibosCliente_plugin.bpl RemesasCliente_model.bpl RemesasCliente_data.bpl RemesasCliente_controller.bpl BancaElectronica_controller.bpl BancaElectronica_view.bpl RemesasCliente_view.bpl RemesasCliente_plugin.bpl PedidosCliente_model.bpl PedidosCliente_data.bpl PedidosCliente_controller.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl FacturasCliente_model.bpl FacturasCliente_data.bpl FacturasCliente_controller.bpl PedidosProveedor_model.bpl PedidosProveedor_data.bpl PedidosProveedor_controller.bpl Inventario_model.bpl Inventario_data.bpl Inventario_controller.bpl AlbaranesProveedor_model.bpl AlbaranesProveedor_data.bpl AlbaranesProveedor_controller.bpl PedCli_PedProv_relation.bpl PedCli_AlbCli_relation.bpl PedidosCliente_view.bpl PedidosCliente_plugin.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl FacturasCliente_view.bpl FacturasCliente_plugin.bpl Inventario_view.bpl Inventario_plugin.bpl PedidosProveedor_view.bpl PedidosProveedor_plugin.bpl AlbaranesProveedor_view.bpl AlbaranesProveedor_plugin.bpl FactuGES.exe FactuGES_Server.exe PedProv_AlbProv_relation.bpl AlbCli_FacCli_relation.bpl FacturasProveedor_controller.bpl AlbProv_FacProv_relation.bpl + Modulos\Remesas de proveedor\Views\RemesasProveedor_view.bdsproj + DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Empresas_model.bpl Empresas_data.bpl Empresas_controller.bpl Usuarios.bpl Empresas_view.bpl Empresas_plugin.bpl TiposIVA_model.bpl TiposIVA_data.bpl TiposIVA_controller.bpl TiposIVA_view.bpl TiposIVA_plugin.bpl Contactos_model.bpl Contactos_data.bpl Contactos_controller.bpl Contactos_view.bpl Contactos_plugin.bpl Almacenes_model.bpl Almacenes_data.bpl Almacenes_controller.bpl Almacenes_view.bpl Almacenes_plugin.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Articulos_view.bpl Articulos_plugin.bpl RecibosCliente_model.bpl RecibosCliente_data.bpl RecibosCliente_controller.bpl RecibosCliente_view.bpl RecibosCliente_plugin.bpl RemesasCliente_model.bpl RemesasCliente_data.bpl RemesasCliente_controller.bpl BancaElectronica_controller.bpl BancaElectronica_view.bpl RemesasCliente_view.bpl RemesasCliente_plugin.bpl PedidosCliente_model.bpl PedidosCliente_data.bpl PedidosCliente_controller.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl FacturasCliente_model.bpl FacturasCliente_data.bpl FacturasCliente_controller.bpl PedidosProveedor_model.bpl PedidosProveedor_data.bpl PedidosProveedor_controller.bpl Inventario_model.bpl Inventario_data.bpl Inventario_controller.bpl AlbaranesProveedor_model.bpl AlbaranesProveedor_data.bpl AlbaranesProveedor_controller.bpl PedCli_PedProv_relation.bpl PedCli_AlbCli_relation.bpl PedidosCliente_view.bpl PedidosCliente_plugin.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl FacturasCliente_view.bpl FacturasCliente_plugin.bpl Inventario_view.bpl Inventario_plugin.bpl PedidosProveedor_view.bpl PedidosProveedor_plugin.bpl AlbaranesProveedor_view.bpl AlbaranesProveedor_plugin.bpl FactuGES.exe FactuGES_Server.exe PedProv_AlbProv_relation.bpl AlbCli_FacCli_relation.bpl FacturasProveedor_controller.bpl AlbProv_FacProv_relation.bpl RemesasProveedor_view.bpl diff --git a/Source/Informes_Group.bdsgroup b/Source/Informes_Group.bdsgroup new file mode 100644 index 00000000..957155ae --- /dev/null +++ b/Source/Informes_Group.bdsgroup @@ -0,0 +1,38 @@ + + + + + + + + + + + DataAbstract_D10\DataAbstract_D10.bdsproj + Base\Base.bdsproj + Base\GUIBase\GUIBase.bdsproj + Modulos\Informes base\Model\Informes_model.bdsproj + Modulos\Informes base\Data\Informes_data.bdsproj + Modulos\Informes base\Controller\Informes_controller.bdsproj + Modulos\Informes base\Controller\InformesBase_controller.bdsproj + Modulos\Informes base\Views\Informes_view.bdsproj + Modulos\Informes base\Views\InformesBase_view.bdsproj + Modulos\Informes base\Plugin\Informes_plugin.bdsproj + Modulos\Informe ventas por articulo\Model\InfVentasArticulo_model.bdsproj + Modulos\Informe ventas por articulo\Data\InfVentasArticulo_data.bdsproj + Modulos\Informe ventas por articulo\Views\InfVentasArticulo_view.bdsproj + Modulos\Informe ventas por articulo\Controller\InfVentasArticulo_controller.bdsproj + Modulos\Informe ventas por articulo\Plugin\InfVentasArticulo_plugin.bdsproj + Cliente\FactuGES.bdsproj + Servidor\FactuGES_Server.bdsproj + Modulos\Informe margen por articulo\Model\InfMargenArticulo_model.bdsproj + Modulos\Informe margen por articulo\Data\InfMargenArticulo_data.bdsproj + Modulos\Informe margen por articulo\Controller\InfMargenArticulo_controller.bdsproj + Modulos\Informe margen por articulo\Views\InfMargenArticulo_view.bdsproj + Modulos\Informe margen por articulo\Plugin\InfMargenArticulo_plugin.bdsproj + DataAbstract_D10.bpl Base.bpl GUIBase.bpl Informes_model.bpl Informes_data.bpl Informes_controller.bpl InformesBase_controller.bpl Informes_view.bpl InformesBase_view.bpl Informes_plugin.bpl InfVentasArticulo_model.bpl InfVentasArticulo_data.bpl InfVentasArticulo_view.bpl InfVentasArticulo_controller.bpl InfVentasArticulo_plugin.bpl FactuGES.exe FactuGES_Server.exe InfMargenArticulo_model.bpl InfMargenArticulo_data.bpl InfMargenArticulo_controller.bpl InfMargenArticulo_view.bpl InfMargenArticulo_plugin.bpl + + + + diff --git a/Source/Informes_Group.config b/Source/Informes_Group.config new file mode 100644 index 00000000..c8f28340 --- /dev/null +++ b/Source/Informes_Group.config @@ -0,0 +1,2 @@ + + \ No newline at end of file diff --git a/Source/Lib/Base.dcp b/Source/Lib/Base.dcp index beadad58..5b2184fb 100644 Binary files a/Source/Lib/Base.dcp and b/Source/Lib/Base.dcp differ diff --git a/Source/Lib/ControllerBase.dcp b/Source/Lib/ControllerBase.dcp index c02e139b..215e5dbb 100644 Binary files a/Source/Lib/ControllerBase.dcp and b/Source/Lib/ControllerBase.dcp differ diff --git a/Source/Lib/DataAbstract_D10.dcp b/Source/Lib/DataAbstract_D10.dcp index ff16728e..fbfd9614 100644 Binary files a/Source/Lib/DataAbstract_D10.dcp and b/Source/Lib/DataAbstract_D10.dcp differ diff --git a/Source/Lib/GUIBase.dcp b/Source/Lib/GUIBase.dcp index 6f57fe32..5fef0a9d 100644 Binary files a/Source/Lib/GUIBase.dcp and b/Source/Lib/GUIBase.dcp differ diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorElegirAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorElegirAlbaranesCliente.dfm index 0936b2f4..4a1ad303 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorElegirAlbaranesCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorElegirAlbaranesCliente.dfm @@ -115,10 +115,10 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente ExplicitWidth = 790 end inherited TBXTMain2: TTBXToolbar - Left = 223 + Left = 206 Visible = False - ExplicitLeft = 223 - ExplicitWidth = 567 + ExplicitLeft = 206 + ExplicitWidth = 584 end end inherited StatusBar: TJvStatusBar @@ -192,8 +192,6 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente end inherited JsNuevoAlbaranDialog: TJSDialog [13] end - inherited JsListaFacturasGeneradas: TJSDialog [14] - end inherited JsImprimirDialog: TJSDialog [15] end object EditorSeleccionActionList: TActionList diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas index 71325f2f..25a9f38c 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas +++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas @@ -1000,6 +1000,7 @@ var AFormaPago: IBizFormaPago; ARecibosClienteController: IRecibosClienteController; ARecibos: IBizRecibosCliente; + AFechaVencimiento: TDateTime; i: Integer; begin if not Assigned(AFactura) then @@ -1030,7 +1031,20 @@ begin ARecibos.Edit; ARecibos.ID_FACTURA := AFactura.ID; ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i); - ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS; + + AFechaVencimiento := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS; + if (AFactura.Cliente.VENCIMIENTO_FACTURAS <> 0) then + begin + if DayOf(AFechaVencimiento) > AFactura.Cliente.VENCIMIENTO_FACTURAS then + begin + AFechaVencimiento := IncDay(AFechaVencimiento, (DaysInMonth(AFechaVencimiento) - DayOf(AFechaVencimiento))); + AFechaVencimiento := IncDay(AFechaVencimiento, AFactura.Cliente.VENCIMIENTO_FACTURAS); + end + else + AFechaVencimiento := IncDay(AFechaVencimiento, (AFactura.Cliente.VENCIMIENTO_FACTURAS - DayOf(AFechaVencimiento))); + end; + ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento; + ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100); ARecibosClienteController.Guardar(ARecibos); Inc(i); diff --git a/Source/Modulos/Informe margen por articulo/Controller/InfMargenArticulo_controller.bdsproj b/Source/Modulos/Informe margen por articulo/Controller/InfMargenArticulo_controller.bdsproj new file mode 100644 index 00000000..243e18b7 --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Controller/InfMargenArticulo_controller.bdsproj @@ -0,0 +1,497 @@ + + + + + + + + + + + + InfMargenArticulo_controller.dpk + + + 7.0 + + + 8 + 0 + 1 + 1 + 0 + 0 + 1 + 1 + 1 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + 0 + 0 + 0 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + True + True + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + False + False + False + True + True + True + True + True + True + + + + 0 + 0 + False + 1 + False + False + False + 16384 + 1048576 + 4194304 + + + + + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + + + + False + + + + + + False + + + True + False + + + + $00000000 + + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + + Muststang Peak EasyListview Runtime Package + RemObjects Pascal Script - RemObjects SDK 3.0 Integration + + + + diff --git a/Source/Modulos/Informe margen por articulo/Controller/InfMargenArticulo_controller.dpk b/Source/Modulos/Informe margen por articulo/Controller/InfMargenArticulo_controller.dpk new file mode 100644 index 00000000..bbcb64be --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Controller/InfMargenArticulo_controller.dpk @@ -0,0 +1,52 @@ +package InfMargenArticulo_controller; + +{$R *.res} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$IMPLICITBUILD OFF} + +requires + rtl, + vcl, + dbrtl, + cxLibraryD10, + dxThemeD10, + dsnap, + vcldb, + adortl, + GUIBase, + Usuarios, + cxTreeListD10, + cxVerticalGridD10, + InformesBase_view, + Informes_model, + InformesBase_controller, + InfMargenArticulo_data, + InfMargenArticulo_model, + DataAbstract_D10; + +contains + uInfMargenArticuloController in 'uInfMargenArticuloController.pas', + uIEditorInfMargenArticulo in 'View\uIEditorInfMargenArticulo.pas', + uInfMargenArticuloInformeRegister in 'uInfMargenArticuloInformeRegister.pas'; + +end. diff --git a/Source/Modulos/Informe margen por articulo/Controller/InfMargenArticulo_controller.res b/Source/Modulos/Informe margen por articulo/Controller/InfMargenArticulo_controller.res new file mode 100644 index 00000000..86c94e6a Binary files /dev/null and b/Source/Modulos/Informe margen por articulo/Controller/InfMargenArticulo_controller.res differ diff --git a/Source/Modulos/Informe margen por articulo/Controller/View/uIEditorInfMargenArticulo.pas b/Source/Modulos/Informe margen por articulo/Controller/View/uIEditorInfMargenArticulo.pas new file mode 100644 index 00000000..dc286233 --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Controller/View/uIEditorInfMargenArticulo.pas @@ -0,0 +1,22 @@ +unit uIEditorInfMargenArticulo; + +interface + +uses + uEditorInformeBase, uBizInfMargenArticulo, uInfMargenArticuloController; + +type + IEditorInfMargenArticulo = interface(IEditorInformeBase) + ['{684227AF-6C63-48F1-B2B6-DEBFAC5A39CB}'] + function GetController : IInfMargenArticuloController; + procedure SetController (const Value : IInfMargenArticuloController); + property Controller : IInfMargenArticuloController read GetController write SetController; + + function GetDatos : IBizInfMargenArticulo; + procedure SetDatos (const Value : IBizInfMargenArticulo); + property Datos : IBizInfMargenArticulo read GetDatos write SetDatos; + end; + +implementation + +end. diff --git a/Source/Modulos/Informe margen por articulo/Controller/uInfMargenArticuloController.pas b/Source/Modulos/Informe margen por articulo/Controller/uInfMargenArticuloController.pas new file mode 100644 index 00000000..91f95bb6 --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Controller/uInfMargenArticuloController.pas @@ -0,0 +1,232 @@ +unit uInfMargenArticuloController; + +interface + + +uses + Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem, + uBizInfMargenArticulo, uIDataModuleInfMargenArticulo, uInformeBaseController, + uBizInformes; + +type + IInfMargenArticuloController = interface(IInformeBaseController) + ['{1F19FFE4-7AA6-4CAB-B7F0-687FE858FD31}'] +// procedure VerTodos(AInfMargenArticulo: IBizInfMargenArticulo); +// function BuscarTodos: IBizInfMargenArticulo; +// function Buscar(const ID_ALMACEN: Integer): IBizInfMargenArticulo; +// function ExtraerSeleccionados(AArticulos: IBizInfMargenArticulo) : IBizInfMargenArticulo; + +// procedure Anadir(AArticulos, AInfMargenArticulo : IBizInfMargenArticulo); +// procedure Ver; //(AInfMargenArticulo : IBizInfMargenArticulo); +// function Guardar(AArticulos : IBizInfMargenArticulo; const FechaMovimiento: TDateTime; const CausaMovimiento: String): Boolean; + end; + + TInfMargenArticuloController = class(TObservador, IInfMargenArticuloController, IInformeBaseController) + private + function BuscarTodos: IBizInfMargenArticulo; + + protected + FDataModule : IDataModuleInfMargenArticulo; + + procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override; + function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean; + function _Vacio : IBizInfMargenArticulo; + + procedure FiltrarEmpresa(AInfMargenArticulo: IBizInfMargenArticulo); + + //Estos son los tres métodos a sobre escribir si se desea heredar toda la logica de + //este controller + procedure AsignarDataModule; virtual; + + public + constructor Create; virtual; + destructor Destroy; override; + +// function Buscar(const ID_ALMACEN: Integer): IBizInfMargenArticulo; +// function ExtraerSeleccionados(AArticulos: IBizInfMargenArticulo) : IBizInfMargenArticulo; +// function Ver(AArticulos: IBizInfMargenArticulo; AInfMargenArticulo : IBizInfMargenArticulo): Boolean; + procedure Nuevo(AInforme : IBizInforme); + procedure Ver(AInforme : IBizInforme); +// procedure VerTodos(AInfMargenArticulo: IBizInfMargenArticulo); + end; + +implementation + +uses + Forms, cxControls, DB, uEditorRegistryUtils, + uIEditorInfMargenArticulo, uDataModuleUsuarios, + uDataModuleInfMargenArticulo, + uDAInterfaces, uDataTableUtils, + uDateUtils, uROTypes, DateUtils, Controls, Windows, + dialogs, Variants, uControllerDetallesBase, uDialogUtils, + schInfMargenArticuloClient_Intf; + +{ TInfMargenArticuloController } + +procedure TInfMargenArticuloController.AsignarDataModule; +begin + FDataModule := TdmInfMargenArticulo.Create(Nil); +end; + +{ +function TInfMargenArticuloController.Buscar(const ID_ALMACEN: Integer): IBizInfMargenArticulo; +begin + Result := (FDataModule as IDataModuleInfMargenArticulo).GetItems(ID_ALMACEN); + FiltrarEmpresa(Result); +end; +} + +function TInfMargenArticuloController.BuscarTodos: IBizInfMargenArticulo; +begin + Result := FDataModule.GetItems; + FiltrarEmpresa(Result); +end; + +constructor TInfMargenArticuloController.Create; +begin + AsignarDataModule; +end; + +function TInfMargenArticuloController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; +begin + Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf); +end; + +destructor TInfMargenArticuloController.Destroy; +begin + FDataModule := Nil; + inherited; +end; + + +{function TInfMargenArticuloController.ExtraerSeleccionados(AArticulos: IBizInfMargenArticulo): IBizInfMargenArticulo; +var + ASeleccionados : IBizInfMargenArticulo; +begin + ASeleccionados := (Self.Buscar(ID_NULO) as IBizInfMargenArticulo); + CopyDataTable(AArticulos.DataTable, ASeleccionados.DataTable, True); + Result := ASeleccionados; +end;} + + +{function TInfMargenArticuloController.Ver(AArticulos: IBizInfMargenArticulo; AInfMargenArticulo: IBizInfMargenArticulo): Boolean; +var + AEditor : IEditorEntradaSalidaArticulos; +begin + Result := False; + AEditor := NIL; + ShowHourglassCursor; + try + CreateEditor('EditorEntradaSalidaArticulos', IEditorEntradaSalidaArticulos, AEditor); + with AEditor do + begin + Controller := Self; //OJO ORDEN MUY IMPORTANTE + Articulos := AArticulos; + InfMargenArticulo := AInfMargenArticulo; + end; + finally + HideHourglassCursor; + end; + + if Assigned(AEditor) then + try + AEditor.ShowModal; + Result := AEditor.ResultadoModalOK; + AEditor.Release; + finally + AEditor := NIL; + end; +end;} + +procedure TInfMargenArticuloController.Ver(AInforme: IBizInforme); +var + AEditor : IEditorInfMargenArticulo; +begin + AEditor := NIL; + ShowHourglassCursor; + try + CreateEditor('EditorInfMargenArticulo', IEditorInfMargenArticulo, AEditor); + with (AEditor as IEditorInfMargenArticulo) do + begin + if not Assigned(FDataModule) then + AsignarDataModule; + Controller := Self; //OJO ORDEN MUY IMPORTANTE + Datos := BuscarTodos; + Informe := AInforme; + + +// Datos.VisibleColumns := FDataModule.GetNameColumns; + end; + finally + HideHourglassCursor; + end; + + if Assigned(AEditor) then + try + AEditor.ShowModal; + AEditor.Release; + finally + AEditor := NIL; + end; +end; + +{procedure TInfMargenArticuloController.VerTodos(AInfMargenArticulo: IBizInfMargenArticulo); +//var +// AEditor : IEditorInfMargenArticulo; +begin +{ AEditor := NIL; + ShowHourglassCursor; + try + CreateEditor('EditorInfMargenArticulo', IEditorInfMargenArticulo, AEditor); + with AEditor do + begin + Controller := Self; //OJO ORDEN MUY IMPORTANTE + InfMargenArticulo := AInfMargenArticulo; + MultiSelect := False; + end; + finally + HideHourglassCursor; + end; + + if Assigned(AEditor) then + AEditor.ShowEmbedded; + +end;} + +function TInfMargenArticuloController._Vacio: IBizInfMargenArticulo; +begin +// Result := Buscar(ID_NULO); +end; + +procedure TInfMargenArticuloController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); +begin + inherited; +// +end; + +procedure TInfMargenArticuloController.FiltrarEmpresa(AInfMargenArticulo: IBizInfMargenArticulo); +begin + if AInfMargenArticulo.DataTable.Active then + AInfMargenArticulo.DataTable.Active := False; + + // Filtrar los InfMargenArticulo actuales por empresa + with AInfMargenArticulo.DataTable.Where do + begin + if NotEmpty then + AddOperator(opAND); + + OpenBraket; + AddText(fld_InfMargenArticuloID_EMPRESA + ' = ' + IntToStr(dmUsuarios.IDEmpresaActual)); + CloseBraket; + end; +end; + +procedure TInfMargenArticuloController.Nuevo(AInforme: IBizInforme); +begin + AInforme.Insert; + AInforme.CATEGORIA := 'VENTAS ARTICULOS'; + AInforme.CONTROLLER := 'InfMargenArticuloController'; + AInforme.ID_EMPRESA := dmUsuarios.EmpresaActual.ID; +end; + +end. diff --git a/Source/Modulos/Informe margen por articulo/Controller/uInfMargenArticuloInformeRegister.pas b/Source/Modulos/Informe margen por articulo/Controller/uInfMargenArticuloInformeRegister.pas new file mode 100644 index 00000000..0170f7eb --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Controller/uInfMargenArticuloInformeRegister.pas @@ -0,0 +1,23 @@ +unit uInfMargenArticuloInformeRegister; + +interface + +procedure RegisterInformes; +procedure UnregisterInformes; + +implementation + +uses + uInformeRegistryUtils, uInfMargenArticuloController; + +procedure RegisterInformes; +begin + InformeRegistry.RegisterClass(TInfMargenArticuloController, 'InfMargenArticuloController'); +end; + +procedure UnregisterInformes; +begin + InformeRegistry.UnRegisterClass(TInfMargenArticuloController); +end; + +end. diff --git a/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.bdsproj b/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.bdsproj new file mode 100644 index 00000000..9835e243 --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.bdsproj @@ -0,0 +1,496 @@ + + + + + + + + + + + + InfMargenArticulo_data.dpk + + + 7.0 + + + 8 + 0 + 1 + 1 + 0 + 0 + 1 + 1 + 1 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + 0 + 0 + 0 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + True + True + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + False + False + False + True + True + True + True + True + True + + + + 3 + 0 + False + 1 + False + False + False + 16384 + 1048576 + 4194304 + + + + + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + + + + False + + + + + + False + + + True + False + + + + $00000000 + + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + + RemObjects Pascal Script - RemObjects SDK 3.0 Integration + + + + diff --git a/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.dpk b/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.dpk new file mode 100644 index 00000000..dcad34bf --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.dpk @@ -0,0 +1,42 @@ +package InfMargenArticulo_data; + +{$R *.res} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$IMPLICITBUILD OFF} + +requires + rtl, + vcl, + dbrtl, + dsnap, + vcldb, + cxLibraryD10, + dxThemeD10, + adortl, + Base, + InfMargenArticulo_model; + +contains + uDataModuleInfMargenArticulo in 'uDataModuleInfMargenArticulo.pas' {dmInfMargenArticulo}; + +end. diff --git a/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.drc b/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.drc new file mode 100644 index 00000000..7642ac97 --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.drc @@ -0,0 +1,14 @@ +/* VER180 + Generated by the Borland Delphi Pascal Compiler + because -GD or --drc was supplied to the compiler. + + This file contains compiler-generated resources that + were bound to the executable. + If this file is empty, then no compiler-generated + resources were bound to the produced executable. +*/ + +STRINGTABLE +BEGIN +END + diff --git a/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.res b/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.res new file mode 100644 index 00000000..86c94e6a Binary files /dev/null and b/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.res differ diff --git a/Source/Modulos/Informe margen por articulo/Data/uDataModuleInfMargenArticulo.dfm b/Source/Modulos/Informe margen por articulo/Data/uDataModuleInfMargenArticulo.dfm new file mode 100644 index 00000000..f71b5deb --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Data/uDataModuleInfMargenArticulo.dfm @@ -0,0 +1,982 @@ +object dmInfMargenArticulo: TdmInfMargenArticulo + OldCreateOrder = True + OnCreate = DAClientDataModuleCreate + RemoteService = RORemoteService + Adapter = DABinAdapter + SchemaCall.MethodName = 'GetSchemaAsXML' + SchemaCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtString + end> + Height = 436 + Width = 464 + object RORemoteService: TRORemoteService + ServiceName = 'srvInfMargenArticulo' + Message = ROBinMessage1 + Channel = ROWinInetHTTPChannel1 + Left = 64 + Top = 24 + end + object DABinAdapter: TDABINAdapter + Left = 64 + Top = 80 + end + object DADesigntimeCall1: TDADesigntimeCall + RemoteRequest.MethodName = 'Login' + RemoteRequest.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBoolean + end + item + Name = 'User' + ParamType = fIn + DataType = rtString + Value = 'Administrador' + end + item + Name = 'Password' + ParamType = fIn + DataType = rtString + Value = '1' + end + item + Name = 'LoginInfo' + ParamType = fOut + DataType = rtUserDefined + UserClassName = 'TRdxLoginInfo' + end> + RemoteService = LoginRemoteService + Left = 64 + Top = 160 + end + object LoginRemoteService: TRORemoteService + ServiceName = 'srvLogin' + Message = ROBinMessage1 + Channel = ROWinInetHTTPChannel1 + Left = 64 + Top = 216 + end + object ROWinInetHTTPChannel1: TROWinInetHTTPChannel + ServerLocators = <> + DispatchOptions = [] + ProbeServers = False + ProbeFrequency = 60000 + UserAgent = 'RemObjects SDK' + TargetURL = 'http://localhost:8090/bin' + Left = 64 + Top = 272 + end + object ROBinMessage1: TROBinMessage + Left = 64 + Top = 324 + end + object tbl_InfMargenArticulo2: TDACDSDataTable + RemoteUpdatesOptions = [] + Fields = <> + Params = <> + MasterMappingMode = mmDataRequest + StreamingOptions = [soDisableEventsWhileStreaming] + SchemaCall.MethodName = 'GetSchema' + SchemaCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBinary + end + item + Name = 'DatasetName' + ParamType = fIn + DataType = rtString + Value = 'InfMargenArticulo' + end + item + Name = 'Columns' + ParamType = fIn + DataType = rtString + Value = '' + end> + DataRequestCall.MethodName = 'GetData' + DataRequestCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBinary + end + item + Name = 'DatasetName' + ParamType = fIn + DataType = rtString + Value = 'InfMargenArticulo' + end + item + Name = 'MaxRecords' + ParamType = fIn + DataType = rtInteger + Value = -1 + end + item + Name = 'Columns' + ParamType = fIn + DataType = rtString + Value = '' + end + item + Name = 'Params' + ParamType = fIn + DataType = rtUserDefined + UserClassName = 'TDADatasetParamArray' + end> + DataUpdateCall.MethodName = 'UpdateData' + DataUpdateCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBinary + end + item + Name = 'Delta' + ParamType = fIn + DataType = rtBinary + end> + ScriptCall.MethodName = 'GetDatasetScripts' + ScriptCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtString + Value = '' + end + item + Name = 'DatasetNames' + ParamType = fIn + DataType = rtString + Value = 'InfMargenArticulo' + end> + ReadOnly = False + RemoteService = RORemoteService + Adapter = DABinAdapter + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'InfMargenArticulo' + IndexDefs = <> + Left = 280 + Top = 232 + end + object tbl_InfMargenArticulo: TDACDSDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID_FACTURA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Id factura' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_ID_FACTURA' + InPrimaryKey = True + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Id empresa' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_ID_EMPRESA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA_FACTURA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Ref. factura' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_REFERENCIA_FACTURA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_FACTURA' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Fecha factura' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_FECHA_FACTURA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_TOTAL_FACTURA' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Importe factura' + Alignment = taRightJustify + DictionaryEntry = 'InfMargenArticulo_IMPORTE_TOTAL_FACTURA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_COMISION_FACTURA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Id comision factura' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_ID_COMISION_FACTURA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_ARTICULO' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Id art'#237'culo' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_ID_ARTICULO' + InPrimaryKey = True + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FAMILIA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Familia' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_FAMILIA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Referencia' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_REFERENCIA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA_PROV' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Ref. proveedor' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_REFERENCIA_PROV' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'DESCRIPCION' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Descripci'#243'n' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_DESCRIPCION' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'COMISIONABLE' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Comisionable' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_COMISIONABLE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'INVENTARIABLE' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Inventariable' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_INVENTARIABLE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_UNIDAD_COSTE' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Precio coste' + Alignment = taRightJustify + DictionaryEntry = 'InfMargenArticulo_PRECIO_COSTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'DESCUENTO_PROVEEDOR_COSTE' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Descuento prov.' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_DESCUENTO_PROVEEDOR' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_NETO_COSTE' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Precio neto' + Alignment = taRightJustify + DictionaryEntry = 'InfMargenArticulo_PRECIO_NETO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_PORTE_COSTE' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Precio porte' + Alignment = taRightJustify + DictionaryEntry = 'InfMargenArticulo_PRECIO_PORTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_UNIDAD_ULTIMA_COMPRA' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Precio coste '#250'ltima compra' + Alignment = taRightJustify + DictionaryEntry = 'InfMargenArticulo_IMPORTE_UNIDAD_ULTIMA_COMPRA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_NETO_ULTIMA_COMPRA' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Precio neto ultima compra' + Alignment = taRightJustify + DictionaryEntry = 'InfMargenArticulo_IMPORTE_NETO_ULTIMA_COMPRA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_PORTE_ULTIMA_COMPRA' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Precio porte '#250'ltima compra' + Alignment = taRightJustify + DictionaryEntry = 'InfMargenArticulo_IMPORTE_PORTE_ULTIMA_COMPRA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_UNIDAD_PROMEDIO_COMPRA' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Precio coste promedio ' + Alignment = taRightJustify + DictionaryEntry = 'InfMargenArticulo_IMPORTE_UNIDAD_PROMEDIO_COMPRA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_NETO_PROMEDIO_COMPRA' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Precio neto promedio' + Alignment = taRightJustify + DictionaryEntry = 'InfMargenArticulo_IMPORTE_NETO_PROMEDIO_COMPRA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_PORTE_PROMEDIO_COMPRA' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Precio porte promedio' + Alignment = taRightJustify + DictionaryEntry = 'InfMargenArticulo_IMPORTE_PORTE_PROMEDIO_COMPRA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CANTIDAD' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Cantidad' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_CANTIDAD' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_UNIDAD_VENTA' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Importe unidad' + Alignment = taRightJustify + DictionaryEntry = 'InfMargenArticulo_IMPORTE_UNIDAD' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'DESCUENTO_CLIENTE_VENTA' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Descuento cli.' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_DESCUENTO_CLIENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_NETO_VENTA' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Importe neto venta' + Alignment = taRightJustify + DictionaryEntry = 'InfMargenArticulo_IMPORTE_NETO_VENTA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_PORTE_VENTA' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_IMPORTE_PORTE_VENTA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_TOTAL_VENTA' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Importe total' + Alignment = taRightJustify + DictionaryEntry = 'InfMargenArticulo_IMPORTE_TOTAL' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_MARGEN_COSTE' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Margen coste' + Alignment = taRightJustify + DictionaryEntry = 'InfMargenArticulo_IMPORTE_MARGEN_COSTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'PORCENTAJE_MARGEN_COSTE' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = '% margen coste' + Alignment = taRightJustify + DictionaryEntry = 'InfMargenArticulo_PORCENTAJE_MARGEN_COSTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_MARGEN_ULT_COMPRA' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Margen '#250'ltima compra' + Alignment = taRightJustify + DictionaryEntry = 'InfMargenArticulo_IMPORTE_MARGEN_ULT_COMPRA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'PORCENTAJE_MARGEN_ULT_COMPRA' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = '% '#250'ltima compra' + Alignment = taRightJustify + DictionaryEntry = 'InfMargenArticulo_PORCENTAJE_MARGEN_ULT_COMPRA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_MARGEN_PROM_COMPRA' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Margen promedio' + Alignment = taRightJustify + DictionaryEntry = 'InfMargenArticulo_IMPORTE_MARGEN_PROM_COMPRA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'PORCENTAJE_MARGEN_PROM_COMPRA' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = '% margen promedio' + Alignment = taRightJustify + DictionaryEntry = 'InfMargenArticulo_PORCENTAJE_MARGEN_PROM_COMPRA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NIF_CIF_PROVEEDOR' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'NIF/CIF prov.' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_NIF_CIF_PROVEEDOR' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NOMBRE_PROVEEDOR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Proveedor' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_NOMBRE_PROVEEDOR' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CALLE_PROVEEDOR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Calle prov.' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_CALLE_PROVEEDOR' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'POBLACION_PROVEEDOR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Poblaci'#243'n prov.' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_POBLACION_PROVEEDOR' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'PROVINCIA_PROVEEDOR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Provincia prov.' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_PROVINCIA_PROVEEDOR' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NIF_CIF_CLIENTE' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'NIF/CIF cli.' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_NIF_CIF_CLIENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NOMBRE_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Cliente' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_NOMBRE_CLIENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NOMBRE_COMERCIAL_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Nombre comercial' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_NOMBRE_COMERCIAL_CLIENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CALLE_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Calle cli.' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_CALLE_CLIENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'POBLACION_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Poblaci'#243'n cli.' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_POBLACION_CLIENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'PROVINCIA_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Provincia cli.' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_PROVINCIA_CLIENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NIF_CIF_AGENTE' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'NIF/CIF agente' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_NIF_CIF_AGENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NOMBRE_AGENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Agente' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_NOMBRE_AGENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CALLE_AGENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Calle agente' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_CALLE_AGENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'POBLACION_AGENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Poblaci'#243'n agente' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_POBLACION_AGENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'PROVINCIA_AGENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Provincia agente' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_PROVINCIA_AGENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'COMISION_AGENTE' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Comisi'#243'n' + Alignment = taLeftJustify + DictionaryEntry = 'InfMargenArticulo_COMISION_AGENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_COMISION_AGENTE' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Importe comisi'#243'n' + Alignment = taRightJustify + DictionaryEntry = 'InfMargenArticulo_IMPORTE_COMISION_AGENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end> + Params = < + item + Name = 'FECHAINI' + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end + item + Name = 'FECHAFIN' + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end> + MasterMappingMode = mmDataRequest + StreamingOptions = [soDisableEventsWhileStreaming] + SchemaCall.MethodName = 'GetDatasetSchema' + SchemaCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBinary + end + item + Name = 'aDatasetName' + ParamType = fIn + DataType = rtString + Value = 'InfMargenArticulo' + end> + DataRequestCall.MethodName = 'GetDatasetDataEx' + DataRequestCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBinary + end + item + Name = 'DatasetName' + ParamType = fIn + DataType = rtString + Value = 'InfMargenArticulo' + end + item + Name = 'Params' + ParamType = fIn + DataType = rtUserDefined + UserClassName = 'TDADatasetParamArray' + end + item + Name = 'UserFilter' + ParamType = fIn + DataType = rtString + Value = '' + end + item + Name = 'IncludeSchema' + ParamType = fIn + DataType = rtBoolean + Value = False + end + item + Name = 'MaxRecords' + ParamType = fIn + DataType = rtInteger + Value = -1 + end> + DataUpdateCall.MethodName = 'UpdateData' + DataUpdateCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBinary + end + item + Name = 'Delta' + ParamType = fIn + DataType = rtBinary + end> + ScriptCall.MethodName = 'GetDatasetScripts' + ScriptCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtString + Value = '' + end + item + Name = 'DatasetNames' + ParamType = fIn + DataType = rtString + Value = 'InfMargenArticulo' + end> + ReadOnly = False + RemoteService = RORemoteService + Adapter = DABinAdapter + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'InfMargenArticulo' + IndexDefs = <> + Left = 280 + Top = 168 + end +end diff --git a/Source/Modulos/Informe margen por articulo/Data/uDataModuleInfMargenArticulo.pas b/Source/Modulos/Informe margen por articulo/Data/uDataModuleInfMargenArticulo.pas new file mode 100644 index 00000000..cd316a19 --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Data/uDataModuleInfMargenArticulo.pas @@ -0,0 +1,106 @@ +unit uDataModuleInfMargenArticulo; + +interface + +uses {vcl:} SysUtils, Classes, DB, DBClient, + {RemObjects:} uDAClientDataModule, uDADataTable, uDABINAdapter, + uROServiceComponent, uRORemoteService, uROClient, uROBinMessage, + uROWinInetHttpChannel, uDAScriptingProvider, uDACDSDataTable, + uBizInfMargenArticulo, uIDataModuleInfMargenArticulo, uDADesigntimeCall; + //uBizControlVentasTerminadas, + +//const +// CATEGORIA_VENTA_TERMINADA = 'VENTATERMINADA'; + +type + TdmInfMargenArticulo = class(TDAClientDataModule, IDataModuleInfMargenArticulo) + RORemoteService: TRORemoteService; + DABinAdapter: TDABINAdapter; + DADesigntimeCall1: TDADesigntimeCall; + LoginRemoteService: TRORemoteService; + ROWinInetHTTPChannel1: TROWinInetHTTPChannel; + ROBinMessage1: TROBinMessage; + tbl_InfMargenArticulo2: TDACDSDataTable; + tbl_InfMargenArticulo: TDACDSDataTable; + procedure DAClientDataModuleCreate(Sender: TObject); + + protected + function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload; + public + function GetItems : IBizInfMargenArticulo; + function GetNameColumns: String; + end; + +var + dmInfMargenArticulo: TdmInfMargenArticulo; + +implementation + +{$R *.DFM} + +uses + Controls, Forms, uDAInterfaces, DataAbstract_Intf, uDataTableUtils, + uROTypes, Dialogs, uDataModuleConexion, + uDataModuleBase, cxControls, + schInfMargenArticuloClient_Intf; //, uEditorPreview, uDataModuleControles, uDBSelectionList, + + +procedure TdmInfMargenArticulo.DAClientDataModuleCreate(Sender: TObject); +begin + RORemoteService.Channel := dmConexion.Channel; + RORemoteService.Message := dmConexion.Message; +end; + +function TdmInfMargenArticulo.GetItems: IBizInfMargenArticulo; +var + AInfMargenArticulo : TDACDSDataTable; +begin + ShowHourglassCursor; + try + AInfMargenArticulo := _CloneDataTable(tbl_InfMargenArticulo2); + AInfMargenArticulo.Fields.AssignFieldCollection(tbl_InfMargenArticulo.Fields); + + AInfMargenArticulo.BusinessRulesID := BIZ_InfMargenArticulo; + + //Importante inicializar columnas visibles + AInfMargenArticulo.FieldByName(fld_InfMargenArticuloID_FACTURA).Visible := False; + AInfMargenArticulo.FieldByName(fld_InfMargenArticuloID_ARTICULO).Visible := False; + AInfMargenArticulo.LoadSchema; + (AInfMargenArticulo as IBizInfMargenArticulo).VisibleColumns := GetNameColumns; + + Result := (AInfMargenArticulo as IBizInfMargenArticulo); + finally + HideHourglassCursor; + end; +end; + +function TdmInfMargenArticulo.GetNameColumns: String; +var + AList : TStringList; + i : integer; +begin + AList := TStringList.Create; + try + for i := 0 to tbl_InfMargenArticulo.FieldCount - 1 do + if tbl_InfMargenArticulo.Fields[i].Visible then + AList.Add(tbl_InfMargenArticulo.Fields[i].Name); + Result := AList.CommaText; + finally + FreeAndNil(AList); + end; +end; + +function TdmInfMargenArticulo._CloneDataTable( + const ADataTable: TDACDSDataTable): TDACDSDataTable; +begin + Result := NIL; + + if not Assigned(ADataTable) then + raise Exception.Create ('No se ha asignado la tabla de origen (CloneDataTable)'); + + Result := TDACDSDataTable.Create(NIL); + CloneDataTable(ADataTable, Result); +end; + +end. + diff --git a/Source/Modulos/Informe margen por articulo/Model/Data/uIDataModuleInfMargenArticulo.pas b/Source/Modulos/Informe margen por articulo/Model/Data/uIDataModuleInfMargenArticulo.pas new file mode 100644 index 00000000..ad2acae1 --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Model/Data/uIDataModuleInfMargenArticulo.pas @@ -0,0 +1,17 @@ +unit uIDataModuleInfMargenArticulo; + +interface + +uses + uBizInfMargenArticulo; + +type + IDataModuleInfMargenArticulo = interface + ['{B539E3DE-CC9D-4F12-84AF-2534971B0BE4}'] + function GetItems : IBizInfMargenArticulo; + function GetNameColumns: String; + end; + +implementation + +end. diff --git a/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.bdsproj b/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.bdsproj new file mode 100644 index 00000000..4042e135 --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.bdsproj @@ -0,0 +1,496 @@ + + + + + + + + + + + + InfMargenArticulo_model.dpk + + + 7.0 + + + 8 + 0 + 1 + 1 + 0 + 0 + 1 + 1 + 1 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + 0 + 0 + 0 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + True + True + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + False + False + False + True + True + True + True + True + True + + + + 3 + 0 + False + 1 + False + False + False + 16384 + 1048576 + 4194304 + + + + + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + + + + False + + + + + + False + + + True + False + + + + $00000000 + + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + + RemObjects Pascal Script - RemObjects SDK 3.0 Integration + + + + diff --git a/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.dpk b/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.dpk new file mode 100644 index 00000000..0ff78b22 --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.dpk @@ -0,0 +1,42 @@ +package InfMargenArticulo_model; + +{$R *.res} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$IMPLICITBUILD OFF} + +requires + rtl, + vcl, + dbrtl, + dsnap, + vcldb, + adortl, + DataAbstract_D10; + +contains + uBizInfMargenArticulo in 'uBizInfMargenArticulo.pas', + uIDataModuleInfMargenArticulo in 'Data\uIDataModuleInfMargenArticulo.pas', + schInfMargenArticuloClient_Intf in 'schInfMargenArticuloClient_Intf.pas', + schInfMargenArticuloServer_Intf in 'schInfMargenArticuloServer_Intf.pas'; + +end. diff --git a/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.drc b/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.drc new file mode 100644 index 00000000..7642ac97 --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.drc @@ -0,0 +1,14 @@ +/* VER180 + Generated by the Borland Delphi Pascal Compiler + because -GD or --drc was supplied to the compiler. + + This file contains compiler-generated resources that + were bound to the executable. + If this file is empty, then no compiler-generated + resources were bound to the produced executable. +*/ + +STRINGTABLE +BEGIN +END + diff --git a/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.res b/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.res new file mode 100644 index 00000000..86c94e6a Binary files /dev/null and b/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.res differ diff --git a/Source/Modulos/Informe margen por articulo/Model/schInfMargenArticuloClient_Intf.pas b/Source/Modulos/Informe margen por articulo/Model/schInfMargenArticuloClient_Intf.pas new file mode 100644 index 00000000..ba6c1cb8 --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Model/schInfMargenArticuloClient_Intf.pas @@ -0,0 +1,1018 @@ +unit schInfMargenArticuloClient_Intf; + +interface + +uses + Classes, DB, SysUtils, uROClasses, uDADataTable; + +const + { Data table rules ids + Feel free to change them to something more human readable + but make sure they are unique in the context of your application } + RID_InfMargenArticulo = '{2DD59805-C1A8-4B91-B689-421A44964DA9}'; + + { Data table names } + nme_InfMargenArticulo = 'InfMargenArticulo'; + + { InfMargenArticulo fields } + fld_InfMargenArticuloID_FACTURA = 'ID_FACTURA'; + fld_InfMargenArticuloID_EMPRESA = 'ID_EMPRESA'; + fld_InfMargenArticuloREFERENCIA_FACTURA = 'REFERENCIA_FACTURA'; + fld_InfMargenArticuloFECHA_FACTURA = 'FECHA_FACTURA'; + fld_InfMargenArticuloIMPORTE_TOTAL_FACTURA = 'IMPORTE_TOTAL_FACTURA'; + fld_InfMargenArticuloID_COMISION_FACTURA = 'ID_COMISION_FACTURA'; + fld_InfMargenArticuloID_ARTICULO = 'ID_ARTICULO'; + fld_InfMargenArticuloFAMILIA = 'FAMILIA'; + fld_InfMargenArticuloREFERENCIA = 'REFERENCIA'; + fld_InfMargenArticuloREFERENCIA_PROV = 'REFERENCIA_PROV'; + fld_InfMargenArticuloDESCRIPCION = 'DESCRIPCION'; + fld_InfMargenArticuloCOMISIONABLE = 'COMISIONABLE'; + fld_InfMargenArticuloINVENTARIABLE = 'INVENTARIABLE'; + fld_InfMargenArticuloIMPORTE_UNIDAD_COSTE = 'IMPORTE_UNIDAD_COSTE'; + fld_InfMargenArticuloDESCUENTO_PROVEEDOR_COSTE = 'DESCUENTO_PROVEEDOR_COSTE'; + fld_InfMargenArticuloIMPORTE_NETO_COSTE = 'IMPORTE_NETO_COSTE'; + fld_InfMargenArticuloIMPORTE_PORTE_COSTE = 'IMPORTE_PORTE_COSTE'; + fld_InfMargenArticuloIMPORTE_UNIDAD_ULTIMA_COMPRA = 'IMPORTE_UNIDAD_ULTIMA_COMPRA'; + fld_InfMargenArticuloIMPORTE_NETO_ULTIMA_COMPRA = 'IMPORTE_NETO_ULTIMA_COMPRA'; + fld_InfMargenArticuloIMPORTE_PORTE_ULTIMA_COMPRA = 'IMPORTE_PORTE_ULTIMA_COMPRA'; + fld_InfMargenArticuloIMPORTE_UNIDAD_PROMEDIO_COMPRA = 'IMPORTE_UNIDAD_PROMEDIO_COMPRA'; + fld_InfMargenArticuloIMPORTE_NETO_PROMEDIO_COMPRA = 'IMPORTE_NETO_PROMEDIO_COMPRA'; + fld_InfMargenArticuloIMPORTE_PORTE_PROMEDIO_COMPRA = 'IMPORTE_PORTE_PROMEDIO_COMPRA'; + fld_InfMargenArticuloCANTIDAD = 'CANTIDAD'; + fld_InfMargenArticuloIMPORTE_UNIDAD_VENTA = 'IMPORTE_UNIDAD_VENTA'; + fld_InfMargenArticuloDESCUENTO_CLIENTE_VENTA = 'DESCUENTO_CLIENTE_VENTA'; + fld_InfMargenArticuloIMPORTE_NETO_VENTA = 'IMPORTE_NETO_VENTA'; + fld_InfMargenArticuloIMPORTE_PORTE_VENTA = 'IMPORTE_PORTE_VENTA'; + fld_InfMargenArticuloIMPORTE_TOTAL_VENTA = 'IMPORTE_TOTAL_VENTA'; + fld_InfMargenArticuloIMPORTE_MARGEN_COSTE = 'IMPORTE_MARGEN_COSTE'; + fld_InfMargenArticuloPORCENTAJE_MARGEN_COSTE = 'PORCENTAJE_MARGEN_COSTE'; + fld_InfMargenArticuloIMPORTE_MARGEN_ULT_COMPRA = 'IMPORTE_MARGEN_ULT_COMPRA'; + fld_InfMargenArticuloPORCENTAJE_MARGEN_ULT_COMPRA = 'PORCENTAJE_MARGEN_ULT_COMPRA'; + fld_InfMargenArticuloIMPORTE_MARGEN_PROM_COMPRA = 'IMPORTE_MARGEN_PROM_COMPRA'; + fld_InfMargenArticuloPORCENTAJE_MARGEN_PROM_COMPRA = 'PORCENTAJE_MARGEN_PROM_COMPRA'; + fld_InfMargenArticuloNIF_CIF_PROVEEDOR = 'NIF_CIF_PROVEEDOR'; + fld_InfMargenArticuloNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR'; + fld_InfMargenArticuloCALLE_PROVEEDOR = 'CALLE_PROVEEDOR'; + fld_InfMargenArticuloPOBLACION_PROVEEDOR = 'POBLACION_PROVEEDOR'; + fld_InfMargenArticuloPROVINCIA_PROVEEDOR = 'PROVINCIA_PROVEEDOR'; + fld_InfMargenArticuloNIF_CIF_CLIENTE = 'NIF_CIF_CLIENTE'; + fld_InfMargenArticuloNOMBRE_CLIENTE = 'NOMBRE_CLIENTE'; + fld_InfMargenArticuloNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE'; + fld_InfMargenArticuloCALLE_CLIENTE = 'CALLE_CLIENTE'; + fld_InfMargenArticuloPOBLACION_CLIENTE = 'POBLACION_CLIENTE'; + fld_InfMargenArticuloPROVINCIA_CLIENTE = 'PROVINCIA_CLIENTE'; + fld_InfMargenArticuloNIF_CIF_AGENTE = 'NIF_CIF_AGENTE'; + fld_InfMargenArticuloNOMBRE_AGENTE = 'NOMBRE_AGENTE'; + fld_InfMargenArticuloCALLE_AGENTE = 'CALLE_AGENTE'; + fld_InfMargenArticuloPOBLACION_AGENTE = 'POBLACION_AGENTE'; + fld_InfMargenArticuloPROVINCIA_AGENTE = 'PROVINCIA_AGENTE'; + fld_InfMargenArticuloCOMISION_AGENTE = 'COMISION_AGENTE'; + fld_InfMargenArticuloIMPORTE_COMISION_AGENTE = 'IMPORTE_COMISION_AGENTE'; + + { InfMargenArticulo field indexes } + idx_InfMargenArticuloID_FACTURA = 0; + idx_InfMargenArticuloID_EMPRESA = 1; + idx_InfMargenArticuloREFERENCIA_FACTURA = 2; + idx_InfMargenArticuloFECHA_FACTURA = 3; + idx_InfMargenArticuloIMPORTE_TOTAL_FACTURA = 4; + idx_InfMargenArticuloID_COMISION_FACTURA = 5; + idx_InfMargenArticuloID_ARTICULO = 6; + idx_InfMargenArticuloFAMILIA = 7; + idx_InfMargenArticuloREFERENCIA = 8; + idx_InfMargenArticuloREFERENCIA_PROV = 9; + idx_InfMargenArticuloDESCRIPCION = 10; + idx_InfMargenArticuloCOMISIONABLE = 11; + idx_InfMargenArticuloINVENTARIABLE = 12; + idx_InfMargenArticuloIMPORTE_UNIDAD_COSTE = 13; + idx_InfMargenArticuloDESCUENTO_PROVEEDOR_COSTE = 14; + idx_InfMargenArticuloIMPORTE_NETO_COSTE = 15; + idx_InfMargenArticuloIMPORTE_PORTE_COSTE = 16; + idx_InfMargenArticuloIMPORTE_UNIDAD_ULTIMA_COMPRA = 17; + idx_InfMargenArticuloIMPORTE_NETO_ULTIMA_COMPRA = 18; + idx_InfMargenArticuloIMPORTE_PORTE_ULTIMA_COMPRA = 19; + idx_InfMargenArticuloIMPORTE_UNIDAD_PROMEDIO_COMPRA = 20; + idx_InfMargenArticuloIMPORTE_NETO_PROMEDIO_COMPRA = 21; + idx_InfMargenArticuloIMPORTE_PORTE_PROMEDIO_COMPRA = 22; + idx_InfMargenArticuloCANTIDAD = 23; + idx_InfMargenArticuloIMPORTE_UNIDAD_VENTA = 24; + idx_InfMargenArticuloDESCUENTO_CLIENTE_VENTA = 25; + idx_InfMargenArticuloIMPORTE_NETO_VENTA = 26; + idx_InfMargenArticuloIMPORTE_PORTE_VENTA = 27; + idx_InfMargenArticuloIMPORTE_TOTAL_VENTA = 28; + idx_InfMargenArticuloIMPORTE_MARGEN_COSTE = 29; + idx_InfMargenArticuloPORCENTAJE_MARGEN_COSTE = 30; + idx_InfMargenArticuloIMPORTE_MARGEN_ULT_COMPRA = 31; + idx_InfMargenArticuloPORCENTAJE_MARGEN_ULT_COMPRA = 32; + idx_InfMargenArticuloIMPORTE_MARGEN_PROM_COMPRA = 33; + idx_InfMargenArticuloPORCENTAJE_MARGEN_PROM_COMPRA = 34; + idx_InfMargenArticuloNIF_CIF_PROVEEDOR = 35; + idx_InfMargenArticuloNOMBRE_PROVEEDOR = 36; + idx_InfMargenArticuloCALLE_PROVEEDOR = 37; + idx_InfMargenArticuloPOBLACION_PROVEEDOR = 38; + idx_InfMargenArticuloPROVINCIA_PROVEEDOR = 39; + idx_InfMargenArticuloNIF_CIF_CLIENTE = 40; + idx_InfMargenArticuloNOMBRE_CLIENTE = 41; + idx_InfMargenArticuloNOMBRE_COMERCIAL_CLIENTE = 42; + idx_InfMargenArticuloCALLE_CLIENTE = 43; + idx_InfMargenArticuloPOBLACION_CLIENTE = 44; + idx_InfMargenArticuloPROVINCIA_CLIENTE = 45; + idx_InfMargenArticuloNIF_CIF_AGENTE = 46; + idx_InfMargenArticuloNOMBRE_AGENTE = 47; + idx_InfMargenArticuloCALLE_AGENTE = 48; + idx_InfMargenArticuloPOBLACION_AGENTE = 49; + idx_InfMargenArticuloPROVINCIA_AGENTE = 50; + idx_InfMargenArticuloCOMISION_AGENTE = 51; + idx_InfMargenArticuloIMPORTE_COMISION_AGENTE = 52; + +type + { IInfMargenArticulo } + IInfMargenArticulo = interface(IDAStronglyTypedDataTable) + ['{5C058494-52F5-48F3-A25C-1A5F74D7C2E3}'] + { Property getters and setters } + function GetID_FACTURAValue: Integer; + procedure SetID_FACTURAValue(const aValue: Integer); + function GetID_EMPRESAValue: Integer; + procedure SetID_EMPRESAValue(const aValue: Integer); + function GetREFERENCIA_FACTURAValue: String; + procedure SetREFERENCIA_FACTURAValue(const aValue: String); + function GetFECHA_FACTURAValue: DateTime; + procedure SetFECHA_FACTURAValue(const aValue: DateTime); + function GetIMPORTE_TOTAL_FACTURAValue: Currency; + procedure SetIMPORTE_TOTAL_FACTURAValue(const aValue: Currency); + function GetID_COMISION_FACTURAValue: Integer; + procedure SetID_COMISION_FACTURAValue(const aValue: Integer); + function GetID_ARTICULOValue: Integer; + procedure SetID_ARTICULOValue(const aValue: Integer); + function GetFAMILIAValue: String; + procedure SetFAMILIAValue(const aValue: String); + function GetREFERENCIAValue: String; + procedure SetREFERENCIAValue(const aValue: String); + function GetREFERENCIA_PROVValue: String; + procedure SetREFERENCIA_PROVValue(const aValue: String); + function GetDESCRIPCIONValue: String; + procedure SetDESCRIPCIONValue(const aValue: String); + function GetCOMISIONABLEValue: Integer; + procedure SetCOMISIONABLEValue(const aValue: Integer); + function GetINVENTARIABLEValue: Integer; + procedure SetINVENTARIABLEValue(const aValue: Integer); + function GetIMPORTE_UNIDAD_COSTEValue: Currency; + procedure SetIMPORTE_UNIDAD_COSTEValue(const aValue: Currency); + function GetDESCUENTO_PROVEEDOR_COSTEValue: Float; + procedure SetDESCUENTO_PROVEEDOR_COSTEValue(const aValue: Float); + function GetIMPORTE_NETO_COSTEValue: Currency; + procedure SetIMPORTE_NETO_COSTEValue(const aValue: Currency); + function GetIMPORTE_PORTE_COSTEValue: Currency; + procedure SetIMPORTE_PORTE_COSTEValue(const aValue: Currency); + function GetIMPORTE_UNIDAD_ULTIMA_COMPRAValue: Currency; + procedure SetIMPORTE_UNIDAD_ULTIMA_COMPRAValue(const aValue: Currency); + function GetIMPORTE_NETO_ULTIMA_COMPRAValue: Currency; + procedure SetIMPORTE_NETO_ULTIMA_COMPRAValue(const aValue: Currency); + function GetIMPORTE_PORTE_ULTIMA_COMPRAValue: Currency; + procedure SetIMPORTE_PORTE_ULTIMA_COMPRAValue(const aValue: Currency); + function GetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue: Currency; + procedure SetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue(const aValue: Currency); + function GetIMPORTE_NETO_PROMEDIO_COMPRAValue: Currency; + procedure SetIMPORTE_NETO_PROMEDIO_COMPRAValue(const aValue: Currency); + function GetIMPORTE_PORTE_PROMEDIO_COMPRAValue: Currency; + procedure SetIMPORTE_PORTE_PROMEDIO_COMPRAValue(const aValue: Currency); + function GetCANTIDADValue: Integer; + procedure SetCANTIDADValue(const aValue: Integer); + function GetIMPORTE_UNIDAD_VENTAValue: Currency; + procedure SetIMPORTE_UNIDAD_VENTAValue(const aValue: Currency); + function GetDESCUENTO_CLIENTE_VENTAValue: Float; + procedure SetDESCUENTO_CLIENTE_VENTAValue(const aValue: Float); + function GetIMPORTE_NETO_VENTAValue: Currency; + procedure SetIMPORTE_NETO_VENTAValue(const aValue: Currency); + function GetIMPORTE_PORTE_VENTAValue: Float; + procedure SetIMPORTE_PORTE_VENTAValue(const aValue: Float); + function GetIMPORTE_TOTAL_VENTAValue: Currency; + procedure SetIMPORTE_TOTAL_VENTAValue(const aValue: Currency); + function GetIMPORTE_MARGEN_COSTEValue: Currency; + procedure SetIMPORTE_MARGEN_COSTEValue(const aValue: Currency); + function GetPORCENTAJE_MARGEN_COSTEValue: Float; + procedure SetPORCENTAJE_MARGEN_COSTEValue(const aValue: Float); + function GetIMPORTE_MARGEN_ULT_COMPRAValue: Currency; + procedure SetIMPORTE_MARGEN_ULT_COMPRAValue(const aValue: Currency); + function GetPORCENTAJE_MARGEN_ULT_COMPRAValue: Float; + procedure SetPORCENTAJE_MARGEN_ULT_COMPRAValue(const aValue: Float); + function GetIMPORTE_MARGEN_PROM_COMPRAValue: Currency; + procedure SetIMPORTE_MARGEN_PROM_COMPRAValue(const aValue: Currency); + function GetPORCENTAJE_MARGEN_PROM_COMPRAValue: Float; + procedure SetPORCENTAJE_MARGEN_PROM_COMPRAValue(const aValue: Float); + function GetNIF_CIF_PROVEEDORValue: String; + procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); + function GetNOMBRE_PROVEEDORValue: String; + procedure SetNOMBRE_PROVEEDORValue(const aValue: String); + function GetCALLE_PROVEEDORValue: String; + procedure SetCALLE_PROVEEDORValue(const aValue: String); + function GetPOBLACION_PROVEEDORValue: String; + procedure SetPOBLACION_PROVEEDORValue(const aValue: String); + function GetPROVINCIA_PROVEEDORValue: String; + procedure SetPROVINCIA_PROVEEDORValue(const aValue: String); + function GetNIF_CIF_CLIENTEValue: String; + procedure SetNIF_CIF_CLIENTEValue(const aValue: String); + function GetNOMBRE_CLIENTEValue: String; + procedure SetNOMBRE_CLIENTEValue(const aValue: String); + function GetNOMBRE_COMERCIAL_CLIENTEValue: String; + procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); + function GetCALLE_CLIENTEValue: String; + procedure SetCALLE_CLIENTEValue(const aValue: String); + function GetPOBLACION_CLIENTEValue: String; + procedure SetPOBLACION_CLIENTEValue(const aValue: String); + function GetPROVINCIA_CLIENTEValue: String; + procedure SetPROVINCIA_CLIENTEValue(const aValue: String); + function GetNIF_CIF_AGENTEValue: String; + procedure SetNIF_CIF_AGENTEValue(const aValue: String); + function GetNOMBRE_AGENTEValue: String; + procedure SetNOMBRE_AGENTEValue(const aValue: String); + function GetCALLE_AGENTEValue: String; + procedure SetCALLE_AGENTEValue(const aValue: String); + function GetPOBLACION_AGENTEValue: String; + procedure SetPOBLACION_AGENTEValue(const aValue: String); + function GetPROVINCIA_AGENTEValue: String; + procedure SetPROVINCIA_AGENTEValue(const aValue: String); + function GetCOMISION_AGENTEValue: Float; + procedure SetCOMISION_AGENTEValue(const aValue: Float); + function GetIMPORTE_COMISION_AGENTEValue: Currency; + procedure SetIMPORTE_COMISION_AGENTEValue(const aValue: Currency); + + + { Properties } + property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property REFERENCIA_FACTURA: String read GetREFERENCIA_FACTURAValue write SetREFERENCIA_FACTURAValue; + property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; + property IMPORTE_TOTAL_FACTURA: Currency read GetIMPORTE_TOTAL_FACTURAValue write SetIMPORTE_TOTAL_FACTURAValue; + property ID_COMISION_FACTURA: Integer read GetID_COMISION_FACTURAValue write SetID_COMISION_FACTURAValue; + property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; + property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue; + property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue; + property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue; + property IMPORTE_UNIDAD_COSTE: Currency read GetIMPORTE_UNIDAD_COSTEValue write SetIMPORTE_UNIDAD_COSTEValue; + property DESCUENTO_PROVEEDOR_COSTE: Float read GetDESCUENTO_PROVEEDOR_COSTEValue write SetDESCUENTO_PROVEEDOR_COSTEValue; + property IMPORTE_NETO_COSTE: Currency read GetIMPORTE_NETO_COSTEValue write SetIMPORTE_NETO_COSTEValue; + property IMPORTE_PORTE_COSTE: Currency read GetIMPORTE_PORTE_COSTEValue write SetIMPORTE_PORTE_COSTEValue; + property IMPORTE_UNIDAD_ULTIMA_COMPRA: Currency read GetIMPORTE_UNIDAD_ULTIMA_COMPRAValue write SetIMPORTE_UNIDAD_ULTIMA_COMPRAValue; + property IMPORTE_NETO_ULTIMA_COMPRA: Currency read GetIMPORTE_NETO_ULTIMA_COMPRAValue write SetIMPORTE_NETO_ULTIMA_COMPRAValue; + property IMPORTE_PORTE_ULTIMA_COMPRA: Currency read GetIMPORTE_PORTE_ULTIMA_COMPRAValue write SetIMPORTE_PORTE_ULTIMA_COMPRAValue; + property IMPORTE_UNIDAD_PROMEDIO_COMPRA: Currency read GetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue write SetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue; + property IMPORTE_NETO_PROMEDIO_COMPRA: Currency read GetIMPORTE_NETO_PROMEDIO_COMPRAValue write SetIMPORTE_NETO_PROMEDIO_COMPRAValue; + property IMPORTE_PORTE_PROMEDIO_COMPRA: Currency read GetIMPORTE_PORTE_PROMEDIO_COMPRAValue write SetIMPORTE_PORTE_PROMEDIO_COMPRAValue; + property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; + property IMPORTE_UNIDAD_VENTA: Currency read GetIMPORTE_UNIDAD_VENTAValue write SetIMPORTE_UNIDAD_VENTAValue; + property DESCUENTO_CLIENTE_VENTA: Float read GetDESCUENTO_CLIENTE_VENTAValue write SetDESCUENTO_CLIENTE_VENTAValue; + property IMPORTE_NETO_VENTA: Currency read GetIMPORTE_NETO_VENTAValue write SetIMPORTE_NETO_VENTAValue; + property IMPORTE_PORTE_VENTA: Float read GetIMPORTE_PORTE_VENTAValue write SetIMPORTE_PORTE_VENTAValue; + property IMPORTE_TOTAL_VENTA: Currency read GetIMPORTE_TOTAL_VENTAValue write SetIMPORTE_TOTAL_VENTAValue; + property IMPORTE_MARGEN_COSTE: Currency read GetIMPORTE_MARGEN_COSTEValue write SetIMPORTE_MARGEN_COSTEValue; + property PORCENTAJE_MARGEN_COSTE: Float read GetPORCENTAJE_MARGEN_COSTEValue write SetPORCENTAJE_MARGEN_COSTEValue; + property IMPORTE_MARGEN_ULT_COMPRA: Currency read GetIMPORTE_MARGEN_ULT_COMPRAValue write SetIMPORTE_MARGEN_ULT_COMPRAValue; + property PORCENTAJE_MARGEN_ULT_COMPRA: Float read GetPORCENTAJE_MARGEN_ULT_COMPRAValue write SetPORCENTAJE_MARGEN_ULT_COMPRAValue; + property IMPORTE_MARGEN_PROM_COMPRA: Currency read GetIMPORTE_MARGEN_PROM_COMPRAValue write SetIMPORTE_MARGEN_PROM_COMPRAValue; + property PORCENTAJE_MARGEN_PROM_COMPRA: Float read GetPORCENTAJE_MARGEN_PROM_COMPRAValue write SetPORCENTAJE_MARGEN_PROM_COMPRAValue; + property NIF_CIF_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue; + property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; + property CALLE_PROVEEDOR: String read GetCALLE_PROVEEDORValue write SetCALLE_PROVEEDORValue; + property POBLACION_PROVEEDOR: String read GetPOBLACION_PROVEEDORValue write SetPOBLACION_PROVEEDORValue; + property PROVINCIA_PROVEEDOR: String read GetPROVINCIA_PROVEEDORValue write SetPROVINCIA_PROVEEDORValue; + property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue; + property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; + property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue; + property CALLE_CLIENTE: String read GetCALLE_CLIENTEValue write SetCALLE_CLIENTEValue; + property POBLACION_CLIENTE: String read GetPOBLACION_CLIENTEValue write SetPOBLACION_CLIENTEValue; + property PROVINCIA_CLIENTE: String read GetPROVINCIA_CLIENTEValue write SetPROVINCIA_CLIENTEValue; + property NIF_CIF_AGENTE: String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue; + property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue; + property CALLE_AGENTE: String read GetCALLE_AGENTEValue write SetCALLE_AGENTEValue; + property POBLACION_AGENTE: String read GetPOBLACION_AGENTEValue write SetPOBLACION_AGENTEValue; + property PROVINCIA_AGENTE: String read GetPROVINCIA_AGENTEValue write SetPROVINCIA_AGENTEValue; + property COMISION_AGENTE: Float read GetCOMISION_AGENTEValue write SetCOMISION_AGENTEValue; + property IMPORTE_COMISION_AGENTE: Currency read GetIMPORTE_COMISION_AGENTEValue write SetIMPORTE_COMISION_AGENTEValue; + end; + + { TInfMargenArticuloDataTableRules } + TInfMargenArticuloDataTableRules = class(TDADataTableRules, IInfMargenArticulo) + private + protected + { Property getters and setters } + function GetID_FACTURAValue: Integer; virtual; + procedure SetID_FACTURAValue(const aValue: Integer); virtual; + function GetID_EMPRESAValue: Integer; virtual; + procedure SetID_EMPRESAValue(const aValue: Integer); virtual; + function GetREFERENCIA_FACTURAValue: String; virtual; + procedure SetREFERENCIA_FACTURAValue(const aValue: String); virtual; + function GetFECHA_FACTURAValue: DateTime; virtual; + procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; + function GetIMPORTE_TOTAL_FACTURAValue: Currency; virtual; + procedure SetIMPORTE_TOTAL_FACTURAValue(const aValue: Currency); virtual; + function GetID_COMISION_FACTURAValue: Integer; virtual; + procedure SetID_COMISION_FACTURAValue(const aValue: Integer); virtual; + function GetID_ARTICULOValue: Integer; virtual; + procedure SetID_ARTICULOValue(const aValue: Integer); virtual; + function GetFAMILIAValue: String; virtual; + procedure SetFAMILIAValue(const aValue: String); virtual; + function GetREFERENCIAValue: String; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIA_PROVValue: String; virtual; + procedure SetREFERENCIA_PROVValue(const aValue: String); virtual; + function GetDESCRIPCIONValue: String; virtual; + procedure SetDESCRIPCIONValue(const aValue: String); virtual; + function GetCOMISIONABLEValue: Integer; virtual; + procedure SetCOMISIONABLEValue(const aValue: Integer); virtual; + function GetINVENTARIABLEValue: Integer; virtual; + procedure SetINVENTARIABLEValue(const aValue: Integer); virtual; + function GetIMPORTE_UNIDAD_COSTEValue: Currency; virtual; + procedure SetIMPORTE_UNIDAD_COSTEValue(const aValue: Currency); virtual; + function GetDESCUENTO_PROVEEDOR_COSTEValue: Float; virtual; + procedure SetDESCUENTO_PROVEEDOR_COSTEValue(const aValue: Float); virtual; + function GetIMPORTE_NETO_COSTEValue: Currency; virtual; + procedure SetIMPORTE_NETO_COSTEValue(const aValue: Currency); virtual; + function GetIMPORTE_PORTE_COSTEValue: Currency; virtual; + procedure SetIMPORTE_PORTE_COSTEValue(const aValue: Currency); virtual; + function GetIMPORTE_UNIDAD_ULTIMA_COMPRAValue: Currency; virtual; + procedure SetIMPORTE_UNIDAD_ULTIMA_COMPRAValue(const aValue: Currency); virtual; + function GetIMPORTE_NETO_ULTIMA_COMPRAValue: Currency; virtual; + procedure SetIMPORTE_NETO_ULTIMA_COMPRAValue(const aValue: Currency); virtual; + function GetIMPORTE_PORTE_ULTIMA_COMPRAValue: Currency; virtual; + procedure SetIMPORTE_PORTE_ULTIMA_COMPRAValue(const aValue: Currency); virtual; + function GetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue: Currency; virtual; + procedure SetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue(const aValue: Currency); virtual; + function GetIMPORTE_NETO_PROMEDIO_COMPRAValue: Currency; virtual; + procedure SetIMPORTE_NETO_PROMEDIO_COMPRAValue(const aValue: Currency); virtual; + function GetIMPORTE_PORTE_PROMEDIO_COMPRAValue: Currency; virtual; + procedure SetIMPORTE_PORTE_PROMEDIO_COMPRAValue(const aValue: Currency); virtual; + function GetCANTIDADValue: Integer; virtual; + procedure SetCANTIDADValue(const aValue: Integer); virtual; + function GetIMPORTE_UNIDAD_VENTAValue: Currency; virtual; + procedure SetIMPORTE_UNIDAD_VENTAValue(const aValue: Currency); virtual; + function GetDESCUENTO_CLIENTE_VENTAValue: Float; virtual; + procedure SetDESCUENTO_CLIENTE_VENTAValue(const aValue: Float); virtual; + function GetIMPORTE_NETO_VENTAValue: Currency; virtual; + procedure SetIMPORTE_NETO_VENTAValue(const aValue: Currency); virtual; + function GetIMPORTE_PORTE_VENTAValue: Float; virtual; + procedure SetIMPORTE_PORTE_VENTAValue(const aValue: Float); virtual; + function GetIMPORTE_TOTAL_VENTAValue: Currency; virtual; + procedure SetIMPORTE_TOTAL_VENTAValue(const aValue: Currency); virtual; + function GetIMPORTE_MARGEN_COSTEValue: Currency; virtual; + procedure SetIMPORTE_MARGEN_COSTEValue(const aValue: Currency); virtual; + function GetPORCENTAJE_MARGEN_COSTEValue: Float; virtual; + procedure SetPORCENTAJE_MARGEN_COSTEValue(const aValue: Float); virtual; + function GetIMPORTE_MARGEN_ULT_COMPRAValue: Currency; virtual; + procedure SetIMPORTE_MARGEN_ULT_COMPRAValue(const aValue: Currency); virtual; + function GetPORCENTAJE_MARGEN_ULT_COMPRAValue: Float; virtual; + procedure SetPORCENTAJE_MARGEN_ULT_COMPRAValue(const aValue: Float); virtual; + function GetIMPORTE_MARGEN_PROM_COMPRAValue: Currency; virtual; + procedure SetIMPORTE_MARGEN_PROM_COMPRAValue(const aValue: Currency); virtual; + function GetPORCENTAJE_MARGEN_PROM_COMPRAValue: Float; virtual; + procedure SetPORCENTAJE_MARGEN_PROM_COMPRAValue(const aValue: Float); virtual; + function GetNIF_CIF_PROVEEDORValue: String; virtual; + procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual; + function GetNOMBRE_PROVEEDORValue: String; virtual; + procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual; + function GetCALLE_PROVEEDORValue: String; virtual; + procedure SetCALLE_PROVEEDORValue(const aValue: String); virtual; + function GetPOBLACION_PROVEEDORValue: String; virtual; + procedure SetPOBLACION_PROVEEDORValue(const aValue: String); virtual; + function GetPROVINCIA_PROVEEDORValue: String; virtual; + procedure SetPROVINCIA_PROVEEDORValue(const aValue: String); virtual; + function GetNIF_CIF_CLIENTEValue: String; virtual; + procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual; + function GetNOMBRE_CLIENTEValue: String; virtual; + procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual; + function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual; + procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual; + function GetCALLE_CLIENTEValue: String; virtual; + procedure SetCALLE_CLIENTEValue(const aValue: String); virtual; + function GetPOBLACION_CLIENTEValue: String; virtual; + procedure SetPOBLACION_CLIENTEValue(const aValue: String); virtual; + function GetPROVINCIA_CLIENTEValue: String; virtual; + procedure SetPROVINCIA_CLIENTEValue(const aValue: String); virtual; + function GetNIF_CIF_AGENTEValue: String; virtual; + procedure SetNIF_CIF_AGENTEValue(const aValue: String); virtual; + function GetNOMBRE_AGENTEValue: String; virtual; + procedure SetNOMBRE_AGENTEValue(const aValue: String); virtual; + function GetCALLE_AGENTEValue: String; virtual; + procedure SetCALLE_AGENTEValue(const aValue: String); virtual; + function GetPOBLACION_AGENTEValue: String; virtual; + procedure SetPOBLACION_AGENTEValue(const aValue: String); virtual; + function GetPROVINCIA_AGENTEValue: String; virtual; + procedure SetPROVINCIA_AGENTEValue(const aValue: String); virtual; + function GetCOMISION_AGENTEValue: Float; virtual; + procedure SetCOMISION_AGENTEValue(const aValue: Float); virtual; + function GetIMPORTE_COMISION_AGENTEValue: Currency; virtual; + procedure SetIMPORTE_COMISION_AGENTEValue(const aValue: Currency); virtual; + + { Properties } + property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property REFERENCIA_FACTURA: String read GetREFERENCIA_FACTURAValue write SetREFERENCIA_FACTURAValue; + property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; + property IMPORTE_TOTAL_FACTURA: Currency read GetIMPORTE_TOTAL_FACTURAValue write SetIMPORTE_TOTAL_FACTURAValue; + property ID_COMISION_FACTURA: Integer read GetID_COMISION_FACTURAValue write SetID_COMISION_FACTURAValue; + property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; + property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue; + property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue; + property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue; + property IMPORTE_UNIDAD_COSTE: Currency read GetIMPORTE_UNIDAD_COSTEValue write SetIMPORTE_UNIDAD_COSTEValue; + property DESCUENTO_PROVEEDOR_COSTE: Float read GetDESCUENTO_PROVEEDOR_COSTEValue write SetDESCUENTO_PROVEEDOR_COSTEValue; + property IMPORTE_NETO_COSTE: Currency read GetIMPORTE_NETO_COSTEValue write SetIMPORTE_NETO_COSTEValue; + property IMPORTE_PORTE_COSTE: Currency read GetIMPORTE_PORTE_COSTEValue write SetIMPORTE_PORTE_COSTEValue; + property IMPORTE_UNIDAD_ULTIMA_COMPRA: Currency read GetIMPORTE_UNIDAD_ULTIMA_COMPRAValue write SetIMPORTE_UNIDAD_ULTIMA_COMPRAValue; + property IMPORTE_NETO_ULTIMA_COMPRA: Currency read GetIMPORTE_NETO_ULTIMA_COMPRAValue write SetIMPORTE_NETO_ULTIMA_COMPRAValue; + property IMPORTE_PORTE_ULTIMA_COMPRA: Currency read GetIMPORTE_PORTE_ULTIMA_COMPRAValue write SetIMPORTE_PORTE_ULTIMA_COMPRAValue; + property IMPORTE_UNIDAD_PROMEDIO_COMPRA: Currency read GetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue write SetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue; + property IMPORTE_NETO_PROMEDIO_COMPRA: Currency read GetIMPORTE_NETO_PROMEDIO_COMPRAValue write SetIMPORTE_NETO_PROMEDIO_COMPRAValue; + property IMPORTE_PORTE_PROMEDIO_COMPRA: Currency read GetIMPORTE_PORTE_PROMEDIO_COMPRAValue write SetIMPORTE_PORTE_PROMEDIO_COMPRAValue; + property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; + property IMPORTE_UNIDAD_VENTA: Currency read GetIMPORTE_UNIDAD_VENTAValue write SetIMPORTE_UNIDAD_VENTAValue; + property DESCUENTO_CLIENTE_VENTA: Float read GetDESCUENTO_CLIENTE_VENTAValue write SetDESCUENTO_CLIENTE_VENTAValue; + property IMPORTE_NETO_VENTA: Currency read GetIMPORTE_NETO_VENTAValue write SetIMPORTE_NETO_VENTAValue; + property IMPORTE_PORTE_VENTA: Float read GetIMPORTE_PORTE_VENTAValue write SetIMPORTE_PORTE_VENTAValue; + property IMPORTE_TOTAL_VENTA: Currency read GetIMPORTE_TOTAL_VENTAValue write SetIMPORTE_TOTAL_VENTAValue; + property IMPORTE_MARGEN_COSTE: Currency read GetIMPORTE_MARGEN_COSTEValue write SetIMPORTE_MARGEN_COSTEValue; + property PORCENTAJE_MARGEN_COSTE: Float read GetPORCENTAJE_MARGEN_COSTEValue write SetPORCENTAJE_MARGEN_COSTEValue; + property IMPORTE_MARGEN_ULT_COMPRA: Currency read GetIMPORTE_MARGEN_ULT_COMPRAValue write SetIMPORTE_MARGEN_ULT_COMPRAValue; + property PORCENTAJE_MARGEN_ULT_COMPRA: Float read GetPORCENTAJE_MARGEN_ULT_COMPRAValue write SetPORCENTAJE_MARGEN_ULT_COMPRAValue; + property IMPORTE_MARGEN_PROM_COMPRA: Currency read GetIMPORTE_MARGEN_PROM_COMPRAValue write SetIMPORTE_MARGEN_PROM_COMPRAValue; + property PORCENTAJE_MARGEN_PROM_COMPRA: Float read GetPORCENTAJE_MARGEN_PROM_COMPRAValue write SetPORCENTAJE_MARGEN_PROM_COMPRAValue; + property NIF_CIF_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue; + property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; + property CALLE_PROVEEDOR: String read GetCALLE_PROVEEDORValue write SetCALLE_PROVEEDORValue; + property POBLACION_PROVEEDOR: String read GetPOBLACION_PROVEEDORValue write SetPOBLACION_PROVEEDORValue; + property PROVINCIA_PROVEEDOR: String read GetPROVINCIA_PROVEEDORValue write SetPROVINCIA_PROVEEDORValue; + property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue; + property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; + property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue; + property CALLE_CLIENTE: String read GetCALLE_CLIENTEValue write SetCALLE_CLIENTEValue; + property POBLACION_CLIENTE: String read GetPOBLACION_CLIENTEValue write SetPOBLACION_CLIENTEValue; + property PROVINCIA_CLIENTE: String read GetPROVINCIA_CLIENTEValue write SetPROVINCIA_CLIENTEValue; + property NIF_CIF_AGENTE: String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue; + property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue; + property CALLE_AGENTE: String read GetCALLE_AGENTEValue write SetCALLE_AGENTEValue; + property POBLACION_AGENTE: String read GetPOBLACION_AGENTEValue write SetPOBLACION_AGENTEValue; + property PROVINCIA_AGENTE: String read GetPROVINCIA_AGENTEValue write SetPROVINCIA_AGENTEValue; + property COMISION_AGENTE: Float read GetCOMISION_AGENTEValue write SetCOMISION_AGENTEValue; + property IMPORTE_COMISION_AGENTE: Currency read GetIMPORTE_COMISION_AGENTEValue write SetIMPORTE_COMISION_AGENTEValue; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + +implementation + +uses Variants; + +{ TInfMargenArticuloDataTableRules } +constructor TInfMargenArticuloDataTableRules.Create(aDataTable: TDADataTable); +begin + inherited; +end; + +destructor TInfMargenArticuloDataTableRules.Destroy; +begin + inherited; +end; + +function TInfMargenArticuloDataTableRules.GetID_FACTURAValue: Integer; +begin + result := DataTable.Fields[idx_InfMargenArticuloID_FACTURA].AsInteger; +end; + +procedure TInfMargenArticuloDataTableRules.SetID_FACTURAValue(const aValue: Integer); +begin + DataTable.Fields[idx_InfMargenArticuloID_FACTURA].AsInteger := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetID_EMPRESAValue: Integer; +begin + result := DataTable.Fields[idx_InfMargenArticuloID_EMPRESA].AsInteger; +end; + +procedure TInfMargenArticuloDataTableRules.SetID_EMPRESAValue(const aValue: Integer); +begin + DataTable.Fields[idx_InfMargenArticuloID_EMPRESA].AsInteger := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetREFERENCIA_FACTURAValue: String; +begin + result := DataTable.Fields[idx_InfMargenArticuloREFERENCIA_FACTURA].AsString; +end; + +procedure TInfMargenArticuloDataTableRules.SetREFERENCIA_FACTURAValue(const aValue: String); +begin + DataTable.Fields[idx_InfMargenArticuloREFERENCIA_FACTURA].AsString := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetFECHA_FACTURAValue: DateTime; +begin + result := DataTable.Fields[idx_InfMargenArticuloFECHA_FACTURA].AsDateTime; +end; + +procedure TInfMargenArticuloDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime); +begin + DataTable.Fields[idx_InfMargenArticuloFECHA_FACTURA].AsDateTime := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetIMPORTE_TOTAL_FACTURAValue: Currency; +begin + result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_TOTAL_FACTURA].AsCurrency; +end; + +procedure TInfMargenArticuloDataTableRules.SetIMPORTE_TOTAL_FACTURAValue(const aValue: Currency); +begin + DataTable.Fields[idx_InfMargenArticuloIMPORTE_TOTAL_FACTURA].AsCurrency := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetID_COMISION_FACTURAValue: Integer; +begin + result := DataTable.Fields[idx_InfMargenArticuloID_COMISION_FACTURA].AsInteger; +end; + +procedure TInfMargenArticuloDataTableRules.SetID_COMISION_FACTURAValue(const aValue: Integer); +begin + DataTable.Fields[idx_InfMargenArticuloID_COMISION_FACTURA].AsInteger := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetID_ARTICULOValue: Integer; +begin + result := DataTable.Fields[idx_InfMargenArticuloID_ARTICULO].AsInteger; +end; + +procedure TInfMargenArticuloDataTableRules.SetID_ARTICULOValue(const aValue: Integer); +begin + DataTable.Fields[idx_InfMargenArticuloID_ARTICULO].AsInteger := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetFAMILIAValue: String; +begin + result := DataTable.Fields[idx_InfMargenArticuloFAMILIA].AsString; +end; + +procedure TInfMargenArticuloDataTableRules.SetFAMILIAValue(const aValue: String); +begin + DataTable.Fields[idx_InfMargenArticuloFAMILIA].AsString := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetREFERENCIAValue: String; +begin + result := DataTable.Fields[idx_InfMargenArticuloREFERENCIA].AsString; +end; + +procedure TInfMargenArticuloDataTableRules.SetREFERENCIAValue(const aValue: String); +begin + DataTable.Fields[idx_InfMargenArticuloREFERENCIA].AsString := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetREFERENCIA_PROVValue: String; +begin + result := DataTable.Fields[idx_InfMargenArticuloREFERENCIA_PROV].AsString; +end; + +procedure TInfMargenArticuloDataTableRules.SetREFERENCIA_PROVValue(const aValue: String); +begin + DataTable.Fields[idx_InfMargenArticuloREFERENCIA_PROV].AsString := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetDESCRIPCIONValue: String; +begin + result := DataTable.Fields[idx_InfMargenArticuloDESCRIPCION].AsString; +end; + +procedure TInfMargenArticuloDataTableRules.SetDESCRIPCIONValue(const aValue: String); +begin + DataTable.Fields[idx_InfMargenArticuloDESCRIPCION].AsString := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetCOMISIONABLEValue: Integer; +begin + result := DataTable.Fields[idx_InfMargenArticuloCOMISIONABLE].AsInteger; +end; + +procedure TInfMargenArticuloDataTableRules.SetCOMISIONABLEValue(const aValue: Integer); +begin + DataTable.Fields[idx_InfMargenArticuloCOMISIONABLE].AsInteger := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetINVENTARIABLEValue: Integer; +begin + result := DataTable.Fields[idx_InfMargenArticuloINVENTARIABLE].AsInteger; +end; + +procedure TInfMargenArticuloDataTableRules.SetINVENTARIABLEValue(const aValue: Integer); +begin + DataTable.Fields[idx_InfMargenArticuloINVENTARIABLE].AsInteger := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetIMPORTE_UNIDAD_COSTEValue: Currency; +begin + result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_UNIDAD_COSTE].AsCurrency; +end; + +procedure TInfMargenArticuloDataTableRules.SetIMPORTE_UNIDAD_COSTEValue(const aValue: Currency); +begin + DataTable.Fields[idx_InfMargenArticuloIMPORTE_UNIDAD_COSTE].AsCurrency := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetDESCUENTO_PROVEEDOR_COSTEValue: Float; +begin + result := DataTable.Fields[idx_InfMargenArticuloDESCUENTO_PROVEEDOR_COSTE].AsFloat; +end; + +procedure TInfMargenArticuloDataTableRules.SetDESCUENTO_PROVEEDOR_COSTEValue(const aValue: Float); +begin + DataTable.Fields[idx_InfMargenArticuloDESCUENTO_PROVEEDOR_COSTE].AsFloat := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetIMPORTE_NETO_COSTEValue: Currency; +begin + result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_NETO_COSTE].AsCurrency; +end; + +procedure TInfMargenArticuloDataTableRules.SetIMPORTE_NETO_COSTEValue(const aValue: Currency); +begin + DataTable.Fields[idx_InfMargenArticuloIMPORTE_NETO_COSTE].AsCurrency := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetIMPORTE_PORTE_COSTEValue: Currency; +begin + result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_PORTE_COSTE].AsCurrency; +end; + +procedure TInfMargenArticuloDataTableRules.SetIMPORTE_PORTE_COSTEValue(const aValue: Currency); +begin + DataTable.Fields[idx_InfMargenArticuloIMPORTE_PORTE_COSTE].AsCurrency := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetIMPORTE_UNIDAD_ULTIMA_COMPRAValue: Currency; +begin + result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_UNIDAD_ULTIMA_COMPRA].AsCurrency; +end; + +procedure TInfMargenArticuloDataTableRules.SetIMPORTE_UNIDAD_ULTIMA_COMPRAValue(const aValue: Currency); +begin + DataTable.Fields[idx_InfMargenArticuloIMPORTE_UNIDAD_ULTIMA_COMPRA].AsCurrency := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetIMPORTE_NETO_ULTIMA_COMPRAValue: Currency; +begin + result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_NETO_ULTIMA_COMPRA].AsCurrency; +end; + +procedure TInfMargenArticuloDataTableRules.SetIMPORTE_NETO_ULTIMA_COMPRAValue(const aValue: Currency); +begin + DataTable.Fields[idx_InfMargenArticuloIMPORTE_NETO_ULTIMA_COMPRA].AsCurrency := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetIMPORTE_PORTE_ULTIMA_COMPRAValue: Currency; +begin + result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_PORTE_ULTIMA_COMPRA].AsCurrency; +end; + +procedure TInfMargenArticuloDataTableRules.SetIMPORTE_PORTE_ULTIMA_COMPRAValue(const aValue: Currency); +begin + DataTable.Fields[idx_InfMargenArticuloIMPORTE_PORTE_ULTIMA_COMPRA].AsCurrency := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue: Currency; +begin + result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_UNIDAD_PROMEDIO_COMPRA].AsCurrency; +end; + +procedure TInfMargenArticuloDataTableRules.SetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue(const aValue: Currency); +begin + DataTable.Fields[idx_InfMargenArticuloIMPORTE_UNIDAD_PROMEDIO_COMPRA].AsCurrency := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetIMPORTE_NETO_PROMEDIO_COMPRAValue: Currency; +begin + result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_NETO_PROMEDIO_COMPRA].AsCurrency; +end; + +procedure TInfMargenArticuloDataTableRules.SetIMPORTE_NETO_PROMEDIO_COMPRAValue(const aValue: Currency); +begin + DataTable.Fields[idx_InfMargenArticuloIMPORTE_NETO_PROMEDIO_COMPRA].AsCurrency := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetIMPORTE_PORTE_PROMEDIO_COMPRAValue: Currency; +begin + result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_PORTE_PROMEDIO_COMPRA].AsCurrency; +end; + +procedure TInfMargenArticuloDataTableRules.SetIMPORTE_PORTE_PROMEDIO_COMPRAValue(const aValue: Currency); +begin + DataTable.Fields[idx_InfMargenArticuloIMPORTE_PORTE_PROMEDIO_COMPRA].AsCurrency := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetCANTIDADValue: Integer; +begin + result := DataTable.Fields[idx_InfMargenArticuloCANTIDAD].AsInteger; +end; + +procedure TInfMargenArticuloDataTableRules.SetCANTIDADValue(const aValue: Integer); +begin + DataTable.Fields[idx_InfMargenArticuloCANTIDAD].AsInteger := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetIMPORTE_UNIDAD_VENTAValue: Currency; +begin + result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_UNIDAD_VENTA].AsCurrency; +end; + +procedure TInfMargenArticuloDataTableRules.SetIMPORTE_UNIDAD_VENTAValue(const aValue: Currency); +begin + DataTable.Fields[idx_InfMargenArticuloIMPORTE_UNIDAD_VENTA].AsCurrency := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetDESCUENTO_CLIENTE_VENTAValue: Float; +begin + result := DataTable.Fields[idx_InfMargenArticuloDESCUENTO_CLIENTE_VENTA].AsFloat; +end; + +procedure TInfMargenArticuloDataTableRules.SetDESCUENTO_CLIENTE_VENTAValue(const aValue: Float); +begin + DataTable.Fields[idx_InfMargenArticuloDESCUENTO_CLIENTE_VENTA].AsFloat := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetIMPORTE_NETO_VENTAValue: Currency; +begin + result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_NETO_VENTA].AsCurrency; +end; + +procedure TInfMargenArticuloDataTableRules.SetIMPORTE_NETO_VENTAValue(const aValue: Currency); +begin + DataTable.Fields[idx_InfMargenArticuloIMPORTE_NETO_VENTA].AsCurrency := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetIMPORTE_PORTE_VENTAValue: Float; +begin + result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_PORTE_VENTA].AsFloat; +end; + +procedure TInfMargenArticuloDataTableRules.SetIMPORTE_PORTE_VENTAValue(const aValue: Float); +begin + DataTable.Fields[idx_InfMargenArticuloIMPORTE_PORTE_VENTA].AsFloat := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetIMPORTE_TOTAL_VENTAValue: Currency; +begin + result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_TOTAL_VENTA].AsCurrency; +end; + +procedure TInfMargenArticuloDataTableRules.SetIMPORTE_TOTAL_VENTAValue(const aValue: Currency); +begin + DataTable.Fields[idx_InfMargenArticuloIMPORTE_TOTAL_VENTA].AsCurrency := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetIMPORTE_MARGEN_COSTEValue: Currency; +begin + result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_MARGEN_COSTE].AsCurrency; +end; + +procedure TInfMargenArticuloDataTableRules.SetIMPORTE_MARGEN_COSTEValue(const aValue: Currency); +begin + DataTable.Fields[idx_InfMargenArticuloIMPORTE_MARGEN_COSTE].AsCurrency := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetPORCENTAJE_MARGEN_COSTEValue: Float; +begin + result := DataTable.Fields[idx_InfMargenArticuloPORCENTAJE_MARGEN_COSTE].AsFloat; +end; + +procedure TInfMargenArticuloDataTableRules.SetPORCENTAJE_MARGEN_COSTEValue(const aValue: Float); +begin + DataTable.Fields[idx_InfMargenArticuloPORCENTAJE_MARGEN_COSTE].AsFloat := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetIMPORTE_MARGEN_ULT_COMPRAValue: Currency; +begin + result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_MARGEN_ULT_COMPRA].AsCurrency; +end; + +procedure TInfMargenArticuloDataTableRules.SetIMPORTE_MARGEN_ULT_COMPRAValue(const aValue: Currency); +begin + DataTable.Fields[idx_InfMargenArticuloIMPORTE_MARGEN_ULT_COMPRA].AsCurrency := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetPORCENTAJE_MARGEN_ULT_COMPRAValue: Float; +begin + result := DataTable.Fields[idx_InfMargenArticuloPORCENTAJE_MARGEN_ULT_COMPRA].AsFloat; +end; + +procedure TInfMargenArticuloDataTableRules.SetPORCENTAJE_MARGEN_ULT_COMPRAValue(const aValue: Float); +begin + DataTable.Fields[idx_InfMargenArticuloPORCENTAJE_MARGEN_ULT_COMPRA].AsFloat := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetIMPORTE_MARGEN_PROM_COMPRAValue: Currency; +begin + result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_MARGEN_PROM_COMPRA].AsCurrency; +end; + +procedure TInfMargenArticuloDataTableRules.SetIMPORTE_MARGEN_PROM_COMPRAValue(const aValue: Currency); +begin + DataTable.Fields[idx_InfMargenArticuloIMPORTE_MARGEN_PROM_COMPRA].AsCurrency := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetPORCENTAJE_MARGEN_PROM_COMPRAValue: Float; +begin + result := DataTable.Fields[idx_InfMargenArticuloPORCENTAJE_MARGEN_PROM_COMPRA].AsFloat; +end; + +procedure TInfMargenArticuloDataTableRules.SetPORCENTAJE_MARGEN_PROM_COMPRAValue(const aValue: Float); +begin + DataTable.Fields[idx_InfMargenArticuloPORCENTAJE_MARGEN_PROM_COMPRA].AsFloat := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetNIF_CIF_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_InfMargenArticuloNIF_CIF_PROVEEDOR].AsString; +end; + +procedure TInfMargenArticuloDataTableRules.SetNIF_CIF_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_InfMargenArticuloNIF_CIF_PROVEEDOR].AsString := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetNOMBRE_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_InfMargenArticuloNOMBRE_PROVEEDOR].AsString; +end; + +procedure TInfMargenArticuloDataTableRules.SetNOMBRE_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_InfMargenArticuloNOMBRE_PROVEEDOR].AsString := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetCALLE_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_InfMargenArticuloCALLE_PROVEEDOR].AsString; +end; + +procedure TInfMargenArticuloDataTableRules.SetCALLE_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_InfMargenArticuloCALLE_PROVEEDOR].AsString := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetPOBLACION_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_InfMargenArticuloPOBLACION_PROVEEDOR].AsString; +end; + +procedure TInfMargenArticuloDataTableRules.SetPOBLACION_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_InfMargenArticuloPOBLACION_PROVEEDOR].AsString := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetPROVINCIA_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_InfMargenArticuloPROVINCIA_PROVEEDOR].AsString; +end; + +procedure TInfMargenArticuloDataTableRules.SetPROVINCIA_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_InfMargenArticuloPROVINCIA_PROVEEDOR].AsString := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetNIF_CIF_CLIENTEValue: String; +begin + result := DataTable.Fields[idx_InfMargenArticuloNIF_CIF_CLIENTE].AsString; +end; + +procedure TInfMargenArticuloDataTableRules.SetNIF_CIF_CLIENTEValue(const aValue: String); +begin + DataTable.Fields[idx_InfMargenArticuloNIF_CIF_CLIENTE].AsString := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetNOMBRE_CLIENTEValue: String; +begin + result := DataTable.Fields[idx_InfMargenArticuloNOMBRE_CLIENTE].AsString; +end; + +procedure TInfMargenArticuloDataTableRules.SetNOMBRE_CLIENTEValue(const aValue: String); +begin + DataTable.Fields[idx_InfMargenArticuloNOMBRE_CLIENTE].AsString := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String; +begin + result := DataTable.Fields[idx_InfMargenArticuloNOMBRE_COMERCIAL_CLIENTE].AsString; +end; + +procedure TInfMargenArticuloDataTableRules.SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); +begin + DataTable.Fields[idx_InfMargenArticuloNOMBRE_COMERCIAL_CLIENTE].AsString := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetCALLE_CLIENTEValue: String; +begin + result := DataTable.Fields[idx_InfMargenArticuloCALLE_CLIENTE].AsString; +end; + +procedure TInfMargenArticuloDataTableRules.SetCALLE_CLIENTEValue(const aValue: String); +begin + DataTable.Fields[idx_InfMargenArticuloCALLE_CLIENTE].AsString := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetPOBLACION_CLIENTEValue: String; +begin + result := DataTable.Fields[idx_InfMargenArticuloPOBLACION_CLIENTE].AsString; +end; + +procedure TInfMargenArticuloDataTableRules.SetPOBLACION_CLIENTEValue(const aValue: String); +begin + DataTable.Fields[idx_InfMargenArticuloPOBLACION_CLIENTE].AsString := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetPROVINCIA_CLIENTEValue: String; +begin + result := DataTable.Fields[idx_InfMargenArticuloPROVINCIA_CLIENTE].AsString; +end; + +procedure TInfMargenArticuloDataTableRules.SetPROVINCIA_CLIENTEValue(const aValue: String); +begin + DataTable.Fields[idx_InfMargenArticuloPROVINCIA_CLIENTE].AsString := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetNIF_CIF_AGENTEValue: String; +begin + result := DataTable.Fields[idx_InfMargenArticuloNIF_CIF_AGENTE].AsString; +end; + +procedure TInfMargenArticuloDataTableRules.SetNIF_CIF_AGENTEValue(const aValue: String); +begin + DataTable.Fields[idx_InfMargenArticuloNIF_CIF_AGENTE].AsString := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetNOMBRE_AGENTEValue: String; +begin + result := DataTable.Fields[idx_InfMargenArticuloNOMBRE_AGENTE].AsString; +end; + +procedure TInfMargenArticuloDataTableRules.SetNOMBRE_AGENTEValue(const aValue: String); +begin + DataTable.Fields[idx_InfMargenArticuloNOMBRE_AGENTE].AsString := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetCALLE_AGENTEValue: String; +begin + result := DataTable.Fields[idx_InfMargenArticuloCALLE_AGENTE].AsString; +end; + +procedure TInfMargenArticuloDataTableRules.SetCALLE_AGENTEValue(const aValue: String); +begin + DataTable.Fields[idx_InfMargenArticuloCALLE_AGENTE].AsString := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetPOBLACION_AGENTEValue: String; +begin + result := DataTable.Fields[idx_InfMargenArticuloPOBLACION_AGENTE].AsString; +end; + +procedure TInfMargenArticuloDataTableRules.SetPOBLACION_AGENTEValue(const aValue: String); +begin + DataTable.Fields[idx_InfMargenArticuloPOBLACION_AGENTE].AsString := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetPROVINCIA_AGENTEValue: String; +begin + result := DataTable.Fields[idx_InfMargenArticuloPROVINCIA_AGENTE].AsString; +end; + +procedure TInfMargenArticuloDataTableRules.SetPROVINCIA_AGENTEValue(const aValue: String); +begin + DataTable.Fields[idx_InfMargenArticuloPROVINCIA_AGENTE].AsString := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetCOMISION_AGENTEValue: Float; +begin + result := DataTable.Fields[idx_InfMargenArticuloCOMISION_AGENTE].AsFloat; +end; + +procedure TInfMargenArticuloDataTableRules.SetCOMISION_AGENTEValue(const aValue: Float); +begin + DataTable.Fields[idx_InfMargenArticuloCOMISION_AGENTE].AsFloat := aValue; +end; + +function TInfMargenArticuloDataTableRules.GetIMPORTE_COMISION_AGENTEValue: Currency; +begin + result := DataTable.Fields[idx_InfMargenArticuloIMPORTE_COMISION_AGENTE].AsCurrency; +end; + +procedure TInfMargenArticuloDataTableRules.SetIMPORTE_COMISION_AGENTEValue(const aValue: Currency); +begin + DataTable.Fields[idx_InfMargenArticuloIMPORTE_COMISION_AGENTE].AsCurrency := aValue; +end; + + +initialization + RegisterDataTableRules(RID_InfMargenArticulo, TInfMargenArticuloDataTableRules); + +end. diff --git a/Source/Modulos/Informe margen por articulo/Model/schInfMargenArticuloServer_Intf.pas b/Source/Modulos/Informe margen por articulo/Model/schInfMargenArticuloServer_Intf.pas new file mode 100644 index 00000000..ee0816f3 --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Model/schInfMargenArticuloServer_Intf.pas @@ -0,0 +1,1223 @@ +unit schInfMargenArticuloServer_Intf; + +interface + +uses + Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schInfMargenArticuloClient_Intf; + +const + { Delta rules ids + Feel free to change them to something more human readable + but make sure they are unique in the context of your application } + RID_InfMargenArticuloDelta = '{0078F486-303D-4681-9081-2524C6EF6B07}'; + +type + { IInfMargenArticuloDelta } + IInfMargenArticuloDelta = interface(IInfMargenArticulo) + ['{0078F486-303D-4681-9081-2524C6EF6B07}'] + { Property getters and setters } + function GetOldID_FACTURAValue : Integer; + function GetOldID_EMPRESAValue : Integer; + function GetOldREFERENCIA_FACTURAValue : String; + function GetOldFECHA_FACTURAValue : DateTime; + function GetOldIMPORTE_TOTAL_FACTURAValue : Currency; + function GetOldID_COMISION_FACTURAValue : Integer; + function GetOldID_ARTICULOValue : Integer; + function GetOldFAMILIAValue : String; + function GetOldREFERENCIAValue : String; + function GetOldREFERENCIA_PROVValue : String; + function GetOldDESCRIPCIONValue : String; + function GetOldCOMISIONABLEValue : Integer; + function GetOldINVENTARIABLEValue : Integer; + function GetOldIMPORTE_UNIDAD_COSTEValue : Currency; + function GetOldDESCUENTO_PROVEEDOR_COSTEValue : Float; + function GetOldIMPORTE_NETO_COSTEValue : Currency; + function GetOldIMPORTE_PORTE_COSTEValue : Currency; + function GetOldIMPORTE_UNIDAD_ULTIMA_COMPRAValue : Currency; + function GetOldIMPORTE_NETO_ULTIMA_COMPRAValue : Currency; + function GetOldIMPORTE_PORTE_ULTIMA_COMPRAValue : Currency; + function GetOldIMPORTE_UNIDAD_PROMEDIO_COMPRAValue : Currency; + function GetOldIMPORTE_NETO_PROMEDIO_COMPRAValue : Currency; + function GetOldIMPORTE_PORTE_PROMEDIO_COMPRAValue : Currency; + function GetOldCANTIDADValue : Integer; + function GetOldIMPORTE_UNIDAD_VENTAValue : Currency; + function GetOldDESCUENTO_CLIENTE_VENTAValue : Float; + function GetOldIMPORTE_NETO_VENTAValue : Currency; + function GetOldIMPORTE_PORTE_VENTAValue : Float; + function GetOldIMPORTE_TOTAL_VENTAValue : Currency; + function GetOldIMPORTE_MARGEN_COSTEValue : Currency; + function GetOldPORCENTAJE_MARGEN_COSTEValue : Float; + function GetOldIMPORTE_MARGEN_ULT_COMPRAValue : Currency; + function GetOldPORCENTAJE_MARGEN_ULT_COMPRAValue : Float; + function GetOldIMPORTE_MARGEN_PROM_COMPRAValue : Currency; + function GetOldPORCENTAJE_MARGEN_PROM_COMPRAValue : Float; + function GetOldNIF_CIF_PROVEEDORValue : String; + function GetOldNOMBRE_PROVEEDORValue : String; + function GetOldCALLE_PROVEEDORValue : String; + function GetOldPOBLACION_PROVEEDORValue : String; + function GetOldPROVINCIA_PROVEEDORValue : String; + function GetOldNIF_CIF_CLIENTEValue : String; + function GetOldNOMBRE_CLIENTEValue : String; + function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String; + function GetOldCALLE_CLIENTEValue : String; + function GetOldPOBLACION_CLIENTEValue : String; + function GetOldPROVINCIA_CLIENTEValue : String; + function GetOldNIF_CIF_AGENTEValue : String; + function GetOldNOMBRE_AGENTEValue : String; + function GetOldCALLE_AGENTEValue : String; + function GetOldPOBLACION_AGENTEValue : String; + function GetOldPROVINCIA_AGENTEValue : String; + function GetOldCOMISION_AGENTEValue : Float; + function GetOldIMPORTE_COMISION_AGENTEValue : Currency; + + { Properties } + property OldID_FACTURA : Integer read GetOldID_FACTURAValue; + property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; + property OldREFERENCIA_FACTURA : String read GetOldREFERENCIA_FACTURAValue; + property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; + property OldIMPORTE_TOTAL_FACTURA : Currency read GetOldIMPORTE_TOTAL_FACTURAValue; + property OldID_COMISION_FACTURA : Integer read GetOldID_COMISION_FACTURAValue; + property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; + property OldFAMILIA : String read GetOldFAMILIAValue; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue; + property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; + property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue; + property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue; + property OldIMPORTE_UNIDAD_COSTE : Currency read GetOldIMPORTE_UNIDAD_COSTEValue; + property OldDESCUENTO_PROVEEDOR_COSTE : Float read GetOldDESCUENTO_PROVEEDOR_COSTEValue; + property OldIMPORTE_NETO_COSTE : Currency read GetOldIMPORTE_NETO_COSTEValue; + property OldIMPORTE_PORTE_COSTE : Currency read GetOldIMPORTE_PORTE_COSTEValue; + property OldIMPORTE_UNIDAD_ULTIMA_COMPRA : Currency read GetOldIMPORTE_UNIDAD_ULTIMA_COMPRAValue; + property OldIMPORTE_NETO_ULTIMA_COMPRA : Currency read GetOldIMPORTE_NETO_ULTIMA_COMPRAValue; + property OldIMPORTE_PORTE_ULTIMA_COMPRA : Currency read GetOldIMPORTE_PORTE_ULTIMA_COMPRAValue; + property OldIMPORTE_UNIDAD_PROMEDIO_COMPRA : Currency read GetOldIMPORTE_UNIDAD_PROMEDIO_COMPRAValue; + property OldIMPORTE_NETO_PROMEDIO_COMPRA : Currency read GetOldIMPORTE_NETO_PROMEDIO_COMPRAValue; + property OldIMPORTE_PORTE_PROMEDIO_COMPRA : Currency read GetOldIMPORTE_PORTE_PROMEDIO_COMPRAValue; + property OldCANTIDAD : Integer read GetOldCANTIDADValue; + property OldIMPORTE_UNIDAD_VENTA : Currency read GetOldIMPORTE_UNIDAD_VENTAValue; + property OldDESCUENTO_CLIENTE_VENTA : Float read GetOldDESCUENTO_CLIENTE_VENTAValue; + property OldIMPORTE_NETO_VENTA : Currency read GetOldIMPORTE_NETO_VENTAValue; + property OldIMPORTE_PORTE_VENTA : Float read GetOldIMPORTE_PORTE_VENTAValue; + property OldIMPORTE_TOTAL_VENTA : Currency read GetOldIMPORTE_TOTAL_VENTAValue; + property OldIMPORTE_MARGEN_COSTE : Currency read GetOldIMPORTE_MARGEN_COSTEValue; + property OldPORCENTAJE_MARGEN_COSTE : Float read GetOldPORCENTAJE_MARGEN_COSTEValue; + property OldIMPORTE_MARGEN_ULT_COMPRA : Currency read GetOldIMPORTE_MARGEN_ULT_COMPRAValue; + property OldPORCENTAJE_MARGEN_ULT_COMPRA : Float read GetOldPORCENTAJE_MARGEN_ULT_COMPRAValue; + property OldIMPORTE_MARGEN_PROM_COMPRA : Currency read GetOldIMPORTE_MARGEN_PROM_COMPRAValue; + property OldPORCENTAJE_MARGEN_PROM_COMPRA : Float read GetOldPORCENTAJE_MARGEN_PROM_COMPRAValue; + property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue; + property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; + property OldCALLE_PROVEEDOR : String read GetOldCALLE_PROVEEDORValue; + property OldPOBLACION_PROVEEDOR : String read GetOldPOBLACION_PROVEEDORValue; + property OldPROVINCIA_PROVEEDOR : String read GetOldPROVINCIA_PROVEEDORValue; + property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue; + property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue; + property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue; + property OldCALLE_CLIENTE : String read GetOldCALLE_CLIENTEValue; + property OldPOBLACION_CLIENTE : String read GetOldPOBLACION_CLIENTEValue; + property OldPROVINCIA_CLIENTE : String read GetOldPROVINCIA_CLIENTEValue; + property OldNIF_CIF_AGENTE : String read GetOldNIF_CIF_AGENTEValue; + property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue; + property OldCALLE_AGENTE : String read GetOldCALLE_AGENTEValue; + property OldPOBLACION_AGENTE : String read GetOldPOBLACION_AGENTEValue; + property OldPROVINCIA_AGENTE : String read GetOldPROVINCIA_AGENTEValue; + property OldCOMISION_AGENTE : Float read GetOldCOMISION_AGENTEValue; + property OldIMPORTE_COMISION_AGENTE : Currency read GetOldIMPORTE_COMISION_AGENTEValue; + end; + + { TInfMargenArticuloBusinessProcessorRules } + TInfMargenArticuloBusinessProcessorRules = class(TDABusinessProcessorRules, IInfMargenArticulo, IInfMargenArticuloDelta) + private + protected + { Property getters and setters } + function GetID_FACTURAValue: Integer; virtual; + function GetOldID_FACTURAValue: Integer; virtual; + procedure SetID_FACTURAValue(const aValue: Integer); virtual; + function GetID_EMPRESAValue: Integer; virtual; + function GetOldID_EMPRESAValue: Integer; virtual; + procedure SetID_EMPRESAValue(const aValue: Integer); virtual; + function GetREFERENCIA_FACTURAValue: String; virtual; + function GetOldREFERENCIA_FACTURAValue: String; virtual; + procedure SetREFERENCIA_FACTURAValue(const aValue: String); virtual; + function GetFECHA_FACTURAValue: DateTime; virtual; + function GetOldFECHA_FACTURAValue: DateTime; virtual; + procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; + function GetIMPORTE_TOTAL_FACTURAValue: Currency; virtual; + function GetOldIMPORTE_TOTAL_FACTURAValue: Currency; virtual; + procedure SetIMPORTE_TOTAL_FACTURAValue(const aValue: Currency); virtual; + function GetID_COMISION_FACTURAValue: Integer; virtual; + function GetOldID_COMISION_FACTURAValue: Integer; virtual; + procedure SetID_COMISION_FACTURAValue(const aValue: Integer); virtual; + function GetID_ARTICULOValue: Integer; virtual; + function GetOldID_ARTICULOValue: Integer; virtual; + procedure SetID_ARTICULOValue(const aValue: Integer); virtual; + function GetFAMILIAValue: String; virtual; + function GetOldFAMILIAValue: String; virtual; + procedure SetFAMILIAValue(const aValue: String); virtual; + function GetREFERENCIAValue: String; virtual; + function GetOldREFERENCIAValue: String; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIA_PROVValue: String; virtual; + function GetOldREFERENCIA_PROVValue: String; virtual; + procedure SetREFERENCIA_PROVValue(const aValue: String); virtual; + function GetDESCRIPCIONValue: String; virtual; + function GetOldDESCRIPCIONValue: String; virtual; + procedure SetDESCRIPCIONValue(const aValue: String); virtual; + function GetCOMISIONABLEValue: Integer; virtual; + function GetOldCOMISIONABLEValue: Integer; virtual; + procedure SetCOMISIONABLEValue(const aValue: Integer); virtual; + function GetINVENTARIABLEValue: Integer; virtual; + function GetOldINVENTARIABLEValue: Integer; virtual; + procedure SetINVENTARIABLEValue(const aValue: Integer); virtual; + function GetIMPORTE_UNIDAD_COSTEValue: Currency; virtual; + function GetOldIMPORTE_UNIDAD_COSTEValue: Currency; virtual; + procedure SetIMPORTE_UNIDAD_COSTEValue(const aValue: Currency); virtual; + function GetDESCUENTO_PROVEEDOR_COSTEValue: Float; virtual; + function GetOldDESCUENTO_PROVEEDOR_COSTEValue: Float; virtual; + procedure SetDESCUENTO_PROVEEDOR_COSTEValue(const aValue: Float); virtual; + function GetIMPORTE_NETO_COSTEValue: Currency; virtual; + function GetOldIMPORTE_NETO_COSTEValue: Currency; virtual; + procedure SetIMPORTE_NETO_COSTEValue(const aValue: Currency); virtual; + function GetIMPORTE_PORTE_COSTEValue: Currency; virtual; + function GetOldIMPORTE_PORTE_COSTEValue: Currency; virtual; + procedure SetIMPORTE_PORTE_COSTEValue(const aValue: Currency); virtual; + function GetIMPORTE_UNIDAD_ULTIMA_COMPRAValue: Currency; virtual; + function GetOldIMPORTE_UNIDAD_ULTIMA_COMPRAValue: Currency; virtual; + procedure SetIMPORTE_UNIDAD_ULTIMA_COMPRAValue(const aValue: Currency); virtual; + function GetIMPORTE_NETO_ULTIMA_COMPRAValue: Currency; virtual; + function GetOldIMPORTE_NETO_ULTIMA_COMPRAValue: Currency; virtual; + procedure SetIMPORTE_NETO_ULTIMA_COMPRAValue(const aValue: Currency); virtual; + function GetIMPORTE_PORTE_ULTIMA_COMPRAValue: Currency; virtual; + function GetOldIMPORTE_PORTE_ULTIMA_COMPRAValue: Currency; virtual; + procedure SetIMPORTE_PORTE_ULTIMA_COMPRAValue(const aValue: Currency); virtual; + function GetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue: Currency; virtual; + function GetOldIMPORTE_UNIDAD_PROMEDIO_COMPRAValue: Currency; virtual; + procedure SetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue(const aValue: Currency); virtual; + function GetIMPORTE_NETO_PROMEDIO_COMPRAValue: Currency; virtual; + function GetOldIMPORTE_NETO_PROMEDIO_COMPRAValue: Currency; virtual; + procedure SetIMPORTE_NETO_PROMEDIO_COMPRAValue(const aValue: Currency); virtual; + function GetIMPORTE_PORTE_PROMEDIO_COMPRAValue: Currency; virtual; + function GetOldIMPORTE_PORTE_PROMEDIO_COMPRAValue: Currency; virtual; + procedure SetIMPORTE_PORTE_PROMEDIO_COMPRAValue(const aValue: Currency); virtual; + function GetCANTIDADValue: Integer; virtual; + function GetOldCANTIDADValue: Integer; virtual; + procedure SetCANTIDADValue(const aValue: Integer); virtual; + function GetIMPORTE_UNIDAD_VENTAValue: Currency; virtual; + function GetOldIMPORTE_UNIDAD_VENTAValue: Currency; virtual; + procedure SetIMPORTE_UNIDAD_VENTAValue(const aValue: Currency); virtual; + function GetDESCUENTO_CLIENTE_VENTAValue: Float; virtual; + function GetOldDESCUENTO_CLIENTE_VENTAValue: Float; virtual; + procedure SetDESCUENTO_CLIENTE_VENTAValue(const aValue: Float); virtual; + function GetIMPORTE_NETO_VENTAValue: Currency; virtual; + function GetOldIMPORTE_NETO_VENTAValue: Currency; virtual; + procedure SetIMPORTE_NETO_VENTAValue(const aValue: Currency); virtual; + function GetIMPORTE_PORTE_VENTAValue: Float; virtual; + function GetOldIMPORTE_PORTE_VENTAValue: Float; virtual; + procedure SetIMPORTE_PORTE_VENTAValue(const aValue: Float); virtual; + function GetIMPORTE_TOTAL_VENTAValue: Currency; virtual; + function GetOldIMPORTE_TOTAL_VENTAValue: Currency; virtual; + procedure SetIMPORTE_TOTAL_VENTAValue(const aValue: Currency); virtual; + function GetIMPORTE_MARGEN_COSTEValue: Currency; virtual; + function GetOldIMPORTE_MARGEN_COSTEValue: Currency; virtual; + procedure SetIMPORTE_MARGEN_COSTEValue(const aValue: Currency); virtual; + function GetPORCENTAJE_MARGEN_COSTEValue: Float; virtual; + function GetOldPORCENTAJE_MARGEN_COSTEValue: Float; virtual; + procedure SetPORCENTAJE_MARGEN_COSTEValue(const aValue: Float); virtual; + function GetIMPORTE_MARGEN_ULT_COMPRAValue: Currency; virtual; + function GetOldIMPORTE_MARGEN_ULT_COMPRAValue: Currency; virtual; + procedure SetIMPORTE_MARGEN_ULT_COMPRAValue(const aValue: Currency); virtual; + function GetPORCENTAJE_MARGEN_ULT_COMPRAValue: Float; virtual; + function GetOldPORCENTAJE_MARGEN_ULT_COMPRAValue: Float; virtual; + procedure SetPORCENTAJE_MARGEN_ULT_COMPRAValue(const aValue: Float); virtual; + function GetIMPORTE_MARGEN_PROM_COMPRAValue: Currency; virtual; + function GetOldIMPORTE_MARGEN_PROM_COMPRAValue: Currency; virtual; + procedure SetIMPORTE_MARGEN_PROM_COMPRAValue(const aValue: Currency); virtual; + function GetPORCENTAJE_MARGEN_PROM_COMPRAValue: Float; virtual; + function GetOldPORCENTAJE_MARGEN_PROM_COMPRAValue: Float; virtual; + procedure SetPORCENTAJE_MARGEN_PROM_COMPRAValue(const aValue: Float); virtual; + function GetNIF_CIF_PROVEEDORValue: String; virtual; + function GetOldNIF_CIF_PROVEEDORValue: String; virtual; + procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual; + function GetNOMBRE_PROVEEDORValue: String; virtual; + function GetOldNOMBRE_PROVEEDORValue: String; virtual; + procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual; + function GetCALLE_PROVEEDORValue: String; virtual; + function GetOldCALLE_PROVEEDORValue: String; virtual; + procedure SetCALLE_PROVEEDORValue(const aValue: String); virtual; + function GetPOBLACION_PROVEEDORValue: String; virtual; + function GetOldPOBLACION_PROVEEDORValue: String; virtual; + procedure SetPOBLACION_PROVEEDORValue(const aValue: String); virtual; + function GetPROVINCIA_PROVEEDORValue: String; virtual; + function GetOldPROVINCIA_PROVEEDORValue: String; virtual; + procedure SetPROVINCIA_PROVEEDORValue(const aValue: String); virtual; + function GetNIF_CIF_CLIENTEValue: String; virtual; + function GetOldNIF_CIF_CLIENTEValue: String; virtual; + procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual; + function GetNOMBRE_CLIENTEValue: String; virtual; + function GetOldNOMBRE_CLIENTEValue: String; virtual; + procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual; + function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual; + function GetOldNOMBRE_COMERCIAL_CLIENTEValue: String; virtual; + procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual; + function GetCALLE_CLIENTEValue: String; virtual; + function GetOldCALLE_CLIENTEValue: String; virtual; + procedure SetCALLE_CLIENTEValue(const aValue: String); virtual; + function GetPOBLACION_CLIENTEValue: String; virtual; + function GetOldPOBLACION_CLIENTEValue: String; virtual; + procedure SetPOBLACION_CLIENTEValue(const aValue: String); virtual; + function GetPROVINCIA_CLIENTEValue: String; virtual; + function GetOldPROVINCIA_CLIENTEValue: String; virtual; + procedure SetPROVINCIA_CLIENTEValue(const aValue: String); virtual; + function GetNIF_CIF_AGENTEValue: String; virtual; + function GetOldNIF_CIF_AGENTEValue: String; virtual; + procedure SetNIF_CIF_AGENTEValue(const aValue: String); virtual; + function GetNOMBRE_AGENTEValue: String; virtual; + function GetOldNOMBRE_AGENTEValue: String; virtual; + procedure SetNOMBRE_AGENTEValue(const aValue: String); virtual; + function GetCALLE_AGENTEValue: String; virtual; + function GetOldCALLE_AGENTEValue: String; virtual; + procedure SetCALLE_AGENTEValue(const aValue: String); virtual; + function GetPOBLACION_AGENTEValue: String; virtual; + function GetOldPOBLACION_AGENTEValue: String; virtual; + procedure SetPOBLACION_AGENTEValue(const aValue: String); virtual; + function GetPROVINCIA_AGENTEValue: String; virtual; + function GetOldPROVINCIA_AGENTEValue: String; virtual; + procedure SetPROVINCIA_AGENTEValue(const aValue: String); virtual; + function GetCOMISION_AGENTEValue: Float; virtual; + function GetOldCOMISION_AGENTEValue: Float; virtual; + procedure SetCOMISION_AGENTEValue(const aValue: Float); virtual; + function GetIMPORTE_COMISION_AGENTEValue: Currency; virtual; + function GetOldIMPORTE_COMISION_AGENTEValue: Currency; virtual; + procedure SetIMPORTE_COMISION_AGENTEValue(const aValue: Currency); virtual; + + { Properties } + property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue; + property OldID_FACTURA : Integer read GetOldID_FACTURAValue; + property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; + property REFERENCIA_FACTURA : String read GetREFERENCIA_FACTURAValue write SetREFERENCIA_FACTURAValue; + property OldREFERENCIA_FACTURA : String read GetOldREFERENCIA_FACTURAValue; + property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; + property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; + property IMPORTE_TOTAL_FACTURA : Currency read GetIMPORTE_TOTAL_FACTURAValue write SetIMPORTE_TOTAL_FACTURAValue; + property OldIMPORTE_TOTAL_FACTURA : Currency read GetOldIMPORTE_TOTAL_FACTURAValue; + property ID_COMISION_FACTURA : Integer read GetID_COMISION_FACTURAValue write SetID_COMISION_FACTURAValue; + property OldID_COMISION_FACTURA : Integer read GetOldID_COMISION_FACTURAValue; + property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; + property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; + property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue; + property OldFAMILIA : String read GetOldFAMILIAValue; + property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property REFERENCIA_PROV : String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue; + property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue; + property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; + property COMISIONABLE : Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue; + property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue; + property INVENTARIABLE : Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue; + property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue; + property IMPORTE_UNIDAD_COSTE : Currency read GetIMPORTE_UNIDAD_COSTEValue write SetIMPORTE_UNIDAD_COSTEValue; + property OldIMPORTE_UNIDAD_COSTE : Currency read GetOldIMPORTE_UNIDAD_COSTEValue; + property DESCUENTO_PROVEEDOR_COSTE : Float read GetDESCUENTO_PROVEEDOR_COSTEValue write SetDESCUENTO_PROVEEDOR_COSTEValue; + property OldDESCUENTO_PROVEEDOR_COSTE : Float read GetOldDESCUENTO_PROVEEDOR_COSTEValue; + property IMPORTE_NETO_COSTE : Currency read GetIMPORTE_NETO_COSTEValue write SetIMPORTE_NETO_COSTEValue; + property OldIMPORTE_NETO_COSTE : Currency read GetOldIMPORTE_NETO_COSTEValue; + property IMPORTE_PORTE_COSTE : Currency read GetIMPORTE_PORTE_COSTEValue write SetIMPORTE_PORTE_COSTEValue; + property OldIMPORTE_PORTE_COSTE : Currency read GetOldIMPORTE_PORTE_COSTEValue; + property IMPORTE_UNIDAD_ULTIMA_COMPRA : Currency read GetIMPORTE_UNIDAD_ULTIMA_COMPRAValue write SetIMPORTE_UNIDAD_ULTIMA_COMPRAValue; + property OldIMPORTE_UNIDAD_ULTIMA_COMPRA : Currency read GetOldIMPORTE_UNIDAD_ULTIMA_COMPRAValue; + property IMPORTE_NETO_ULTIMA_COMPRA : Currency read GetIMPORTE_NETO_ULTIMA_COMPRAValue write SetIMPORTE_NETO_ULTIMA_COMPRAValue; + property OldIMPORTE_NETO_ULTIMA_COMPRA : Currency read GetOldIMPORTE_NETO_ULTIMA_COMPRAValue; + property IMPORTE_PORTE_ULTIMA_COMPRA : Currency read GetIMPORTE_PORTE_ULTIMA_COMPRAValue write SetIMPORTE_PORTE_ULTIMA_COMPRAValue; + property OldIMPORTE_PORTE_ULTIMA_COMPRA : Currency read GetOldIMPORTE_PORTE_ULTIMA_COMPRAValue; + property IMPORTE_UNIDAD_PROMEDIO_COMPRA : Currency read GetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue write SetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue; + property OldIMPORTE_UNIDAD_PROMEDIO_COMPRA : Currency read GetOldIMPORTE_UNIDAD_PROMEDIO_COMPRAValue; + property IMPORTE_NETO_PROMEDIO_COMPRA : Currency read GetIMPORTE_NETO_PROMEDIO_COMPRAValue write SetIMPORTE_NETO_PROMEDIO_COMPRAValue; + property OldIMPORTE_NETO_PROMEDIO_COMPRA : Currency read GetOldIMPORTE_NETO_PROMEDIO_COMPRAValue; + property IMPORTE_PORTE_PROMEDIO_COMPRA : Currency read GetIMPORTE_PORTE_PROMEDIO_COMPRAValue write SetIMPORTE_PORTE_PROMEDIO_COMPRAValue; + property OldIMPORTE_PORTE_PROMEDIO_COMPRA : Currency read GetOldIMPORTE_PORTE_PROMEDIO_COMPRAValue; + property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue; + property OldCANTIDAD : Integer read GetOldCANTIDADValue; + property IMPORTE_UNIDAD_VENTA : Currency read GetIMPORTE_UNIDAD_VENTAValue write SetIMPORTE_UNIDAD_VENTAValue; + property OldIMPORTE_UNIDAD_VENTA : Currency read GetOldIMPORTE_UNIDAD_VENTAValue; + property DESCUENTO_CLIENTE_VENTA : Float read GetDESCUENTO_CLIENTE_VENTAValue write SetDESCUENTO_CLIENTE_VENTAValue; + property OldDESCUENTO_CLIENTE_VENTA : Float read GetOldDESCUENTO_CLIENTE_VENTAValue; + property IMPORTE_NETO_VENTA : Currency read GetIMPORTE_NETO_VENTAValue write SetIMPORTE_NETO_VENTAValue; + property OldIMPORTE_NETO_VENTA : Currency read GetOldIMPORTE_NETO_VENTAValue; + property IMPORTE_PORTE_VENTA : Float read GetIMPORTE_PORTE_VENTAValue write SetIMPORTE_PORTE_VENTAValue; + property OldIMPORTE_PORTE_VENTA : Float read GetOldIMPORTE_PORTE_VENTAValue; + property IMPORTE_TOTAL_VENTA : Currency read GetIMPORTE_TOTAL_VENTAValue write SetIMPORTE_TOTAL_VENTAValue; + property OldIMPORTE_TOTAL_VENTA : Currency read GetOldIMPORTE_TOTAL_VENTAValue; + property IMPORTE_MARGEN_COSTE : Currency read GetIMPORTE_MARGEN_COSTEValue write SetIMPORTE_MARGEN_COSTEValue; + property OldIMPORTE_MARGEN_COSTE : Currency read GetOldIMPORTE_MARGEN_COSTEValue; + property PORCENTAJE_MARGEN_COSTE : Float read GetPORCENTAJE_MARGEN_COSTEValue write SetPORCENTAJE_MARGEN_COSTEValue; + property OldPORCENTAJE_MARGEN_COSTE : Float read GetOldPORCENTAJE_MARGEN_COSTEValue; + property IMPORTE_MARGEN_ULT_COMPRA : Currency read GetIMPORTE_MARGEN_ULT_COMPRAValue write SetIMPORTE_MARGEN_ULT_COMPRAValue; + property OldIMPORTE_MARGEN_ULT_COMPRA : Currency read GetOldIMPORTE_MARGEN_ULT_COMPRAValue; + property PORCENTAJE_MARGEN_ULT_COMPRA : Float read GetPORCENTAJE_MARGEN_ULT_COMPRAValue write SetPORCENTAJE_MARGEN_ULT_COMPRAValue; + property OldPORCENTAJE_MARGEN_ULT_COMPRA : Float read GetOldPORCENTAJE_MARGEN_ULT_COMPRAValue; + property IMPORTE_MARGEN_PROM_COMPRA : Currency read GetIMPORTE_MARGEN_PROM_COMPRAValue write SetIMPORTE_MARGEN_PROM_COMPRAValue; + property OldIMPORTE_MARGEN_PROM_COMPRA : Currency read GetOldIMPORTE_MARGEN_PROM_COMPRAValue; + property PORCENTAJE_MARGEN_PROM_COMPRA : Float read GetPORCENTAJE_MARGEN_PROM_COMPRAValue write SetPORCENTAJE_MARGEN_PROM_COMPRAValue; + property OldPORCENTAJE_MARGEN_PROM_COMPRA : Float read GetOldPORCENTAJE_MARGEN_PROM_COMPRAValue; + property NIF_CIF_PROVEEDOR : String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue; + property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue; + property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; + property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; + property CALLE_PROVEEDOR : String read GetCALLE_PROVEEDORValue write SetCALLE_PROVEEDORValue; + property OldCALLE_PROVEEDOR : String read GetOldCALLE_PROVEEDORValue; + property POBLACION_PROVEEDOR : String read GetPOBLACION_PROVEEDORValue write SetPOBLACION_PROVEEDORValue; + property OldPOBLACION_PROVEEDOR : String read GetOldPOBLACION_PROVEEDORValue; + property PROVINCIA_PROVEEDOR : String read GetPROVINCIA_PROVEEDORValue write SetPROVINCIA_PROVEEDORValue; + property OldPROVINCIA_PROVEEDOR : String read GetOldPROVINCIA_PROVEEDORValue; + property NIF_CIF_CLIENTE : String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue; + property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue; + property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; + property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue; + property NOMBRE_COMERCIAL_CLIENTE : String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue; + property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue; + property CALLE_CLIENTE : String read GetCALLE_CLIENTEValue write SetCALLE_CLIENTEValue; + property OldCALLE_CLIENTE : String read GetOldCALLE_CLIENTEValue; + property POBLACION_CLIENTE : String read GetPOBLACION_CLIENTEValue write SetPOBLACION_CLIENTEValue; + property OldPOBLACION_CLIENTE : String read GetOldPOBLACION_CLIENTEValue; + property PROVINCIA_CLIENTE : String read GetPROVINCIA_CLIENTEValue write SetPROVINCIA_CLIENTEValue; + property OldPROVINCIA_CLIENTE : String read GetOldPROVINCIA_CLIENTEValue; + property NIF_CIF_AGENTE : String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue; + property OldNIF_CIF_AGENTE : String read GetOldNIF_CIF_AGENTEValue; + property NOMBRE_AGENTE : String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue; + property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue; + property CALLE_AGENTE : String read GetCALLE_AGENTEValue write SetCALLE_AGENTEValue; + property OldCALLE_AGENTE : String read GetOldCALLE_AGENTEValue; + property POBLACION_AGENTE : String read GetPOBLACION_AGENTEValue write SetPOBLACION_AGENTEValue; + property OldPOBLACION_AGENTE : String read GetOldPOBLACION_AGENTEValue; + property PROVINCIA_AGENTE : String read GetPROVINCIA_AGENTEValue write SetPROVINCIA_AGENTEValue; + property OldPROVINCIA_AGENTE : String read GetOldPROVINCIA_AGENTEValue; + property COMISION_AGENTE : Float read GetCOMISION_AGENTEValue write SetCOMISION_AGENTEValue; + property OldCOMISION_AGENTE : Float read GetOldCOMISION_AGENTEValue; + property IMPORTE_COMISION_AGENTE : Currency read GetIMPORTE_COMISION_AGENTEValue write SetIMPORTE_COMISION_AGENTEValue; + property OldIMPORTE_COMISION_AGENTE : Currency read GetOldIMPORTE_COMISION_AGENTEValue; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + +implementation + +uses + Variants, uROBinaryHelpers; + +{ TInfMargenArticuloBusinessProcessorRules } +constructor TInfMargenArticuloBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TInfMargenArticuloBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetID_FACTURAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloID_FACTURA]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldID_FACTURAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloID_FACTURA]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloID_FACTURA] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetID_EMPRESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloID_EMPRESA]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloID_EMPRESA]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloID_EMPRESA] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetREFERENCIA_FACTURAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloREFERENCIA_FACTURA]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldREFERENCIA_FACTURAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloREFERENCIA_FACTURA]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetREFERENCIA_FACTURAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloREFERENCIA_FACTURA] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloFECHA_FACTURA]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloFECHA_FACTURA]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloFECHA_FACTURA] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_TOTAL_FACTURAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_TOTAL_FACTURA]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_TOTAL_FACTURAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_TOTAL_FACTURA]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_TOTAL_FACTURAValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_TOTAL_FACTURA] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetID_COMISION_FACTURAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloID_COMISION_FACTURA]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldID_COMISION_FACTURAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloID_COMISION_FACTURA]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetID_COMISION_FACTURAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloID_COMISION_FACTURA] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetID_ARTICULOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloID_ARTICULO]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloID_ARTICULO]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloID_ARTICULO] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetFAMILIAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloFAMILIA]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldFAMILIAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloFAMILIA]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetFAMILIAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloFAMILIA] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloREFERENCIA]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloREFERENCIA]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloREFERENCIA] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetREFERENCIA_PROVValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloREFERENCIA_PROV]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloREFERENCIA_PROV]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloREFERENCIA_PROV] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetDESCRIPCIONValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloDESCRIPCION]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldDESCRIPCIONValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloDESCRIPCION]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloDESCRIPCION] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetCOMISIONABLEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloCOMISIONABLE]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldCOMISIONABLEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloCOMISIONABLE]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloCOMISIONABLE] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetINVENTARIABLEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloINVENTARIABLE]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldINVENTARIABLEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloINVENTARIABLE]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetINVENTARIABLEValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloINVENTARIABLE] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_UNIDAD_COSTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_UNIDAD_COSTE]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_UNIDAD_COSTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_UNIDAD_COSTE]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_UNIDAD_COSTEValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_UNIDAD_COSTE] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetDESCUENTO_PROVEEDOR_COSTEValue: Float; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloDESCUENTO_PROVEEDOR_COSTE]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldDESCUENTO_PROVEEDOR_COSTEValue: Float; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloDESCUENTO_PROVEEDOR_COSTE]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetDESCUENTO_PROVEEDOR_COSTEValue(const aValue: Float); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloDESCUENTO_PROVEEDOR_COSTE] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_NETO_COSTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_NETO_COSTE]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_NETO_COSTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_NETO_COSTE]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_NETO_COSTEValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_NETO_COSTE] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_PORTE_COSTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_PORTE_COSTE]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_PORTE_COSTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_PORTE_COSTE]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_PORTE_COSTEValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_PORTE_COSTE] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_UNIDAD_ULTIMA_COMPRAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_UNIDAD_ULTIMA_COMPRA]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_UNIDAD_ULTIMA_COMPRAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_UNIDAD_ULTIMA_COMPRA]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_UNIDAD_ULTIMA_COMPRAValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_UNIDAD_ULTIMA_COMPRA] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_NETO_ULTIMA_COMPRAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_NETO_ULTIMA_COMPRA]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_NETO_ULTIMA_COMPRAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_NETO_ULTIMA_COMPRA]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_NETO_ULTIMA_COMPRAValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_NETO_ULTIMA_COMPRA] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_PORTE_ULTIMA_COMPRAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_PORTE_ULTIMA_COMPRA]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_PORTE_ULTIMA_COMPRAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_PORTE_ULTIMA_COMPRA]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_PORTE_ULTIMA_COMPRAValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_PORTE_ULTIMA_COMPRA] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_UNIDAD_PROMEDIO_COMPRA]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_UNIDAD_PROMEDIO_COMPRAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_UNIDAD_PROMEDIO_COMPRA]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_UNIDAD_PROMEDIO_COMPRA] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_NETO_PROMEDIO_COMPRAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_NETO_PROMEDIO_COMPRA]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_NETO_PROMEDIO_COMPRAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_NETO_PROMEDIO_COMPRA]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_NETO_PROMEDIO_COMPRAValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_NETO_PROMEDIO_COMPRA] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_PORTE_PROMEDIO_COMPRAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_PORTE_PROMEDIO_COMPRA]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_PORTE_PROMEDIO_COMPRAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_PORTE_PROMEDIO_COMPRA]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_PORTE_PROMEDIO_COMPRAValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_PORTE_PROMEDIO_COMPRA] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetCANTIDADValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloCANTIDAD]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldCANTIDADValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloCANTIDAD]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloCANTIDAD] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_UNIDAD_VENTAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_UNIDAD_VENTA]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_UNIDAD_VENTAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_UNIDAD_VENTA]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_UNIDAD_VENTAValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_UNIDAD_VENTA] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetDESCUENTO_CLIENTE_VENTAValue: Float; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloDESCUENTO_CLIENTE_VENTA]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldDESCUENTO_CLIENTE_VENTAValue: Float; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloDESCUENTO_CLIENTE_VENTA]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetDESCUENTO_CLIENTE_VENTAValue(const aValue: Float); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloDESCUENTO_CLIENTE_VENTA] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_NETO_VENTAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_NETO_VENTA]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_NETO_VENTAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_NETO_VENTA]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_NETO_VENTAValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_NETO_VENTA] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_PORTE_VENTAValue: Float; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_PORTE_VENTA]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_PORTE_VENTAValue: Float; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_PORTE_VENTA]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_PORTE_VENTAValue(const aValue: Float); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_PORTE_VENTA] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_TOTAL_VENTAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_TOTAL_VENTA]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_TOTAL_VENTAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_TOTAL_VENTA]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_TOTAL_VENTAValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_TOTAL_VENTA] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_MARGEN_COSTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_MARGEN_COSTE]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_MARGEN_COSTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_MARGEN_COSTE]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_MARGEN_COSTEValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_MARGEN_COSTE] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetPORCENTAJE_MARGEN_COSTEValue: Float; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPORCENTAJE_MARGEN_COSTE]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldPORCENTAJE_MARGEN_COSTEValue: Float; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloPORCENTAJE_MARGEN_COSTE]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetPORCENTAJE_MARGEN_COSTEValue(const aValue: Float); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPORCENTAJE_MARGEN_COSTE] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_MARGEN_ULT_COMPRAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_MARGEN_ULT_COMPRA]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_MARGEN_ULT_COMPRAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_MARGEN_ULT_COMPRA]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_MARGEN_ULT_COMPRAValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_MARGEN_ULT_COMPRA] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetPORCENTAJE_MARGEN_ULT_COMPRAValue: Float; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPORCENTAJE_MARGEN_ULT_COMPRA]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldPORCENTAJE_MARGEN_ULT_COMPRAValue: Float; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloPORCENTAJE_MARGEN_ULT_COMPRA]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetPORCENTAJE_MARGEN_ULT_COMPRAValue(const aValue: Float); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPORCENTAJE_MARGEN_ULT_COMPRA] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_MARGEN_PROM_COMPRAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_MARGEN_PROM_COMPRA]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_MARGEN_PROM_COMPRAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_MARGEN_PROM_COMPRA]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_MARGEN_PROM_COMPRAValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_MARGEN_PROM_COMPRA] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetPORCENTAJE_MARGEN_PROM_COMPRAValue: Float; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPORCENTAJE_MARGEN_PROM_COMPRA]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldPORCENTAJE_MARGEN_PROM_COMPRAValue: Float; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloPORCENTAJE_MARGEN_PROM_COMPRA]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetPORCENTAJE_MARGEN_PROM_COMPRAValue(const aValue: Float); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPORCENTAJE_MARGEN_PROM_COMPRA] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetNIF_CIF_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNIF_CIF_PROVEEDOR]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldNIF_CIF_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloNIF_CIF_PROVEEDOR]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetNIF_CIF_PROVEEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNIF_CIF_PROVEEDOR] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNOMBRE_PROVEEDOR]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldNOMBRE_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloNOMBRE_PROVEEDOR]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetNOMBRE_PROVEEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNOMBRE_PROVEEDOR] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetCALLE_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloCALLE_PROVEEDOR]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldCALLE_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloCALLE_PROVEEDOR]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetCALLE_PROVEEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloCALLE_PROVEEDOR] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetPOBLACION_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPOBLACION_PROVEEDOR]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldPOBLACION_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloPOBLACION_PROVEEDOR]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetPOBLACION_PROVEEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPOBLACION_PROVEEDOR] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetPROVINCIA_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPROVINCIA_PROVEEDOR]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldPROVINCIA_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloPROVINCIA_PROVEEDOR]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetPROVINCIA_PROVEEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPROVINCIA_PROVEEDOR] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetNIF_CIF_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNIF_CIF_CLIENTE]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldNIF_CIF_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloNIF_CIF_CLIENTE]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetNIF_CIF_CLIENTEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNIF_CIF_CLIENTE] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNOMBRE_CLIENTE]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloNOMBRE_CLIENTE]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNOMBRE_CLIENTE] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNOMBRE_COMERCIAL_CLIENTE]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldNOMBRE_COMERCIAL_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloNOMBRE_COMERCIAL_CLIENTE]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNOMBRE_COMERCIAL_CLIENTE] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetCALLE_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloCALLE_CLIENTE]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldCALLE_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloCALLE_CLIENTE]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetCALLE_CLIENTEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloCALLE_CLIENTE] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetPOBLACION_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPOBLACION_CLIENTE]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldPOBLACION_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloPOBLACION_CLIENTE]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetPOBLACION_CLIENTEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPOBLACION_CLIENTE] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetPROVINCIA_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPROVINCIA_CLIENTE]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldPROVINCIA_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloPROVINCIA_CLIENTE]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetPROVINCIA_CLIENTEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPROVINCIA_CLIENTE] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetNIF_CIF_AGENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNIF_CIF_AGENTE]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldNIF_CIF_AGENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloNIF_CIF_AGENTE]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetNIF_CIF_AGENTEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNIF_CIF_AGENTE] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetNOMBRE_AGENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNOMBRE_AGENTE]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldNOMBRE_AGENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloNOMBRE_AGENTE]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetNOMBRE_AGENTEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNOMBRE_AGENTE] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetCALLE_AGENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloCALLE_AGENTE]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldCALLE_AGENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloCALLE_AGENTE]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetCALLE_AGENTEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloCALLE_AGENTE] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetPOBLACION_AGENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPOBLACION_AGENTE]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldPOBLACION_AGENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloPOBLACION_AGENTE]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetPOBLACION_AGENTEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPOBLACION_AGENTE] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetPROVINCIA_AGENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPROVINCIA_AGENTE]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldPROVINCIA_AGENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloPROVINCIA_AGENTE]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetPROVINCIA_AGENTEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPROVINCIA_AGENTE] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetCOMISION_AGENTEValue: Float; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloCOMISION_AGENTE]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldCOMISION_AGENTEValue: Float; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloCOMISION_AGENTE]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetCOMISION_AGENTEValue(const aValue: Float); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloCOMISION_AGENTE] := aValue; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_COMISION_AGENTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_COMISION_AGENTE]; +end; + +function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_COMISION_AGENTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_COMISION_AGENTE]; +end; + +procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_COMISION_AGENTEValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_COMISION_AGENTE] := aValue; +end; + + +initialization + RegisterBusinessProcessorRules(RID_InfMargenArticuloDelta, TInfMargenArticuloBusinessProcessorRules); + +end. diff --git a/Source/Modulos/Informe margen por articulo/Model/uBizInfMargenArticulo.pas b/Source/Modulos/Informe margen por articulo/Model/uBizInfMargenArticulo.pas new file mode 100644 index 00000000..b4d906a9 --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Model/uBizInfMargenArticulo.pas @@ -0,0 +1,96 @@ +unit uBizInfMargenArticulo; + +interface + +uses + Classes, DB, SysUtils, uROClasses, uDADataTable, uDAInterfaces, + DataAbstract_Intf, uROTypes, schInfMargenArticuloClient_Intf; + +const + BIZ_InfMargenArticulo = 'Client.InfMargenArticulo'; + +type + IBizInfMargenArticulo = interface(IInfMargenArticulo) + ['{8E265668-0B6D-4475-9965-15B3EE251B24}'] + function GetVisibleColumns: String; + procedure SetVisibleColumns(const Value: String); + property VisibleColumns : String read GetVisibleColumns write SetVisibleColumns; + end; + + TBizInfMargenArticulo = class(TInfMargenArticuloDataTableRules, IBizInfMargenArticulo) + private + FVisibleColumns : String; + FDateParams : TDADatasetParamArray; + protected + function GetVisibleColumns: String; + procedure SetVisibleColumns(const Value: String); + procedure OnBeforeDataRequestCall(DataTable: TDADataTable; Request: TDARemoteRequest); + procedure OnBeforeSchemaCall(DataTable: TDADataTable; Request: TDARemoteRequest); + public + constructor Create(aDataTable: TDADataTable); override; + property VisibleColumns : String read GetVisibleColumns write SetVisibleColumns; + destructor Destroy; override; + end; + + +implementation + +{ TBizInfMargenArticulo } + +uses + Dialogs; + +constructor TBizInfMargenArticulo.Create(aDataTable: TDADataTable); +begin + inherited; + FDateParams := TDADatasetParamArray.Create; + if Assigned(DataTable) then + begin + DataTable.OnBeforeDataRequestCall := OnBeforeDataRequestCall; + DataTable.OnBeforeSchemaCall := OnBeforeSchemaCall; + end; +end; + +destructor TBizInfMargenArticulo.Destroy; +begin + FreeAndNIL(FDateParams); + inherited; +end; + +function TBizInfMargenArticulo.GetVisibleColumns: String; +begin +// if Length(FVisibleColumns) = 0 then +// FVisibleColumns := dmInfMargenArticulo.GetNameColumns; + Result := FVisibleColumns +end; + +procedure TBizInfMargenArticulo.OnBeforeDataRequestCall( + DataTable: TDADataTable; Request: TDARemoteRequest); +begin + Request.ParamByName('Columns').AsString := VisibleColumns; + FDateParams.Clear; + NewDatasetParam(FDateParams, 'FECHAINI', DataTable.ParamByName('FECHAINI').AsDateTime); + NewDatasetParam(FDateParams, 'FECHAFIN', DataTable.ParamByName('FECHAFIN').AsDateTime); + Request.ParamByName('Params').AsComplexType := FDateParams; +end; + +procedure TBizInfMargenArticulo.OnBeforeSchemaCall(DataTable: TDADataTable; Request: TDARemoteRequest); +begin + Request.ParamByName('Columns').AsString := VisibleColumns; +end; + +procedure TBizInfMargenArticulo.SetVisibleColumns(const Value: String); +begin +// if Length(Value) > 0 then + FVisibleColumns := Value +// else +// FVisibleColumns := dmInfMargenArticulo.GetNameColumns; +end; + +initialization + RegisterDataTableRules(BIZ_InfMargenArticulo, TBizInfMargenArticulo); + +finalization + +end. + diff --git a/Source/Modulos/Informe margen por articulo/Plugin/InfMargenArticulo_plugin.bdsproj b/Source/Modulos/Informe margen por articulo/Plugin/InfMargenArticulo_plugin.bdsproj new file mode 100644 index 00000000..ee946eb3 --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Plugin/InfMargenArticulo_plugin.bdsproj @@ -0,0 +1,492 @@ + + + + + + + + + + + + InfMargenArticulo_plugin.dpk + + + 7.0 + + + 8 + 0 + 1 + 1 + 0 + 0 + 1 + 1 + 1 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + 0 + 0 + 0 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + True + True + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + False + False + False + True + True + True + True + True + True + + + + 0 + 0 + False + 1 + False + False + False + 16384 + 1048576 + 4194304 + + + + + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + + + + False + + + + + + False + + + True + False + + + + $00000000 + + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + + diff --git a/Source/Modulos/Informe margen por articulo/Plugin/InfMargenArticulo_plugin.dpk b/Source/Modulos/Informe margen por articulo/Plugin/InfMargenArticulo_plugin.dpk new file mode 100644 index 00000000..297900c1 --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Plugin/InfMargenArticulo_plugin.dpk @@ -0,0 +1,42 @@ +package InfMargenArticulo_plugin; + +{$R *.res} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$IMPLICITBUILD OFF} + +requires + rtl, + vcl, + PluginSDK_D10R, + PngComponentsD10, + PNG_D10, + vclactnband, + vclx, + InfMargenArticulo_view, + InfMargenArticulo_controller, + InfMargenArticulo_model; + +contains + uPluginInfMargenArticulo in 'uPluginInfMargenArticulo.pas' {PluginInfMargenArticulo}; + +end. diff --git a/Source/Modulos/Informe margen por articulo/Plugin/InfMargenArticulo_plugin.res b/Source/Modulos/Informe margen por articulo/Plugin/InfMargenArticulo_plugin.res new file mode 100644 index 00000000..86c94e6a Binary files /dev/null and b/Source/Modulos/Informe margen por articulo/Plugin/InfMargenArticulo_plugin.res differ diff --git a/Source/Modulos/Informe margen por articulo/Plugin/uPluginInfMargenArticulo.dfm b/Source/Modulos/Informe margen por articulo/Plugin/uPluginInfMargenArticulo.dfm new file mode 100644 index 00000000..5a584159 --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Plugin/uPluginInfMargenArticulo.dfm @@ -0,0 +1,326 @@ +object PluginInfMargenArticulo: TPluginInfMargenArticulo + OldCreateOrder = True + DefaultAction = actMargenArticulo + Description = 'Informes' + ModuleMenu = MainMenu + ModuleName = 'InfMargenArticulo' + SmallImages = SmallImages + LargeImages = LargeImages + Author = 'Rodax Software' + Version = '1.0.0' + Height = 252 + Width = 401 + object LargeImages: TPngImageList + Height = 24 + Width = 24 + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD25200000A4D694343505068 + 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF + F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A + 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 + 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 + 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC + 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 + C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 + 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 + 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C + CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 + 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 + 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F + 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA + 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED + 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 + FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A + F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 + 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 + 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 + 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C + 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 + 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 + 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA + 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F + 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 + 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 + 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 + 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 + 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 + 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 + A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 + 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 + 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 + 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 + 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 + 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 + 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 + EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C + 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED + EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB + 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 + 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 + 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 + 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 + A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 + 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 + D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B + 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 + 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD + D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 + C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E + 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B + FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 + 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 + 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 + 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 + BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 + F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC + A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 + 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA + 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C + 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 + F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 + DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 + 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 + A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 + 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 + EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E + CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 + 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD + 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF + B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C + 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD + EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 + E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 + 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F + EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 + EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 + FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 + CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 + ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC + CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F + F73EE77CFEFC2FF784F3FB25D29F33000003994944415478DADD956B4C536718 + C7FFA73D948A144924A5748245A41871C14B0C83CD006A362A23A27C5051BE28 + 5B30F116257ED02D210CA323982C3A4D0CC8166FA87138A651515462B0782B58 + A1CC4B90724B0B4DB958E9E55C77CE99769A490AEABEEC4D4E9EF39C93F7FF7B + 2EEF85E0791EFFE520FE1F0082203E58C8A801DF6607BE153445FF75E01F0520 + 8A276FDF0C59F54154B4FC0DF9688073A78FF05FA42F47A44183261B2066218E + 6F789EF860C0AD4A2DAFFFBA1976BB1D56AB15EAC21CBC2ED35B191CDDBF79C2 + 9DD687D72075C50118CF6FC160C46109525A5A8AE26D392828FAF9DF80759BE6 + 8C4B98E758DC3FB5471247EF6E0CDB3AD0DEAB465EB10C0FEA57E2C73DB79198 + 94820D3B0E12130604126FB9DF87AB57AD78F4C48DFABBEDEF0664FE9A3926A0 + 844C1D539C6368985B060203DE2772515C7C5A5B87260E10C5C5C9A6B365485D + A8F28BAF2D2151535D00AB7D0A7CEC545014851783BDE8B298F0E8E133442CC8 + 275C2EDFF84AF4796711A6CB2C98153722F9EBCBC260D87E0486845024C445A3 + C1D882D90933209791B03CB5E2FAA51A7883356AF728ED1833038EA1C0D2B464 + CBCA4DF82ADE88DFEA38FC7E4F89FD3FEDC40CBD017A5D14144124B67C7700B9 + D91998191B83510F85271D3DB872F34E55778F63E33B016F8AE7179A31DCDF89 + B8995AECDBA54357BF0A4E7605D23E4B0429974146C8B0A3F810B23317214E37 + 0D1E2F030FC5A0F1AE197537EE190296C879281BB1FA4454EC8D927AD1D01A8F + E494358852878313E62A150A14951C468E210DBA182DDC5E1A3E8A469FDD8963 + 672EFDF216E0CDC8A59541BFB2CC3FB6CE92862F172F836A5230E4A41CCFBB6D + F87E6F059212E3B128651E5C6EAF50360554612A549DAA35F9017985FA80E2E2 + FFBAF6742CC9C8C264651094CA60DC6834E1CC1F37E17A318A984F22E1F151D0 + 6AD458929E8AAA93B5CD7EC0AA0DB168BC680CB89BFF1C9A8F8CA5F9981A1E2A + F95E9FB084CD8F11A989408C5603AF501EF15B77DF002A8F9F3FE60758CC4DE3 + 3A8BD8C93A24676EC5C2B9B3C45D22F401082249A9EE6E8F0F0CCB8362183408 + 99D55EB896E53FAE2BCB37F1D567AF0704107212D33E5D8ADCD5F9D0456BA49B + 8B6538709C28CC8211DEDB9F75A2E642FD89DEEEBE8209DFC91B7F388A910147 + 54982AB45C686C5EBC2E5AEA05CB71181A7909CBE30E3436351FB7F53B76122C + 6B7F2FC0A87310AE971E05182E6B52A832372424640E4D33BC7370B8CD61739E + F3B0D4658582A458AF0F7F0103967A78C20D9F140000000049454E44AE426082} + Name = 'PngImage0' + Background = clWindow + end> + Left = 232 + Top = 16 + Bitmap = {} + end + object ModuleActionList: TActionList + Images = LargeImages + Left = 40 + Top = 72 + object actMargenArticulo: TAction + Category = 'Informes' + Caption = 'Margen articulo' + ImageIndex = 0 + OnExecute = actMargenArticuloExecute + end + end + object MainMenu: TMainMenu + Images = LargeImages + Left = 40 + Top = 16 + object HistoricoMovimientos1: TMenuItem + Caption = 'Informes' + object N1: TMenuItem + Tag = 889 + Caption = '-' + end + end + end + object SmallImages: TPngImageList + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD2520000016C4944415478DA + 63FCFFFF3F0325809114C53F0C18C0B6715C40E823DA009066D6A85C86DFCB26 + 332CBAC0C09006D54B9401276630FC7FA27489E1CDA5A50C4C259D6031B80173 + 7A72F006820ECF14063D9F290C2F6F6D635878C88C41AAA18181A927072C9752 + 3285116C404C8E0E56CD171664C0358370488B0CC3C563090C7F7FFD60686FDC + CFA0AD6FC90037C06381038AE60E060D0CCD2A357B1856B9CC61387BFC3EC3AE + 5D0F182EDDFCC680D505F86C06E10B679F631A00734104EB690683DFB10CE26A + 5E2836C3C062B34E862B573FE176C182A5DC0C09B1910C17E6B180359F3F1C03 + B7F9DFEF9F60FAFAED5FB85D70A7C5056E18B2E64B175EA37813AB0BC08A7F42 + 34FC816A84D90C72B663A82BC3CB4B4718264CBECE5090ABC99094731661003E + CD30676BA973C2357389483344446C82181099A6C27068E361822912E46C9866 + 566E3E8660DF251003AE5E3C4E547E40D6CCC12FCCE06D3711929E41862C5FB5 + 972843D0010013390BFAA171B8130000000049454E44AE426082} + Name = 'PngImage0' + Background = clWindow + end> + PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] + Left = 308 + Top = 16 + Bitmap = {} + end + object ExtraImages: TPngImageList + Height = 28 + Width = 28 + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF + 940000000970485973000017120000171201679FD25200000A4D694343505068 + 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF + F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A + 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 + 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 + 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC + 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 + C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 + 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 + 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C + CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 + 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 + 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F + 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA + 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED + 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 + FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A + F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 + 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 + 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 + 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C + 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 + 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 + 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA + 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F + 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 + 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 + 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 + 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 + 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 + 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 + A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 + 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 + 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 + 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 + 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 + 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 + 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 + EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C + 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED + EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB + 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 + 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 + 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 + 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 + A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 + 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 + D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B + 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 + 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD + D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 + C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E + 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B + FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 + 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 + 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 + 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 + BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 + F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC + A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 + 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA + 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C + 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 + F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 + DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 + 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 + A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 + 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 + EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E + CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 + 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD + 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF + B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C + 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD + EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 + E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 + 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F + EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 + EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 + FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 + CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 + ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC + CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F + F73EE77CFEFC2FF784F3FB25D29F33000004D04944415478DAB5D67B4C53571C + 07F0EFAD158421EF47784C1E6188802E76EAC6985308CCB82D03C6080B6AE644 + 890B2EC384FDB1C581D9D823664BF6874B868A5930640C2C3E46DC446860C196 + 0DCA73C884858A3C4691475B2B8F7B7BEFDD39B7D06120F2189CA43DBDCDE9F9 + DCDFEF9CDFB965445104C330588B56EC2C13697FC024D80066AD408ABD7D2A0B + B2DE4BD0280D787108CC9A81140B7614109DE20AA80DE89C7245F380498A74D5 + C1CB2505E24B7B13D176200009631609A3EDCEE843340EF3AB1BE1ADA21C91F3 + 8C839F9F1FC60D0F60CA7E055E43D232E2FA10F015C9E8AA81353F1C1777C547 + 41D6DF889FEEEEC5A6407F180D8FC09C4E86A64594303A6E55C0B9D830678660 + 99864A970C9665919F9F8FFEFEFED5DBA50B61067D1FA60C2D782B3FE031CC06 + 167EF3BEB8122CD4D3822761A7B393A4714773CE32F3C08327A29685D597B4D8 + 30FDB411023F0DE3F0A00DD3AA52C90D7038F3A50691CF46DBD015814BC55AB4 + FFA0B2F21EDAEE4EA0FA8FCE95814BC5040B8BB6D6D1A581DFDE787D41EC0553 + FE3C6C543F8E9E1139CA1A15D8B23301DEF63AC819139E761B85601E80AAEAEF + 9547F8595E1538311159AF954B589BCE057DE23E04856C85AFB707C60C26B838 + 3B616A9A436FBF1E5DDD7F62ACAB0A7FB5752E1FBC7AA11EED7D6628C85D37B9 + 9E44F8A63AD807A4226A73081C37D8C16EBD1CEF7EF0053E3E79183E5E1E304F + 4CC1649E44736B276A6F2A71BDBC7879297DF87B36725EB6834ED58946B902EE + 7B32B03D2A145EEE1B41E7B0F002D28EE522EFC30CF8FB7A83E5784C9248C78D + 66D437B6A3A9BDEB9DCB05A78A168D5014785CBBD88006752DB214C1D0DE17A0 + 0BCBC01BAFC6C3DFDB558A8CE3797004483DFA8915F4F321D716820A0465313C + 62C4D55F6A06FA07C6229E08528CEEB8F4C36AF4747722D04B847F642C12538E + 4011190CD78D8ED20969B108E02C0B83F47B0389B2B5A35BFC55557F6449292D + CEDB8FE0B048A4C76E80D95981E7762622D0D703EBE57209140481A03CD232F3 + 909B9381003F6B4A598B35F2C9291683FA319C2B52962C08CE46C673ACB56727 + 2170D6DA2AAD8BC0EEE87DF0F771C53A994C1A2F90392A6EA971B65009C5B670 + A425C54B91D1751578111E9EEE181A1E4361F115CD3C904ECACF4C3E5BC0C29C + EBB2DB518889DE4FCAC0053219233D7328987BA6104E4F39E23775339C49AAC9 + 57A00734CD42F67B873041A22CBC545EFF18B818467BA53A183B76A5C2974428 + 9F89904E7EA7FB1E4AAF5563FBD6CD88DBBDC3B6AE1CE9695D0E0C8DE0BBF325 + A53630FD78D8A218ED1BBADDC03AA690FA0B92EA4F5A431A0D79E3C95AF2022D + 115E02694A67374D737B97F8F30DD5311B9896118CBA0AF5A2A70D2BD8413B1C + 8784D83D707371827C9D8CA44E241B876E9E1994B7BE389E46C7423F328E52E5 + 4DBDAE47176E033B5A354B3ABC699B727806913187B02D22545A2F869149C54F + 414102AD07C134CB6164DC004D431B6AEB1A339B2A0BCEDB9EF817BE3E21FE58 + 5ABD64D439E879C42424212A3C144E8EF6D612218DA69496C4A3894972B44D40 + DBDC014DF515DCAEA9F8EF685B4E9BFB77E4CDCC4F337D3CDD3FDF1216E211E0 + EB4D02652490632DE8E91D10B52D1D0F74F7073F6AAEFCFEA2EDF7FF07A42DF9 + 609EF784C0A6928FB10E0EF6811C278806A3B1979DE654C2A4A54C5B7B6E64EE + F87F01D93AAAB3863CD3F20000000049454E44AE426082} + Name = 'PngImage0' + Background = clWindow + end> + Left = 232 + Top = 80 + Bitmap = {} + end +end diff --git a/Source/Modulos/Informe margen por articulo/Plugin/uPluginInfMargenArticulo.pas b/Source/Modulos/Informe margen por articulo/Plugin/uPluginInfMargenArticulo.pas new file mode 100644 index 00000000..42f8316c --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Plugin/uPluginInfMargenArticulo.pas @@ -0,0 +1,78 @@ +unit uPluginInfMargenArticulo; + +interface + +uses + uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList, + ImgList, Controls, PngImageList; + +type + IMCInfMargenArticulo = interface(IInterface) + ['{6AB7F54B-AEAD-4317-907C-B54758666AB8}'] + end; + + TPluginInfMargenArticulo = class(TModuleController, IMCInfMargenArticulo) + actMargenArticulo: TAction; + ExtraImages: TPngImageList; + LargeImages: TPngImageList; + MainMenu: TMainMenu; + ModuleActionList: TActionList; + SmallImages: TPngImageList; + HistoricoMovimientos1: TMenuItem; + N1: TMenuItem; + procedure actMargenArticuloExecute(Sender: TObject); + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + end; + +implementation + +{$R *.dfm} + +uses + Forms, Dialogs, SysUtils, + uInfMargenArticuloController, uBizInfMargenArticulo, + uInfMargenArticuloViewRegister, uInfMargenArticuloInformeRegister; + +function GetModule : TModuleController; +begin + Result := TPluginInfMargenArticulo.Create(NIL); +end; + +exports + GetModule name GET_MODULE_FUNC; + +procedure TPluginInfMargenArticulo.actMargenArticuloExecute(Sender: TObject); +var + AInfMargenArticuloController : IInfMargenArticuloController; + AInfMargenArticulo : IBizInfMargenArticulo; + +begin +//showmessage('Hola'); +// AInfMargenArticuloController := TInfMargenArticuloController.Create; +// AInfMargenArticulo := (AInfMargenArticuloController.BuscarTodos as IBizInfMargenArticulo); +// AInfMargenArticuloController.Ver; //(AInfMargenArticulo); +end; + +constructor TPluginInfMargenArticulo.Create(AOwner: TComponent); +begin + inherited; + uInfMargenArticuloInformeRegister.RegisterInformes; + uInfMargenArticuloViewRegister.RegisterViews; +end; + +destructor TPluginInfMargenArticulo.Destroy; +begin + uInfMargenArticuloInformeRegister.UnRegisterInformes; + uInfMargenArticuloViewRegister.UnregisterViews; + inherited; +end; + +initialization + RegisterModuleClass(TPluginInfMargenArticulo); + +finalization + UnRegisterModuleClass(TPluginInfMargenArticulo); + +end. diff --git a/Source/Modulos/Informe margen por articulo/Servidor/srvInfMargenArticulo_Impl.dfm b/Source/Modulos/Informe margen por articulo/Servidor/srvInfMargenArticulo_Impl.dfm new file mode 100644 index 00000000..9486245f --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Servidor/srvInfMargenArticulo_Impl.dfm @@ -0,0 +1,1301 @@ +object srvInfMargenArticulo: TsrvInfMargenArticulo + OldCreateOrder = True + SessionManager = dmServer.SessionManager + AcquireConnection = True + ServiceSchema = schInfMargenArticulo + ServiceAdapter = DABINAdapter + Height = 297 + Width = 298 + object schInfMargenArticulo: TDASchema + ConnectionManager = dmServer.ConnectionManager + DataDictionary = DataDictionary + Datasets = < + item + Params = < + item + Name = 'FECHAINI' + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end + item + Name = 'FECHAFIN' + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'V_INF_MARGEN_VENTAS_ARTICULOS' + SQL = + 'SELECT'#10' ID_FACTURA,'#10' ID_EMPRESA,'#10' REFERENCIA_FACTURA,'#10' ' + + ' FECHA_FACTURA,'#10' IMPORTE_TOTAL_FACTURA,'#10' ID_COMISION_FAC' + + 'TURA,'#10' '#10' ID_ARTICULO,'#10' FAMILIA,'#10' REFERENCIA,'#10' REF' + + 'ERENCIA_PROV,'#10' DESCRIPCION,'#10' COMISIONABLE,'#10' INVENTARIAB' + + 'LE,'#10#10' IMPORTE_UNIDAD_COSTE,'#10' DESCUENTO_PROVEEDOR_COSTE,'#10' ' + + ' IMPORTE_NETO_COSTE,'#10' IMPORTE_PORTE_COSTE,'#10#10' IMPORTE_UNID' + + 'AD_ULTIMA_COMPRA,'#10' IMPORTE_NETO_ULTIMA_COMPRA,'#10' IMPORTE_PO' + + 'RTE_ULTIMA_COMPRA,'#10#10' IMPORTE_UNIDAD_PROMEDIO_COMPRA,'#10' IMPO' + + 'RTE_NETO_PROMEDIO_COMPRA,'#10' IMPORTE_PORTE_PROMEDIO_COMPRA,'#10#10' ' + + ' CANTIDAD,'#10' IMPORTE_UNIDAD_VENTA,'#10' DESCUENTO_CLIENTE_VENT' + + 'A,'#10' IMPORTE_NETO_VENTA,'#10' IMPORTE_PORTE_VENTA,'#10' IMPORTE_' + + 'TOTAL_VENTA,'#10#10' IMPORTE_MARGEN_COSTE,'#10' PORCENTAJE_MARGEN_CO' + + 'STE,'#10#10' IMPORTE_MARGEN_ULT_COMPRA,'#10' PORCENTAJE_MARGEN_ULT_C' + + 'OMPRA,'#10#10' IMPORTE_MARGEN_PROM_COMPRA,'#10' PORCENTAJE_MARGEN_PR' + + 'OM_COMPRA,'#10#10' NIF_CIF_PROVEEDOR,'#10' NOMBRE_PROVEEDOR,'#10' CAL' + + 'LE_PROVEEDOR,'#10' POBLACION_PROVEEDOR,'#10' PROVINCIA_PROVEEDOR,'#10 + + #10' NIF_CIF_CLIENTE,'#10' NOMBRE_CLIENTE,'#10' NOMBRE_COMERCIAL_C' + + 'LIENTE,'#10' CALLE_CLIENTE,'#10' POBLACION_CLIENTE,'#10' PROVINCIA_' + + 'CLIENTE,'#10#10' NIF_CIF_AGENTE,'#10' NOMBRE_AGENTE,'#10' CALLE_AGENT' + + 'E,'#10' POBLACION_AGENTE,'#10' PROVINCIA_AGENTE,'#10' COMISION_AGEN' + + 'TE,'#10' IMPORTE_COMISION_AGENTE'#10' '#10'FROM V_INF_MARGEN_VENTAS_AR' + + 'TICULOS'#10'WHERE FECHA_FACTURA BETWEEN :FECHAINI AND :FECHAFIN' + StatementType = stSQL + ColumnMappings = < + item + DatasetField = 'ID_FACTURA' + TableField = 'ID_FACTURA' + end + item + DatasetField = 'FECHA_FACTURA' + TableField = 'FECHA_FACTURA' + end + item + DatasetField = 'IMPORTE_TOTAL_FACTURA' + TableField = 'IMPORTE_TOTAL_FACTURA' + end + item + DatasetField = 'ID_COMISION_FACTURA' + TableField = 'ID_COMISION_FACTURA' + end + item + DatasetField = 'ID_ARTICULO' + TableField = 'ID_ARTICULO' + end + item + DatasetField = 'FAMILIA' + TableField = 'FAMILIA' + end + item + DatasetField = 'REFERENCIA' + TableField = 'REFERENCIA' + end + item + DatasetField = 'REFERENCIA_PROV' + TableField = 'REFERENCIA_PROV' + end + item + DatasetField = 'DESCRIPCION' + TableField = 'DESCRIPCION' + end + item + DatasetField = 'COMISIONABLE' + TableField = 'COMISIONABLE' + end + item + DatasetField = 'INVENTARIABLE' + TableField = 'INVENTARIABLE' + end + item + DatasetField = 'CANTIDAD' + TableField = 'CANTIDAD' + end + item + DatasetField = 'NIF_CIF_PROVEEDOR' + TableField = 'NIF_CIF_PROVEEDOR' + end + item + DatasetField = 'NOMBRE_PROVEEDOR' + TableField = 'NOMBRE_PROVEEDOR' + end + item + DatasetField = 'CALLE_PROVEEDOR' + TableField = 'CALLE_PROVEEDOR' + end + item + DatasetField = 'POBLACION_PROVEEDOR' + TableField = 'POBLACION_PROVEEDOR' + end + item + DatasetField = 'PROVINCIA_PROVEEDOR' + TableField = 'PROVINCIA_PROVEEDOR' + end + item + DatasetField = 'NIF_CIF_CLIENTE' + TableField = 'NIF_CIF_CLIENTE' + end + item + DatasetField = 'NOMBRE_CLIENTE' + TableField = 'NOMBRE_CLIENTE' + end + item + DatasetField = 'NOMBRE_COMERCIAL_CLIENTE' + TableField = 'NOMBRE_COMERCIAL_CLIENTE' + end + item + DatasetField = 'CALLE_CLIENTE' + TableField = 'CALLE_CLIENTE' + end + item + DatasetField = 'POBLACION_CLIENTE' + TableField = 'POBLACION_CLIENTE' + end + item + DatasetField = 'PROVINCIA_CLIENTE' + TableField = 'PROVINCIA_CLIENTE' + end + item + DatasetField = 'NIF_CIF_AGENTE' + TableField = 'NIF_CIF_AGENTE' + end + item + DatasetField = 'NOMBRE_AGENTE' + TableField = 'NOMBRE_AGENTE' + end + item + DatasetField = 'CALLE_AGENTE' + TableField = 'CALLE_AGENTE' + end + item + DatasetField = 'POBLACION_AGENTE' + TableField = 'POBLACION_AGENTE' + end + item + DatasetField = 'PROVINCIA_AGENTE' + TableField = 'PROVINCIA_AGENTE' + end + item + DatasetField = 'COMISION_AGENTE' + TableField = 'COMISION_AGENTE' + end + item + DatasetField = 'IMPORTE_COMISION_AGENTE' + TableField = 'IMPORTE_COMISION_AGENTE' + end + item + DatasetField = 'ID_EMPRESA' + TableField = 'ID_EMPRESA' + end + item + DatasetField = 'REFERENCIA_FACTURA' + TableField = 'REFERENCIA_FACTURA' + end + item + DatasetField = 'IMPORTE_UNIDAD_COSTE' + TableField = 'IMPORTE_UNIDAD_COSTE' + end + item + DatasetField = 'DESCUENTO_PROVEEDOR_COSTE' + TableField = 'DESCUENTO_PROVEEDOR_COSTE' + end + item + DatasetField = 'IMPORTE_NETO_COSTE' + TableField = 'IMPORTE_NETO_COSTE' + end + item + DatasetField = 'IMPORTE_PORTE_COSTE' + TableField = 'IMPORTE_PORTE_COSTE' + end + item + DatasetField = 'IMPORTE_UNIDAD_VENTA' + TableField = 'IMPORTE_UNIDAD_VENTA' + end + item + DatasetField = 'DESCUENTO_CLIENTE_VENTA' + TableField = 'DESCUENTO_CLIENTE_VENTA' + end + item + DatasetField = 'IMPORTE_NETO_VENTA' + TableField = 'IMPORTE_NETO_VENTA' + end + item + DatasetField = 'IMPORTE_PORTE_VENTA' + TableField = 'IMPORTE_PORTE_VENTA' + end + item + DatasetField = 'IMPORTE_TOTAL_VENTA' + TableField = 'IMPORTE_TOTAL_VENTA' + end + item + DatasetField = 'IMPORTE_UNIDAD_ULTIMA_COMPRA' + TableField = 'IMPORTE_UNIDAD_ULTIMA_COMPRA' + end + item + DatasetField = 'IMPORTE_NETO_ULTIMA_COMPRA' + TableField = 'IMPORTE_NETO_ULTIMA_COMPRA' + end + item + DatasetField = 'IMPORTE_PORTE_ULTIMA_COMPRA' + TableField = 'IMPORTE_PORTE_ULTIMA_COMPRA' + end + item + DatasetField = 'IMPORTE_UNIDAD_PROMEDIO_COMPRA' + TableField = 'IMPORTE_UNIDAD_PROMEDIO_COMPRA' + end + item + DatasetField = 'IMPORTE_NETO_PROMEDIO_COMPRA' + TableField = 'IMPORTE_NETO_PROMEDIO_COMPRA' + end + item + DatasetField = 'IMPORTE_PORTE_PROMEDIO_COMPRA' + TableField = 'IMPORTE_PORTE_PROMEDIO_COMPRA' + end + item + DatasetField = 'IMPORTE_MARGEN_COSTE' + TableField = 'IMPORTE_MARGEN_COSTE' + end + item + DatasetField = 'PORCENTAJE_MARGEN_COSTE' + TableField = 'PORCENTAJE_MARGEN_COSTE' + end + item + DatasetField = 'IMPORTE_MARGEN_ULT_COMPRA' + TableField = 'IMPORTE_MARGEN_ULT_COMPRA' + end + item + DatasetField = 'PORCENTAJE_MARGEN_ULT_COMPRA' + TableField = 'PORCENTAJE_MARGEN_ULT_COMPRA' + end + item + DatasetField = 'IMPORTE_MARGEN_PROM_COMPRA' + TableField = 'IMPORTE_MARGEN_PROM_COMPRA' + end + item + DatasetField = 'PORCENTAJE_MARGEN_PROM_COMPRA' + TableField = 'PORCENTAJE_MARGEN_PROM_COMPRA' + end> + end> + Name = 'InfMargenArticulo' + Fields = < + item + Name = 'ID_FACTURA' + DataType = datInteger + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_ID_FACTURA' + InPrimaryKey = True + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_ID_EMPRESA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA_FACTURA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_REFERENCIA_FACTURA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_FACTURA' + DataType = datDateTime + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_FECHA_FACTURA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_TOTAL_FACTURA' + DataType = datCurrency + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_IMPORTE_TOTAL_FACTURA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_COMISION_FACTURA' + DataType = datInteger + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_ID_COMISION_FACTURA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_ARTICULO' + DataType = datInteger + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_ID_ARTICULO' + InPrimaryKey = True + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FAMILIA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_FAMILIA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_REFERENCIA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA_PROV' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_REFERENCIA_PROV' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'DESCRIPCION' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_DESCRIPCION' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'COMISIONABLE' + DataType = datInteger + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_COMISIONABLE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'INVENTARIABLE' + DataType = datInteger + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_INVENTARIABLE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_UNIDAD_COSTE' + DataType = datCurrency + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_PRECIO_COSTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'DESCUENTO_PROVEEDOR_COSTE' + DataType = datFloat + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_DESCUENTO_PROVEEDOR' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_NETO_COSTE' + DataType = datCurrency + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_PRECIO_NETO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_PORTE_COSTE' + DataType = datCurrency + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_PRECIO_PORTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_UNIDAD_ULTIMA_COMPRA' + DataType = datCurrency + BlobType = dabtUnknown + DictionaryEntry = 'InfMargenArticulo_IMPORTE_UNIDAD_ULTIMA_COMPRA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_NETO_ULTIMA_COMPRA' + DataType = datCurrency + BlobType = dabtUnknown + DictionaryEntry = 'InfMargenArticulo_IMPORTE_NETO_ULTIMA_COMPRA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_PORTE_ULTIMA_COMPRA' + DataType = datCurrency + BlobType = dabtUnknown + DictionaryEntry = 'InfMargenArticulo_IMPORTE_PORTE_ULTIMA_COMPRA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_UNIDAD_PROMEDIO_COMPRA' + DataType = datCurrency + BlobType = dabtUnknown + DictionaryEntry = 'InfMargenArticulo_IMPORTE_UNIDAD_PROMEDIO_COMPRA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_NETO_PROMEDIO_COMPRA' + DataType = datCurrency + BlobType = dabtUnknown + DictionaryEntry = 'InfMargenArticulo_IMPORTE_NETO_PROMEDIO_COMPRA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_PORTE_PROMEDIO_COMPRA' + DataType = datCurrency + BlobType = dabtUnknown + DictionaryEntry = 'InfMargenArticulo_IMPORTE_PORTE_PROMEDIO_COMPRA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CANTIDAD' + DataType = datInteger + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_CANTIDAD' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_UNIDAD_VENTA' + DataType = datCurrency + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_IMPORTE_UNIDAD' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'DESCUENTO_CLIENTE_VENTA' + DataType = datFloat + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_DESCUENTO_CLIENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_NETO_VENTA' + DataType = datCurrency + BlobType = dabtUnknown + DictionaryEntry = 'InfMargenArticulo_IMPORTE_NETO_VENTA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_PORTE_VENTA' + DataType = datFloat + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_IMPORTE_PORTE_VENTA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_TOTAL_VENTA' + DataType = datCurrency + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_IMPORTE_TOTAL' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_MARGEN_COSTE' + DataType = datCurrency + BlobType = dabtUnknown + DictionaryEntry = 'InfMargenArticulo_IMPORTE_MARGEN_COSTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'PORCENTAJE_MARGEN_COSTE' + DataType = datFloat + BlobType = dabtUnknown + DictionaryEntry = 'InfMargenArticulo_PORCENTAJE_MARGEN_COSTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_MARGEN_ULT_COMPRA' + DataType = datCurrency + BlobType = dabtUnknown + DictionaryEntry = 'InfMargenArticulo_IMPORTE_MARGEN_ULT_COMPRA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'PORCENTAJE_MARGEN_ULT_COMPRA' + DataType = datFloat + BlobType = dabtUnknown + DictionaryEntry = 'InfMargenArticulo_PORCENTAJE_MARGEN_ULT_COMPRA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_MARGEN_PROM_COMPRA' + DataType = datCurrency + BlobType = dabtUnknown + DictionaryEntry = 'InfMargenArticulo_IMPORTE_MARGEN_PROM_COMPRA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'PORCENTAJE_MARGEN_PROM_COMPRA' + DataType = datFloat + BlobType = dabtUnknown + DictionaryEntry = 'InfMargenArticulo_PORCENTAJE_MARGEN_PROM_COMPRA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NIF_CIF_PROVEEDOR' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_NIF_CIF_PROVEEDOR' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NOMBRE_PROVEEDOR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_NOMBRE_PROVEEDOR' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CALLE_PROVEEDOR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_CALLE_PROVEEDOR' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'POBLACION_PROVEEDOR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_POBLACION_PROVEEDOR' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'PROVINCIA_PROVEEDOR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_PROVINCIA_PROVEEDOR' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NIF_CIF_CLIENTE' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_NIF_CIF_CLIENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NOMBRE_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_NOMBRE_CLIENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NOMBRE_COMERCIAL_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_NOMBRE_COMERCIAL_CLIENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CALLE_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_CALLE_CLIENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'POBLACION_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_POBLACION_CLIENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'PROVINCIA_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_PROVINCIA_CLIENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NIF_CIF_AGENTE' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_NIF_CIF_AGENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NOMBRE_AGENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_NOMBRE_AGENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CALLE_AGENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_CALLE_AGENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'POBLACION_AGENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_POBLACION_AGENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'PROVINCIA_AGENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_PROVINCIA_AGENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'COMISION_AGENTE' + DataType = datFloat + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_COMISION_AGENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_COMISION_AGENTE' + DataType = datCurrency + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_IMPORTE_COMISION_AGENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end> + BusinessRulesClient.ScriptLanguage = rslPascalScript + BusinessRulesServer.ScriptLanguage = rslPascalScript + end> + Commands = <> + RelationShips = <> + UpdateRules = <> + Left = 56 + Top = 32 + end + object DABINAdapter: TDABINAdapter + Left = 56 + Top = 96 + end + object DataDictionary: TDADataDictionary + Fields = < + item + Name = 'InfVentasArticulo_ID_FACTURA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Id factura' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_ID_EMPRESA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Id empresa' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_REFERENCIA_FACTURA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Ref. factura' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_FECHA_FACTURA' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Fecha factura' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_IMPORTE_TOTAL_FACTURA' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Importe factura' + Alignment = taRightJustify + end + item + Name = 'InfVentasArticulo_ID_COMISION_FACTURA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Id comision factura' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_ID_ARTICULO' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Id art'#237'culo' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_FAMILIA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Familia' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_REFERENCIA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Referencia' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_REFERENCIA_PROV' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Ref. proveedor' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_DESCRIPCION' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Descripci'#243'n' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_COMISIONABLE' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Comisionable' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_INVENTARIABLE' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Inventariable' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_PRECIO_COSTE' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Precio coste' + Alignment = taRightJustify + end + item + Name = 'InfVentasArticulo_DESCUENTO_PROVEEDOR' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Descuento prov.' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_PRECIO_NETO' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Precio neto' + Alignment = taRightJustify + end + item + Name = 'InfVentasArticulo_PRECIO_PORTE' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Precio porte' + Alignment = taRightJustify + end + item + Name = 'InfVentasArticulo_CANTIDAD' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Cantidad' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_IMPORTE_UNIDAD' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Importe unidad' + Alignment = taRightJustify + end + item + Name = 'InfVentasArticulo_DESCUENTO_CLIENTE' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Descuento cli.' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_IMPORTE_TOTAL' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Importe total' + Alignment = taRightJustify + end + item + Name = 'InfVentasArticulo_NIF_CIF_PROVEEDOR' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'NIF/CIF prov.' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_NOMBRE_PROVEEDOR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Proveedor' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_CALLE_PROVEEDOR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Calle prov.' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_POBLACION_PROVEEDOR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Poblaci'#243'n prov.' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_PROVINCIA_PROVEEDOR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Provincia prov.' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_NIF_CIF_CLIENTE' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'NIF/CIF cli.' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_NOMBRE_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Cliente' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_NOMBRE_COMERCIAL_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Nombre comercial' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_CALLE_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Calle cli.' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_POBLACION_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Poblaci'#243'n cli.' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_PROVINCIA_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Provincia cli.' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_NIF_CIF_AGENTE' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'NIF/CIF agente' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_NOMBRE_AGENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Agente' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_CALLE_AGENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Calle agente' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_POBLACION_AGENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Poblaci'#243'n agente' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_PROVINCIA_AGENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Provincia agente' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_COMISION_AGENTE' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Comisi'#243'n' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_IMPORTE_COMISION_AGENTE' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Importe comisi'#243'n' + Alignment = taRightJustify + end + item + Name = 'InfVentasArticulo_IMPORTE_NETO_VENTA' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'IMPORTE_NETO_VENTA' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_IMPORTE_PORTE_VENTA' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'IMPORTE_PORTE_VENTA' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_IMPORTE_TOTAL_VENTA' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'IMPORTE_TOTAL_VENTA' + Alignment = taLeftJustify + end + item + Name = 'InfMargenArticulo_IMPORTE_UNIDAD_ULTIMA_COMPRA' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Precio coste '#250'ltima compra' + Alignment = taRightJustify + end + item + Name = 'InfMargenArticulo_IMPORTE_NETO_ULTIMA_COMPRA' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Precio neto ultima compra' + Alignment = taRightJustify + end + item + Name = 'InfMargenArticulo_IMPORTE_PORTE_ULTIMA_COMPRA' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Precio porte '#250'ltima compra' + Alignment = taRightJustify + end + item + Name = 'InfMargenArticulo_IMPORTE_UNIDAD_PROMEDIO_COMPRA' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Precio coste promedio ' + Alignment = taRightJustify + end + item + Name = 'InfMargenArticulo_IMPORTE_NETO_PROMEDIO_COMPRA' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Precio neto promedio' + Alignment = taRightJustify + end + item + Name = 'InfMargenArticulo_IMPORTE_PORTE_PROMEDIO_COMPRA' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Precio porte promedio' + Alignment = taRightJustify + end + item + Name = 'InfMargenArticulo_IMPORTE_NETO_VENTA' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Importe neto venta' + Alignment = taRightJustify + end + item + Name = 'InfMargenArticulo_IMPORTE_MARGEN_COSTE' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Margen coste' + Alignment = taRightJustify + end + item + Name = 'InfMargenArticulo_PORCENTAJE_MARGEN_COSTE' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = '% margen coste' + Alignment = taRightJustify + end + item + Name = 'InfMargenArticulo_IMPORTE_MARGEN_ULT_COMPRA' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Margen '#250'ltima compra' + Alignment = taRightJustify + end + item + Name = 'InfMargenArticulo_PORCENTAJE_MARGEN_ULT_COMPRA' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = '% '#250'ltima compra' + Alignment = taRightJustify + end + item + Name = 'InfMargenArticulo_IMPORTE_MARGEN_PROM_COMPRA' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Margen promedio' + Alignment = taRightJustify + end + item + Name = 'InfMargenArticulo_PORCENTAJE_MARGEN_PROM_COMPRA' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = '% margen promedio' + Alignment = taRightJustify + end> + Left = 54 + Top = 158 + end +end diff --git a/Source/Modulos/Informe margen por articulo/Servidor/srvInfMargenArticulo_Impl.pas b/Source/Modulos/Informe margen por articulo/Servidor/srvInfMargenArticulo_Impl.pas new file mode 100644 index 00000000..5b15e9eb --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Servidor/srvInfMargenArticulo_Impl.pas @@ -0,0 +1,115 @@ +unit srvInfMargenArticulo_Impl; + +{----------------------------------------------------------------------------} +{ This unit was automatically generated by the RemObjects SDK after reading } +{ the RODL file associated with this project . } +{ } +{ This is where you are supposed to code the implementation of your objects. } +{----------------------------------------------------------------------------} + +interface + +uses + {vcl:} Classes, SysUtils, + {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, + {Ancestor Implementation:} DARemoteService_Impl, + {Used RODLs:} DataAbstract_Intf, + {Generated:} FactuGES_Intf, uDAClasses, + uDataModuleServer, uDAInterfaces, uDADataTable, uDABINAdapter; + +type + { TsrvInfMargenArticulo } + TsrvInfMargenArticulo = class(TDARemoteService, IsrvInfMargenArticulo) + DABINAdapter: TDABINAdapter; + schInfMargenArticulo: TDASchema; + DataDictionary: TDADataDictionary; + private + protected + { IsrvInfMargenArticulo methods } + function GetData(const DatasetName: String; const MaxRecords: Integer; const Columns: String; const Params: TDADatasetParamArray): Binary; + function GetSchema(const DatasetName: String; const Columns: String): Binary; + end; + +implementation + +{$R *.dfm} +uses + {Generated:} FactuGES_Invk, uSchemaUtilsServer, dialogs; + +const + CAMPOS_SUMA = '#IMPORTE_TOTAL_FACTURA#PRECIO_COSTE#PRECIO_NETO#PRECIO_PORTE#CANTIDAD#IMPORTE_UNIDAD#IMPORTE_PORTE#IMPORTE_TOTAL#IMPORTE_COMISION_AGENTE#'; + +procedure Create_srv_InfMargenArticulo(out anInstance : IUnknown); +begin + anInstance := TsrvInfMargenArticulo.Create(NIL); +end; + +{ srvInfMargenArticulo } + +function TsrvInfMargenArticulo.GetData(const DatasetName: String; + const MaxRecords: Integer; const Columns: String; + const Params: TDADatasetParamArray): TROBinaryMemoryStream; +var + ds : IDADataset; + i : integer; +begin + result := Binary.Create; + try + { Prepares the parameter arrays} + + with TReplicarDataSet.Create do + begin + SourceDataSetName := DatasetName; + Service := Self; + Columnas := Columns; + ColumnasQueSuman := CAMPOS_SUMA; + try + ds := GetNewDataSet; + finally + Free; + end; + end; + + for i := 0 to (Params.Count-1) do + ds.ParamByName(Params[i].Name).Value := Params[i].Value; + + ds.Open; + ServiceAdapter.WriteDataset(Result, ds, [woRows], MaxRecords); + except + FreeAndNIl(result); + raise; + end; +end; + +function TsrvInfMargenArticulo.GetSchema(const DatasetName: String; const Columns: String): TROBinaryMemoryStream; +var + ds : IDADataset; +begin + result := Binary.Create; + try + with TReplicarDataSet.Create do + begin + SourceDataSetName := DatasetName; + Service := Self; + Columnas := Columns; + ColumnasQueSuman := CAMPOS_SUMA; + try + ds := GetNewDataSet; + finally + Free; + end; + end; + ServiceAdapter.WriteDataset(result, ds, [woSchema]); + except + FreeAndNIl(result); + raise; + end; +end; + + +initialization + TROClassFactory.Create('srvInfMargenArticulo', Create_srv_InfMargenArticulo, TsrvInfMargenArticulo_Invoker); + +finalization + +end. diff --git a/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.bdsproj b/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.bdsproj new file mode 100644 index 00000000..1ecb27d2 --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.bdsproj @@ -0,0 +1,499 @@ + + + + + + + + + + + + InfMargenArticulo_view.dpk + + + 7.0 + + + 8 + 0 + 1 + 1 + 0 + 0 + 1 + 1 + 1 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + 0 + 0 + 0 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + True + True + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + False + False + False + True + True + True + True + True + True + + + + 3 + 0 + False + 1 + False + False + False + 16384 + 1048576 + 4194304 + + + + + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + + + + False + + + + + + False + + + True + False + + + + $00000000 + + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + + + + + RemObjects Pascal Script - RemObjects SDK 3.0 Integration + + + + diff --git a/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.dpk b/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.dpk new file mode 100644 index 00000000..8b85bca6 --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.dpk @@ -0,0 +1,79 @@ +package InfMargenArticulo_view; + +{$R *.res} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$IMPLICITBUILD OFF} + +requires + rtl, + vcl, + dbrtl, + cxLibraryD10, + dxThemeD10, + cxEditorsD10, + cxDataD10, + vcljpg, + vcldb, + cxGridD10, + cxPageControlD10, + cxExtEditorsD10, + vclx, + cxExportD10, + dxPSCoreD10, + dxComnD10, + dxPScxCommonD10, + dxPSLnksD10, + designide, + xmlrtl, + vclactnband, + vclshlctrls, + dxPScxGridLnkD10, + dclcxLibraryD10, + dsnap, + adortl, + InformesBase_view, + tbx_d10, + tb2k_d10, + PngComponentsD10, + PNG_D10, + GUISDK_D10, + ccpack10, + cfpack_d10, + JvAppFrmD10R, + JclVcl, + Jcl, + JvSystemD10R, + JvCoreD10R, + JvStdCtrlsD10R, + JvPageCompsD10R, + Informes_view, + InfMargenArticulo_controller, + InfMargenArticulo_model; + +contains + uViewInfMargenArticuloGrid in 'uViewInfMargenArticuloGrid.pas' {frViewInfMargenArticuloGrid: TFrame}, + uViewInfMargenArticulo in 'uViewInfMargenArticulo.pas' {frViewInfMargenArticulo: TFrame}, + uEditorInfMargenArticulo in 'uEditorInfMargenArticulo.pas' {fEditorInfMargenArticulo: TCustomEditor}, + uInfMargenArticuloViewRegister in 'uInfMargenArticuloViewRegister.pas'; + +end. diff --git a/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc b/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc new file mode 100644 index 00000000..7642ac97 --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc @@ -0,0 +1,14 @@ +/* VER180 + Generated by the Borland Delphi Pascal Compiler + because -GD or --drc was supplied to the compiler. + + This file contains compiler-generated resources that + were bound to the executable. + If this file is empty, then no compiler-generated + resources were bound to the produced executable. +*/ + +STRINGTABLE +BEGIN +END + diff --git a/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.res b/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.res new file mode 100644 index 00000000..86c94e6a Binary files /dev/null and b/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.res differ diff --git a/Source/Modulos/Informe margen por articulo/Views/uEditorInfMargenArticulo.dfm b/Source/Modulos/Informe margen por articulo/Views/uEditorInfMargenArticulo.dfm new file mode 100644 index 00000000..47eb671e --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Views/uEditorInfMargenArticulo.dfm @@ -0,0 +1,1959 @@ +inherited fEditorInfMargenArticulo: TfEditorInfMargenArticulo + Left = 531 + Top = 329 + Caption = 'fEditorInfMargenArticulo' + ClientHeight = 573 + ClientWidth = 679 + OnCreate = CustomEditorCreate + OnGetModified = CustomEditorGetModified + ExplicitWidth = 687 + ExplicitHeight = 607 + PixelsPerInch = 96 + TextHeight = 13 + inherited JvNavPanelHeader: TJvNavPanelHeader + Width = 679 + ExplicitWidth = 679 + inherited Image1: TImage + Left = 652 + Picture.Data = { + 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 + 0000180806000000E0773DF80000000970485973000017120000171201679FD2 + 5200000A4D6943435050686F746F73686F70204943432070726F66696C650000 + 78DA9D53775893F7163EDFF7650F5642D8F0B1976C81002223AC08C81059A210 + 92006184101240C585880A561415119C4855C482D50A489D88E2A028B867418A + 885A8B555C38EE1FDCA7B57D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F80111226 + 91E6A26A003952853C3AD81F8F4F48C4C9BD80021548E0042010E6CBC26705C5 + 0000F00379787E74B03FFC01AF6F00020070D52E2412C7E1FF83BA5026570020 + 9100E02212E70B01905200C82E54C81400C81800B053B3640A009400006C797C + 422200AA0D00ECF4493E0500D8A993DC1700D8A21CA908008D01009928472402 + 40BB00605581522C02C0C200A0AC40222E04C0AE018059B632470280BD050076 + 8E58900F4060008099422CCC0020380200431E13CD03204C03A030D2BFE0A95F + 7085B8480100C0CB95CD974BD23314B895D01A77F2F0E0E221E2C26CB1426117 + 29106609E4229C979B231348E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E6 + 66E76CEFF4C5A2FE6BF06F223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D603 + 70C701B075BF6BA95B00DA560068DFF95D33DB09A05A0AD07AF98B7938FC401E + 9EA150C83C1D1C0A0B0BED2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB + 7AF000719A4099ADC0A383FD71616E76AE528EE7CB0442316EF7E723FEC7857F + FD8E29D1E234B15C2C158AF15889B850224DC779B952914421C995E212E97F32 + F11F96FD0993770D00AC864FC04EB607B5CB6CC07EEE01028B0E58D27600407E + F32D8C1A0B91001067343279F7000093BFF98F402B0100CD97A4E30000BCE818 + 5CA894174CC608000044A0812AB041070CC114ACC00E9CC11DBCC01702610644 + 400C24C03C104206E4801C0AA11896411954C03AD804B5B0031AA0119AE110B4 + C131380DE7E0125C81EB70170660189EC218BC86090441C8081361213A881162 + 8ED822CE0817998E04226148349280A420E988145122C5C872A402A9426A915D + 4823F22D7214398D5C40FA90DBC820328AFC8ABC47319481B25103D4027540B9 + A81F1A8AC6A073D174340F5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D + 8A8E6380D1310E668CD9615C8C87456089581A26C71663E55835568F35631D58 + 3776151BC09E61EF0824028B8013EC085E8410C26C82909047584C5843A825EC + 23B412BA085709838431C2272293A84FB4257A12F9C478623AB1905846AC26EE + 211E219E255E270E135F9348240EC992E44E0A21259032490B496B48DB482DA4 + 53A43ED210699C4C26EB906DC9DEE408B280AC209791B7900F904F92FBC9C3E4 + B7143AC588E24C09A22452A494124A35653FE504A59F324299A0AA51CDA99ED4 + 08AA883A9F5A496DA076502F5387A91334759A25CD9B1643CBA42DA3D5D09A69 + 6769F7682FE974BA09DD831E4597D097D26BE807E9E7E983F4770C0D860D83C7 + 486228196B197B19A718B7192F994CA605D39799C85430D7321B9967980F986F + 55582AF62A7C1591CA12953A9556957E95E7AA545573553FD579AA0B54AB550F + AB5E567DA64655B350E3A909D416ABD5A91D55BBA936AECE5277528F50CF515F + A3BE5FFD82FA630DB2868546A08648A35463B7C6198D2116C63265F15842D672 + 5603EB2C6B984D625BB2F9EC4C7605FB1B762F7B4C534373AA66AC6691669DE6 + 71CD010EC6B1E0F039D99C4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37 + DA7ADABEDA62ED72ED16EDEBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51 + BA85BADB75CFEA3ED363EB79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EF + D11F373034083690196C313863F0CC9063E86B9869B8D1F084E1A811CB68BA91 + C468A3D149A327B826EE8767E33578173E66AC6F1C62AC34DE65DC6B3C616269 + 32DBA4C4A4C5E4BE29CD946B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D5 + 9C6B9E61BED9BCDBFC8D85A5459CC54A8B368BC796DA967CCB05964D96F7AC98 + 563E567956F556D7AC49D65CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9B + ADC4769B6DDF14E2148F29D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625 + F66DF6CF1DCC1C121DD63B743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E9 + 57671B67A1739DF33517A64B90CB1297769717536DA78AA76E9F7ACB95E51AEE + BAD2B5D3F5A39BBB9BDCADD96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4 + F0F758E271CCE39DA79BA7C2F390E72F5E765E595EFBBD1E4FB39C269ED6306D + C8DBC45BE0BDCB7B603A3E3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE + 237ED67E997E07FC9EFB3BFACBFD8FF8BFE179F216F14E056001C101E501BD81 + 1A81B3036B031F049904A50735058D05BB062F0C3E15420C090D591F72936FC0 + 17F21BF96333DC672C9AD115CA089D155A1BFA30CC264C1ED6118E86CF08DF10 + 7E6FA6F94CE9CCB60888E0476C88B81F69199917F97D14292A32AA2EEA51B453 + 747174F72CD6ACE459FB67BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC + 9BB880B8AAB8817887F845F1971274132409ED89E4C4D8C43D89E37302E76C9A + 339CE49A54967463AEE5DCA2B917E6E9CECB9E773C593559907C3885981297B2 + 3FE5832042502F184FE5A76E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92 + E69D5695F638DD3B7D43FA68864F4675C633094F522B79911992B923F34D5644 + D6DEACCFD971D92D39949C949CA3520D6996B42BD730B728B74F662B2B930DE4 + 79E66DCA1B9387CAF7E423F973F3DB156C854CD1A3B452AE500E164C2FA82B78 + 5B185B78B848BD485AD433DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859 + F1E022BF45BB16238B5317772E315D52BA647869F0D27DCB68CBB296FD50E258 + 5255F26A79DCF28E5283D2A5A5432B82573495A994C9CB6EAEF45AB963156195 + 6455EF6A97D55B567F2A17955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796D + DADADE4AB7CAEDEB48EBA4EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE5 + 1B5F6D4ADE74A17A6AF58ECDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A + 9D7F5DCB56FDADABB7BED926DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78 + 576BBD457DF56ED2EE82DD8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F6 + 45EFEB6A746F6CDCAFBFBFB2096D52368D1E483A70E59B806FDA9BED9A77B570 + 5A2A0EC241E5C127DFA67C7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD2 + 3ABF75AC2DA36DA03DA1BDEFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F + 579EA09D283DF1F9E48293E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515D + BD6743CF9E3F1774EE4CB75FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3D + AE3D477E70FDE148AF5B6FEB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D5 + 73D7F8D72E5D9F79BDEFC6EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC + 5D7A8F78AFFCBEDAFDEA07FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E + 09879EFE94FFD387E1D247CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7 + B2A713CFCA7E56FF79EB73ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F3 + 72EFABA9AF3AC723C71FBCCE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC + 40FE50F3D1FA63C7A7D04FF73EE77CFEFC2FF784F3FB25D29F33000000046741 + 4D410000B18E7CFB5193000002944944415478DAD5955F4853511CC7BFD7CD9C + 9BD21F4188FECFA83443E262BED5831689249688BA60E0934F3D582441B58782 + 0A02291641050A8E1C150B8C454669181269AC2D3398D9C31E940C9B685A5EEF + EEBDEB9CB3EEDA656EAE720FFDE0C7EF1CCEBDDFCFFDFDCEF99DCB85C361A4D3 + B8FF1FD0E51E4A1BA1B1AA94630032F8A31725390C5956B0284A2C4A8AC2221B + 13174332EA9B6D78DB73F337A06970EFB2C23229A728CB102589C579518CCCA9 + 1388BA765274A2FDEE232DC0F9F84DFAF64005A4A3547180952ED592808E32AF + 06B42158850B9517E3400A11A35EF9E0006673024C7CB86612E67B6B19E48C7C + 3F31801A1DC78AFB382FF8411E1825939D80A7CC8342A10822C9E098FB3026B2 + C6E0AF9D62CFE63B4CB0C1953C03555C379401799FC22215F7583DE0DB096837 + 30573C8FDC911C4C6DFF8AFAA747D06B7985BC4E23CBE0B2BE3BF91E44014E02 + 682400474644BC8B87C742E26D1E330DB358E35E8DC98A2FB03CAF814FF2A1E4 + 5B3EDAFACD18A86E4D11109BC107B260202E806510DC318DBC8FEB30BE711CD6 + FE3AB4751BA19314EC39F40276E393E54F910A9149CAEFF5C3913D7847164A22 + 7BB039B8058B82C0C4AFBB0CEC1D2A4E2D2120F614D15A6E9BA9C6B9F2F30CA2 + B0B32E479DCE8FF71E8D8A17BBFAC0DDE2B480ABF60E9C3ED1149741F46C139F + 5E58D0CC63FDD9C352CD97ABC600EA754D32D05C7A6A974ABF3AF38720B23877 + A905D24400592D5720ADDF0AE5AC154A4882D06A4728333BD2C9242B6A23A39F + E201371C3D49BB98F7B96108F8910905FEFD0D2878499AC9948B8183CD4BDF45 + B1005AAA54ACD3E427D783846CBD0EBA0C0ED6EFBB123EFB577FB431DBA95582 + F7F5673AD61714D5155EBBD3B7A20056DFDA7245B7C95C914CFC9F00A95ADA01 + 3F01A44422D9EF203E7B0000000049454E44AE426082} + ExplicitLeft = 652 + end + end + inherited TBXDock: TTBXDock + Width = 679 + ExplicitWidth = 679 + inherited tbxMain: TTBXToolbar + ExplicitWidth = 679 + object TBXSeparatorItem16: TTBXSeparatorItem [13] + end + object tbxiExpandir: TTBXItem [14] + Action = actExpandir + end + object tbxiContraer: TTBXItem [15] + Action = actContraer + end + object tbxiAnchoAuto: TTBXItem [16] + Action = actAnchoAuto + DisplayMode = nbdmImageAndText + end + end + inherited tbxMenu: TTBXToolbar + ExplicitWidth = 679 + inherited TBXSubmenuItem6: TTBXSubmenuItem + object TBXItem37: TTBXItem [0] + Action = actExpandir + end + object TBXItem36: TTBXItem [1] + Action = actContraer + end + object TBXItem35: TTBXItem [2] + Action = actAnchoAuto + end + object TBXSeparatorItem17: TTBXSeparatorItem [3] + end + end + end + end + inherited pgPaginas: TPageControl + Width = 679 + Height = 478 + ExplicitWidth = 679 + ExplicitHeight = 478 + inherited pagGeneral: TTabSheet + ExplicitWidth = 671 + ExplicitHeight = 450 + inline frViewInfMargenArticulo1: TfrViewInfMargenArticulo + Left = 0 + Top = 0 + Width = 671 + Height = 450 + Align = alClient + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 0 + ReadOnly = False + ExplicitWidth = 671 + ExplicitHeight = 450 + inherited TBXMultiDock1: TTBXMultiDock + Height = 350 + ExplicitHeight = 350 + inherited pnlParametros: TTBXDockablePanel + ExplicitHeight = 159 + inherited pcParametros: TPageControl + Height = 70 + ExplicitHeight = 70 + inherited TabSheet5: TTabSheet + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 + end + inherited tsColumnas: TTabSheet + ExplicitHeight = 60 + inherited frViewColumnas1: TfrViewColumnas + Height = 60 + ExplicitHeight = 60 + inherited lbColumnas: TcxCheckListBox + Height = 31 + ExplicitHeight = 31 + end + end + end + inherited tsAgrupacion: TTabSheet + ExplicitHeight = 29 + inherited frViewAgrupaciones1: TfrViewAgrupaciones + Height = 29 + ExplicitHeight = 29 + end + end + end + end + inherited pnlTareas: TTBXDockablePanel + Top = 159 + DockPos = 159 + ExplicitTop = 159 + ExplicitHeight = 175 + inherited TBXPageScroller1: TTBXPageScroller + Height = 153 + ExplicitHeight = 153 + inherited pcTareas: TPageControl + Height = 105 + ExplicitHeight = 105 + inherited tsSumarios: TTabSheet + ExplicitHeight = 48 + inherited frViewSumarios1: TfrViewSumarios + Height = 48 + ExplicitHeight = 48 + inherited vgSumarios: TcxVerticalGrid + Height = 19 + ExplicitHeight = 19 + end + end + end + inherited tsFiltros: TTabSheet + ExplicitHeight = 95 + inherited frViewFiltros1: TfrViewFiltros + Height = 95 + ExplicitHeight = 95 + inherited cxFilterControl1: TcxFilterControl + Height = 36 + ExplicitHeight = 36 + end + inherited TBXAlignmentPanel3: TTBXAlignmentPanel + Top = 65 + ExplicitTop = 65 + end + end + end + end + end + end + end + inherited TBXMultiDock2: TTBXMultiDock + Width = 671 + ExplicitWidth = 671 + inherited pnlIntervaloFechas: TTBXDockablePanel + ExplicitWidth = 655 + inherited TBXAlignmentPanel3: TTBXAlignmentPanel + Width = 651 + ExplicitWidth = 651 + end + inherited frViewPeriodoFechas1: TfrViewPeriodoFechas + Width = 651 + ExplicitWidth = 651 + inherited dxLayoutControl1: TdxLayoutControl + Width = 651 + ExplicitWidth = 651 + end + end + end + end + inherited frViewInfMargenArticuloGrid1: TfrViewInfMargenArticuloGrid + Width = 449 + Height = 350 + ExplicitWidth = 449 + ExplicitHeight = 350 + inherited cxGrid: TcxGrid + Width = 449 + Height = 350 + ExplicitWidth = 449 + ExplicitHeight = 350 + inherited cxGridView: TcxGridDBTableView + inherited cxGridViewID_FACTURA: TcxGridDBColumn + Caption = 'Id factura' + end + inherited cxGridViewID_EMPRESA: TcxGridDBColumn + Caption = 'Id empresa' + end + inherited cxGridViewREFERENCIA_FACTURA: TcxGridDBColumn + Caption = 'Ref. factura' + end + inherited cxGridViewFECHA_FACTURA: TcxGridDBColumn + Caption = 'Fecha factura' + end + inherited cxGridViewIMPORTE_TOTAL_FACTURA: TcxGridDBColumn + Caption = 'Importe factura' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end + inherited cxGridViewID_COMISION_FACTURA: TcxGridDBColumn + Caption = 'Id comisi'#243'n factura' + end + inherited cxGridViewID_ARTICULO: TcxGridDBColumn + Caption = 'Id art'#237'culo' + end + inherited cxGridViewFAMILIA: TcxGridDBColumn + Caption = 'Familia' + end + inherited cxGridViewREFERENCIA: TcxGridDBColumn + Caption = 'Referencia' + end + inherited cxGridViewREFERENCIA_PROV: TcxGridDBColumn + Caption = 'Ref. proveedor' + end + inherited cxGridViewDESCRIPCION: TcxGridDBColumn + Caption = 'Descripci'#243'n' + end + inherited cxGridViewCOMISIONABLE: TcxGridDBColumn + Caption = 'Comisionable' + end + inherited cxGridViewINVENTARIABLE: TcxGridDBColumn + Caption = 'Inventariable' + end + inherited cxGridViewIMPORTE_UNIDAD_COSTE: TcxGridDBColumn + Caption = 'Precio coste' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end + inherited cxGridViewDESCUENTO_PROVEEDOR_COSTE: TcxGridDBColumn + Caption = 'Dto proveedor' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + Properties.DisplayFormat = ',0.00 %;-,0.00 %' + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end + inherited cxGridViewIMPORTE_NETO_COSTE: TcxGridDBColumn + Caption = 'Precio neto' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end + inherited cxGridViewIMPORTE_PORTE_COSTE: TcxGridDBColumn + Caption = 'Precio porte' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end + inherited cxGridViewIMPORTE_UNIDAD_ULTIMA_COMPRA: TcxGridDBColumn + Caption = 'Precio '#250'ltima compra' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end + inherited cxGridViewIMPORTE_NETO_ULTIMA_COMPRA: TcxGridDBColumn + Caption = 'Precio neto '#250'ltima compra' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end + inherited cxGridViewIMPORTE_PORTE_ULTIMA_COMPRA: TcxGridDBColumn + Caption = 'Precio porte '#250'ltima compra' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end + inherited cxGridViewIMPORTE_UNIDAD_PROMEDIO_COMPRA: TcxGridDBColumn + Caption = 'Precio promedio' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end + inherited cxGridViewIMPORTE_NETO_PROMEDIO_COMPRA: TcxGridDBColumn + Caption = 'Precio neto promedio' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end + inherited cxGridViewIMPORTE_PORTE_PROMEDIO_COMPRA: TcxGridDBColumn + Caption = 'Precio porte promedio' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end + inherited cxGridViewCANTIDAD: TcxGridDBColumn + Caption = 'Cantidad' + PropertiesClassName = 'TcxSpinEditProperties' + Properties.Alignment.Horz = taRightJustify + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end + inherited cxGridViewIMPORTE_UNIDAD_VENTA: TcxGridDBColumn + Caption = 'Precio venta' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end + inherited cxGridViewDESCUENTO_CLIENTE_VENTA: TcxGridDBColumn + Caption = 'Dto cliente' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + Properties.DisplayFormat = ',0.00 %;-,0.00 %' + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end + inherited cxGridViewIMPORTE_NETO_VENTA: TcxGridDBColumn + Caption = 'Precio neto venta' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end + inherited cxGridViewIMPORTE_TOTAL_VENTA: TcxGridDBColumn + Caption = 'Importe total venta' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end + inherited cxGridViewIMPORTE_MARGEN_COSTE: TcxGridDBColumn + Caption = 'Margen coste' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end + inherited cxGridViewPORCENTAJE_MARGEN_COSTE: TcxGridDBColumn + Caption = '% margen coste' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + Properties.DisplayFormat = ',0.00 %;-,0.00 %' + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end + inherited cxGridViewIMPORTE_MARGEN_ULT_COMPRA: TcxGridDBColumn + Caption = 'Margen '#250'ltima compra' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end + inherited cxGridViewPORCENTAJE_MARGEN_ULT_COMPRA: TcxGridDBColumn + Caption = '% margen '#250'ltima compra' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + Properties.DisplayFormat = ',0.00 %;-,0.00 %' + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end + inherited cxGridViewIMPORTE_MARGEN_PROM_COMPRA: TcxGridDBColumn + Caption = 'Margen promedio' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end + inherited cxGridViewPORCENTAJE_MARGEN_PROM_COMPRA: TcxGridDBColumn + Caption = '% margen promedio' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + Properties.DisplayFormat = ',0.00 %;-,0.00 %' + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end + inherited cxGridViewNIF_CIF_PROVEEDOR: TcxGridDBColumn + Caption = 'NIF / CIF prov.' + end + inherited cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn + Caption = 'Proveedor' + end + inherited cxGridViewCALLE_PROVEEDOR: TcxGridDBColumn + Caption = 'Calle prov.' + end + inherited cxGridViewPOBLACION_PROVEEDOR: TcxGridDBColumn + Caption = 'Poblaci'#243'n prov.' + end + inherited cxGridViewPROVINCIA_PROVEEDOR: TcxGridDBColumn + Caption = 'Provincia prov.' + end + inherited cxGridViewNIF_CIF_CLIENTE: TcxGridDBColumn + Caption = 'NIF / CIF cli.' + end + inherited cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn + Caption = 'Cliente' + end + inherited cxGridViewNOMBRE_COMERCIAL_CLIENTE: TcxGridDBColumn + Caption = 'Nombre comercial cli.' + end + inherited cxGridViewCALLE_CLIENTE: TcxGridDBColumn + Caption = 'Calle cli.' + end + inherited cxGridViewPOBLACION_CLIENTE: TcxGridDBColumn + Caption = 'Poblaci'#243'n cli.' + end + inherited cxGridViewPROVINCIA_CLIENTE: TcxGridDBColumn + Caption = 'Provincia cli.' + end + inherited cxGridViewNIF_CIF_AGENTE: TcxGridDBColumn + Caption = 'NIF / CIF agente' + end + inherited cxGridViewNOMBRE_AGENTE: TcxGridDBColumn + Caption = 'Nombre agente' + end + inherited cxGridViewCALLE_AGENTE: TcxGridDBColumn + Caption = 'Calle agente' + end + inherited cxGridViewPOBLACION_AGENTE: TcxGridDBColumn + Caption = 'Poblaci'#243'n agente' + end + inherited cxGridViewPROVINCIA_AGENTE: TcxGridDBColumn + Caption = 'Provincia agente' + end + inherited cxGridViewCOMISION_AGENTE: TcxGridDBColumn + Caption = 'Comisi'#243'n agente' + end + inherited cxGridViewIMPORTE_COMISION_AGENTE: TcxGridDBColumn + Caption = 'Importe comisi'#243'n' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end + end + end + inherited dxPrintStyleManager1: TdxPrintStyleManager + inherited dxPrintStyleManager1Style1: TdxPSPrintStyle + BuiltInStyle = True + end + end + inherited dxComponentPrinter: TdxComponentPrinter + inherited dxPrinterLinkcxGrid: TdxGridReportLink + BuiltInReportLink = True + end + end + end + end + end + end + inherited StatusBar: TJvStatusBar + Top = 554 + Width = 679 + ExplicitTop = 554 + ExplicitWidth = 679 + end + inherited JvAppRegistryStorage: TJvAppRegistryStorage [4] + end + inherited SmallImages: TPngImageList + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000774494D45000000000000000973942E000000097048597300001712 + 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9 + 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD + 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E + E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290 + 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF + FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232 + E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043 + C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF + 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4 + 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A + 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA + 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583 + 000005100EB8572466A60000000049454E44AE426082} + Name = 'PngImage1' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001074944415478DA + 63FCFFFF3F032580912A06303232E2543079D1766F201505C520B02C37CE331A + C400EBC5670054F3960057330631617E0690B2F357EF336CDA7786A1B5289211 + AF01C89A254505183E7FFDC1F0F5DB0F06311101A021F7184E5DBA733927D643 + 0FAB01E89ADF7EF802D6FCF5FB4F866F406CA6AFC21095DBC6B06C7215238601 + C4689EB27807C3B153E7300D2056F38B371F18B62EDA79EDFCF9F9DA700348D4 + CC70E1C2024420022548D68C128D40C906A0E67A5234631860A6A752AF202346 + B466740396C2521AD020B0A49EA622C39C95BB716AC64889C0405C0A541C2501 + 4C2830804F33D6A40C8A09A0A62DF7EEDD03F3AF1FB98D372301A39191E2DC08 + 0029AC32F01825AACD0000000049454E44AE426082} + Name = 'PngImage2' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001514944415478DA + 635CB5E3DC7F062C20CCC388918108C0083220D4DD104570F5CEF30CEDFDB319 + CEEF9C4ED0109C06D818AB3278C7941134046E40CBAA0760819A3005B80B6000 + 9F21182EF8F1F30F10FF86E05F7F1882926B883300E60264C0C1805D5F69B802 + 238601E836FF04E2CDA7BF339484C9A368EE59F59261D9C1BB0CE7A75933C20D + F0B4D56698B0E5195617601AF09021DA4998C1297307C38D35A18C60031CCDD4 + C036FF84DAFCE7EF3F307DF0FA7FB001112D57C09A57D4E8800D98BBFA346A18 + 58EA2BC235C39C0FC2671EB0A2B8E0DBCF7F0C5F7FFE05E27F60B65DE26C8801 + 7316ADC11A58AEFE69282E4009C8284506F7F4B90C781349F7CA07FF4106A0DB + FCFD171003E980BCF9840D48F5916148EFBB8E2197EC2BCB1059B290B001512E + 92609BC1B602F1EF3FFFC1F437204EAE5A4CD8007F5B71B8E66F480681407AED + 12C20674CCDE884F0903000B1A00979E81F9710000000049454E44AE426082} + Name = 'PngImage3' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000E9C00000E9C01079453DD000002574944415478DA + 63FCFFFF3F03258011D9004646468696696B17FFFECAD0DE581A7C0D596155CF + 0AF77F7FFFD975944755A3E8413760EA929DAF393938D62785D8A7C1C48BBB17 + 711BABAB5C7AF9F6FDDFC2446F354206BC75B6D4E35ABCFE90536B49F87190F8 + E4853B2779DA1BE46EDE7FE62ED00015BC06F4CFDBBA24CACF26FAD0A99B5B42 + BDCC7C6BFA563B057B986FFDFDE72FC7D20D072B26D62574E235A0A26DA999B0 + 98E0F2607713F9251B8E85692A4B5698E9AB9AAEDA7EE2DEBB571F3DDAAB226F + E33500044A3B979507B898B6BF78F3FEA3B1B612FF992BF7FF1F3975336E425D + CC52903C4103EAEBEB5998450D8FAA2A889BC94888306CD977664D675964284C + 1D0103EA99F8DDF50C8CD439E3FFFE67CB7DFFE9DB1F7E3E9EC637DF5977DC98 + B3E73C0343E33F9C0670B8AC555292175BC8F6FF9BEEDF6FEF995E7DF8F95941 + 55EDE5AB17AFBEFCFAC7C2F1ECC5FBEF0C4C4C89FF0F47DDC36A8056F2A103FF + DEDEE465FBFFB5F1D577EECB8C8CFFF72AAA6A7CFFF4F842CED54D7907184CE7 + 4631B0B227FC3F1AE38AD5008D981DDFD9BEDE48BABCA1703983DE226E09891F + D754B4756F7DBC7FBAEFF286BCED0C32BD9C0CB222B7FF1F8B93C16A805ED2EE + D74CEFAF445FDC50B48BC172858E34DFFB6582B2DAFB38BEDCFC7166456A0583 + CE0471063EA103FF8FC66A623540C063F55669B6E747AE3DE3E861E5E158A9C8 + FBF1D1FD6F628BF4147977FC7A79D3E3F2736E39060E9E84FF47A202B0C782ED + 627356C6FF935998FEB349737FB9FE95E975F2F32D8DDF98EC9647B1FCFF55F0 + EB1FD31FA08EC2FF87634F6235801C0000382740F0DFD997BD0000000049454E + 44AE426082} + Name = 'PngImage4' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000AEB00000AEB01828B0D5A000002854944415478DA + A5935D48536118C7FFAFDB8CCD557E7F34B33167F9119617A91596495D781304 + 451021A651362821B1ABA49B6EA4460961D88542055D84DD6545415992174994 + 9625CC8F9C329D9B5F3BE9CED9D9797BCEA1C932A3A0079EC3CBE13CBFE7FF7F + 9FF330CE39FE2798FAB80BA4E61559EB2551E67B07279AE8D51FA98F2CC99546 + 031A3D6E5FF329993F631D80B52227A6D7929F9BAEA459D1D73BE8DC3330D6B8 + 1AD206641414DA5A6224E1E8ECA47779660955D532EF642F1371BD74331A14FA + 9C27A4439F5D88777DAE1B65FD230D11485786B9363D65FD35C1EB4B9817427E + 9F80C335C05BD53E23B2A934132FB23662B71406C2B14698F38AF0E9EB9473E8 + E3C8655BD686D6F858A5DA3F27B04511E37E0195B5C0A00AD6003FE5259758F0 + 3AD1843C15125218CCB6AD707FF34EAC93973217041154ECF608D8770E188BD8 + 5A01A8A1DEC5F60CF4980CB0A890E8A47AFFF477EC3F037C8EBE975F006ADC37 + 60A7351E3D061DE222C522A5270047AD82DBAB27B21AC09EDA373525E9A52BCB + 7E5F4CB4822509BE80848AB3C0C09A806380EE7CA1BDC55EB4CDE17AF2984932 + 75A60CCA088739742A84CE1E49C1010730F41BA03B27CD595C517CB1FFF92B04 + E6035AF142101DCB12DA743AB413243FA468331D0F01E51780D1154057AAF148 + D92E7BE794778E8DB92634C901116FA6451CAA27214EC06802AE5227AA839ED2 + 45A0729AC6A406182DD9329C10A7B7F57D18D63A93DF99D92076905F4FB4DF56 + A08C20ED9476027CD1209C7BD9FBDC947BC1C0E2C9596A4B003E27E2F8E9301E + AEB507B700334968A6631D019C759C5F627780822413BA194312CDFB41958C13 + 7FDB4052739000430ECEDD913F313B568F9B8B326AC8F7CCBFAEB27A073F0058 + 5538F0EAB25B380000000049454E44AE426082} + Name = 'PngImage5' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001934944415478DA + 6364C002662430FC47E6672C606064C001C0122726A06AB870818121A1632A98 + 5D169DCD10E58B90B32840358C11A4D920622A5C604145365833482308D4F5E6 + 3134154F62A8EE4805F35B2B66334CDA8B3004C50098E62F2F6E823581347F7F + FB80E1E58DBD0C8BD67D6588F6656258BAF91F7E03AE3D66C009081A800CD61F + B161C0072243F419711AF0F7F777864D275D192282F5B06A5EB1F23C43D7FCD9 + 0CE7774E67C43000A41984B79EF3C36AC08F9F7F18366CB8CC10116EC860E491 + 85EA0298E6BFBFBE33ECB8120E36C071E64DB8E6ED09CA40037E33ECD87E03EC + 02142F206BFEF7FB07C3AE9BF1282E00D90CD20CC6BFFE30EC3B719561CAECE5 + 100374837B503483E8BDF733305C000333DC04198E9EBB893040CBAF1945F3DF + 3FDF190E3C2E041B806EF34F283E73E52EC200758F2A865B3B3A506CB927739E + C1C75383C177F17D0C17745971325CBEF51062004820CF19352F808065E64506 + 172748A0C16CFDF3F71F9806B9E4F683A70803B081E56B2EFEB7B19663D875F4 + 32CEC444D080AED9331808010085EE16005695A1DA0000000049454E44AE4260 + 82} + Name = 'PngImage6' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000774494D45000000000000000973942E000000097048597300001712 + 0000171201679FD252000002164944415478DA95D35F4853511CC0F1EFD491DD + D9587F2C83AC8C328DFE4949908BC0AC142A147BC8077B88A01EECA5E718F958 + 410486C384B50A1F7A991023CBEC0F594F81E5D4C211E130D7D4DDCDA15B5EEF + DD5DD74B1B8EA9D90FCEC3EFC0EFC3EF9CF33B06FE46CBE3AE042B886B176B0C + 0B73C342A0A9B17AD9E2FB4F5EE0E878C6E79776C37F03AAAAD2DAD1CDDEDD3B + B96EBB9B425604CC17CB8A4AFBD31EEA6BAC0CFF08A4907F02C962598EE374BD + D58F908C2581442241603C8CCBFD89D86C9C9C9C1C0A365A282DDE446FDF37E6 + AB9277B128F02B10C6DDF385CD074B10D6593019211E9CC2EF1DA5A0C0821895 + 68BE6D5F1A6873BEA6D07A0879951945CD626B1E6C372978BD7EBC5F4710D608 + DC6A712C0EC84A9C7B6DDDECAF3B459E315B3B3B685B9835448DCD30F4BE0FC1 + 94CB9D56672670A5E1A47E590F1EBDE374C3091D88CD4120063359902B4719F9 + D88F201835E0612670E97CA5DE41578F870A6B296BD79B096BC0B8B6C4DF3252 + 4024E81960832071B3FD7926D0587B5C7F32DFE8243FC74214EDD906AB4D4C29 + 1011230487BC1419BFB32BE8E06CE7BE4CE0C299637A07B3928CCF37816F4CD4 + F2040943365234823134C8E1FC094A8A8D4C0DF6B2E5EA8774A0BEFAA80E283A + A21012A791E6E6B4618249FF08AFEC97292B2CA7B64221BFAC9C90E74DFA289F + AB3A42FFB07FD90FE5B255A510B754379D062C1CD3E5E240AC931D9537B03537 + 19FE00839434866373C4BA0000000049454E44AE426082} + Name = 'PngImage7' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000774494D45000000000000000973942E000000097048597300001712 + 0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20 + E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9 + 0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1 + CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098 + D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4 + AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609 + 23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3 + D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD + 17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8 + C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D + E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770 + 03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F + 16FA1194E3DBC30000000049454E44AE426082} + Name = 'PngImage8' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000774494D45000000000000000973942E000000097048597300001712 + 0000171201679FD2520000015F4944415478DA6364A000FC3060F8CF884D62C5 + 8A0BBB81940BB258E7FC99286A8EBF9CCEC06EE4C5C088457334905AE2E6A9CA + 20C8C70516FBF3F71F8399770E44D3F9FF0C3F0D19219AE76D6364C4A2B902A8 + 5967EF89BB2806B7F54D6738E7C4C1F073793F58B3D1537986F33BA76318B01B + A8D905D9E6DF7FFE82B1437011C3B91DD31818BA8AC07246FB7EA01A00737A78 + B83EC39A5D9731C205E40274003700A8F93F90BA02723AC876649BFF02D920FE + 9F3FFF18D22BA63298E82B3148AB1A316C5CB38661F5B92A064690CD579F5C58 + 4228CAB6EC3E893D166A7B16FC6F2A8EC7A9F1CB8FBF0C9FBFFF65F08E2CC01E + 0B20038849342017608D055C2E80D9FC19487FF9F18F2125B3147B2C6033005D + 73ED791F86E7B334B1C702BA01E89ABF02F1AC743D8680EEB30CAFEE9E61D8BE + F72C4CA9CCE679554FE1064C5FB68B98A0801900D60C6230FA26B54903E92744 + E946B219C661244123560000C9AFE6B31530CB2E0000000049454E44AE426082} + Name = 'PngImage9' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD2520000016A4944415478DA + 63FCFFFF3F03082CDD7212C22000627C2D18616C905E466403A27DCCF16A06AA + 61E89DB290E1FCCEE98C241BF0EFDF3F86E5DB4E33488B093314D5F5810D21DA + 0090E6DF7FFE31ACD97596C1C9429BE1E6BD176043CEED98C688D3804D0F0E30 + F45E6A02B37779EC62E05CC0C6B058EA38D80B3080D30090E6805D4E182E7911 + FC91E1C4E5C70C8F1E3F6298B774137603609AFFA4FC013B1B64738BB13743CD + D9AD0C8FFDDF81C5B6EC3B85DB00A6594C289A91C13DEF3740F1BF0C3B0F9DC5 + 6D0048C1EFDF7F21F49F7F50FA2FC31F181F2877E0E445EC068479988015F02C + E640B1F98EE72BB066CDDD120C676D1E311C3D7B05BB0181CE8660DB049773C3 + FD8DAC3957BB80219A379FE1D4C5EBD80DF0B1D7032B165BCD8B110330CD200B + CE5FBD85DD00776B1DB002E9F502609B13CF8781E50C840DE09A41165CB97907 + BB014EE69A1801060B44986610C06980ADB11AC3A63D2789C994D80D404EA6C4 + 0090010087546EF0ACB0C7920000000049454E44AE426082} + Name = 'PngImage10' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001024944415478DA + 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 + C493AF1EDC305B3E7F1A2323BA66090111A9272F9F301CD9BE99119701110999 + FF416A0E6FDB843000A4F9CFCF1F52F834C2808DA72FD8DF700348D18C6C08D8 + 004B77AF69F292F299308987CF1F4E979256DEB076DEE45D207E7052AEDBB3A7 + 770390D58000DC0B20FFCC98D0CE70E1053FC3DBBF3F191E7F66603831A310C5 + B6E533A6311C7CC080228F624046C534B82408AC690C856B9611976140970719 + 20ACA0CB30A53E13624068693F5CF2F2E3F70C37E7A5C163019BFCD7AD4D0C2B + 164C07A72146981F999998C17EFCFBEF2FD630C0260F3660C0933200BCB3BCE1 + CDA578040000000049454E44AE426082} + Name = 'PngImage11' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001C04944415478DA + 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 + 1BA234FDF9FB8FE1F79FBF60EC105CC4806200A3E14C86FFE7D3C13408E0627F + 3C12CF70ECEC0D86AAB659D80D4007FF806AFEFC41D80CC2672FDFC1340019C8 + 7A2C6178F2F22B98ADAE20C0D09869CCE06E29CD2068B788E1D9AE48868BD7EF + 117601C8E673D7DF309846AF6310E66767B8BE3E8441CC6929C3C36D610CD76E + 3FC46DC0CBB7DF19EA679C613870E619C3C3679F197EFCFA0B36106433C8F97F + 80F8D6FD27B8BD1053BD8F61E9B6DB0C0B9B1C181C4C2518E43D5780C54136CB + 7BAD62B8B12E90E1FEE367D85DF0F75C1A836FDE0E866D471E315C5A15CCF0F1 + CB4F06DBA42D6003EE6E0A6650F65BCB7061B90FC3F357AFB11BF0F3540AC3B1 + 8B2F18A2ABF6313C7BFD8DC1C14412E895E76003AEAEF6077B4123528661FFC4 + F3A806C4F859C1A30839CAE0ECDF10BE41E416860F7F32188E4F453320DCCB9C + 81CB621ED8A6177BA218245C9681D9B7360431A805AC03B37F306430FCF8C3C0 + F0E61B0483D8700382DC4CF0DAFC1B498EDD5785E1FD4A3417F83919319CBA78 + 8BA8FCF0DFCF908171139201A0DC3871C6529273637E46740C00F128724C706C + 80060000000049454E44AE426082} + Name = 'PngImage12' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000E9C00000E9C01079453DD000002324944415478DA + 63FCFFFF3F03258011640023232386C4922BFF0D9818FFC57EFFFE57FDEFBFFF + CC8CFF19BEF0F1B36D5C73E9EAAAD5613ABF60166318505FFF9F4939F077F98B + 97BF6BEFDCFEC6F9EDDB3F86BF7F810A9918192424D9FEF3F1B32FBFFA93236E + 5528C35FB8018D9B7E2C6DF0E38859759581F5E7BF3FD36EDEF89AF4E51B03E3 + B72F7FC0867EF8F897E1EF3F06867F40ACA1C9F96FE392D5BA5737265D831BE0 + 58F9F0BF83A5F83245796696CB973E87FEF9C70CD6FCE2D92B86E78F6EFCFCF7 + EFEF17360E5E4151590326666626067D7DDE65F57E1CD12806288BB3FF676567 + 66E0E062036B7EFEF425C39307576E8A2A19B9EE6A557DA217B2A88E9B5FBA41 + 405C87C1DC9CEF01D0004514031444391804843918409ADFBFFFCE70E7EA91FB + 9F3FF06BDED9E1F513A450357481341FBBD03D611973362B4B2C067CF8C1C060 + A020C0F0E3FB4F86CF1FDEBCBE7FFD84C3B54DC9D760812B13DACB29CAAAF84A + 58C69AC7C61A8B01CF9FFF61E014646190E365627870FD40C3A535718DC8D1AA + E2B1988F5788E7B998823597A5392FA6010C1F1EC0157FF8F081E1DF9F4F0D1C + EC6AFDA7965A7C02899924ED550746C555793523665D1D2ED440C49690D08149 + D2A9764E3ED90A037DEEFF3696BC7161EA0C4B8836402FF6A41A37AFF0690E2E + 7E3E7B5B9E65C08494084C48BF8832402BF40A0F8F30DB3E0E2E4153277B9E65 + 0DFE9C60A7E34CCA280098ACCDDF3C5A2925C913ACAFCBB51CA6997803ECF7B3 + 301C74FC834D0AC5004A000026261CF09ABF155A0000000049454E44AE426082} + Name = 'PngImage13' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA + 8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414 + A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D + 739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF + 425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008 + EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5 + 6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050 + 910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85 + CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15 + 205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7 + F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D + B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D + 09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02 + 161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE + 4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0 + 7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D + 02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747 + 2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7 + FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386 + 01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790 + E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6 + 9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74 + 2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD + BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03 + 503A4EA60D6AAC070000000049454E44AE426082} + Name = 'PngImage14' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA + 8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251 + 82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E + C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC + 5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910 + 082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537 + BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0 + 81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB + B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048 + 5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5 + E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676 + 3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8 + 8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002 + 29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29 + 5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF + 077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF + 0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5 + 1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF + AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632 + 83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4 + E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384 + 8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72 + CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD + DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8 + 3FA68502A9830000000049454E44AE426082} + Name = 'PngImage0' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000AEB00000AEB01828B0D5A0000032A4944415478DA + 6D937B4814411CC77FB3B7777A5E7276969AA4648A20A5592A4585FE654122BD + 0CAA3FE2841EA45946697591BD8DB27748A2BDA0A43FA2420C893252D2A244B4 + 7C24495986AFBC3BDDDBDB9DDDBDDDDB663714B366F9B2BB33DFCF777E3BB383 + E0DF66235A19342370912538D0CAB2825BF00A6DA4EF2D1133D5A8AA2AA029EF + 4126B3292B2E21BA70697A5262626A9C393422040D0FBAFCAD6F3BF187C68ED6 + 9F5F472E2992524FBCE2F400735884ED40E6BAE58539F6CCD0B9F323009111C5 + EF075191600C7BA0ABEBAB5AF7A071A4ADBEE71CE7C615849126032823B52D77 + EFBAEBF6BDEBAD164B20E941A092EBF89ED75050960C6ECC805B6060D8E984E7 + 379B9C2D8F3AB71353CD4440CC8ACCE49725D7F2626DB3AC60A028C2535092FF + 4A2FCD5E1A0F2E3C062E9E8171D1034303A3F0E24CF3A7910EF72A1230826813 + BDAFF87CEE85ACCD19269AA2C16030C0093273EDC372C8DE92FFD7EACEDDE902 + 06B3D0F1A41777DEED2D5015F5369A1335BBB6ACFA4056745C24A22903941636 + EBF044C38204BCE003FBEE62B0DAFBC1237A61B8C7A9B69DE979ECF3F836A1A4 + 65F15F4EDD2A880BB606A12B45AD93B02C2BE023D2604D79FB8F02B5F533B022 + 078C9B55BBCF7EEBC43F8424B4243DE19BA37C678CC962844A47B71E204F8212 + 09F1EBF783474E02BBB105BC1207DE711EFACA06BE8B7D520C8A8A0D6F70DCD9 + 951E343B1061598067A54EA8AEBAA4435A0826D22A3976B21406B31B80F76160 + FB3975E8E2E84785F12F460166E3E91D17361D8E5D1E45F332062C8BD07EC300 + D7CA4EC1BEA292BF16B177751D6893304D5E9979E0AD5265354FDBC694B4EC05 + 7599FB57844906093862D04CCEBB913AE4D9F01EBC3E1EBC22AF87635680F1FB + EC4FB95DC922DBD8A105A0008BF1444641DAA1A88C8800CE8F8123656AA59A1F + A740FF9A7AF22CE8B0208AC035F258A8911C20C3D5A9BF72D8CC79C197E3D7CE + CBB12D0D09106862D4A13F9F343133F70E63F18D740F7E818330E3D30FD31CA3 + D5986F5B68B55B532DE128923248269F0EF2DF05856FC58372AF52013C5412AF + EB7FA7516B34512232C2063A944E44C1C82C7B14CEEFF2B793929F92B16E2265 + EA71FE0D330BBCF031BDB9A60000000049454E44AE426082} + Name = 'PngImage15' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000AEB00000AEB01828B0D5A0000031C4944415478DA + 6D536B481451143E779D5D5D37D95AD354523445905AB32C0A0DFD653F92252B + 8BFA130A3D40F385D1C3B09766A5652548D23B34FA1115624894A0F6502845CB + 079298A5F8CA75737677E6CECCCEA3BB532DAB75868F3B73EFF77DE7CCBDF720 + F8374C045BFC97F8AD3504F8191D0ECEC639B91E32D741407B13154501E4F5ED + AFD3EBD263E2220A37A5C49BCD1B62F481214BD1F4E49CDCDDD18F3FB4F7758F + 8FCC5C9504A98570F9C506FAE01053715A46526166565AE0CA552180C88A24CB + C04B02FCC476181818519A1BDA677A5A862E32365C473482C740A3D5ECCFCECF + A8C9CADF613418FCC80C02853C678EB4425E5502D8300D368E8669AB155EDE7C + 67FDF8A4FF002135FE35884A4E4B787DFA464EB469B9117C341AA2D78008329C + CF6D55CBB39406C11C4BC33C6F87A989597855FEFEF34C9F6D2B319841948E2A + 387639BB327D6FAA8ED2505056F066C18E363DAE05CBBE5C30E7BBE02767071A + 3BA0EFD930EEBF3F9CA748CA5D141A1ED454F5A8383D22260C511A1FA8287CAF + 8ABC037302ECC92E0263D618D879274C0F59959EF2A1A72EBB6B378ADF1CFBE5 + FC9DBC9800A33F2201D547BB3C06A228818B80E55C2A728A4E01B3AB0B689B43 + 19BCF0B51F7FE7E2D1FA94B8AF25B587A274062DD971173C2C1D560D448F5020 + 26B23A1E3D790EA62C6DE09C6761B46AE21B3F2A44A1F0E8156D25F70EA7F807 + F9212C72F0A2C20ACFEB6B3C62F788094E9496C12411B32E0C8E314699BA32FB + 49A2E575C857AF2D3B58B9FB44745238C58A183AAF890BFEFF5259A947CC082C + B893D0EF9C22DDE0BCAD884A8EFB1813375A5637A71525070B3E023084E02631 + 24136E88564D262DADE0E4DD621EB08383F97AC7B8D82BA59363EC731B205F83 + F66C6ADEC6E3E1A921BE8C8C55B1BB54FDD34418DBD642DE3955CCF13C30ED2C + E61A85127251AE7B5FE5E0659101D5B1DB23334D9B96FA721421AA22FC3BEB9F + CC4C27C6FC5BE101FC8012A2995FDC4CA15AA336D7B4C69865DC605881C2343E + 82CEA50AD96F9CC476E3497158AA03166E11EEDCFFBAD11D1481196961271548 + 995100D28B768991E7E45E52F273B236482079B7F32FB7E1BAF0E8F71C040000 + 000049454E44AE426082} + Name = 'PngImage16' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD2520000019E4944415478DA + 63FCFFFF3F4341F1F9FF0C6402469801BEFE4A0C0B16DD60583CC71CABC21F3F + FF327CFFF90748FF6128ABBCC2A0A5CEC0B072C752E20C40D6FCE3D71F86BAFA + 1B0CEB963B31A85A241336005DF38FDF7F18DA5AEE3098997032CC5D3D07BF01 + D834FFFCF597A1B7EB3E612FE0D20CC253263C625092FFC5B0F1C06AEC06E0D3 + 0CE2CF99F68C4152EC0BC3AE931B310D983EC908A119AA11A409660008CC9FF9 + 9C4180F72DC3E14B3B500D00019021840048F3F7EF3F19CEDCDE8F6AC09F3F40 + DB7EFC024B82E81FDF816C280D11FFC5F0F9D337B03C08DF7C79126180A7B73C + 86E6CF9FBF43C460867DFB09D70C32ECD1A7F308036CEC44C18A976E9A82D7F9 + 7CFF8DC19A4186BCFE7D0D618089193FD896B5BB67311CDA309341504A87E1C9 + ED930CEF3FFD60F8F0F927C3FD671F1956AD59CDF0EC96105833C8BBEFFFDF44 + 18A0A3CB0976EAB6C30B182E1CDDCBA06768C8B073FD02B8CDF79F7E64E89C34 + 87E1EE456EB06610403140599519EC827D6796312447F833F072B130B0B0B2A1 + 387FF5D6430C37CF72C0F9700318191919F49D72C9CAD200FAC9B5C145016BDA + 0000000049454E44AE426082} + Name = 'PngImage17' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD2520000015D4944415478DA + 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0 + 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060 + 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298 + E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0 + 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161 + 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319 + 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5 + BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068 + 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2 + E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41 + 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500 + 00000049454E44AE426082} + Name = 'PngImage18' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001B04944415478DA + 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 + C493AF1EDC305BB1603A2323BA66090111A9272F9F301CD9BE99119701110999 + FF616A189135FFF9F9430A9F4618B0F1F405FB1B6E0021CDD70CF8FF0B09B0D7 + 481C78D50AE2FF7295B1FBC82F7AF0C585F30C8C96EE5ED3E425E533618A1F3E + 7F385D4A5A79C3DA79937781F8C149B96E6627F7F4F8B23ED3DD226BC2F04840 + 96A19CE72DC3E7E387182EDEF8389911E49F1913DA192EBCE06778FBF727C3E3 + CF0C0C276614A2B860F98C690C9BAA5A1854F7F530282A4830DC7FF08261E657 + 318689B76F33820DC8A89806D70C026B1A43E19A65C46518C0F25F3F3048CE28 + 6050BFBC9A61DB7F198693AE390C535AF220068496F6C3355F7EFC9EE1E6BC34 + 782CC0E47F5EBFC060D7E5C170E8BD208301F73B06BE7F1FFD642E316C6604F9 + F1D9D3BB01CC4CCCE070F8FBEF2F4618FC7D723D22F3EF93C4FB37DE301C1296 + D9E8FBE68198BED87F4BFEBF1FED084619087CB4178BB974FFD3D42B8F7E7801 + 6D390A12DB28C4BA51558ECB8F2803D6F1B2C67CFEF5C728EEE7FF62A006701A + 98C0C0202ECBCDB00A00547CD715F016991D0000000049454E44AE426082} + Name = 'PngImage19' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD2520000019E4944415478DA + 63FCFFFF3F032580119FE4D64553FE7FF8F001437C9FC439C20680343B392269 + FEF11E883F30DCBFCFC070FE81220383A3006E03609A6BCAF631B47439C135C3 + E9EFEF197A3F00C5253F3030AEDB73092510D89F1D62006BAE3BC7D0D2640431 + A44A11AEF9C3FBFB0CEF8166CCFD013440E13DC48040675DB0E66D8BA7C23597 + 141931F4F4010D291264A8E9BBCF5012F89EE1FD0BA017809A7BD73130280619 + 32306830200C00693632FC00D1347D05434D66044349922043CFBCF70C2D91F7 + 19BCEB10E1A169AAC9709DE70783A2A100AA0B4A9282C19A7FFFF90BC4FF18DA + 0A6319923DEF33E4F47D6098B1E22443787A3DC3F99DD3C1E1E654E904F63ADC + 803F7FFF31FC016B846806D1207E7F6532437AFD0C865FBFFF32C4E634C10D80 + 4723C8005F076DAC9A4186823482F06F204E2A6CC56E80A78D06C3DC45BBC102 + 2141B60C6BD61DC6885A530B1D868CD20EEC06B858A8E2B5F9D71F089D5BD58D + DD007B136586E5AB0E80057CBC2D18B66C3D81E1026D7D3586A2BA3EEC065819 + 28E0B519E43210C0694073F77442990E0E300CA0343B030039812D6AB16B7539 + 0000000049454E44AE426082} + Name = 'PngImage20' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000000DF4944415478DA + 63FCFFFF3F032580916203600C9E351CFF19FE3130FCFF09A47EFD67F89EFC0B + 2E67E09180D596F3DBE733220C58C5F17F89572FC3FBAF1F1832D73630FCC8FA + CDC84000805CCF886CF314B73A86F7DF3E32546EEC63F8FF0B22F6BBF62FDCA0 + 8482061497CCEFAF676444B619A41946BFF9FC8E61CDBE7D0C7F5AFF32E27501 + F762F6FF309B9135BF06E20347CE33FCEDF987DF059C73D9FE839CFA1F1870A9 + 56C1709BC181F903283EE53F7E17C0386C5D2CFF838C1DB1DA4C542CB03633FF + FFFF8381289BB1BA801880350C48316008BB006F2C509A1B0127B3B6E11C11A1 + 6B0000000049454E44AE426082} + Name = 'PngImage21' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000000914944415478DA + 63FCFFFF3F032580916203885164E09180D596F3DBE733320265C09220E23312 + FE02C41F80D8158F2520D7430C9838112CF0F7F74F868F4F6F33BC7F7283E1CB + EBC70C770E3C6008413220A1A001C525F3FBEB1919FF010D60041A80AE1904CE + 000D4821E4828F401ADDD91FA1F41F20CE20E4024A6200EC028A63812E2E18F8 + 30187817E0CF0B14E64600B6F869E1FAECCCBE0000000049454E44AE426082} + Name = 'PngImage22' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001124944415478DA + 63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28 + 0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC + 886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2 + 908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81 + 3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC + E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC + 76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5 + CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818 + 601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082} + Name = 'PngImage23' + Background = clWindow + end> + Bitmap = {} + end + inherited LargeImages: TPngImageList + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000774494D45000000000000000973942E000000097048597300001712 + 0000171201679FD252000003CD4944415478DA8D96ED4F53571CC7BF17EC9315 + 11864234C607C6D4E9408621F88CBA88D0C64D48EA906C3E3459F40FD077666F + 7CEB62A2912C43F0A950A12A3001AD2613810908B46869E69E8B2FBA3087F499 + B6F7B63BF7E0BDB6D2A79BDCDE73EEBDE7F339E7777EE7DC3248E1303C346BC9 + A5812FDBED767AAF51D7B9C9F4A07E22595B2655F8DED202642D5E089F3F88B6 + EE415CF8BE857F9C54C2A402DFBD651D7296C8C5FBD3336EE87F7C8206DDBDA4 + 1226197C57493E96662D9A7BF9F810BD861A4BF1EFB4136D5DFDB8D2DC9550C2 + 2482EF2161C9266111E00D470B611C015A75D7E11FD6E2F51B176EF7FC8CA696 + F812261EFCC0F60D502AA451706DB902A7EB5F60D2F32195B8068EC1E5F1C1D0 + CD4B62878B4904F7F8392C3A3922C2C361D280B438736900B6D94FA9E4D5FD5A + C8A46968E9E8C555FDFC9130EFC3856C8984A72F90E0E31C274AD767A3EBF138 + 7A2D6E64AF2D82C99A4E257FDED320C4B1E87C34881BAD3D511226D1840A70E1 + B09AE7269987FB021CBCE49C9C545089AD5B0387CB03E39351E80C0F44892008 + 278207D830BE297F27FAB6DD41E182A4A9CF0698CDF8BDA31A334E2F7E7A6A42 + F36D2395303C3C56B644F69C09BA3139C5E2ECE11C5AE727DA9791274AF8B3C3 + 64A712ABE17338C9C4F70D3D4757DF2FA0829ACF8AE2C2BD410E013F0397C329 + 0A4E9CEB059B5B4005B38110825C083EF25EDFAFFF518959AF86E5E55F387FB9 + 19CCC5EB3D61AD661F14320915683616A2B24C22C2F9DE05FD0B10F4450B9C59 + 6B299C070B23197FE5A082519D0AD6DFFEC677F56F0599194AA8CA8BB1848429 + BDE40768EABEC6EE923431C6E1800C0C1B2D9852AE8E091FB959058F771643A6 + 0974F7BF04535C716A236963D1D6A95173601B9128A1286BA4924DEB58DA98F5 + C891217347096CD29531E16E12FFC1B109DC6A7F3837C9FCAF20397144854315 + 5B91A15C88CC9DD7A864F90A2F8A729538B6F7DD662748C602B9F37AFE74D422 + C2C5348D941CAF55A19A8C840B315855758B4A64996F909FEE84C7350D960D61 + C6C7D1364D7FC829BCFF4A05A97118187901FD1DE3FC85365FA28646BD132E6F + 0005070DC0E6CD5015E6C58C390F9748D2D03F3C8E9B6DD1AB38E66627488E7E + A942D59E2D9090945DA36EA392B2FCEC28F8B31B9598251FA061B335263CEE76 + 2D48BED25462DFF66228E4527CF4C55D2AA1C75B38CD16027F3F2C49059192BA + 9A0AEC2A2B2212193ED174D2673CDCED9DCB96D6F64771E109059192DAEAFDD8 + 515A08B94C0A8EAC5A9A2D6396A4F0A48248C9113292BC651F807C1260FFE735 + F4778D49E129090449E6B25516C7948DD64919A49CD2DF96FF0126B669571175 + 682F0000000049454E44AE426082} + Name = 'PngImage1' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD2520000032A4944415478DA + BD95CD4F134118877F5B0A22D84205341E30087E24021A45893131F1E2C178F1 + 2A26FE07C6C478319E8D9E8C8926EA49E217D1B328F142A24123070B2E6DB76C + 0B5DB6A585B614CA47BB1F6D7D772CDAD22DA0094C32997476F67966DE79F72D + 97CBE5B0958DDB1601C7719B7EE1D18B8F9768E8A17EB660FA2BF537D7AF5DEC + 2F5CCBD8FF22C8C3DF5FBED04D2F73882FAC40CF64114BA6E1F3F9797AC693E4 + EA7F090AE1FB9AEAD9DCD24A1ABA9E81AA6510239920C530CABB71F7E615EE9F + 0425705A6E80753D4B27C8A0AAD24A630EFE5002E25494242E26D994A01C5C55 + 7528AC6BC866B3A8B7D782B35830198A63C829E2D9BDDEFB4EE7F3DBEB0ACCE0 + AAA617C155EA29458546D2867A1B72D90CDEF67F41DFD37E3709DACB0ACCE00C + AA680CAC685A5EA4B13B38D97E00B14412BC57C2C0E0777C7A37545E50166E80 + F302E324EC37CD7775B4223EBF0861621AA35E19636322BE7D18361798C2159D + ED785550024F2C821F9F82673202419882382A221C0897DEC146F0D59014C213 + 0B4BF0D0CE9D8244F020FC3CC127C31819E92DCE2233785AF90B53F360632E43 + 1FD7098A79742E899F047691C0352621264F63C22D3178D177F0F8E540093C95 + 568BE29EA64C512834468A9EEA6CC34C7C1E6E5F082EA3BBA71097C310F9893F + F0B582D7C78EECEFE9EA6883B5C2C2629C5EB373259F9EDDC70F6226364FE020 + C6082E8E87200B0148A25C045F2B983C77FA684BE7E16696D3A9945A10EBBC48 + FB0D8FC617081CA44B0D421483181F19C7AC3C5B023715B43637D109AC58585C + C64A4A29806B043F84394AC561DE4FE560165E418668C083E6F01281A3CED6D2 + E4D8853D0D75D8595DC52ED2C89E2C8D5D14F34834C1B2E5873B00C123232147 + E017A4B2F0B582C14C8E3B5FBDA30A95560BF6EEB6A3916486A4C16187DD5603 + A77B025E2902371FC072740E9E51DFBAF0926A7AE7415FCE6677C052C1C1565D + 81C6FA5AAA2B39D45111CBD2627F7086761E424494E0F30436849B966B4362AD + AC84BDA69A5295C3F2D21295619D95E5C5E40ABC4E3F8B79FB99F68DD8ACBD7A + 728B332B153722B1F987E170181ADD81F1DCE8AECFDE4D410B1B950A6E7BFEF4 + B7B2FD02BC08E5EFAAF547E00000000049454E44AE426082} + Name = 'PngImage2' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD2520000022C4944415478DA + 63FCFFFF3F032D0123CC82D53BCF13655398871123B18683CC46B120D4DD10AF + 06A01A86F6FED90CE7774E27CA12922CF80754B776D7050651415E86A2BA3EA2 + 2C21DA0290E17FFFFE63D8B0F712838DB12AC3CD7B2F88B284280BFEFDFBCFF0 + 0768F89FBF7F19B61EBC0A0E2218A08A0520D0B3EA2131410E06A5E10A704BB1 + 5AD0B2EA0186260E0646869230798286831CD2317B23C3DB3DF98C382D00F141 + 610E0E963FFF18FEFEFBC7306BEB4BA22D3051F8CD1052BD0D6C098605216E06 + D008FDCFF0FBCF5FB0E1A0C89DBBE335410B7EFDF9CF3069DD23866827617022 + 0059F266771E238A0541AEFA0CED6B1E91144440FBC186FF02FA76F69627E020 + 82010C0BFC1C7519DE7EF88661C8B203EFB15A806C388CDEB9FF2458AE6CC679 + 4C0B3C6DB5C061FF179A2C81084CAF3AFC096E4144CB159CC1D49EA60AB6E4E8 + F133D82D70B5D26098B2FD25C120C2E67264FAF4E9B3D82D70325763F8F8F907 + 8605EB8E7F815B40C87010BE78FE1C760BEC4C5418FEFD852451502A82E4E07F + 0CDBCEFE005B00323CBA0D7710954629327CFBF997E1F6B58BD82DB0355261B8 + FFF41D86C6A3B718180A43E419BEFFFA87D5C520F6CFDF08B187B72E61B760DE + 92B5E0B2071DB8FAA73164F8C912653888FDE2FE654C0B181971975BDD2B1FFC + 4FF292061B5030E5264E75715E32608BDE3DBE4ABA05316E52045DFE0B5CB430 + 307C7C4A8605614E1244190E026459106027CE70E8E869066201C916209731C4 + 02140B6805009C1383EFACA508270000000049454E44AE426082} + Name = 'PngImage3' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000E9C00000E9C01079453DD000004BF4944415478DA + B5D37B4C53571800F0737A5B6ECB4B2F2D2D2D2053408286870CD4C9C0B89989 + 8ACEB041F035064CEB365800D93235C0EA40FD836D380C085B44C7C30993111E + 93199411DE844029B80908586094577B81963EE8E3EE82D311662A35DB97DCE4 + 3CBE737EB9E77C07120401FECF802B010821A8ACACC7BAC453B54A95E6405AE2 + E111631B7C9E7E331102E87431313C76B1FFAFFD9E071492C0A3A109218D8AD4 + 68C68527040281E1799B9FCF2A738306439314971765244598060C3C9E1406FA + BA73EE36F6045E381DD6B672F39339393457C4BE748BFBFAE08AFBED572E9B04 + 94D7B20647645D7111FB7805E58D359DF2817DB97CBE76795E7246717450E096 + 5C7239E5C7AAA62B99C9260039F977B893B3AA9E84A8FD3603C313BA9FAA5B8F + 9C8F0B2D799A73F6AB627B77676E4750A0375BD43B0ACA6ADA7ECE4C8A085935 + 9097574B1F56C89A2342767A6356E6A0AAB6E3E1AF1DFD5B6E0822D5A1A1C588 + D71B66D7DF7B3BE0E862767BCF20A8691265647D1115BF6A6031522E9784B130 + EB9BEF066DA72C68B5C4F5D2BACF5262DF493F935E78684F804FE9C6F53CF8E7 + 040E6E57B7E04A9572DBB7C951FD26018BCDF8B4FCAC5DDB37F377F86C84AD5D + 0353F79A1FECD9ECC22B3EF8E6AB2EB25925B85327D4F70E8DC5640B22AF3E5D + 640A004EA7FCC046D7A06D216F6D73E230AD417E59BD243CF8353B081128FC43 + 0C6A9BBBEF4BF48CBD2582B085970296904B45611C1BEB225F4F67848A40E0FA + 0A178C4864A0F46EEB2C3E33BF332735BA6B79BEC9C062BD5B482D8A5998D5A1 + 0D8E6C60678B01D14331E81D94246509DE4F052BC26400B8FC821E0E5178D9D9 + 326A5BC516E6737225F0B09BEB1892500FB688E7A5A02E52FD72C08E026F3B1E + 2B92CBC676D3E9664E23A313A85EA7910368A6B1E3602C3A1D5DA0D210B14422 + BBFF6860FC3BD018DEB53AC03797C659E79062CF65C6418346AF981AD3E85438 + 9C56D3692C864A6EE1E0A3D62AA6AD0787261A210D250044BCD45A832DB93413 + A8E70544FB49AD5100DB5FF1D14667CE3732F103056A98EBA322C42D8D9ED239 + 348725AEB39CF56438FA2E5066FAB893B8C27D4C4A1D279770C9DF3E09CCE831 + 8002CF12F5C7B28C022E11BF89508DD489AA1ABE26421D12414998FEEF23BBEA + 6683EF46ED7D09BDACD756A61AE2492A05CAA539A73C3A60EB6F03338623D170 + C4D328E01E5DAF21A47D5A864EE92FACFAE49F12F42F28DA84C93CA9F67E2832 + 3FECA4C30739DD5567F067F3BEB9A90035FF9468388A1A053CF8CD7238FDFB3C + 55A7F2E92C8F1D7B329A42A1BCEE52ED8EC9AC11DE56E61A44EE3833DA13DC5D + 9E50B30CB848023124606514F03AD5D24F99E9B5D42B64FEDD5509834B837E37 + 98660CD8E7B616BF2745DD985C267D977E52745D88D49F0025254F8ED0EFFB22 + F21EFC48C0D52860B9B7347B2D9C896252E70E8B2AE24BC1CE142AD0B97ECD36 + 577DCC3197F3BB71762B8FC3CAD8C0D46D958FF59DEA2A4F2804DED99B009D71 + 0B204803D170EC43E3651A50E88F52F4D55C0B45E563B9F597900031185DF381 + BD85A262DA801F5FBAD8C0020F1EDBA61ACE8D40E50225145722C1804AE39355 + 7480A83FDAF8E287E69FCF275BE7C82EC7D152A1C650F5B529037EEE59D52C5D + 7AD166000C17C85610F94D904F2C0D341ECF79E143FBAFE32F16D672EF3D728C + 4A0000000049454E44AE426082} + Name = 'PngImage4' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000AEB00000AEB01828B0D5A0000043D4944415478DA + B5956D6C535518C7FFB7B7ED36B66E5D47D67663731BECD5B18605D8504C084B + 74982DC16468D4F881AD0305E3870550D100EABE482246712A8AA00182BA9828 + 84252006D7264AA2631B461325DD5C9ABDC0686B6F5FB7DEDEE373EF6869C736 + B6189FE4A4A7E79EFBFFF5799EFFE9E11863F83F834BFCF211506AD6A7585DFE + A99E3611BD4B1553DE7FC0DC797B64FC9C13387B883149017C0064549A528F56 + 5A2A9E31AE2CD00EDF700AB62B034DAD22EC8B117E07482B3019F61516E7ED15 + 6F8DA6BB6F79D84D1F0E5A197B8BDB06F06D7A743F5C8827B4997A684A6A804C + 031C7F8D78ED97FA9B5BB130E4531E9B2A2D655D191AA9CAE570201C61CC15C0 + D94911D60EC642DC4915DA9BCA714C97024E6E87C46BA029AE86DA5C08C79F4E + A1F7CAB566AB08DB3DC280C19CA77FBBA42877BB776C940F08018444B0DB3E1C + EE6178AD1B88CAFDE58E02797526D8561BB1324A00519A191A532174E535181A + 1A176C3FF42595EB6360836595E1AB1C9DB660CC39A1EC0F46204E06B0AF4DC2 + BBB17D0A409E1C032AD6E7E3C7223D8C31803C54E999C8B1AC85F3A6CF6BBFFC + 4BB30C3995A2B2D696E6BC2F8602691E6F50D9E79F4298CAD2DE069C4ECC320E + 90E32450BF6605BE37A623231122A9782CAF5A0DF7B44618F869F0FC9A55D94F + BB275DAA6058549EFB66C45BACC085D9654C02C8F1058F268B09DF64A5429B08 + 11A97419463304B707E1E014A669215696093F9EDB097C399701EE01C8714A83 + D60773F1499A1A7C1264D6A0864A54F397A8E65DF3396C4E801C67B4D85F9683 + 4EB50ADC5CE25351B04972CB76865716B2F0BC8083D4DFAA545C2DCEC6BA9868 + 34011096ED18C4E1768657659D2501C8519A2C9DB6AB7A6DB955F8E3376EBE12 + C959F8C238B003E85C3480C497E5E51BCE6C78AA79EBDF17CE21484D5DA80FD3 + 049916B1872047EE0B20F1ACE212F3B71B5B1EDD343E781DA3D7FA93C4C88E1E + 8941CDABA04B5C8F48F289C58BCF2BE76F1E00D55C5DBF42FF5D43D3238F07C3 + 115CEFB90831CAE222816984DD213446818954158E136463ECD413546E428446 + FB2E72FA9C80AF759A37B734D4BC9E663070FDBD5721787C890D955C41B45119 + 3E57F6D29FA31BE8500187E8F1B2B8D80CE459827427014EF0D8FC585DD1C53C + 935E3DEC9CC4B06334A9C6247EC4CAB06776FA1F02D5F4EB8ED3743D77F75EA1 + DE63DB6EE07C1CD05791FB7B6D85B1CAE70FE1D7010722E2DDD2FC13823D1C45 + 039DD4C83C76D61A8197497D3F8DD43B990428BBADF4CE6505602FCAEE7EA826 + BFA56FD0018F371417F747E017A650FB027003F70932482D099FA0A9E5CE9240 + A37127633F739FF16859579ADD3D36E1492A0DB176B72BB7E0E2E23D20450B1C + A0E95ECA86A7526DDEC5582F27A759A6852D330575316708615C1A91B0E50D32 + C9620109BDA9A78F27A9D91D7117D19D6A58AEC6E9340D1AC9350295A796360C + 2D557C76241D34D97E5E4A8F9270ED506EC4FF1E32E05FC9675CEF0AFC725300 + 00000049454E44AE426082} + Name = 'PngImage5' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD2520000027F4944415478DA + 63FCFFFF3F032D0123CC02464646AC0A66243060B820630103230391006EC1C9 + 898CEE406A07B2E4890B40C33AA6A268B8B8229761E9E67F0CD1BE4C1886FD67 + F8E76151C0B0139705FF154C1A18045444212EAFC8061BFEE5C54D86A6E24970 + 0D75BD790C770F4C015BD2B16802C3FFBFBF19FE01F1D7A7BF1836CC69C0F01D + 8A05061153510C7F7D7527032EF0ECF216B025AD73DAC016DCD8D2C870FEC23F + E22C787C6C21C3D64DA70886AFB79F1983988E07D8825B3B3B89B70066092100 + 331C84EFECE923CD027430F9A037410B61A0345C016E095116FCFFFF8F61CA21 + 5F869230798286F7AC7AC8D0317B23C3DB3DF98C445900321C9452A61E0D22DA + 021385DF0C21D5DBC096E0B50066F8BF3FBF18A69F8C2068C1AF3FFF1926AD7B + C410ED24CC70F3DE0BB025382D00451C03D00290E120F6CC33B1382DF8FB0F62 + F8AF3FFF18666F79020E22BC71003210968160ECD91752B05A806C388CDEB9FF + 2458AE6CC6794C0BB0190EF2C5DC2B59700B225AAEE00CA6F63455B025478F9F + C1B4402F740256C341F4BCEBF9283EC0E67264FAF4E9B39816E8067563351CC4 + 5F70AB046E0121C341F8E2F973981668FBB761351C8417DDAD045B00323CBA0D + 7710954629327CFBF997E1F6B58B981668FA346235FCFFBF3F0C8BEFD7321486 + C8337CFFF50FAB8B41EC9FBF11620F6F5DC2B440C3B306ABE120FE92474D0C19 + 7EB244190E62BFB87F19D302559712B8E1E8F4F2E75D0C495ED260030AA6DCC4 + 1944715E32608BDE3DBE8A6981B45E00C3B34B9BB06A3C24798F21C64D8AA0CB + 416C503C7D7C8A6901B8CABC7001BBCB3E7B3E6008739220CA7010C0B00057A5 + 0F03DD2B1FFC0FB013673874F43403B180640B90CB18620100261ED9D6E5FCF2 + FA0000000049454E44AE426082} + Name = 'PngImage6' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD2520000037C4944415478DA + B595DF4F5B6518C73F2DFD4191B66C6C4E8512618376DD28B485B1C126D90F36 + 8D1B1726264B76B53BAF3431DE99F80F18BDD1449399254B644E1747743ADD94 + 48169C428131268366832D631BC838FC687B0A057AEA7B0EB692B562417D9393 + 9C93F33EDFCFFB7D9EE73C47974824F83F976E25A0E59BCE75D1DEFBF00CD72F + 7FA4CB0A70E268DD9AC4450C454F17F2E63BEF6784FC2780EAEDCFF3580A6784 + FC2B403CAE70EEBB007BFD4E22D15846C8BA01AA783C9EE0FC956E0EECDEC1C2 + E2524648D680E1FB9374760E119A95B1D99FA2AECEC5739BED5C68EBD58AFCE4 + CA1A1096635CBC14D084B7941761CECB25321D66EAFE440A343032811C959124 + 498B39DDF275760055BCE5B3761C9E321CDB1D42DC844EA7435114E6E57946FB + 4778187C44D3613F66B3414BDBC5B6AEEC0167CF77905FBC096F4D3936430EF7 + C2301E5D7E67B5409E3EC648D720F353111A1ADC28A226DFB607B203A839FFE1 + 4A0FF5C71B291169B1EBE14E086E882C0813E488E70D3630CA53F48B4EF2EE72 + 512852F6FDD5EEEC00EAE973375AA93C50C55C04CC0A8C89D3CB4B5060165D24 + C242E2DE4A98B1BE2114D1413E7F053FFEDC9B1DE0E34F2E535A5341597529C3 + 63301703530E3C9B07361308034C2E08A09009DD1A606CE801FB1AABF8E9D7BE + 7F06A8C5FAFCC235AC22FFAE3D2E46C661711136E5C266711905A8C0080BC255 + 707A9E4737832CCE84D95959C6D540FFEA80E32FD56A1FD0E8F8B45683FD279B + 90643D2191A62DA2B076215C201C6C109738070392CC2F5F75E0F26CC5969FCB + B59EDF5607BC7AB84673B0245A51EDFF925D4E0A859389591D46B1F519E1C022 + F2633588B489E79B771E70B73B48B5AF428B09DC185C1DF0CA419FB651854833 + B2E6C2DFBC1BEB461BB373A20E8A0EBB69B9931E4F4DD37BA90B5FA59D2F4F9F + E575DF755AF3DE5E1DD0BCBFFACF39B3EC22223EB6E488F01CF163C9B7109989 + 30D0D6A7C544676EE1609CA6E2DB58BC47986CFF9463AD957F0F78F9054F4A3C + 098A2B097E17436C38389A9A455B9D0E0C7A3D5F7CF02E45917BD497C6707B8C + E4541DD320C5AF756406BCD8B0334D3C39399F0427EF4FBD518FD751AB419C6E + 03267F730A920638B4C7BD26F1E4BE336FED4B41563A490334D63AB52075AEA8 + 814BF1BF84944422A37872AD846C739B18948CE980BDBE726D22AE77F59C3A99 + 829C934AD201997E1E6B5D55D1560A771C659BC7CB1F1C73BA92B5793DE80000 + 000049454E44AE426082} + Name = 'PngImage7' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000B3A00000B3A01647F570D000002724944415478DA + 63FCFFFF3F032D01235D2C606464C42AB978D3F10C0E76EEE9E4181CEAAE0731 + 1B9F05AB775E3A1DE2A66B822E0EF2F3BF7FFF19FEFEFB8742FF03D217AE3F67 + E89DB19261F3BC2AFC16C05C0FB480E1E0E97B0CAFDF7FC5E95A51416E067D0D + 49B02513E6AC66D0D3353A03F481295E0B40AEB73751341115E2818BFDFB0F72 + 2DC4A5A82E87E0CBB75E3014D6F6309CDF391D6C204E0B905D4FACE120B9C9F3 + D6C05D8FD70264D713133C5A2AE20CD7EEBC44713D4E0BD05D4F8CCB4172A965 + 5318FC3C6C18EEDDBDCEC0C6C6CEA0A363C400348311C30264D7136BF88D7BAF + C129C7232C99C152959B61FDFA350C17AE3D63D834B712AB05FF41AE07197EF8 + CC7D82C1A3A620C2905E3115C570297975866DDBF7A35A50DBB3E03F30821880 + AE671012E0C69AC681086BFACFAE9ECED0589D07371C04502C689EB8E4FFEF3F + 7FC9C9B070C0CCCCC2202EA30C371C04E016D4F52EFCDF541C4FD0901FBFFE31 + 7CFFFD1F4CFFF8FD8FE1CF5F18FB3FC3E68D88A0F1F27444F5013116A01B0EA6 + A18683F0FE9DEBC0110B321C2388401650143EB060E2E063E0E6E165E0E1E621 + DE07845CFE1D2A7EE1C82686EF7F9818787878C0961C3A749AB005840C5FF4D5 + 8E61C1850B0C4BB5DE30DC38B585E10D304973F3F2822D397BEE067E0B8871B9 + F76901B0DAB9AAAF181E9CDFC670FFD173065E5E3EB025376F3DC16D01B1C1E2 + 9D21C43083D59481B5790BC38B2BDB192E5EB9C1C0C7C7CFF0F1CB7FD4FA0066 + 0138D9C10C40321C268E6C3848FC75B127D841300B4E9FBBC8C0CA210A361C24 + 8E62415D411CC3EC95BBC94E41CF9F3F07275398E12816C08A0A4A92A8B28621 + 43828F3E4AB90FB7809600004F6ECDEFF6DCFB3B0000000049454E44AE426082} + Name = 'PngImage8' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000B3A00000B3A01647F570D000002954944415478DA + B5955F6852511CC7BF3E9882694B723D6450D4A21ED61FB3879EEA295CABA058 + D1CB6A23A315C2A441AC4123368A82FE5011066D63D1ECAF6058291643AC8D60 + 966EB5FE3E64D4966B7B1841B1997A4FF75CF14E773DFE1978E070EE3D1E3F9F + EF399C9FCA082190C964284523F73A88AC54020A8F9E3323A7E0B6EB558352A1 + B2150BAF991C00852B0779742EC143EFDB40CDB64AA3241DDF398EC066F74ABE + 6399372AC2E93B53904ACF0BE00F7CC5C4E45FC99AB15FA3B054AD07ECE781C6 + CB4084876FD743D1DC01D97E736E014DBFC5B8DCA8D3CE17E7387E6D824FCE71 + 9CB083CE07BD387CA94AF84CE1FC88E8EE3550D45961F04411F2DAD882F4F42C + 78821FBB1D3E58E2EF10BD7A425CA7708FC0507F26B7203D3DEB78C423DABA12 + 38DD8868D02D1C0DF6D4C2B0D3CA16CC4E9F2D3927BC13F43CF2C3526B02EE5E + 037E8401F34940AB83C1740C2DC78F0AB74922484F9F0B4EFB1DD70B74D95D59 + 7717ACDF88AC75C00B084D4FE12F5F8799C7439B6EA10AAB962DC291E6EB30ED + 3B84CD152A389D0EB4E9E3D23A3875A19BACAD34804F0F6D994A4C3B939A8EC8 + 987378FA9975B0D770168FBB5A9282F62B3D24164FA0D8565EBE985907BB9E8D + CF085A2FDE226D4D07F302A7FF71988A11619C8E7178EAF531EB40BF64697182 + D9703AF6FAFCCC3A90088A3E9FD41131EAA0E01D644B9E7C267833D0C7AC8382 + 04B9E0B4BF0FF533EB20AF201F7C8A7FAE0E94096B3B2BC6F12DE446F87B046A + B5062AB51A9FBF8CB00585C0E97C75831637E49B206F7F82B1610F86863F41A3 + 5980DF7F8800A7AC0C413C91064883A7E6D3E1747EA2297945538240700872A5 + 4E8467085AAD0770F3FEF3B95C26A14522110C7EF899011705A99F8A39D3F9B6 + 62F506D4ED5827F9E71204A56CFF01E5E2820611E3A8010000000049454E44AE + 426082} + Name = 'PngImage9' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD2520000029E4944415478DA + 63FCFFFF3F032D0123B2054BB79C24CBB6DE290B19CEEF9CCE882C063317C382 + 681F73920C07EA619016136628AAEB43B184AA1618682A30BC7EFB19C512AA58 + F0F7EF3F8615DB4F33D818AB337CF9F613C5128A2D0019FEF7EF7F86D5BBCE30 + 38596833FCFAFD07C592733BA6319265C1FF7FFF19FE02F11FA00520F6BABDE7 + C0918C0E48B2E0D687070C53AF4E62B8F0F6020348B59BB41F43A1661603EF12 + 0E8637E15F188E9C7FC0F0F5DB5786B76FDF82D5CF5BBA89780BE6DC58C0B0FD + D9620C4B4F3FBFCFF0E4EB038697219FC0C1F5E7DF3F30BD79EF29E22D38FDEA + 0283F906230CC303551CC1F4FA3BFB199E057E801BFE0F18275B0F9C26DE0287 + CD4E0C879E1F6028D56B606834AC021B62BEC582415D44106EC123FF7770C341 + 71B3E3D019E22C38F5F20283FB7627860D6EFB18CC8575A0A9E61F83D5762B14 + 0BEEFBBC811B0E8AF83D47CF116741FED12206676064BA49DAC00D1758CE8511 + 5C773D5FC30D07A9D97FE202610B400A6BCEB430D4E95532FC03CA234722321B + E6F2B92FA631C408A581C50E9DBE84DF82084F5370068219C4BF9413C3D5F7BC + DFC033DAD467ED60B164E112B0FA6367AFE0B720D4CD04C595422BB8E1A9E6E6 + 9BF70C5BACF7C00D7FCEFE942160971343B16E1D83277B3058CFE98BD7F15B10 + E46C84121CA2AB79512CD868B10B6CF8DC97D319BA2F3530D8493A30F42A2E84 + EB3977E5267E0BFC1C0D50C25A722D3FDC0274004A454DC67D0CAEAC81703D17 + AFDFC66F81B79D1E4A10C96C106490E15600E75A74806E3828C2AFDCBC83DF02 + 0F6B1D942092DF2CCC70DBE315C3F2D74B18763DDDC400D265206CC020CA2187 + 61380810B4C0C5520B45132C4271255564C389B2C0DE541D258DC33210580C4B + 9E40369C280B6C8C54C125222500AF05D82A0F7200CC0200F191E9EFB5062090 + 0000000049454E44AE426082} + Name = 'PngImage10' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300004E2000004E2001167D99DE0000035A4944415478DA + ED954D4C134114C7DFEC6E0B420B085A6A040DD88A45C0C4602D4A2D281F5589 + F1AB6AA2094A4C5502DC34F160EAD11BF1E4498D462F1A43FC408BA052C11435 + F8890AA222A2601B6B2D94B26DB73BEEB4168B16E1E2C1C4974C7627F37BFFFF + CB9B995D843186BF19E8BFC1940653012693897AF9CEAEA5696825732FE72B6B + 3877F2B6F01A982A77435595F48F0646A351E4E3E3342CE7BDFBD1F6F1E7024D + 957CE6BCED6FCC66EF6485D71D3DDE617FDFAD9ECC00E96B6BC5727FAC9A65DD + 41718EF795A6CBE6F9699A6925738F67ACE091A5A5235AB2C1502DA1E3F108E1 + A219A0CA4A530C15CFE68F7986DB0814F0072AAC2DD71BC9A276FDA69D98E7CE + 7198DFDC616E6C8866A0D6EB13C448E48AB6078278A5209E22888F05C531E075 + F76E5CBB11660B4AD716D30C732BC0F37A6B5363535403B56090F2BB01D209E2 + 4AA96C99DB1D6A0BE251455BD395C6C8E4253A5D929491248F70CCD7A796CBDF + A219E495EE8A4F605CEE09060683412C92CED6F03CB64C26FE830F9F6B4A187C + D41D144EDECAFBF7D50889AC41039D4EC7C83354050850B0721FEB392441D892 + 1827C62C93E892393F7F3863B1F822049142A110CB6473553C254AA431041806 + 80E3001266A7D8ED036FFA3A3333F94237CB1103B4AD72DF0A0A51EDD18AE91F + EA3F2191CCBADA7CE9ECCD88EA614B556DC9E0A7B71BE7CF997FE0579E773B2E + 386C0EAB5CA962D1DE9A835AD273B25873B41E66C602385900DB28C0C008C0F3 + 0127F49C3282D3ED2F7FD16626170C6FDB53534CE140F39FF8A10FB6D573E6A5 + DE463B761FC061F17C39C0A03B34C209244892F9702924C5607DD6E2A501719C + A4793A7C863203D05C450ED6166AE1C8B17A9821F4718C9B5811097A580CC7AA + F38070E1980E1FDC2C7966567ED1AAD50F4945E1707943C3EE9998402A229196 + 9A06D3E159AF6719D2EB6B63B20A942D19E5C6C2746908F0064209E449E0272E + 1BBC3D5F37D865BD6BCCC9CDE5E4694AB3667F3D4CC5B73E7EB020784CD76EDC + BE70C4EBE9D96ABA0831B470DC9CE2F1EA084CFAF9CDE95C33EAF8D49E9D9D0D + 0AC5224D5C72AA85984CC6B37E9FCAD1FFBA7BFCA269CACA14CB57569CEEEC68 + 2EECEBED1B4F50E6A8067BBA7B770F753F89FC4453E5DB77AE1A1D1EBE13C986 + F9AE675D455FDEBDEA0DEEC1BFFF47FBE70DBE03EC16D6DE8FAAF1BC00000000 + 49454E44AE426082} + Name = 'PngImage11' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD252000003784944415478DA + B5566B48544114FE362D31A3C78F104C7B50145A902FECE15299D12668ADBA61 + AE925AA405811585F4A31745FD308A0A42DB5EBBE96E56AE9AAF30CD2CC5C79A + BB998FCCEDA5640F15823233DC7B9BB9EBBDEEB65BAD5207863967E6CCF7CD39 + 6766EE15B12C8BFF29224AA0CCAF89237DD63F051689E21323C5D91CC1F5BC6A + 96186302A0EB68EC0CC3C2C430309918B34E7A2AF2DD2751A23A21B22210F965 + 9A17EB5304DD9ECD34256382FF25C11EA84D82DB8A6B9CDEFF301E771FE8A0D4 + 94E0E1ED745B020A36F69DD39EC5F4552A7CAA88437155A37D02478421FE96E0 + E6366293C610FD5E75D3F822A0E096B9363116E0C4765FA74677690CCA6B0D63 + 23287EDC850B375BF0A4AD177D9FBF63DA94499086CCC1B15D0198E2EA2C44E1 + 21D1E04DF16654D6373B4E702CF3098E663422FFAC049215B35050F5165BD22A + B8B9D0200FA84FAE11A2F00ACBC1CB42191EE99E395E03D76597F1FD8709BB36 + FB207DEF320E689A58C9CD393B89D0551243C6F81A985357D3D4EA5804F47424 + 1DA982BAD488C329FE48952FC6FDDA77901D28177C68CE79F0F91177D09E2B45 + DDD3F6BF13F005A5EDC730C3919C57B7C063E6645434F40804AF8B64233B67B1 + 28528B67B736A2B1A5E3F704F412D1313EDCEE8F0388492B87FE793FC2C45E50 + 1C0A86A7E4A64060BC1B2D6CC447560083261CFAF64E5B82046930B7800233FC + 1927FADAE462E85A7BB9B9B6DC284C759B08CF0D390241475EA4E0CBF7CD1D46 + FB04F4FA0F356CB75AE0BE2E1B43A4C854CA2E4AA02A3222ABE4A54060D044C0 + 89149BFAFAC616A1E146185A3B5FD912C46F5C8989810A7C23EF8AC9E22229B4 + 1D38AED07360625F77246E5A0065A111F7EB7AE03C4184D80DF3B047EE8D3A6F + 4F81D4455B694B200F5F0E97A02BF85293387A4B99D14233BF1C45ABB490A65B + 321B29CA73C84C48B54F10131664B573BB4056F3E6776778C447BF74EE9F09A2 + D707622AB9407D95F1E6428F000D5B00FFFA06D5FB8CA685CA8E3307A1D877CA + 6A4C2090860660C66A1537D853160B8FF51AC1E9457E14164AB582AD5787C34F + 5E840CC34E6ED7ECE057B0FD1FC0F4BD0778BDD380EB060B8288103F3B69F8F3 + EB49D36229DBB78A7145556D3F024A5058A973E89B604F86A242B02D7C01AE92 + 636C5303FAD1CFD196667D1B1C1A3741EC9DD348F40597168D6C3F92E2A4A31F + 7DF207306E605E3200E1FF6727C90CAFFF0482645308AD8246DC000000004945 + 4E44AE426082} + Name = 'PngImage12' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000E9C00000E9C01079453DD000003DC4944415478DA + BD947F4C1B6518C79F7BEF8EFBD56BAFC7951F33BA75E9822B88520C88D92C93 + 05C410CA70986D3261B1DB3F261B24D3F92331F2A799C6B0F96B666668165D88 + 12E7FE598CC14C639C43D0988D41B69974DD5A680B584A5B68EFFA7AAD81306C + 8D0BE2935CEE9E7B9FE7FB79DEF779DF97C018C35A1AF1BF020882C81978E004 + A6EB6BA106236D0B42E4BD080045E3AA8A35ECA3587A607709717531F60ECD7F + 0378FFDBF806A9807E2734956898F027A94844054D03C86310701C02AB950B47 + E3DA075D4EEEA5BB069CB898DCC671D03F3E1655BCDE0548A520F3A4D332DFFA + 9BA208D8B2D5047351B5EB48BDD09B13F0E27B41E7A580E5870B3D849AF64F5F + 49BA522AEE1B198E48B11806DE40416C4EBDA380A9192D03E278048D0DE61BDE + 49B2FAE5ED309515B0AFD7838D14FFEE3C6DE9AEAD559B6211AD7F642842A91A + B1243E3D1D85D999202416E2C08B0A30BC5907109999382A045C5E2674B6DAE0 + 93AC8096377EC7452C8F79237DB6AC5CAC1BBA14165329B4243EE10B82DF3B06 + 34237E93C2DA607C36F4B849595F67B26C22B03E0B399F82E626F9B3A76CB027 + 27A0D0600235F9D7325034B5241E0C84E1E6F591A02E7870F058D599F4F87AE7 + 295654882F8B37D434D08CA4C7226869967F7CA6143D9A1320911C305C5EC65F + 140F8713E0B9368C3535F5E4D069D7F9E53DB0EF38D526291BFB8DCAFD603090 + B0C3257DB7A79474660534BF12C0884A81C9844056988C7824A24168D283FDDE + AB472F7FD17164E52EB3B77D7C1FCF291EB9F8613D8F84D656F3B95D25A83927 + E076488375051498440C825E5178568399D0ED9F3DD7475CE35FB97D2B01B627 + 3EB218154B405E570D160B05AD2D52DF4E1BDA97133039A3427AD714EA0D33EA + 907455A169350E40BA075EB37CBA12B0A9ADEF1E91C9BF251557C1462B03CEAD + E25BED65E8705640E5013F9E5767F553A4014AA9A07700B4E43CA49271482EC4 + E7584172FD76A66E7039A0F2D9F35588CCFB49904BC1F1100F763B77F0390779 + 3C2BA0F11830E274805EF4037F3BD731F5428F757EF91FC7DEAFBB04B3ED6D82 + 12A0A9D1A4996554ED76D0C35901FF74D965B347BA6F725AD8F73D27592BD3B9 + 9DED66DF956B0B9547DB8489FF0450D171712F6750FA106D440F3EC0E9CBC39C + 7CBE266FFF5DDFA6D9CCDE71B98867F02F2C5F50C43024EC6C312646C763F6E3 + 9DD28D5503CADB7F1568160D7086C27A8AD42FB97A51CDB75087DD0EAA373DBE + 6A40C5FEB10F395674CB324B6C731A4010D09B7E0FF56ACFD34462D580C70E85 + 369BCC7874730987CB4AD9D1C980FAFA0BDBD9CF97C7AC0AE03C3423EDDA2D9C + 5414FADCAD089CEDAE20FE58199313B016B6E6803F0192C0D6E065D4DD9D0000 + 000049454E44AE426082} + Name = 'PngImage13' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000AEB00000AEB01828B0D5A0000053A4944415478DA + AD956B50546518C79F73CE2ECB5ED9B3ECB22C48800A02CA45101BBCA005D9D4 + 4C17758C6FD57899FAE0D4871AB3CC6B5FD2748CA91877600AB3A949CA4427E3 + A65C1409729565B92CEEB2807B935DD80BECB2B773F6F4420A5841493D33E7D3 + 7BDEDFEF39FFF799F760F058C5601F2BAB443E079B0C077DF250304086432117 + CDC6AD3EA77FACAC6CAF77EAA5B93BB07F8B3EFD55A37872CC95C7E5725E6671 + 584F4570D871188E7182815068D2E3354E38DC17273C8E2B9DC33A4D735599E7 + B10495E76FC63B6CCED7F8A4708F58267A429620C5C4B1628C601310F006C06E + 1A656CF7ECA151B3ADDB366256EA07BB2EFEF4CD19FBF427FF13FCA4F29214A3 + 88BD9218F2CDB4DCA531B1F1122C40B0C11B02A0C37F74C822502A011F63EA37 + 33BACEBB8377BBD5A75B9B7EF956A3B9E15C50B063C77922AF20622B29979CC8 + 29484D4C7F428647E038DCF703BC70E826681A34F0F9B15720398F0452C0000F + 0FC1B0C640AB9A3ABA55ED8DEFFD5C5D797541C1A7E5D5F2E024766C59CEB29D + F96B5388380E0BC351CFEE2040E187B3024516096C1680044958FE71467D4D1D + AAABAE52B65D6F38BAA0E0E8890B05B21871E5AAC28C94D8043926A601F80480 + 651260DB47B382F47C12BC14008ED6A2793458D4FDE196CBB53D576BBE7B635E + C1543C2B32A8ED4B33932A5617670929161F761EB9396F330F6519EB49A06C56 + 4655D3EA3A5B7162DF0282C3112969A9AFA7E7A794E61467478E072360FD66E5 + CC7A6671E634746E4D0956AD2301BC4EE8ACFDD5AF2C3DF2C9BC824D9B0EB30A + 3624EF589EBDBC3CB7389B1F2004A06A76CEAC2B5BFA66BA9E5B1B3693601DB6 + 30B7EB5B3D155F1C2B5DF00C0E1CAE2C8C8E8B399BFB744EA2302E16333B3020 + D08E680EC09EE3B367B0BD98041A4D2A9A5AF08469E8EAE8635A2E5D19BCF07D + D9A90505EF1CA84814F1F92757ADCFDC96929F8A8F4DA2F9F7014421C1C62DCA + 9958B622C154518866754E80A6454D55559EA96F69AA3E3EAF40B57FCB726D50 + C0D2466DD9268D4F7C376B6396589A28C7EC1E0218344D7DEDB371BD84040CC6 + 80C31F64746A1DEABECE5873F9EBB33A9DFAB3BF15B41F78A690C7659A3D9152 + D044AE8500AE08B1F83266C593692C91428A071836BA0470E0A2B1E4A10747E1 + 38C6BD8C65C014EEBCFE9BA3B1EEC7DAB6EB57CA298A6AFB8BA0637FF18B3C11 + 5D91B03A534684ECA0712583C61D0316271EE408E4DEA495295162B904E39242 + 60B1D998DFE367D04507F6210BD577476DBD73BBF9467B5BED799FC7D38470EE + 47041D1F146D1788C22715B9EB92843C0A5CDA4EE8B708A163221E8C7E4269F3 + B0FB2339FC2269AC224D1EAF904444B2591E97276C1A1A720E1B740383035DB7 + 7A7B54F5341DB88D702E987BD94D752E10D3A58ABC8D4922AE7F1A6E30B2C130 + 26048DD50A23E38EE7CBEB354D19196B93A3158A748C2696D1B43F0AC5002EF7 + 98C334ACEFF47ADD030835821EDF432EF630733E9FFA217ECD3A998817828981 + 2ED0E93130B824A0350D41B7590F6E7FF0B9BA2E67CD833DE8E6017410403CE0 + 4C4D68706A90E0CF3F1CD5C1E2A24801D1B0243707F85C149AF60E188609E877 + 4483D6A8875E8BDEE5F4516F35F6B8CEC1220AEB39FE2CB3247B25F0055C14CB + 2D1834B2C0E010836678007AAD7ABBCB1B3C78AD775CB918F8B4A0FE5409B366 + 752A50860E1832A1CC4705A0351B416DEC7721F8FBD7FAC6CF2C163E2D38B4EF + 6D2647781F12682F82F3A0CF6C821EF3008C7A03AF2E36964704BB77EF629688 + F9407A6CE01CB987E006704FFA76D575BBBFFCAFF06941494949915020688811 + F1E15E4F2BD82CFA5D63DDEE732A80D0FF21F81D69327688E78891A000000000 + 49454E44AE426082} + Name = 'PngImage14' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000AEB00000AEB01828B0D5A000005234944415478DA + AD956B4C53671880DF7329BD9CB6B4A5174A454005112F205E16DCD46C3097ED + C7B2690CFFB665BAE80FB3FDD8E2DC8C739AFD984EE3C8326203D9702E5B069B + 139D8E9B82283299454AB9147B81DA9BB4D00BB4F476DAB3AF80896E02D3ED24 + 5F4E4ECEF99EE7FDDEEF7DBF83C1135D0CF6B9BA4E18F2B0C4896848118B46C4 + 8958CC1767E1CE90373C5E59B92F98FCE8E119D8BF459FFAB6553435EE5BC7E5 + B25F23D9E4F3296C56068663EC6824169B0A04AD931EFFF9C980E7728FC5A0BB + 5657197822414DED4D95C7E57D93120BDE11C9848B6599524C942EC208160191 + 6004DCB631C675CF1D1BB3BBFA5CA376B571B8F7FCAFDF9F764F2F7921F809F5 + 05294613FB2472F1DEFCE225F27495048B102C08C600E2899908490265251262 + 6C4376C6D07377F86E9FF65447DBEF3FE87437BCF30A76EEAC25D695A4BC2E56 + 488E1795E465AD582CC353701CEE870106BD00D1F84C0E481C40CC678087C7C0 + A233C7356D5D7D9A5BAD1F5EAAAFB932AFE0CBAA7A45740A3BBAB468E9DB1B36 + E612196C12C311D11F05E81E07F044101F9B192C12408224647882D15ED5C69A + EAEBD49DD75B8ECC2B3872FC5C894C2EAA59B5A520373D53818950C41401E098 + 0218F2CD940B8F35B38A200D80A37769BC3838B44389F68B8DFD571A7EDC33A7 + 20999EE505F48E25ABB3ABD796AD11D024056EEFC2BBC6E502D02E27A369E8F0 + 9DA93EBE7F1EC1E194DCFCBCB7566CC8AD282A2BE44C445360EF6737E704EB5A + 7470E9B73D4071D043D00B3D8D7F84D5159F7E31A760EBD6C364C973393B9715 + 2EAB2A2E2BA422041F4AB6AAE78D3E295009019C1607D3DDDC11A8FEFA68C5BC + 0B3E78B8664B5A86FC4CF10B4559828C74ECBE77E1B6C9498D436FD720D37EE1 + F2F0B99F2A4FCE3BE3FD83D559428A3AB1EAD9D5DB7337E4E1E353A8FE4300A9 + 6C00394A059B98ED83590A8DEE4EEF24E8DAB5745DCDE9E6F6B6FA63730A3407 + B62DD347F9A43E75DB76A92AEB83359BD788A4590ACC1D208041D5244896650A + 2A4FD4033896DC7C063CE12863D01A50F44DD6868BDF9D3118B45F3D5670EBE0 + 8B5B785CE65A8023051D67234470658CA464CCF267F249A1528A4718549B0C0E + 5CB4021E1A3824C03311641C265BA2E7FA9F9ED6A65F1A3BAF5FAEA269BAF31F + 82AE0365AFF284F1EACCB5AB6544CC0D3A5F0EE8FC727078F1289BAF0866AFCC + 4D15292418572C0092C5C2C28130830E3A708F38E8C13B5AE79DEE6B376E7536 + D68602813684F33F22E8FAB874075F9838A12CDE942DE0D1E0D3F7C09043005D + 932AB08609B52BC01AE2B0A95269BA325FA1524A52382C32E00B246C23235E8B + D9601A36F5DE1EE8D734C7E3916E8443ADF850DB2423E78BE215CA759BB385DC + F034DC6C6581795C003AA71346273CAF5435EBDA0A0A36E6A429952BB038B134 + 1E0FA7A23480CF3FEEB1598C3DC1A0DF8450A368841E70B10739A728FA67D5FA + 4D32212F0693A65E30183130FB24A0B78D409FDD08FE70F4E5A65E6FC3EC1CB4 + C5903C2488590E3A57219A2C24F8FB0F4773A8AC94C3275A1615170185DADCAF + BF03660B01439E34D05B8D30E030FABC21FADDD67EDFD9059BE03117D67FEC25 + 6651E14AA0F85C9496DB306C25C1EC1181CE628201A7D1ED0B460F5D1D98503F + 0D7C5AD07CB29C59BF360F6873178CD850CEC7F8A0B75B416B1DF221F8475707 + 274E3F2D7C5AF0C9FEF79822C17DC88C07119C0783761BF4DB4D30168CBCF1B4 + 697944B07BF72E6691880271C005DED17B086E06FF546857539FFF9BFF0A9F16 + 949797970AF8FC16B990827BFD1DE07218778DF7F9CF6A0062FF87E02F9F6855 + 88E7298D620000000049454E44AE426082} + Name = 'PngImage0' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000AEB00000AEB01828B0D5A000005A34944415478DA + 8D960B50546514C7CFBDFB625958DC455049C8074A3C44B490C67C8C5A098A8E + 8E61A0E68C363A4C884C5A3E7240D1F1C13496A58E634FCD0AABC9416DB29C18 + D9626C542052234904158170A10576F7DEBBDF7D75BEBB0B3E82F49BF9CF7767 + F7DCFFEF7CCF731918B8E950C1283B6AB8D96C8C62F5AC4994149EF0A4197F6B + 4575A13894D29F81AAAAC00C601EA6D3416A5090F9F9509B65AA2D3C74C490E8 + C121C19620D6E316E4F616678FCBD973C3E5723B445E2CC7F81A94F7710034EB + B17ABD7E516C42744E424AECA8F8F1234D23C63CC10C8D8900539001BC5E1E5A + 6EFD0DF57537D53F6A1BF9FADAC66B6D8D1DC7144529C3776F51DF8100D43CCD + 1E11B626754A52C69CACA9831252464358B815581DA305CB8A028AAA804F26E0 + 1638686DBBAB5EB9F417549EAA71D6573595096E72103DAEF442EE07B0A8F1B6 + 48EB96CC97A6A72F58362B3866F43046A763FBD2A1C6C5F90ED8F8EEB3C0893C + 78509C28809BF74243FD6DF5E7D2AA9ECB3F5DFF9678C91E0C6FF0FBDF034418 + 0CBA4DF397CE5CBD7CCD7C4B544C24A36391C930BDB940D19A735AE0EB7B9F06 + 0FE1347935103EFB38B8D3D0AE3A3EAD72D59737BD8361FB513DBD0093C1C02E + 9B38257157DE9625914F258F445F06588645E1D46048515E399C2E3D08F372F2 + 20B7244933778B5EF05210422888230234D5DC81F3876B9B3AEA5DEBD1F73402 + 240A181E3ED476287BD5EC3959AFA6B366B34903E8581DF66C9F396D14B0724F + 3CB87D1E70138F96B936020471124E57B7176A8F5F93AE7F7FFB33C9236D4440 + 07CE33A4C7A5C41ECDDF9A13999C1AA7654DB3A7806DF9157DE6BD80FE5AD4AA + 0EE071148244A0F9421B5C3DD2D0E469E65620C0C1982C86E21973D336BF5698 + 6D1844774C20FB9D05950F98D31D24490A88921C90FF39B7E02DB0AF6C418080 + 001F74B5F640DD478DA2EBF79E4259944B98109BE5544E6E46E6E2D5E98CDEA0 + 031617F7ED75171ECB9C2A7F7D21985FB901BCE407705E011A4BEFA8CE739D47 + 245E59C9D822C2AAF28AB3274E9FFB0C43E77EDF869AC736F71109DED85C0CCC + 92BAC0088876465ACF38D5B613CE5F658FFC1C631F32A8A660D7D209A93393B4 + 1D7968F3953E407FA6D243CF9B0A77009F558D009F66EE9345E83CD705EDDF74 + D6CA6E790263B5592A96AD9B37EDC5ECC98C04321045842FB7DE8413C7DE7FA4 + 39ED0B8B77C13F0BCE6BD3A3017C22749C76A9DD673DD58AA0A432C1A1410766 + 2C9A949BB576B60E8218201844213FEC76C1E71FEEFD5F73AAED3B4BA0655E05 + F81040307BA18B40676997CAFF269C54457521C31AD8E58993461F78796346A8 + 2DC61A18A61F72699F0A1FECDFDD6758F06651BFDBB431E34704F8DFE11A04E8 + FECACD49B7E5125556B7D383161F1963FB62F6EA2929492FC4323E55BC079125 + 683C6C85F7DEDEAE01E8822AD957B5E9E051DAB468BDDF5CC445F73838953B2B + FCA276AB5BF01C545240A8C1ACDB903C2B6EFDF455A966A3DD0082ECD3168B42 + 44EC5D47A361CF8E426D41DD8B2EF6ED169A756FE634195F1B016F19D72DD5C9 + 5B41828F11E0E9BDECE22DB6A092B4A5E3D3C7A63FA9978D0AC35388F6B27F67 + E8BF4ED602DB321D81D1899A4445F2F76E51E52A0442CAC5E340A010439BEFBF + 4D8DA8CCC1636D45E316C4260E993458279914C6171809096CBFF09393E166C6 + 59CDD01730A72324682E54119138C845F52E6C432F074A7AB8E0846255586C1F + 655D1B3D6D5842449A5DCFD870573DB026FE7511E994507311FF6B2720541322 + 568BD56A3BD0ABFA3B943050C9B4A266996C8615F6C4B099D6849060D3082303 + 363CD1264583116AEA45E05DEC9B7C2AA9177BA4EBF2192CFD9FE0BB9528FE51 + 45DF801AC31AD9857AAB3ED318AE8F3344E843749178EF5A8021DDA24ADA4549 + 724A3DB24BF95375AB65B8A02703F5587A54D1EF6DF477FAC91285953A99D1C3 + 38303276BC074D8A0CBC4A54271EFACBA8AB18D30EFE4F97FF340AF8172272E4 + FE66E507F40000000049454E44AE426082} + Name = 'PngImage16' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000AEB00000AEB01828B0D5A000005A14944415478DA + 8D960B50546514C7CFBD771FC0C2E22E026A8A2F140145B490C65047AC0445D3 + F111A463A38DE608CA949A1A83864C2AD5E8543A4D33659AD360E3E8A036D958 + 069B943D80C8576E12A8BCC28559D8C7DDBBDF7D75BECB2EBE60F49BF9CFBD77 + F7DCFFEF7CE77B5D06066E1C2A0C65450D0F0D350C6375AC5194141FF19166FC + AD0DD58DE2514A7F06AAAA0233807924C7415A4848E8F31116D30C4B54C4A8D8 + 1183C3C34C21ACC72DC81DAD0E97D3E1FAD7E974DB449F7801E3EB50DE2701D0 + ACC7EB74BA25F14923F29252E3C7244E1E6D1C35EE2966485C341843F4E0F5FA + A0F5F67F60BF7E4BBD56DFE8B3D737DE686FEC3CA6284A05BE7B9BFA0E04A0E6 + E9D6E8C882B48C89D9F396CD1894943A1622A3CCC0728C162C2B0A28AA027E99 + 805BE0A1ADFDAE7AE58F7FA0FA4C9DC35ED35421B8C921F4B81284DC0F605193 + 2D31E6A29CA5B3B216AD9C1316377628C3716C5F3AD4B864A30DB61D781678D1 + 071E142F0AE0F679A1C17E47FDA9BCC675F9879B278997ECC3F0865EFF7B8068 + BD9EDBBE7045E6BA55050B4DC3E262188E4526C30473D12EBB0A2AB5E0B57B13 + C14378F06A201E3C7E1E5A1A3A54DB17354EFB85A6FD18F231CA150418F57A76 + E5D48CE43DF945AFC44C48198DBE0CB00C8BC2D260888A5192224169810DCE96 + 1F820579F9F0D2CE58F02284F68482782240535D0BFCF2697D53A7DDB9197DCF + 2240A280E151432C9FE4AE9D3B6FD96B596C68A85103702C87572C11CB8084CF + 7E4584F736546900DA2824638BB1B70708E2252C578F17EA8FDF906E7E7BE74B + C9236D434027D619B21252E38F6EDC9517939296A0654DB32F2DBCD8EFFCA500 + 3AD892A4C0D2570B21219F0737027CD80B4122D0FC5B3B5C3DD2D0E469E65723 + C0C6184DFA92D9F3D3776C28CED50FA2332690FDBB85D57DD9DEDF82E6A2246B + 5AF5FA56B0AE69458080003F74B7B9E0FA678DA2F32F57B12CCA654CB8C57426 + 6F7D76CEF275598C4ECF01CBB25A0FCADEB8F408E061733170BFBEF06D80BC6B + 1A80F70AD058DEA23A2ABB8E483E650D63898EACC92FC99D3A6BFE338C36B808 + A0A37F606BED038081CCA9FC44822D3B4AA07BF1AFDA1A693BE750DB4F392EC9 + 1EF939C61A3BA8AE70CF8A29699913B5A9884B09449C31878BEC7D80FE4CA587 + EEB7179742FB822A0488D055D90D1D27BAEA65B73C85315B4C552BDF5C30F3C5 + DCE98C0432109C2DA22CC189DD2D1AE049CDDB722AB5ECFD7E113ACF3AD59EF3 + 9E5A4550D298B0889083B3974C5BBF6CD35C0E421820184421DFED75C2A9631F + 3D91792BCD1CEB4F307BA19B405779B7EAFB5338AD8AEA6286D5B3AB92A78D3D + F8F2B6EC084B9CB9370BD4CFFB49BFD3F4C3F7773F98399AD3C1F54BBD89F10D + 02F47CEDE6A53B72992AABBBE9424B8C89B37C35775D46EAC417E219BF2AF641 + 08968ABE4402CF3D4747C2077B77DDCB9C9605CD8580B98883EDB1F12A7F5EB8 + A8F6A8453859AA2920421FCABD95322761F3ACB569A106AB1E04D9AF0D163515 + E5205004B97C02EC2B2DD6CC5B727ED4B20E664E93F1B713F056F03DD27519B3 + 80CF11E0096E7689264B4859FA8AC959E3B346EA6483C2F8E460B77BCD697DC3 + 4E3EAD05DFCAFE5E7BA6A2334EBBBA4595AF1208B9201E0702C518D67CFF6E6A + 40E50C1E6FD93969517C72ECB4C19C6454187FA02724D083A8D3D3D1FCBC66E8 + 0F98D31E1234176A88486CE477F52EBC835E3694F4F0811381A7C272EB18F3A6 + 1133872645A75B758C0567D50363D23B2E222D093517F1BF0E02422D2162AD58 + AB7600DDAABF4109031D9966D41CA345BFDA9A1C99694E0A0F338E323060C195 + 6C543418A1A65E04DEC56B935F2576D125DD94CFE1D17F18DFAD46F91E77E8EB + 51E35803BB5867D6E518A27409FA685D381783FBAE0918D223AAA443942487E4 + 929DCADFAA5BADC0013D1D388FA5C71DFAC1467FA79F2CC3F0A44E617430090C + 8C15B729A322834F25AA0317FD65D4558CE980DE4F97471A05FC0F622CD6FE88 + 2F15D20000000049454E44AE426082} + Name = 'PngImage15' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD252000002814944415478DA + 63FCFFFF3F032D0123C8822F5C7FFED767DC625876E301458645692830B0B2FF + 67E8ECD06184391CCC282EBAF6DFC7478B21AA671BC3F36D5E040DFAF3E71FC3 + EFBF7F19FEFDFB0F66FF01B275A20E32AC28E766F0F2F26250538B63387F7E3A + 235E0B3AD73F25CAD571D6BC60DA28E108C3A783A160365116E07339C4D540FC + 07C1364B3EC6D0E0AFCDF0EBD72F8679F3FA48B7009FE1206C957682A1CA5395 + E1E7AFDF0C4B974CA65E10051AB28169FBACD30CC5CE0A401FFC6658BD6A06F1 + 3E20E4F2DF50BE73DE59862C2B09A0057F18B66C9E4F9C05C41A0E4A45EE8517 + 18524C44C03ED8B573097E0B40C9AF7BE333A282C8550D92DEBD4B2F31C4E9F1 + 03E3E017C3C1FDAB705BF0748B2786EB103EC04CFF3039FF8A2B0CE11A9C601F + 1C3FBA1EB7050F37BAE3351C3DB8FE41732CC882402516B005674F6FC16E0138 + BB032D2107C00C07E583CB1777E1B6E02FD07520853F7FFE82D0504DE86C506A + 8188C1F81039909A5BD7F763B7006678754D0159BE5056B303EB7FFCE038A605 + 6E6EC05CF813E292D6B60A9002AC86FCFEF593E1F7CF9F0CBF8018C4CE2E3A0A + 16BF7DF30083AC822558FFCB6767302DB0B757807BB3BBA70E6C0137373758B3 + 868605C3D9B37B310CFFF3FB17437EF969B805E252266033DEBFB9886981A5A5 + 343C0C274D6A065B2025A5C42029A9C8A0AB6BCD307B563586E1BF81EA4B6A2F + C22D1014D107B3B15A606C2C0A8DC4DF0C336674802D303676061BAEA666C450 + 90EB8461F81F20AE68BE4E9C053ABA02F0208216B70C09097560C385852519C2 + 8395300C07D1B59D77095BC0C8C8C8505478F5BF82222B72718B35CC910DFF07 + CC78F53D0F88B300040C0C32A8D202B87061066A9D4C4B40730B0038C31BFE85 + 5838D40000000049454E44AE426082} + Name = 'PngImage17' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD2520000026D4944415478DA + B5966D48535118C7FF138A455F84588C0A7A27AA1163CDB69168929851CB5806 + 81D5878A7C29412428484264A85006814342E805112DE8436F94F43E74393775 + ABC1552C87B5EA6286B7B01AB4BBD3CE8D0DC57976B7D9038773B8F79CDFEF9C + F33C17AE821082FF198AE982F607CE946C4DCD3731D8D5A2A063FFDA73E4C9FB + 469C8CB0E30A4AF61A928247D660F9D225A8BE7019366F0B0CD595C8186B43AB + 4D9024F322D06E5C8521F75D2CAB2A85E94026E010C00533D1CD09E99D4014C3 + E87CE482F2A717D93B8A305AA381A97F4282D3484B40E1A248F0BAE33486825A + 188D464C0A5FF1A3AA002A9EC0C7837D457957C7124A6A958DD896AF4146C08D + 1B1E23D46A35789E87D56A452010483EC9244C20465A28B27B6767650CFEE5D7 + 38BE8F7F46AF5026C1559BCDB1AA922D48040F0A1E145B57E06C7D2BAEB5DF4B + 4E20176E7778F0F0A54B9E205E0EA6DF793C38DDC463BB5BFE0992D97974DED3 + 9E01798254E0B4745FF47A120BA2354EFB70E47D435D09FE902294177630E1B4 + D95D6FD88243BBB324F8AEEB01E95959A8166F3F4E4137F509CEC515B0AC3922 + C1D7D574CFC8CF95DC050885C370F4FBD88283057A69277432ED2FD51FC5999C + 85F03FE7E00F2A71E7C322D435DF8A9D303A2F3A767939B6C0B253175BD4D556 + 0197E3154EE95663D0FF1B8E491EE50D7D73C2693FE01B660BF6E569638B8E9F + 3886D1110E2B5504872D7AE8CD179970DABCDC085BB027678B34B1F8F604BED9 + CC385FBA1586FD4D33123F179C26DC37FC8E2D28DCAE99B5482E9C464241BE69 + 53CA705982DCAC0DFFEA5F24B36A9C7E132CB82C41B66E3DEE3FEB433AC114D0 + 3F84F988A8E02F75743575B8E251160000000049454E44AE426082} + Name = 'PngImage18' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300004E2000004E2001167D99DE000004124944415478DA + ED955F4C5B551CC77FF7DEFE61D0C204D7758139C15684752C1A565A47D7A983 + 1664449D75337301A7D68D8CBD69F4C11463627858427C30DD8B3A0C8B0FBA10 + 71B8F247470706A6996E93617173C060A56D645DD7526EDBDB7BBCE75E6F2D5A + 46E2E29BBFE4E49ED3F33DDFCFEFFCEE39B7044208FECB20FE07AC0A584DE070 + 38C889EB011345C1101EC798786D77D747DF72DDE46A6B1B0F1E54DE1560B7DB + A57136DB4033B17373FEB9BF262872978F898D5C73B9622B257EB4ED83B1C0B4 + 47BF1280B0B6B6CAD4892C3D4D477873868DD76C543D90A028C9101E47A34BC6 + 1FDD83639916DB6C2D0A2A0785B12E1380686A72C8C91CBA72297A67188B9289 + 64C3E8E0D7BD78D2F4F4B3FB11CB7431887D6ECCD5DB9D09A0B75A7365843494 + E91D70E64D9C790167BEC49B2340F5DF9D397D46D41A6BEA9EA024926F922C6B + 1DEDEBEDCB08D07380827F02083367AE55AAB64522425908966818EEEBE94D5F + BCD56C5EAB9428F2C38CE4D625F797B733012A6A5ECAC9958422CB00369B4D26 + 55AE33B02C72AF64FEA75E3CD724D7D88C6F903B79DBCF9FD7138474940798CD + 6689BAB8CC4800C1671EA7A36F2A08E4CECB96215A921752057D373ADDEE789A + 21A1D168642A5561194B4AF3280449890480610072D7150402B3D7A62E9494B0 + D5119AC100E285A6D71F27097224533233F3334E85E2FEAF064E7DDA2F663F57 + 21DC01DB867AE7A60D9B0EA7EBF3E6273EFB708DFF45DF758F90C9AB47DE30E1 + 9AE3C191B60EB82F0B204803F8170166C3003FCF0661F2633B042309CB956117 + BE60E83897EC6B4E07CC3BDF85503F9DD2FB16A2606F7F14C8DDCDFCDCE9CB1C + 605FF361249A57AA01BC11A189001C18E27ABB06D6CA91B574F3634959B66260 + E709278890E91E9AD737BE550E64FD81947957DD6E200A353A64AA36C13BED1D + B086ABE312B37C0738A83B32686FA900AC1303EB87D5592988BAA41408CBBE94 + F97B1A9D50226EA272E78E277FC03B102314135A20BA1C50AC2DE6C745EB8B40 + D48F3F9805AF580BF9BEDF7B93374FF4B3BC9E8E45B711566BABBCD4A81D2CB6 + D8AB372A05C3585200E02736BF18F2C36F278F7AC747CFD9755BB630EA22ADCB + 70A803B05E1EFE1D2C6D55BC398EEE636C4A3FF4D3F70FF1C7B4EE99BD0F8763 + D1C9E71D9F839CE2DE605096DA0D16E3FADF0E069F5A5CB839525E5E0E1ACD23 + 86ECFCF56EA3FD18B4BCBF19FC37A6F9CCF14E30A82AAA033A112F5B98F9D593 + BA6886DA5A4DD5F6864F2E8C0D544F5D9D4A01B4BA32EFA4E76AF3BCE762FA27 + 9AB4ECDDBFE340E897B37B923EE81CF0420F57B646EE0E8990A2CBC2255EF5FF + 60A548580BF7708F2FB0399344CD87003AF1EFDC1146E9907B01A0D1F1004CCC + 254E70E62FA7CFA543FE3560726B3E3A7BE916EE2A38C0E2DFE731A4A1E21E4A + 745CF86CE838F32B77D3FC01CF05F8A9B438C37F0000000049454E44AE426082} + Name = 'PngImage19' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD252000002F14944415478DA + D596494C135118C7FF25404B03B614098807C1A84823081421EC0112A322211E + B89078E064E2050F9A885E8C8683CB4D0D116334C881C42A1A448301458C0BC4 + 22298A6C6915D9B1EDD0D26576674ADAD8141968C2C1974CBE37F3BDF9FDDEFB + 66DE64643CCF632B9B6CCB051B1DD8D972AB5E08E7098248FCD798D78983A109 + 04F89C10128B8B098487B1E0680A2C4582A53DE07C71651EEFEC51988C49813A + 4EBD718100E7755A13E8DFA3502B59C8927282E134098E7481A11C3050F1988B + CB822A761B3C24B5BE4084E76698E1FC69C0AB4F6158B2F238532B03A9D606C0 + 59CA03561070941B46670C4C09B9881104768713B2F61EE39ACF593EDB87C2AC + 092C7C1F42FF68246AEA4A414C0EA1456FC1C9232CC2637782659855B8001605 + 2CE98191D4602C4E8748A502F61541F0A4DBC89FA8480F80BF7878DB0B9F1B31 + E2DB8F0854D69678E1C3331A704E2B2CF356E469192855D1A0296A55E2718126 + DD18B0A930AAC946A45A29AC60255820C2C5B258C73F63782A1EF21D3A6C978F + E1D70C8D283987FC4C0568B7036F7A1790B68B44B48201CFD26084076F5E64D0 + 33AD06959A8E70B502B6657BA04084A7259B10661B449F51859A737AB01C07FD + DDCB48D698A04D910975A76018F64097AE80FEE957B4F79301AB4FCADD078536 + 01B4503E1B610F5EC1E3E60B981E1FC4A9C6E75E38CB72E0381E2F5B2F41EE1A + 00870814E5A8B06C36E274338DB3D73A71B1F126BE7435F95F98F286725EA190 + 83A2E84081085A85F201705FFFDED57AD41D73F8E177DA063031B51424F049BC + FBC0279082FB72F76F34A0F77D9717CE08D7CD33963505FE8D260AAACB0E6C08 + FEF72444B8989B9AB7490B8E976A438233C2F9ECE2B2B4E068519AF7E607ADDD + FE447555019E757C58F733925F9881058B435A70B82075D333F746E1B0104E69 + 4145DEDE90E062241C6E6941D9A13D5E50DBA3B7FE4455653E3A3A3FAE5BA283 + D9FBE17091D28212DDEE4DCFDCD77793B4B4A030331986916984DA240557AE37 + 850CF7B57F0AFEFBBF8A3FEEF0D2AAE4F624F60000000049454E44AE426082} + Name = 'PngImage20' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD2520000014D4944415478DA + 63FCFFFF3F032D0123CD2D40E6182E3104DBF6EFEF3F86BF7FFF32FCFD03C1B7 + B26EC1D519782490E4220C0BB2A24D5114744CD9CB7037F72E5C1D171717F916 + E82FD4FF9F1367CEF0F5DB2F861F3FFF30FCFCF58761FEF2130C0F0A1F309262 + 288A05E8C1929F68C5F0F6FD37B0E13F7FFD6558B2EA244A70BDAE7F8D6219A1 + 2063C4162CCF5E7E021B0EF30588FDFDC71F86EDDBCE30BC6B7E47926F18B105 + 0B36C39FBEFACC70FEC435868FED1F49F381CE3C9DFFE8C1826EF8F79FBF19DE + 7DFCC170FAC82586AFDD5F49F381E62CCDFF45A9B65883E5CEA3F7288A4FEC3F + CFF063C20FD27CA0364DED3F2C124111EDEBA98F112C7FFEFC61F8FB1BA2E6F7 + 94DFA4F9009923DD29FDDFD34D1F6FB05094D1245A25FE3B3BE9815D8E2B5828 + CA68A28DA2FF61E99D9260C1690139806024536AC1A80F86A10F28CA68C40092 + 33DA906F550000E7732B02C862110D0000000049454E44AE426082} + Name = 'PngImage21' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD252000000AA4944415478DA + 63FCFFFF3F032D0123CD2D205583814702492E22D9022E2E2EDA5A402A60043A + 07EE2210E33B10FFC0427F05E26F40EC85E628424106B160E24484C8C78F0C0C + 1F3E3030BC7F0FA1DFBD636078FB9681E1CD1B86B52F5E308490E86B540BF018 + 0EC28BFFFC618823D507FF801630822C20603803D0F099400D19A4FA0018B6FF + F185393266C06201411F90E21A72C06846A3BD05432F92477D30F03E187C196D + C8B72A00572A73F3ECEFF30C0000000049454E44AE426082} + Name = 'PngImage22' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD2520000018C4944415478DA + 63FCFFFF3F032D01E3A8054459C0C8C8C860E091F0FFC28E058C843490AA8E3E + 16187A26D22C9C864910812CA079102DD87000251E40E23F7FFE62F8F90B827F + C0D8405A47439528753D15A98C2816C4FBDBA3D8FEFBCF5F08FEFD17CEEE98B1 + 9461626D1651EA26D565E3B6009BA64BB75E306CD8B183617A733E51EA66B414 + 60B7009BA6DF7FFE315CBFF78A61F9860D0C0BBACB8952B7B0A70261C1FCF5FB + FF270438E0D404A2EF3C7ACB307FC54A861593EB8852B7724A3DC282192B76FE + 4F0A76C6A9E91750ECD1F30F0CD3162C625833BD8928759BE6B4212C98B868F3 + FF9450379C9A40F8C59BCF0C7D336633AC9FDD4694BA5D4B7A111674CD59FB3F + 2DCC13A7A65FBFFF30BCFBF89DA175E21486CD73BB88527778F51484054D5397 + FFCF8CF4C1A9E9D7AFBF0C5FBEFF62A8EDEC61D8B6B09F2875A737CF415850DD + BFF07F76B43F3889E103152D1D0CDB164D204A1D4A5151D231FBFF2F600EFCF5 + EB37C3F71F3F187EFCF809A47F42E89F20FA0730DCFF8035DB599912A50E6E01 + 2DC1D0B7000029AD9AF9DFD03E1F0000000049454E44AE426082} + Name = 'PngImage23' + Background = clWindow + end> + Bitmap = {} + end + inherited EditorActionList: TActionList [8] + object actExpandir: TAction + Category = 'Ver' + Caption = 'Expandir todo' + ImageIndex = 21 + OnExecute = actExpandirExecute + end + object actContraer: TAction + Category = 'Ver' + Caption = 'Contraer todo' + ImageIndex = 22 + OnExecute = actContraerExecute + end + object actAnchoAuto: TAction + Category = 'Ver' + Caption = 'Ancho autom'#225'tico' + ImageIndex = 23 + OnExecute = actAnchoAutoExecute + end + end + inherited dsDataTable: TDADataSource [9] + end + object dsVentasTerminadas: TDADataSource + Left = 320 + Top = 232 + end +end diff --git a/Source/Modulos/Informe margen por articulo/Views/uEditorInfMargenArticulo.pas b/Source/Modulos/Informe margen por articulo/Views/uEditorInfMargenArticulo.pas new file mode 100644 index 00000000..a71c12f8 --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Views/uEditorInfMargenArticulo.pas @@ -0,0 +1,326 @@ +unit uEditorInfMargenArticulo; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uEditorInformeBase, DB, uDADataTable, JvAppStorage, + JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, + PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock, + TB2Toolbar, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uBizInformes, + uCustomView, uViewBase, uViewInformeBase, uViewInfMargenArticulo, + Grids, DBGrids, pngimage, JvExComCtrls, JvStatusBar, uInfMargenArticuloController, + uIEditorInfMargenArticulo, uBizInfMargenArticulo, uInformesController; + + +type + TfEditorInfMargenArticulo = class(TfEditorInformeBase, IEditorInfMargenArticulo) + dsVentasTerminadas: TDADataSource; + TBXSeparatorItem16: TTBXSeparatorItem; + tbxiExpandir: TTBXItem; + tbxiContraer: TTBXItem; + tbxiAnchoAuto: TTBXItem; + actExpandir: TAction; + actContraer: TAction; + actAnchoAuto: TAction; + TBXItem37: TTBXItem; + TBXItem36: TTBXItem; + TBXItem35: TTBXItem; + TBXSeparatorItem17: TTBXSeparatorItem; + frViewInfMargenArticulo1: TfrViewInfMargenArticulo; + procedure actRefrescarExecute(Sender: TObject); + procedure actExpandirExecute(Sender: TObject); + procedure actContraerExecute(Sender: TObject); + procedure actAnchoAutoExecute(Sender: TObject); + procedure CustomEditorCreate(Sender: TObject); + procedure CustomEditorGetModified(Sender: TObject; var Modified: Boolean); + procedure FormShow(Sender: TObject); + procedure actPrevisualizarExecute(Sender: TObject); + procedure actImprimirExecute(Sender: TObject); + procedure actConfPaginaExecute(Sender: TObject); + procedure frViewInfMargenArticulo1bRefrescarClick(Sender: TObject); + private + FInformesController: IInformesController; + procedure RestaurarConfiguracion; + procedure GuardarConfiguracion; + protected + FDatos : IBizInfMargenArticulo; + FController : IInfMargenArticuloController; + FModificado : Boolean; + procedure OnViewControlChanged(Sender: TObject); + procedure SetInforme(const Value: IBizInforme); override; + procedure RellenarCabeceraInforme; override; + + function GetController : IInfMargenArticuloController; + procedure SetController (const Value : IInfMargenArticuloController); + + function GetDatos : IBizInfMargenArticulo; + procedure SetDatos (const Value : IBizInfMargenArticulo); + + procedure GuardarInterno; override; + + public + property Controller: IInfMargenArticuloController read GetController write SetController; + property Datos : IBizInfMargenArticulo read GetDatos write SetDatos; + + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + end; + + +implementation + +uses + uROClasses, cxControls, cxGridCustomView, //cxGridCustomTableView, + cxGridTableView, uCustomEditor, uDataModuleUsuarios, uSistemaFunc; + +{$R *.dfm} + +{ TfEditorInfMargenArticulo } + +procedure TfEditorInfMargenArticulo.SetController(const Value: IInfMargenArticuloController); +begin + FController := Value; +// if Assigned(FController) then +// (ViewArticulo as IViewArticulo).Controller := (FController as IArticulosController); +end; + +procedure TfEditorInfMargenArticulo.SetDatos(const Value: IBizInfMargenArticulo); +begin + FDatos := Value; + + if Assigned(FDatos) then + begin + FDatos.DataTable.Active := False; // No se abre la tabla hasta que no se pulse en 'Refrescar' + dsVentasTerminadas.DataTable := FDatos.DataTable; + + if Assigned(FViewInforme) then + (FViewInforme as IViewInfMargenArticulo).Datos := FDatos; + +// frViewInfMargenArticulo1.OnViewChanged := OnViewControlChanged; +// with (FInforme as IBizInfMargenArticulo) do +// begin +// Items.DataTable.Active := False; // No se abre la tabla hasta que no se pulse en 'Refrescar' +// dsVentasTerminadas.DataTable := Items.DataTable; + frViewInfMargenArticulo1.frViewInfMargenArticuloGrid1.FocusedView.DataController.DataSource := dsVentasTerminadas; + end; +end; + +procedure TfEditorInfMargenArticulo.SetInforme(const Value: IBizInforme); +begin + inherited; +// RefrescarTituloEditor; + if Assigned(FInforme) then + begin + frViewInfMargenArticulo1.OnViewChanged := OnViewControlChanged; +// with (FInforme as IBizInforme) do +// begin +// Items.DataTable.Active := False; // No se abre la tabla hasta que no se pulse en 'Refrescar' +// dsVentasTerminadas.DataTable := Items.DataTable; +// frViewInfMargenArticulo1.frViewInfMargenArticuloGrid1.FocusedView.DataController.DataSource := dsVentasTerminadas; +// end; + end; +end; + +procedure TfEditorInfMargenArticulo.actRefrescarExecute(Sender: TObject); +begin + inherited; + frViewInfMargenArticulo1.Refresh; + while (frViewInfMargenArticulo1.frViewInfMargenArticuloGrid1.FocusedView.Controller.FocusedRecord is TcxGridGroupRow) do + begin + frViewInfMargenArticulo1.frViewInfMargenArticuloGrid1.FocusedView.Controller.FocusedRecord.Expand(True); + if (frViewInfMargenArticulo1.frViewInfMargenArticuloGrid1.FocusedView.Controller.FocusedRecordIndex < + frViewInfMargenArticulo1.frViewInfMargenArticuloGrid1.FocusedView.DataController.RowCount - 1) then + frViewInfMargenArticulo1.frViewInfMargenArticuloGrid1.FocusedView.Controller.GoToNext(False, True) + else + Exit; + end; +end; + +procedure TfEditorInfMargenArticulo.actExpandirExecute(Sender: TObject); +begin + inherited; + frViewInfMargenArticulo1.frViewInfMargenArticuloGrid1.ExpandirTodo; +end; + +procedure TfEditorInfMargenArticulo.actContraerExecute(Sender: TObject); +begin + inherited; + frViewInfMargenArticulo1.frViewInfMargenArticuloGrid1.ContraerTodo; +end; + +procedure TfEditorInfMargenArticulo.actAnchoAutoExecute(Sender: TObject); +begin + inherited; + frViewInfMargenArticulo1.frViewInfMargenArticuloGrid1.AjustarAncho; +end; + +procedure TfEditorInfMargenArticulo.OnViewControlChanged( + Sender: TObject); +begin +// if FInforme.EsModificable then + FModificado := True; +end; + +procedure TfEditorInfMargenArticulo.CustomEditorCreate(Sender: TObject); +begin + inherited; + FModificado := False; +end; + +procedure TfEditorInfMargenArticulo.CustomEditorGetModified( + Sender: TObject; var Modified: Boolean); +begin + inherited; + Modified := FModificado; +end; + +destructor TfEditorInfMargenArticulo.Destroy; +begin + FInformesController := Nil; + FViewInforme := Nil; + inherited; +end; + +function TfEditorInfMargenArticulo.GetController: IInfMargenArticuloController; +begin + Result := FController; +end; + +function TfEditorInfMargenArticulo.GetDatos: IBizInfMargenArticulo; +begin + Result := FDatos; +end; + +procedure TfEditorInfMargenArticulo.GuardarConfiguracion; +var + Aux : IROStrings; + Fichero: TextFile; + NombreFichero: String; + +begin + NombreFichero := DarFicheroTemporal; + frViewInfMargenArticulo1.frViewInfMargenArticuloGrid1.cxGridView.StoreToIniFile(NombreFichero, true, [gsoUseFilter,gsoUseSummary]); + + with TStringList.Create do + try + LoadFromFile(NombreFichero); + Aux := NewROStrings(); + Aux.Add(Text); + + if not (FInforme.DataTable.State in dsEditModes) then + FInforme.Edit; + FInforme.VISTA := Aux; + + finally + Free; + end; +end; + +procedure TfEditorInfMargenArticulo.GuardarInterno; +begin + inherited; + + ShowHourglassCursor; + + try + if FModificado then + GuardarConfiguracion; + FInformesController.Guardar(FInforme); + FModificado := False; + finally + HideHourglassCursor; + end; + + Modified := False; +end; + +procedure TfEditorInfMargenArticulo.RestaurarConfiguracion; +var + Fichero: TextFile; + NombreFichero: String; +begin + try + //Creamos un fichero temporal para guardar la configuración del informe que viene dada + //por su campo vista, para luego restaurarla en el grid a partir de dicho fichero porque el Stream falla + NombreFichero := DarFicheroTemporal; + AssignFile(Fichero, NombreFichero); + Rewrite(Fichero); + Writeln(Fichero, FInforme.VISTA.Text); + CloseFile(Fichero); + + //Restauramos la configuración + frViewInfMargenArticulo1.frViewInfMargenArticuloGrid1.cxGridView.RestoreFromIniFile(NombreFichero,True,false,[gsoUseFilter,gsoUseSummary]); + + finally + //Eliminamos el fichero temporal + DeleteFile(NombreFichero); +// FreeAndNil(Fichero) + end; +end; + +procedure TfEditorInfMargenArticulo.FormShow(Sender: TObject); +begin + inherited; + if FInforme.DataTable.State <> dsInsert then // No restaurar si estamos insertando + RestaurarConfiguracion; + + frViewInfMargenArticulo1.frViewColumnas1.Refresh; + frViewInfMargenArticulo1.frViewAgrupaciones1.Refresh; + + if FInforme.DataTable.State = dsInsert then // Si es nuevo obligamos a meter nombre + actPropiedades.Execute; +end; + +procedure TfEditorInfMargenArticulo.actPrevisualizarExecute( + Sender: TObject); +begin + inherited; + frViewInfMargenArticulo1.frViewInfMargenArticuloGrid1.Preview; +end; + +procedure TfEditorInfMargenArticulo.actImprimirExecute(Sender: TObject); +begin + inherited; + frViewInfMargenArticulo1.frViewInfMargenArticuloGrid1.Print; +end; + +procedure TfEditorInfMargenArticulo.actConfPaginaExecute( + Sender: TObject); +begin + inherited; + frViewInfMargenArticulo1.frViewInfMargenArticuloGrid1.PrintSetup; +end; + +procedure TfEditorInfMargenArticulo.frViewInfMargenArticulo1bRefrescarClick( + Sender: TObject); +begin + inherited; + frViewInfMargenArticulo1.actRefrescarExecute(Sender); +end; + +constructor TfEditorInfMargenArticulo.Create(AOwner: TComponent); +begin + inherited; + FInformesController := TInformesController.Create; + FViewInforme := frViewInfMargenArticulo1; +end; + +procedure TfEditorInfMargenArticulo.RellenarCabeceraInforme; +begin + inherited; + with frViewInfMargenArticulo1.frViewInfMargenArticuloGrid1.dxPrintStyleManager1Style1.PrinterPage.PageHeader do + begin + LeftTitle.Clear; +// LeftTitle.Add(FInforme.NOMBRE); + LeftTitle.Add(FInforme.DESCRIPCION); + + RightTitle.Clear; + RightTitle.Add(DateToStr(frViewInfMargenArticulo1.frViewPeriodoFechas1.edtFechaIni.Date) + + ' - ' + DateToStr(frViewInfMargenArticulo1.frViewPeriodoFechas1.edtFechaFin.Date)); + RightTitle.Add(frViewInfMargenArticulo1.frViewInfMargenArticuloGrid1.FocusedView.DataController.Filter.FilterText); + end; +end; + +end. + diff --git a/Source/Modulos/Informe margen por articulo/Views/uInfMargenArticuloViewRegister.pas b/Source/Modulos/Informe margen por articulo/Views/uInfMargenArticuloViewRegister.pas new file mode 100644 index 00000000..c696a368 --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Views/uInfMargenArticuloViewRegister.pas @@ -0,0 +1,23 @@ +unit uInfMargenArticuloViewRegister; + +interface + +procedure RegisterViews; +procedure UnregisterViews; + +implementation + +uses + uEditorRegistryUtils, uEditorInfMargenArticulo; + +procedure RegisterViews; +begin + EditorRegistry.RegisterClass(TfEditorInfMargenArticulo, 'EditorInfMargenArticulo'); +end; + +procedure UnregisterViews; +begin + EditorRegistry.UnRegisterClass(TfEditorInfMargenArticulo); +end; + +end. diff --git a/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticulo.dfm b/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticulo.dfm new file mode 100644 index 00000000..6086ef46 --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticulo.dfm @@ -0,0 +1,183 @@ +inherited frViewInfMargenArticulo: TfrViewInfMargenArticulo + Width = 834 + Height = 420 + ExplicitWidth = 834 + ExplicitHeight = 420 + inherited TBXMultiDock1: TTBXMultiDock + Top = 100 + Height = 320 + ExplicitTop = 100 + ExplicitHeight = 229 + inherited pnlParametros: TTBXDockablePanel + ExplicitHeight = 145 + inherited pcParametros: TPageControl + Height = 56 + ExplicitHeight = 18 + inherited TabSheet5: TTabSheet + ExplicitLeft = 4 + ExplicitTop = 6 + ExplicitWidth = 210 + ExplicitHeight = 46 + end + inherited tsColumnas: TTabSheet + ExplicitHeight = 8 + inherited frViewColumnas1: TfrViewColumnas + Height = 46 + ExplicitHeight = 8 + inherited lbColumnas: TcxCheckListBox + Height = 17 + ExplicitHeight = 94 + end + end + end + inherited tsAgrupacion: TTabSheet + ExplicitHeight = 8 + inherited frViewAgrupaciones1: TfrViewAgrupaciones + Height = 46 + ExplicitHeight = 8 + end + end + end + end + inherited pnlTareas: TTBXDockablePanel + Top = 145 + DockPos = 145 + ExplicitTop = 145 + ExplicitHeight = 159 + inherited TBXPageScroller1: TTBXPageScroller + Height = 137 + ExplicitHeight = 84 + inherited pcTareas: TPageControl + Height = 89 + ExplicitHeight = 36 + inherited tsSumarios: TTabSheet + ExplicitHeight = 26 + inherited frViewSumarios1: TfrViewSumarios + Height = 79 + ExplicitHeight = 26 + inherited vgSumarios: TcxVerticalGrid + Height = 50 + ExplicitHeight = 50 + end + end + end + inherited tsFiltros: TTabSheet + ExplicitHeight = 26 + inherited frViewFiltros1: TfrViewFiltros + Height = 79 + ExplicitHeight = 26 + inherited cxFilterControl1: TcxFilterControl + Height = 20 + end + inherited TBXAlignmentPanel3: TTBXAlignmentPanel + Top = 49 + ExplicitTop = -4 + end + end + end + end + end + end + end + inherited TBXMultiDock2: TTBXMultiDock + Width = 834 + Height = 100 + ExplicitHeight = 100 + inherited pnlIntervaloFechas: TTBXDockablePanel + DockedHeight = 96 + ShowCaption = False + ShowCaptionWhenDocked = False + ExplicitWidth = 818 + ExplicitHeight = 100 + inherited TBXAlignmentPanel3: TTBXAlignmentPanel + Top = 66 + Width = 814 + ExplicitTop = 66 + ExplicitWidth = 679 + end + inline frViewPeriodoFechas1: TfrViewPeriodoFechas + Left = 0 + Top = 0 + Width = 814 + Height = 66 + Align = alClient + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + ReadOnly = False + ExplicitWidth = 679 + ExplicitHeight = 66 + inherited dxLayoutControl1: TdxLayoutControl + Width = 814 + Height = 66 + ExplicitWidth = 679 + ExplicitHeight = 66 + inherited cbPeriodo: TcxComboBox + Left = 54 + ExplicitLeft = 54 + end + inherited edtFechaIni: TcxDateEdit + Left = 269 + ExplicitLeft = 269 + end + inherited edtFechaFin: TcxDateEdit + Left = 54 + ExplicitLeft = 54 + end + end + end + end + end + inline frViewInfMargenArticuloGrid1: TfrViewInfMargenArticuloGrid [2] + Left = 222 + Top = 100 + Width = 612 + Height = 320 + Align = alClient + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 2 + ReadOnly = False + ExplicitLeft = 251 + ExplicitTop = 42 + inherited cxGrid: TcxGrid + Width = 612 + Height = 320 + end + inherited dxPrintStyleManager1: TdxPrintStyleManager + inherited dxPrintStyleManager1Style1: TdxPSPrintStyle + BuiltInStyle = True + end + end + inherited dxComponentPrinter: TdxComponentPrinter + inherited dxPrinterLinkcxGrid: TdxGridReportLink + BuiltInReportLink = True + end + end + end + inherited SmallImages: TPngImageList [3] + end + inherited LargeImages: TPngImageList [4] + end + inherited EditorActionList: TActionList + Left = 248 + Top = 72 + inherited actRefrescar: TAction + OnExecute = actRefrescarExecute + end + object actPeriodoFechas: TAction + Category = 'Tareas' + Caption = 'Periodo de fechas' + ImageIndex = 4 + OnExecute = actPeriodoFechasExecute + end + end +end diff --git a/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticulo.pas b/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticulo.pas new file mode 100644 index 00000000..2b93c986 --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticulo.pas @@ -0,0 +1,179 @@ +unit uViewInfMargenArticulo; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uViewInformeBase, ActnList, ImgList, PngImageList, uViewGrid, + uViewInformeBaseGrid, uViewSumarios, TBXDkPanels, StdCtrls, + uViewAgrupaciones, uCustomView, uViewBase, uViewColumnas, ComCtrls, + TB2Dock, uViewInformeBaseParametros, uBizInformes, cxStyles, + cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, + cxDBData, cxGridLevel, cxClasses, cxControls, cxGridCustomView, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, + cxTextEdit, uViewFiltros, uBizInfMargenArticulo, + uViewPeriodoFechas, uViewInfMargenArticuloGrid; + +type + IViewInfMargenArticulo = interface(IViewInformeBase) + ['{B9426535-792E-47C3-825E-1EB378FD4AB7}'] + function GetDatos : IBizInfMargenArticulo; + procedure SetDatos (const Value : IBizInfMargenArticulo); + property Datos : IBizInfMargenArticulo read GetDatos write SetDatos; + end; + + TfrViewInfMargenArticulo = class(TfrViewInformeBase, IViewInfMargenArticulo) + frViewPeriodoFechas1: TfrViewPeriodoFechas; + actPeriodoFechas: TAction; + frViewInfMargenArticuloGrid1: TfrViewInfMargenArticuloGrid; + procedure actRefrescarExecute(Sender: TObject); + procedure actPeriodoFechasExecute(Sender: TObject); + protected + FDatos : IBizInfMargenArticulo; + FModificado : Boolean; + procedure OnViewInformeBaseGridChanged(Sender : TObject); + procedure OnFilterChanged(Sender : TObject); + procedure ActivarTarea(const ATarea: Integer); override; + + function GetDatos : IBizInfMargenArticulo; + procedure SetDatos (const Value : IBizInfMargenArticulo); + + public + property Datos : IBizInfMargenArticulo read GetDatos write SetDatos; + constructor Create(AOwner: TComponent); override; + procedure Refresh; override; + end; + +implementation + +//uses +// uBizInfMargenArticulo; +// uDataModuleVentasTerminadas, uBizControlVentasTerminadas, ; + +const + PERIODO = 0; + +{$R *.dfm} + +{ TfrViewInfMargenArticulo } + +constructor TfrViewInfMargenArticulo.Create(AOwner: TComponent); +begin + inherited; + frViewInfMargenArticuloGrid1.OnViewChanged := OnViewInformeBaseGridChanged; + frViewInfMargenArticuloGrid1.OnFilterChanged := OnFilterChanged; + frViewColumnas1.ViewInformeBaseGrid := frViewInfMargenArticuloGrid1; + frViewAgrupaciones1.ViewInformeBaseGrid := frViewInfMargenArticuloGrid1; + frViewSumarios1.ViewInformeBaseGrid := frViewInfMargenArticuloGrid1; + frViewFiltros1.ViewInformeBaseGrid := frViewInfMargenArticuloGrid1; + pcParametros.ActivePage := TabSheet5; +end; + +function TfrViewInfMargenArticulo.GetDatos: IBizInfMargenArticulo; +begin + Result := FDatos; +end; + +procedure TfrViewInfMargenArticulo.Refresh; +var + AColumns : TStringList; + AColumnsGroup : TStringList; + i: Integer; +begin + inherited; + ShowHourglassCursor; + actRefrescar.Enabled := False; + + frViewInfMargenArticuloGrid1.OnViewChanged := nil; + frViewInfMargenArticuloGrid1.OnFilterChanged := nil; + + try + // Calcular las columnas a pedir al servidor + AColumns := frViewColumnas1.GetCheckedColumns; + AColumns.sorted := true; + AColumns.Duplicates := dupIgnore; + + //Añadimos el nombre de los campos a los que referencia los captions de agrupacion + AColumnsGroup := frViewAgrupaciones1.GetAgrupaciones; + for i:= 0 to AColumnsGroup.Count - 1 do + AColumns.Add((frViewInfMargenArticuloGrid1 as IViewInformeBaseGrid).GetColumnByCaption(AColumnsGroup.Strings[i]).DataBinding.FieldName); + + FDatos.VisibleColumns := AColumns.CommaText; + + with Datos.DataTable do + begin + DisableControls; + try + Active := False; + + LoadSchema; + + ParamByName('FECHAINI').AsDateTime := frViewPeriodoFechas1.FechaInicial; + ParamByName('FECHAFIN').AsDateTime := frViewPeriodoFechas1.FechaFinal; + + Active := True; + + frViewColumnas1.Execute; + frViewAgrupaciones1.Execute; + frViewSumarios1.Refresh; + frViewFiltros1.Refresh; + pnlTareas.Visible := True; + + if Assigned(FOnViewChanged) then + FOnViewChanged(Self); + finally + EnableControls; + frViewInfMargenArticuloGrid1.Refresh; + frViewInfMargenArticuloGrid1.ExpandirTodo; + frViewInfMargenArticuloGrid1.GotoFirst; + end; + end; + + finally + FreeAndNil(AColumns); +// ViewInfMargenArticuloGrid.OnViewChanged := OnViewInformeBaseGridChanged; +// ViewInfMargenArticuloGrid.OnFilterChanged := OnFilterChanged; + actRefrescar.Enabled := True; + HideHourglassCursor; + end; +end; + +procedure TfrViewInfMargenArticulo.SetDatos(const Value: IBizInfMargenArticulo); +begin + FDatos := Value; +end; + +procedure TfrViewInfMargenArticulo.actRefrescarExecute(Sender: TObject); +begin + inherited; + Refresh; +end; + +procedure TfrViewInfMargenArticulo.OnViewInformeBaseGridChanged( + Sender: TObject); +begin + if Assigned(Self.OnViewChanged) then + Self.OnViewChanged(Self); +end; + +procedure TfrViewInfMargenArticulo.OnFilterChanged(Sender: TObject); +begin + frViewFiltros1.Refresh; +end; + +procedure TfrViewInfMargenArticulo.actPeriodoFechasExecute( + Sender: TObject); +begin + inherited; + ActivarTarea(PERIODO); +end; + +procedure TfrViewInfMargenArticulo.ActivarTarea(const ATarea: Integer); +begin + inherited; + case ATarea of + PERIODO : pcParametros.ActivePage := TabSheet5; + end; +end; + +end. diff --git a/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticuloGrid.dfm b/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticuloGrid.dfm new file mode 100644 index 00000000..f71a6878 --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticuloGrid.dfm @@ -0,0 +1,246 @@ +inherited frViewInfMargenArticuloGrid: TfrViewInfMargenArticuloGrid + Width = 583 + Height = 378 + ExplicitWidth = 583 + ExplicitHeight = 378 + object cxGrid: TcxGrid [0] + Left = 0 + Top = 0 + Width = 583 + Height = 378 + Align = alClient + TabOrder = 0 + LookAndFeel.Kind = lfStandard + LookAndFeel.NativeStyle = True + object cxGridView: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + FilterBox.CustomizeDialog = False + DataController.Filter.Options = [fcoCaseInsensitive] + DataController.Filter.OnChanged = cxGridViewDataControllerFilterChanged + DataController.KeyFieldNames = 'RecID' + DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + DataController.Summary.OnAfterSummary = cxGridViewDataControllerSummaryAfterSummary + DataController.OnCompare = cxGridViewDataControllerCompare + DataController.OnGroupingChanged = cxGridViewDataControllerGroupingChanged + DataController.OnSortingChanged = cxGridViewDataControllerSortingChanged + OptionsBehavior.CellHints = True + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnGrouping = False + OptionsCustomize.DataRowSizing = True + OptionsCustomize.GroupRowSizing = True + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsData.Editing = False + OptionsData.Inserting = False + OptionsSelection.CellSelect = False + OptionsSelection.UnselectFocusedRecordOnExit = False + OptionsView.CellEndEllipsis = True + OptionsView.CellAutoHeight = True + OptionsView.ColumnAutoWidth = True + OptionsView.Footer = True + OptionsView.FooterAutoHeight = True + OptionsView.GridLineColor = cl3DLight + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + OptionsView.HeaderEndEllipsis = True + Styles.FilterBox = cxStyleFilterBox + Styles.OnGetContentStyle = cxGridViewStylesGetContentStyle + OnColumnPosChanged = cxGridViewColumnPosChanged + OnColumnSizeChanged = cxGridViewColumnSizeChanged + object cxGridViewRecID: TcxGridDBColumn + DataBinding.FieldName = 'RecID' + Visible = False + end + object cxGridViewID_FACTURA: TcxGridDBColumn + DataBinding.FieldName = 'ID_FACTURA' + end + object cxGridViewID_EMPRESA: TcxGridDBColumn + DataBinding.FieldName = 'ID_EMPRESA' + end + object cxGridViewREFERENCIA_FACTURA: TcxGridDBColumn + DataBinding.FieldName = 'REFERENCIA_FACTURA' + end + object cxGridViewFECHA_FACTURA: TcxGridDBColumn + DataBinding.FieldName = 'FECHA_FACTURA' + end + object cxGridViewIMPORTE_TOTAL_FACTURA: TcxGridDBColumn + DataBinding.FieldName = 'IMPORTE_TOTAL_FACTURA' + end + object cxGridViewID_COMISION_FACTURA: TcxGridDBColumn + DataBinding.FieldName = 'ID_COMISION_FACTURA' + end + object cxGridViewID_ARTICULO: TcxGridDBColumn + DataBinding.FieldName = 'ID_ARTICULO' + end + object cxGridViewFAMILIA: TcxGridDBColumn + DataBinding.FieldName = 'FAMILIA' + end + object cxGridViewREFERENCIA: TcxGridDBColumn + DataBinding.FieldName = 'REFERENCIA' + end + object cxGridViewREFERENCIA_PROV: TcxGridDBColumn + DataBinding.FieldName = 'REFERENCIA_PROV' + end + object cxGridViewDESCRIPCION: TcxGridDBColumn + DataBinding.FieldName = 'DESCRIPCION' + end + object cxGridViewCOMISIONABLE: TcxGridDBColumn + DataBinding.FieldName = 'COMISIONABLE' + end + object cxGridViewINVENTARIABLE: TcxGridDBColumn + DataBinding.FieldName = 'INVENTARIABLE' + end + object cxGridViewIMPORTE_UNIDAD_COSTE: TcxGridDBColumn + DataBinding.FieldName = 'IMPORTE_UNIDAD_COSTE' + end + object cxGridViewDESCUENTO_PROVEEDOR_COSTE: TcxGridDBColumn + DataBinding.FieldName = 'DESCUENTO_PROVEEDOR_COSTE' + end + object cxGridViewIMPORTE_NETO_COSTE: TcxGridDBColumn + DataBinding.FieldName = 'IMPORTE_NETO_COSTE' + end + object cxGridViewIMPORTE_PORTE_COSTE: TcxGridDBColumn + DataBinding.FieldName = 'IMPORTE_PORTE_COSTE' + end + object cxGridViewIMPORTE_UNIDAD_ULTIMA_COMPRA: TcxGridDBColumn + DataBinding.FieldName = 'IMPORTE_UNIDAD_ULTIMA_COMPRA' + end + object cxGridViewIMPORTE_NETO_ULTIMA_COMPRA: TcxGridDBColumn + DataBinding.FieldName = 'IMPORTE_NETO_ULTIMA_COMPRA' + end + object cxGridViewIMPORTE_PORTE_ULTIMA_COMPRA: TcxGridDBColumn + DataBinding.FieldName = 'IMPORTE_PORTE_ULTIMA_COMPRA' + end + object cxGridViewIMPORTE_UNIDAD_PROMEDIO_COMPRA: TcxGridDBColumn + DataBinding.FieldName = 'IMPORTE_UNIDAD_PROMEDIO_COMPRA' + end + object cxGridViewIMPORTE_NETO_PROMEDIO_COMPRA: TcxGridDBColumn + DataBinding.FieldName = 'IMPORTE_NETO_PROMEDIO_COMPRA' + end + object cxGridViewIMPORTE_PORTE_PROMEDIO_COMPRA: TcxGridDBColumn + DataBinding.FieldName = 'IMPORTE_PORTE_PROMEDIO_COMPRA' + end + object cxGridViewCANTIDAD: TcxGridDBColumn + DataBinding.FieldName = 'CANTIDAD' + end + object cxGridViewIMPORTE_UNIDAD_VENTA: TcxGridDBColumn + DataBinding.FieldName = 'IMPORTE_UNIDAD_VENTA' + end + object cxGridViewDESCUENTO_CLIENTE_VENTA: TcxGridDBColumn + DataBinding.FieldName = 'DESCUENTO_CLIENTE_VENTA' + end + object cxGridViewIMPORTE_NETO_VENTA: TcxGridDBColumn + DataBinding.FieldName = 'IMPORTE_NETO_VENTA' + end + object cxGridViewIMPORTE_TOTAL_VENTA: TcxGridDBColumn + DataBinding.FieldName = 'IMPORTE_TOTAL_VENTA' + end + object cxGridViewIMPORTE_MARGEN_COSTE: TcxGridDBColumn + DataBinding.FieldName = 'IMPORTE_MARGEN_COSTE' + end + object cxGridViewPORCENTAJE_MARGEN_COSTE: TcxGridDBColumn + DataBinding.FieldName = 'PORCENTAJE_MARGEN_COSTE' + end + object cxGridViewIMPORTE_MARGEN_ULT_COMPRA: TcxGridDBColumn + DataBinding.FieldName = 'IMPORTE_MARGEN_ULT_COMPRA' + end + object cxGridViewPORCENTAJE_MARGEN_ULT_COMPRA: TcxGridDBColumn + DataBinding.FieldName = 'PORCENTAJE_MARGEN_ULT_COMPRA' + end + object cxGridViewIMPORTE_MARGEN_PROM_COMPRA: TcxGridDBColumn + DataBinding.FieldName = 'IMPORTE_MARGEN_PROM_COMPRA' + end + object cxGridViewPORCENTAJE_MARGEN_PROM_COMPRA: TcxGridDBColumn + DataBinding.FieldName = 'PORCENTAJE_MARGEN_PROM_COMPRA' + end + object cxGridViewNIF_CIF_PROVEEDOR: TcxGridDBColumn + DataBinding.FieldName = 'NIF_CIF_PROVEEDOR' + end + object cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn + DataBinding.FieldName = 'NOMBRE_PROVEEDOR' + end + object cxGridViewCALLE_PROVEEDOR: TcxGridDBColumn + DataBinding.FieldName = 'CALLE_PROVEEDOR' + end + object cxGridViewPOBLACION_PROVEEDOR: TcxGridDBColumn + DataBinding.FieldName = 'POBLACION_PROVEEDOR' + end + object cxGridViewPROVINCIA_PROVEEDOR: TcxGridDBColumn + DataBinding.FieldName = 'PROVINCIA_PROVEEDOR' + end + object cxGridViewNIF_CIF_CLIENTE: TcxGridDBColumn + DataBinding.FieldName = 'NIF_CIF_CLIENTE' + end + object cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn + DataBinding.FieldName = 'NOMBRE_CLIENTE' + end + object cxGridViewNOMBRE_COMERCIAL_CLIENTE: TcxGridDBColumn + DataBinding.FieldName = 'NOMBRE_COMERCIAL_CLIENTE' + end + object cxGridViewCALLE_CLIENTE: TcxGridDBColumn + DataBinding.FieldName = 'CALLE_CLIENTE' + end + object cxGridViewPOBLACION_CLIENTE: TcxGridDBColumn + DataBinding.FieldName = 'POBLACION_CLIENTE' + end + object cxGridViewPROVINCIA_CLIENTE: TcxGridDBColumn + DataBinding.FieldName = 'PROVINCIA_CLIENTE' + end + object cxGridViewNIF_CIF_AGENTE: TcxGridDBColumn + DataBinding.FieldName = 'NIF_CIF_AGENTE' + end + object cxGridViewNOMBRE_AGENTE: TcxGridDBColumn + DataBinding.FieldName = 'NOMBRE_AGENTE' + end + object cxGridViewCALLE_AGENTE: TcxGridDBColumn + DataBinding.FieldName = 'CALLE_AGENTE' + end + object cxGridViewPOBLACION_AGENTE: TcxGridDBColumn + DataBinding.FieldName = 'POBLACION_AGENTE' + end + object cxGridViewPROVINCIA_AGENTE: TcxGridDBColumn + DataBinding.FieldName = 'PROVINCIA_AGENTE' + end + object cxGridViewCOMISION_AGENTE: TcxGridDBColumn + DataBinding.FieldName = 'COMISION_AGENTE' + end + object cxGridViewIMPORTE_COMISION_AGENTE: TcxGridDBColumn + DataBinding.FieldName = 'IMPORTE_COMISION_AGENTE' + end + end + object cxGridLevel: TcxGridLevel + GridView = cxGridView + end + end + inherited dxPrintStyleManager1: TdxPrintStyleManager + inherited dxPrintStyleManager1Style1: TdxPSPrintStyle + BuiltInStyle = True + end + end + inherited dxComponentPrinter: TdxComponentPrinter + inherited dxPrinterLinkcxGrid: TdxGridReportLink + Component = cxGrid + BuiltInReportLink = True + end + end + object cxStyleRepository1: TcxStyleRepository + Left = 16 + Top = 48 + object cxStyleRed: TcxStyle + AssignedValues = [svTextColor] + TextColor = clRed + end + object cxStyleBlue: TcxStyle + AssignedValues = [svTextColor] + TextColor = clBlue + end + object cxStyleFilterBox: TcxStyle + AssignedValues = [svColor, svTextColor] + Color = clInfoBk + TextColor = clWindowText + end + end +end diff --git a/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticuloGrid.pas b/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticuloGrid.pas new file mode 100644 index 00000000..a972ed88 --- /dev/null +++ b/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticuloGrid.pas @@ -0,0 +1,416 @@ +unit uViewInfMargenArticuloGrid; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uViewInformeBaseGrid, DB, uDADataTable, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, + cxTextEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxCurrencyEdit, cxCalendar, dxPSGlbl, dxPSUtl, dxPrnPg, dxBkgnd, dxWrap, + dxPrnDev, dxPSEngn, dxPSCompsProvider, dxPSFillPatterns, + dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPgsDlg, + cxDropDownEdit, StdCtrls, cxSpinEdit; + +type + IViewInfMargenArticuloGrid = interface(IViewInformeBaseGrid) + ['{19EAFDBF-857D-4A6B-851A-DDB7A3CB281B}'] + end; + + TfrViewInfMargenArticuloGrid = class(TfrViewInformeBaseGrid, IViewInfMargenArticuloGrid) + cxGrid: TcxGrid; + cxGridView: TcxGridDBTableView; + cxGridLevel: TcxGridLevel; + cxStyleRepository1: TcxStyleRepository; + cxStyleRed: TcxStyle; + cxStyleBlue: TcxStyle; + cxStyleFilterBox: TcxStyle; + cxGridViewRecID: TcxGridDBColumn; + cxGridViewID_FACTURA: TcxGridDBColumn; + cxGridViewID_EMPRESA: TcxGridDBColumn; + cxGridViewREFERENCIA_FACTURA: TcxGridDBColumn; + cxGridViewFECHA_FACTURA: TcxGridDBColumn; + cxGridViewIMPORTE_TOTAL_FACTURA: TcxGridDBColumn; + cxGridViewID_COMISION_FACTURA: TcxGridDBColumn; + cxGridViewID_ARTICULO: TcxGridDBColumn; + cxGridViewFAMILIA: TcxGridDBColumn; + cxGridViewREFERENCIA: TcxGridDBColumn; + cxGridViewREFERENCIA_PROV: TcxGridDBColumn; + cxGridViewDESCRIPCION: TcxGridDBColumn; + cxGridViewCOMISIONABLE: TcxGridDBColumn; + cxGridViewINVENTARIABLE: TcxGridDBColumn; + cxGridViewIMPORTE_UNIDAD_COSTE: TcxGridDBColumn; + cxGridViewDESCUENTO_PROVEEDOR_COSTE: TcxGridDBColumn; + cxGridViewIMPORTE_NETO_COSTE: TcxGridDBColumn; + cxGridViewIMPORTE_PORTE_COSTE: TcxGridDBColumn; + cxGridViewCANTIDAD: TcxGridDBColumn; + cxGridViewIMPORTE_UNIDAD_VENTA: TcxGridDBColumn; + cxGridViewDESCUENTO_CLIENTE_VENTA: TcxGridDBColumn; + cxGridViewIMPORTE_TOTAL_VENTA: TcxGridDBColumn; + cxGridViewNIF_CIF_PROVEEDOR: TcxGridDBColumn; + cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn; + cxGridViewCALLE_PROVEEDOR: TcxGridDBColumn; + cxGridViewPOBLACION_PROVEEDOR: TcxGridDBColumn; + cxGridViewPROVINCIA_PROVEEDOR: TcxGridDBColumn; + cxGridViewNIF_CIF_CLIENTE: TcxGridDBColumn; + cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn; + cxGridViewNOMBRE_COMERCIAL_CLIENTE: TcxGridDBColumn; + cxGridViewCALLE_CLIENTE: TcxGridDBColumn; + cxGridViewPOBLACION_CLIENTE: TcxGridDBColumn; + cxGridViewPROVINCIA_CLIENTE: TcxGridDBColumn; + cxGridViewNIF_CIF_AGENTE: TcxGridDBColumn; + cxGridViewNOMBRE_AGENTE: TcxGridDBColumn; + cxGridViewCALLE_AGENTE: TcxGridDBColumn; + cxGridViewPOBLACION_AGENTE: TcxGridDBColumn; + cxGridViewPROVINCIA_AGENTE: TcxGridDBColumn; + cxGridViewCOMISION_AGENTE: TcxGridDBColumn; + cxGridViewIMPORTE_COMISION_AGENTE: TcxGridDBColumn; + cxGridViewIMPORTE_NETO_VENTA: TcxGridDBColumn; + cxGridViewIMPORTE_UNIDAD_ULTIMA_COMPRA: TcxGridDBColumn; + cxGridViewIMPORTE_NETO_ULTIMA_COMPRA: TcxGridDBColumn; + cxGridViewIMPORTE_PORTE_ULTIMA_COMPRA: TcxGridDBColumn; + cxGridViewIMPORTE_UNIDAD_PROMEDIO_COMPRA: TcxGridDBColumn; + cxGridViewIMPORTE_NETO_PROMEDIO_COMPRA: TcxGridDBColumn; + cxGridViewIMPORTE_PORTE_PROMEDIO_COMPRA: TcxGridDBColumn; + cxGridViewIMPORTE_MARGEN_COSTE: TcxGridDBColumn; + cxGridViewPORCENTAJE_MARGEN_COSTE: TcxGridDBColumn; + cxGridViewIMPORTE_MARGEN_ULT_COMPRA: TcxGridDBColumn; + cxGridViewPORCENTAJE_MARGEN_ULT_COMPRA: TcxGridDBColumn; + cxGridViewIMPORTE_MARGEN_PROM_COMPRA: TcxGridDBColumn; + cxGridViewPORCENTAJE_MARGEN_PROM_COMPRA: TcxGridDBColumn; + procedure cxGridViewStylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); + procedure cxGridViewColumnPosChanged(Sender: TcxGridTableView; + AColumn: TcxGridColumn); + procedure cxGridViewColumnSizeChanged(Sender: TcxGridTableView; + AColumn: TcxGridColumn); + procedure cxGridViewDataControllerGroupingChanged(Sender: TObject); + procedure cxGridViewDataControllerSortingChanged(Sender: TObject); + procedure cxGridViewDataControllerSummaryAfterSummary( + ASender: TcxDataSummary); +// procedure cxGridViewCENTROPropertiesInitPopup(Sender: TObject); +// procedure cxGridViewVENDEDORPropertiesInitPopup(Sender: TObject); +// procedure cxGridViewPRODUCTOPropertiesInitPopup(Sender: TObject); + procedure cxGridViewDataControllerFilterChanged(Sender: TObject); +// procedure cxGridViewDIASEMANAPropertiesInitPopup(Sender: TObject); +// procedure cxGridViewMESPropertiesInitPopup(Sender: TObject); +// procedure cxGridViewGRUPOPRODUCTOPropertiesInitPopup(Sender: TObject); +// procedure cxGridViewTIPOPRODUCTOPropertiesInitPopup(Sender: TObject); +// procedure cxGridViewCOLECCIONPropertiesInitPopup(Sender: TObject); + procedure cxGridViewDataControllerCompare( + ADataController: TcxCustomDataController; ARecordIndex1, + ARecordIndex2, AItemIndex: Integer; const V1, V2: Variant; + var Compare: Integer); + protected + procedure ActivarEventos; override; + procedure DesactivarEventos; override; + function GetFocusedView : TcxGridDBTableView; override; + public + procedure Refresh; override; + constructor Create(AOwner: TComponent); override; + end; + +implementation + +uses + cxVariants, uDateUtils; + +{$R *.dfm} + +{ TfrInfMargenArticuloGrid } + +function TfrViewInfMargenArticuloGrid.GetFocusedView: TcxGridDBTableView; +begin + Result := cxGridView; +end; + +procedure TfrViewInfMargenArticuloGrid.Refresh; +var + FocusedRow, TopRow : Integer; +begin + inherited; + { Refrescar las filas del grid a partir del dataset y colocar la fila + seleccionada donde estaba } + if FocusedView.DataController.DataSource.DataSet.State = dsBrowse then + begin + TopRow := FocusedView.Controller.TopRowIndex; + FocusedRow := FocusedView.DataController.FocusedRowIndex; + + FocusedView.DataController.UpdateItems(False); // <- Refresco + + FocusedView.DataController.FocusedRowIndex := FocusedRow; + FocusedView.Controller.TopRowIndex := TopRow; + + { Esta chapuzilla es para que se rellenen los combobox de los filtros + por que el cxFilterControl no coge los valores la 1ª vez si los + combos están vacíos. } +{ TcxComboBoxProperties(cxGridViewPRODUCTO.Properties).OnInitPopup(nil); + TcxComboBoxProperties(cxGridViewCENTRO.Properties).OnInitPopup(nil); + TcxComboBoxProperties(cxGridViewVENDEDOR.Properties).OnInitPopup(nil); + TcxComboBoxProperties(cxGridViewDIASEMANA.Properties).OnInitPopup(nil); + TcxComboBoxProperties(cxGridViewMES.Properties).OnInitPopup(nil); + TcxComboBoxProperties(cxGridViewGRUPOPRODUCTO.Properties).OnInitPopup(nil); + TcxComboBoxProperties(cxGridViewTIPOPRODUCTO.Properties).OnInitPopup(nil); + TcxComboBoxProperties(cxGridViewCOLECCION.Properties).OnInitPopup(nil); +} + end; +end; + +procedure TfrViewInfMargenArticuloGrid.cxGridViewStylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + AColumn : TcxGridDBColumn; + AFecha : TDateTime; +begin + inherited; + + // La fila es la cabecera de un grupo +{ if ARecord.Expandable then + Exit; + + AColumn := FocusedView.GetColumnByFieldName('FECHA'); + if Assigned(AColumn) and (AColumn.Visible) then + begin + try + AFecha := VarToDateTime(ARecord.Values[AColumn.Index]); + except + on Exception do + ShowMessage(VarToStr(ARecord.Values[AColumn.Index])); + end; + + if DaysBetween(Now, AFecha) > 14 then + AStyle := cxStyleRed + else + if DaysBetween(Now, AFecha) > 7 then + AStyle := cxStyleBlue + end; } +end; + +procedure TfrViewInfMargenArticuloGrid.cxGridViewColumnPosChanged( + Sender: TcxGridTableView; AColumn: TcxGridColumn); +begin + inherited; + if Assigned(FOnViewChanged) then + FOnViewChanged(Self); +end; + +procedure TfrViewInfMargenArticuloGrid.cxGridViewColumnSizeChanged( + Sender: TcxGridTableView; AColumn: TcxGridColumn); +begin + inherited; + if Assigned(FOnViewChanged) then + FOnViewChanged(Self); +end; + +procedure TfrViewInfMargenArticuloGrid.cxGridViewDataControllerGroupingChanged( + Sender: TObject); +begin + inherited; + if Assigned(FOnViewChanged) then + FOnViewChanged(Self); +end; + +procedure TfrViewInfMargenArticuloGrid.cxGridViewDataControllerSortingChanged( + Sender: TObject); +begin + inherited; + if Assigned(FOnViewChanged) then + FOnViewChanged(Self); +end; + +procedure TfrViewInfMargenArticuloGrid.cxGridViewDataControllerSummaryAfterSummary( + ASender: TcxDataSummary); +begin + inherited; + if Assigned(FOnViewChanged) then + FOnViewChanged(Self); +end; + +{ +procedure TfrViewInfMargenArticuloGrid.cxGridViewCENTROPropertiesInitPopup( + Sender: TObject); +begin + inherited; + with TcxComboBoxProperties(cxGridViewCENTRO.Properties) do + begin + Items.Clear; + Items.AddStrings(FilterValueList[cxGridViewCENTRO.Index]); + Items.Delete(1); // "Personalizado" + Items.Delete(0); // "Todos" + end; +end; + +procedure TfrViewInfMargenArticuloGrid.cxGridViewVENDEDORPropertiesInitPopup( + Sender: TObject); +begin + inherited; + with TcxComboBoxProperties(cxGridViewVENDEDOR.Properties) do + begin + Items.Clear; + Items.AddStrings(FilterValueList[cxGridViewVENDEDOR.Index]); + Items.Delete(1); // "Personalizado" + Items.Delete(0); // "Todos" + end; +end; + +procedure TfrViewInfMargenArticuloGrid.cxGridViewPRODUCTOPropertiesInitPopup( + Sender: TObject); +begin + inherited; + with TcxComboBoxProperties(cxGridViewPRODUCTO.Properties) do + begin + Items.Clear; + Items.AddStrings(FilterValueList[cxGridViewPRODUCTO.Index]); + Items.Delete(1); // "Personalizado" + Items.Delete(0); // "Todos" + end; +end; +} + +procedure TfrViewInfMargenArticuloGrid.cxGridViewDataControllerFilterChanged( + Sender: TObject); +begin + if Assigned(FOnFilterChanged) then + FOnFilterChanged(Self); +end; + +constructor TfrViewInfMargenArticuloGrid.Create(AOwner: TComponent); +begin + inherited; +end; + +procedure TfrViewInfMargenArticuloGrid.ActivarEventos; +begin + inherited; + with cxGridView do + begin + DataController.Filter.OnChanged := cxGridViewDataControllerFilterChanged; + DataController.Summary.OnAfterSummary := cxGridViewDataControllerSummaryAfterSummary; + DataController.OnGroupingChanged := cxGridViewDataControllerGroupingChanged; + DataController.OnSortingChanged := cxGridViewDataControllerSortingChanged; + OnColumnPosChanged := cxGridViewColumnPosChanged; + OnColumnSizeChanged := cxGridViewColumnSizeChanged; + end; +end; + +procedure TfrViewInfMargenArticuloGrid.DesactivarEventos; +begin + inherited; + with cxGridView do + begin + DataController.Filter.OnChanged := nil; + DataController.Summary.OnAfterSummary := nil; + DataController.OnGroupingChanged := nil; + DataController.OnSortingChanged := nil; + OnColumnPosChanged := nil; + OnColumnSizeChanged := nil; + end; +end; + +{ +procedure TfrViewInfMargenArticuloGrid.cxGridViewDIASEMANAPropertiesInitPopup( + Sender: TObject); +begin + inherited; + with TcxComboBoxProperties(cxGridViewDIASEMANA.Properties) do + begin + Items.Clear; + Items.AddStrings(FilterValueList[cxGridViewDIASEMANA.Index]); + Items.Delete(1); // "Personalizado" + Items.Delete(0); // "Todos" + end; +end; +} + +{ +procedure TfrViewInfMargenArticuloGrid.cxGridViewMESPropertiesInitPopup( + Sender: TObject); +begin + inherited; + with TcxComboBoxProperties(cxGridViewMES.Properties) do + begin + Items.Clear; + Items.AddStrings(FilterValueList[cxGridViewMES.Index]); + Items.Delete(1); // "Personalizado" + Items.Delete(0); // "Todos" + end; +end; + +procedure TfrViewInfMargenArticuloGrid.cxGridViewGRUPOPRODUCTOPropertiesInitPopup( + Sender: TObject); +begin + inherited; + with TcxComboBoxProperties(cxGridViewGRUPOPRODUCTO.Properties) do + begin + Items.Clear; + Items.AddStrings(FilterValueList[cxGridViewGRUPOPRODUCTO.Index]); + Items.Delete(1); // "Personalizado" + Items.Delete(0); // "Todos" + end; +end; + +procedure TfrViewInfMargenArticuloGrid.cxGridViewTIPOPRODUCTOPropertiesInitPopup( + Sender: TObject); +begin + inherited; + with TcxComboBoxProperties(cxGridViewTIPOPRODUCTO.Properties) do + begin + Items.Clear; + Items.AddStrings(FilterValueList[cxGridViewTIPOPRODUCTO.Index]); + Items.Delete(1); // "Personalizado" + Items.Delete(0); // "Todos" + end; +end; + +procedure TfrViewInfMargenArticuloGrid.cxGridViewCOLECCIONPropertiesInitPopup( + Sender: TObject); +begin + inherited; + with TcxComboBoxProperties(cxGridViewCOLECCION.Properties) do + begin + Items.Clear; + Items.AddStrings(FilterValueList[cxGridViewCOLECCION.Index]); + Items.Delete(1); // "Personalizado" + Items.Delete(0); // "Todos" + end; +end; +} + +procedure TfrViewInfMargenArticuloGrid.cxGridViewDataControllerCompare( + ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2, + AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer); +var + AValue1, + AValue2 : Variant; +begin + // Por defecto +{ + Compare := VarCompare(V1, V2); + try + if (AItemIndex = cxGridViewDIASEMANA.Index) then + begin + AValue1 := ADataController.Values[ARecordIndex1, cxGridViewDIASEMANA.Index]; + AValue2 := ADataController.Values[ARecordIndex2, cxGridViewDIASEMANA.Index]; + if (not VarIsNull(AValue1)) and (not VarIsNull(AValue2)) then + Compare := VarCompare(NumberDayOfTheWeek(AValue1), NumberDayOfTheWeek(AValue2)) + end + else begin + if (AItemIndex = cxGridViewMES.Index) then + begin + AValue1 := ADataController.Values[ARecordIndex1, cxGridViewMES.Index]; + AValue2 := ADataController.Values[ARecordIndex2, cxGridViewMES.Index]; + if (not VarIsNull(AValue1)) and (not VarIsNull(AValue2)) then + Compare := VarCompare(NumberMonthOfTheYear(AValue1), NumberMonthOfTheYear(AValue2)) + end + end; + except + //ShowMessage(VarToStr(ARecordIndex1) + ' ' + VarToStr(ARecordIndex1)); + end; +} +end; + +end. + diff --git a/Source/Modulos/Informe ventas por articulo/Servidor/srvInfVentasArticulo_Impl.dfm b/Source/Modulos/Informe ventas por articulo/Servidor/srvInfVentasArticulo_Impl.dfm index ba0e5318..d1f8bb5e 100644 --- a/Source/Modulos/Informe ventas por articulo/Servidor/srvInfVentasArticulo_Impl.dfm +++ b/Source/Modulos/Informe ventas por articulo/Servidor/srvInfVentasArticulo_Impl.dfm @@ -27,22 +27,24 @@ object srvInfVentasArticulo: TsrvInfVentasArticulo Statements = < item Connection = 'IBX' - TargetTable = 'V_VENTAS_ARTICULOS' + TargetTable = 'V_INF_VENTAS_ARTICULOS' SQL = 'SELECT'#10' ID_FACTURA,'#10' ID_EMPRESA,'#10' REFERENCIA_FACTURA,'#10' ' + ' FECHA_FACTURA,'#10' IMPORTE_TOTAL_FACTURA,'#10' ID_COMISION_FAC' + - 'TURA,'#10#10' ID_ARTICULO,'#10' FAMILIA,'#10' REFERENCIA,'#10' REFEREN' + - 'CIA_PROV,'#10' DESCRIPCION,'#10' COMISIONABLE,'#10' INVENTARIABLE,'#10 + - #10' PRECIO_COSTE,'#10' DESCUENTO_PROVEEDOR,'#10' PRECIO_NETO,'#10' ' + - ' PRECIO_PORTE,'#10#10' CANTIDAD,'#10' IMPORTE_UNIDAD,'#10' DESCUENTO_' + - 'CLIENTE,'#10' IMPORTE_TOTAL,'#10#10' NIF_CIF_PROVEEDOR,'#10' NOMBRE_P' + - 'ROVEEDOR,'#10' CALLE_PROVEEDOR,'#10' POBLACION_PROVEEDOR,'#10' PROV' + - 'INCIA_PROVEEDOR,'#10#10' NIF_CIF_CLIENTE,'#10' NOMBRE_CLIENTE,'#10' N' + - 'OMBRE_COMERCIAL_CLIENTE,'#10' CALLE_CLIENTE,'#10' POBLACION_CLIENT' + - 'E,'#10' PROVINCIA_CLIENTE,'#10#10' NIF_CIF_AGENTE,'#10' NOMBRE_AGENTE' + - ','#10' CALLE_AGENTE,'#10' POBLACION_AGENTE,'#10' PROVINCIA_AGENTE,'#10 + - ' COMISION_AGENTE,'#10' IMPORTE_COMISION_AGENTE'#10#10'FROM V_VENTAS_' + - 'ARTICULOS'#10'WHERE FECHA_FACTURA BETWEEN :FECHAINI AND :FECHAFIN' + 'TURA,'#10' '#10' ID_ARTICULO,'#10' FAMILIA,'#10' REFERENCIA,'#10' REF' + + 'ERENCIA_PROV,'#10' DESCRIPCION,'#10' COMISIONABLE,'#10' INVENTARIAB' + + 'LE,'#10#10' IMPORTE_UNIDAD_COSTE,'#10' DESCUENTO_PROVEEDOR_COSTE,'#10' ' + + ' IMPORTE_NETO_COSTE,'#10' IMPORTE_PORTE_COSTE,'#10#10' CANTIDAD,'#10' ' + + ' IMPORTE_UNIDAD_VENTA,'#10' DESCUENTO_CLIENTE_VENTA,'#10' IMPORTE' + + '_NETO_VENTA,'#10' IMPORTE_PORTE_VENTA,'#10' IMPORTE_TOTAL_VENTA,'#10#10 + + ' NIF_CIF_PROVEEDOR,'#10' NOMBRE_PROVEEDOR,'#10' CALLE_PROVEEDOR' + + ','#10' POBLACION_PROVEEDOR,'#10' PROVINCIA_PROVEEDOR,'#10#10' NIF_CIF' + + '_CLIENTE,'#10' NOMBRE_CLIENTE,'#10' NOMBRE_COMERCIAL_CLIENTE,'#10' ' + + 'CALLE_CLIENTE,'#10' POBLACION_CLIENTE,'#10' PROVINCIA_CLIENTE,'#10#10' ' + + ' NIF_CIF_AGENTE,'#10' NOMBRE_AGENTE,'#10' CALLE_AGENTE,'#10' POBLA' + + 'CION_AGENTE,'#10' PROVINCIA_AGENTE,'#10' COMISION_AGENTE,'#10' IMPO' + + 'RTE_COMISION_AGENTE'#10' '#10'FROM V_INF_VENTAS_ARTICULOS'#10'WHERE FECHA' + + '_FACTURA BETWEEN :FECHAINI AND :FECHAFIN' StatementType = stSQL ColumnMappings = < item @@ -89,38 +91,10 @@ object srvInfVentasArticulo: TsrvInfVentasArticulo DatasetField = 'INVENTARIABLE' TableField = 'INVENTARIABLE' end - item - DatasetField = 'PRECIO_COSTE' - TableField = 'PRECIO_COSTE' - end - item - DatasetField = 'DESCUENTO_PROVEEDOR' - TableField = 'DESCUENTO_PROVEEDOR' - end - item - DatasetField = 'PRECIO_NETO' - TableField = 'PRECIO_NETO' - end - item - DatasetField = 'PRECIO_PORTE' - TableField = 'PRECIO_PORTE' - end item DatasetField = 'CANTIDAD' TableField = 'CANTIDAD' end - item - DatasetField = 'IMPORTE_UNIDAD' - TableField = 'IMPORTE_UNIDAD' - end - item - DatasetField = 'DESCUENTO_CLIENTE' - TableField = 'DESCUENTO_CLIENTE' - end - item - DatasetField = 'IMPORTE_TOTAL' - TableField = 'IMPORTE_TOTAL' - end item DatasetField = 'NIF_CIF_PROVEEDOR' TableField = 'NIF_CIF_PROVEEDOR' @@ -200,6 +174,42 @@ object srvInfVentasArticulo: TsrvInfVentasArticulo item DatasetField = 'REFERENCIA_FACTURA' TableField = 'REFERENCIA_FACTURA' + end + item + DatasetField = 'IMPORTE_UNIDAD_COSTE' + TableField = 'IMPORTE_UNIDAD_COSTE' + end + item + DatasetField = 'DESCUENTO_PROVEEDOR_COSTE' + TableField = 'DESCUENTO_PROVEEDOR_COSTE' + end + item + DatasetField = 'IMPORTE_NETO_COSTE' + TableField = 'IMPORTE_NETO_COSTE' + end + item + DatasetField = 'IMPORTE_PORTE_COSTE' + TableField = 'IMPORTE_PORTE_COSTE' + end + item + DatasetField = 'IMPORTE_UNIDAD_VENTA' + TableField = 'IMPORTE_UNIDAD_VENTA' + end + item + DatasetField = 'DESCUENTO_CLIENTE_VENTA' + TableField = 'DESCUENTO_CLIENTE_VENTA' + end + item + DatasetField = 'IMPORTE_NETO_VENTA' + TableField = 'IMPORTE_NETO_VENTA' + end + item + DatasetField = 'IMPORTE_PORTE_VENTA' + TableField = 'IMPORTE_PORTE_VENTA' + end + item + DatasetField = 'IMPORTE_TOTAL_VENTA' + TableField = 'IMPORTE_TOTAL_VENTA' end> end> Name = 'InfVentasArticulo' @@ -340,7 +350,7 @@ object srvInfVentasArticulo: TsrvInfVentasArticulo LookupCache = False end item - Name = 'PRECIO_COSTE' + Name = 'IMPORTE_UNIDAD_COSTE' DataType = datCurrency BlobType = dabtUnknown DictionaryEntry = 'InfVentasArticulo_PRECIO_COSTE' @@ -350,7 +360,7 @@ object srvInfVentasArticulo: TsrvInfVentasArticulo LookupCache = False end item - Name = 'DESCUENTO_PROVEEDOR' + Name = 'DESCUENTO_PROVEEDOR_COSTE' DataType = datFloat BlobType = dabtUnknown DictionaryEntry = 'InfVentasArticulo_DESCUENTO_PROVEEDOR' @@ -360,7 +370,7 @@ object srvInfVentasArticulo: TsrvInfVentasArticulo LookupCache = False end item - Name = 'PRECIO_NETO' + Name = 'IMPORTE_NETO_COSTE' DataType = datCurrency BlobType = dabtUnknown DictionaryEntry = 'InfVentasArticulo_PRECIO_NETO' @@ -370,7 +380,7 @@ object srvInfVentasArticulo: TsrvInfVentasArticulo LookupCache = False end item - Name = 'PRECIO_PORTE' + Name = 'IMPORTE_PORTE_COSTE' DataType = datCurrency BlobType = dabtUnknown DictionaryEntry = 'InfVentasArticulo_PRECIO_PORTE' @@ -390,7 +400,7 @@ object srvInfVentasArticulo: TsrvInfVentasArticulo LookupCache = False end item - Name = 'IMPORTE_UNIDAD' + Name = 'IMPORTE_UNIDAD_VENTA' DataType = datCurrency BlobType = dabtUnknown DictionaryEntry = 'InfVentasArticulo_IMPORTE_UNIDAD' @@ -400,7 +410,7 @@ object srvInfVentasArticulo: TsrvInfVentasArticulo LookupCache = False end item - Name = 'DESCUENTO_CLIENTE' + Name = 'DESCUENTO_CLIENTE_VENTA' DataType = datFloat BlobType = dabtUnknown DictionaryEntry = 'InfVentasArticulo_DESCUENTO_CLIENTE' @@ -410,7 +420,28 @@ object srvInfVentasArticulo: TsrvInfVentasArticulo LookupCache = False end item - Name = 'IMPORTE_TOTAL' + Name = 'IMPORTE_NETO_VENTA' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taRightJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_PORTE_VENTA' + DataType = datFloat + BlobType = dabtUnknown + DictionaryEntry = 'InfVentasArticulo_IMPORTE_PORTE_VENTA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_TOTAL_VENTA' DataType = datCurrency BlobType = dabtUnknown DictionaryEntry = 'InfVentasArticulo_IMPORTE_TOTAL' @@ -962,6 +993,30 @@ object srvInfVentasArticulo: TsrvInfVentasArticulo DisplayWidth = 0 DisplayLabel = 'Importe comisi'#243'n' Alignment = taRightJustify + end + item + Name = 'InfVentasArticulo_IMPORTE_NETO_VENTA' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'IMPORTE_NETO_VENTA' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_IMPORTE_PORTE_VENTA' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'IMPORTE_PORTE_VENTA' + Alignment = taLeftJustify + end + item + Name = 'InfVentasArticulo_IMPORTE_TOTAL_VENTA' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'IMPORTE_TOTAL_VENTA' + Alignment = taLeftJustify end> Left = 54 Top = 158 diff --git a/Source/Modulos/Informe ventas por articulo/Views/uEditorInfVentasArticulo.dfm b/Source/Modulos/Informe ventas por articulo/Views/uEditorInfVentasArticulo.dfm index eaf5de9f..fc376900 100644 --- a/Source/Modulos/Informe ventas por articulo/Views/uEditorInfVentasArticulo.dfm +++ b/Source/Modulos/Informe ventas por articulo/Views/uEditorInfVentasArticulo.dfm @@ -404,24 +404,24 @@ inherited fEditorInfVentasArticulo: TfEditorInfVentasArticulo inherited cxGridViewINVENTARIABLE: TcxGridDBColumn Caption = 'Inventariable' end - inherited cxGridViewPRECIO_COSTE: TcxGridDBColumn + inherited cxGridViewIMPORTE_UNIDAD_COSTE: TcxGridDBColumn Caption = 'Precio coste' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.Alignment.Horz = taRightJustify FooterAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify end - inherited cxGridViewDESCUENTO_PROVEEDOR: TcxGridDBColumn + inherited cxGridViewDESCUENTO_PROVEEDOR_COSTE: TcxGridDBColumn Caption = 'Dto proveedor' end - inherited cxGridViewPRECIO_NETO: TcxGridDBColumn + inherited cxGridViewIMPORTE_NETO_COSTE: TcxGridDBColumn Caption = 'Precio neto' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.Alignment.Horz = taRightJustify FooterAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify end - inherited cxGridViewPRECIO_PORTE: TcxGridDBColumn + inherited cxGridViewIMPORTE_PORTE_COSTE: TcxGridDBColumn Caption = 'Precio porte' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.Alignment.Horz = taRightJustify @@ -430,18 +430,34 @@ inherited fEditorInfVentasArticulo: TfEditorInfVentasArticulo end inherited cxGridViewCANTIDAD: TcxGridDBColumn Caption = 'Cantidad' + PropertiesClassName = 'TcxSpinEditProperties' + Properties.Alignment.Horz = taRightJustify + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify end - inherited cxGridViewIMPORTE_UNIDAD: TcxGridDBColumn + inherited cxGridViewIMPORTE_UNIDAD_VENTA: TcxGridDBColumn Caption = 'Importe unidad' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.Alignment.Horz = taRightJustify FooterAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify end - inherited cxGridViewDESCUENTO_CLIENTE: TcxGridDBColumn + inherited cxGridViewDESCUENTO_CLIENTE_VENTA: TcxGridDBColumn Caption = 'Dto cliente' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + Properties.DisplayFormat = ',0.00 %;-,0.00 %' + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify end - inherited cxGridViewIMPORTE_TOTAL: TcxGridDBColumn + inherited cxGridViewIMPORTE_NETO_VENTA: TcxGridDBColumn + Caption = 'Importe neto' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end + inherited cxGridViewIMPORTE_TOTAL_VENTA: TcxGridDBColumn Caption = 'Importe total' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.Alignment.Horz = taRightJustify diff --git a/Source/Modulos/Informe ventas por articulo/Views/uViewInfVentasArticuloGrid.dfm b/Source/Modulos/Informe ventas por articulo/Views/uViewInfVentasArticuloGrid.dfm index db7e52b3..1b175f1a 100644 --- a/Source/Modulos/Informe ventas por articulo/Views/uViewInfVentasArticuloGrid.dfm +++ b/Source/Modulos/Informe ventas por articulo/Views/uViewInfVentasArticuloGrid.dfm @@ -93,29 +93,32 @@ inherited frViewInfVentasArticuloGrid: TfrViewInfVentasArticuloGrid object cxGridViewINVENTARIABLE: TcxGridDBColumn DataBinding.FieldName = 'INVENTARIABLE' end - object cxGridViewPRECIO_COSTE: TcxGridDBColumn - DataBinding.FieldName = 'PRECIO_COSTE' + object cxGridViewIMPORTE_UNIDAD_COSTE: TcxGridDBColumn + DataBinding.FieldName = 'IMPORTE_UNIDAD_COSTE' end - object cxGridViewDESCUENTO_PROVEEDOR: TcxGridDBColumn - DataBinding.FieldName = 'DESCUENTO_PROVEEDOR' + object cxGridViewDESCUENTO_PROVEEDOR_COSTE: TcxGridDBColumn + DataBinding.FieldName = 'DESCUENTO_PROVEEDOR_COSTE' end - object cxGridViewPRECIO_NETO: TcxGridDBColumn - DataBinding.FieldName = 'PRECIO_NETO' + object cxGridViewIMPORTE_NETO_COSTE: TcxGridDBColumn + DataBinding.FieldName = 'IMPORTE_NETO_COSTE' end - object cxGridViewPRECIO_PORTE: TcxGridDBColumn - DataBinding.FieldName = 'PRECIO_PORTE' + object cxGridViewIMPORTE_PORTE_COSTE: TcxGridDBColumn + DataBinding.FieldName = 'IMPORTE_PORTE_COSTE' end object cxGridViewCANTIDAD: TcxGridDBColumn DataBinding.FieldName = 'CANTIDAD' end - object cxGridViewIMPORTE_UNIDAD: TcxGridDBColumn - DataBinding.FieldName = 'IMPORTE_UNIDAD' + object cxGridViewIMPORTE_UNIDAD_VENTA: TcxGridDBColumn + DataBinding.FieldName = 'IMPORTE_UNIDAD_VENTA' end - object cxGridViewDESCUENTO_CLIENTE: TcxGridDBColumn - DataBinding.FieldName = 'DESCUENTO_CLIENTE' + object cxGridViewDESCUENTO_CLIENTE_VENTA: TcxGridDBColumn + DataBinding.FieldName = 'DESCUENTO_CLIENTE_VENTA' end - object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn - DataBinding.FieldName = 'IMPORTE_TOTAL' + object cxGridViewIMPORTE_NETO_VENTA: TcxGridDBColumn + DataBinding.FieldName = 'IMPORTE_NETO_VENTA' + end + object cxGridViewIMPORTE_TOTAL_VENTA: TcxGridDBColumn + DataBinding.FieldName = 'IMPORTE_TOTAL_VENTA' end object cxGridViewNIF_CIF_PROVEEDOR: TcxGridDBColumn DataBinding.FieldName = 'NIF_CIF_PROVEEDOR' diff --git a/Source/Modulos/Informe ventas por articulo/Views/uViewInfVentasArticuloGrid.pas b/Source/Modulos/Informe ventas por articulo/Views/uViewInfVentasArticuloGrid.pas index 8897d8a2..aab9011f 100644 --- a/Source/Modulos/Informe ventas por articulo/Views/uViewInfVentasArticuloGrid.pas +++ b/Source/Modulos/Informe ventas por articulo/Views/uViewInfVentasArticuloGrid.pas @@ -40,14 +40,14 @@ type cxGridViewDESCRIPCION: TcxGridDBColumn; cxGridViewCOMISIONABLE: TcxGridDBColumn; cxGridViewINVENTARIABLE: TcxGridDBColumn; - cxGridViewPRECIO_COSTE: TcxGridDBColumn; - cxGridViewDESCUENTO_PROVEEDOR: TcxGridDBColumn; - cxGridViewPRECIO_NETO: TcxGridDBColumn; - cxGridViewPRECIO_PORTE: TcxGridDBColumn; + cxGridViewIMPORTE_UNIDAD_COSTE: TcxGridDBColumn; + cxGridViewDESCUENTO_PROVEEDOR_COSTE: TcxGridDBColumn; + cxGridViewIMPORTE_NETO_COSTE: TcxGridDBColumn; + cxGridViewIMPORTE_PORTE_COSTE: TcxGridDBColumn; cxGridViewCANTIDAD: TcxGridDBColumn; - cxGridViewIMPORTE_UNIDAD: TcxGridDBColumn; - cxGridViewDESCUENTO_CLIENTE: TcxGridDBColumn; - cxGridViewIMPORTE_TOTAL: TcxGridDBColumn; + cxGridViewIMPORTE_UNIDAD_VENTA: TcxGridDBColumn; + cxGridViewDESCUENTO_CLIENTE_VENTA: TcxGridDBColumn; + cxGridViewIMPORTE_TOTAL_VENTA: TcxGridDBColumn; cxGridViewNIF_CIF_PROVEEDOR: TcxGridDBColumn; cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn; cxGridViewCALLE_PROVEEDOR: TcxGridDBColumn; @@ -66,6 +66,7 @@ type cxGridViewPROVINCIA_AGENTE: TcxGridDBColumn; cxGridViewCOMISION_AGENTE: TcxGridDBColumn; cxGridViewIMPORTE_COMISION_AGENTE: TcxGridDBColumn; + cxGridViewIMPORTE_NETO_VENTA: TcxGridDBColumn; procedure cxGridViewStylesGetContentStyle( Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); diff --git a/Source/Modulos/Lib/AlbCli_FacCli_relation.dcp b/Source/Modulos/Lib/AlbCli_FacCli_relation.dcp index 4480f7ae..b916e980 100644 Binary files a/Source/Modulos/Lib/AlbCli_FacCli_relation.dcp and b/Source/Modulos/Lib/AlbCli_FacCli_relation.dcp differ diff --git a/Source/Modulos/Lib/AlbProv_FacProv_relation.dcp b/Source/Modulos/Lib/AlbProv_FacProv_relation.dcp index 7dbe1e24..8f6dac1f 100644 Binary files a/Source/Modulos/Lib/AlbProv_FacProv_relation.dcp and b/Source/Modulos/Lib/AlbProv_FacProv_relation.dcp differ diff --git a/Source/Modulos/Lib/AlbaranesCliente_controller.dcp b/Source/Modulos/Lib/AlbaranesCliente_controller.dcp index 3b830918..8089b91d 100644 Binary files a/Source/Modulos/Lib/AlbaranesCliente_controller.dcp and b/Source/Modulos/Lib/AlbaranesCliente_controller.dcp differ diff --git a/Source/Modulos/Lib/AlbaranesCliente_data.dcp b/Source/Modulos/Lib/AlbaranesCliente_data.dcp index 5b1fe341..c43003ac 100644 Binary files a/Source/Modulos/Lib/AlbaranesCliente_data.dcp and b/Source/Modulos/Lib/AlbaranesCliente_data.dcp differ diff --git a/Source/Modulos/Lib/AlbaranesCliente_model.dcp b/Source/Modulos/Lib/AlbaranesCliente_model.dcp index 7e8ac6c9..b979cb79 100644 Binary files a/Source/Modulos/Lib/AlbaranesCliente_model.dcp and b/Source/Modulos/Lib/AlbaranesCliente_model.dcp differ diff --git a/Source/Modulos/Lib/AlbaranesCliente_plugin.dcp b/Source/Modulos/Lib/AlbaranesCliente_plugin.dcp index e423c263..287b289b 100644 Binary files a/Source/Modulos/Lib/AlbaranesCliente_plugin.dcp and b/Source/Modulos/Lib/AlbaranesCliente_plugin.dcp differ diff --git a/Source/Modulos/Lib/AlbaranesCliente_view.dcp b/Source/Modulos/Lib/AlbaranesCliente_view.dcp index 387c1c56..4eef56cd 100644 Binary files a/Source/Modulos/Lib/AlbaranesCliente_view.dcp and b/Source/Modulos/Lib/AlbaranesCliente_view.dcp differ diff --git a/Source/Modulos/Lib/AlbaranesProveedor_controller.dcp b/Source/Modulos/Lib/AlbaranesProveedor_controller.dcp index 7c66e5c5..38a4eef0 100644 Binary files a/Source/Modulos/Lib/AlbaranesProveedor_controller.dcp and b/Source/Modulos/Lib/AlbaranesProveedor_controller.dcp differ diff --git a/Source/Modulos/Lib/AlbaranesProveedor_data.dcp b/Source/Modulos/Lib/AlbaranesProveedor_data.dcp index 16387cd3..268627f3 100644 Binary files a/Source/Modulos/Lib/AlbaranesProveedor_data.dcp and b/Source/Modulos/Lib/AlbaranesProveedor_data.dcp differ diff --git a/Source/Modulos/Lib/AlbaranesProveedor_model.dcp b/Source/Modulos/Lib/AlbaranesProveedor_model.dcp index 4d19b93e..8bd83a18 100644 Binary files a/Source/Modulos/Lib/AlbaranesProveedor_model.dcp and b/Source/Modulos/Lib/AlbaranesProveedor_model.dcp differ diff --git a/Source/Modulos/Lib/AlbaranesProveedor_plugin.dcp b/Source/Modulos/Lib/AlbaranesProveedor_plugin.dcp index 51789952..58cfe33f 100644 Binary files a/Source/Modulos/Lib/AlbaranesProveedor_plugin.dcp and b/Source/Modulos/Lib/AlbaranesProveedor_plugin.dcp differ diff --git a/Source/Modulos/Lib/AlbaranesProveedor_view.dcp b/Source/Modulos/Lib/AlbaranesProveedor_view.dcp index 04e59e08..8b86199e 100644 Binary files a/Source/Modulos/Lib/AlbaranesProveedor_view.dcp and b/Source/Modulos/Lib/AlbaranesProveedor_view.dcp differ diff --git a/Source/Modulos/Lib/Almacenes_controller.dcp b/Source/Modulos/Lib/Almacenes_controller.dcp index 05a806a3..15003cd4 100644 Binary files a/Source/Modulos/Lib/Almacenes_controller.dcp and b/Source/Modulos/Lib/Almacenes_controller.dcp differ diff --git a/Source/Modulos/Lib/Almacenes_data.dcp b/Source/Modulos/Lib/Almacenes_data.dcp index 047bcffa..26086fc5 100644 Binary files a/Source/Modulos/Lib/Almacenes_data.dcp and b/Source/Modulos/Lib/Almacenes_data.dcp differ diff --git a/Source/Modulos/Lib/Almacenes_model.dcp b/Source/Modulos/Lib/Almacenes_model.dcp index b45ac98e..68ec3da9 100644 Binary files a/Source/Modulos/Lib/Almacenes_model.dcp and b/Source/Modulos/Lib/Almacenes_model.dcp differ diff --git a/Source/Modulos/Lib/Almacenes_plugin.dcp b/Source/Modulos/Lib/Almacenes_plugin.dcp index f7659d78..9d9072ff 100644 Binary files a/Source/Modulos/Lib/Almacenes_plugin.dcp and b/Source/Modulos/Lib/Almacenes_plugin.dcp differ diff --git a/Source/Modulos/Lib/Almacenes_view.dcp b/Source/Modulos/Lib/Almacenes_view.dcp index 7279d0f9..57857249 100644 Binary files a/Source/Modulos/Lib/Almacenes_view.dcp and b/Source/Modulos/Lib/Almacenes_view.dcp differ diff --git a/Source/Modulos/Lib/Articulos_controller.dcp b/Source/Modulos/Lib/Articulos_controller.dcp index 4bdd4945..eb124086 100644 Binary files a/Source/Modulos/Lib/Articulos_controller.dcp and b/Source/Modulos/Lib/Articulos_controller.dcp differ diff --git a/Source/Modulos/Lib/Articulos_data.dcp b/Source/Modulos/Lib/Articulos_data.dcp index 00b625c5..71a59fc3 100644 Binary files a/Source/Modulos/Lib/Articulos_data.dcp and b/Source/Modulos/Lib/Articulos_data.dcp differ diff --git a/Source/Modulos/Lib/Articulos_model.dcp b/Source/Modulos/Lib/Articulos_model.dcp index e4d6cd0c..a4a8caa6 100644 Binary files a/Source/Modulos/Lib/Articulos_model.dcp and b/Source/Modulos/Lib/Articulos_model.dcp differ diff --git a/Source/Modulos/Lib/Articulos_plugin.dcp b/Source/Modulos/Lib/Articulos_plugin.dcp index 74ee9fcd..3e5da6bd 100644 Binary files a/Source/Modulos/Lib/Articulos_plugin.dcp and b/Source/Modulos/Lib/Articulos_plugin.dcp differ diff --git a/Source/Modulos/Lib/Articulos_view.dcp b/Source/Modulos/Lib/Articulos_view.dcp index 815bc750..b0e7e456 100644 Binary files a/Source/Modulos/Lib/Articulos_view.dcp and b/Source/Modulos/Lib/Articulos_view.dcp differ diff --git a/Source/Modulos/Lib/BancaElectronica_controller.dcp b/Source/Modulos/Lib/BancaElectronica_controller.dcp index ec414da8..46157c71 100644 Binary files a/Source/Modulos/Lib/BancaElectronica_controller.dcp and b/Source/Modulos/Lib/BancaElectronica_controller.dcp differ diff --git a/Source/Modulos/Lib/BancaElectronica_plugin.dcp b/Source/Modulos/Lib/BancaElectronica_plugin.dcp index fd0ff089..a1a6630b 100644 Binary files a/Source/Modulos/Lib/BancaElectronica_plugin.dcp and b/Source/Modulos/Lib/BancaElectronica_plugin.dcp differ diff --git a/Source/Modulos/Lib/BancaElectronica_view.dcp b/Source/Modulos/Lib/BancaElectronica_view.dcp index 08cd65e8..f946f2c6 100644 Binary files a/Source/Modulos/Lib/BancaElectronica_view.dcp and b/Source/Modulos/Lib/BancaElectronica_view.dcp differ diff --git a/Source/Modulos/Lib/Comisiones_controller.dcp b/Source/Modulos/Lib/Comisiones_controller.dcp index f99a9ddb..8171c046 100644 Binary files a/Source/Modulos/Lib/Comisiones_controller.dcp and b/Source/Modulos/Lib/Comisiones_controller.dcp differ diff --git a/Source/Modulos/Lib/Comisiones_data.dcp b/Source/Modulos/Lib/Comisiones_data.dcp index 580329ec..bae650ac 100644 Binary files a/Source/Modulos/Lib/Comisiones_data.dcp and b/Source/Modulos/Lib/Comisiones_data.dcp differ diff --git a/Source/Modulos/Lib/Comisiones_model.dcp b/Source/Modulos/Lib/Comisiones_model.dcp index 5dee2324..dd59ec47 100644 Binary files a/Source/Modulos/Lib/Comisiones_model.dcp and b/Source/Modulos/Lib/Comisiones_model.dcp differ diff --git a/Source/Modulos/Lib/Comisiones_plugin.dcp b/Source/Modulos/Lib/Comisiones_plugin.dcp index 8b3ab834..9f0dc227 100644 Binary files a/Source/Modulos/Lib/Comisiones_plugin.dcp and b/Source/Modulos/Lib/Comisiones_plugin.dcp differ diff --git a/Source/Modulos/Lib/Comisiones_view.dcp b/Source/Modulos/Lib/Comisiones_view.dcp index 143c93fa..8ea83b65 100644 Binary files a/Source/Modulos/Lib/Comisiones_view.dcp and b/Source/Modulos/Lib/Comisiones_view.dcp differ diff --git a/Source/Modulos/Lib/Contactos_controller.dcp b/Source/Modulos/Lib/Contactos_controller.dcp index 91c2d839..5286d24a 100644 Binary files a/Source/Modulos/Lib/Contactos_controller.dcp and b/Source/Modulos/Lib/Contactos_controller.dcp differ diff --git a/Source/Modulos/Lib/Contactos_data.dcp b/Source/Modulos/Lib/Contactos_data.dcp index 1af3373b..72e27806 100644 Binary files a/Source/Modulos/Lib/Contactos_data.dcp and b/Source/Modulos/Lib/Contactos_data.dcp differ diff --git a/Source/Modulos/Lib/Contactos_model.dcp b/Source/Modulos/Lib/Contactos_model.dcp index d419c013..0c34bc7b 100644 Binary files a/Source/Modulos/Lib/Contactos_model.dcp and b/Source/Modulos/Lib/Contactos_model.dcp differ diff --git a/Source/Modulos/Lib/Contactos_plugin.dcp b/Source/Modulos/Lib/Contactos_plugin.dcp index 9d2eda5f..40b7e136 100644 Binary files a/Source/Modulos/Lib/Contactos_plugin.dcp and b/Source/Modulos/Lib/Contactos_plugin.dcp differ diff --git a/Source/Modulos/Lib/Contactos_view.dcp b/Source/Modulos/Lib/Contactos_view.dcp index a694003e..d900a7cd 100644 Binary files a/Source/Modulos/Lib/Contactos_view.dcp and b/Source/Modulos/Lib/Contactos_view.dcp differ diff --git a/Source/Modulos/Lib/Empresas_controller.dcp b/Source/Modulos/Lib/Empresas_controller.dcp index 7a3af7c6..e29e9e4b 100644 Binary files a/Source/Modulos/Lib/Empresas_controller.dcp and b/Source/Modulos/Lib/Empresas_controller.dcp differ diff --git a/Source/Modulos/Lib/Empresas_data.dcp b/Source/Modulos/Lib/Empresas_data.dcp index d77d665f..10916383 100644 Binary files a/Source/Modulos/Lib/Empresas_data.dcp and b/Source/Modulos/Lib/Empresas_data.dcp differ diff --git a/Source/Modulos/Lib/Empresas_model.dcp b/Source/Modulos/Lib/Empresas_model.dcp index d51860db..a6b28357 100644 Binary files a/Source/Modulos/Lib/Empresas_model.dcp and b/Source/Modulos/Lib/Empresas_model.dcp differ diff --git a/Source/Modulos/Lib/Empresas_plugin.dcp b/Source/Modulos/Lib/Empresas_plugin.dcp index ba17904d..cfd20922 100644 Binary files a/Source/Modulos/Lib/Empresas_plugin.dcp and b/Source/Modulos/Lib/Empresas_plugin.dcp differ diff --git a/Source/Modulos/Lib/Empresas_view.dcp b/Source/Modulos/Lib/Empresas_view.dcp index 0412ab04..bd88ec59 100644 Binary files a/Source/Modulos/Lib/Empresas_view.dcp and b/Source/Modulos/Lib/Empresas_view.dcp differ diff --git a/Source/Modulos/Lib/FacturasCliente_controller.dcp b/Source/Modulos/Lib/FacturasCliente_controller.dcp index c47f3d5e..db7c16e3 100644 Binary files a/Source/Modulos/Lib/FacturasCliente_controller.dcp and b/Source/Modulos/Lib/FacturasCliente_controller.dcp differ diff --git a/Source/Modulos/Lib/FacturasCliente_data.dcp b/Source/Modulos/Lib/FacturasCliente_data.dcp index ed76f6cf..2a5e5c3f 100644 Binary files a/Source/Modulos/Lib/FacturasCliente_data.dcp and b/Source/Modulos/Lib/FacturasCliente_data.dcp differ diff --git a/Source/Modulos/Lib/FacturasCliente_model.dcp b/Source/Modulos/Lib/FacturasCliente_model.dcp index 1ad2e6da..b2fcdf65 100644 Binary files a/Source/Modulos/Lib/FacturasCliente_model.dcp and b/Source/Modulos/Lib/FacturasCliente_model.dcp differ diff --git a/Source/Modulos/Lib/FacturasCliente_plugin.dcp b/Source/Modulos/Lib/FacturasCliente_plugin.dcp index dc623abb..6571b94f 100644 Binary files a/Source/Modulos/Lib/FacturasCliente_plugin.dcp and b/Source/Modulos/Lib/FacturasCliente_plugin.dcp differ diff --git a/Source/Modulos/Lib/FacturasCliente_view.dcp b/Source/Modulos/Lib/FacturasCliente_view.dcp index ef313622..5dd6ea63 100644 Binary files a/Source/Modulos/Lib/FacturasCliente_view.dcp and b/Source/Modulos/Lib/FacturasCliente_view.dcp differ diff --git a/Source/Modulos/Lib/FacturasProveedor_controller.dcp b/Source/Modulos/Lib/FacturasProveedor_controller.dcp index ece90292..614bb8fa 100644 Binary files a/Source/Modulos/Lib/FacturasProveedor_controller.dcp and b/Source/Modulos/Lib/FacturasProveedor_controller.dcp differ diff --git a/Source/Modulos/Lib/FacturasProveedor_data.dcp b/Source/Modulos/Lib/FacturasProveedor_data.dcp index 67880393..b2c909c2 100644 Binary files a/Source/Modulos/Lib/FacturasProveedor_data.dcp and b/Source/Modulos/Lib/FacturasProveedor_data.dcp differ diff --git a/Source/Modulos/Lib/FacturasProveedor_model.dcp b/Source/Modulos/Lib/FacturasProveedor_model.dcp index f8c973e1..5491d044 100644 Binary files a/Source/Modulos/Lib/FacturasProveedor_model.dcp and b/Source/Modulos/Lib/FacturasProveedor_model.dcp differ diff --git a/Source/Modulos/Lib/FacturasProveedor_plugin.dcp b/Source/Modulos/Lib/FacturasProveedor_plugin.dcp index 423e9c4d..df5bb1a5 100644 Binary files a/Source/Modulos/Lib/FacturasProveedor_plugin.dcp and b/Source/Modulos/Lib/FacturasProveedor_plugin.dcp differ diff --git a/Source/Modulos/Lib/FacturasProveedor_view.dcp b/Source/Modulos/Lib/FacturasProveedor_view.dcp index ddb7280a..f736eee5 100644 Binary files a/Source/Modulos/Lib/FacturasProveedor_view.dcp and b/Source/Modulos/Lib/FacturasProveedor_view.dcp differ diff --git a/Source/Modulos/Lib/Familias_controller.dcp b/Source/Modulos/Lib/Familias_controller.dcp index deca158d..ac2f6419 100644 Binary files a/Source/Modulos/Lib/Familias_controller.dcp and b/Source/Modulos/Lib/Familias_controller.dcp differ diff --git a/Source/Modulos/Lib/Familias_data.dcp b/Source/Modulos/Lib/Familias_data.dcp index 8905094b..2c6d8e61 100644 Binary files a/Source/Modulos/Lib/Familias_data.dcp and b/Source/Modulos/Lib/Familias_data.dcp differ diff --git a/Source/Modulos/Lib/Familias_model.dcp b/Source/Modulos/Lib/Familias_model.dcp index 8784610b..6ad8e3f2 100644 Binary files a/Source/Modulos/Lib/Familias_model.dcp and b/Source/Modulos/Lib/Familias_model.dcp differ diff --git a/Source/Modulos/Lib/Familias_plugin.dcp b/Source/Modulos/Lib/Familias_plugin.dcp index 4b2b44b2..9206fd37 100644 Binary files a/Source/Modulos/Lib/Familias_plugin.dcp and b/Source/Modulos/Lib/Familias_plugin.dcp differ diff --git a/Source/Modulos/Lib/Familias_view.dcp b/Source/Modulos/Lib/Familias_view.dcp index aa110e4b..744e7948 100644 Binary files a/Source/Modulos/Lib/Familias_view.dcp and b/Source/Modulos/Lib/Familias_view.dcp differ diff --git a/Source/Modulos/Lib/FormasPago_controller.dcp b/Source/Modulos/Lib/FormasPago_controller.dcp index ccecc79d..5f269ec8 100644 Binary files a/Source/Modulos/Lib/FormasPago_controller.dcp and b/Source/Modulos/Lib/FormasPago_controller.dcp differ diff --git a/Source/Modulos/Lib/FormasPago_data.dcp b/Source/Modulos/Lib/FormasPago_data.dcp index 4ee04d09..98ce73a9 100644 Binary files a/Source/Modulos/Lib/FormasPago_data.dcp and b/Source/Modulos/Lib/FormasPago_data.dcp differ diff --git a/Source/Modulos/Lib/FormasPago_model.dcp b/Source/Modulos/Lib/FormasPago_model.dcp index c20bff22..231bbedc 100644 Binary files a/Source/Modulos/Lib/FormasPago_model.dcp and b/Source/Modulos/Lib/FormasPago_model.dcp differ diff --git a/Source/Modulos/Lib/FormasPago_plugin.dcp b/Source/Modulos/Lib/FormasPago_plugin.dcp index 2b312f13..6d60beab 100644 Binary files a/Source/Modulos/Lib/FormasPago_plugin.dcp and b/Source/Modulos/Lib/FormasPago_plugin.dcp differ diff --git a/Source/Modulos/Lib/FormasPago_view.dcp b/Source/Modulos/Lib/FormasPago_view.dcp index 81e49157..8a1407bb 100644 Binary files a/Source/Modulos/Lib/FormasPago_view.dcp and b/Source/Modulos/Lib/FormasPago_view.dcp differ diff --git a/Source/Modulos/Lib/HistoricoMovimientos_controller.dcp b/Source/Modulos/Lib/HistoricoMovimientos_controller.dcp index 2cfd4df2..112a7053 100644 Binary files a/Source/Modulos/Lib/HistoricoMovimientos_controller.dcp and b/Source/Modulos/Lib/HistoricoMovimientos_controller.dcp differ diff --git a/Source/Modulos/Lib/HistoricoMovimientos_data.dcp b/Source/Modulos/Lib/HistoricoMovimientos_data.dcp index 0404b2e6..5ee9bf79 100644 Binary files a/Source/Modulos/Lib/HistoricoMovimientos_data.dcp and b/Source/Modulos/Lib/HistoricoMovimientos_data.dcp differ diff --git a/Source/Modulos/Lib/HistoricoMovimientos_model.dcp b/Source/Modulos/Lib/HistoricoMovimientos_model.dcp index 10aa7b09..004106b3 100644 Binary files a/Source/Modulos/Lib/HistoricoMovimientos_model.dcp and b/Source/Modulos/Lib/HistoricoMovimientos_model.dcp differ diff --git a/Source/Modulos/Lib/HistoricoMovimientos_plugin.dcp b/Source/Modulos/Lib/HistoricoMovimientos_plugin.dcp index e29dacef..2dd7423b 100644 Binary files a/Source/Modulos/Lib/HistoricoMovimientos_plugin.dcp and b/Source/Modulos/Lib/HistoricoMovimientos_plugin.dcp differ diff --git a/Source/Modulos/Lib/HistoricoMovimientos_view.dcp b/Source/Modulos/Lib/HistoricoMovimientos_view.dcp index d4a246c1..7710b7ea 100644 Binary files a/Source/Modulos/Lib/HistoricoMovimientos_view.dcp and b/Source/Modulos/Lib/HistoricoMovimientos_view.dcp differ diff --git a/Source/Modulos/Lib/InfVentasArticulo_controller.dcp b/Source/Modulos/Lib/InfVentasArticulo_controller.dcp index 35b37314..4e9d5d04 100644 Binary files a/Source/Modulos/Lib/InfVentasArticulo_controller.dcp and b/Source/Modulos/Lib/InfVentasArticulo_controller.dcp differ diff --git a/Source/Modulos/Lib/InfVentasArticulo_data.dcp b/Source/Modulos/Lib/InfVentasArticulo_data.dcp index acda85e7..da767430 100644 Binary files a/Source/Modulos/Lib/InfVentasArticulo_data.dcp and b/Source/Modulos/Lib/InfVentasArticulo_data.dcp differ diff --git a/Source/Modulos/Lib/InfVentasArticulo_model.dcp b/Source/Modulos/Lib/InfVentasArticulo_model.dcp index 47454da7..27b23080 100644 Binary files a/Source/Modulos/Lib/InfVentasArticulo_model.dcp and b/Source/Modulos/Lib/InfVentasArticulo_model.dcp differ diff --git a/Source/Modulos/Lib/InfVentasArticulo_plugin.dcp b/Source/Modulos/Lib/InfVentasArticulo_plugin.dcp index b7eee9a1..0a1a1542 100644 Binary files a/Source/Modulos/Lib/InfVentasArticulo_plugin.dcp and b/Source/Modulos/Lib/InfVentasArticulo_plugin.dcp differ diff --git a/Source/Modulos/Lib/InfVentasArticulo_view.dcp b/Source/Modulos/Lib/InfVentasArticulo_view.dcp index d2c19d3f..857c8b7a 100644 Binary files a/Source/Modulos/Lib/InfVentasArticulo_view.dcp and b/Source/Modulos/Lib/InfVentasArticulo_view.dcp differ diff --git a/Source/Modulos/Lib/InformesBase_controller.dcp b/Source/Modulos/Lib/InformesBase_controller.dcp index 845a170b..c993bb89 100644 Binary files a/Source/Modulos/Lib/InformesBase_controller.dcp and b/Source/Modulos/Lib/InformesBase_controller.dcp differ diff --git a/Source/Modulos/Lib/InformesBase_view.dcp b/Source/Modulos/Lib/InformesBase_view.dcp index f57472e2..11c2f6b0 100644 Binary files a/Source/Modulos/Lib/InformesBase_view.dcp and b/Source/Modulos/Lib/InformesBase_view.dcp differ diff --git a/Source/Modulos/Lib/Informes_controller.dcp b/Source/Modulos/Lib/Informes_controller.dcp index dce7a605..0b511962 100644 Binary files a/Source/Modulos/Lib/Informes_controller.dcp and b/Source/Modulos/Lib/Informes_controller.dcp differ diff --git a/Source/Modulos/Lib/Informes_data.dcp b/Source/Modulos/Lib/Informes_data.dcp index a475ed13..3b4a7224 100644 Binary files a/Source/Modulos/Lib/Informes_data.dcp and b/Source/Modulos/Lib/Informes_data.dcp differ diff --git a/Source/Modulos/Lib/Informes_model.dcp b/Source/Modulos/Lib/Informes_model.dcp index 275cb0df..c5d29ce2 100644 Binary files a/Source/Modulos/Lib/Informes_model.dcp and b/Source/Modulos/Lib/Informes_model.dcp differ diff --git a/Source/Modulos/Lib/Informes_plugin.dcp b/Source/Modulos/Lib/Informes_plugin.dcp index 9bf335e2..e49437f1 100644 Binary files a/Source/Modulos/Lib/Informes_plugin.dcp and b/Source/Modulos/Lib/Informes_plugin.dcp differ diff --git a/Source/Modulos/Lib/Informes_view.dcp b/Source/Modulos/Lib/Informes_view.dcp index 2f358edf..9f7285bb 100644 Binary files a/Source/Modulos/Lib/Informes_view.dcp and b/Source/Modulos/Lib/Informes_view.dcp differ diff --git a/Source/Modulos/Lib/Inventario_controller.dcp b/Source/Modulos/Lib/Inventario_controller.dcp index bbb904f0..13f3d1b3 100644 Binary files a/Source/Modulos/Lib/Inventario_controller.dcp and b/Source/Modulos/Lib/Inventario_controller.dcp differ diff --git a/Source/Modulos/Lib/Inventario_data.dcp b/Source/Modulos/Lib/Inventario_data.dcp index 81e35650..896a7743 100644 Binary files a/Source/Modulos/Lib/Inventario_data.dcp and b/Source/Modulos/Lib/Inventario_data.dcp differ diff --git a/Source/Modulos/Lib/Inventario_model.dcp b/Source/Modulos/Lib/Inventario_model.dcp index 374e135d..bbaed536 100644 Binary files a/Source/Modulos/Lib/Inventario_model.dcp and b/Source/Modulos/Lib/Inventario_model.dcp differ diff --git a/Source/Modulos/Lib/Inventario_plugin.dcp b/Source/Modulos/Lib/Inventario_plugin.dcp index 533fdeab..954e7f97 100644 Binary files a/Source/Modulos/Lib/Inventario_plugin.dcp and b/Source/Modulos/Lib/Inventario_plugin.dcp differ diff --git a/Source/Modulos/Lib/Inventario_view.dcp b/Source/Modulos/Lib/Inventario_view.dcp index 772cc7b5..e5142b9a 100644 Binary files a/Source/Modulos/Lib/Inventario_view.dcp and b/Source/Modulos/Lib/Inventario_view.dcp differ diff --git a/Source/Modulos/Lib/PedCli_AlbCli_relation.dcp b/Source/Modulos/Lib/PedCli_AlbCli_relation.dcp index cf3c6b44..dfd43dfd 100644 Binary files a/Source/Modulos/Lib/PedCli_AlbCli_relation.dcp and b/Source/Modulos/Lib/PedCli_AlbCli_relation.dcp differ diff --git a/Source/Modulos/Lib/PedCli_PedProv_relation.dcp b/Source/Modulos/Lib/PedCli_PedProv_relation.dcp index f302df46..8f027fe4 100644 Binary files a/Source/Modulos/Lib/PedCli_PedProv_relation.dcp and b/Source/Modulos/Lib/PedCli_PedProv_relation.dcp differ diff --git a/Source/Modulos/Lib/PedProv_AlbProv_relation.dcp b/Source/Modulos/Lib/PedProv_AlbProv_relation.dcp index 6e2eea9c..df0e4226 100644 Binary files a/Source/Modulos/Lib/PedProv_AlbProv_relation.dcp and b/Source/Modulos/Lib/PedProv_AlbProv_relation.dcp differ diff --git a/Source/Modulos/Lib/PedProv_FacProv_relation.dcp b/Source/Modulos/Lib/PedProv_FacProv_relation.dcp index 044a18f9..e84d549b 100644 Binary files a/Source/Modulos/Lib/PedProv_FacProv_relation.dcp and b/Source/Modulos/Lib/PedProv_FacProv_relation.dcp differ diff --git a/Source/Modulos/Lib/PedidosCliente_controller.dcp b/Source/Modulos/Lib/PedidosCliente_controller.dcp index fa4d64c8..c5c8e281 100644 Binary files a/Source/Modulos/Lib/PedidosCliente_controller.dcp and b/Source/Modulos/Lib/PedidosCliente_controller.dcp differ diff --git a/Source/Modulos/Lib/PedidosCliente_data.dcp b/Source/Modulos/Lib/PedidosCliente_data.dcp index e48ca4ec..77a82cda 100644 Binary files a/Source/Modulos/Lib/PedidosCliente_data.dcp and b/Source/Modulos/Lib/PedidosCliente_data.dcp differ diff --git a/Source/Modulos/Lib/PedidosCliente_model.dcp b/Source/Modulos/Lib/PedidosCliente_model.dcp index 75924f3b..ecba2938 100644 Binary files a/Source/Modulos/Lib/PedidosCliente_model.dcp and b/Source/Modulos/Lib/PedidosCliente_model.dcp differ diff --git a/Source/Modulos/Lib/PedidosCliente_plugin.dcp b/Source/Modulos/Lib/PedidosCliente_plugin.dcp index 26355c96..552c0911 100644 Binary files a/Source/Modulos/Lib/PedidosCliente_plugin.dcp and b/Source/Modulos/Lib/PedidosCliente_plugin.dcp differ diff --git a/Source/Modulos/Lib/PedidosCliente_view.dcp b/Source/Modulos/Lib/PedidosCliente_view.dcp index 0a67a7bc..eb27cfe6 100644 Binary files a/Source/Modulos/Lib/PedidosCliente_view.dcp and b/Source/Modulos/Lib/PedidosCliente_view.dcp differ diff --git a/Source/Modulos/Lib/PedidosProveedor_controller.dcp b/Source/Modulos/Lib/PedidosProveedor_controller.dcp index 636d2274..f4fd40cc 100644 Binary files a/Source/Modulos/Lib/PedidosProveedor_controller.dcp and b/Source/Modulos/Lib/PedidosProveedor_controller.dcp differ diff --git a/Source/Modulos/Lib/PedidosProveedor_data.dcp b/Source/Modulos/Lib/PedidosProveedor_data.dcp index 48d357fd..ce66585d 100644 Binary files a/Source/Modulos/Lib/PedidosProveedor_data.dcp and b/Source/Modulos/Lib/PedidosProveedor_data.dcp differ diff --git a/Source/Modulos/Lib/PedidosProveedor_model.dcp b/Source/Modulos/Lib/PedidosProveedor_model.dcp index 8eed5138..885286e2 100644 Binary files a/Source/Modulos/Lib/PedidosProveedor_model.dcp and b/Source/Modulos/Lib/PedidosProveedor_model.dcp differ diff --git a/Source/Modulos/Lib/PedidosProveedor_plugin.dcp b/Source/Modulos/Lib/PedidosProveedor_plugin.dcp index b29fc6ff..ff768caa 100644 Binary files a/Source/Modulos/Lib/PedidosProveedor_plugin.dcp and b/Source/Modulos/Lib/PedidosProveedor_plugin.dcp differ diff --git a/Source/Modulos/Lib/PedidosProveedor_view.dcp b/Source/Modulos/Lib/PedidosProveedor_view.dcp index 51f27f15..919e0494 100644 Binary files a/Source/Modulos/Lib/PedidosProveedor_view.dcp and b/Source/Modulos/Lib/PedidosProveedor_view.dcp differ diff --git a/Source/Modulos/Lib/RecibosCliente_controller.dcp b/Source/Modulos/Lib/RecibosCliente_controller.dcp index 7300b972..7c73725c 100644 Binary files a/Source/Modulos/Lib/RecibosCliente_controller.dcp and b/Source/Modulos/Lib/RecibosCliente_controller.dcp differ diff --git a/Source/Modulos/Lib/RecibosCliente_data.dcp b/Source/Modulos/Lib/RecibosCliente_data.dcp index 6831a9a7..6c05fe4b 100644 Binary files a/Source/Modulos/Lib/RecibosCliente_data.dcp and b/Source/Modulos/Lib/RecibosCliente_data.dcp differ diff --git a/Source/Modulos/Lib/RecibosCliente_model.dcp b/Source/Modulos/Lib/RecibosCliente_model.dcp index 8134c18a..bf186cc7 100644 Binary files a/Source/Modulos/Lib/RecibosCliente_model.dcp and b/Source/Modulos/Lib/RecibosCliente_model.dcp differ diff --git a/Source/Modulos/Lib/RecibosCliente_plugin.dcp b/Source/Modulos/Lib/RecibosCliente_plugin.dcp index e203e0af..cd8ec073 100644 Binary files a/Source/Modulos/Lib/RecibosCliente_plugin.dcp and b/Source/Modulos/Lib/RecibosCliente_plugin.dcp differ diff --git a/Source/Modulos/Lib/RecibosCliente_view.dcp b/Source/Modulos/Lib/RecibosCliente_view.dcp index 85d5f3dd..bfa23117 100644 Binary files a/Source/Modulos/Lib/RecibosCliente_view.dcp and b/Source/Modulos/Lib/RecibosCliente_view.dcp differ diff --git a/Source/Modulos/Lib/RecibosProveedor_controller.dcp b/Source/Modulos/Lib/RecibosProveedor_controller.dcp index d0b1d9f7..d16fbbd0 100644 Binary files a/Source/Modulos/Lib/RecibosProveedor_controller.dcp and b/Source/Modulos/Lib/RecibosProveedor_controller.dcp differ diff --git a/Source/Modulos/Lib/RecibosProveedor_data.dcp b/Source/Modulos/Lib/RecibosProveedor_data.dcp index 24755706..2d73e1b3 100644 Binary files a/Source/Modulos/Lib/RecibosProveedor_data.dcp and b/Source/Modulos/Lib/RecibosProveedor_data.dcp differ diff --git a/Source/Modulos/Lib/RecibosProveedor_model.dcp b/Source/Modulos/Lib/RecibosProveedor_model.dcp index 2f74e41b..9e963d14 100644 Binary files a/Source/Modulos/Lib/RecibosProveedor_model.dcp and b/Source/Modulos/Lib/RecibosProveedor_model.dcp differ diff --git a/Source/Modulos/Lib/RecibosProveedor_plugin.dcp b/Source/Modulos/Lib/RecibosProveedor_plugin.dcp index c48004a2..1ad3d646 100644 Binary files a/Source/Modulos/Lib/RecibosProveedor_plugin.dcp and b/Source/Modulos/Lib/RecibosProveedor_plugin.dcp differ diff --git a/Source/Modulos/Lib/RecibosProveedor_view.dcp b/Source/Modulos/Lib/RecibosProveedor_view.dcp index 8aa6467b..f65e991d 100644 Binary files a/Source/Modulos/Lib/RecibosProveedor_view.dcp and b/Source/Modulos/Lib/RecibosProveedor_view.dcp differ diff --git a/Source/Modulos/Lib/Referencias_controller.dcp b/Source/Modulos/Lib/Referencias_controller.dcp index 9c8ce3aa..aeafce63 100644 Binary files a/Source/Modulos/Lib/Referencias_controller.dcp and b/Source/Modulos/Lib/Referencias_controller.dcp differ diff --git a/Source/Modulos/Lib/Referencias_data.dcp b/Source/Modulos/Lib/Referencias_data.dcp index a2de701a..5385845f 100644 Binary files a/Source/Modulos/Lib/Referencias_data.dcp and b/Source/Modulos/Lib/Referencias_data.dcp differ diff --git a/Source/Modulos/Lib/Referencias_model.dcp b/Source/Modulos/Lib/Referencias_model.dcp index b7e450a4..3c221434 100644 Binary files a/Source/Modulos/Lib/Referencias_model.dcp and b/Source/Modulos/Lib/Referencias_model.dcp differ diff --git a/Source/Modulos/Lib/Referencias_plugin.dcp b/Source/Modulos/Lib/Referencias_plugin.dcp index 8ca4323f..3396486d 100644 Binary files a/Source/Modulos/Lib/Referencias_plugin.dcp and b/Source/Modulos/Lib/Referencias_plugin.dcp differ diff --git a/Source/Modulos/Lib/Referencias_view.dcp b/Source/Modulos/Lib/Referencias_view.dcp index cbd05e03..678a2364 100644 Binary files a/Source/Modulos/Lib/Referencias_view.dcp and b/Source/Modulos/Lib/Referencias_view.dcp differ diff --git a/Source/Modulos/Lib/RemesasCliente_controller.dcp b/Source/Modulos/Lib/RemesasCliente_controller.dcp index 9aec73b7..dc06d726 100644 Binary files a/Source/Modulos/Lib/RemesasCliente_controller.dcp and b/Source/Modulos/Lib/RemesasCliente_controller.dcp differ diff --git a/Source/Modulos/Lib/RemesasCliente_data.dcp b/Source/Modulos/Lib/RemesasCliente_data.dcp index 8a4b6354..546a4ae9 100644 Binary files a/Source/Modulos/Lib/RemesasCliente_data.dcp and b/Source/Modulos/Lib/RemesasCliente_data.dcp differ diff --git a/Source/Modulos/Lib/RemesasCliente_model.dcp b/Source/Modulos/Lib/RemesasCliente_model.dcp index ed9aabdf..52e3f26a 100644 Binary files a/Source/Modulos/Lib/RemesasCliente_model.dcp and b/Source/Modulos/Lib/RemesasCliente_model.dcp differ diff --git a/Source/Modulos/Lib/RemesasCliente_plugin.dcp b/Source/Modulos/Lib/RemesasCliente_plugin.dcp index 1a6ce578..729a4c80 100644 Binary files a/Source/Modulos/Lib/RemesasCliente_plugin.dcp and b/Source/Modulos/Lib/RemesasCliente_plugin.dcp differ diff --git a/Source/Modulos/Lib/RemesasCliente_view.dcp b/Source/Modulos/Lib/RemesasCliente_view.dcp index defc4a88..24a61b53 100644 Binary files a/Source/Modulos/Lib/RemesasCliente_view.dcp and b/Source/Modulos/Lib/RemesasCliente_view.dcp differ diff --git a/Source/Modulos/Lib/RemesasProveedor_controller.dcp b/Source/Modulos/Lib/RemesasProveedor_controller.dcp index 88cad93d..1684828c 100644 Binary files a/Source/Modulos/Lib/RemesasProveedor_controller.dcp and b/Source/Modulos/Lib/RemesasProveedor_controller.dcp differ diff --git a/Source/Modulos/Lib/RemesasProveedor_data.dcp b/Source/Modulos/Lib/RemesasProveedor_data.dcp index 7c30ad0c..b682eb89 100644 Binary files a/Source/Modulos/Lib/RemesasProveedor_data.dcp and b/Source/Modulos/Lib/RemesasProveedor_data.dcp differ diff --git a/Source/Modulos/Lib/RemesasProveedor_model.dcp b/Source/Modulos/Lib/RemesasProveedor_model.dcp index 23a07aa4..c056eabe 100644 Binary files a/Source/Modulos/Lib/RemesasProveedor_model.dcp and b/Source/Modulos/Lib/RemesasProveedor_model.dcp differ diff --git a/Source/Modulos/Lib/RemesasProveedor_plugin.dcp b/Source/Modulos/Lib/RemesasProveedor_plugin.dcp index b28d629e..8529697b 100644 Binary files a/Source/Modulos/Lib/RemesasProveedor_plugin.dcp and b/Source/Modulos/Lib/RemesasProveedor_plugin.dcp differ diff --git a/Source/Modulos/Lib/RemesasProveedor_view.dcp b/Source/Modulos/Lib/RemesasProveedor_view.dcp index 45ebae93..f350c0e5 100644 Binary files a/Source/Modulos/Lib/RemesasProveedor_view.dcp and b/Source/Modulos/Lib/RemesasProveedor_view.dcp differ diff --git a/Source/Modulos/Lib/TiendaWeb_controller.dcp b/Source/Modulos/Lib/TiendaWeb_controller.dcp index 71295a75..5659a4b8 100644 Binary files a/Source/Modulos/Lib/TiendaWeb_controller.dcp and b/Source/Modulos/Lib/TiendaWeb_controller.dcp differ diff --git a/Source/Modulos/Lib/TiendaWeb_data.dcp b/Source/Modulos/Lib/TiendaWeb_data.dcp index 192ffee3..14ea4477 100644 Binary files a/Source/Modulos/Lib/TiendaWeb_data.dcp and b/Source/Modulos/Lib/TiendaWeb_data.dcp differ diff --git a/Source/Modulos/Lib/TiendaWeb_model.dcp b/Source/Modulos/Lib/TiendaWeb_model.dcp index fadd6aa1..f01e8bc7 100644 Binary files a/Source/Modulos/Lib/TiendaWeb_model.dcp and b/Source/Modulos/Lib/TiendaWeb_model.dcp differ diff --git a/Source/Modulos/Lib/TiendaWeb_plugin.dcp b/Source/Modulos/Lib/TiendaWeb_plugin.dcp index 08334d93..b4e0c42e 100644 Binary files a/Source/Modulos/Lib/TiendaWeb_plugin.dcp and b/Source/Modulos/Lib/TiendaWeb_plugin.dcp differ diff --git a/Source/Modulos/Lib/TiendaWeb_view.dcp b/Source/Modulos/Lib/TiendaWeb_view.dcp index 085620a5..a76198b5 100644 Binary files a/Source/Modulos/Lib/TiendaWeb_view.dcp and b/Source/Modulos/Lib/TiendaWeb_view.dcp differ diff --git a/Source/Modulos/Lib/TiposIVA_controller.dcp b/Source/Modulos/Lib/TiposIVA_controller.dcp index 707c67b9..6bd2bfef 100644 Binary files a/Source/Modulos/Lib/TiposIVA_controller.dcp and b/Source/Modulos/Lib/TiposIVA_controller.dcp differ diff --git a/Source/Modulos/Lib/TiposIVA_data.dcp b/Source/Modulos/Lib/TiposIVA_data.dcp index dc59f4ec..baccce65 100644 Binary files a/Source/Modulos/Lib/TiposIVA_data.dcp and b/Source/Modulos/Lib/TiposIVA_data.dcp differ diff --git a/Source/Modulos/Lib/TiposIVA_model.dcp b/Source/Modulos/Lib/TiposIVA_model.dcp index fea2e5d1..9f1d0af2 100644 Binary files a/Source/Modulos/Lib/TiposIVA_model.dcp and b/Source/Modulos/Lib/TiposIVA_model.dcp differ diff --git a/Source/Modulos/Lib/TiposIVA_plugin.dcp b/Source/Modulos/Lib/TiposIVA_plugin.dcp index 604530af..571454d3 100644 Binary files a/Source/Modulos/Lib/TiposIVA_plugin.dcp and b/Source/Modulos/Lib/TiposIVA_plugin.dcp differ diff --git a/Source/Modulos/Lib/TiposIVA_view.dcp b/Source/Modulos/Lib/TiposIVA_view.dcp index 4282e9a4..61cbe766 100644 Binary files a/Source/Modulos/Lib/TiposIVA_view.dcp and b/Source/Modulos/Lib/TiposIVA_view.dcp differ diff --git a/Source/Modulos/Lib/Usuarios.dcp b/Source/Modulos/Lib/Usuarios.dcp index e60ebc2a..1d329ecf 100644 Binary files a/Source/Modulos/Lib/Usuarios.dcp and b/Source/Modulos/Lib/Usuarios.dcp differ diff --git a/Source/Modulos/Remesas de cliente/Views/uViewRecibosRemesaCliente.dfm b/Source/Modulos/Remesas de cliente/Views/uViewRecibosRemesaCliente.dfm index f7f649cb..a5de831f 100644 --- a/Source/Modulos/Remesas de cliente/Views/uViewRecibosRemesaCliente.dfm +++ b/Source/Modulos/Remesas de cliente/Views/uViewRecibosRemesaCliente.dfm @@ -9,6 +9,7 @@ inherited frViewRecibosRemesaCliente: TfrViewRecibosRemesaCliente ExplicitWidth = 549 ExplicitHeight = 351 inherited cxGridView: TcxGridDBTableView + OptionsCustomize.ColumnSorting = True OptionsData.Appending = False OptionsData.CancelOnExit = True OptionsData.Deleting = False @@ -137,6 +138,18 @@ inherited frViewRecibosRemesaCliente: TfrViewRecibosRemesaCliente inherited ToolBar1: TToolBar Width = 549 ExplicitWidth = 549 + inherited ToolButton1: TToolButton + ExplicitWidth = 62 + end + inherited ToolButton4: TToolButton + ExplicitWidth = 74 + end + inherited ToolButton2: TToolButton + ExplicitWidth = 67 + end + inherited ToolButton7: TToolButton + ExplicitWidth = 117 + end end inherited ActionListContenido: TActionList inherited actModificar: TAction diff --git a/Source/Modulos/Remesas de proveedor/Views/uViewRecibosRemesaProveedor.dfm b/Source/Modulos/Remesas de proveedor/Views/uViewRecibosRemesaProveedor.dfm index 2f31229f..82afb2eb 100644 --- a/Source/Modulos/Remesas de proveedor/Views/uViewRecibosRemesaProveedor.dfm +++ b/Source/Modulos/Remesas de proveedor/Views/uViewRecibosRemesaProveedor.dfm @@ -9,6 +9,7 @@ inherited frViewRecibosRemesaProveedor: TfrViewRecibosRemesaProveedor ExplicitWidth = 549 ExplicitHeight = 351 inherited cxGridView: TcxGridDBTableView + OptionsCustomize.ColumnSorting = True OptionsData.Appending = False OptionsData.CancelOnExit = True OptionsData.Deleting = False diff --git a/Source/Servicios/FactuGES.RODL b/Source/Servicios/FactuGES.RODL index f1f4f9ab..76e71588 100644 --- a/Source/Servicios/FactuGES.RODL +++ b/Source/Servicios/FactuGES.RODL @@ -568,6 +568,38 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas index f86249f3..5966151c 100644 --- a/Source/Servicios/FactuGES_Intf.pas +++ b/Source/Servicios/FactuGES_Intf.pas @@ -46,6 +46,7 @@ const IsrvReferencias_IID : TGUID = '{5EFE7CE2-3D74-4B4C-8D7A-0926A1D7A5BB}'; IsrvInformes_IID : TGUID = '{2E96455F-58CB-4DE2-9D3C-D590DAEA6DB4}'; IsrvInfVentasArticulo_IID : TGUID = '{31CD7B1B-CA98-4F92-A6D5-B3B02360613F}'; + IsrvInfMargenArticulo_IID : TGUID = '{EB5F3994-838B-41A7-B19A-D49C9B9495C2}'; { Event ID's } @@ -77,6 +78,7 @@ type IsrvReferencias = interface; IsrvInformes = interface; IsrvInfVentasArticulo = interface; + IsrvInfMargenArticulo = interface; TRdxEmpresasArray = class; @@ -670,6 +672,27 @@ type function GetSchema(const DatasetName: String; const Columns: String): Binary; end; + { IsrvInfMargenArticulo } + IsrvInfMargenArticulo = interface(IDARemoteService) + ['{EB5F3994-838B-41A7-B19A-D49C9B9495C2}'] + function GetData(const DatasetName: String; const MaxRecords: Integer; const Columns: String; const Params: TDADatasetParamArray): Binary; + function GetSchema(const DatasetName: String; const Columns: String): Binary; + end; + + { CosrvInfMargenArticulo } + CosrvInfMargenArticulo = class + class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvInfMargenArticulo; + end; + + { TsrvInfMargenArticulo_Proxy } + TsrvInfMargenArticulo_Proxy = class(TDARemoteService_Proxy, IsrvInfMargenArticulo) + protected + function __GetInterfaceName:string; override; + + function GetData(const DatasetName: String; const MaxRecords: Integer; const Columns: String; const Params: TDADatasetParamArray): Binary; + function GetSchema(const DatasetName: String; const Columns: String): Binary; + end; + implementation uses @@ -2186,6 +2209,72 @@ begin end end; +{ CosrvInfMargenArticulo } + +class function CosrvInfMargenArticulo.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvInfMargenArticulo; +begin + result := TsrvInfMargenArticulo_Proxy.Create(aMessage, aTransportChannel); +end; + +{ TsrvInfMargenArticulo_Proxy } + +function TsrvInfMargenArticulo_Proxy.__GetInterfaceName:string; +begin + result := 'srvInfMargenArticulo'; +end; + +function TsrvInfMargenArticulo_Proxy.GetData(const DatasetName: String; const MaxRecords: Integer; const Columns: String; const Params: TDADatasetParamArray): Binary; +var + __request, __response : TMemoryStream; +begin + result := nil; + __request := TMemoryStream.Create; + __response := TMemoryStream.Create; + + try + __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GetData'); + __Message.Write('DatasetName', TypeInfo(String), DatasetName, []); + __Message.Write('MaxRecords', TypeInfo(Integer), MaxRecords, []); + __Message.Write('Columns', TypeInfo(String), Columns, []); + __Message.Write('Params', TypeInfo(DataAbstract_Intf.TDADatasetParamArray), Params, []); + __Message.Finalize; + + __Message.WriteToStream(__request); + __TransportChannel.Dispatch(__request, __response); + __Message.ReadFromStream(__response); + + __Message.Read('Result', TypeInfo(Binary), result, []); + finally + __request.Free; + __response.Free; + end +end; + +function TsrvInfMargenArticulo_Proxy.GetSchema(const DatasetName: String; const Columns: String): Binary; +var + __request, __response : TMemoryStream; +begin + result := nil; + __request := TMemoryStream.Create; + __response := TMemoryStream.Create; + + try + __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GetSchema'); + __Message.Write('DatasetName', TypeInfo(String), DatasetName, []); + __Message.Write('Columns', TypeInfo(String), Columns, []); + __Message.Finalize; + + __Message.WriteToStream(__request); + __TransportChannel.Dispatch(__request, __response); + __Message.ReadFromStream(__response); + + __Message.Read('Result', TypeInfo(Binary), result, []); + finally + __request.Free; + __response.Free; + end +end; + initialization RegisterROClass(TRdxLoginInfo); RegisterROClass(TRdxEmpresasArray); @@ -2215,6 +2304,7 @@ initialization RegisterProxyClass(IsrvReferencias_IID, TsrvReferencias_Proxy); RegisterProxyClass(IsrvInformes_IID, TsrvInformes_Proxy); RegisterProxyClass(IsrvInfVentasArticulo_IID, TsrvInfVentasArticulo_Proxy); + RegisterProxyClass(IsrvInfMargenArticulo_IID, TsrvInfMargenArticulo_Proxy); finalization @@ -2246,5 +2336,6 @@ finalization UnregisterProxyClass(IsrvReferencias_IID); UnregisterProxyClass(IsrvInformes_IID); UnregisterProxyClass(IsrvInfVentasArticulo_IID); + UnregisterProxyClass(IsrvInfMargenArticulo_IID); end. diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas index e6191c34..d0610bdc 100644 --- a/Source/Servicios/FactuGES_Invk.pas +++ b/Source/Servicios/FactuGES_Invk.pas @@ -216,6 +216,14 @@ type procedure Invoke_GetSchema(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); end; + TsrvInfMargenArticulo_Invoker = class(TDARemoteService_Invoker) + private + protected + published + procedure Invoke_GetData(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); + procedure Invoke_GetSchema(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); + end; + implementation uses @@ -1240,4 +1248,70 @@ begin end; end; +{ TsrvInfMargenArticulo_Invoker } + +procedure TsrvInfMargenArticulo_Invoker.Invoke_GetData(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); +{ function GetData(const DatasetName: String; const MaxRecords: Integer; const Columns: String; const Params: TDADatasetParamArray): Binary; } +var + DatasetName: String; + MaxRecords: Integer; + Columns: String; + Params: DataAbstract_Intf.TDADatasetParamArray; + lResult: Binary; + __lObjectDisposer: TROObjectDisposer; +begin + Params := nil; + lResult := nil; + try + __Message.Read('DatasetName', TypeInfo(String), DatasetName, []); + __Message.Read('MaxRecords', TypeInfo(Integer), MaxRecords, []); + __Message.Read('Columns', TypeInfo(String), Columns, []); + __Message.Read('Params', TypeInfo(DataAbstract_Intf.TDADatasetParamArray), Params, []); + + lResult := (__Instance as IsrvInfMargenArticulo).GetData(DatasetName, MaxRecords, Columns, Params); + + __Message.Initialize(__Transport, 'FactuGES', 'srvInfMargenArticulo', 'GetDataResponse'); + __Message.Write('Result', TypeInfo(Binary), lResult, []); + __Message.Finalize; + + finally + __lObjectDisposer := TROObjectDisposer.Create(__Instance); + try + __lObjectDisposer.Add(Params); + __lObjectDisposer.Add(lResult); + finally + __lObjectDisposer.Free(); + end; + end; +end; + +procedure TsrvInfMargenArticulo_Invoker.Invoke_GetSchema(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); +{ function GetSchema(const DatasetName: String; const Columns: String): Binary; } +var + DatasetName: String; + Columns: String; + lResult: Binary; + __lObjectDisposer: TROObjectDisposer; +begin + lResult := nil; + try + __Message.Read('DatasetName', TypeInfo(String), DatasetName, []); + __Message.Read('Columns', TypeInfo(String), Columns, []); + + lResult := (__Instance as IsrvInfMargenArticulo).GetSchema(DatasetName, Columns); + + __Message.Initialize(__Transport, 'FactuGES', 'srvInfMargenArticulo', 'GetSchemaResponse'); + __Message.Write('Result', TypeInfo(Binary), lResult, []); + __Message.Finalize; + + finally + __lObjectDisposer := TROObjectDisposer.Create(__Instance); + try + __lObjectDisposer.Add(lResult); + finally + __lObjectDisposer.Free(); + end; + end; +end; + end. diff --git a/Source/Servicios/RODLFILE.res b/Source/Servicios/RODLFILE.res index 5806fd55..9d877ec9 100644 Binary files a/Source/Servicios/RODLFILE.res and b/Source/Servicios/RODLFILE.res differ diff --git a/Source/Servidor/FactuGES_Server.bdsproj b/Source/Servidor/FactuGES_Server.bdsproj index 89ad71d5..8c1382ea 100644 --- a/Source/Servidor/FactuGES_Server.bdsproj +++ b/Source/Servidor/FactuGES_Server.bdsproj @@ -153,8 +153,8 @@ True False 2 - 1 - 9 + 2 + 0 0 False False @@ -167,15 +167,15 @@ - 2.1.9.0 + 2.2.0.0 - 2.1.8.0 + 2.1.9.0 - viernes, 27 de julio de 2007 19:57 + lunes, 30 de julio de 2007 20:55 RemObjects Pascal Script - RemObjects SDK 3.0 Integration diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index 124d1639..d0de0e0d 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -126,7 +126,8 @@ uses schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas', schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas', schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas', - schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas'; + schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas', + srvInfMargenArticulo_Impl in '..\Modulos\Informe margen por articulo\Servidor\srvInfMargenArticulo_Impl.pas' {srvInfMargenArticulo: TDARemoteService}; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index e365d3d8..188004c2 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -1,7 +1,7 @@ MAINICON ICON "E:\Codigo (Luis León)\Source\Iconos\Servidor.ico" 1 VERSIONINFO -FILEVERSION 2,1,9,0 -PRODUCTVERSION 2,1,9,0 +FILEVERSION 2,2,0,0 +PRODUCTVERSION 2,2,0,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -12,9 +12,9 @@ BEGIN BEGIN BLOCK "0C0904E4" BEGIN - VALUE "FileVersion", "2.1.9.0\0" - VALUE "ProductVersion", "2.1.9.0\0" - VALUE "CompileDate", "lunes, 30 de julio de 2007 20:55\0" + VALUE "FileVersion", "2.2.0.0\0" + VALUE "ProductVersion", "2.2.0.0\0" + VALUE "CompileDate", "miércoles, 01 de agosto de 2007 19:23\0" END END BLOCK "VarFileInfo" diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index ab37dfb9..51f36219 100644 Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ