From d075acb0e83c0cc3d7b3aece089b5b77a2a3679a Mon Sep 17 00:00:00 2001 From: roberto Date: Thu, 6 Mar 2008 16:43:40 +0000 Subject: [PATCH] Subida con informes a medias git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@167 f4e31baf-9722-1c47-927c-6f952f962d4b --- Database/scripts/factuges.sql | 2292 +++++++++-------- Source/Base/Base.dproj | 82 +- Source/Informes/InfFacturaCliente.fr3 | 90 +- .../Contabilidad/Data/Contabilidad_data.dproj | 28 +- .../Contabilidad/Data/Contabilidad_data.res | Bin 384 -> 4748 bytes .../Data/uDataModuleContabilidad.dfm | 5 + .../Model/schContabilidadClient_Intf.pas | 405 ++- .../Model/schContabilidadServer_Intf.pas | 391 ++- .../Servidor/srvContabilidad_Impl.dfm | 9 + .../Reports/uRptFacturasCliente_Server.dfm | 172 +- .../Views/uViewReciboCliente.dfm | 103 +- .../Views/uViewReciboCliente.pas | 12 +- .../Views/uViewRecibosCliente.dfm | 21 +- .../Views/uViewRecibosCliente.pas | 4 +- Source/Servidor/FactuGES_Server.dpr | 6 +- Source/Servidor/FactuGES_Server.dproj | 12 - 16 files changed, 2197 insertions(+), 1435 deletions(-) diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index f2bc3a2e..1adec554 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -1,16 +1,18 @@ /******************************************************************************/ -/**** Generated by IBExpert 2007.05.03 26/12/2007 17:26:45 ****/ +/**** Generated by IBExpert 2007.05.03 06/03/2008 17:42:38 ****/ /******************************************************************************/ SET SQL DIALECT 3; SET NAMES ISO8859_1; -CREATE DATABASE 'FACTUGES.FDB' +CREATE DATABASE 'C:\Codigo Acana\Output\Debug\Database\FACTUGES.FDB' +USER 'SYSDBA' PASSWORD 'masterkey' PAGE_SIZE 4096 DEFAULT CHARACTER SET ISO8859_1; + /******************************************************************************/ /**** User Defined Functions ****/ /******************************************************************************/ @@ -81,17 +83,14 @@ VARCHAR(30); /**** Generators ****/ /******************************************************************************/ -CREATE GENERATOR GEN_TIPOS_VENTA_ID; -SET GENERATOR GEN_TIPOS_VENTA_ID TO 8; - CREATE GENERATOR GEN_AGENTES_COMISIONES_ID; SET GENERATOR GEN_AGENTES_COMISIONES_ID TO 1; CREATE GENERATOR GEN_ALBARANES_CLI_DETALLES_ID; -SET GENERATOR GEN_ALBARANES_CLI_DETALLES_ID TO 1; +SET GENERATOR GEN_ALBARANES_CLI_DETALLES_ID TO 19; CREATE GENERATOR GEN_ALBARANES_CLI_ID; -SET GENERATOR GEN_ALBARANES_CLI_ID TO 1; +SET GENERATOR GEN_ALBARANES_CLI_ID TO 16; CREATE GENERATOR GEN_ALBARANES_PRO_DETALLES_ID; SET GENERATOR GEN_ALBARANES_PRO_DETALLES_ID TO 1; @@ -109,14 +108,23 @@ CREATE GENERATOR GEN_BALANCES_ID; SET GENERATOR GEN_BALANCES_ID TO 1; CREATE GENERATOR GEN_CATEGORIAS_ID; -SET GENERATOR GEN_CATEGORIAS_ID TO 1; +SET GENERATOR GEN_CATEGORIAS_ID TO 4; CREATE GENERATOR GEN_CLIENTES_DTOS_PROV_ID; SET GENERATOR GEN_CLIENTES_DTOS_PROV_ID TO 1; +CREATE GENERATOR GEN_CLIENTES_GRUPOS_ID; +SET GENERATOR GEN_CLIENTES_GRUPOS_ID TO 1; + +CREATE GENERATOR GEN_CLIENTES_PROCEDENCIAS_ID; +SET GENERATOR GEN_CLIENTES_PROCEDENCIAS_ID TO 1; + CREATE GENERATOR GEN_COMISIONES_LIQUID_ID; SET GENERATOR GEN_COMISIONES_LIQUID_ID TO 1; +CREATE GENERATOR GEN_CONFIGURACION_ID; +SET GENERATOR GEN_CONFIGURACION_ID TO 1; + CREATE GENERATOR GEN_CONTACTOS_DATOS_BANCO_ID; SET GENERATOR GEN_CONTACTOS_DATOS_BANCO_ID TO 1; @@ -124,67 +132,79 @@ CREATE GENERATOR GEN_CONTACTOS_DIR_ID; SET GENERATOR GEN_CONTACTOS_DIR_ID TO 1; CREATE GENERATOR GEN_CONTACTOS_ID; -SET GENERATOR GEN_CONTACTOS_ID TO 1; +SET GENERATOR GEN_CONTACTOS_ID TO 72; CREATE GENERATOR GEN_CONT_APUNTES_ID; -SET GENERATOR GEN_CONT_APUNTES_ID TO 1; +SET GENERATOR GEN_CONT_APUNTES_ID TO 226; CREATE GENERATOR GEN_CONT_ASIENTOS_ID; -SET GENERATOR GEN_CONT_ASIENTOS_ID TO 1; +SET GENERATOR GEN_CONT_ASIENTOS_ID TO 80; CREATE GENERATOR GEN_CONT_BALANCES_ID; -SET GENERATOR GEN_CONT_BALANCES_ID TO 1; +SET GENERATOR GEN_CONT_BALANCES_ID TO 220; CREATE GENERATOR GEN_CONT_CUENTAS_ESP_ID; -SET GENERATOR GEN_CONT_CUENTAS_ESP_ID TO 1; +SET GENERATOR GEN_CONT_CUENTAS_ESP_ID TO 21; CREATE GENERATOR GEN_CONT_CUENTAS_ID; -SET GENERATOR GEN_CONT_CUENTAS_ID TO 1; +SET GENERATOR GEN_CONT_CUENTAS_ID TO 1226; CREATE GENERATOR GEN_CONT_EJERCICIOS_ID; -SET GENERATOR GEN_CONT_EJERCICIOS_ID TO 1; +SET GENERATOR GEN_CONT_EJERCICIOS_ID TO 2; CREATE GENERATOR GEN_CONT_EPIGRAFES_ID; -SET GENERATOR GEN_CONT_EPIGRAFES_ID TO 1; +SET GENERATOR GEN_CONT_EPIGRAFES_ID TO 143; CREATE GENERATOR GEN_CONT_SUBCUENTAS_ID; -SET GENERATOR GEN_CONT_SUBCUENTAS_ID TO 1; +SET GENERATOR GEN_CONT_SUBCUENTAS_ID TO 2478; + +CREATE GENERATOR GEN_EMPLEADOS_GRUPOS_ID; +SET GENERATOR GEN_EMPLEADOS_GRUPOS_ID TO 1; + +CREATE GENERATOR GEN_EMPRESAS_CONTACTOS_ID; +SET GENERATOR GEN_EMPRESAS_CONTACTOS_ID TO 72; CREATE GENERATOR GEN_EMPRESAS_DATOS_BANCO_ID; -SET GENERATOR GEN_EMPRESAS_DATOS_BANCO_ID TO 1; +SET GENERATOR GEN_EMPRESAS_DATOS_BANCO_ID TO 2; CREATE GENERATOR GEN_EMPRESAS_ID; SET GENERATOR GEN_EMPRESAS_ID TO 1; CREATE GENERATOR GEN_EMPRESAS_TIENDAS_ID; -SET GENERATOR GEN_EMPRESAS_TIENDAS_ID TO 1; +SET GENERATOR GEN_EMPRESAS_TIENDAS_ID TO 3; + +CREATE GENERATOR GEN_EMPRESAS_USUARIOS_ID; +SET GENERATOR GEN_EMPRESAS_USUARIOS_ID TO 1; CREATE GENERATOR GEN_FACTURAS_CLIENTE_ID; -SET GENERATOR GEN_FACTURAS_CLIENTE_ID TO 1; +SET GENERATOR GEN_FACTURAS_CLIENTE_ID TO 42; CREATE GENERATOR GEN_FACTURAS_PROVEEDOR_ID; SET GENERATOR GEN_FACTURAS_PROVEEDOR_ID TO 1; CREATE GENERATOR GEN_FACTURA_CLIENTE_DETALLES_ID; -SET GENERATOR GEN_FACTURA_CLIENTE_DETALLES_ID TO 1; +SET GENERATOR GEN_FACTURA_CLIENTE_DETALLES_ID TO 127; CREATE GENERATOR GEN_FACTURA_PROV_DETALLES_ID; SET GENERATOR GEN_FACTURA_PROV_DETALLES_ID TO 1; +CREATE GENERATOR GEN_FAMILIAS_ID; +SET GENERATOR GEN_FAMILIAS_ID TO 1; + CREATE GENERATOR GEN_FORMAS_PAGO_ID; -SET GENERATOR GEN_FORMAS_PAGO_ID TO 1; +SET GENERATOR GEN_FORMAS_PAGO_ID TO 4; CREATE GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID; -SET GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID TO 1; +SET GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID TO 6; CREATE GENERATOR GEN_INFORMES_ID; -SET GENERATOR GEN_INFORMES_ID TO 1; +SET GENERATOR GEN_INFORMES_ID TO 11; CREATE GENERATOR GEN_MOVIMIENTOS_ID; SET GENERATOR GEN_MOVIMIENTOS_ID TO 1; CREATE GENERATOR GEN_PAGOS_CLIENTE_ID; -SET GENERATOR GEN_PAGOS_CLIENTE_ID TO 1; +SET GENERATOR GEN_PAGOS_CLIENTE_ID TO 35; CREATE GENERATOR GEN_PAGOS_PROVEEDOR_ID; SET GENERATOR GEN_PAGOS_PROVEEDOR_ID TO 1; @@ -201,20 +221,29 @@ SET GENERATOR GEN_PEDIDOS_PROV_DETALLES_ID TO 1; CREATE GENERATOR GEN_PEDIDOS_PROV_ID; SET GENERATOR GEN_PEDIDOS_PROV_ID TO 1; +CREATE GENERATOR GEN_PERMISOSEX_ID; +SET GENERATOR GEN_PERMISOSEX_ID TO 1; + +CREATE GENERATOR GEN_PERMISOS_ID; +SET GENERATOR GEN_PERMISOS_ID TO 1; + CREATE GENERATOR GEN_PRESUPUESTOS_CLI_DETALLE_ID; -SET GENERATOR GEN_PRESUPUESTOS_CLI_DETALLE_ID TO 1; +SET GENERATOR GEN_PRESUPUESTOS_CLI_DETALLE_ID TO 3; CREATE GENERATOR GEN_PRESUPUESTOS_CLI_ID; -SET GENERATOR GEN_PRESUPUESTOS_CLI_ID TO 1; +SET GENERATOR GEN_PRESUPUESTOS_CLI_ID TO 2; + +CREATE GENERATOR GEN_PROVEEDORES_GRUPOS_ID; +SET GENERATOR GEN_PROVEEDORES_GRUPOS_ID TO 1; CREATE GENERATOR GEN_RECIBOS_CLIENTE_ID; -SET GENERATOR GEN_RECIBOS_CLIENTE_ID TO 1; +SET GENERATOR GEN_RECIBOS_CLIENTE_ID TO 33; CREATE GENERATOR GEN_RECIBOS_PROVEEDOR_ID; SET GENERATOR GEN_RECIBOS_PROVEEDOR_ID TO 1; CREATE GENERATOR GEN_REMESAS_CLIENTE_ID; -SET GENERATOR GEN_REMESAS_CLIENTE_ID TO 1; +SET GENERATOR GEN_REMESAS_CLIENTE_ID TO 5; CREATE GENERATOR GEN_REMESAS_PROVEEDOR_ID; SET GENERATOR GEN_REMESAS_PROVEEDOR_ID TO 1; @@ -223,43 +252,18 @@ CREATE GENERATOR GEN_TIENDA_WEB_ID; SET GENERATOR GEN_TIENDA_WEB_ID TO 1; CREATE GENERATOR GEN_TIPOS_IVA_ID; -SET GENERATOR GEN_TIPOS_IVA_ID TO 1; +SET GENERATOR GEN_TIPOS_IVA_ID TO 5; + +CREATE GENERATOR GEN_TIPOS_VENTA_ID; +SET GENERATOR GEN_TIPOS_VENTA_ID TO 8; + +CREATE GENERATOR GEN_UNIDADES_MEDIDA_ID; +SET GENERATOR GEN_UNIDADES_MEDIDA_ID TO 11; CREATE GENERATOR GEN_USUARIOS_ID; SET GENERATOR GEN_USUARIOS_ID TO 1; -CREATE GENERATOR GEN_UNIDADES_MEDIDA_ID; -SET GENERATOR GEN_UNIDADES_MEDIDA_ID TO 1; -CREATE GENERATOR GEN_CLIENTES_GRUPOS_ID; -SET GENERATOR GEN_CLIENTES_GRUPOS_ID TO 1; - -CREATE GENERATOR GEN_PROVEEDORES_GRUPOS_ID; -SET GENERATOR GEN_PROVEEDORES_GRUPOS_ID TO 1; - -CREATE GENERATOR GEN_CLIENTES_PROCEDENCIAS_ID; -SET GENERATOR GEN_CLIENTES_PROCEDENCIAS_ID TO 1; - -CREATE GENERATOR GEN_EMPLEADOS_GRUPOS_ID; -SET GENERATOR GEN_EMPLEADOS_GRUPOS_ID TO 1; - -CREATE GENERATOR GEN_CONFIGURACION_ID; -SET GENERATOR GEN_CONFIGURACION_ID TO 1; - -CREATE GENERATOR GEN_FAMILIAS_ID; -SET GENERATOR GEN_FAMILIAS_ID TO 1; - -CREATE GENERATOR GEN_EMPRESAS_CONTACTOS_ID; -SET GENERATOR GEN_EMPRESAS_CONTACTOS_ID TO 1; - -CREATE GENERATOR GEN_EMPRESAS_USUARIOS_ID; -SET GENERATOR GEN_EMPRESAS_USUARIOS_ID TO 1; - -CREATE GENERATOR GEN_PERMISOS_ID; -SET GENERATOR GEN_PERMISOS_ID TO 1; - -CREATE GENERATOR GEN_PERMISOSEX_ID; -SET GENERATOR GEN_PERMISOSEX_ID TO 1; SET TERM ^ ; @@ -288,7 +292,8 @@ END^ CREATE PROCEDURE PROC_NEW_ASIENTO_FACTURA_CLI ( - IDFACTURA INTEGER) + IDFACTURA INTEGER, + ID_SUBCUENTA_VENTA INTEGER) AS BEGIN EXIT; @@ -384,11 +389,6 @@ SET TERM ; ^ /**** Tables ****/ /******************************************************************************/ -CREATE TABLE TIPOS_VENTA ( - ID TIPO_ID NOT NULL /* TIPO_ID = INTEGER */, - DESCRIPCION VARCHAR(255) COLLATE ES_ES, - CODIGO_CONTABLE VARCHAR(2) NOT NULL -); CREATE TABLE AGENTES_COMISIONES ( @@ -398,7 +398,6 @@ CREATE TABLE AGENTES_COMISIONES ( COMISION TIPO_PORCENTAJE DEFAULT 0 ); - CREATE TABLE ALBARANES_CLIENTE ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID, @@ -437,7 +436,6 @@ CREATE TABLE ALBARANES_CLIENTE ( ID_TIENDA TIPO_ID ); - CREATE TABLE ALBARANES_CLIENTE_DETALLES ( ID TIPO_ID NOT NULL, ID_ALBARAN TIPO_ID NOT NULL, @@ -455,7 +453,6 @@ CREATE TABLE ALBARANES_CLIENTE_DETALLES ( FECHA_MODIFICACION TIMESTAMP ); - CREATE TABLE ALBARANES_PROVEEDOR ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID, @@ -463,7 +460,7 @@ CREATE TABLE ALBARANES_PROVEEDOR ( FECHA_ALBARAN DATE, ID_PEDIDO TIPO_ID, ID_FACTURA TIPO_ID, - TIPO VARCHAR(1), + TIPO VARCHAR(1), REFERENCIA VARCHAR(255), CALLE VARCHAR(255), CODIGO_POSTAL VARCHAR(10), @@ -492,7 +489,6 @@ CREATE TABLE ALBARANES_PROVEEDOR ( ID_TIENDA TIPO_ID ); - CREATE TABLE ALBARANES_PROVEEDOR_DETALLES ( ID TIPO_ID NOT NULL, ID_ALBARAN TIPO_ID NOT NULL, @@ -510,7 +506,6 @@ CREATE TABLE ALBARANES_PROVEEDOR_DETALLES ( FECHA_MODIFICACION TIMESTAMP ); - CREATE TABLE ALMACENES ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID NOT NULL, @@ -529,7 +524,6 @@ CREATE TABLE ALMACENES ( USUARIO TIPO_USUARIO ); - CREATE TABLE ARTICULOS ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID, @@ -551,13 +545,11 @@ CREATE TABLE ARTICULOS ( ELIMINADO TIPO_BOOLEANO ); - CREATE TABLE CATEGORIAS ( ID TIPO_ID NOT NULL, CATEGORIA VARCHAR(255) NOT NULL ); - CREATE TABLE CLIENTES_DATOS ( ID_CLIENTE TIPO_ID NOT NULL, ID_AGENTE TIPO_ID, @@ -577,7 +569,6 @@ CREATE TABLE CLIENTES_DATOS ( PROCEDENCIA_CLIENTE VARCHAR(255) COLLATE ES_ES ); - CREATE TABLE CLIENTES_DTOS_PROVEEDORES ( ID TIPO_ID NOT NULL, ID_CLIENTE TIPO_ID DEFAULT 0 NOT NULL, @@ -585,19 +576,16 @@ CREATE TABLE CLIENTES_DTOS_PROVEEDORES ( DESCUENTO TIPO_PORCENTAJE DEFAULT 0 ); - CREATE TABLE CLIENTES_GRUPOS ( - ID TIPO_ID NOT NULL, - DESCRIPCION VARCHAR(255) + ID TIPO_ID NOT NULL, + DESCRIPCION VARCHAR(255) ); - CREATE TABLE CLIENTES_PROCEDENCIAS ( - ID TIPO_ID NOT NULL, - DESCRIPCION VARCHAR(255) + ID TIPO_ID NOT NULL, + DESCRIPCION VARCHAR(255) ); - CREATE TABLE COMISIONES_LIQUIDADAS ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID, @@ -611,15 +599,13 @@ CREATE TABLE COMISIONES_LIQUIDADAS ( USUARIO TIPO_USUARIO ); - CREATE TABLE CONFIGURACION ( - ID TIPO_ID NOT NULL, + ID TIPO_ID NOT NULL, CODIGO VARCHAR(50) NOT NULL, VALOR VARCHAR(255) NOT NULL, ID_EMPRESA TIPO_ID ); - CREATE TABLE CONT_APUNTES ( ID TIPO_ID NOT NULL, ID_ASIENTO TIPO_ID, @@ -641,7 +627,6 @@ CREATE TABLE CONT_ASIENTOS ( TIPO VARCHAR(1) ); - CREATE TABLE CONT_BALANCES ( ID TIPO_ID NOT NULL, REF_BALANCE VARCHAR(255), @@ -654,7 +639,6 @@ CREATE TABLE CONT_BALANCES ( DESCRIPCION3 VARCHAR(255) ); - CREATE TABLE CONT_CUENTAS ( ID TIPO_ID NOT NULL, REF_CUENTA VARCHAR(10), @@ -665,14 +649,12 @@ CREATE TABLE CONT_CUENTAS ( ID_CUENTA_ESPECIAL TIPO_ID ); - CREATE TABLE CONT_CUENTAS_ESPECIALES ( ID TIPO_ID NOT NULL, REFERENCIA VARCHAR(6), DESCRIPCION VARCHAR(255) ); - CREATE TABLE CONT_EJERCICIOS ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID, @@ -687,7 +669,6 @@ CREATE TABLE CONT_EJERCICIOS ( ACTIVO SMALLINT ); - CREATE TABLE CONT_EPIGRAFES ( ID TIPO_ID NOT NULL, REF_EPIGRAFE VARCHAR(6), @@ -696,7 +677,6 @@ CREATE TABLE CONT_EPIGRAFES ( ID_EJERCICIO TIPO_ID ); - CREATE TABLE CONT_SUBCUENTAS ( ID TIPO_ID NOT NULL, REF_SUBCUENTA VARCHAR(15), @@ -706,7 +686,6 @@ CREATE TABLE CONT_SUBCUENTAS ( ID_CONTACTO TIPO_ID ); - CREATE TABLE CONTACTOS ( ID TIPO_ID NOT NULL, NIF_CIF VARCHAR(15), @@ -732,13 +711,11 @@ CREATE TABLE CONTACTOS ( ID_TIENDA TIPO_ID ); - CREATE TABLE CONTACTOS_CATEGORIAS ( ID_CONTACTO TIPO_ID NOT NULL, ID_CATEGORIA TIPO_ID NOT NULL ); - CREATE TABLE CONTACTOS_DATOS_BANCO ( ID TIPO_ID NOT NULL, ID_CONTACTO TIPO_ID NOT NULL, @@ -751,7 +728,6 @@ CREATE TABLE CONTACTOS_DATOS_BANCO ( FECHA_MODIFICACION TIMESTAMP ); - CREATE TABLE CONTACTOS_DIRECCIONES ( ID TIPO_ID NOT NULL, ID_CONTACTO TIPO_ID NOT NULL, @@ -771,7 +747,6 @@ CREATE TABLE CONTACTOS_DIRECCIONES ( FECHA_MODIFICACION TIMESTAMP ); - CREATE TABLE EMPLEADOS_DATOS ( ID_EMPLEADO TIPO_ID NOT NULL, FECHA_NACIMIENTO DATE, @@ -784,13 +759,11 @@ CREATE TABLE EMPLEADOS_DATOS ( ID_USUARIO TIPO_ID ); - CREATE TABLE EMPLEADOS_GRUPOS ( - ID TIPO_ID NOT NULL, - DESCRIPCION VARCHAR(255) + ID TIPO_ID NOT NULL, + DESCRIPCION VARCHAR(255) ); - CREATE TABLE EMPRESAS ( ID TIPO_ID NOT NULL, NIF_CIF VARCHAR(15), @@ -817,14 +790,12 @@ CREATE TABLE EMPRESAS ( IVA TIPO_PORCENTAJE ); - CREATE TABLE EMPRESAS_CONTACTOS ( - ID TIPO_ID NOT NULL, - ID_EMPRESA TIPO_ID NOT NULL, - ID_CONTACTO TIPO_ID NOT NULL + ID TIPO_ID NOT NULL, + ID_EMPRESA TIPO_ID NOT NULL, + ID_CONTACTO TIPO_ID NOT NULL ); - CREATE TABLE EMPRESAS_DATOS_BANCO ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID NOT NULL, @@ -837,10 +808,9 @@ CREATE TABLE EMPRESAS_DATOS_BANCO ( SUFIJO_N58 VARCHAR(3) ); - CREATE TABLE EMPRESAS_TIENDAS ( - ID TIPO_ID NOT NULL /* TIPO_ID = INTEGER */, - ID_EMPRESA TIPO_ID NOT NULL /* TIPO_ID = INTEGER */, + ID TIPO_ID NOT NULL, + ID_EMPRESA TIPO_ID NOT NULL, CALLE VARCHAR(255), POBLACION VARCHAR(255), PROVINCIA VARCHAR(255), @@ -857,14 +827,12 @@ CREATE TABLE EMPRESAS_TIENDAS ( CODIGO_CONTABLE VARCHAR(2) COLLATE ES_ES ); - CREATE TABLE EMPRESAS_USUARIOS ( - ID TIPO_ID NOT NULL, + ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID NOT NULL, ID_USUARIO TIPO_ID NOT NULL ); - CREATE TABLE FACTURAS_CLIENTE ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID, @@ -900,7 +868,6 @@ CREATE TABLE FACTURAS_CLIENTE ( ID_TIPOVENTA TIPO_ID ); - CREATE TABLE FACTURAS_CLIENTE_DETALLES ( ID TIPO_ID NOT NULL, ID_FACTURA TIPO_ID NOT NULL, @@ -918,7 +885,6 @@ CREATE TABLE FACTURAS_CLIENTE_DETALLES ( FECHA_MODIFICACION TIMESTAMP ); - CREATE TABLE FACTURAS_PROVEEDOR ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID, @@ -953,7 +919,6 @@ CREATE TABLE FACTURAS_PROVEEDOR ( ID_TIENDA TIPO_ID ); - CREATE TABLE FACTURAS_PROVEEDOR_DETALLES ( ID TIPO_ID NOT NULL, ID_FACTURA TIPO_ID NOT NULL, @@ -971,13 +936,11 @@ CREATE TABLE FACTURAS_PROVEEDOR_DETALLES ( FECHA_MODIFICACION TIMESTAMP ); - CREATE TABLE FAMILIAS ( ID TIPO_ID NOT NULL, DESCRIPCION VARCHAR(255) ); - CREATE TABLE FORMAS_PAGO ( ID TIPO_ID NOT NULL, REFERENCIA VARCHAR(255), @@ -989,7 +952,6 @@ CREATE TABLE FORMAS_PAGO ( CUENTA VARCHAR(15) ); - CREATE TABLE FORMAS_PAGO_PLAZOS ( ID TIPO_ID NOT NULL, ID_FORMA_PAGO TIPO_ID NOT NULL, @@ -997,7 +959,6 @@ CREATE TABLE FORMAS_PAGO_PLAZOS ( PORCENTAJE TIPO_PORCENTAJE ); - CREATE TABLE INFORMES ( ID SMALLINT NOT NULL, ID_EMPRESA TIPO_ID, @@ -1011,7 +972,6 @@ CREATE TABLE INFORMES ( VISTA BLOB SUB_TYPE 2 SEGMENT SIZE 4096 ); - CREATE TABLE MOVIMIENTOS ( ID TIPO_ID NOT NULL, ID_ALMACEN TIPO_ID, @@ -1022,7 +982,6 @@ CREATE TABLE MOVIMIENTOS ( CAUSA TIPO_CONCEPTO ); - CREATE TABLE PAGOS_CLIENTE ( ID TIPO_ID NOT NULL, ID_RECIBO TIPO_ID, @@ -1039,7 +998,6 @@ CREATE TABLE PAGOS_CLIENTE ( IGNORAR_CONTABILIDAD SMALLINT ); - CREATE TABLE PAGOS_PROVEEDOR ( ID TIPO_ID NOT NULL, ID_RECIBO TIPO_ID, @@ -1056,7 +1014,6 @@ CREATE TABLE PAGOS_PROVEEDOR ( IGNORAR_CONTABILIDAD SMALLINT ); - CREATE TABLE PEDIDOS_CLIENTE ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID, @@ -1090,7 +1047,6 @@ CREATE TABLE PEDIDOS_CLIENTE ( ID_TIENDA TIPO_ID ); - CREATE TABLE PEDIDOS_CLIENTE_DETALLES ( ID TIPO_ID NOT NULL, ID_PEDIDO TIPO_ID NOT NULL, @@ -1108,7 +1064,6 @@ CREATE TABLE PEDIDOS_CLIENTE_DETALLES ( FECHA_MODIFICACION TIMESTAMP ); - CREATE TABLE PEDIDOS_PROVEEDOR ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID, @@ -1144,7 +1099,6 @@ CREATE TABLE PEDIDOS_PROVEEDOR ( ID_TIENDA TIPO_ID ); - CREATE TABLE PEDIDOS_PROVEEDOR_DETALLES ( ID TIPO_ID NOT NULL, ID_PEDIDO TIPO_ID NOT NULL, @@ -1162,16 +1116,14 @@ CREATE TABLE PEDIDOS_PROVEEDOR_DETALLES ( FECHA_MODIFICACION TIMESTAMP ); - CREATE TABLE PERMISOS ( - ID TIPO_ID NOT NULL, + ID TIPO_ID NOT NULL, ID_USUARIO TIPO_ID, MODULO VARCHAR(50), NOMBRECOMP VARCHAR(50), CHECKSUM VARCHAR(250) ); - CREATE TABLE PERMISOSEX ( ID TIPO_ID NOT NULL, ID_USUARIO TIPO_ID, @@ -1181,7 +1133,6 @@ CREATE TABLE PERMISOSEX ( CHECKSUM VARCHAR(250) ); - CREATE TABLE PRESUPUESTOS_CLIENTE ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID, @@ -1213,7 +1164,6 @@ CREATE TABLE PRESUPUESTOS_CLIENTE ( ID_VENDEDOR TIPO_ID ); - CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES ( ID TIPO_ID NOT NULL, ID_PRESUPUESTO TIPO_ID NOT NULL, @@ -1231,7 +1181,6 @@ CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES ( FECHA_MODIFICACION TIMESTAMP ); - CREATE TABLE PROVEEDORES_DATOS ( ID_PROVEEDOR TIPO_ID NOT NULL, DESCUENTO TIPO_PORCENTAJE, @@ -1247,34 +1196,31 @@ CREATE TABLE PROVEEDORES_DATOS ( IGNORAR_CONTABILIDAD TIPO_ID ); - CREATE TABLE PROVEEDORES_GRUPOS ( - ID TIPO_ID NOT NULL, - DESCRIPCION VARCHAR(255) + ID TIPO_ID NOT NULL, + DESCRIPCION VARCHAR(255) ); - CREATE TABLE RECIBOS_CLIENTE ( - ID TIPO_ID NOT NULL /* TIPO_ID = INTEGER */, - ID_EMPRESA TIPO_ID /* TIPO_ID = INTEGER */, - ID_CLIENTE TIPO_ID /* TIPO_ID = INTEGER */, - ID_FACTURA TIPO_ID /* TIPO_ID = INTEGER */, + ID TIPO_ID NOT NULL, + ID_EMPRESA TIPO_ID, + ID_CLIENTE TIPO_ID, + ID_FACTURA TIPO_ID, REFERENCIA VARCHAR(255), FECHA_EMISION DATE, FECHA_VENCIMIENTO DATE, DESCRIPCION VARCHAR(255), OBSERVACIONES VARCHAR(255), - IMPORTE TIPO_IMPORTE /* TIPO_IMPORTE = NUMERIC(11,2) */, - OTROS_GASTOS TIPO_IMPORTE /* TIPO_IMPORTE = NUMERIC(11,2) */, + IMPORTE TIPO_IMPORTE, + OTROS_GASTOS TIPO_IMPORTE, FECHA_ALTA DATE, FECHA_MODIFICACION DATE, - USUARIO TIPO_USUARIO /* TIPO_USUARIO = VARCHAR(30) */, - ID_REMESA TIPO_ID /* TIPO_ID = INTEGER */, + USUARIO TIPO_USUARIO, + ID_REMESA TIPO_ID, ID_RECIBO_COMPENSADO INTEGER, - ID_TIENDA TIPO_ID /* TIPO_ID = INTEGER */ + ID_TIENDA TIPO_ID ); - CREATE TABLE RECIBOS_PROVEEDOR ( ID TIPO_ID NOT NULL, ID_FACTURA TIPO_ID, @@ -1293,7 +1239,6 @@ CREATE TABLE RECIBOS_PROVEEDOR ( ID_RECIBO_COMPENSADO INTEGER ); - CREATE TABLE REFERENCIAS ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID, @@ -1303,7 +1248,6 @@ CREATE TABLE REFERENCIAS ( DESCRIPCION VARCHAR(255) COLLATE ES_ES ); - CREATE TABLE REMESAS_CLIENTE ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID, @@ -1318,7 +1262,6 @@ CREATE TABLE REMESAS_CLIENTE ( TIPO VARCHAR(40) ); - CREATE TABLE REMESAS_PROVEEDOR ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID, @@ -1333,7 +1276,6 @@ CREATE TABLE REMESAS_PROVEEDOR ( TIPO VARCHAR(40) ); - CREATE TABLE TIENDA_WEB ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID NOT NULL, @@ -1346,7 +1288,6 @@ CREATE TABLE TIENDA_WEB ( BDPASS VARCHAR(255) ); - CREATE TABLE TIPOS_IVA ( ID TIPO_ID NOT NULL, REFERENCIA VARCHAR(255), @@ -1355,6 +1296,16 @@ CREATE TABLE TIPOS_IVA ( RE TIPO_PORCENTAJE ); +CREATE TABLE TIPOS_VENTA ( + ID TIPO_ID NOT NULL, + DESCRIPCION VARCHAR(255) COLLATE ES_ES, + CODIGO_CONTABLE VARCHAR(2) NOT NULL +); + +CREATE TABLE UNIDADES_MEDIDA ( + ID TIPO_ID NOT NULL, + DESCRIPCION VARCHAR(255) +); CREATE TABLE USUARIOS ( ID TIPO_ID NOT NULL, @@ -1371,7 +1322,6 @@ CREATE TABLE USUARIOS ( CHECKSUM VARCHAR(250) ); - CREATE TABLE USUARIOS_EVENTOS ( APLICACION VARCHAR(250), ID_USUARIO TIPO_ID, @@ -1384,7 +1334,6 @@ CREATE TABLE USUARIOS_EVENTOS ( TNAME VARCHAR(20) ); - CREATE TABLE USUARIOS_LOGON ( LOGONID CHAR(38) NOT NULL, ID_USUARIO TIPO_ID, @@ -1394,11 +1343,6 @@ CREATE TABLE USUARIOS_LOGON ( ); -CREATE TABLE UNIDADES_MEDIDA ( - ID TIPO_ID NOT NULL, - DESCRIPCION VARCHAR(255) -); - /******************************************************************************/ /**** Views ****/ @@ -1410,13 +1354,13 @@ CREATE VIEW V_ALB_CLI_SITUACION( ID, SITUACION) AS -SELECT ALBARANES_CLIENTE.ID, - case when (FECHA_RECEPCION is not null) then 'SERVIDO' - when (FECHA_ENVIO is null) then 'PENDIENTE' - when (FECHA_ENVIO <= current_date) then 'ENVIADO' - when (FECHA_ENVIO > current_date) then 'PENDIENTE' - else 'N/A' - end as SITUACION +SELECT ALBARANES_CLIENTE.ID, + case when (FECHA_RECEPCION is not null) then 'SERVIDO' + when (FECHA_ENVIO is null) then 'PENDIENTE' + when (FECHA_ENVIO <= current_date) then 'ENVIADO' + when (FECHA_ENVIO > current_date) then 'PENDIENTE' + else 'N/A' + end as SITUACION FROM ALBARANES_CLIENTE ; @@ -1431,31 +1375,31 @@ CREATE VIEW V_ALB_CLI_DETALLES( ID_ARTICULO, CANTIDAD) AS -SELECT ALBARANES_CLIENTE_DETALLES.ID_ALBARAN, - ALBARANES_CLIENTE.ID_PEDIDO, - V_ALB_CLI_SITUACION.SITUACION, - ALBARANES_CLIENTE.ID_ALMACEN, - COALESCE(ALBARANES_CLIENTE_DETALLES.ID_ARTICULO, 0), - SUM(COALESCE(ALBARANES_CLIENTE_DETALLES.CANTIDAD, 0)) - -FROM ALBARANES_CLIENTE_DETALLES -INNER JOIN ALBARANES_CLIENTE -ON (ALBARANES_CLIENTE_DETALLES.ID_ALBARAN = ALBARANES_CLIENTE.ID) -INNER JOIN V_ALB_CLI_SITUACION -ON (ALBARANES_CLIENTE_DETALLES.ID_ALBARAN = V_ALB_CLI_SITUACION.ID) - -/*Mantenemos los articulos inventariables y aquellos que no existan en nuestro catálogo con el fin de no falsear la situación de los pedidos -LEFT JOIN ARTICULOS -ON (ALBARANES_CLIENTE_DETALLES.ID_ARTICULO = ARTICULOS.ID) - -WHERE (ALBARANES_CLIENTE_DETALLES.ID_ARTICULO is not null) -AND (ARTICULOS.INVENTARIABLE = 1) -*/ - -group BY ALBARANES_CLIENTE_DETALLES.ID_ALBARAN, - ALBARANES_CLIENTE.ID_PEDIDO, - V_ALB_CLI_SITUACION.SITUACION, - ALBARANES_CLIENTE.ID_ALMACEN, +SELECT ALBARANES_CLIENTE_DETALLES.ID_ALBARAN, + ALBARANES_CLIENTE.ID_PEDIDO, + V_ALB_CLI_SITUACION.SITUACION, + ALBARANES_CLIENTE.ID_ALMACEN, + COALESCE(ALBARANES_CLIENTE_DETALLES.ID_ARTICULO, 0), + SUM(COALESCE(ALBARANES_CLIENTE_DETALLES.CANTIDAD, 0)) + +FROM ALBARANES_CLIENTE_DETALLES +INNER JOIN ALBARANES_CLIENTE +ON (ALBARANES_CLIENTE_DETALLES.ID_ALBARAN = ALBARANES_CLIENTE.ID) +INNER JOIN V_ALB_CLI_SITUACION +ON (ALBARANES_CLIENTE_DETALLES.ID_ALBARAN = V_ALB_CLI_SITUACION.ID) + +/*Mantenemos los articulos inventariables y aquellos que no existan en nuestro catálogo con el fin de no falsear la situación de los pedidos +LEFT JOIN ARTICULOS +ON (ALBARANES_CLIENTE_DETALLES.ID_ARTICULO = ARTICULOS.ID) + +WHERE (ALBARANES_CLIENTE_DETALLES.ID_ARTICULO is not null) +AND (ARTICULOS.INVENTARIABLE = 1) +*/ + +group BY ALBARANES_CLIENTE_DETALLES.ID_ALBARAN, + ALBARANES_CLIENTE.ID_PEDIDO, + V_ALB_CLI_SITUACION.SITUACION, + ALBARANES_CLIENTE.ID_ALMACEN, ALBARANES_CLIENTE_DETALLES.ID_ARTICULO ; @@ -1469,27 +1413,27 @@ CREATE VIEW V_ALB_PROV_DETALLES( ID_ARTICULO, CANTIDAD) AS -SELECT ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN, - ALBARANES_PROVEEDOR.ID_PEDIDO, - ALBARANES_PROVEEDOR.ID_ALMACEN, - COALESCE(ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO, 0), - SUM (COALESCE(ALBARANES_PROVEEDOR_DETALLES.CANTIDAD, 0)) AS CANTIDAD - -FROM ALBARANES_PROVEEDOR_DETALLES -INNER JOIN ALBARANES_PROVEEDOR -ON (ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN = ALBARANES_PROVEEDOR.ID) - -/*Mantenemos los articulos inventariables y aquellos que no existan en nuestro catálogo con el fin de no falsear la situación de los pedidos -LEFT JOIN ARTICULOS -ON (ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID) - -WHERE (ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO is not null) -AND (ARTICULOS.INVENTARIABLE = 1) -*/ - -GROUP BY ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN, - ALBARANES_PROVEEDOR.ID_PEDIDO, - ALBARANES_PROVEEDOR.ID_ALMACEN, +SELECT ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN, + ALBARANES_PROVEEDOR.ID_PEDIDO, + ALBARANES_PROVEEDOR.ID_ALMACEN, + COALESCE(ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO, 0), + SUM (COALESCE(ALBARANES_PROVEEDOR_DETALLES.CANTIDAD, 0)) AS CANTIDAD + +FROM ALBARANES_PROVEEDOR_DETALLES +INNER JOIN ALBARANES_PROVEEDOR +ON (ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN = ALBARANES_PROVEEDOR.ID) + +/*Mantenemos los articulos inventariables y aquellos que no existan en nuestro catálogo con el fin de no falsear la situación de los pedidos +LEFT JOIN ARTICULOS +ON (ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID) + +WHERE (ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO is not null) +AND (ARTICULOS.INVENTARIABLE = 1) +*/ + +GROUP BY ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN, + ALBARANES_PROVEEDOR.ID_PEDIDO, + ALBARANES_PROVEEDOR.ID_ALMACEN, ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO ; @@ -1539,56 +1483,56 @@ CREATE VIEW V_ALBARANES_CLIENTE( ID_TIENDA, TIENDA) AS -SELECT - ALBARANES_CLIENTE.ID, - ALBARANES_CLIENTE.ID_EMPRESA, - ALBARANES_CLIENTE.ID_CLIENTE, - CONTACTOS.NOMBRE, - ALBARANES_CLIENTE.FECHA_ALBARAN, - ALBARANES_CLIENTE.REFERENCIA, - ALBARANES_CLIENTE.REFERENCIA_CLIENTE, - ALBARANES_CLIENTE.TIPO, - TRIM(V_ALB_CLI_SITUACION.SITUACION), - ALBARANES_CLIENTE.ID_ALMACEN, - ALMACENES.NOMBRE AS NOMBRE_ALMACEN, - ALBARANES_CLIENTE.ID_PEDIDO, - PEDIDOS_CLIENTE.REFERENCIA AS REF_PEDIDO, - ALBARANES_CLIENTE.ID_FACTURA, - FACTURAS_CLIENTE.REFERENCIA AS REF_FACTURA, - ALBARANES_CLIENTE.CALLE, - ALBARANES_CLIENTE.CODIGO_POSTAL, - ALBARANES_CLIENTE.POBLACION, - ALBARANES_CLIENTE.PROVINCIA, - ALBARANES_CLIENTE.PERSONA_CONTACTO, - ALBARANES_CLIENTE.TELEFONO, - ALBARANES_CLIENTE.IMPORTE_NETO, - ALBARANES_CLIENTE.IMPORTE_PORTE, - ALBARANES_CLIENTE.DESCUENTO, - ALBARANES_CLIENTE.IMPORTE_DESCUENTO, - ALBARANES_CLIENTE.BASE_IMPONIBLE, - ALBARANES_CLIENTE.IVA, - ALBARANES_CLIENTE.IMPORTE_IVA, - ALBARANES_CLIENTE.IMPORTE_TOTAL, - ALBARANES_CLIENTE.OBSERVACIONES, - ALBARANES_CLIENTE.INCIDENCIAS, - ALBARANES_CLIENTE.INCIDENCIAS_ACTIVAS, - ALBARANES_CLIENTE.FECHA_ALTA, - ALBARANES_CLIENTE.FECHA_MODIFICACION, - ALBARANES_CLIENTE.USUARIO, - ALBARANES_CLIENTE.ID_FORMA_PAGO, - ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO, - ALBARANES_CLIENTE.FECHA_ENVIO, - ALBARANES_CLIENTE.FECHA_RECEPCION, - ALBARANES_CLIENTE.ID_TIENDA, - EMPRESAS_TIENDAS.NOMBRE AS TIENDA - -FROM - ALBARANES_CLIENTE - INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_CLIENTE.ID_CLIENTE) - INNER JOIN V_ALB_CLI_SITUACION ON (V_ALB_CLI_SITUACION.ID = ALBARANES_CLIENTE.ID) - LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = ALBARANES_CLIENTE.ID_PEDIDO) - LEFT OUTER JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = ALBARANES_CLIENTE.ID_FACTURA) - LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_CLIENTE.ID_ALMACEN) +SELECT + ALBARANES_CLIENTE.ID, + ALBARANES_CLIENTE.ID_EMPRESA, + ALBARANES_CLIENTE.ID_CLIENTE, + CONTACTOS.NOMBRE, + ALBARANES_CLIENTE.FECHA_ALBARAN, + ALBARANES_CLIENTE.REFERENCIA, + ALBARANES_CLIENTE.REFERENCIA_CLIENTE, + ALBARANES_CLIENTE.TIPO, + TRIM(V_ALB_CLI_SITUACION.SITUACION), + ALBARANES_CLIENTE.ID_ALMACEN, + ALMACENES.NOMBRE AS NOMBRE_ALMACEN, + ALBARANES_CLIENTE.ID_PEDIDO, + PEDIDOS_CLIENTE.REFERENCIA AS REF_PEDIDO, + ALBARANES_CLIENTE.ID_FACTURA, + FACTURAS_CLIENTE.REFERENCIA AS REF_FACTURA, + ALBARANES_CLIENTE.CALLE, + ALBARANES_CLIENTE.CODIGO_POSTAL, + ALBARANES_CLIENTE.POBLACION, + ALBARANES_CLIENTE.PROVINCIA, + ALBARANES_CLIENTE.PERSONA_CONTACTO, + ALBARANES_CLIENTE.TELEFONO, + ALBARANES_CLIENTE.IMPORTE_NETO, + ALBARANES_CLIENTE.IMPORTE_PORTE, + ALBARANES_CLIENTE.DESCUENTO, + ALBARANES_CLIENTE.IMPORTE_DESCUENTO, + ALBARANES_CLIENTE.BASE_IMPONIBLE, + ALBARANES_CLIENTE.IVA, + ALBARANES_CLIENTE.IMPORTE_IVA, + ALBARANES_CLIENTE.IMPORTE_TOTAL, + ALBARANES_CLIENTE.OBSERVACIONES, + ALBARANES_CLIENTE.INCIDENCIAS, + ALBARANES_CLIENTE.INCIDENCIAS_ACTIVAS, + ALBARANES_CLIENTE.FECHA_ALTA, + ALBARANES_CLIENTE.FECHA_MODIFICACION, + ALBARANES_CLIENTE.USUARIO, + ALBARANES_CLIENTE.ID_FORMA_PAGO, + ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO, + ALBARANES_CLIENTE.FECHA_ENVIO, + ALBARANES_CLIENTE.FECHA_RECEPCION, + ALBARANES_CLIENTE.ID_TIENDA, + EMPRESAS_TIENDAS.NOMBRE AS TIENDA + +FROM + ALBARANES_CLIENTE + INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_CLIENTE.ID_CLIENTE) + INNER JOIN V_ALB_CLI_SITUACION ON (V_ALB_CLI_SITUACION.ID = ALBARANES_CLIENTE.ID) + LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = ALBARANES_CLIENTE.ID_PEDIDO) + LEFT OUTER JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = ALBARANES_CLIENTE.ID_FACTURA) + LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_CLIENTE.ID_ALMACEN) LEFT OUTER JOIN EMPRESAS_TIENDAS ON (EMPRESAS_TIENDAS.ID = ALBARANES_CLIENTE.ID_TIENDA) ; @@ -1635,52 +1579,52 @@ CREATE VIEW V_ALBARANES_PROVEEDOR( ID_TIENDA, TIENDA) AS -SELECT - ALBARANES_PROVEEDOR.ID, - ALBARANES_PROVEEDOR.ID_EMPRESA, - ALBARANES_PROVEEDOR.ID_PROVEEDOR, - CONTACTOS.NOMBRE, - ALBARANES_PROVEEDOR.FECHA_ALBARAN, - ALBARANES_PROVEEDOR.REFERENCIA, - ALBARANES_PROVEEDOR.REFERENCIA_PROVEEDOR, - ALBARANES_PROVEEDOR.TIPO, - ALBARANES_PROVEEDOR.ID_ALMACEN, - ALMACENES.NOMBRE AS NOMBRE_ALMACEN, - ALBARANES_PROVEEDOR.ID_PEDIDO, - PEDIDOS_PROVEEDOR.REFERENCIA AS REF_PED_PROVEEDOR, - ALBARANES_PROVEEDOR.ID_FACTURA, - FACTURAS_PROVEEDOR.REFERENCIA AS REF_FACTURA, - ALBARANES_PROVEEDOR.REF_FACTURA_PROV, - ALBARANES_PROVEEDOR.CALLE, - ALBARANES_PROVEEDOR.CODIGO_POSTAL, - ALBARANES_PROVEEDOR.POBLACION, - ALBARANES_PROVEEDOR.PROVINCIA, - ALBARANES_PROVEEDOR.PERSONA_CONTACTO, - ALBARANES_PROVEEDOR.TELEFONO, - ALBARANES_PROVEEDOR.IMPORTE_NETO, - ALBARANES_PROVEEDOR.IMPORTE_PORTE, - ALBARANES_PROVEEDOR.DESCUENTO, - ALBARANES_PROVEEDOR.IMPORTE_DESCUENTO, - ALBARANES_PROVEEDOR.BASE_IMPONIBLE, - ALBARANES_PROVEEDOR.IVA, - ALBARANES_PROVEEDOR.IMPORTE_IVA, - ALBARANES_PROVEEDOR.IMPORTE_TOTAL, - ALBARANES_PROVEEDOR.OBSERVACIONES, - ALBARANES_PROVEEDOR.INCIDENCIAS, - ALBARANES_PROVEEDOR.INCIDENCIAS_ACTIVAS, - ALBARANES_PROVEEDOR.FECHA_ALTA, - ALBARANES_PROVEEDOR.FECHA_MODIFICACION, - ALBARANES_PROVEEDOR.USUARIO, - ALBARANES_PROVEEDOR.ID_FORMA_PAGO, - ALBARANES_PROVEEDOR.ID_TIENDA, - EMPRESAS_TIENDAS.NOMBRE AS TIENDA - -FROM - ALBARANES_PROVEEDOR - INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_PROVEEDOR.ID_PROVEEDOR) - LEFT OUTER JOIN PEDIDOS_PROVEEDOR ON (PEDIDOS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_PEDIDO) - LEFT OUTER JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_FACTURA) - LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_PROVEEDOR.ID_ALMACEN) +SELECT + ALBARANES_PROVEEDOR.ID, + ALBARANES_PROVEEDOR.ID_EMPRESA, + ALBARANES_PROVEEDOR.ID_PROVEEDOR, + CONTACTOS.NOMBRE, + ALBARANES_PROVEEDOR.FECHA_ALBARAN, + ALBARANES_PROVEEDOR.REFERENCIA, + ALBARANES_PROVEEDOR.REFERENCIA_PROVEEDOR, + ALBARANES_PROVEEDOR.TIPO, + ALBARANES_PROVEEDOR.ID_ALMACEN, + ALMACENES.NOMBRE AS NOMBRE_ALMACEN, + ALBARANES_PROVEEDOR.ID_PEDIDO, + PEDIDOS_PROVEEDOR.REFERENCIA AS REF_PED_PROVEEDOR, + ALBARANES_PROVEEDOR.ID_FACTURA, + FACTURAS_PROVEEDOR.REFERENCIA AS REF_FACTURA, + ALBARANES_PROVEEDOR.REF_FACTURA_PROV, + ALBARANES_PROVEEDOR.CALLE, + ALBARANES_PROVEEDOR.CODIGO_POSTAL, + ALBARANES_PROVEEDOR.POBLACION, + ALBARANES_PROVEEDOR.PROVINCIA, + ALBARANES_PROVEEDOR.PERSONA_CONTACTO, + ALBARANES_PROVEEDOR.TELEFONO, + ALBARANES_PROVEEDOR.IMPORTE_NETO, + ALBARANES_PROVEEDOR.IMPORTE_PORTE, + ALBARANES_PROVEEDOR.DESCUENTO, + ALBARANES_PROVEEDOR.IMPORTE_DESCUENTO, + ALBARANES_PROVEEDOR.BASE_IMPONIBLE, + ALBARANES_PROVEEDOR.IVA, + ALBARANES_PROVEEDOR.IMPORTE_IVA, + ALBARANES_PROVEEDOR.IMPORTE_TOTAL, + ALBARANES_PROVEEDOR.OBSERVACIONES, + ALBARANES_PROVEEDOR.INCIDENCIAS, + ALBARANES_PROVEEDOR.INCIDENCIAS_ACTIVAS, + ALBARANES_PROVEEDOR.FECHA_ALTA, + ALBARANES_PROVEEDOR.FECHA_MODIFICACION, + ALBARANES_PROVEEDOR.USUARIO, + ALBARANES_PROVEEDOR.ID_FORMA_PAGO, + ALBARANES_PROVEEDOR.ID_TIENDA, + EMPRESAS_TIENDAS.NOMBRE AS TIENDA + +FROM + ALBARANES_PROVEEDOR + INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_PROVEEDOR.ID_PROVEEDOR) + LEFT OUTER JOIN PEDIDOS_PROVEEDOR ON (PEDIDOS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_PEDIDO) + LEFT OUTER JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_FACTURA) + LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_PROVEEDOR.ID_ALMACEN) LEFT OUTER JOIN EMPRESAS_TIENDAS ON (EMPRESAS_TIENDAS.ID = ALBARANES_PROVEEDOR.ID_TIENDA) ; @@ -1708,20 +1652,20 @@ CREATE VIEW V_ARTICULOS( NOMBRE_PROVEEDOR, ELIMINADO) AS -SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCRIPCION, - ARTICULOS.FAMILIA, ARTICULOS.IMAGEN, ARTICULOS.COMISIONABLE, ARTICULOS.FECHA_ALTA, - ARTICULOS.FECHA_MODIFICACION, ARTICULOS.USUARIO, - ARTICULOS.REFERENCIA_PROV, - ARTICULOS.PRECIO_COSTE, - ARTICULOS.PRECIO_PORTE, - ARTICULOS.DESCUENTO, - ARTICULOS.PRECIO_NETO, - ARTICULOS.INVENTARIABLE, - ARTICULOS.ID_PROVEEDOR, - CONTACTOS.NOMBRE AS NOMBRE_PROVEEDOR, - ARTICULOS.ELIMINADO -FROM ARTICULOS -LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = ARTICULOS.ID_PROVEEDOR) +SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCRIPCION, + ARTICULOS.FAMILIA, ARTICULOS.IMAGEN, ARTICULOS.COMISIONABLE, ARTICULOS.FECHA_ALTA, + ARTICULOS.FECHA_MODIFICACION, ARTICULOS.USUARIO, + ARTICULOS.REFERENCIA_PROV, + ARTICULOS.PRECIO_COSTE, + ARTICULOS.PRECIO_PORTE, + ARTICULOS.DESCUENTO, + ARTICULOS.PRECIO_NETO, + ARTICULOS.INVENTARIABLE, + ARTICULOS.ID_PROVEEDOR, + CONTACTOS.NOMBRE AS NOMBRE_PROVEEDOR, + ARTICULOS.ELIMINADO +FROM ARTICULOS +LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = ARTICULOS.ID_PROVEEDOR) WHERE (ARTICULOS.ELIMINADO = 0) ; @@ -1755,36 +1699,36 @@ CREATE VIEW V_CONTACTOS( ID_TIENDA, TIENDA) AS -SELECT CONTACTOS.ID, - CONTACTOS_CATEGORIAS.ID_CATEGORIA, - CONTACTOS.NIF_CIF, - CONTACTOS.NOMBRE, - CONTACTOS.PERSONA_CONTACTO, - CONTACTOS.CALLE, - CONTACTOS.POBLACION, - CONTACTOS.PROVINCIA, - CONTACTOS.CODIGO_POSTAL, - CONTACTOS.TELEFONO_1, - CONTACTOS.TELEFONO_2, - CONTACTOS.MOVIL_1, - CONTACTOS.MOVIL_2, - CONTACTOS.FAX, - CONTACTOS.EMAIL_1, - CONTACTOS.EMAIL_2, - CONTACTOS.PAGINA_WEB, - CONTACTOS.NOTAS, - CONTACTOS.FECHA_ALTA, - CONTACTOS.FECHA_MODIFICACION, - CONTACTOS.USUARIO, - EMPRESAS_CONTACTOS.ID_EMPRESA, - CONTACTOS.REFERENCIA, - CONTACTOS.ID_TIENDA, - COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') as TIENDA -FROM CONTACTOS - INNER JOIN CONTACTOS_CATEGORIAS ON (CONTACTOS_CATEGORIAS.ID_CONTACTO = - CONTACTOS.ID) - INNER JOIN EMPRESAS_CONTACTOS ON (EMPRESAS_CONTACTOS.ID_CONTACTO = - CONTACTOS.ID) +SELECT CONTACTOS.ID, + CONTACTOS_CATEGORIAS.ID_CATEGORIA, + CONTACTOS.NIF_CIF, + CONTACTOS.NOMBRE, + CONTACTOS.PERSONA_CONTACTO, + CONTACTOS.CALLE, + CONTACTOS.POBLACION, + CONTACTOS.PROVINCIA, + CONTACTOS.CODIGO_POSTAL, + CONTACTOS.TELEFONO_1, + CONTACTOS.TELEFONO_2, + CONTACTOS.MOVIL_1, + CONTACTOS.MOVIL_2, + CONTACTOS.FAX, + CONTACTOS.EMAIL_1, + CONTACTOS.EMAIL_2, + CONTACTOS.PAGINA_WEB, + CONTACTOS.NOTAS, + CONTACTOS.FECHA_ALTA, + CONTACTOS.FECHA_MODIFICACION, + CONTACTOS.USUARIO, + EMPRESAS_CONTACTOS.ID_EMPRESA, + CONTACTOS.REFERENCIA, + CONTACTOS.ID_TIENDA, + COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') as TIENDA +FROM CONTACTOS + INNER JOIN CONTACTOS_CATEGORIAS ON (CONTACTOS_CATEGORIAS.ID_CONTACTO = + CONTACTOS.ID) + INNER JOIN EMPRESAS_CONTACTOS ON (EMPRESAS_CONTACTOS.ID_CONTACTO = + CONTACTOS.ID) LEFT JOIN EMPRESAS_TIENDAS ON (EMPRESAS_TIENDAS.ID = CONTACTOS.ID_TIENDA) ; @@ -1831,48 +1775,48 @@ CREATE VIEW V_CLIENTES( IGNORAR_CONTABILIDAD, PROCEDENCIA_CLIENTE) AS -SELECT - V_CONTACTOS.ID, - V_CONTACTOS.ID_CATEGORIA, - V_CONTACTOS.NIF_CIF, - V_CONTACTOS.NOMBRE, - V_CONTACTOS.PERSONA_CONTACTO, - V_CONTACTOS.CALLE, - V_CONTACTOS.POBLACION, - V_CONTACTOS.PROVINCIA, - V_CONTACTOS.CODIGO_POSTAL, - V_CONTACTOS.TELEFONO_1, - V_CONTACTOS.TELEFONO_2, - V_CONTACTOS.MOVIL_1, - V_CONTACTOS.MOVIL_2, - V_CONTACTOS.FAX, - V_CONTACTOS.EMAIL_1, - V_CONTACTOS.EMAIL_2, - V_CONTACTOS.PAGINA_WEB, - V_CONTACTOS.NOTAS, - V_CONTACTOS.FECHA_ALTA, - V_CONTACTOS.FECHA_MODIFICACION, - V_CONTACTOS.USUARIO, - V_CONTACTOS.ID_EMPRESA, - V_CONTACTOS.REFERENCIA, - V_CONTACTOS.ID_TIENDA, - V_CONTACTOS.TIENDA, - CLIENTES_DATOS.GRUPO_CLIENTE, - CLIENTES_DATOS.NOMBRE_COMERCIAL, - CLIENTES_DATOS.VENCIMIENTO_FACTURAS, - CLIENTES_DATOS.BLOQUEADO, - CLIENTES_DATOS.REGIMEN_IVA, - CLIENTES_DATOS.MOTIVO_BLOQUEO, - CLIENTES_DATOS.RECARGO_EQUIVALENCIA, - CLIENTES_DATOS.ID_TIPO_IVA, - CLIENTES_DATOS.ID_FORMA_PAGO, - CLIENTES_DATOS.TIENDA_WEB, - CLIENTES_DATOS.CODIGO_ASIGNADO, - CLIENTES_DATOS.IGNORAR_CONTABILIDAD, - CLIENTES_DATOS.PROCEDENCIA_CLIENTE -FROM V_CONTACTOS - LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE) -WHERE +SELECT + V_CONTACTOS.ID, + V_CONTACTOS.ID_CATEGORIA, + V_CONTACTOS.NIF_CIF, + V_CONTACTOS.NOMBRE, + V_CONTACTOS.PERSONA_CONTACTO, + V_CONTACTOS.CALLE, + V_CONTACTOS.POBLACION, + V_CONTACTOS.PROVINCIA, + V_CONTACTOS.CODIGO_POSTAL, + V_CONTACTOS.TELEFONO_1, + V_CONTACTOS.TELEFONO_2, + V_CONTACTOS.MOVIL_1, + V_CONTACTOS.MOVIL_2, + V_CONTACTOS.FAX, + V_CONTACTOS.EMAIL_1, + V_CONTACTOS.EMAIL_2, + V_CONTACTOS.PAGINA_WEB, + V_CONTACTOS.NOTAS, + V_CONTACTOS.FECHA_ALTA, + V_CONTACTOS.FECHA_MODIFICACION, + V_CONTACTOS.USUARIO, + V_CONTACTOS.ID_EMPRESA, + V_CONTACTOS.REFERENCIA, + V_CONTACTOS.ID_TIENDA, + V_CONTACTOS.TIENDA, + CLIENTES_DATOS.GRUPO_CLIENTE, + CLIENTES_DATOS.NOMBRE_COMERCIAL, + CLIENTES_DATOS.VENCIMIENTO_FACTURAS, + CLIENTES_DATOS.BLOQUEADO, + CLIENTES_DATOS.REGIMEN_IVA, + CLIENTES_DATOS.MOTIVO_BLOQUEO, + CLIENTES_DATOS.RECARGO_EQUIVALENCIA, + CLIENTES_DATOS.ID_TIPO_IVA, + CLIENTES_DATOS.ID_FORMA_PAGO, + CLIENTES_DATOS.TIENDA_WEB, + CLIENTES_DATOS.CODIGO_ASIGNADO, + CLIENTES_DATOS.IGNORAR_CONTABILIDAD, + CLIENTES_DATOS.PROCEDENCIA_CLIENTE +FROM V_CONTACTOS + LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE) +WHERE V_CONTACTOS.ID_CATEGORIA = 1 ; @@ -1891,17 +1835,18 @@ CREATE VIEW V_CONT_CUENTAS( ID_CUENTA_ESPECIAL, CUENTA_ESPECIAL) AS -select CONT_CUENTAS.ID, CONT_CUENTAS.REF_CUENTA, CONT_CUENTAS.ID_EJERCICIO, -CONT_CUENTAS.DESCRIPCION, CONT_CUENTAS.ID_EPIGRAFE, CONT_EPIGRAFES.DESCRIPCION as EPIGRAFE, -CONT_CUENTAS.ID_BALANCE, CONT_BALANCES.REF_BALANCE as BALANCE, -CONT_CUENTAS.ID_CUENTA_ESPECIAL, CONT_CUENTAS_ESPECIALES.DESCRIPCION as CUENTA_ESPECIAL -from CONT_CUENTAS -left join CONT_EPIGRAFES on (CONT_EPIGRAFES.ID = CONT_CUENTAS.ID_EPIGRAFE) -left join CONT_BALANCES on (CONT_BALANCES.ID = CONT_CUENTAS.ID_BALANCE) +select CONT_CUENTAS.ID, CONT_CUENTAS.REF_CUENTA, CONT_CUENTAS.ID_EJERCICIO, +CONT_CUENTAS.DESCRIPCION, CONT_CUENTAS.ID_EPIGRAFE, CONT_EPIGRAFES.DESCRIPCION as EPIGRAFE, +CONT_CUENTAS.ID_BALANCE, CONT_BALANCES.REF_BALANCE as BALANCE, +CONT_CUENTAS.ID_CUENTA_ESPECIAL, CONT_CUENTAS_ESPECIALES.DESCRIPCION as CUENTA_ESPECIAL +from CONT_CUENTAS +left join CONT_EPIGRAFES on (CONT_EPIGRAFES.ID = CONT_CUENTAS.ID_EPIGRAFE) +left join CONT_BALANCES on (CONT_BALANCES.ID = CONT_CUENTAS.ID_BALANCE) left join CONT_CUENTAS_ESPECIALES on (CONT_CUENTAS_ESPECIALES.ID = CONT_CUENTAS.ID_CUENTA_ESPECIAL) ; + /* View: V_CONT_DIARIO */ CREATE VIEW V_CONT_DIARIO( ID_APUNTE, @@ -1953,14 +1898,35 @@ CREATE VIEW V_CONT_EPIGRAFES( ID_PADRE, EPIGRAFE_PADRE) AS -select CONT_EPI1.ID, CONT_EPI1.REF_EPIGRAFE, CONT_EPI1.DESCRIPCION, CONT_EPI1.ID_EJERCICIO, -CONT_EPI1.ID_PADRE, CONT_EPI2.DESCRIPCION as EPIGRAFE_PADRE -from CONT_EPIGRAFES CONT_EPI1 +select CONT_EPI1.ID, CONT_EPI1.REF_EPIGRAFE, CONT_EPI1.DESCRIPCION, CONT_EPI1.ID_EJERCICIO, +CONT_EPI1.ID_PADRE, CONT_EPI2.DESCRIPCION as EPIGRAFE_PADRE +from CONT_EPIGRAFES CONT_EPI1 left join CONT_EPIGRAFES CONT_EPI2 on (CONT_EPI2.ID = CONT_EPI1.ID_PADRE) ; +/* View: V_CONT_FAC_CLI_VENTAS */ +CREATE VIEW V_CONT_FAC_CLI_VENTAS( + ID_FACTURA, + ID_SUBCUENTA, + SUBCUENTA) +AS +select + CONT_ASIENTOS.ID_FACTURA, + CONT_SUBCUENTAS.ID as ID_SUBCUENTA, + CONT_SUBCUENTAS.DESCRIPCION as SUBCUENTA + +from CONT_ASIENTOS + LEFT JOIN CONT_APUNTES ON (CONT_APUNTES.ID_ASIENTO = CONT_ASIENTOS.ID) + LEFT JOIN CONT_SUBCUENTAS ON (CONT_SUBCUENTAS.ID = CONT_APUNTES.ID_SUBCUENTA) + LEFT JOIN CONT_CUENTAS ON (CONT_CUENTAS.ID = CONT_SUBCUENTAS.ID_CUENTA) +/* Solo sacaremos aquellas tuplas de apuntes cuya subcuenta contable pertenezca ventas*/ + where (CONT_ASIENTOS.ID_FACTURA is not null) and (CONT_CUENTAS.ref_cuenta = 700) +; + + + /* View: V_CONT_SUBCUENTAS_SALDO */ CREATE VIEW V_CONT_SUBCUENTAS_SALDO( ID_SUBCUENTA, @@ -1968,11 +1934,11 @@ CREATE VIEW V_CONT_SUBCUENTAS_SALDO( HABER, SALDO) AS -select cont_subcuentas.ID, COALESCE(SUM(cont_apuntes.DEBE), 0) as DEBE, -COALESCE(SUM(cont_apuntes.HABER), 0) as HABER, -COALESCE(SUM(cont_apuntes.DEBE), 0) - COALESCE(SUM(cont_apuntes.HABER), 0) as SALDO -from cont_subcuentas -left join cont_apuntes on (cont_apuntes.id_subcuenta = cont_subcuentas.ID) +select cont_subcuentas.ID, COALESCE(SUM(cont_apuntes.DEBE), 0) as DEBE, +COALESCE(SUM(cont_apuntes.HABER), 0) as HABER, +COALESCE(SUM(cont_apuntes.DEBE), 0) - COALESCE(SUM(cont_apuntes.HABER), 0) as SALDO +from cont_subcuentas +left join cont_apuntes on (cont_apuntes.id_subcuenta = cont_subcuentas.ID) group by cont_subcuentas.ID ; @@ -1992,11 +1958,11 @@ CREATE VIEW V_CONT_SUBCUENTAS( HABER, SALDO) AS -select CONT_SUBCUENTAS.ID, CONT_SUBCUENTAS.REF_SUBCUENTA, CONT_SUBCUENTAS.DESCRIPCION, -CONT_SUBCUENTAS.ID_EJERCICIO, CONT_SUBCUENTAS.ID_CONTACTO, CONT_SUBCUENTAS.ID_CUENTA, -CONT_CUENTAS.REF_CUENTA, CONT_CUENTAS.DESCRIPCION as CUENTA, V_CONT_SUBCUENTAS_SALDO.DEBE, V_CONT_SUBCUENTAS_SALDO.HABER, V_CONT_SUBCUENTAS_SALDO.SALDO -from V_CONT_SUBCUENTAS_SALDO -left join CONT_SUBCUENTAS on (CONT_SUBCUENTAS.ID = V_CONT_SUBCUENTAS_SALDO.ID_SUBCUENTA) +select CONT_SUBCUENTAS.ID, CONT_SUBCUENTAS.REF_SUBCUENTA, CONT_SUBCUENTAS.DESCRIPCION, +CONT_SUBCUENTAS.ID_EJERCICIO, CONT_SUBCUENTAS.ID_CONTACTO, CONT_SUBCUENTAS.ID_CUENTA, +CONT_CUENTAS.REF_CUENTA, CONT_CUENTAS.DESCRIPCION as CUENTA, V_CONT_SUBCUENTAS_SALDO.DEBE, V_CONT_SUBCUENTAS_SALDO.HABER, V_CONT_SUBCUENTAS_SALDO.SALDO +from V_CONT_SUBCUENTAS_SALDO +left join CONT_SUBCUENTAS on (CONT_SUBCUENTAS.ID = V_CONT_SUBCUENTAS_SALDO.ID_SUBCUENTA) left join CONT_CUENTAS on (CONT_CUENTAS.ID = CONT_SUBCUENTAS.ID_CUENTA) ; @@ -2038,43 +2004,43 @@ CREATE VIEW V_EMPLEADOS( EXPERIENCIA, ID_USUARIO) AS -SELECT V_CONTACTOS.ID, - V_CONTACTOS.ID_CATEGORIA, - V_CONTACTOS.NIF_CIF, - V_CONTACTOS.NOMBRE, - V_CONTACTOS.PERSONA_CONTACTO, - V_CONTACTOS.CALLE, - V_CONTACTOS.POBLACION, - V_CONTACTOS.PROVINCIA, - V_CONTACTOS.CODIGO_POSTAL, - V_CONTACTOS.TELEFONO_1, - V_CONTACTOS.TELEFONO_2, - V_CONTACTOS.MOVIL_1, - V_CONTACTOS.MOVIL_2, - V_CONTACTOS.FAX, - V_CONTACTOS.EMAIL_1, - V_CONTACTOS.EMAIL_2, - V_CONTACTOS.PAGINA_WEB, - V_CONTACTOS.NOTAS, - V_CONTACTOS.FECHA_ALTA, - V_CONTACTOS.FECHA_MODIFICACION, - V_CONTACTOS.USUARIO, - V_CONTACTOS.ID_EMPRESA, - V_CONTACTOS.REFERENCIA, - V_CONTACTOS.ID_TIENDA, - V_CONTACTOS.TIENDA, - EMPLEADOS_DATOS.FECHA_NACIMIENTO, - EMPLEADOS_DATOS.CATEGORIA, - EMPLEADOS_DATOS.FECHA_ALTA_EMPRESA, - EMPLEADOS_DATOS.FORMACION_BASE, - EMPLEADOS_DATOS.FORMACION_COMPLE, - EMPLEADOS_DATOS.FORMACION_RECIBIDA, - EMPLEADOS_DATOS.EXPERIENCIA, - EMPLEADOS_DATOS.ID_USUARIO - -FROM V_CONTACTOS -INNER JOIN EMPLEADOS_DATOS ON (EMPLEADOS_DATOS.ID_EMPLEADO = V_CONTACTOS.ID) - +SELECT V_CONTACTOS.ID, + V_CONTACTOS.ID_CATEGORIA, + V_CONTACTOS.NIF_CIF, + V_CONTACTOS.NOMBRE, + V_CONTACTOS.PERSONA_CONTACTO, + V_CONTACTOS.CALLE, + V_CONTACTOS.POBLACION, + V_CONTACTOS.PROVINCIA, + V_CONTACTOS.CODIGO_POSTAL, + V_CONTACTOS.TELEFONO_1, + V_CONTACTOS.TELEFONO_2, + V_CONTACTOS.MOVIL_1, + V_CONTACTOS.MOVIL_2, + V_CONTACTOS.FAX, + V_CONTACTOS.EMAIL_1, + V_CONTACTOS.EMAIL_2, + V_CONTACTOS.PAGINA_WEB, + V_CONTACTOS.NOTAS, + V_CONTACTOS.FECHA_ALTA, + V_CONTACTOS.FECHA_MODIFICACION, + V_CONTACTOS.USUARIO, + V_CONTACTOS.ID_EMPRESA, + V_CONTACTOS.REFERENCIA, + V_CONTACTOS.ID_TIENDA, + V_CONTACTOS.TIENDA, + EMPLEADOS_DATOS.FECHA_NACIMIENTO, + EMPLEADOS_DATOS.CATEGORIA, + EMPLEADOS_DATOS.FECHA_ALTA_EMPRESA, + EMPLEADOS_DATOS.FORMACION_BASE, + EMPLEADOS_DATOS.FORMACION_COMPLE, + EMPLEADOS_DATOS.FORMACION_RECIBIDA, + EMPLEADOS_DATOS.EXPERIENCIA, + EMPLEADOS_DATOS.ID_USUARIO + +FROM V_CONTACTOS +INNER JOIN EMPLEADOS_DATOS ON (EMPLEADOS_DATOS.ID_EMPLEADO = V_CONTACTOS.ID) + WHERE V_CONTACTOS.ID_CATEGORIA = 3 ; @@ -2085,10 +2051,10 @@ CREATE VIEW V_REC_FAC_CLI( ID_FACTURA, NUM_RECIBOS) AS -SELECT FACTURAS_CLIENTE.ID, COUNT(RECIBOS_CLIENTE.ID) -FROM FACTURAS_CLIENTE -LEFT JOIN RECIBOS_CLIENTE -ON (RECIBOS_CLIENTE.ID_FACTURA = FACTURAS_CLIENTE.ID) +SELECT FACTURAS_CLIENTE.ID, COUNT(RECIBOS_CLIENTE.ID) +FROM FACTURAS_CLIENTE +LEFT JOIN RECIBOS_CLIENTE +ON (RECIBOS_CLIENTE.ID_FACTURA = FACTURAS_CLIENTE.ID) GROUP BY FACTURAS_CLIENTE.ID ; @@ -2099,14 +2065,14 @@ CREATE VIEW V_REC_CLI_SITUACION( ID_RECIBO, SITUACION) AS -SELECT RECIBOS_CLIENTE.ID, -CASE WHEN (COUNT(PAGOS_CLIENTE.ID_RECIBO)=0) THEN 'PENDIENTE' - WHEN (MOD(COUNT(PAGOS_CLIENTE.ID_RECIBO), 2)=0) THEN 'DEVUELTO' - ELSE 'COBRADO' -END -FROM RECIBOS_CLIENTE -LEFT JOIN PAGOS_CLIENTE -ON (PAGOS_CLIENTE.ID_RECIBO = RECIBOS_CLIENTE.ID) +SELECT RECIBOS_CLIENTE.ID, +CASE WHEN (COUNT(PAGOS_CLIENTE.ID_RECIBO)=0) THEN 'PENDIENTE' + WHEN (MOD(COUNT(PAGOS_CLIENTE.ID_RECIBO), 2)=0) THEN 'DEVUELTO' + ELSE 'COBRADO' +END +FROM RECIBOS_CLIENTE +LEFT JOIN PAGOS_CLIENTE +ON (PAGOS_CLIENTE.ID_RECIBO = RECIBOS_CLIENTE.ID) GROUP BY RECIBOS_CLIENTE.ID ; @@ -2117,10 +2083,10 @@ CREATE VIEW V_REC_FAC_CLI_COBRADOS( ID_FACTURA, NUM_REC_COBRADOS) AS -SELECT RECIBOS_CLIENTE.ID_FACTURA, COUNT(V_REC_CLI_SITUACION.ID_RECIBO) -FROM V_REC_CLI_SITUACION LEFT JOIN RECIBOS_CLIENTE ON - (RECIBOS_CLIENTE.ID = V_REC_CLI_SITUACION.ID_RECIBO) -WHERE (TRIM(V_REC_CLI_SITUACION.SITUACION) = 'COBRADO') +SELECT RECIBOS_CLIENTE.ID_FACTURA, COUNT(V_REC_CLI_SITUACION.ID_RECIBO) +FROM V_REC_CLI_SITUACION LEFT JOIN RECIBOS_CLIENTE ON + (RECIBOS_CLIENTE.ID = V_REC_CLI_SITUACION.ID_RECIBO) +WHERE (TRIM(V_REC_CLI_SITUACION.SITUACION) = 'COBRADO') GROUP BY RECIBOS_CLIENTE.ID_FACTURA ; @@ -2131,21 +2097,21 @@ CREATE VIEW V_FAC_CLI_SITUACION( ID_FACTURA, SITUACION) AS -SELECT ID_FACTURA, -CASE - WHEN ((SUM(NUM_RECIBOS) = 0) - OR (SUM(NUM_REC_COBRADOS) = 0)) THEN 'PENDIENTE' - WHEN (SUM(NUM_RECIBOS) = SUM(NUM_REC_COBRADOS)) THEN 'PAGADA' - ELSE 'PARCIALMENTE PAGADA' -END AS SITUACION -FROM -( - SELECT ID_FACTURA, NUM_RECIBOS, 0 AS NUM_REC_COBRADOS - FROM V_REC_FAC_CLI - UNION ALL - SELECT ID_FACTURA, 0 AS NUM_RECIBOS, NUM_REC_COBRADOS - FROM V_REC_FAC_CLI_COBRADOS -) +SELECT ID_FACTURA, +CASE + WHEN ((SUM(NUM_RECIBOS) = 0) + OR (SUM(NUM_REC_COBRADOS) = 0)) THEN 'PENDIENTE' + WHEN (SUM(NUM_RECIBOS) = SUM(NUM_REC_COBRADOS)) THEN 'PAGADA' + ELSE 'PARCIALMENTE PAGADA' +END AS SITUACION +FROM +( + SELECT ID_FACTURA, NUM_RECIBOS, 0 AS NUM_REC_COBRADOS + FROM V_REC_FAC_CLI + UNION ALL + SELECT ID_FACTURA, 0 AS NUM_RECIBOS, NUM_REC_COBRADOS + FROM V_REC_FAC_CLI_COBRADOS +) GROUP BY ID_FACTURA ; @@ -2156,10 +2122,10 @@ CREATE VIEW V_REC_FAC_PRO( ID_FACTURA, NUM_RECIBOS) AS -SELECT FACTURAS_PROVEEDOR.ID, COUNT(RECIBOS_PROVEEDOR.ID) -FROM FACTURAS_PROVEEDOR -LEFT JOIN RECIBOS_PROVEEDOR -ON (RECIBOS_PROVEEDOR.ID_FACTURA = FACTURAS_PROVEEDOR.ID) +SELECT FACTURAS_PROVEEDOR.ID, COUNT(RECIBOS_PROVEEDOR.ID) +FROM FACTURAS_PROVEEDOR +LEFT JOIN RECIBOS_PROVEEDOR +ON (RECIBOS_PROVEEDOR.ID_FACTURA = FACTURAS_PROVEEDOR.ID) GROUP BY FACTURAS_PROVEEDOR.ID ; @@ -2170,14 +2136,14 @@ CREATE VIEW V_REC_PRO_SITUACION( ID_RECIBO, SITUACION) AS -SELECT RECIBOS_PROVEEDOR.ID, -CASE WHEN (COUNT(PAGOS_PROVEEDOR.ID_RECIBO)=0) THEN 'PENDIENTE' - WHEN (MOD(COUNT(PAGOS_PROVEEDOR.ID_RECIBO), 2)=0) THEN 'DEVUELTO' - ELSE 'PAGADO' -END -FROM RECIBOS_PROVEEDOR -LEFT JOIN PAGOS_PROVEEDOR -ON (PAGOS_PROVEEDOR.ID_RECIBO = RECIBOS_PROVEEDOR.ID) +SELECT RECIBOS_PROVEEDOR.ID, +CASE WHEN (COUNT(PAGOS_PROVEEDOR.ID_RECIBO)=0) THEN 'PENDIENTE' + WHEN (MOD(COUNT(PAGOS_PROVEEDOR.ID_RECIBO), 2)=0) THEN 'DEVUELTO' + ELSE 'PAGADO' +END +FROM RECIBOS_PROVEEDOR +LEFT JOIN PAGOS_PROVEEDOR +ON (PAGOS_PROVEEDOR.ID_RECIBO = RECIBOS_PROVEEDOR.ID) GROUP BY RECIBOS_PROVEEDOR.ID ; @@ -2188,10 +2154,10 @@ CREATE VIEW V_REC_FAC_PRO_PAGADOS( ID_FACTURA, NUM_REC_PAGADOS) AS -SELECT RECIBOS_PROVEEDOR.ID_FACTURA, COUNT(V_REC_PRO_SITUACION.ID_RECIBO) -FROM V_REC_PRO_SITUACION LEFT JOIN RECIBOS_PROVEEDOR ON - (RECIBOS_PROVEEDOR.ID = V_REC_PRO_SITUACION.ID_RECIBO) -WHERE (TRIM(V_REC_PRO_SITUACION.SITUACION) = 'PAGADO') +SELECT RECIBOS_PROVEEDOR.ID_FACTURA, COUNT(V_REC_PRO_SITUACION.ID_RECIBO) +FROM V_REC_PRO_SITUACION LEFT JOIN RECIBOS_PROVEEDOR ON + (RECIBOS_PROVEEDOR.ID = V_REC_PRO_SITUACION.ID_RECIBO) +WHERE (TRIM(V_REC_PRO_SITUACION.SITUACION) = 'PAGADO') GROUP BY RECIBOS_PROVEEDOR.ID_FACTURA ; @@ -2202,21 +2168,21 @@ CREATE VIEW V_FAC_PRO_SITUACION( ID_FACTURA, SITUACION) AS -SELECT ID_FACTURA, -CASE - WHEN ((SUM(NUM_RECIBOS) = 0) - OR (SUM(NUM_REC_PAGADOS) = 0)) THEN 'PENDIENTE' - WHEN (SUM(NUM_RECIBOS) = SUM(NUM_REC_PAGADOS)) THEN 'PAGADA' - ELSE 'PARCIALMENTE PAGADA' -END AS SITUACION -FROM -( - SELECT ID_FACTURA, NUM_RECIBOS, 0 AS NUM_REC_PAGADOS - FROM V_REC_FAC_PRO - UNION ALL - SELECT ID_FACTURA, 0 AS NUM_RECIBOS, NUM_REC_PAGADOS - FROM V_REC_FAC_PRO_PAGADOS -) +SELECT ID_FACTURA, +CASE + WHEN ((SUM(NUM_RECIBOS) = 0) + OR (SUM(NUM_REC_PAGADOS) = 0)) THEN 'PENDIENTE' + WHEN (SUM(NUM_RECIBOS) = SUM(NUM_REC_PAGADOS)) THEN 'PAGADA' + ELSE 'PARCIALMENTE PAGADA' +END AS SITUACION +FROM +( + SELECT ID_FACTURA, NUM_RECIBOS, 0 AS NUM_REC_PAGADOS + FROM V_REC_FAC_PRO + UNION ALL + SELECT ID_FACTURA, 0 AS NUM_RECIBOS, NUM_REC_PAGADOS + FROM V_REC_FAC_PRO_PAGADOS +) GROUP BY ID_FACTURA ; @@ -2260,8 +2226,8 @@ CREATE VIEW V_FACTURAS_CLIENTE( IGNORAR_CONTABILIDAD, ID_TIENDA, TIENDA, - ID_TIPOVENTA, - TIPOVENTA) + ID_SUBCUENTA, + SUBCUENTA) AS SELECT FACTURAS_CLIENTE.ID, FACTURAS_CLIENTE.ID_EMPRESA, @@ -2298,9 +2264,9 @@ SELECT FACTURAS_CLIENTE.ID, COMISIONES_LIQUIDADAS.REFERENCIA, FACTURAS_CLIENTE.IGNORAR_CONTABILIDAD, FACTURAS_CLIENTE.ID_TIENDA, - EMPRESAS_TIENDAS.NOMBRE AS TIENDA, - FACTURAS_CLIENTE.ID_TIPOVENTA, - TIPOS_VENTA.DESCRIPCION + COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA, + V_CONT_FAC_CLI_VENTAS.ID_SUBCUENTA, + V_CONT_FAC_CLI_VENTAS.SUBCUENTA FROM V_FAC_CLI_SITUACION LEFT JOIN FACTURAS_CLIENTE @@ -2310,7 +2276,7 @@ SELECT FACTURAS_CLIENTE.ID, LEFT JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE) LEFT JOIN EMPRESAS_TIENDAS ON (EMPRESAS_TIENDAS.ID = FACTURAS_CLIENTE.ID_TIENDA) - LEFT JOIN TIPOS_VENTA ON (TIPOS_VENTA.ID = FACTURAS_CLIENTE.ID_TIPOVENTA) + LEFT JOIN V_CONT_FAC_CLI_VENTAS ON (V_CONT_FAC_CLI_VENTAS.ID_FACTURA = FACTURAS_CLIENTE.ID) ; @@ -2352,46 +2318,46 @@ CREATE VIEW V_FACTURAS_PROVEEDOR( ID_TIENDA, TIENDA) AS -SELECT FACTURAS_PROVEEDOR.ID, - FACTURAS_PROVEEDOR.ID_EMPRESA, - FACTURAS_PROVEEDOR.REFERENCIA, - CASE WHEN (FACTURAS_PROVEEDOR.IMPORTE_TOTAL < 0) THEN 'A' ELSE 'F' END AS TIPO, - FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR, - FACTURAS_PROVEEDOR.FECHA_FACTURA, - TRIM(V_FAC_PRO_SITUACION.SITUACION), - FACTURAS_PROVEEDOR.BASE_IMPONIBLE, - FACTURAS_PROVEEDOR.DESCUENTO, - FACTURAS_PROVEEDOR.IMPORTE_DESCUENTO, - FACTURAS_PROVEEDOR.IVA, - FACTURAS_PROVEEDOR.IMPORTE_IVA, - FACTURAS_PROVEEDOR.RE, - FACTURAS_PROVEEDOR.IMPORTE_RE, - FACTURAS_PROVEEDOR.IMPORTE_TOTAL, - FACTURAS_PROVEEDOR.OBSERVACIONES, - FACTURAS_PROVEEDOR.ID_PROVEEDOR, - FACTURAS_PROVEEDOR.NIF_CIF, - FACTURAS_PROVEEDOR.NOMBRE, - FACTURAS_PROVEEDOR.CALLE, - FACTURAS_PROVEEDOR.POBLACION, - FACTURAS_PROVEEDOR.PROVINCIA, - FACTURAS_PROVEEDOR.CODIGO_POSTAL, - FACTURAS_PROVEEDOR.FECHA_ALTA, - FACTURAS_PROVEEDOR.FECHA_MODIFICACION, - FACTURAS_PROVEEDOR.USUARIO, - FACTURAS_PROVEEDOR.ID_FORMA_PAGO, - FACTURAS_PROVEEDOR.RECARGO_EQUIVALENCIA, - FACTURAS_PROVEEDOR.ID_TIPO_IVA, - FACTURAS_PROVEEDOR.IMPORTE_NETO, - FACTURAS_PROVEEDOR.IMPORTE_PORTE, - FACTURAS_PROVEEDOR.IGNORAR_CONTABILIDAD, - FACTURAS_PROVEEDOR.ID_TIENDA, - EMPRESAS_TIENDAS.NOMBRE AS TIENDA - FROM V_FAC_PRO_SITUACION - LEFT JOIN FACTURAS_PROVEEDOR - ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA) - LEFT JOIN PROVEEDORES_DATOS - ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR) - LEFT JOIN EMPRESAS_TIENDAS +SELECT FACTURAS_PROVEEDOR.ID, + FACTURAS_PROVEEDOR.ID_EMPRESA, + FACTURAS_PROVEEDOR.REFERENCIA, + CASE WHEN (FACTURAS_PROVEEDOR.IMPORTE_TOTAL < 0) THEN 'A' ELSE 'F' END AS TIPO, + FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR, + FACTURAS_PROVEEDOR.FECHA_FACTURA, + TRIM(V_FAC_PRO_SITUACION.SITUACION), + FACTURAS_PROVEEDOR.BASE_IMPONIBLE, + FACTURAS_PROVEEDOR.DESCUENTO, + FACTURAS_PROVEEDOR.IMPORTE_DESCUENTO, + FACTURAS_PROVEEDOR.IVA, + FACTURAS_PROVEEDOR.IMPORTE_IVA, + FACTURAS_PROVEEDOR.RE, + FACTURAS_PROVEEDOR.IMPORTE_RE, + FACTURAS_PROVEEDOR.IMPORTE_TOTAL, + FACTURAS_PROVEEDOR.OBSERVACIONES, + FACTURAS_PROVEEDOR.ID_PROVEEDOR, + FACTURAS_PROVEEDOR.NIF_CIF, + FACTURAS_PROVEEDOR.NOMBRE, + FACTURAS_PROVEEDOR.CALLE, + FACTURAS_PROVEEDOR.POBLACION, + FACTURAS_PROVEEDOR.PROVINCIA, + FACTURAS_PROVEEDOR.CODIGO_POSTAL, + FACTURAS_PROVEEDOR.FECHA_ALTA, + FACTURAS_PROVEEDOR.FECHA_MODIFICACION, + FACTURAS_PROVEEDOR.USUARIO, + FACTURAS_PROVEEDOR.ID_FORMA_PAGO, + FACTURAS_PROVEEDOR.RECARGO_EQUIVALENCIA, + FACTURAS_PROVEEDOR.ID_TIPO_IVA, + FACTURAS_PROVEEDOR.IMPORTE_NETO, + FACTURAS_PROVEEDOR.IMPORTE_PORTE, + FACTURAS_PROVEEDOR.IGNORAR_CONTABILIDAD, + FACTURAS_PROVEEDOR.ID_TIENDA, + EMPRESAS_TIENDAS.NOMBRE AS TIENDA + FROM V_FAC_PRO_SITUACION + LEFT JOIN FACTURAS_PROVEEDOR + ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA) + LEFT JOIN PROVEEDORES_DATOS + ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR) + LEFT JOIN EMPRESAS_TIENDAS ON (EMPRESAS_TIENDAS.ID = FACTURAS_PROVEEDOR.ID_TIENDA) ; @@ -2406,21 +2372,21 @@ CREATE VIEW V_HIS_MOV_ALB_CLI( CANTIDAD, CAUSA) AS -SELECT - ALBARANES_CLIENTE.FECHA_ALBARAN, - V_ALB_CLI_DETALLES.ID_ALMACEN, - V_ALB_CLI_DETALLES.ID_ARTICULO, - CASE WHEN V_ALB_CLI_DETALLES.CANTIDAD < 0 THEN 'Entrada' - ELSE 'Salida' END, - (-1)*V_ALB_CLI_DETALLES.CANTIDAD, - CASE WHEN ALBARANES_CLIENTE.IMPORTE_TOTAL < 0 THEN 'Orden de devolución de cliente ' || ALBARANES_CLIENTE.REFERENCIA - ELSE 'Albarán de cliente ' || ALBARANES_CLIENTE.REFERENCIA END - -FROM V_ALB_CLI_DETALLES -LEFT JOIN ALBARANES_CLIENTE -ON (V_ALB_CLI_DETALLES.ID_ALBARAN = ALBARANES_CLIENTE.ID) - -WHERE (V_ALB_CLI_DETALLES.ID_ALMACEN IS NOT NULL) +SELECT + ALBARANES_CLIENTE.FECHA_ALBARAN, + V_ALB_CLI_DETALLES.ID_ALMACEN, + V_ALB_CLI_DETALLES.ID_ARTICULO, + CASE WHEN V_ALB_CLI_DETALLES.CANTIDAD < 0 THEN 'Entrada' + ELSE 'Salida' END, + (-1)*V_ALB_CLI_DETALLES.CANTIDAD, + CASE WHEN ALBARANES_CLIENTE.IMPORTE_TOTAL < 0 THEN 'Orden de devolución de cliente ' || ALBARANES_CLIENTE.REFERENCIA + ELSE 'Albarán de cliente ' || ALBARANES_CLIENTE.REFERENCIA END + +FROM V_ALB_CLI_DETALLES +LEFT JOIN ALBARANES_CLIENTE +ON (V_ALB_CLI_DETALLES.ID_ALBARAN = ALBARANES_CLIENTE.ID) + +WHERE (V_ALB_CLI_DETALLES.ID_ALMACEN IS NOT NULL) AND (V_ALB_CLI_DETALLES.SITUACION in ('ENVIADO', 'SERVIDO')) ; @@ -2435,20 +2401,20 @@ CREATE VIEW V_HIS_MOV_ALB_PROV( CANTIDAD, CAUSA) AS -SELECT - ALBARANES_PROVEEDOR.FECHA_ALBARAN, - V_ALB_PROV_DETALLES.ID_ALMACEN, - V_ALB_PROV_DETALLES.ID_ARTICULO, - CASE WHEN V_ALB_PROV_DETALLES.CANTIDAD < 0 THEN 'Salida' - ELSE 'Entrada' END, - V_ALB_PROV_DETALLES.CANTIDAD, - CASE WHEN ALBARANES_PROVEEDOR.IMPORTE_TOTAL < 0 THEN 'Orden de devolución ' || ALBARANES_PROVEEDOR.REFERENCIA - ELSE 'Albarán de proveedor ' || ALBARANES_PROVEEDOR.REFERENCIA END - - -FROM V_ALB_PROV_DETALLES -LEFT JOIN ALBARANES_PROVEEDOR -ON (V_ALB_PROV_DETALLES.ID_ALBARAN = ALBARANES_PROVEEDOR.ID) +SELECT + ALBARANES_PROVEEDOR.FECHA_ALBARAN, + V_ALB_PROV_DETALLES.ID_ALMACEN, + V_ALB_PROV_DETALLES.ID_ARTICULO, + CASE WHEN V_ALB_PROV_DETALLES.CANTIDAD < 0 THEN 'Salida' + ELSE 'Entrada' END, + V_ALB_PROV_DETALLES.CANTIDAD, + CASE WHEN ALBARANES_PROVEEDOR.IMPORTE_TOTAL < 0 THEN 'Orden de devolución ' || ALBARANES_PROVEEDOR.REFERENCIA + ELSE 'Albarán de proveedor ' || ALBARANES_PROVEEDOR.REFERENCIA END + + +FROM V_ALB_PROV_DETALLES +LEFT JOIN ALBARANES_PROVEEDOR +ON (V_ALB_PROV_DETALLES.ID_ALBARAN = ALBARANES_PROVEEDOR.ID) WHERE (V_ALB_PROV_DETALLES.ID_ALMACEN IS NOT NULL) ; @@ -2463,12 +2429,12 @@ CREATE VIEW V_HIS_MOV_REGULARIZACIONES( CANTIDAD, CAUSA) AS -SELECT FECHA_MOVIMIENTO, ID_ALMACEN, ID_ARTICULO, -CASE WHEN TIPO = 'E' THEN 'Entrada' -ELSE 'Salida' END, -CASE WHEN TIPO = 'S' THEN (-1)* CANTIDAD - ELSE CANTIDAD END, -'Regularización por - ' || CAUSA +SELECT FECHA_MOVIMIENTO, ID_ALMACEN, ID_ARTICULO, +CASE WHEN TIPO = 'E' THEN 'Entrada' +ELSE 'Salida' END, +CASE WHEN TIPO = 'S' THEN (-1)* CANTIDAD + ELSE CANTIDAD END, +'Regularización por - ' || CAUSA FROM MOVIMIENTOS ; @@ -2483,31 +2449,31 @@ CREATE VIEW V_HIS_MOV_AUX( CANTIDAD, CAUSA) AS -SELECT - FECHA, - ID_ALMACEN, - ID_ARTICULO, - TIPO_MOVIMIENTO, - CANTIDAD, - CAUSA -FROM V_HIS_MOV_ALB_PROV -UNION ALL -SELECT - FECHA, - ID_ALMACEN, - ID_ARTICULO, - TIPO_MOVIMIENTO, - CANTIDAD, - CAUSA -FROM V_HIS_MOV_ALB_CLI -UNION ALL -SELECT - FECHA, - ID_ALMACEN, - ID_ARTICULO, - TIPO_MOVIMIENTO, - CANTIDAD, - CAUSA +SELECT + FECHA, + ID_ALMACEN, + ID_ARTICULO, + TIPO_MOVIMIENTO, + CANTIDAD, + CAUSA +FROM V_HIS_MOV_ALB_PROV +UNION ALL +SELECT + FECHA, + ID_ALMACEN, + ID_ARTICULO, + TIPO_MOVIMIENTO, + CANTIDAD, + CAUSA +FROM V_HIS_MOV_ALB_CLI +UNION ALL +SELECT + FECHA, + ID_ALMACEN, + ID_ARTICULO, + TIPO_MOVIMIENTO, + CANTIDAD, + CAUSA FROM V_HIS_MOV_REGULARIZACIONES ; @@ -2528,25 +2494,25 @@ CREATE VIEW V_HISTORICO_MOVIMIENTOS( CANTIDAD, CAUSA) AS -SELECT - V_HIS_MOV_AUX.FECHA, - V_HIS_MOV_AUX.ID_ALMACEN, - ALMACENES.ID_EMPRESA, - ALMACENES.NOMBRE, - V_HIS_MOV_AUX.ID_ARTICULO, - ARTICULOS.FAMILIA, - ARTICULOS.REFERENCIA, - ARTICULOS.REFERENCIA_PROV, - ARTICULOS.DESCRIPCION, - V_HIS_MOV_AUX.TIPO_MOVIMIENTO, - V_HIS_MOV_AUX.CANTIDAD, - V_HIS_MOV_AUX.CAUSA - -FROM V_HIS_MOV_AUX -LEFT JOIN ALMACENES ON (ALMACENES.ID = V_HIS_MOV_AUX.ID_ALMACEN) -LEFT JOIN ARTICULOS ON (ARTICULOS.ID = V_HIS_MOV_AUX.ID_ARTICULO) - -WHERE (V_HIS_MOV_AUX.ID_ARTICULO <> 0) +SELECT + V_HIS_MOV_AUX.FECHA, + V_HIS_MOV_AUX.ID_ALMACEN, + ALMACENES.ID_EMPRESA, + ALMACENES.NOMBRE, + V_HIS_MOV_AUX.ID_ARTICULO, + ARTICULOS.FAMILIA, + ARTICULOS.REFERENCIA, + ARTICULOS.REFERENCIA_PROV, + ARTICULOS.DESCRIPCION, + V_HIS_MOV_AUX.TIPO_MOVIMIENTO, + V_HIS_MOV_AUX.CANTIDAD, + V_HIS_MOV_AUX.CAUSA + +FROM V_HIS_MOV_AUX +LEFT JOIN ALMACENES ON (ALMACENES.ID = V_HIS_MOV_AUX.ID_ALMACEN) +LEFT JOIN ARTICULOS ON (ARTICULOS.ID = V_HIS_MOV_AUX.ID_ARTICULO) + +WHERE (V_HIS_MOV_AUX.ID_ARTICULO <> 0) AND (ARTICULOS.INVENTARIABLE = 1) ; @@ -2570,61 +2536,61 @@ CREATE VIEW V_INV_DETALLE_RESERVAS( DESCRIPCION_ART, CANTIDAD_ART) AS -SELECT - ALBARANES_CLIENTE_DETALLES.ID_ALBARAN, - ALBARANES_CLIENTE.ID_EMPRESA, - ALBARANES_CLIENTE.REFERENCIA, - V_ALB_CLI_SITUACION.SITUACION, - ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO, - ALBARANES_CLIENTE.ID_ALMACEN, - ALMACENES.NOMBRE AS ALMACEN, - ALBARANES_CLIENTE.ID_CLIENTE, - CONTACTOS.NOMBRE AS CLIENTE, - ARTICULOS.ID, - ARTICULOS.FAMILIA, - ARTICULOS.REFERENCIA, - ARTICULOS.REFERENCIA_PROV, - ARTICULOS.DESCRIPCION, - SUM(COALESCE(ALBARANES_CLIENTE_DETALLES.CANTIDAD, 0)) - -FROM ALBARANES_CLIENTE_DETALLES -LEFT JOIN ALBARANES_CLIENTE -ON (ALBARANES_CLIENTE_DETALLES.ID_ALBARAN = ALBARANES_CLIENTE.ID) -LEFT JOIN CONTACTOS -ON (ALBARANES_CLIENTE.ID_CLIENTE = CONTACTOS.ID) -LEFT JOIN ALMACENES -ON (ALBARANES_CLIENTE.ID_ALMACEN = ALMACENES.ID) -LEFT JOIN ARTICULOS -ON (ALBARANES_CLIENTE_DETALLES.ID_ARTICULO = ARTICULOS.ID) -LEFT JOIN V_ALB_CLI_SITUACION -ON (ALBARANES_CLIENTE_DETALLES.ID_ALBARAN = V_ALB_CLI_SITUACION.ID) - -/*Quitamos aquellos detalles que no tengan cabecera existente - aquellos que no se correspondan con un almacén es decir albaranes libres - que el albaran este pendiente (los articulos estan reservados en el almacen) - aquellos que no se correspondan con artículos existentes en el catalogo - y que no sean inventariables*/ -WHERE (ALBARANES_CLIENTE.ID IS NOT NULL) -AND (ALBARANES_CLIENTE.ID_ALMACEN IS NOT NULL) -AND (V_ALB_CLI_SITUACION.SITUACION = 'PENDIENTE') -AND (ARTICULOS.ID is not null) -AND (ARTICULOS.ELIMINADO = 0) -AND (ARTICULOS.INVENTARIABLE = 1) - -GROUP BY - ALBARANES_CLIENTE_DETALLES.ID_ALBARAN, - ALBARANES_CLIENTE.ID_EMPRESA, - ALBARANES_CLIENTE.REFERENCIA, - V_ALB_CLI_SITUACION.SITUACION, - ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO, - ALBARANES_CLIENTE.ID_ALMACEN, - ALMACENES.NOMBRE, - ALBARANES_CLIENTE.ID_CLIENTE, - CONTACTOS.NOMBRE, - ARTICULOS.ID, - ARTICULOS.FAMILIA, - ARTICULOS.REFERENCIA, - ARTICULOS.REFERENCIA_PROV, +SELECT + ALBARANES_CLIENTE_DETALLES.ID_ALBARAN, + ALBARANES_CLIENTE.ID_EMPRESA, + ALBARANES_CLIENTE.REFERENCIA, + V_ALB_CLI_SITUACION.SITUACION, + ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO, + ALBARANES_CLIENTE.ID_ALMACEN, + ALMACENES.NOMBRE AS ALMACEN, + ALBARANES_CLIENTE.ID_CLIENTE, + CONTACTOS.NOMBRE AS CLIENTE, + ARTICULOS.ID, + ARTICULOS.FAMILIA, + ARTICULOS.REFERENCIA, + ARTICULOS.REFERENCIA_PROV, + ARTICULOS.DESCRIPCION, + SUM(COALESCE(ALBARANES_CLIENTE_DETALLES.CANTIDAD, 0)) + +FROM ALBARANES_CLIENTE_DETALLES +LEFT JOIN ALBARANES_CLIENTE +ON (ALBARANES_CLIENTE_DETALLES.ID_ALBARAN = ALBARANES_CLIENTE.ID) +LEFT JOIN CONTACTOS +ON (ALBARANES_CLIENTE.ID_CLIENTE = CONTACTOS.ID) +LEFT JOIN ALMACENES +ON (ALBARANES_CLIENTE.ID_ALMACEN = ALMACENES.ID) +LEFT JOIN ARTICULOS +ON (ALBARANES_CLIENTE_DETALLES.ID_ARTICULO = ARTICULOS.ID) +LEFT JOIN V_ALB_CLI_SITUACION +ON (ALBARANES_CLIENTE_DETALLES.ID_ALBARAN = V_ALB_CLI_SITUACION.ID) + +/*Quitamos aquellos detalles que no tengan cabecera existente + aquellos que no se correspondan con un almacén es decir albaranes libres + que el albaran este pendiente (los articulos estan reservados en el almacen) + aquellos que no se correspondan con artículos existentes en el catalogo + y que no sean inventariables*/ +WHERE (ALBARANES_CLIENTE.ID IS NOT NULL) +AND (ALBARANES_CLIENTE.ID_ALMACEN IS NOT NULL) +AND (V_ALB_CLI_SITUACION.SITUACION = 'PENDIENTE') +AND (ARTICULOS.ID is not null) +AND (ARTICULOS.ELIMINADO = 0) +AND (ARTICULOS.INVENTARIABLE = 1) + +GROUP BY + ALBARANES_CLIENTE_DETALLES.ID_ALBARAN, + ALBARANES_CLIENTE.ID_EMPRESA, + ALBARANES_CLIENTE.REFERENCIA, + V_ALB_CLI_SITUACION.SITUACION, + ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO, + ALBARANES_CLIENTE.ID_ALMACEN, + ALMACENES.NOMBRE, + ALBARANES_CLIENTE.ID_CLIENTE, + CONTACTOS.NOMBRE, + ARTICULOS.ID, + ARTICULOS.FAMILIA, + ARTICULOS.REFERENCIA, + ARTICULOS.REFERENCIA_PROV, ARTICULOS.DESCRIPCION ; @@ -2636,9 +2602,9 @@ CREATE VIEW V_INV_ENTRADAS_ALB( ID_ARTICULO, CANTIDAD) AS -SELECT ID_ALMACEN, ID_ARTICULO, SUM(CANTIDAD) -FROM V_ALB_PROV_DETALLES -WHERE (ID_ALMACEN IS NOT NULL) +SELECT ID_ALMACEN, ID_ARTICULO, SUM(CANTIDAD) +FROM V_ALB_PROV_DETALLES +WHERE (ID_ALMACEN IS NOT NULL) GROUP BY ID_ALMACEN, ID_ARTICULO ; @@ -2650,9 +2616,9 @@ CREATE VIEW V_INV_ENTRADAS_MOV( ID_ARTICULO, CANTIDAD) AS -SELECT ID_ALMACEN, ID_ARTICULO, SUM(CANTIDAD) -FROM MOVIMIENTOS -WHERE TIPO = 'E' +SELECT ID_ALMACEN, ID_ARTICULO, SUM(CANTIDAD) +FROM MOVIMIENTOS +WHERE TIPO = 'E' GROUP BY ID_ALMACEN, ID_ARTICULO ; @@ -2665,16 +2631,16 @@ CREATE VIEW V_INV_ENTRADAS_AUX( ID_ARTICULO, CANTIDAD) AS -SELECT 'ALB', - ID_ALMACEN, - ID_ARTICULO, - CANTIDAD -FROM V_INV_ENTRADAS_ALB -UNION ALL -SELECT 'MOV', - ID_ALMACEN, - ID_ARTICULO, - CANTIDAD +SELECT 'ALB', + ID_ALMACEN, + ID_ARTICULO, + CANTIDAD +FROM V_INV_ENTRADAS_ALB +UNION ALL +SELECT 'MOV', + ID_ALMACEN, + ID_ARTICULO, + CANTIDAD FROM V_INV_ENTRADAS_MOV ; @@ -2686,13 +2652,13 @@ CREATE VIEW V_INV_ENTRADAS( ID_ARTICULO, CANTIDAD) AS -SELECT -ID_ALMACEN, -ID_ARTICULO, -SUM(CANTIDAD) as CANTIDAD -FROM V_INV_ENTRADAS_AUX - -GROUP BY ID_ALMACEN, +SELECT +ID_ALMACEN, +ID_ARTICULO, +SUM(CANTIDAD) as CANTIDAD +FROM V_INV_ENTRADAS_AUX + +GROUP BY ID_ALMACEN, ID_ARTICULO ; @@ -2704,9 +2670,9 @@ CREATE VIEW V_PED_PROV_ARTICULOS_RECIBIDOS( ID_ARTICULO, CANTIDAD) AS -SELECT ID_PEDIDO, ID_ARTICULO, SUM(CANTIDAD) AS CANTIDAD -FROM V_ALB_PROV_DETALLES -WHERE (ID_PEDIDO is not null) +SELECT ID_PEDIDO, ID_ARTICULO, SUM(CANTIDAD) AS CANTIDAD +FROM V_ALB_PROV_DETALLES +WHERE (ID_PEDIDO is not null) GROUP BY ID_PEDIDO, ID_ARTICULO ; @@ -2719,25 +2685,25 @@ CREATE VIEW V_PED_PROV_DETALLES( ID_ARTICULO, CANTIDAD) AS -SELECT PEDIDOS_PROVEEDOR_DETALLES.ID_PEDIDO, - PEDIDOS_PROVEEDOR.ID_ALMACEN, - COALESCE(PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO, 0), - SUM(COALESCE(PEDIDOS_PROVEEDOR_DETALLES.CANTIDAD, 0)) - -FROM PEDIDOS_PROVEEDOR_DETALLES -LEFT JOIN PEDIDOS_PROVEEDOR -ON (PEDIDOS_PROVEEDOR_DETALLES.ID_PEDIDO = PEDIDOS_PROVEEDOR.ID) - -/*Mantenemos los articulos inventariables y aquellos que no existan en nuestro catálogo con el fin de no falsear la situación de los pedidos -LEFT JOIN ARTICULOS -ON (PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID) - -WHERE (PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO is not null) -AND (ARTICULOS.INVENTARIABLE = 1) -*/ - -GROUP BY PEDIDOS_PROVEEDOR_DETALLES.ID_PEDIDO, - PEDIDOS_PROVEEDOR.ID_ALMACEN, +SELECT PEDIDOS_PROVEEDOR_DETALLES.ID_PEDIDO, + PEDIDOS_PROVEEDOR.ID_ALMACEN, + COALESCE(PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO, 0), + SUM(COALESCE(PEDIDOS_PROVEEDOR_DETALLES.CANTIDAD, 0)) + +FROM PEDIDOS_PROVEEDOR_DETALLES +LEFT JOIN PEDIDOS_PROVEEDOR +ON (PEDIDOS_PROVEEDOR_DETALLES.ID_PEDIDO = PEDIDOS_PROVEEDOR.ID) + +/*Mantenemos los articulos inventariables y aquellos que no existan en nuestro catálogo con el fin de no falsear la situación de los pedidos +LEFT JOIN ARTICULOS +ON (PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID) + +WHERE (PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO is not null) +AND (ARTICULOS.INVENTARIABLE = 1) +*/ + +GROUP BY PEDIDOS_PROVEEDOR_DETALLES.ID_PEDIDO, + PEDIDOS_PROVEEDOR.ID_ALMACEN, PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO ; @@ -2750,18 +2716,18 @@ CREATE VIEW V_PED_PROV_ARTICULOS_AUX( CANTIDAD_PEDIDA, CANTIDAD_RECIBIDA) AS -SELECT - V_PED_PROV_DETALLES.ID_PEDIDO, - V_PED_PROV_DETALLES.ID_ARTICULO, - V_PED_PROV_DETALLES.CANTIDAD AS CANTIDAD_PEDIDA, - 0 as CANTIDAD_RECIBIDA -FROM V_PED_PROV_DETALLES -UNION ALL -SELECT - V_PED_PROV_ARTICULOS_RECIBIDOS.ID_PEDIDO, - V_PED_PROV_ARTICULOS_RECIBIDOS.ID_ARTICULO, - NULL as CANTIDAD_PEDIDA, - V_PED_PROV_ARTICULOS_RECIBIDOS.CANTIDAD AS CANTIDAD_RECIBIDA +SELECT + V_PED_PROV_DETALLES.ID_PEDIDO, + V_PED_PROV_DETALLES.ID_ARTICULO, + V_PED_PROV_DETALLES.CANTIDAD AS CANTIDAD_PEDIDA, + 0 as CANTIDAD_RECIBIDA +FROM V_PED_PROV_DETALLES +UNION ALL +SELECT + V_PED_PROV_ARTICULOS_RECIBIDOS.ID_PEDIDO, + V_PED_PROV_ARTICULOS_RECIBIDOS.ID_ARTICULO, + NULL as CANTIDAD_PEDIDA, + V_PED_PROV_ARTICULOS_RECIBIDOS.CANTIDAD AS CANTIDAD_RECIBIDA FROM V_PED_PROV_ARTICULOS_RECIBIDOS ; @@ -2775,20 +2741,20 @@ CREATE VIEW V_PED_PROV_ARTICULOS( CANTIDAD_RECIBIDA, CANTIDAD_PENDIENTE) AS -SELECT ID_PEDIDO, - /*PEDIDOS_PROVEEDOR.ID_ALMACEN,*/ - ID_ARTICULO, - SUM(CANTIDAD_PEDIDA) as CANTIDAD_PEDIDA, - SUM(CANTIDAD_RECIBIDA) as CANTIDAD_RECIBIDA, - SUM(CANTIDAD_PEDIDA) - SUM(CANTIDAD_RECIBIDA) as CANTIDAD_PENDIENTE -FROM V_PED_PROV_ARTICULOS_AUX -/* -LEFT JOIN PEDIDOS_PROVEEDOR -ON (PEDIDOS_PROVEEDOR.ID = V_PED_PROV_ARTICULOS_AUX.ID_PEDIDO) -*/ -GROUP BY ID_PEDIDO, - /*PEDIDOS_PROVEEDOR.ID_ALMACEN,*/ - ID_ARTICULO +SELECT ID_PEDIDO, + /*PEDIDOS_PROVEEDOR.ID_ALMACEN,*/ + ID_ARTICULO, + SUM(CANTIDAD_PEDIDA) as CANTIDAD_PEDIDA, + SUM(CANTIDAD_RECIBIDA) as CANTIDAD_RECIBIDA, + SUM(CANTIDAD_PEDIDA) - SUM(CANTIDAD_RECIBIDA) as CANTIDAD_PENDIENTE +FROM V_PED_PROV_ARTICULOS_AUX +/* +LEFT JOIN PEDIDOS_PROVEEDOR +ON (PEDIDOS_PROVEEDOR.ID = V_PED_PROV_ARTICULOS_AUX.ID_PEDIDO) +*/ +GROUP BY ID_PEDIDO, + /*PEDIDOS_PROVEEDOR.ID_ALMACEN,*/ + ID_ARTICULO HAVING SUM(CANTIDAD_PEDIDA) IS NOT NULL ; @@ -2800,11 +2766,11 @@ CREATE VIEW V_INV_ENTRADAS_PENDIENTES( ID_ARTICULO, CANTIDAD) AS -SELECT PEDIDOS_PROVEEDOR.ID_ALMACEN, V_PED_PROV_ARTICULOS.ID_ARTICULO, SUM(V_PED_PROV_ARTICULOS.CANTIDAD_PENDIENTE) -FROM V_PED_PROV_ARTICULOS -LEFT JOIN PEDIDOS_PROVEEDOR -ON (PEDIDOS_PROVEEDOR.ID = V_PED_PROV_ARTICULOS.ID_PEDIDO) -WHERE (PEDIDOS_PROVEEDOR.ID_ALMACEN IS NOT NULL) +SELECT PEDIDOS_PROVEEDOR.ID_ALMACEN, V_PED_PROV_ARTICULOS.ID_ARTICULO, SUM(V_PED_PROV_ARTICULOS.CANTIDAD_PENDIENTE) +FROM V_PED_PROV_ARTICULOS +LEFT JOIN PEDIDOS_PROVEEDOR +ON (PEDIDOS_PROVEEDOR.ID = V_PED_PROV_ARTICULOS.ID_PEDIDO) +WHERE (PEDIDOS_PROVEEDOR.ID_ALMACEN IS NOT NULL) GROUP BY PEDIDOS_PROVEEDOR.ID_ALMACEN, V_PED_PROV_ARTICULOS.ID_ARTICULO ; @@ -2816,10 +2782,10 @@ CREATE VIEW V_INV_RESERVAS( ID_ARTICULO, CANTIDAD) AS -SELECT ID_ALMACEN, ID_ARTICULO, SUM(CANTIDAD) -FROM V_ALB_CLI_DETALLES -WHERE (ID_ALMACEN IS NOT NULL) -AND (SITUACION = 'PENDIENTE') +SELECT ID_ALMACEN, ID_ARTICULO, SUM(CANTIDAD) +FROM V_ALB_CLI_DETALLES +WHERE (ID_ALMACEN IS NOT NULL) +AND (SITUACION = 'PENDIENTE') GROUP BY ID_ALMACEN, ID_ARTICULO ; @@ -2831,10 +2797,10 @@ CREATE VIEW V_INV_SALIDAS_ALB( ID_ARTICULO, CANTIDAD) AS -SELECT ID_ALMACEN, ID_ARTICULO, SUM(CANTIDAD) -FROM V_ALB_CLI_DETALLES -WHERE (ID_ALMACEN IS NOT NULL) -AND (SITUACION in ('ENVIADO', 'SERVIDO')) +SELECT ID_ALMACEN, ID_ARTICULO, SUM(CANTIDAD) +FROM V_ALB_CLI_DETALLES +WHERE (ID_ALMACEN IS NOT NULL) +AND (SITUACION in ('ENVIADO', 'SERVIDO')) GROUP BY ID_ALMACEN, ID_ARTICULO ; @@ -2846,9 +2812,9 @@ CREATE VIEW V_INV_SALIDAS_MOV( ID_ARTICULO, CANTIDAD) AS -SELECT ID_ALMACEN, ID_ARTICULO, SUM(CANTIDAD) -FROM MOVIMIENTOS -WHERE TIPO = 'S' +SELECT ID_ALMACEN, ID_ARTICULO, SUM(CANTIDAD) +FROM MOVIMIENTOS +WHERE TIPO = 'S' GROUP BY ID_ALMACEN, ID_ARTICULO ; @@ -2860,14 +2826,14 @@ CREATE VIEW V_INV_SALIDAS_AUX( ID_ARTICULO, CANTIDAD) AS -SELECT ID_ALMACEN, - ID_ARTICULO, - CANTIDAD -FROM V_INV_SALIDAS_ALB -UNION ALL -SELECT ID_ALMACEN, - ID_ARTICULO, - CANTIDAD +SELECT ID_ALMACEN, + ID_ARTICULO, + CANTIDAD +FROM V_INV_SALIDAS_ALB +UNION ALL +SELECT ID_ALMACEN, + ID_ARTICULO, + CANTIDAD FROM V_INV_SALIDAS_MOV ; @@ -2879,13 +2845,13 @@ CREATE VIEW V_INV_SALIDAS( ID_ARTICULO, CANTIDAD) AS -SELECT -ID_ALMACEN, -ID_ARTICULO, -SUM(CANTIDAD) as CANTIDAD -FROM V_INV_SALIDAS_AUX - -GROUP BY ID_ALMACEN, +SELECT +ID_ALMACEN, +ID_ARTICULO, +SUM(CANTIDAD) as CANTIDAD +FROM V_INV_SALIDAS_AUX + +GROUP BY ID_ALMACEN, ID_ARTICULO ; @@ -2898,16 +2864,16 @@ CREATE VIEW V_INV_STOCK_AUX( CANTIDAD_ENTRADA, CANTIDAD_SALIDA) AS -SELECT ID_ALMACEN, - ID_ARTICULO, - CANTIDAD as CANTIDAD_ENTRADA, - 0 as CANTIDAD_SALIDA -FROM V_INV_ENTRADAS -UNION ALL -SELECT ID_ALMACEN, - ID_ARTICULO, - 0 as CANTIDAD_ENTRADA, - CANTIDAD as CANTIDAD_SALIDA +SELECT ID_ALMACEN, + ID_ARTICULO, + CANTIDAD as CANTIDAD_ENTRADA, + 0 as CANTIDAD_SALIDA +FROM V_INV_ENTRADAS +UNION ALL +SELECT ID_ALMACEN, + ID_ARTICULO, + 0 as CANTIDAD_ENTRADA, + CANTIDAD as CANTIDAD_SALIDA FROM V_INV_SALIDAS ; @@ -2919,12 +2885,12 @@ CREATE VIEW V_INV_STOCK( ID_ARTICULO, CANTIDAD) AS -SELECT -ID_ALMACEN, -ID_ARTICULO, -(SUM(CANTIDAD_ENTRADA) - SUM(CANTIDAD_SALIDA)) as CANTIDAD -FROM V_INV_STOCK_AUX -GROUP BY ID_ALMACEN, +SELECT +ID_ALMACEN, +ID_ARTICULO, +(SUM(CANTIDAD_ENTRADA) - SUM(CANTIDAD_SALIDA)) as CANTIDAD +FROM V_INV_STOCK_AUX +GROUP BY ID_ALMACEN, ID_ARTICULO ; @@ -2938,13 +2904,13 @@ CREATE VIEW V_INVENTARIO_AUX( PENDIENTE_RECEPCION, RESERVA) AS -SELECT ID_ALMACEN, ID_ARTICULO, CANTIDAD as STOCK, 0 as PENDIENTES, 0 as RESERVADAS -FROM V_INV_STOCK -UNION ALL -SELECT ID_ALMACEN, ID_ARTICULO, 0 as STOCK, CANTIDAD as PENDIENTES, 0 AS RESERVADAS -FROM V_INV_ENTRADAS_PENDIENTES -UNION ALL -SELECT ID_ALMACEN, ID_ARTICULO, 0 as STOCK, 0 as PENDIENTES, CANTIDAD AS RESERVADAS +SELECT ID_ALMACEN, ID_ARTICULO, CANTIDAD as STOCK, 0 as PENDIENTES, 0 as RESERVADAS +FROM V_INV_STOCK +UNION ALL +SELECT ID_ALMACEN, ID_ARTICULO, 0 as STOCK, CANTIDAD as PENDIENTES, 0 AS RESERVADAS +FROM V_INV_ENTRADAS_PENDIENTES +UNION ALL +SELECT ID_ALMACEN, ID_ARTICULO, 0 as STOCK, 0 as PENDIENTES, CANTIDAD AS RESERVADAS FROM V_INV_RESERVAS ; @@ -2967,44 +2933,44 @@ CREATE VIEW V_INVENTARIO( RESERVA, PENDIENTE_RECEPCION) AS -SELECT ID_ALMACEN, - ALMACENES.ID_EMPRESA, - ALMACENES.NOMBRE, - ID_ARTICULO, - ARTICULOS.REFERENCIA, - ARTICULOS.FAMILIA, - ARTICULOS.DESCRIPCION, - ARTICULOS.REFERENCIA_PROV, - COALESCE(ARTICULOS.PRECIO_NETO,0) as PRECIO_NETO, - (SUM(STOCK) - SUM(RESERVA)) as STOCK, - SUM(STOCK) as UNIDADES_ALMACEN, - - /*Si las unidades son negativas no se tiene en cuenta el coste*/ - CASE WHEN (SUM(STOCK) < 0) THEN 0 - ELSE (COALESCE(ARTICULOS.PRECIO_NETO,0) * SUM(STOCK)) - END as COSTE_UNIDADES, - - SUM(RESERVA) as RESERVA, - SUM(PENDIENTE_RECEPCION) as PENDIENTE_RECEPCION - -FROM V_INVENTARIO_AUX -LEFT JOIN ARTICULOS -ON (ARTICULOS.ID = V_INVENTARIO_AUX.ID_ARTICULO) -LEFT JOIN ALMACENES -ON (ALMACENES.ID = V_INVENTARIO_AUX.ID_ALMACEN) - -WHERE (ID_ARTICULO <> 0) -AND (ARTICULOS.ELIMINADO = 0) -AND (ARTICULOS.INVENTARIABLE = 1) - -GROUP BY ID_ALMACEN, - ALMACENES.ID_EMPRESA, - ALMACENES.NOMBRE, - ID_ARTICULO, - ARTICULOS.REFERENCIA, - ARTICULOS.FAMILIA, - ARTICULOS.DESCRIPCION, - ARTICULOS.REFERENCIA_PROV, +SELECT ID_ALMACEN, + ALMACENES.ID_EMPRESA, + ALMACENES.NOMBRE, + ID_ARTICULO, + ARTICULOS.REFERENCIA, + ARTICULOS.FAMILIA, + ARTICULOS.DESCRIPCION, + ARTICULOS.REFERENCIA_PROV, + COALESCE(ARTICULOS.PRECIO_NETO,0) as PRECIO_NETO, + (SUM(STOCK) - SUM(RESERVA)) as STOCK, + SUM(STOCK) as UNIDADES_ALMACEN, + + /*Si las unidades son negativas no se tiene en cuenta el coste*/ + CASE WHEN (SUM(STOCK) < 0) THEN 0 + ELSE (COALESCE(ARTICULOS.PRECIO_NETO,0) * SUM(STOCK)) + END as COSTE_UNIDADES, + + SUM(RESERVA) as RESERVA, + SUM(PENDIENTE_RECEPCION) as PENDIENTE_RECEPCION + +FROM V_INVENTARIO_AUX +LEFT JOIN ARTICULOS +ON (ARTICULOS.ID = V_INVENTARIO_AUX.ID_ARTICULO) +LEFT JOIN ALMACENES +ON (ALMACENES.ID = V_INVENTARIO_AUX.ID_ALMACEN) + +WHERE (ID_ARTICULO <> 0) +AND (ARTICULOS.ELIMINADO = 0) +AND (ARTICULOS.INVENTARIABLE = 1) + +GROUP BY ID_ALMACEN, + ALMACENES.ID_EMPRESA, + ALMACENES.NOMBRE, + ID_ARTICULO, + ARTICULOS.REFERENCIA, + ARTICULOS.FAMILIA, + ARTICULOS.DESCRIPCION, + ARTICULOS.REFERENCIA_PROV, ARTICULOS.PRECIO_NETO ; @@ -3015,13 +2981,13 @@ CREATE VIEW V_PED_PROV_SITUACION( ID_PEDIDO, SITUACION) AS -SELECT ID_PEDIDO, -CASE WHEN (SUM(CANTIDAD_PENDIENTE) > 0) AND (SUM(CANTIDAD_RECIBIDA) = 0) THEN 'PENDIENTE' - WHEN (SUM(CANTIDAD_PENDIENTE) <= 0) THEN 'RECIBIDO' - WHEN (SUM(CANTIDAD_PENDIENTE) > 0) AND (SUM(CANTIDAD_RECIBIDA) > 0) THEN 'PARCIAL' - ELSE 'N/A' -END AS SITUACION -FROM V_PED_PROV_ARTICULOS +SELECT ID_PEDIDO, +CASE WHEN (SUM(CANTIDAD_PENDIENTE) > 0) AND (SUM(CANTIDAD_RECIBIDA) = 0) THEN 'PENDIENTE' + WHEN (SUM(CANTIDAD_PENDIENTE) <= 0) THEN 'RECIBIDO' + WHEN (SUM(CANTIDAD_PENDIENTE) > 0) AND (SUM(CANTIDAD_RECIBIDA) > 0) THEN 'PARCIAL' + ELSE 'N/A' +END AS SITUACION +FROM V_PED_PROV_ARTICULOS GROUP BY V_PED_PROV_ARTICULOS.ID_PEDIDO ; @@ -3066,47 +3032,47 @@ CREATE VIEW V_PROVEEDORES( CERTIFICACION, IGNORAR_CONTABILIDAD) AS -SELECT - V_CONTACTOS.ID, - V_CONTACTOS.ID_CATEGORIA, - V_CONTACTOS.NIF_CIF, - V_CONTACTOS.NOMBRE, - V_CONTACTOS.PERSONA_CONTACTO, - V_CONTACTOS.CALLE, - V_CONTACTOS.POBLACION, - V_CONTACTOS.PROVINCIA, - V_CONTACTOS.CODIGO_POSTAL, - V_CONTACTOS.TELEFONO_1, - V_CONTACTOS.TELEFONO_2, - V_CONTACTOS.MOVIL_1, - V_CONTACTOS.MOVIL_2, - V_CONTACTOS.FAX, - V_CONTACTOS.EMAIL_1, - V_CONTACTOS.EMAIL_2, - V_CONTACTOS.PAGINA_WEB, - V_CONTACTOS.NOTAS, - V_CONTACTOS.FECHA_ALTA, - V_CONTACTOS.FECHA_MODIFICACION, - V_CONTACTOS.USUARIO, - V_CONTACTOS.ID_EMPRESA, - V_CONTACTOS.REFERENCIA, - V_CONTACTOS.ID_TIENDA, - V_CONTACTOS.TIENDA, - PROVEEDORES_DATOS.DESCUENTO, - PROVEEDORES_DATOS.DESCRIPCION_PROVEEDOR, - PROVEEDORES_DATOS.CODIGO_ASIGNADO, - PROVEEDORES_DATOS.GRUPO_PROVEEDOR, - PROVEEDORES_DATOS.REGIMEN_IVA, - PROVEEDORES_DATOS.ID_TIPO_IVA, - PROVEEDORES_DATOS.ID_FORMA_PAGO, - PROVEEDORES_DATOS.TIENDA_WEB, - PROVEEDORES_DATOS.HOMOLOGADO, - PROVEEDORES_DATOS.CERTIFICACION, - PROVEEDORES_DATOS.IGNORAR_CONTABILIDAD -FROM - PROVEEDORES_DATOS - INNER JOIN V_CONTACTOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = V_CONTACTOS.ID) -WHERE +SELECT + V_CONTACTOS.ID, + V_CONTACTOS.ID_CATEGORIA, + V_CONTACTOS.NIF_CIF, + V_CONTACTOS.NOMBRE, + V_CONTACTOS.PERSONA_CONTACTO, + V_CONTACTOS.CALLE, + V_CONTACTOS.POBLACION, + V_CONTACTOS.PROVINCIA, + V_CONTACTOS.CODIGO_POSTAL, + V_CONTACTOS.TELEFONO_1, + V_CONTACTOS.TELEFONO_2, + V_CONTACTOS.MOVIL_1, + V_CONTACTOS.MOVIL_2, + V_CONTACTOS.FAX, + V_CONTACTOS.EMAIL_1, + V_CONTACTOS.EMAIL_2, + V_CONTACTOS.PAGINA_WEB, + V_CONTACTOS.NOTAS, + V_CONTACTOS.FECHA_ALTA, + V_CONTACTOS.FECHA_MODIFICACION, + V_CONTACTOS.USUARIO, + V_CONTACTOS.ID_EMPRESA, + V_CONTACTOS.REFERENCIA, + V_CONTACTOS.ID_TIENDA, + V_CONTACTOS.TIENDA, + PROVEEDORES_DATOS.DESCUENTO, + PROVEEDORES_DATOS.DESCRIPCION_PROVEEDOR, + PROVEEDORES_DATOS.CODIGO_ASIGNADO, + PROVEEDORES_DATOS.GRUPO_PROVEEDOR, + PROVEEDORES_DATOS.REGIMEN_IVA, + PROVEEDORES_DATOS.ID_TIPO_IVA, + PROVEEDORES_DATOS.ID_FORMA_PAGO, + PROVEEDORES_DATOS.TIENDA_WEB, + PROVEEDORES_DATOS.HOMOLOGADO, + PROVEEDORES_DATOS.CERTIFICACION, + PROVEEDORES_DATOS.IGNORAR_CONTABILIDAD +FROM + PROVEEDORES_DATOS + INNER JOIN V_CONTACTOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = V_CONTACTOS.ID) +WHERE V_CONTACTOS.ID_CATEGORIA = 2 ; @@ -3152,50 +3118,50 @@ CREATE VIEW V_PEDIDOS_PROVEEDOR( ID_TIENDA, TIENDA) AS -SELECT - PEDIDOS_PROVEEDOR.ID, - PEDIDOS_PROVEEDOR.ID_EMPRESA, - PEDIDOS_PROVEEDOR.ID_PROVEEDOR, - V_PROVEEDORES.NOMBRE, - PEDIDOS_PROVEEDOR.REFERENCIA, - TRIM(V_PED_PROV_SITUACION.SITUACION), - PEDIDOS_PROVEEDOR.FECHA_ENVIO, - PEDIDOS_PROVEEDOR.FECHA_PEDIDO, - PEDIDOS_PROVEEDOR.FECHA_CONFIRMACION, - PEDIDOS_PROVEEDOR.FECHA_ENTREGA, - PEDIDOS_PROVEEDOR.ID_ALMACEN, - ALMACENES.NOMBRE AS NOMBRE_ALMACEN, - PEDIDOS_PROVEEDOR.OBSERVACIONES, - PEDIDOS_PROVEEDOR.IMPORTE_TOTAL, - PEDIDOS_PROVEEDOR.INCIDENCIAS, - PEDIDOS_PROVEEDOR.INCIDENCIAS_ACTIVAS, - PEDIDOS_PROVEEDOR.CALLE, - PEDIDOS_PROVEEDOR.POBLACION, - PEDIDOS_PROVEEDOR.PROVINCIA, - PEDIDOS_PROVEEDOR.CODIGO_POSTAL, - PEDIDOS_PROVEEDOR.PERSONA_CONTACTO, - PEDIDOS_PROVEEDOR.TELEFONO, - PEDIDOS_PROVEEDOR.FECHA_ALTA, - PEDIDOS_PROVEEDOR.FECHA_MODIFICACION, - PEDIDOS_PROVEEDOR.USUARIO, - PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE, - PEDIDOS_CLIENTE.REFERENCIA AS REF_PED_CLIENTE, - PEDIDOS_PROVEEDOR.IMPORTE_NETO, - PEDIDOS_PROVEEDOR.IMPORTE_PORTE, - PEDIDOS_PROVEEDOR.DESCUENTO, - PEDIDOS_PROVEEDOR.IMPORTE_DESCUENTO, - PEDIDOS_PROVEEDOR.BASE_IMPONIBLE, - PEDIDOS_PROVEEDOR.IVA, - PEDIDOS_PROVEEDOR.IMPORTE_IVA, - PEDIDOS_PROVEEDOR.ID_FORMA_PAGO, - PEDIDOS_PROVEEDOR.ID_TIENDA, - EMPRESAS_TIENDAS.NOMBRE AS TIENDA -FROM - PEDIDOS_PROVEEDOR - INNER JOIN V_PROVEEDORES ON (PEDIDOS_PROVEEDOR.ID_PROVEEDOR = V_PROVEEDORES.ID) - INNER JOIN V_PED_PROV_SITUACION ON (V_PED_PROV_SITUACION.ID_PEDIDO = PEDIDOS_PROVEEDOR.ID) - LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN) - LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE) +SELECT + PEDIDOS_PROVEEDOR.ID, + PEDIDOS_PROVEEDOR.ID_EMPRESA, + PEDIDOS_PROVEEDOR.ID_PROVEEDOR, + V_PROVEEDORES.NOMBRE, + PEDIDOS_PROVEEDOR.REFERENCIA, + TRIM(V_PED_PROV_SITUACION.SITUACION), + PEDIDOS_PROVEEDOR.FECHA_ENVIO, + PEDIDOS_PROVEEDOR.FECHA_PEDIDO, + PEDIDOS_PROVEEDOR.FECHA_CONFIRMACION, + PEDIDOS_PROVEEDOR.FECHA_ENTREGA, + PEDIDOS_PROVEEDOR.ID_ALMACEN, + ALMACENES.NOMBRE AS NOMBRE_ALMACEN, + PEDIDOS_PROVEEDOR.OBSERVACIONES, + PEDIDOS_PROVEEDOR.IMPORTE_TOTAL, + PEDIDOS_PROVEEDOR.INCIDENCIAS, + PEDIDOS_PROVEEDOR.INCIDENCIAS_ACTIVAS, + PEDIDOS_PROVEEDOR.CALLE, + PEDIDOS_PROVEEDOR.POBLACION, + PEDIDOS_PROVEEDOR.PROVINCIA, + PEDIDOS_PROVEEDOR.CODIGO_POSTAL, + PEDIDOS_PROVEEDOR.PERSONA_CONTACTO, + PEDIDOS_PROVEEDOR.TELEFONO, + PEDIDOS_PROVEEDOR.FECHA_ALTA, + PEDIDOS_PROVEEDOR.FECHA_MODIFICACION, + PEDIDOS_PROVEEDOR.USUARIO, + PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE, + PEDIDOS_CLIENTE.REFERENCIA AS REF_PED_CLIENTE, + PEDIDOS_PROVEEDOR.IMPORTE_NETO, + PEDIDOS_PROVEEDOR.IMPORTE_PORTE, + PEDIDOS_PROVEEDOR.DESCUENTO, + PEDIDOS_PROVEEDOR.IMPORTE_DESCUENTO, + PEDIDOS_PROVEEDOR.BASE_IMPONIBLE, + PEDIDOS_PROVEEDOR.IVA, + PEDIDOS_PROVEEDOR.IMPORTE_IVA, + PEDIDOS_PROVEEDOR.ID_FORMA_PAGO, + PEDIDOS_PROVEEDOR.ID_TIENDA, + EMPRESAS_TIENDAS.NOMBRE AS TIENDA +FROM + PEDIDOS_PROVEEDOR + INNER JOIN V_PROVEEDORES ON (PEDIDOS_PROVEEDOR.ID_PROVEEDOR = V_PROVEEDORES.ID) + INNER JOIN V_PED_PROV_SITUACION ON (V_PED_PROV_SITUACION.ID_PEDIDO = PEDIDOS_PROVEEDOR.ID) + LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN) + LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE) LEFT OUTER JOIN EMPRESAS_TIENDAS ON (EMPRESAS_TIENDAS.ID = PEDIDOS_PROVEEDOR.ID_TIENDA) ; @@ -3208,11 +3174,11 @@ CREATE VIEW V_PERFILES( LOGIN, TIPO) AS -SELECT - ID, USERNAME, LOGIN, TIPO - FROM - USUARIOS - WHERE TIPO = 'P' +SELECT + ID, USERNAME, LOGIN, TIPO + FROM + USUARIOS + WHERE TIPO = 'P' ORDER BY USERNAME ; @@ -3253,44 +3219,44 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE( ID_VENDEDOR, VENDEDOR) AS -SELECT - PRESUPUESTOS_CLIENTE.ID, - PRESUPUESTOS_CLIENTE.ID_EMPRESA, - PRESUPUESTOS_CLIENTE.FECHA_PRESUPUESTO, - PRESUPUESTOS_CLIENTE.FECHA_DECISION, - PRESUPUESTOS_CLIENTE.REFERENCIA, - PRESUPUESTOS_CLIENTE.SITUACION, - PRESUPUESTOS_CLIENTE.ID_CLIENTE, - CONTACTOS.NIF_CIF, - CONTACTOS.NOMBRE, - PRESUPUESTOS_CLIENTE.REFERENCIA_CLIENTE, - PRESUPUESTOS_CLIENTE.CLIENTE_FINAL, - PRESUPUESTOS_CLIENTE.PORTADA, - PRESUPUESTOS_CLIENTE.MEMORIA, - PRESUPUESTOS_CLIENTE.OBSERVACIONES, - PRESUPUESTOS_CLIENTE.INCIDENCIAS, - PRESUPUESTOS_CLIENTE.INCIDENCIAS_ACTIVAS, - PRESUPUESTOS_CLIENTE.FECHA_ALTA, - PRESUPUESTOS_CLIENTE.FECHA_MODIFICACION, - PRESUPUESTOS_CLIENTE.USUARIO, - PRESUPUESTOS_CLIENTE.IMPORTE_NETO, - PRESUPUESTOS_CLIENTE.IMPORTE_PORTE, - PRESUPUESTOS_CLIENTE.DESCUENTO, - PRESUPUESTOS_CLIENTE.IMPORTE_DESCUENTO, - PRESUPUESTOS_CLIENTE.BASE_IMPONIBLE, - PRESUPUESTOS_CLIENTE.IVA, - PRESUPUESTOS_CLIENTE.IMPORTE_IVA, - PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL, - PRESUPUESTOS_CLIENTE.ID_FORMA_PAGO, - PRESUPUESTOS_CLIENTE.id_tienda, - EMPRESAS_TIENDAS.NOMBRE AS TIENDA, - PRESUPUESTOS_CLIENTE.ID_VENDEDOR, - CONTACTOS2.NOMBRE AS VENDEDOR - -FROM - PRESUPUESTOS_CLIENTE - LEFT OUTER JOIN CONTACTOS ON (PRESUPUESTOS_CLIENTE.ID_CLIENTE = CONTACTOS.ID) - LEFT OUTER JOIN CONTACTOS CONTACTOS2 ON (PRESUPUESTOS_CLIENTE.ID_VENDEDOR = CONTACTOS2.ID) +SELECT + PRESUPUESTOS_CLIENTE.ID, + PRESUPUESTOS_CLIENTE.ID_EMPRESA, + PRESUPUESTOS_CLIENTE.FECHA_PRESUPUESTO, + PRESUPUESTOS_CLIENTE.FECHA_DECISION, + PRESUPUESTOS_CLIENTE.REFERENCIA, + PRESUPUESTOS_CLIENTE.SITUACION, + PRESUPUESTOS_CLIENTE.ID_CLIENTE, + CONTACTOS.NIF_CIF, + CONTACTOS.NOMBRE, + PRESUPUESTOS_CLIENTE.REFERENCIA_CLIENTE, + PRESUPUESTOS_CLIENTE.CLIENTE_FINAL, + PRESUPUESTOS_CLIENTE.PORTADA, + PRESUPUESTOS_CLIENTE.MEMORIA, + PRESUPUESTOS_CLIENTE.OBSERVACIONES, + PRESUPUESTOS_CLIENTE.INCIDENCIAS, + PRESUPUESTOS_CLIENTE.INCIDENCIAS_ACTIVAS, + PRESUPUESTOS_CLIENTE.FECHA_ALTA, + PRESUPUESTOS_CLIENTE.FECHA_MODIFICACION, + PRESUPUESTOS_CLIENTE.USUARIO, + PRESUPUESTOS_CLIENTE.IMPORTE_NETO, + PRESUPUESTOS_CLIENTE.IMPORTE_PORTE, + PRESUPUESTOS_CLIENTE.DESCUENTO, + PRESUPUESTOS_CLIENTE.IMPORTE_DESCUENTO, + PRESUPUESTOS_CLIENTE.BASE_IMPONIBLE, + PRESUPUESTOS_CLIENTE.IVA, + PRESUPUESTOS_CLIENTE.IMPORTE_IVA, + PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL, + PRESUPUESTOS_CLIENTE.ID_FORMA_PAGO, + PRESUPUESTOS_CLIENTE.id_tienda, + EMPRESAS_TIENDAS.NOMBRE AS TIENDA, + PRESUPUESTOS_CLIENTE.ID_VENDEDOR, + CONTACTOS2.NOMBRE AS VENDEDOR + +FROM + PRESUPUESTOS_CLIENTE + LEFT OUTER JOIN CONTACTOS ON (PRESUPUESTOS_CLIENTE.ID_CLIENTE = CONTACTOS.ID) + LEFT OUTER JOIN CONTACTOS CONTACTOS2 ON (PRESUPUESTOS_CLIENTE.ID_VENDEDOR = CONTACTOS2.ID) LEFT OUTER JOIN EMPRESAS_TIENDAS ON (EMPRESAS_TIENDAS.ID = PRESUPUESTOS_CLIENTE.ID_TIENDA) ; @@ -3301,9 +3267,9 @@ CREATE VIEW V_REC_CLI_COMPENSADOS( ID_RECIBO, IMPORTE_TOTAL_COMPENSADO) AS -select ID_RECIBO_COMPENSADO, SUM((IMPORTE + OTROS_GASTOS)) as IMPORTE_TOTAL -from RECIBOS_CLIENTE -where ID_RECIBO_COMPENSADO is not null +select ID_RECIBO_COMPENSADO, SUM((IMPORTE + OTROS_GASTOS)) as IMPORTE_TOTAL +from RECIBOS_CLIENTE +where ID_RECIBO_COMPENSADO is not null group by ID_RECIBO_COMPENSADO ; @@ -3314,9 +3280,9 @@ CREATE VIEW V_REC_PRO_COMPENSADOS( ID_RECIBO, IMPORTE_TOTAL_COMPENSADO) AS -select ID_RECIBO_COMPENSADO, SUM((IMPORTE + OTROS_GASTOS)) as IMPORTE_TOTAL -from RECIBOS_PROVEEDOR -where ID_RECIBO_COMPENSADO is not null +select ID_RECIBO_COMPENSADO, SUM((IMPORTE + OTROS_GASTOS)) as IMPORTE_TOTAL +from RECIBOS_PROVEEDOR +where ID_RECIBO_COMPENSADO is not null group by ID_RECIBO_COMPENSADO ; @@ -3385,7 +3351,7 @@ SELECT RECIBOS_CLIENTE.ID, RECIBOS_CLIENTE.FECHA_MODIFICACION, RECIBOS_CLIENTE.USUARIO, RECIBOS_CLIENTE.ID_TIENDA, - EMPRESAS_TIENDAS.NOMBRE AS TIENDA, + COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA, CONTACTOS.CALLE, CONTACTOS.POBLACION, CONTACTOS.CODIGO_POSTAL, @@ -3415,6 +3381,7 @@ ON (EMPRESAS_TIENDAS.ID = RECIBOS_CLIENTE.ID_TIENDA) ; + /* View: V_RECIBOS_PROVEEDOR */ CREATE VIEW V_RECIBOS_PROVEEDOR( ID, @@ -3449,51 +3416,51 @@ CREATE VIEW V_RECIBOS_PROVEEDOR( FECHA_MODIFICACION, USUARIO) AS -SELECT RECIBOS_PROVEEDOR.ID, - RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO, - RECIBO_COMPENSADO1.REFERENCIA, - RECIBOS_PROVEEDOR.REFERENCIA, - RECIBOS_PROVEEDOR.REFERENCIA_PROVEEDOR, - CASE - WHEN RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO IS NULL - THEN TRIM(V_REC_PRO_SITUACION.SITUACION) - ELSE TRIM(RECIBO_COMPENSADO2.SITUACION) - END, - RECIBOS_PROVEEDOR.ID_FACTURA, - RECIBOS_PROVEEDOR.ID_REMESA, REMESAS_PROVEEDOR.REFERENCIA as REFERENCIA_REMESA, - RECIBOS_PROVEEDOR.FECHA_EMISION, RECIBOS_PROVEEDOR.FECHA_VENCIMIENTO, RECIBOS_PROVEEDOR.DESCRIPCION, - RECIBOS_PROVEEDOR.OBSERVACIONES, RECIBOS_PROVEEDOR.IMPORTE, RECIBOS_PROVEEDOR.OTROS_GASTOS, - COALESCE(RECIBOS_PROVEEDOR.IMPORTE, 0) + COALESCE(RECIBOS_PROVEEDOR.OTROS_GASTOS, 0) + COALESCE(V_REC_PRO_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO, 0), - - FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR, FACTURAS_PROVEEDOR.FECHA_FACTURA, - FORMAS_PAGO.DESCRIPCION, FACTURAS_PROVEEDOR.IMPORTE_TOTAL, - FACTURAS_PROVEEDOR.ID_EMPRESA, - - CONTACTOS.ID as ID_PROVEEDOR, CONTACTOS.NOMBRE, CONTACTOS.NIF_CIF, CONTACTOS_DATOS_BANCO.ENTIDAD, - CONTACTOS_DATOS_BANCO.SUCURSAL, CONTACTOS_DATOS_BANCO.DC, CONTACTOS_DATOS_BANCO.CUENTA, - - RECIBOS_PROVEEDOR.FECHA_ALTA, - RECIBOS_PROVEEDOR.FECHA_MODIFICACION, - RECIBOS_PROVEEDOR.USUARIO - -FROM RECIBOS_PROVEEDOR -LEFT JOIN V_REC_PRO_SITUACION -ON (V_REC_PRO_SITUACION.ID_RECIBO = RECIBOS_PROVEEDOR.ID) -LEFT JOIN FACTURAS_PROVEEDOR -ON (FACTURAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_FACTURA) -LEFT JOIN FORMAS_PAGO -ON (FORMAS_PAGO.ID = FACTURAS_PROVEEDOR.ID_FORMA_PAGO) -LEFT JOIN CONTACTOS -ON (CONTACTOS.ID = FACTURAS_PROVEEDOR.ID_PROVEEDOR) -LEFT JOIN CONTACTOS_DATOS_BANCO -ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = CONTACTOS.ID) -LEFT JOIN REMESAS_PROVEEDOR -ON (REMESAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_REMESA) -LEFT JOIN V_REC_PRO_COMPENSADOS -ON (V_REC_PRO_COMPENSADOS.ID_RECIBO = RECIBOS_PROVEEDOR.ID) -LEFT JOIN RECIBOS_PROVEEDOR RECIBO_COMPENSADO1 -ON (RECIBO_COMPENSADO1.ID = RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO) -LEFT JOIN V_REC_PRO_SITUACION RECIBO_COMPENSADO2 +SELECT RECIBOS_PROVEEDOR.ID, + RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO, + RECIBO_COMPENSADO1.REFERENCIA, + RECIBOS_PROVEEDOR.REFERENCIA, + RECIBOS_PROVEEDOR.REFERENCIA_PROVEEDOR, + CASE + WHEN RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO IS NULL + THEN TRIM(V_REC_PRO_SITUACION.SITUACION) + ELSE TRIM(RECIBO_COMPENSADO2.SITUACION) + END, + RECIBOS_PROVEEDOR.ID_FACTURA, + RECIBOS_PROVEEDOR.ID_REMESA, REMESAS_PROVEEDOR.REFERENCIA as REFERENCIA_REMESA, + RECIBOS_PROVEEDOR.FECHA_EMISION, RECIBOS_PROVEEDOR.FECHA_VENCIMIENTO, RECIBOS_PROVEEDOR.DESCRIPCION, + RECIBOS_PROVEEDOR.OBSERVACIONES, RECIBOS_PROVEEDOR.IMPORTE, RECIBOS_PROVEEDOR.OTROS_GASTOS, + COALESCE(RECIBOS_PROVEEDOR.IMPORTE, 0) + COALESCE(RECIBOS_PROVEEDOR.OTROS_GASTOS, 0) + COALESCE(V_REC_PRO_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO, 0), + + FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR, FACTURAS_PROVEEDOR.FECHA_FACTURA, + FORMAS_PAGO.DESCRIPCION, FACTURAS_PROVEEDOR.IMPORTE_TOTAL, + FACTURAS_PROVEEDOR.ID_EMPRESA, + + CONTACTOS.ID as ID_PROVEEDOR, CONTACTOS.NOMBRE, CONTACTOS.NIF_CIF, CONTACTOS_DATOS_BANCO.ENTIDAD, + CONTACTOS_DATOS_BANCO.SUCURSAL, CONTACTOS_DATOS_BANCO.DC, CONTACTOS_DATOS_BANCO.CUENTA, + + RECIBOS_PROVEEDOR.FECHA_ALTA, + RECIBOS_PROVEEDOR.FECHA_MODIFICACION, + RECIBOS_PROVEEDOR.USUARIO + +FROM RECIBOS_PROVEEDOR +LEFT JOIN V_REC_PRO_SITUACION +ON (V_REC_PRO_SITUACION.ID_RECIBO = RECIBOS_PROVEEDOR.ID) +LEFT JOIN FACTURAS_PROVEEDOR +ON (FACTURAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_FACTURA) +LEFT JOIN FORMAS_PAGO +ON (FORMAS_PAGO.ID = FACTURAS_PROVEEDOR.ID_FORMA_PAGO) +LEFT JOIN CONTACTOS +ON (CONTACTOS.ID = FACTURAS_PROVEEDOR.ID_PROVEEDOR) +LEFT JOIN CONTACTOS_DATOS_BANCO +ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = CONTACTOS.ID) +LEFT JOIN REMESAS_PROVEEDOR +ON (REMESAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_REMESA) +LEFT JOIN V_REC_PRO_COMPENSADOS +ON (V_REC_PRO_COMPENSADOS.ID_RECIBO = RECIBOS_PROVEEDOR.ID) +LEFT JOIN RECIBOS_PROVEEDOR RECIBO_COMPENSADO1 +ON (RECIBO_COMPENSADO1.ID = RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO) +LEFT JOIN V_REC_PRO_SITUACION RECIBO_COMPENSADO2 ON (RECIBO_COMPENSADO2.ID_RECIBO = RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO) ; @@ -3520,31 +3487,31 @@ CREATE VIEW V_REMESAS_CLIENTE( SUFIJO_N58, IMPORTE_TOTAL) AS -SELECT - REMESAS_CLIENTE.ID, - REMESAS_CLIENTE.ID_EMPRESA, - REMESAS_CLIENTE.REFERENCIA, - REMESAS_CLIENTE.TIPO, - REMESAS_CLIENTE.FECHA_REMESA, - REMESAS_CLIENTE.DESCRIPCION, - REMESAS_CLIENTE.ID_DATOS_BANCO, - REMESAS_CLIENTE.FECHA_ALTA, - REMESAS_CLIENTE.FECHA_MODIFICACION, - REMESAS_CLIENTE.USUARIO, - EMPRESAS_DATOS_BANCO.NOMBRE, - EMPRESAS_DATOS_BANCO.ENTIDAD, - EMPRESAS_DATOS_BANCO.SUCURSAL, - EMPRESAS_DATOS_BANCO.DC, - EMPRESAS_DATOS_BANCO.CUENTA, - EMPRESAS_DATOS_BANCO.SUFIJO_N19, - EMPRESAS_DATOS_BANCO.SUFIJO_N58, - SUM(COALESCE(RECIBOS_CLIENTE.IMPORTE,0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS,0) + COALESCE(V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL - -FROM - REMESAS_CLIENTE - LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_CLIENTE.ID_DATOS_BANCO) - LEFT OUTER JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID_REMESA = REMESAS_CLIENTE.ID) - LEFT OUTER JOIN V_REC_CLI_COMPENSADOS ON (V_REC_CLI_COMPENSADOS.ID_RECIBO = RECIBOS_CLIENTE.ID) +SELECT + REMESAS_CLIENTE.ID, + REMESAS_CLIENTE.ID_EMPRESA, + REMESAS_CLIENTE.REFERENCIA, + REMESAS_CLIENTE.TIPO, + REMESAS_CLIENTE.FECHA_REMESA, + REMESAS_CLIENTE.DESCRIPCION, + REMESAS_CLIENTE.ID_DATOS_BANCO, + REMESAS_CLIENTE.FECHA_ALTA, + REMESAS_CLIENTE.FECHA_MODIFICACION, + REMESAS_CLIENTE.USUARIO, + EMPRESAS_DATOS_BANCO.NOMBRE, + EMPRESAS_DATOS_BANCO.ENTIDAD, + EMPRESAS_DATOS_BANCO.SUCURSAL, + EMPRESAS_DATOS_BANCO.DC, + EMPRESAS_DATOS_BANCO.CUENTA, + EMPRESAS_DATOS_BANCO.SUFIJO_N19, + EMPRESAS_DATOS_BANCO.SUFIJO_N58, + SUM(COALESCE(RECIBOS_CLIENTE.IMPORTE,0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS,0) + COALESCE(V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL + +FROM + REMESAS_CLIENTE + LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_CLIENTE.ID_DATOS_BANCO) + LEFT OUTER JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID_REMESA = REMESAS_CLIENTE.ID) + LEFT OUTER JOIN V_REC_CLI_COMPENSADOS ON (V_REC_CLI_COMPENSADOS.ID_RECIBO = RECIBOS_CLIENTE.ID) GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17 ; @@ -3571,31 +3538,31 @@ CREATE VIEW V_REMESAS_PROVEEDOR( SUFIJO_N58, IMPORTE_TOTAL) AS -SELECT - REMESAS_PROVEEDOR.ID, - REMESAS_PROVEEDOR.ID_EMPRESA, - REMESAS_PROVEEDOR.REFERENCIA, - REMESAS_PROVEEDOR.TIPO, - REMESAS_PROVEEDOR.FECHA_REMESA, - REMESAS_PROVEEDOR.DESCRIPCION, - REMESAS_PROVEEDOR.ID_DATOS_BANCO, - REMESAS_PROVEEDOR.FECHA_ALTA, - REMESAS_PROVEEDOR.FECHA_MODIFICACION, - REMESAS_PROVEEDOR.USUARIO, - EMPRESAS_DATOS_BANCO.NOMBRE, - EMPRESAS_DATOS_BANCO.ENTIDAD, - EMPRESAS_DATOS_BANCO.SUCURSAL, - EMPRESAS_DATOS_BANCO.DC, - EMPRESAS_DATOS_BANCO.CUENTA, - EMPRESAS_DATOS_BANCO.SUFIJO_N19, - EMPRESAS_DATOS_BANCO.SUFIJO_N58, - SUM(COALESCE(RECIBOS_PROVEEDOR.IMPORTE,0) + COALESCE(RECIBOS_PROVEEDOR.OTROS_GASTOS,0) + COALESCE(V_REC_PRO_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL - -FROM - REMESAS_PROVEEDOR - LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_PROVEEDOR.ID_DATOS_BANCO) - LEFT OUTER JOIN RECIBOS_PROVEEDOR ON (RECIBOS_PROVEEDOR.ID_REMESA = REMESAS_PROVEEDOR.ID) - LEFT OUTER JOIN V_REC_PRO_COMPENSADOS ON (V_REC_PRO_COMPENSADOS.ID_RECIBO = RECIBOS_PROVEEDOR.ID) +SELECT + REMESAS_PROVEEDOR.ID, + REMESAS_PROVEEDOR.ID_EMPRESA, + REMESAS_PROVEEDOR.REFERENCIA, + REMESAS_PROVEEDOR.TIPO, + REMESAS_PROVEEDOR.FECHA_REMESA, + REMESAS_PROVEEDOR.DESCRIPCION, + REMESAS_PROVEEDOR.ID_DATOS_BANCO, + REMESAS_PROVEEDOR.FECHA_ALTA, + REMESAS_PROVEEDOR.FECHA_MODIFICACION, + REMESAS_PROVEEDOR.USUARIO, + EMPRESAS_DATOS_BANCO.NOMBRE, + EMPRESAS_DATOS_BANCO.ENTIDAD, + EMPRESAS_DATOS_BANCO.SUCURSAL, + EMPRESAS_DATOS_BANCO.DC, + EMPRESAS_DATOS_BANCO.CUENTA, + EMPRESAS_DATOS_BANCO.SUFIJO_N19, + EMPRESAS_DATOS_BANCO.SUFIJO_N58, + SUM(COALESCE(RECIBOS_PROVEEDOR.IMPORTE,0) + COALESCE(RECIBOS_PROVEEDOR.OTROS_GASTOS,0) + COALESCE(V_REC_PRO_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL + +FROM + REMESAS_PROVEEDOR + LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_PROVEEDOR.ID_DATOS_BANCO) + LEFT OUTER JOIN RECIBOS_PROVEEDOR ON (RECIBOS_PROVEEDOR.ID_REMESA = REMESAS_PROVEEDOR.ID) + LEFT OUTER JOIN V_REC_PRO_COMPENSADOS ON (V_REC_PRO_COMPENSADOS.ID_RECIBO = RECIBOS_PROVEEDOR.ID) GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17 ; @@ -3618,16 +3585,16 @@ CREATE VIEW V_USUARIOS( ID_EMPLEADO, ID_TIENDA) AS -SELECT - USUARIOS.ID, USUARIOS.USERNAME, USUARIOS.LOGIN, USUARIOS.PASS, USUARIOS.PASSEXPIRED, - USUARIOS.BLOQUEADO, USUARIOS.EMAIL, USUARIOS.USERDAYSSUN, USUARIOS.PRIVILEGED, - USUARIOS.TIPO, USUARIOS.ID_PERFIL, USUARIOS.CHECKSUM, EMPLEADOS_DATOS.ID_EMPLEADO, - CONTACTOS.ID_TIENDA -FROM - USUARIOS - LEFT JOIN EMPLEADOS_DATOS ON (EMPLEADOS_DATOS.ID_USUARIO = USUARIOS.ID) - LEFT JOIN CONTACTOS ON (CONTACTOS.ID = EMPLEADOS_DATOS.ID_EMPLEADO) - WHERE TIPO = 'U' +SELECT + USUARIOS.ID, USUARIOS.USERNAME, USUARIOS.LOGIN, USUARIOS.PASS, USUARIOS.PASSEXPIRED, + USUARIOS.BLOQUEADO, USUARIOS.EMAIL, USUARIOS.USERDAYSSUN, USUARIOS.PRIVILEGED, + USUARIOS.TIPO, USUARIOS.ID_PERFIL, USUARIOS.CHECKSUM, EMPLEADOS_DATOS.ID_EMPLEADO, + CONTACTOS.ID_TIENDA +FROM + USUARIOS + LEFT JOIN EMPLEADOS_DATOS ON (EMPLEADOS_DATOS.ID_USUARIO = USUARIOS.ID) + LEFT JOIN CONTACTOS ON (CONTACTOS.ID = EMPLEADOS_DATOS.ID_EMPLEADO) + WHERE TIPO = 'U' ORDER BY USERNAME ; @@ -3638,7 +3605,6 @@ FROM /**** Primary Keys ****/ /******************************************************************************/ -ALTER TABLE TIPOS_VENTA ADD CONSTRAINT PK_TIPOS_VENTA PRIMARY KEY (ID); ALTER TABLE AGENTES_COMISIONES ADD CONSTRAINT PK_AGENTES_COMISIONES PRIMARY KEY (ID); ALTER TABLE ALBARANES_CLIENTE ADD CONSTRAINT PK_ALBARANES_CLIENTE PRIMARY KEY (ID); ALTER TABLE ALBARANES_CLIENTE_DETALLES ADD CONSTRAINT PK_ALBARANES_CLIENTE_DETALLES PRIMARY KEY (ID); @@ -3649,7 +3615,10 @@ ALTER TABLE ARTICULOS ADD CONSTRAINT PK_ARTICULOS PRIMARY KEY (ID); ALTER TABLE CATEGORIAS ADD CONSTRAINT PK_CATEGORIAS PRIMARY KEY (ID); ALTER TABLE CLIENTES_DATOS ADD CONSTRAINT PK_CLIENTES_DATOS PRIMARY KEY (ID_CLIENTE); ALTER TABLE CLIENTES_DTOS_PROVEEDORES ADD CONSTRAINT PK_CLIENTES_DTOS_PROV PRIMARY KEY (ID); +ALTER TABLE CLIENTES_GRUPOS ADD CONSTRAINT PK_CLIENTES_GRUPOS PRIMARY KEY (ID); +ALTER TABLE CLIENTES_PROCEDENCIAS ADD CONSTRAINT PK_CLIENTES_PROCEDENCIAS PRIMARY KEY (ID); ALTER TABLE COMISIONES_LIQUIDADAS ADD CONSTRAINT PK_COMISIONES_LIQUIDADAS PRIMARY KEY (ID); +ALTER TABLE CONFIGURACION ADD CONSTRAINT PK_CONFIGURACION PRIMARY KEY (ID); ALTER TABLE CONTACTOS ADD CONSTRAINT PK_CONTACTOS PRIMARY KEY (ID); ALTER TABLE CONTACTOS_CATEGORIAS ADD CONSTRAINT PK_CONTACTOS_CATEGORIAS PRIMARY KEY (ID_CONTACTO, ID_CATEGORIA); ALTER TABLE CONTACTOS_DATOS_BANCO ADD CONSTRAINT PK_CONTACTOS_DATOS_BANCO PRIMARY KEY (ID); @@ -3663,6 +3632,7 @@ ALTER TABLE CONT_EJERCICIOS ADD CONSTRAINT PK_CONT_EJERCICIOS PRIMARY KEY (ID); ALTER TABLE CONT_EPIGRAFES ADD CONSTRAINT PK_CONT_EPIGRAFES PRIMARY KEY (ID); ALTER TABLE CONT_SUBCUENTAS ADD CONSTRAINT PK_CONT_SUBCUENTAS PRIMARY KEY (ID); ALTER TABLE EMPLEADOS_DATOS ADD CONSTRAINT PK_EMPLEADOS_DATOS PRIMARY KEY (ID_EMPLEADO); +ALTER TABLE EMPLEADOS_GRUPOS ADD CONSTRAINT PK_EMPLEADOS_GRUPOS PRIMARY KEY (ID); ALTER TABLE EMPRESAS ADD CONSTRAINT PK_EMPRESAS PRIMARY KEY (ID); ALTER TABLE EMPRESAS_CONTACTOS ADD CONSTRAINT PK_EMPRESAS_CONTACTOS PRIMARY KEY (ID); ALTER TABLE EMPRESAS_DATOS_BANCO ADD CONSTRAINT PK_EMPRESAS_DATOS_BANCO PRIMARY KEY (ID); @@ -3672,6 +3642,7 @@ ALTER TABLE FACTURAS_CLIENTE ADD CONSTRAINT PK_FACTURAS_CLIENTE PRIMARY KEY (ID) ALTER TABLE FACTURAS_CLIENTE_DETALLES ADD CONSTRAINT PK_FACTURAS_CLIENTE_DETALLES PRIMARY KEY (ID); ALTER TABLE FACTURAS_PROVEEDOR ADD CONSTRAINT PK_FACTURAS_PROVEEDOR PRIMARY KEY (ID); ALTER TABLE FACTURAS_PROVEEDOR_DETALLES ADD CONSTRAINT PK_FACTURAS_PROVEEDOR_DETALLES PRIMARY KEY (ID); +ALTER TABLE FAMILIAS ADD CONSTRAINT PK_FAMILIAS PRIMARY KEY (ID); ALTER TABLE FORMAS_PAGO ADD PRIMARY KEY (ID); ALTER TABLE FORMAS_PAGO_PLAZOS ADD PRIMARY KEY (ID); ALTER TABLE INFORMES ADD CONSTRAINT PK_INFORMES PRIMARY KEY (ID); @@ -3682,26 +3653,23 @@ ALTER TABLE PEDIDOS_CLIENTE ADD CONSTRAINT PK_PEDIDOS_CLIENTE PRIMARY KEY (ID); ALTER TABLE PEDIDOS_CLIENTE_DETALLES ADD CONSTRAINT PK_PEDIDOS_CLIENTE_DETALLES PRIMARY KEY (ID); ALTER TABLE PEDIDOS_PROVEEDOR ADD CONSTRAINT PK_PEDIDOS_PROVEEDOR PRIMARY KEY (ID); ALTER TABLE PEDIDOS_PROVEEDOR_DETALLES ADD CONSTRAINT PK_PEDIDOS_PROVEEDOR_DETALLES PRIMARY KEY (ID); +ALTER TABLE PERMISOS ADD CONSTRAINT PK_PERMISOS PRIMARY KEY (ID); +ALTER TABLE PERMISOSEX ADD CONSTRAINT PK_PERMISOSEX PRIMARY KEY (ID); ALTER TABLE PRESUPUESTOS_CLIENTE ADD CONSTRAINT PK_PRESUPUESTOS_CLIENTE PRIMARY KEY (ID); ALTER TABLE PRESUPUESTOS_CLIENTE_DETALLES ADD CONSTRAINT PK_PRESUPUESTOS_CLIENTE_DETALLE PRIMARY KEY (ID); ALTER TABLE PROVEEDORES_DATOS ADD CONSTRAINT PK_PROVEEDORES_DATOS PRIMARY KEY (ID_PROVEEDOR); +ALTER TABLE PROVEEDORES_GRUPOS ADD CONSTRAINT PK_PROVEEDORES_GRUPOS PRIMARY KEY (ID); ALTER TABLE RECIBOS_CLIENTE ADD CONSTRAINT PK_RECIBOS_CLIENTE PRIMARY KEY (ID); ALTER TABLE RECIBOS_PROVEEDOR ADD CONSTRAINT PK_RECIBOS_PROVEEDOR PRIMARY KEY (ID); ALTER TABLE REMESAS_CLIENTE ADD CONSTRAINT PK_REMESAS_CLIENTE PRIMARY KEY (ID); ALTER TABLE REMESAS_PROVEEDOR ADD CONSTRAINT PK_REMESAS_PROVEEDOR PRIMARY KEY (ID); ALTER TABLE TIENDA_WEB ADD CONSTRAINT PK_TIENDA_WEB PRIMARY KEY (ID); ALTER TABLE TIPOS_IVA ADD PRIMARY KEY (ID); +ALTER TABLE TIPOS_VENTA ADD CONSTRAINT PK_TIPOS_VENTA PRIMARY KEY (ID); +ALTER TABLE UNIDADES_MEDIDA ADD PRIMARY KEY (ID); ALTER TABLE USUARIOS ADD CONSTRAINT PK_USUARIOS PRIMARY KEY (ID); ALTER TABLE USUARIOS_LOGON ADD CONSTRAINT PK_USUARIOS_LOGON PRIMARY KEY (LOGONID); -ALTER TABLE UNIDADES_MEDIDA ADD PRIMARY KEY (ID); -ALTER TABLE CLIENTES_GRUPOS ADD CONSTRAINT PK_CLIENTES_GRUPOS PRIMARY KEY (ID); -ALTER TABLE PROVEEDORES_GRUPOS ADD CONSTRAINT PK_PROVEEDORES_GRUPOS PRIMARY KEY (ID); -ALTER TABLE CLIENTES_PROCEDENCIAS ADD CONSTRAINT PK_CLIENTES_PROCEDENCIAS PRIMARY KEY (ID); -ALTER TABLE CONFIGURACION ADD CONSTRAINT PK_CONFIGURACION PRIMARY KEY (ID); -ALTER TABLE EMPLEADOS_GRUPOS ADD CONSTRAINT PK_EMPLEADOS_GRUPOS PRIMARY KEY (ID); -ALTER TABLE FAMILIAS ADD CONSTRAINT PK_FAMILIAS PRIMARY KEY (ID); -ALTER TABLE PERMISOS ADD CONSTRAINT PK_PERMISOS PRIMARY KEY (ID); -ALTER TABLE PERMISOSEX ADD CONSTRAINT PK_PERMISOSEX PRIMARY KEY (ID); + /******************************************************************************/ /**** Foreign Keys ****/ @@ -3761,6 +3729,13 @@ CREATE INDEX IDX_CONTACTOS_CATEGORIAS ON CONTACTOS_CATEGORIAS (ID_CONTACTO); CREATE INDEX IDX_CONTACTOS_CATEGORIAS1 ON CONTACTOS_CATEGORIAS (ID_CATEGORIA); CREATE INDEX IDX_CONTACTOS_DATOS_BANCO ON CONTACTOS_DATOS_BANCO (ID_CONTACTO); CREATE INDEX IDX_CONTACTOS_DIR_ID_CONTACTO ON CONTACTOS_DIRECCIONES (ID_CONTACTO); +CREATE INDEX CONT_APUNTES_IDX1 ON CONT_APUNTES (ID_ASIENTO); +CREATE INDEX CONT_APUNTES_IDX2 ON CONT_APUNTES (ID_SUBCUENTA); +CREATE INDEX CONT_ASIENTOS_IDX1 ON CONT_ASIENTOS (ID_FACTURA); +CREATE INDEX CONT_ASIENTOS_IDX2 ON CONT_ASIENTOS (ID_PAGO); +CREATE INDEX CONT_CUENTAS_IDX1 ON CONT_CUENTAS (ID_BALANCE); +CREATE INDEX CONT_CUENTAS_IDX2 ON CONT_CUENTAS (ID_EPIGRAFE); +CREATE INDEX CONT_SUBCUENTAS_IDX1 ON CONT_SUBCUENTAS (ID_CONTACTO); CREATE INDEX IDX_EMPRESAS_CONTACTOS ON EMPRESAS_CONTACTOS (ID_EMPRESA, ID_CONTACTO); CREATE INDEX IDX_EMPRESAS_USUARIOS ON EMPRESAS_USUARIOS (ID_EMPRESA, ID_USUARIO); CREATE INDEX IDX_FACTURAS_CLIENTE ON FACTURAS_CLIENTE (ID_FORMA_PAGO); @@ -3783,6 +3758,8 @@ CREATE INDEX IDX_PEDIDOS_PROVEEDOR ON PEDIDOS_PROVEEDOR (ID_PEDIDO_CLIENTE); CREATE INDEX IDX_PEDIDOS_PROVEEDOR1 ON PEDIDOS_PROVEEDOR (ID_ALMACEN); CREATE INDEX IDX_PEDIDOS_PROVEEDOR2 ON PEDIDOS_PROVEEDOR (ID_FORMA_PAGO); CREATE INDEX IDX_PEDIDOS_PROVEEDOR_DETALLES ON PEDIDOS_PROVEEDOR_DETALLES (ID_ARTICULO); +CREATE INDEX IDX_PERMISOS ON PERMISOS (ID_USUARIO); +CREATE INDEX IDX_PERMISOSEX ON PERMISOSEX (ID_USUARIO); CREATE INDEX IDX_PROVEEDORES_DATOS ON PROVEEDORES_DATOS (ID_TIPO_IVA); CREATE INDEX IDX_PROVEEDORES_DATOS1 ON PROVEEDORES_DATOS (ID_FORMA_PAGO); CREATE INDEX IDX_RECIBOS_CLIENTE ON RECIBOS_CLIENTE (ID_RECIBO_COMPENSADO); @@ -3791,8 +3768,6 @@ CREATE INDEX IDX_REFERENCIAS ON REFERENCIAS (ID_EMPRESA); CREATE INDEX IDX_REFERENCIAS2 ON REFERENCIAS (ID_TIENDA); CREATE INDEX IDX_REMESAS_CLIENTE ON REMESAS_CLIENTE (ID_DATOS_BANCO); CREATE INDEX IDX_REMESAS_PROVEEDOR ON REMESAS_PROVEEDOR (ID_DATOS_BANCO); -CREATE INDEX IDX_PERMISOS ON PERMISOS (ID_USUARIO); -CREATE INDEX IDX_PERMISOSEX ON PERMISOSEX (ID_USUARIO); /******************************************************************************/ @@ -3844,7 +3819,8 @@ end ^ ALTER PROCEDURE PROC_NEW_ASIENTO_FACTURA_CLI ( - IDFACTURA INTEGER) + IDFACTURA INTEGER, + ID_SUBCUENTA_VENTA INTEGER) AS declare variable ignorarcontabilidad integer; declare variable referenciafactura varchar(255); @@ -3903,48 +3879,86 @@ begin VALUES (:IDASIENTO, :FECHAFACTURA, :ORDEN, :IDFACTURA, 'c'); END - /*INSERTAMOS LOS APUNTES*/ - INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) - VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, 'FACTURA DE CLIENTE', - :REFERENCIAFACTURA, :IMPORTETOTAL, NULL); + IF (IMPORTETOTAL < 0) THEN + BEGIN + /*INSERTAMOS LOS APUNTES DEL ABONO*/ + INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) + VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, 'Abono de cliente: ' || :REFERENCIAFACTURA, + :REFERENCIAFACTURA, NULL, -1*(:IMPORTETOTAL)); + END + ELSE + BEGIN + /*INSERTAMOS LOS APUNTES DE LA FACTURA*/ + INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) + VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, 'Factura de cliente: ' || :REFERENCIAFACTURA, + :REFERENCIAFACTURA, :IMPORTETOTAL, NULL); + END IF (IMPORTEIVA <> 0) THEN BEGIN SELECT CONT_SUBCUENTAS.ID FROM CONT_SUBCUENTAS LEFT JOIN CONT_CUENTAS ON (CONT_CUENTAS.ID = CONT_SUBCUENTAS.ID_CUENTA) - WHERE CONT_CUENTAS.REF_CUENTA = '477' + WHERE CONT_CUENTAS.REF_CUENTA = 477 AND CONT_SUBCUENTAS.ID_EJERCICIO = :IDEJERCICIO INTO :IDSUBCUENTA; - INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) - VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 2, 'IVA FACTURA DE CLIENTE', - :REFERENCIAFACTURA, NULL, :IMPORTEIVA); + IF (IMPORTETOTAL < 0) THEN + BEGIN + INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) + VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 2, 'Abono de cliente: ' || :REFERENCIAFACTURA || ' (IVA)', + :REFERENCIAFACTURA, -1*(:IMPORTEIVA), NULL); + END + ELSE + BEGIN + INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) + VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 2, 'Factura de cliente: ' || :REFERENCIAFACTURA || ' (IVA)', + :REFERENCIAFACTURA, NULL, :IMPORTEIVA); + END END IF (IMPORTERE <> 0) THEN BEGIN SELECT CONT_SUBCUENTAS.ID FROM CONT_SUBCUENTAS LEFT JOIN CONT_CUENTAS ON (CONT_CUENTAS.ID = CONT_SUBCUENTAS.ID_CUENTA) - WHERE CONT_CUENTAS.REF_CUENTA = '475' + WHERE CONT_CUENTAS.REF_CUENTA = 475 AND CONT_SUBCUENTAS.ID_EJERCICIO = :IDEJERCICIO INTO :IDSUBCUENTA; - INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) - VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 3, 'RE FACTURA DE CLIENTE', - :REFERENCIAFACTURA, NULL, :IMPORTERE); + IF (IMPORTETOTAL < 0) THEN + BEGIN + INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) + VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 3, 'Abono de cliente: ' || :REFERENCIAFACTURA || ' (RE)', + :REFERENCIAFACTURA, -1*(:IMPORTERE), NULL); + END + ELSE + BEGIN + INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) + VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 3, 'Factura de cliente: ' || :REFERENCIAFACTURA || ' (RE)', + :REFERENCIAFACTURA, NULL, :IMPORTERE); + END END IF (BASEIMPONIBLE <> 0) THEN BEGIN +/* SELECT CONT_SUBCUENTAS.ID FROM CONT_SUBCUENTAS LEFT JOIN CONT_CUENTAS ON (CONT_CUENTAS.ID = CONT_SUBCUENTAS.ID_CUENTA) WHERE CONT_CUENTAS.REF_CUENTA = '700' AND CONT_SUBCUENTAS.ID_EJERCICIO = :IDEJERCICIO INTO :IDSUBCUENTA; - - INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) - VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 4, 'BASE IMPONIBLE FACTURA DE CLIENTE', - :REFERENCIAFACTURA, NULL, :BASEIMPONIBLE); +*/ + IF (IMPORTETOTAL < 0) THEN + BEGIN + INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) + VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :ID_SUBCUENTA_VENTA, 4, 'Abono de cliente: ' || :REFERENCIAFACTURA || ' (Base imponible)', + :REFERENCIAFACTURA, -1*(:BASEIMPONIBLE), NULL); + END + ELSE + BEGIN + INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) + VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :ID_SUBCUENTA_VENTA, 4, 'Factura de cliente: ' || :REFERENCIAFACTURA || ' (Base imponible)', + :REFERENCIAFACTURA, NULL, :BASEIMPONIBLE); + END END END suspend; @@ -4081,7 +4095,7 @@ begin RECIBOS_CLIENTE.IMPORTE, CONT_SUBCUENTAS.ID, CONT_SUBCUENTAS.ID_EJERCICIO FROM PAGOS_CLIENTE LEFT JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID = PAGOS_CLIENTE.ID_RECIBO) -/* LEFT JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = RECIBOS_CLIENTE.ID_FACTURA) (ya no esta atado a las facturas)*/ +/* LEFT JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = RECIBOS_CLIENTE.ID_FACTURA) (ya no esta atado a las facturas)*/ LEFT JOIN CONT_SUBCUENTAS ON (CONT_SUBCUENTAS.ID_CONTACTO = RECIBOS_CLIENTE.ID_CLIENTE) WHERE PAGOS_CLIENTE.ID = :IDPAGO INTO :IGNORARCONTABILIDAD, :REFERENCIARECIBO, :FECHAPAGO, :TIPOPAGO, :IMPORTE, :IDSUBCUENTA, :IDEJERCICIO; @@ -4418,10 +4432,16 @@ end SET TERM ; ^ +/******************************************************************************/ +/**** Descriptions ****/ +/******************************************************************************/ + + /* Fields descriptions */ -COMMENT ON COLUMN CONT_ASIENTOS.TIPO IS +DESCRIBE FIELD TIPO TABLE CONT_ASIENTOS 'Tipo de asiento -''c'' cobro -''p'' pago'; +''c'' cliente +''p'' proveedor'; + diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index f4734247..a27c4476 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -65,48 +65,48 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
TForm diff --git a/Source/Informes/InfFacturaCliente.fr3 b/Source/Informes/InfFacturaCliente.fr3 index b70bd740..7f53d2ca 100644 --- a/Source/Informes/InfFacturaCliente.fr3 +++ b/Source/Informes/InfFacturaCliente.fr3 @@ -1,40 +1,45 @@ - + - - - - - - - - + + + + + + + - - + + - - - - - - - + + + + - + + + + + + + + + - - - + + + + - + @@ -42,32 +47,35 @@ - - - - - - - - - - - - - + + + + + + + + + + + + + - + - - + + - + + + + - + diff --git a/Source/Modulos/Contabilidad/Data/Contabilidad_data.dproj b/Source/Modulos/Contabilidad/Data/Contabilidad_data.dproj index 965e8d26..011e22a9 100644 --- a/Source/Modulos/Contabilidad/Data/Contabilidad_data.dproj +++ b/Source/Modulos/Contabilidad/Data/Contabilidad_data.dproj @@ -48,20 +48,20 @@ MainSource - - - - - - - - - - - - - - + + + + + + + + + + + + + +
DataModuleContabilidad
TDAClientDataModule diff --git a/Source/Modulos/Contabilidad/Data/Contabilidad_data.res b/Source/Modulos/Contabilidad/Data/Contabilidad_data.res index 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644 GIT binary patch literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP delta 11 ScmeBCZD5|Duvteife`=|>;pCc diff --git a/Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.dfm b/Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.dfm index bc3893d7..382deae3 100644 --- a/Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.dfm +++ b/Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.dfm @@ -560,6 +560,11 @@ inherited DataModuleContabilidad: TDataModuleContabilidad DataType = datString Size = 15 end + item + Name = 'SUBCUENTA' + DataType = datString + Size = 255 + end item Name = 'ID_EJERCICIO' DataType = datInteger diff --git a/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas b/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas index d5f72705..eac3d5db 100644 --- a/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas +++ b/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas @@ -3,22 +3,30 @@ unit schContabilidadClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; 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_Diario = '{E3FBF49B-23D0-4E34-823E-92BECF9F1673}'; - RID_Apuntes = '{DE259EA8-E9C6-4C39-B361-1B6276E0C03F}'; - RID_Asientos = '{5A82C5D1-212E-48D6-B269-FD8EB5F67142}'; - RID_SubCuentas = '{931ADB71-BB8F-411F-830B-2B4293482E98}'; - RID_Cuentas = '{D676C38D-317F-4DC6-9682-7199231F842F}'; - RID_CuentasEspeciales = '{154759A2-3716-4C80-AE27-38C585EDD40B}'; - RID_Epigrafes = '{384C5F4E-4229-4B0E-97A4-FC4EFAB46A72}'; - RID_Balances = '{B2334E4B-CC6F-42B9-9F42-6C096DFF25E3}'; + RID_DarIDCuenta = '{62580F41-3FD3-42D1-9D19-D5088B529E2B}'; + RID_DarCodigoContableTienda = '{18EAEDB3-6482-4451-9F51-1771AFB07AF9}'; + RID_DarMaxRefSubCuenta = '{28A1162D-F15C-4533-81F0-49C61A40C975}'; + RID_ExisteSubCuenta = '{33F3DD94-075A-4EF5-A9D7-901A5B762506}'; + RID_Diario = '{08A2E65A-5D6A-47F9-834F-F764900C9DD9}'; + RID_Apuntes = '{70944570-6902-4449-B652-FF4F8F36FF63}'; + RID_Asientos = '{78A6C952-897F-4CD4-89CF-D408E25D418E}'; + RID_SubCuentas = '{24E41EBC-DC48-41D9-ABD4-3088FF741164}'; + RID_Cuentas = '{ACD17A3C-67D7-4172-9EBB-FA43A71ED2C7}'; + RID_CuentasEspeciales = '{5580C0E4-5554-40C5-8570-06C452D132C4}'; + RID_Epigrafes = '{5437D981-0F48-4A14-B31C-2FFCDE1C9F8D}'; + RID_Balances = '{2D6831A6-A078-472A-A870-8BAA551696E8}'; { Data table names } + nme_DarIDCuenta = 'DarIDCuenta'; + nme_DarCodigoContableTienda = 'DarCodigoContableTienda'; + nme_DarMaxRefSubCuenta = 'DarMaxRefSubCuenta'; + nme_ExisteSubCuenta = 'ExisteSubCuenta'; nme_Diario = 'Diario'; nme_Apuntes = 'Apuntes'; nme_Asientos = 'Asientos'; @@ -28,6 +36,30 @@ const nme_Epigrafes = 'Epigrafes'; nme_Balances = 'Balances'; + { DarIDCuenta fields } + fld_DarIDCuentaID = 'ID'; + + { DarIDCuenta field indexes } + idx_DarIDCuentaID = 0; + + { DarCodigoContableTienda fields } + fld_DarCodigoContableTiendaCODIGO_CONTABLE = 'CODIGO_CONTABLE'; + + { DarCodigoContableTienda field indexes } + idx_DarCodigoContableTiendaCODIGO_CONTABLE = 0; + + { DarMaxRefSubCuenta fields } + fld_DarMaxRefSubCuentaMAX = 'MAX'; + + { DarMaxRefSubCuenta field indexes } + idx_DarMaxRefSubCuentaMAX = 0; + + { ExisteSubCuenta fields } + fld_ExisteSubCuentaCOUNT = 'COUNT'; + + { ExisteSubCuenta field indexes } + idx_ExisteSubCuentaCOUNT = 0; + { Diario fields } fld_DiarioID_APUNTE = 'ID_APUNTE'; fld_DiarioID_ASIENTO = 'ID_ASIENTO'; @@ -37,6 +69,7 @@ const fld_DiarioFECHA_ASIENTO = 'FECHA_ASIENTO'; fld_DiarioID_SUBCUENTA = 'ID_SUBCUENTA'; fld_DiarioREF_SUBCUENTA = 'REF_SUBCUENTA'; + fld_DiarioSUBCUENTA = 'SUBCUENTA'; fld_DiarioID_EJERCICIO = 'ID_EJERCICIO'; fld_DiarioCONCEPTO = 'CONCEPTO'; fld_DiarioDOCUMENTO = 'DOCUMENTO'; @@ -53,12 +86,13 @@ const idx_DiarioFECHA_ASIENTO = 5; idx_DiarioID_SUBCUENTA = 6; idx_DiarioREF_SUBCUENTA = 7; - idx_DiarioID_EJERCICIO = 8; - idx_DiarioCONCEPTO = 9; - idx_DiarioDOCUMENTO = 10; - idx_DiarioDEBE = 11; - idx_DiarioHABER = 12; - idx_DiarioPUNTEADO = 13; + idx_DiarioSUBCUENTA = 8; + idx_DiarioID_EJERCICIO = 9; + idx_DiarioCONCEPTO = 10; + idx_DiarioDOCUMENTO = 11; + idx_DiarioDEBE = 12; + idx_DiarioHABER = 13; + idx_DiarioPUNTEADO = 14; { Apuntes fields } fld_ApuntesID = 'ID'; @@ -199,9 +233,149 @@ const idx_BalancesDESCRIPCION3 = 8; type + { IDarIDCuenta } + IDarIDCuenta = interface(IDAStronglyTypedDataTable) + ['{9F0EA8D0-D45B-4DD6-9166-9A2FAB0B3F43}'] + { Property getters and setters } + function GetIDValue: Integer; + procedure SetIDValue(const aValue: Integer); + function GetIDIsNull: Boolean; + procedure SetIDIsNull(const aValue: Boolean); + + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + end; + + { TDarIDCuentaDataTableRules } + TDarIDCuentaDataTableRules = class(TDADataTableRules, IDarIDCuenta) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + function GetIDIsNull: Boolean; virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + + { IDarCodigoContableTienda } + IDarCodigoContableTienda = interface(IDAStronglyTypedDataTable) + ['{D35B0C64-3AC6-4B58-9BF4-2C7F11A9A191}'] + { Property getters and setters } + function GetCODIGO_CONTABLEValue: String; + procedure SetCODIGO_CONTABLEValue(const aValue: String); + function GetCODIGO_CONTABLEIsNull: Boolean; + procedure SetCODIGO_CONTABLEIsNull(const aValue: Boolean); + + + { Properties } + property CODIGO_CONTABLE: String read GetCODIGO_CONTABLEValue write SetCODIGO_CONTABLEValue; + property CODIGO_CONTABLEIsNull: Boolean read GetCODIGO_CONTABLEIsNull write SetCODIGO_CONTABLEIsNull; + end; + + { TDarCodigoContableTiendaDataTableRules } + TDarCodigoContableTiendaDataTableRules = class(TDADataTableRules, IDarCodigoContableTienda) + private + protected + { Property getters and setters } + function GetCODIGO_CONTABLEValue: String; virtual; + procedure SetCODIGO_CONTABLEValue(const aValue: String); virtual; + function GetCODIGO_CONTABLEIsNull: Boolean; virtual; + procedure SetCODIGO_CONTABLEIsNull(const aValue: Boolean); virtual; + + { Properties } + property CODIGO_CONTABLE: String read GetCODIGO_CONTABLEValue write SetCODIGO_CONTABLEValue; + property CODIGO_CONTABLEIsNull: Boolean read GetCODIGO_CONTABLEIsNull write SetCODIGO_CONTABLEIsNull; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + + { IDarMaxRefSubCuenta } + IDarMaxRefSubCuenta = interface(IDAStronglyTypedDataTable) + ['{E3C5A87F-0B25-4719-A2D2-D1B3EDFF22AA}'] + { Property getters and setters } + function GetMAXValue: Integer; + procedure SetMAXValue(const aValue: Integer); + function GetMAXIsNull: Boolean; + procedure SetMAXIsNull(const aValue: Boolean); + + + { Properties } + property MAX: Integer read GetMAXValue write SetMAXValue; + property MAXIsNull: Boolean read GetMAXIsNull write SetMAXIsNull; + end; + + { TDarMaxRefSubCuentaDataTableRules } + TDarMaxRefSubCuentaDataTableRules = class(TDADataTableRules, IDarMaxRefSubCuenta) + private + protected + { Property getters and setters } + function GetMAXValue: Integer; virtual; + procedure SetMAXValue(const aValue: Integer); virtual; + function GetMAXIsNull: Boolean; virtual; + procedure SetMAXIsNull(const aValue: Boolean); virtual; + + { Properties } + property MAX: Integer read GetMAXValue write SetMAXValue; + property MAXIsNull: Boolean read GetMAXIsNull write SetMAXIsNull; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + + { IExisteSubCuenta } + IExisteSubCuenta = interface(IDAStronglyTypedDataTable) + ['{634595DB-2DF1-458B-B2FC-0AF5FCD93E82}'] + { Property getters and setters } + function GetCOUNTValue: Integer; + procedure SetCOUNTValue(const aValue: Integer); + function GetCOUNTIsNull: Boolean; + procedure SetCOUNTIsNull(const aValue: Boolean); + + + { Properties } + property COUNT: Integer read GetCOUNTValue write SetCOUNTValue; + property COUNTIsNull: Boolean read GetCOUNTIsNull write SetCOUNTIsNull; + end; + + { TExisteSubCuentaDataTableRules } + TExisteSubCuentaDataTableRules = class(TDADataTableRules, IExisteSubCuenta) + private + protected + { Property getters and setters } + function GetCOUNTValue: Integer; virtual; + procedure SetCOUNTValue(const aValue: Integer); virtual; + function GetCOUNTIsNull: Boolean; virtual; + procedure SetCOUNTIsNull(const aValue: Boolean); virtual; + + { Properties } + property COUNT: Integer read GetCOUNTValue write SetCOUNTValue; + property COUNTIsNull: Boolean read GetCOUNTIsNull write SetCOUNTIsNull; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + { IDiario } IDiario = interface(IDAStronglyTypedDataTable) - ['{16823056-4DCD-43B4-B86B-5D0030F56088}'] + ['{3E328181-3908-4A59-AEAC-B669B49E0B9C}'] { Property getters and setters } function GetID_APUNTEValue: Integer; procedure SetID_APUNTEValue(const aValue: Integer); @@ -235,6 +409,10 @@ type procedure SetREF_SUBCUENTAValue(const aValue: String); function GetREF_SUBCUENTAIsNull: Boolean; procedure SetREF_SUBCUENTAIsNull(const aValue: Boolean); + function GetSUBCUENTAValue: String; + procedure SetSUBCUENTAValue(const aValue: String); + function GetSUBCUENTAIsNull: Boolean; + procedure SetSUBCUENTAIsNull(const aValue: Boolean); function GetID_EJERCICIOValue: Integer; procedure SetID_EJERCICIOValue(const aValue: Integer); function GetID_EJERCICIOIsNull: Boolean; @@ -278,6 +456,8 @@ type property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull; property REF_SUBCUENTA: String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue; property REF_SUBCUENTAIsNull: Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull; + property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue; + property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull; property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue; property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull; property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; @@ -293,7 +473,7 @@ type end; { TDiarioDataTableRules } - TDiarioDataTableRules = class(TIntfObjectDADataTableRules, IDiario) + TDiarioDataTableRules = class(TDADataTableRules, IDiario) private protected { Property getters and setters } @@ -329,6 +509,10 @@ type procedure SetREF_SUBCUENTAValue(const aValue: String); virtual; function GetREF_SUBCUENTAIsNull: Boolean; virtual; procedure SetREF_SUBCUENTAIsNull(const aValue: Boolean); virtual; + function GetSUBCUENTAValue: String; virtual; + procedure SetSUBCUENTAValue(const aValue: String); virtual; + function GetSUBCUENTAIsNull: Boolean; virtual; + procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual; function GetID_EJERCICIOValue: Integer; virtual; procedure SetID_EJERCICIOValue(const aValue: Integer); virtual; function GetID_EJERCICIOIsNull: Boolean; virtual; @@ -371,6 +555,8 @@ type property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull; property REF_SUBCUENTA: String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue; property REF_SUBCUENTAIsNull: Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull; + property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue; + property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull; property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue; property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull; property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; @@ -392,7 +578,7 @@ type { IApuntes } IApuntes = interface(IDAStronglyTypedDataTable) - ['{8BDA0F63-7D8D-4969-94E3-1909589C1EBC}'] + ['{2C752BCD-2FE5-4E3C-A994-21763634B4B4}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -466,7 +652,7 @@ type end; { TApuntesDataTableRules } - TApuntesDataTableRules = class(TIntfObjectDADataTableRules, IApuntes) + TApuntesDataTableRules = class(TDADataTableRules, IApuntes) private protected { Property getters and setters } @@ -547,7 +733,7 @@ type { IAsientos } IAsientos = interface(IDAStronglyTypedDataTable) - ['{DB9AA9F6-57AC-4EC7-91A2-C64C8CE9471E}'] + ['{C934D5E4-593C-44A8-AFE3-5D6E6AF7E945}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -585,7 +771,7 @@ type end; { TAsientosDataTableRules } - TAsientosDataTableRules = class(TIntfObjectDADataTableRules, IAsientos) + TAsientosDataTableRules = class(TDADataTableRules, IAsientos) private protected { Property getters and setters } @@ -630,7 +816,7 @@ type { ISubCuentas } ISubCuentas = interface(IDAStronglyTypedDataTable) - ['{03047C67-9FEF-4ECE-8345-18EA5CD637FC}'] + ['{E41AB2AB-D4B5-4856-A973-AA1E965D808E}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -704,7 +890,7 @@ type end; { TSubCuentasDataTableRules } - TSubCuentasDataTableRules = class(TIntfObjectDADataTableRules, ISubCuentas) + TSubCuentasDataTableRules = class(TDADataTableRules, ISubCuentas) private protected { Property getters and setters } @@ -785,7 +971,7 @@ type { ICuentas } ICuentas = interface(IDAStronglyTypedDataTable) - ['{6B9F3F8F-42C6-4E44-A3AE-B0C3404B008D}'] + ['{FEECE0E7-F491-4703-908B-B7DF3D7C34C9}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -853,7 +1039,7 @@ type end; { TCuentasDataTableRules } - TCuentasDataTableRules = class(TIntfObjectDADataTableRules, ICuentas) + TCuentasDataTableRules = class(TDADataTableRules, ICuentas) private protected { Property getters and setters } @@ -928,7 +1114,7 @@ type { ICuentasEspeciales } ICuentasEspeciales = interface(IDAStronglyTypedDataTable) - ['{5C46D55F-121A-4659-9A25-804952D79149}'] + ['{038D2C36-A99D-4610-86BE-164FAB17D8AB}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -954,7 +1140,7 @@ type end; { TCuentasEspecialesDataTableRules } - TCuentasEspecialesDataTableRules = class(TIntfObjectDADataTableRules, ICuentasEspeciales) + TCuentasEspecialesDataTableRules = class(TDADataTableRules, ICuentasEspeciales) private protected { Property getters and setters } @@ -987,7 +1173,7 @@ type { IEpigrafes } IEpigrafes = interface(IDAStronglyTypedDataTable) - ['{F85F5AE6-A7A9-4756-BEC2-B1BCD3729406}'] + ['{0947FB8E-C7C3-4368-BE6F-7C2E8075F640}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1031,7 +1217,7 @@ type end; { TEpigrafesDataTableRules } - TEpigrafesDataTableRules = class(TIntfObjectDADataTableRules, IEpigrafes) + TEpigrafesDataTableRules = class(TDADataTableRules, IEpigrafes) private protected { Property getters and setters } @@ -1082,7 +1268,7 @@ type { IBalances } IBalances = interface(IDAStronglyTypedDataTable) - ['{C3FB6124-7643-4B1E-81A4-AEA3864E4E1C}'] + ['{DF56D273-9C7B-4311-A581-31E679681E5A}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1144,7 +1330,7 @@ type end; { TBalancesDataTableRules } - TBalancesDataTableRules = class(TIntfObjectDADataTableRules, IBalances) + TBalancesDataTableRules = class(TDADataTableRules, IBalances) private protected { Property getters and setters } @@ -1215,6 +1401,138 @@ implementation uses Variants, uROBinaryHelpers; +{ TDarIDCuentaDataTableRules } +constructor TDarIDCuentaDataTableRules.Create(aDataTable: TDADataTable); +begin + inherited; +end; + +destructor TDarIDCuentaDataTableRules.Destroy; +begin + inherited; +end; + +function TDarIDCuentaDataTableRules.GetIDValue: Integer; +begin + result := DataTable.Fields[idx_DarIDCuentaID].AsInteger; +end; + +procedure TDarIDCuentaDataTableRules.SetIDValue(const aValue: Integer); +begin + DataTable.Fields[idx_DarIDCuentaID].AsInteger := aValue; +end; + +function TDarIDCuentaDataTableRules.GetIDIsNull: boolean; +begin + result := DataTable.Fields[idx_DarIDCuentaID].IsNull; +end; + +procedure TDarIDCuentaDataTableRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_DarIDCuentaID].AsVariant := Null; +end; + + +{ TDarCodigoContableTiendaDataTableRules } +constructor TDarCodigoContableTiendaDataTableRules.Create(aDataTable: TDADataTable); +begin + inherited; +end; + +destructor TDarCodigoContableTiendaDataTableRules.Destroy; +begin + inherited; +end; + +function TDarCodigoContableTiendaDataTableRules.GetCODIGO_CONTABLEValue: String; +begin + result := DataTable.Fields[idx_DarCodigoContableTiendaCODIGO_CONTABLE].AsString; +end; + +procedure TDarCodigoContableTiendaDataTableRules.SetCODIGO_CONTABLEValue(const aValue: String); +begin + DataTable.Fields[idx_DarCodigoContableTiendaCODIGO_CONTABLE].AsString := aValue; +end; + +function TDarCodigoContableTiendaDataTableRules.GetCODIGO_CONTABLEIsNull: boolean; +begin + result := DataTable.Fields[idx_DarCodigoContableTiendaCODIGO_CONTABLE].IsNull; +end; + +procedure TDarCodigoContableTiendaDataTableRules.SetCODIGO_CONTABLEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_DarCodigoContableTiendaCODIGO_CONTABLE].AsVariant := Null; +end; + + +{ TDarMaxRefSubCuentaDataTableRules } +constructor TDarMaxRefSubCuentaDataTableRules.Create(aDataTable: TDADataTable); +begin + inherited; +end; + +destructor TDarMaxRefSubCuentaDataTableRules.Destroy; +begin + inherited; +end; + +function TDarMaxRefSubCuentaDataTableRules.GetMAXValue: Integer; +begin + result := DataTable.Fields[idx_DarMaxRefSubCuentaMAX].AsInteger; +end; + +procedure TDarMaxRefSubCuentaDataTableRules.SetMAXValue(const aValue: Integer); +begin + DataTable.Fields[idx_DarMaxRefSubCuentaMAX].AsInteger := aValue; +end; + +function TDarMaxRefSubCuentaDataTableRules.GetMAXIsNull: boolean; +begin + result := DataTable.Fields[idx_DarMaxRefSubCuentaMAX].IsNull; +end; + +procedure TDarMaxRefSubCuentaDataTableRules.SetMAXIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_DarMaxRefSubCuentaMAX].AsVariant := Null; +end; + + +{ TExisteSubCuentaDataTableRules } +constructor TExisteSubCuentaDataTableRules.Create(aDataTable: TDADataTable); +begin + inherited; +end; + +destructor TExisteSubCuentaDataTableRules.Destroy; +begin + inherited; +end; + +function TExisteSubCuentaDataTableRules.GetCOUNTValue: Integer; +begin + result := DataTable.Fields[idx_ExisteSubCuentaCOUNT].AsInteger; +end; + +procedure TExisteSubCuentaDataTableRules.SetCOUNTValue(const aValue: Integer); +begin + DataTable.Fields[idx_ExisteSubCuentaCOUNT].AsInteger := aValue; +end; + +function TExisteSubCuentaDataTableRules.GetCOUNTIsNull: boolean; +begin + result := DataTable.Fields[idx_ExisteSubCuentaCOUNT].IsNull; +end; + +procedure TExisteSubCuentaDataTableRules.SetCOUNTIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ExisteSubCuentaCOUNT].AsVariant := Null; +end; + + { TDiarioDataTableRules } constructor TDiarioDataTableRules.Create(aDataTable: TDADataTable); begin @@ -1394,6 +1712,27 @@ begin DataTable.Fields[idx_DiarioREF_SUBCUENTA].AsVariant := Null; end; +function TDiarioDataTableRules.GetSUBCUENTAValue: String; +begin + result := DataTable.Fields[idx_DiarioSUBCUENTA].AsString; +end; + +procedure TDiarioDataTableRules.SetSUBCUENTAValue(const aValue: String); +begin + DataTable.Fields[idx_DiarioSUBCUENTA].AsString := aValue; +end; + +function TDiarioDataTableRules.GetSUBCUENTAIsNull: boolean; +begin + result := DataTable.Fields[idx_DiarioSUBCUENTA].IsNull; +end; + +procedure TDiarioDataTableRules.SetSUBCUENTAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_DiarioSUBCUENTA].AsVariant := Null; +end; + function TDiarioDataTableRules.GetID_EJERCICIOValue: Integer; begin result := DataTable.Fields[idx_DiarioID_EJERCICIO].AsInteger; @@ -2761,6 +3100,10 @@ end; initialization + RegisterDataTableRules(RID_DarIDCuenta, TDarIDCuentaDataTableRules); + RegisterDataTableRules(RID_DarCodigoContableTienda, TDarCodigoContableTiendaDataTableRules); + RegisterDataTableRules(RID_DarMaxRefSubCuenta, TDarMaxRefSubCuentaDataTableRules); + RegisterDataTableRules(RID_ExisteSubCuenta, TExisteSubCuentaDataTableRules); RegisterDataTableRules(RID_Diario, TDiarioDataTableRules); RegisterDataTableRules(RID_Apuntes, TApuntesDataTableRules); RegisterDataTableRules(RID_Asientos, TAsientosDataTableRules); diff --git a/Source/Modulos/Contabilidad/Model/schContabilidadServer_Intf.pas b/Source/Modulos/Contabilidad/Model/schContabilidadServer_Intf.pas index 36d49b17..d88ced06 100644 --- a/Source/Modulos/Contabilidad/Model/schContabilidadServer_Intf.pas +++ b/Source/Modulos/Contabilidad/Model/schContabilidadServer_Intf.pas @@ -9,19 +9,159 @@ 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_DiarioDelta = '{0882ADEE-9AC8-4ABF-932B-341B3C4DD929}'; - RID_ApuntesDelta = '{FFCEAAC4-532B-4238-8141-7A1B2E65D1D8}'; - RID_AsientosDelta = '{ED941252-D8EA-41E5-9EEB-3B4AB1CFB04A}'; - RID_SubCuentasDelta = '{E4BAB612-0B84-49D5-B5F7-ACA3B30F0DDE}'; - RID_CuentasDelta = '{5A5D97B0-25D5-4BFA-8974-C9EBAD102FAD}'; - RID_CuentasEspecialesDelta = '{E9896ABE-59CA-40BF-888C-FFA0D0AB9D98}'; - RID_EpigrafesDelta = '{52C0B7AD-1BC3-4ED0-B931-34CD705F2839}'; - RID_BalancesDelta = '{29FAB9BD-5A16-46D4-98CD-ABFB8A584AE7}'; + RID_DarIDCuentaDelta = '{E61FFC34-78E1-4E47-873B-26A3866D714B}'; + RID_DarCodigoContableTiendaDelta = '{9B4CCB90-6621-48DE-83B9-C1EE6E9A3DC6}'; + RID_DarMaxRefSubCuentaDelta = '{23178B29-2EFE-41DA-BCFF-0B12BB3BF392}'; + RID_ExisteSubCuentaDelta = '{448B8958-98BA-4340-8D03-FDD4817E637B}'; + RID_DiarioDelta = '{699B3B97-2CC2-429A-B275-63EAB604D199}'; + RID_ApuntesDelta = '{CC4B622A-A26E-41A5-ACDC-D838185BB681}'; + RID_AsientosDelta = '{5FC14F81-E72E-4662-80EC-38459AB23915}'; + RID_SubCuentasDelta = '{FC32F9F6-0BC4-4BDC-8307-A47786D2E601}'; + RID_CuentasDelta = '{F030EAB1-8B4B-4E20-B8D9-BD41747561BC}'; + RID_CuentasEspecialesDelta = '{BDC3E113-F48D-459C-9208-C3502377511B}'; + RID_EpigrafesDelta = '{5099CA22-0F27-46FD-8B3A-C0C518E73AD7}'; + RID_BalancesDelta = '{348A53C4-FD53-4F33-9FC7-61369195ADEC}'; type + { IDarIDCuentaDelta } + IDarIDCuentaDelta = interface(IDarIDCuenta) + ['{E61FFC34-78E1-4E47-873B-26A3866D714B}'] + { Property getters and setters } + function GetOldIDValue : Integer; + + { Properties } + property OldID : Integer read GetOldIDValue; + end; + + { TDarIDCuentaBusinessProcessorRules } + TDarIDCuentaBusinessProcessorRules = class(TDABusinessProcessorRules, IDarIDCuenta, IDarIDCuentaDelta) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + function GetIDIsNull: Boolean; virtual; + function GetOldIDValue: Integer; virtual; + function GetOldIDIsNull: Boolean; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID : Integer read GetIDValue write SetIDValue; + property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; + property OldID : Integer read GetOldIDValue; + property OldIDIsNull : Boolean read GetOldIDIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + + { IDarCodigoContableTiendaDelta } + IDarCodigoContableTiendaDelta = interface(IDarCodigoContableTienda) + ['{9B4CCB90-6621-48DE-83B9-C1EE6E9A3DC6}'] + { Property getters and setters } + function GetOldCODIGO_CONTABLEValue : String; + + { Properties } + property OldCODIGO_CONTABLE : String read GetOldCODIGO_CONTABLEValue; + end; + + { TDarCodigoContableTiendaBusinessProcessorRules } + TDarCodigoContableTiendaBusinessProcessorRules = class(TDABusinessProcessorRules, IDarCodigoContableTienda, IDarCodigoContableTiendaDelta) + private + protected + { Property getters and setters } + function GetCODIGO_CONTABLEValue: String; virtual; + function GetCODIGO_CONTABLEIsNull: Boolean; virtual; + function GetOldCODIGO_CONTABLEValue: String; virtual; + function GetOldCODIGO_CONTABLEIsNull: Boolean; virtual; + procedure SetCODIGO_CONTABLEValue(const aValue: String); virtual; + procedure SetCODIGO_CONTABLEIsNull(const aValue: Boolean); virtual; + + { Properties } + property CODIGO_CONTABLE : String read GetCODIGO_CONTABLEValue write SetCODIGO_CONTABLEValue; + property CODIGO_CONTABLEIsNull : Boolean read GetCODIGO_CONTABLEIsNull write SetCODIGO_CONTABLEIsNull; + property OldCODIGO_CONTABLE : String read GetOldCODIGO_CONTABLEValue; + property OldCODIGO_CONTABLEIsNull : Boolean read GetOldCODIGO_CONTABLEIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + + { IDarMaxRefSubCuentaDelta } + IDarMaxRefSubCuentaDelta = interface(IDarMaxRefSubCuenta) + ['{23178B29-2EFE-41DA-BCFF-0B12BB3BF392}'] + { Property getters and setters } + function GetOldMAXValue : Integer; + + { Properties } + property OldMAX : Integer read GetOldMAXValue; + end; + + { TDarMaxRefSubCuentaBusinessProcessorRules } + TDarMaxRefSubCuentaBusinessProcessorRules = class(TDABusinessProcessorRules, IDarMaxRefSubCuenta, IDarMaxRefSubCuentaDelta) + private + protected + { Property getters and setters } + function GetMAXValue: Integer; virtual; + function GetMAXIsNull: Boolean; virtual; + function GetOldMAXValue: Integer; virtual; + function GetOldMAXIsNull: Boolean; virtual; + procedure SetMAXValue(const aValue: Integer); virtual; + procedure SetMAXIsNull(const aValue: Boolean); virtual; + + { Properties } + property MAX : Integer read GetMAXValue write SetMAXValue; + property MAXIsNull : Boolean read GetMAXIsNull write SetMAXIsNull; + property OldMAX : Integer read GetOldMAXValue; + property OldMAXIsNull : Boolean read GetOldMAXIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + + { IExisteSubCuentaDelta } + IExisteSubCuentaDelta = interface(IExisteSubCuenta) + ['{448B8958-98BA-4340-8D03-FDD4817E637B}'] + { Property getters and setters } + function GetOldCOUNTValue : Integer; + + { Properties } + property OldCOUNT : Integer read GetOldCOUNTValue; + end; + + { TExisteSubCuentaBusinessProcessorRules } + TExisteSubCuentaBusinessProcessorRules = class(TDABusinessProcessorRules, IExisteSubCuenta, IExisteSubCuentaDelta) + private + protected + { Property getters and setters } + function GetCOUNTValue: Integer; virtual; + function GetCOUNTIsNull: Boolean; virtual; + function GetOldCOUNTValue: Integer; virtual; + function GetOldCOUNTIsNull: Boolean; virtual; + procedure SetCOUNTValue(const aValue: Integer); virtual; + procedure SetCOUNTIsNull(const aValue: Boolean); virtual; + + { Properties } + property COUNT : Integer read GetCOUNTValue write SetCOUNTValue; + property COUNTIsNull : Boolean read GetCOUNTIsNull write SetCOUNTIsNull; + property OldCOUNT : Integer read GetOldCOUNTValue; + property OldCOUNTIsNull : Boolean read GetOldCOUNTIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + { IDiarioDelta } IDiarioDelta = interface(IDiario) - ['{0882ADEE-9AC8-4ABF-932B-341B3C4DD929}'] + ['{699B3B97-2CC2-429A-B275-63EAB604D199}'] { Property getters and setters } function GetOldID_APUNTEValue : Integer; function GetOldID_ASIENTOValue : Integer; @@ -31,6 +171,7 @@ type function GetOldFECHA_ASIENTOValue : DateTime; function GetOldID_SUBCUENTAValue : Integer; function GetOldREF_SUBCUENTAValue : String; + function GetOldSUBCUENTAValue : String; function GetOldID_EJERCICIOValue : Integer; function GetOldCONCEPTOValue : String; function GetOldDOCUMENTOValue : String; @@ -47,6 +188,7 @@ type property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue; property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue; property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue; + property OldSUBCUENTA : String read GetOldSUBCUENTAValue; property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue; property OldCONCEPTO : String read GetOldCONCEPTOValue; property OldDOCUMENTO : String read GetOldDOCUMENTOValue; @@ -108,6 +250,12 @@ type function GetOldREF_SUBCUENTAIsNull: Boolean; virtual; procedure SetREF_SUBCUENTAValue(const aValue: String); virtual; procedure SetREF_SUBCUENTAIsNull(const aValue: Boolean); virtual; + function GetSUBCUENTAValue: String; virtual; + function GetSUBCUENTAIsNull: Boolean; virtual; + function GetOldSUBCUENTAValue: String; virtual; + function GetOldSUBCUENTAIsNull: Boolean; virtual; + procedure SetSUBCUENTAValue(const aValue: String); virtual; + procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual; function GetID_EJERCICIOValue: Integer; virtual; function GetID_EJERCICIOIsNull: Boolean; virtual; function GetOldID_EJERCICIOValue: Integer; virtual; @@ -178,6 +326,10 @@ type property REF_SUBCUENTAIsNull : Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull; property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue; property OldREF_SUBCUENTAIsNull : Boolean read GetOldREF_SUBCUENTAIsNull; + property SUBCUENTA : String read GetSUBCUENTAValue write SetSUBCUENTAValue; + property SUBCUENTAIsNull : Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull; + property OldSUBCUENTA : String read GetOldSUBCUENTAValue; + property OldSUBCUENTAIsNull : Boolean read GetOldSUBCUENTAIsNull; property ID_EJERCICIO : Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue; property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull; property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue; @@ -211,7 +363,7 @@ type { IApuntesDelta } IApuntesDelta = interface(IApuntes) - ['{FFCEAAC4-532B-4238-8141-7A1B2E65D1D8}'] + ['{CC4B622A-A26E-41A5-ACDC-D838185BB681}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_ASIENTOValue : Integer; @@ -365,7 +517,7 @@ type { IAsientosDelta } IAsientosDelta = interface(IAsientos) - ['{ED941252-D8EA-41E5-9EEB-3B4AB1CFB04A}'] + ['{5FC14F81-E72E-4662-80EC-38459AB23915}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldFECHA_ASIENTOValue : DateTime; @@ -447,7 +599,7 @@ type { ISubCuentasDelta } ISubCuentasDelta = interface(ISubCuentas) - ['{E4BAB612-0B84-49D5-B5F7-ACA3B30F0DDE}'] + ['{FC32F9F6-0BC4-4BDC-8307-A47786D2E601}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREF_SUBCUENTAValue : String; @@ -601,7 +753,7 @@ type { ICuentasDelta } ICuentasDelta = interface(ICuentas) - ['{5A5D97B0-25D5-4BFA-8974-C9EBAD102FAD}'] + ['{F030EAB1-8B4B-4E20-B8D9-BD41747561BC}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREF_CUENTAValue : String; @@ -743,7 +895,7 @@ type { ICuentasEspecialesDelta } ICuentasEspecialesDelta = interface(ICuentasEspeciales) - ['{E9896ABE-59CA-40BF-888C-FFA0D0AB9D98}'] + ['{BDC3E113-F48D-459C-9208-C3502377511B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREFERENCIAValue : String; @@ -801,7 +953,7 @@ type { IEpigrafesDelta } IEpigrafesDelta = interface(IEpigrafes) - ['{52C0B7AD-1BC3-4ED0-B931-34CD705F2839}'] + ['{5099CA22-0F27-46FD-8B3A-C0C518E73AD7}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREF_EPIGRAFEValue : String; @@ -895,7 +1047,7 @@ type { IBalancesDelta } IBalancesDelta = interface(IBalances) - ['{29FAB9BD-5A16-46D4-98CD-ABFB8A584AE7}'] + ['{348A53C4-FD53-4F33-9FC7-61369195ADEC}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREF_BALANCEValue : String; @@ -1028,6 +1180,178 @@ implementation uses Variants, uROBinaryHelpers, uDAInterfaces; +{ TDarIDCuentaBusinessProcessorRules } +constructor TDarIDCuentaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TDarIDCuentaBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TDarIDCuentaBusinessProcessorRules.GetIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarIDCuentaID]; +end; + +function TDarIDCuentaBusinessProcessorRules.GetIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DarIDCuentaID]); +end; + +function TDarIDCuentaBusinessProcessorRules.GetOldIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarIDCuentaID]; +end; + +function TDarIDCuentaBusinessProcessorRules.GetOldIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DarIDCuentaID]); +end; + +procedure TDarIDCuentaBusinessProcessorRules.SetIDValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DarIDCuentaID] := aValue; +end; + +procedure TDarIDCuentaBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DarIDCuentaID] := Null; +end; + + +{ TDarCodigoContableTiendaBusinessProcessorRules } +constructor TDarCodigoContableTiendaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TDarCodigoContableTiendaBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TDarCodigoContableTiendaBusinessProcessorRules.GetCODIGO_CONTABLEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarCodigoContableTiendaCODIGO_CONTABLE]; +end; + +function TDarCodigoContableTiendaBusinessProcessorRules.GetCODIGO_CONTABLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DarCodigoContableTiendaCODIGO_CONTABLE]); +end; + +function TDarCodigoContableTiendaBusinessProcessorRules.GetOldCODIGO_CONTABLEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarCodigoContableTiendaCODIGO_CONTABLE]; +end; + +function TDarCodigoContableTiendaBusinessProcessorRules.GetOldCODIGO_CONTABLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DarCodigoContableTiendaCODIGO_CONTABLE]); +end; + +procedure TDarCodigoContableTiendaBusinessProcessorRules.SetCODIGO_CONTABLEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DarCodigoContableTiendaCODIGO_CONTABLE] := aValue; +end; + +procedure TDarCodigoContableTiendaBusinessProcessorRules.SetCODIGO_CONTABLEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DarCodigoContableTiendaCODIGO_CONTABLE] := Null; +end; + + +{ TDarMaxRefSubCuentaBusinessProcessorRules } +constructor TDarMaxRefSubCuentaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TDarMaxRefSubCuentaBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TDarMaxRefSubCuentaBusinessProcessorRules.GetMAXValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaMAX]; +end; + +function TDarMaxRefSubCuentaBusinessProcessorRules.GetMAXIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaMAX]); +end; + +function TDarMaxRefSubCuentaBusinessProcessorRules.GetOldMAXValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarMaxRefSubCuentaMAX]; +end; + +function TDarMaxRefSubCuentaBusinessProcessorRules.GetOldMAXIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DarMaxRefSubCuentaMAX]); +end; + +procedure TDarMaxRefSubCuentaBusinessProcessorRules.SetMAXValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaMAX] := aValue; +end; + +procedure TDarMaxRefSubCuentaBusinessProcessorRules.SetMAXIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaMAX] := Null; +end; + + +{ TExisteSubCuentaBusinessProcessorRules } +constructor TExisteSubCuentaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TExisteSubCuentaBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TExisteSubCuentaBusinessProcessorRules.GetCOUNTValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ExisteSubCuentaCOUNT]; +end; + +function TExisteSubCuentaBusinessProcessorRules.GetCOUNTIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ExisteSubCuentaCOUNT]); +end; + +function TExisteSubCuentaBusinessProcessorRules.GetOldCOUNTValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ExisteSubCuentaCOUNT]; +end; + +function TExisteSubCuentaBusinessProcessorRules.GetOldCOUNTIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ExisteSubCuentaCOUNT]); +end; + +procedure TExisteSubCuentaBusinessProcessorRules.SetCOUNTValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ExisteSubCuentaCOUNT] := aValue; +end; + +procedure TExisteSubCuentaBusinessProcessorRules.SetCOUNTIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ExisteSubCuentaCOUNT] := Null; +end; + + { TDiarioBusinessProcessorRules } constructor TDiarioBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin @@ -1287,6 +1611,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioREF_SUBCUENTA] := Null; end; +function TDiarioBusinessProcessorRules.GetSUBCUENTAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioSUBCUENTA]; +end; + +function TDiarioBusinessProcessorRules.GetSUBCUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioSUBCUENTA]); +end; + +function TDiarioBusinessProcessorRules.GetOldSUBCUENTAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioSUBCUENTA]; +end; + +function TDiarioBusinessProcessorRules.GetOldSUBCUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioSUBCUENTA]); +end; + +procedure TDiarioBusinessProcessorRules.SetSUBCUENTAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioSUBCUENTA] := aValue; +end; + +procedure TDiarioBusinessProcessorRules.SetSUBCUENTAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioSUBCUENTA] := Null; +end; + function TDiarioBusinessProcessorRules.GetID_EJERCICIOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_EJERCICIO]; @@ -3264,6 +3619,10 @@ end; initialization + RegisterBusinessProcessorRules(RID_DarIDCuentaDelta, TDarIDCuentaBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_DarCodigoContableTiendaDelta, TDarCodigoContableTiendaBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_DarMaxRefSubCuentaDelta, TDarMaxRefSubCuentaBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_ExisteSubCuentaDelta, TExisteSubCuentaBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DiarioDelta, TDiarioBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ApuntesDelta, TApuntesBusinessProcessorRules); RegisterBusinessProcessorRules(RID_AsientosDelta, TAsientosBusinessProcessorRules); diff --git a/Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.dfm b/Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.dfm index ddb571be..cc05231a 100644 --- a/Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.dfm +++ b/Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.dfm @@ -543,6 +543,10 @@ object srvContabilidad: TsrvContabilidad item DatasetField = 'ID_PAGO' TableField = 'ID_PAGO' + end + item + DatasetField = 'SUBCUENTA' + TableField = 'SUBCUENTA' end> end> Name = 'Diario' @@ -581,6 +585,11 @@ object srvContabilidad: TsrvContabilidad DataType = datString Size = 15 end + item + Name = 'SUBCUENTA' + DataType = datString + Size = 255 + end item Name = 'ID_EJERCICIO' DataType = datInteger diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm index 05b63180..75caf183 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm @@ -1136,139 +1136,104 @@ object RptFacturasCliente: TRptFacturasCliente PrintOptions.Printer = 'Default' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 37871.995398692100000000 - ReportOptions.LastChange = 39455.745879444450000000 + ReportOptions.Description.Strings = ( + 'Demonstrates how to create simple list report.') + ReportOptions.LastChange = 39513.490255706020000000 ReportOptions.VersionBuild = '1' ReportOptions.VersionMajor = '12' ReportOptions.VersionMinor = '13' ReportOptions.VersionRelease = '1' ScriptLanguage = 'PascalScript' ScriptText.Strings = ( - 'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' DatosCliente.Lines.Clear;' - ' DatosCliente.Lines.Add();' - '' - ' if ( <> '#39#39')' - ' or ( <> '#39#39') then' - - ' DatosCliente.Lines.Add( + '#39' ' + - ' '#39' + );' - '' - ' if ( <> '#39#39') then' - ' DatosCliente.Lines.Add();' - 'end;' - '' - 'procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' BandaDetalles.StartNewPage := False;' - ' BandaDetalles.Visible := True;' - ' MemPrecio.Style := '#39'Concepto normal'#39';' - ' MemCantidad.Style := '#39'Concepto normal'#39';' - ' MemImpTotal.Style := '#39'Concepto normal'#39';' - ' RichConcepto.Visible := True;' - '' - ' case of' - ' '#39'Salto'#39': begin' - ' BandaDetalles.StartNewPage := True;' - ' RichConcepto.Visible := False;' - ' end;' - ' '#39'Titulo'#39': begin' - ' MemPrecio.Style := '#39'Concepto titulo'#39';' - ' MemCantidad.Style := '#39'Concepto titulo'#39';' - ' MemImpTotal.Style := '#39'Concepto titulo'#39';' - ' end;' - ' '#39'Concepto'#39': begin' - ' MemPrecio.Style := '#39'Concepto normal'#39';' - ' MemCantidad.Style := '#39'Concepto normal'#39';' - ' MemImpTotal.Style := '#39'Concepto normal'#39';' - ' end;' - ' '#39'Subtotal'#39': begin' - ' MemPrecio.Style := '#39'Concepto subtotal'#39';' - ' MemCantidad.Style := '#39'Concepto subtotal'#39';' - ' MemImpTotal.Style := '#39'Concepto subtotal'#39';' - ' end;' - ' '#39'Descuento'#39': begin' - ' BandaDetalles.Visible := False;' - ' RichConcepto.Color := clNone;' - ' end;' - ' end;' - '' - ' RichConcepto.Color := MemImpTotal.Color;' - ' RichConcepto.Frame := MemImpTotal.Frame;' - 'end;' - '' - 'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);' - 'begin' - - ' Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1' + - '.Height - 1;' - 'end;' - '' 'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);' 'var' ' Cadena: String;' 'begin' ' DatosEmpresa.Lines.Clear;' ' DatosEmpresa.Lines.Add();' - '' - ' Cadena := + '#39' - '#39' + + '#39' '#39' + ;' - ' DatosEmpresa.Lines.Add(Cadena);' - ' ' + ' DatosEmpresa.Lines.Add( + '#39' - '#39 + + ' + + '#39' '#39' + );' + '' ' Cadena := '#39#39';' ' if ( <> '#39#39') then' - ' Cadena := '#39'Telf: '#39' + ;' - ' if ( <> '#39#39') then' - ' Cadena := Cadena + '#39' / '#39' + ;' + ' Cadena := '#39'TLF: '#39' + ;' + ' if ( <> '#39#39') then' + ' Cadena := Cadena + '#39' FAX: '#39' + ;' ' DatosEmpresa.Lines.Add(Cadena);' - '' - ' Cadena := '#39#39'; ' - ' if ( <> '#39#39') then' - ' Cadena := '#39'E-Mail: '#39' + ;' - ' DatosEmpresa.Lines.Add(Cadena);' - '' - ' Cadena := '#39#39'; ' - ' if ( <> '#39#39') then' - ' Cadena := '#39'Web: '#39' + ;' - ' DatosEmpresa.Lines.Add(Cadena); ' 'end;' '' - 'procedure Memo15OnBeforePrint(Sender: TfrxComponent);' + 'procedure Memo54OnBeforePrint(Sender: TfrxComponent);' 'begin' - ' Memo15.Lines.Clear;' - ' if (StrToFloat() < 0) then' - ' Memo15.Lines.Add('#39'ABONO'#39')' - ' else' - ' Memo15.Lines.Add('#39'FACTURA'#39')' + ' if ( <> '#39#39') then' + ' Memo54.Text := '#39'Recibos compensados'#39';' 'end;' '' - 'procedure Memo20OnBeforePrint(Sender: TfrxComponent);' + 'procedure EtiCompensadoOnBeforePrint(Sender: TfrxComponent);' 'begin' - ' if (StrToFloat() = 0) then' + ' if ( = '#39#39') then' ' begin' - ' Memo20.Lines.Clear;' - ' Memo28.Lines.Clear;' - ' Memo21.Lines.Clear;' - ' Memo29.Lines.Clear;' + ' EtiCompensado.Visible := False;' + ' EtiCompensado2.Visible := False;' ' end;' - '' 'end;' '' - 'procedure Band2OnBeforePrint(Sender: TfrxComponent);' + 'procedure Memo55OnBeforePrint(Sender: TfrxComponent);' 'begin' - ' if not Engine.FinalPass then' - ' Set('#39'TotalPaginas'#39', ( + 1));' - '' - ' if Engine.FinalPass then' - ' Set('#39'Pagina'#39', ( + 1));' + ' if ( <> '#39#39') then' + ' begin' + + ' Memo55.Text := '#39'( Compensado en el recibo '#39' + + '#39' )'#39';' + + ' Memo1.Text := '#39'( Compensado en el recibo '#39' + + '#39' )'#39';' + ' end;' 'end;' '' - 'procedure frxReportOnStartReport(Sender: TfrxComponent);' + 'procedure Memo40OnBeforePrint(Sender: TfrxComponent);' 'begin' - ' Set('#39'Pagina'#39', 0);' - ' Set('#39'TotalPaginas'#39', 0);' + ' if ( < 1) then' + ' begin' + ' Memo40.visible := False;' + ' Memo25.visible := False; ' + ' eFormaPagoFactura.visible := False;' + ' Memo26.visible := False; ' + ' end' + 'end;' + '' + 'procedure Memo35OnBeforePrint(Sender: TfrxComponent);' + 'begin' + ' if ( < 1) then' + ' begin' + ' Memo35.visible := False;' + ' Memo44.visible := False; ' + ' eFechaFactura.visible := False;' + ' Memo47.visible := False; ' + ' end' + 'end;' + '' + 'procedure Memo42OnBeforePrint(Sender: TfrxComponent);' + 'begin' + ' if ( < 1) then' + ' begin' + + ' Memo42.visible := False; ' + + ' ' + ' Memo45.visible := False;' + ' Memo38.visible := False;' + ' Memo39.visible := False;' + ' Memo43.visible := False;' + '' + + ' Memo27.visible := False; ' + + ' ' + ' Memo28.visible := False;' + ' Memo48.visible := False;' + ' Memo49.visible := False;' + ' Memo52.visible := False; ' + ' end;' 'end;' '' 'begin' @@ -1276,7 +1241,6 @@ object RptFacturasCliente: TRptFacturasCliente 'end.') ShowProgress = False StoreInDFM = False - OnStartReport = 'frxReportOnStartReport' Left = 169 Top = 16 end diff --git a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm index 3111a503..20c40b7b 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm @@ -1,20 +1,21 @@ inherited frViewReciboCliente: TfrViewReciboCliente - Width = 899 + Width = 905 Height = 509 - ExplicitWidth = 899 + ExplicitWidth = 905 ExplicitHeight = 509 object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 - Width = 899 + Width = 905 Height = 509 Align = alClient ParentBackground = True TabOrder = 0 AutoContentSizes = [acsWidth, acsHeight] LookAndFeel = dxLayoutOfficeLookAndFeel1 + ExplicitWidth = 899 DesignSize = ( - 899 + 905 509) object eReferencia: TcxDBTextEdit Left = 120 @@ -92,7 +93,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente end object memObservaciones: TcxDBMemo Left = 22 - Top = 267 + Top = 338 Anchors = [akLeft, akTop, akRight, akBottom] DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataSource = DADataSource @@ -104,12 +105,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 7 + TabOrder = 8 Height = 49 Width = 274 end object eFechaEmision: TcxDBTextEdit - Left = 661 + Left = 631 Top = 30 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_FACTURA' @@ -131,11 +132,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 8 + TabOrder = 9 Width = 20 end object eFormaPago: TcxDBTextEdit - Left = 661 + Left = 631 Top = 57 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FORMA_PAGO_FACTURA' @@ -157,11 +158,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 9 + TabOrder = 10 Width = 42 end object eImporteTotal: TcxDBCurrencyEdit - Left = 661 + Left = 631 Top = 84 AutoSize = False DataBinding.DataField = 'IMPORTE_FACTURA' @@ -188,12 +189,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 10 + TabOrder = 11 Height = 21 Width = 182 end object eNombreCliente: TcxDBTextEdit - Left = 661 + Left = 631 Top = 167 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'NOMBRE_CLIENTE' @@ -215,11 +216,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 12 + TabOrder = 13 Width = 171 end object eNifCif: TcxDBTextEdit - Left = 661 + Left = 631 Top = 140 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'NIF_CIF_CLIENTE' @@ -241,11 +242,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 11 + TabOrder = 12 Width = 147 end object eEntidad: TcxDBTextEdit - Left = 661 + Left = 631 Top = 194 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'ENTIDAD_CLIENTE' @@ -267,11 +268,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 13 + TabOrder = 14 Width = 90 end object eSucursal: TcxDBTextEdit - Left = 768 + Left = 759 Top = 194 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'SUCURSAL_CLIENTE' @@ -293,11 +294,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 14 + TabOrder = 15 Width = 75 end object eDC: TcxDBTextEdit - Left = 844 + Left = 850 Top = 194 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'DC_CLIENTE' @@ -319,11 +320,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 15 + TabOrder = 16 Width = 33 end object eCuenta: TcxDBTextEdit - Left = 661 + Left = 631 Top = 221 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'CUENTA_CLIENTE' @@ -345,7 +346,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 16 + TabOrder = 17 Width = 83 end object eRemesa: TcxDBTextEdit @@ -426,7 +427,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente Width = 191 end inline frViewClienteRecibo: TfrViewDatosYSeleccionCliente - Left = 585 + Left = 555 Top = 281 Width = 350 Height = 212 @@ -436,9 +437,9 @@ inherited frViewReciboCliente: TfrViewReciboCliente Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - TabOrder = 17 + TabOrder = 18 ReadOnly = False - ExplicitLeft = 585 + ExplicitLeft = 555 ExplicitTop = 281 inherited dxLayoutControl1: TdxLayoutControl inherited edtlNombre: TcxDBTextEdit @@ -462,12 +463,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente Width = 327 end inherited edtCodigoPostal: TcxDBTextEdit - Left = 200 - ExplicitLeft = 200 + Left = 236 + ExplicitLeft = 236 end inherited Button3: TBitBtn - Left = 90 - ExplicitLeft = 90 + Left = 126 + ExplicitLeft = 126 end end end @@ -497,12 +498,43 @@ inherited frViewReciboCliente: TfrViewReciboCliente TabOrder = 5 Width = 437 end + inline frViewTienda1: TfrViewTienda + Left = 120 + Top = 267 + Width = 451 + Height = 41 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 7 + ReadOnly = False + ExplicitLeft = 120 + ExplicitTop = 267 + inherited dxLayoutControl1: TdxLayoutControl + inherited cbTienda: TcxComboBox + Left = 10 + ExplicitLeft = 10 + ExplicitWidth = 200 + Width = 200 + end + inherited dxLayoutControl1Group_Root: TdxLayoutGroup + inherited dxLayoutControl1Item1: TdxLayoutItem + ShowCaption = False + end + end + end + end object dxLayoutControl1Group_Root: TdxLayoutGroup ShowCaption = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Group3: TdxLayoutGroup + AutoAligns = [aaVertical] + AlignHorz = ahClient ShowCaption = False Hidden = True ShowBorder = False @@ -556,6 +588,15 @@ inherited frViewReciboCliente: TfrViewReciboCliente ControlOptions.ShowBorder = False end end + object dxLayoutControl1Group5: TdxLayoutGroup + Caption = 'El recibo pertenece a la tienda' + object dxLayoutControl1Item18: TdxLayoutItem + Caption = 'Tienda:' + Control = frViewTienda1 + ControlOptions.AutoColor = True + ControlOptions.ShowBorder = False + end + end object dxLayoutControl1Group7: TdxLayoutGroup Caption = 'Observaciones' object dxLayoutControl1Item5: TdxLayoutItem diff --git a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas index 64151d6f..bfdd8962 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas +++ b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas @@ -7,7 +7,8 @@ uses Dialogs, uViewBase, uBizRecibosCliente, DB, uDADataTable, dxLayoutControl, cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit, cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls, - uDAInterfaces, uCustomView, uViewDatosYSeleccionCliente, uRecibosClienteController; + uDAInterfaces, uCustomView, uViewDatosYSeleccionCliente, uRecibosClienteController, + uViewTienda; type IViewReciboCliente = interface(IViewBase) @@ -74,6 +75,9 @@ type dxLayoutControlClienteModif: TdxLayoutGroup; dxLayoutControl1Item17: TdxLayoutItem; eDescripcion: TcxDBTextEdit; + dxLayoutControl1Item18: TdxLayoutItem; + frViewTienda1: TfrViewTienda; + dxLayoutControl1Group5: TdxLayoutGroup; private FRecibo : IBizRecibosCliente; FController : IRecibosClienteController; @@ -119,7 +123,7 @@ procedure TfrViewReciboCliente.SetRecibo(const Value: IBizRecibosCliente); begin FRecibo := Value; - //Por defecto + //Por defecto dxLayoutControlFactura.Visible := true; dxLayoutControlCliente.Visible := true; dxLayoutControlClienteModif.Visible := false; @@ -128,12 +132,14 @@ begin if Assigned(FRecibo) then begin DADataSource.DataTable := FRecibo.DataTable; + frViewTienda1.DataItem := FRecibo.DataTable; + if FRecibo.SinFactura then begin dxLayoutControlFactura.Visible := false; dxLayoutControlCliente.Visible := false; dxLayoutControlClienteModif.Visible := true; - eDescripcion.Enabled := True; + eDescripcion.Enabled := True; end; end else diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm index 089a93a5..df90e81a 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm @@ -48,6 +48,15 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente DataBinding.FieldName = 'REFERENCIA' Width = 64 end + object cxGridViewID_TIENDA: TcxGridDBColumn + DataBinding.FieldName = 'ID_TIENDA' + Visible = False + VisibleForCustomization = False + end + object cxGridViewTIENDA: TcxGridDBColumn + Caption = 'Tienda' + DataBinding.FieldName = 'TIENDA' + end object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn Caption = 'Compensado' DataBinding.FieldName = 'ID_RECIBO_COMPENSADO' @@ -161,9 +170,17 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente inherited dxLayoutControl1: TdxLayoutControl Width = 531 ExplicitWidth = 531 + inherited txtFiltroTodo: TcxTextEdit + ExplicitWidth = 273 + Width = 273 + end + inherited edtFechaIniFiltro: TcxDateEdit + ExplicitWidth = 121 + Width = 121 + end inherited edtFechaFinFiltro: TcxDateEdit - Left = 287 - ExplicitLeft = 287 + Left = 229 + ExplicitLeft = 229 ExplicitWidth = 287 Width = 287 end diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas index 56363885..5bb88f49 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas +++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas @@ -49,6 +49,8 @@ type TBXSeparatorItem1: TTBXSeparatorItem; cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn; cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn; + cxGridViewTIENDA: TcxGridDBColumn; + cxGridViewID_TIENDA: TcxGridDBColumn; procedure cxGridViewICONOCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); @@ -154,7 +156,7 @@ begin if cxGridView.DataController.Filter.IsEmpty then cxGridView.DataController.Filter.Active := False else cxGridView.DataController.Filter.Active := True; -// cxGrid.ActiveLevel.GridView := cxGridView; + cxGrid.ActiveLevel.GridView := cxGridView; end; procedure TfrViewRecibosCliente.cxGridActiveTabChanged(Sender: TcxCustomGrid; diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index bf4c5be8..8a00ab5f 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -86,8 +86,6 @@ uses srvUnidadesMedida_Impl in '..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas' {srvUnidadesMedida: TDataAbstractService}, schUnidadesMedidaClient_Intf in '..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas', schUnidadesMedidaServer_Intf in '..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas', - schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas', - schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas', uBizPagosProveedorServer in '..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas', schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas', schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas', @@ -118,7 +116,9 @@ uses schReferenciasClient_Intf in '..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas', schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas', schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', - schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas'; + schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', + schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas', + schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index a07137c8..b2b45ecd 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -30,18 +30,6 @@ FalseTrueFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.03.0.0.0lunes, 19 de noviembre de 2007 18:58 - - - - - - - - - - - - RemObjects Pascal Script - RemObjects SDK 3.0 Integration FactuGES_Server.dpr