From 6fb16b25d3707357b414d4d6a7d0530335637eba Mon Sep 17 00:00:00 2001 From: david Date: Tue, 12 Nov 2013 18:13:29 +0000 Subject: [PATCH] =?UTF-8?q?Tarea=20#1280=20->=20En=20los=20presupuesto,=20?= =?UTF-8?q?a=C3=B1adir=20un=20campo=20de=20CALIDADES=20Tarea=20#1228=20->?= =?UTF-8?q?=20Poder=20a=C3=B1adir=20en=20contratos=20una=20hoja=20de=20cal?= =?UTF-8?q?idades=20similar=20a=20la=20de=20condiciones=20pero=20con=20pos?= =?UTF-8?q?ibilidad=20de=20adaptarlo=20segun=20proveedor?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@581 f4e31baf-9722-1c47-927c-6f952f962d4b --- Database/scripts/factuges.sql | 5351 +++++++++++++---- .../Views/uViewConfiguracionGeneral.dfm | 28 +- Source/ApplicationBase/uFactuGES_App.pas | 19 +- Source/Informes/InfContratoCliente.fr3 | 45 +- Source/Informes/InfPresupuestoCliente.fr3 | 31 +- .../uContratosClienteController.pas | 8 +- .../Data/uDataModuleContratosCliente.dfm | 8 + .../Model/schContratosClienteClient_Intf.pas | 68 +- .../Model/schContratosClienteServer_Intf.pas | 78 +- .../Reports/uRptContratosCliente_Server.dfm | 40 +- .../Servidor/srvContratosCliente_Impl.dfm | 54 +- .../Views/uEditorContratoCliente.dfm | 85 +- .../Views/uEditorContratoCliente.pas | 5 + .../uPresupuestosClienteController.pas | 12 + .../Data/uDataModulePresupuestosCliente.dfm | 37 + .../schPresupuestosClienteClient_Intf.pas | 146 +- .../schPresupuestosClienteServer_Intf.pas | 74 +- .../Model/uBizPresupuestosCliente.pas | 2 + .../uRptPresupuestosCliente_Server.dfm | 60 +- .../Servidor/srvPresupuestosCliente_Impl.dfm | 128 +- .../Views/uEditorPresupuestoCliente.dfm | 210 +- .../Views/uEditorPresupuestoCliente.pas | 7 +- .../Views/uViewConfiguracionDocArmario.dfm | 201 +- .../Views/uViewConfiguracionDocArmario.pas | 7 + .../Views/uViewConfiguracionDocBano.dfm | 146 +- .../Views/uViewConfiguracionDocBano.pas | 7 + .../Views/uViewConfiguracionDocCocina.dfm | 144 +- .../Views/uViewConfiguracionDocCocina.pas | 7 + .../uViewConfiguracionDocElectrodomestico.dfm | 145 +- .../uViewConfiguracionDocElectrodomestico.pas | 7 + .../Views/uViewConfiguracionDocObra.dfm | 145 +- .../Views/uViewConfiguracionDocObra.pas | 7 + .../Views/uViewConfiguracionDocVarios.dfm | 46 +- .../Views/uViewConfiguracionDocVarios.pas | 7 + .../uGenerarContratosCliUtils.pas | 1 + Source/Servidor/FactuGES_Server.rc | 2 +- Source/Servidor/FactuGES_Server.res | Bin 23348 -> 23352 bytes 37 files changed, 5566 insertions(+), 1802 deletions(-) diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index bf0e8a8e..bd8c520a 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -1,7 +1,3 @@ -/******************************************************************************/ -/**** Generated by IBExpert 2007.05.03 14/03/2008 10:23:14 ****/ -/******************************************************************************/ - SET SQL DIALECT 3; SET NAMES ISO8859_1; @@ -13,12 +9,12 @@ DEFAULT CHARACTER SET ISO8859_1; /******************************************************************************/ -/**** User Defined Functions ****/ +/*** User Defined Functions ***/ /******************************************************************************/ DECLARE EXTERNAL FUNCTION F_RTFTOTEXT - CString(32767) - RETURNS CString(32767) + CSTRING(32767) + RETURNS CSTRING(32767) ENTRY_POINT 'RtfToText' MODULE_NAME 'udf_RtfToText.dll'; @@ -46,7 +42,7 @@ DECLARE EXTERNAL FUNCTION SUBSTR /******************************************************************************/ -/**** Domains ****/ +/*** Domains ***/ /******************************************************************************/ CREATE DOMAIN TIPO_BINARIO AS @@ -55,9 +51,15 @@ BLOB SUB_TYPE 0 SEGMENT SIZE 80; CREATE DOMAIN TIPO_BOOLEANO AS SMALLINT; +CREATE DOMAIN TIPO_CANTIDAD AS +NUMERIC(11,2); + CREATE DOMAIN TIPO_CONCEPTO AS VARCHAR(2000); +CREATE DOMAIN TIPO_FAMILIA AS +VARCHAR(255); + CREATE DOMAIN TIPO_ID AS INTEGER; @@ -76,218 +78,221 @@ FLOAT; CREATE DOMAIN TIPO_USUARIO AS VARCHAR(30); -CREATE DOMAIN TIPO_CANTIDAD AS -NUMERIC(11,2); -CREATE DOMAIN TIPO_FAMILIA AS -VARCHAR(255) CHARACTER SET ISO8859_1 -COLLATE ISO8859_1; /******************************************************************************/ -/**** Generators ****/ +/*** Generators ***/ /******************************************************************************/ +CREATE GENERATOR GEN_AGENTES_COMISIONES_ID; +SET GENERATOR GEN_AGENTES_COMISIONES_ID TO 1000000000; + CREATE GENERATOR GEN_ALBARANES_CLI_DETALLES_ID; -SET GENERATOR GEN_ALBARANES_CLI_DETALLES_ID TO 1; +SET GENERATOR GEN_ALBARANES_CLI_DETALLES_ID TO 1000000509; CREATE GENERATOR GEN_ALBARANES_CLI_ID; -SET GENERATOR GEN_ALBARANES_CLI_ID TO 1; +SET GENERATOR GEN_ALBARANES_CLI_ID TO 1000000132; CREATE GENERATOR GEN_ALBARANES_PRO_DETALLES_ID; -SET GENERATOR GEN_ALBARANES_PRO_DETALLES_ID TO 1; +SET GENERATOR GEN_ALBARANES_PRO_DETALLES_ID TO 1000000000; CREATE GENERATOR GEN_ALBARANES_PRO_ID; -SET GENERATOR GEN_ALBARANES_PRO_ID TO 1; +SET GENERATOR GEN_ALBARANES_PRO_ID TO 1000000000; CREATE GENERATOR GEN_ALMACENES_ID; -SET GENERATOR GEN_ALMACENES_ID TO 1; +SET GENERATOR GEN_ALMACENES_ID TO 1000000000; CREATE GENERATOR GEN_ARTICULOS_ID; -SET GENERATOR GEN_ARTICULOS_ID TO 1; +SET GENERATOR GEN_ARTICULOS_ID TO 1000000679; CREATE GENERATOR GEN_BALANCES_ID; -SET GENERATOR GEN_BALANCES_ID TO 1; +SET GENERATOR GEN_BALANCES_ID TO 1000000000; CREATE GENERATOR GEN_CATEGORIAS_ID; -SET GENERATOR GEN_CATEGORIAS_ID TO 1; +SET GENERATOR GEN_CATEGORIAS_ID TO 1000000000; + +CREATE GENERATOR GEN_CHANGECODE; +SET GENERATOR GEN_CHANGECODE TO 219242; CREATE GENERATOR GEN_CLIENTES_DTOS_PROV_ID; -SET GENERATOR GEN_CLIENTES_DTOS_PROV_ID TO 1; +SET GENERATOR GEN_CLIENTES_DTOS_PROV_ID TO 1000000000; CREATE GENERATOR GEN_CLIENTES_GRUPOS_ID; -SET GENERATOR GEN_CLIENTES_GRUPOS_ID TO 1; +SET GENERATOR GEN_CLIENTES_GRUPOS_ID TO 1000000001; CREATE GENERATOR GEN_CLIENTES_PROCEDENCIAS_ID; -SET GENERATOR GEN_CLIENTES_PROCEDENCIAS_ID TO 1; +SET GENERATOR GEN_CLIENTES_PROCEDENCIAS_ID TO 1000000058; CREATE GENERATOR GEN_COMISIONES_LIQUID_ID; -SET GENERATOR GEN_COMISIONES_LIQUID_ID TO 1; +SET GENERATOR GEN_COMISIONES_LIQUID_ID TO 1000000028; CREATE GENERATOR GEN_COMISIONES_VENDEDORES_ID; -SET GENERATOR GEN_COMISIONES_VENDEDORES_ID TO 1; +SET GENERATOR GEN_COMISIONES_VENDEDORES_ID TO 1000000031; CREATE GENERATOR GEN_CONFIGURACION_ID; -SET GENERATOR GEN_CONFIGURACION_ID TO 1; +SET GENERATOR GEN_CONFIGURACION_ID TO 1000000022; CREATE GENERATOR GEN_CONTACTOS_DATOS_BANCO_ID; -SET GENERATOR GEN_CONTACTOS_DATOS_BANCO_ID TO 1; +SET GENERATOR GEN_CONTACTOS_DATOS_BANCO_ID TO 1000000003; CREATE GENERATOR GEN_CONTACTOS_DIR_ID; -SET GENERATOR GEN_CONTACTOS_DIR_ID TO 1; +SET GENERATOR GEN_CONTACTOS_DIR_ID TO 1000000046; CREATE GENERATOR GEN_CONTACTOS_ID; -SET GENERATOR GEN_CONTACTOS_ID TO 1; +SET GENERATOR GEN_CONTACTOS_ID TO 1000001239; CREATE GENERATOR GEN_CONTACTOS_PERSONAL_ID; -SET GENERATOR GEN_CONTACTOS_PERSONAL_ID TO 1; - -CREATE GENERATOR GEN_CONT_APUNTES_ID; -SET GENERATOR GEN_CONT_APUNTES_ID TO 1; - -CREATE GENERATOR GEN_CONT_ASIENTOS_ID; -SET GENERATOR GEN_CONT_ASIENTOS_ID TO 1; - -CREATE GENERATOR GEN_CONT_BALANCES_ID; -SET GENERATOR GEN_CONT_BALANCES_ID TO 1; - -CREATE GENERATOR GEN_CONT_CUENTAS_ESP_ID; -SET GENERATOR GEN_CONT_CUENTAS_ESP_ID TO 1; - -CREATE GENERATOR GEN_CONT_CUENTAS_ID; -SET GENERATOR GEN_CONT_CUENTAS_ID TO 1; - -CREATE GENERATOR GEN_CONT_EJERCICIOS_ID; -SET GENERATOR GEN_CONT_EJERCICIOS_ID TO 1; - -CREATE GENERATOR GEN_CONT_EPIGRAFES_ID; -SET GENERATOR GEN_CONT_EPIGRAFES_ID TO 1; - -CREATE GENERATOR GEN_CONT_SUBCUENTAS_ID; -SET GENERATOR GEN_CONT_SUBCUENTAS_ID TO 1; - -CREATE GENERATOR GEN_EJERCICIOS_ID; -SET GENERATOR GEN_EJERCICIOS_ID TO 1; - -CREATE GENERATOR GEN_EMPRESAS_CONTACTOS_ID; -SET GENERATOR GEN_EMPRESAS_CONTACTOS_ID TO 1; - -CREATE GENERATOR GEN_EMPRESAS_DATOS_BANCO_ID; -SET GENERATOR GEN_EMPRESAS_DATOS_BANCO_ID TO 1; - -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; - -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; - -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; - -CREATE GENERATOR GEN_FACTURAS_PROV_CONTRATOS_ID; -SET GENERATOR GEN_FACTURAS_PROV_CONTRATOS_ID TO 1; - -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; - -CREATE GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID; -SET GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID TO 1; - -CREATE GENERATOR GEN_INFORMES_ID; -SET GENERATOR GEN_INFORMES_ID TO 1; - -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; - -CREATE GENERATOR GEN_PAGOS_PROVEEDOR_ID; -SET GENERATOR GEN_PAGOS_PROVEEDOR_ID TO 1; - -CREATE GENERATOR GEN_PEDIDOS_CLI_DETALLES_ID; -SET GENERATOR GEN_PEDIDOS_CLI_DETALLES_ID TO 1; - -CREATE GENERATOR GEN_PEDIDOS_CLI_ID; -SET GENERATOR GEN_PEDIDOS_CLI_ID TO 1; - -CREATE GENERATOR GEN_PEDIDOS_PROV_DETALLES_ID; -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; - -CREATE GENERATOR GEN_CONTRATOS_CLI_ID; -SET GENERATOR GEN_CONTRATOS_CLI_ID TO 1; +SET GENERATOR GEN_CONTACTOS_PERSONAL_ID TO 1000000011; CREATE GENERATOR GEN_CONTRATOS_CLI_DETALLE_ID; -SET GENERATOR GEN_CONTRATOS_CLI_DETALLE_ID TO 1; +SET GENERATOR GEN_CONTRATOS_CLI_DETALLE_ID TO 15356; -CREATE GENERATOR GEN_PRESUPUESTOS_CLI_ID; -SET GENERATOR GEN_PRESUPUESTOS_CLI_ID TO 1; +CREATE GENERATOR GEN_CONTRATOS_CLI_ID; +SET GENERATOR GEN_CONTRATOS_CLI_ID TO 711; -CREATE GENERATOR GEN_PROVEEDORES_GRUPOS_ID; -SET GENERATOR GEN_PROVEEDORES_GRUPOS_ID TO 1; +CREATE GENERATOR GEN_CONT_APUNTES_ID; +SET GENERATOR GEN_CONT_APUNTES_ID TO 1000024606; -CREATE GENERATOR GEN_RECIBOS_CLIENTE_ID; -SET GENERATOR GEN_RECIBOS_CLIENTE_ID TO 1; +CREATE GENERATOR GEN_CONT_ASIENTOS_ID; +SET GENERATOR GEN_CONT_ASIENTOS_ID TO 1000006625; -CREATE GENERATOR GEN_RECIBOS_PROVEEDOR_ID; -SET GENERATOR GEN_RECIBOS_PROVEEDOR_ID TO 1; +CREATE GENERATOR GEN_CONT_BALANCES_ID; +SET GENERATOR GEN_CONT_BALANCES_ID TO 1000000000; -CREATE GENERATOR GEN_REMESAS_CLIENTE_ID; -SET GENERATOR GEN_REMESAS_CLIENTE_ID TO 1; +CREATE GENERATOR GEN_CONT_CUENTAS_ESP_ID; +SET GENERATOR GEN_CONT_CUENTAS_ESP_ID TO 1000000000; -CREATE GENERATOR GEN_REMESAS_PROVEEDOR_ID; -SET GENERATOR GEN_REMESAS_PROVEEDOR_ID TO 1; +CREATE GENERATOR GEN_CONT_CUENTAS_ID; +SET GENERATOR GEN_CONT_CUENTAS_ID TO 1000010404; -CREATE GENERATOR GEN_TIENDA_WEB_ID; -SET GENERATOR GEN_TIENDA_WEB_ID TO 1; +CREATE GENERATOR GEN_CONT_EJERCICIOS_ID; +SET GENERATOR GEN_CONT_EJERCICIOS_ID TO 1000000016; -CREATE GENERATOR GEN_TIPOS_IVA_ID; -SET GENERATOR GEN_TIPOS_IVA_ID TO 1; +CREATE GENERATOR GEN_CONT_EPIGRAFES_ID; +SET GENERATOR GEN_CONT_EPIGRAFES_ID TO 1000001207; -CREATE GENERATOR GEN_UNIDADES_MEDIDA_ID; -SET GENERATOR GEN_UNIDADES_MEDIDA_ID TO 1; +CREATE GENERATOR GEN_CONT_SUBCUENTAS_ID; +SET GENERATOR GEN_CONT_SUBCUENTAS_ID TO 1000040709; -CREATE GENERATOR GEN_USUARIOS_ID; -SET GENERATOR GEN_USUARIOS_ID TO 1; +CREATE GENERATOR GEN_EJERCICIOS_ID; +SET GENERATOR GEN_EJERCICIOS_ID TO 1000000000; + +CREATE GENERATOR GEN_EMPRESAS_CONTACTOS_ID; +SET GENERATOR GEN_EMPRESAS_CONTACTOS_ID TO 1000002510; + +CREATE GENERATOR GEN_EMPRESAS_DATOS_BANCO_ID; +SET GENERATOR GEN_EMPRESAS_DATOS_BANCO_ID TO 1000000000; + +CREATE GENERATOR GEN_EMPRESAS_ID; +SET GENERATOR GEN_EMPRESAS_ID TO 1000000000; + +CREATE GENERATOR GEN_EMPRESAS_TIENDAS_ID; +SET GENERATOR GEN_EMPRESAS_TIENDAS_ID TO 1000000000; + +CREATE GENERATOR GEN_EMPRESAS_USUARIOS_ID; +SET GENERATOR GEN_EMPRESAS_USUARIOS_ID TO 1000000000; + +CREATE GENERATOR GEN_FACTURAS_CLIENTE_ID; +SET GENERATOR GEN_FACTURAS_CLIENTE_ID TO 1000000799; + +CREATE GENERATOR GEN_FACTURAS_PROVEEDOR_ID; +SET GENERATOR GEN_FACTURAS_PROVEEDOR_ID TO 1000002405; + +CREATE GENERATOR GEN_FACTURAS_PROV_CONTRATOS_ID; +SET GENERATOR GEN_FACTURAS_PROV_CONTRATOS_ID TO 182; + +CREATE GENERATOR GEN_FACTURA_CLIENTE_DETALLES_ID; +SET GENERATOR GEN_FACTURA_CLIENTE_DETALLES_ID TO 1000005347; + +CREATE GENERATOR GEN_FACTURA_PROV_DETALLES_ID; +SET GENERATOR GEN_FACTURA_PROV_DETALLES_ID TO 1000002464; + +CREATE GENERATOR GEN_FAMILIAS_ID; +SET GENERATOR GEN_FAMILIAS_ID TO 1000000231; + +CREATE GENERATOR GEN_FORMAS_PAGO_ID; +SET GENERATOR GEN_FORMAS_PAGO_ID TO 1000000000; + +CREATE GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID; +SET GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID TO 1000000000; + +CREATE GENERATOR GEN_INFORMES_ID; +SET GENERATOR GEN_INFORMES_ID TO 1000000000; + +CREATE GENERATOR GEN_MOVIMIENTOS_ID; +SET GENERATOR GEN_MOVIMIENTOS_ID TO 1000000000; + +CREATE GENERATOR GEN_PAGOS_CLIENTE_ID; +SET GENERATOR GEN_PAGOS_CLIENTE_ID TO 1000001575; + +CREATE GENERATOR GEN_PAGOS_PROVEEDOR_ID; +SET GENERATOR GEN_PAGOS_PROVEEDOR_ID TO 1000000295; + +CREATE GENERATOR GEN_PEDIDOS_CLI_DETALLES_ID; +SET GENERATOR GEN_PEDIDOS_CLI_DETALLES_ID TO 1000000000; + +CREATE GENERATOR GEN_PEDIDOS_CLI_ID; +SET GENERATOR GEN_PEDIDOS_CLI_ID TO 1000000000; + +CREATE GENERATOR GEN_PEDIDOS_PROV_DETALLES_ID; +SET GENERATOR GEN_PEDIDOS_PROV_DETALLES_ID TO 1000000000; + +CREATE GENERATOR GEN_PEDIDOS_PROV_ID; +SET GENERATOR GEN_PEDIDOS_PROV_ID TO 1000000000; + +CREATE GENERATOR GEN_PERMISOSEX_ID; +SET GENERATOR GEN_PERMISOSEX_ID TO 1000000000; + +CREATE GENERATOR GEN_PERMISOS_ID; +SET GENERATOR GEN_PERMISOS_ID TO 1000000000; CREATE GENERATOR GEN_PRESUPUESTOS_CLIENTE_CAPITU; -SET GENERATOR GEN_PRESUPUESTOS_CLIENTE_CAPITU TO 1; +SET GENERATOR GEN_PRESUPUESTOS_CLIENTE_CAPITU TO 105; + +CREATE GENERATOR GEN_PRESUPUESTOS_CLI_DETALLE_ID; +SET GENERATOR GEN_PRESUPUESTOS_CLI_DETALLE_ID TO 1000050882; + +CREATE GENERATOR GEN_PRESUPUESTOS_CLI_ID; +SET GENERATOR GEN_PRESUPUESTOS_CLI_ID TO 1000002430; + +CREATE GENERATOR GEN_PROVEEDORES_GRUPOS_ID; +SET GENERATOR GEN_PROVEEDORES_GRUPOS_ID TO 1000000000; + +CREATE GENERATOR GEN_RECIBOS_CLIENTE_ID; +SET GENERATOR GEN_RECIBOS_CLIENTE_ID TO 1000001562; + +CREATE GENERATOR GEN_RECIBOS_PROVEEDOR_ID; +SET GENERATOR GEN_RECIBOS_PROVEEDOR_ID TO 1000002910; + +CREATE GENERATOR GEN_REMESAS_CLIENTE_ID; +SET GENERATOR GEN_REMESAS_CLIENTE_ID TO 1000000000; + +CREATE GENERATOR GEN_REMESAS_PROVEEDOR_ID; +SET GENERATOR GEN_REMESAS_PROVEEDOR_ID TO 1000000000; + +CREATE GENERATOR GEN_TIENDA_WEB_ID; +SET GENERATOR GEN_TIENDA_WEB_ID TO 1000000000; + +CREATE GENERATOR GEN_TIPOS_IVA_ID; +SET GENERATOR GEN_TIPOS_IVA_ID TO 8; + +CREATE GENERATOR GEN_UNIDADES_MEDIDA_ID; +SET GENERATOR GEN_UNIDADES_MEDIDA_ID TO 1000000000; + +CREATE GENERATOR GEN_USUARIOS_ID; +SET GENERATOR GEN_USUARIOS_ID TO 1000000000; + + SET TERM ^ ; /******************************************************************************/ -/**** Stored Procedures ****/ +/*** Stored Procedures ***/ /******************************************************************************/ -CREATE PROCEDURE PROC_CIERRE_APERTURA ( +CREATE OR ALTER PROCEDURE PROC_CIERRE_APERTURA ( ID_EJERCICIO_CIERRE INTEGER, ID_EJERCICIO_APERTURA INTEGER) AS @@ -296,7 +301,7 @@ BEGIN END^ -CREATE PROCEDURE PROC_DELETE_ASIENTO_FACTURA ( +CREATE OR ALTER PROCEDURE PROC_DELETE_ASIENTO_FACTURA ( IDFACTURA INTEGER, TIPO VARCHAR(1)) AS @@ -305,7 +310,7 @@ BEGIN END^ -CREATE PROCEDURE PROC_DELETE_ASIENTO_PAGO ( +CREATE OR ALTER PROCEDURE PROC_DELETE_ASIENTO_PAGO ( IDPAGO INTEGER, TIPO VARCHAR(1)) AS @@ -314,7 +319,7 @@ BEGIN END^ -CREATE PROCEDURE PROC_NEW_ASIENTO_FACTURA_CLI ( +CREATE OR ALTER PROCEDURE PROC_NEW_ASIENTO_FACTURA_CLI ( IDFACTURA INTEGER, ID_SUBCUENTA_VENTA INTEGER) AS @@ -323,7 +328,7 @@ BEGIN END^ -CREATE PROCEDURE PROC_NEW_ASIENTO_FACTURA_PROV ( +CREATE OR ALTER PROCEDURE PROC_NEW_ASIENTO_FACTURA_PROV ( IDFACTURA INTEGER, ID_SUBCUENTA_COMPRA INTEGER) AS @@ -332,7 +337,7 @@ BEGIN END^ -CREATE PROCEDURE PROC_NEW_ASIENTO_PAGO_CLI ( +CREATE OR ALTER PROCEDURE PROC_NEW_ASIENTO_PAGO_CLI ( IDPAGO INTEGER, IDSUBCUENTAPAGO INTEGER) AS @@ -341,7 +346,7 @@ BEGIN END^ -CREATE PROCEDURE PROC_NEW_ASIENTO_PAGO_PROV ( +CREATE OR ALTER PROCEDURE PROC_NEW_ASIENTO_PAGO_PROV ( IDPAGO INTEGER, IDSUBCUENTAPAGO INTEGER) AS @@ -350,7 +355,7 @@ BEGIN END^ -CREATE PROCEDURE PROC_NEW_CUENTAS ( +CREATE OR ALTER PROCEDURE PROC_NEW_CUENTAS ( ID_EJERCICIO_COPIA INTEGER, ID_EJERCICIO INTEGER, ID_EPIGRAFE_COPIA INTEGER, @@ -361,7 +366,7 @@ BEGIN END^ -CREATE PROCEDURE PROC_NEW_EPIGRAFES ( +CREATE OR ALTER PROCEDURE PROC_NEW_EPIGRAFES ( ID_EJERCICIO_COPIA INTEGER, ID_EJERCICIO INTEGER, ID_EPIGRAFE_COPIA INTEGER, @@ -375,7 +380,7 @@ BEGIN END^ -CREATE PROCEDURE PROC_NEW_PGC ( +CREATE OR ALTER PROCEDURE PROC_NEW_PGC ( ID_EJERCICIO_COPIA INTEGER, ID_EJERCICIO INTEGER) RETURNS ( @@ -386,7 +391,7 @@ BEGIN END^ -CREATE PROCEDURE PROC_NEW_SUBCUENTAS ( +CREATE OR ALTER PROCEDURE PROC_NEW_SUBCUENTAS ( ID_EJERCICIO_COPIA INTEGER, ID_EJERCICIO INTEGER, ID_CUENTA_COPIA INTEGER, @@ -396,50 +401,88 @@ BEGIN EXIT; END^ -CREATE PROCEDURE PROC_SET_EJERCICIOS_NOACTIVOS ( + +CREATE OR ALTER PROCEDURE PROC_PRE_CON_CAPITULOS ( + AID INTEGER, + TIPO VARCHAR(15)) +RETURNS ( + ID INTEGER, + ID_PRE_CON INTEGER, + POSICION INTEGER, + TIPO_DETALLE VARCHAR(25), + CONCEPTO VARCHAR(2000), + IMPORTE_TOTAL NUMERIC(11,4), + VISIBLE SMALLINT, + TIPO_ARTICULO VARCHAR(2), + DESCUENTO FLOAT, + IMPORTE_DESCUENTO NUMERIC(11,4)) +AS +BEGIN + SUSPEND; +END^ + + +CREATE OR ALTER PROCEDURE PROC_PRE_CON_CAPITULOS_CONCEP ( + AID INTEGER, + TIPO VARCHAR(15)) +RETURNS ( + ID INTEGER, + ID_PRE_CON INTEGER, + POSICION INTEGER, + TIPO_DETALLE VARCHAR(25), + ID_CAPITULO INTEGER, + TIPO_ARTICULO VARCHAR(2), + ID_ARTICULO INTEGER, + PROPIEDAD VARCHAR(50), + CONCEPTO VARCHAR(2000), + CANTIDAD NUMERIC(11,2), + IMPORTE_UNIDAD NUMERIC(11,4), + DESCUENTO NUMERIC(2,2), + IMPORTE_PORTE NUMERIC(11,4), + IMPORTE_TOTAL NUMERIC(11,4), + VISIBLE2 SMALLINT, + VISIBLE SMALLINT) +AS +BEGIN + SUSPEND; +END^ + + +CREATE OR ALTER PROCEDURE PROC_SET_EJERCICIOS_NOACTIVOS ( ID_EMPRESA INTEGER) AS BEGIN EXIT; END^ -CREATE PROCEDURE PROC_PRE_CON_CAPITULOS ( - aid integer, tipo varchar(15)) -as -begin -exit; -end^ -CREATE PROCEDURE PROC_PRE_CON_CAPITULOS_CONCEP( - aid integer, tipo varchar(15)) -as -begin -exit; -end^ SET TERM ; ^ + /******************************************************************************/ -/**** Tables ****/ +/*** Tables ***/ /******************************************************************************/ -CREATE TABLE COMISIONES_LIQ_VENDEDORES( - ID TIPO_ID NOT NULL, - ID_COMISION TIPO_ID, - ID_VENDEDOR TIPO_ID, - NOMBRE VARCHAR(255), - COMISION TIPO_PORCENTAJE, - IMPORTE_TOTAL TIPO_IMPORTE); + + +CREATE TABLE AGENTES_COMISIONES ( + ID TIPO_ID NOT NULL, + ID_AGENTE TIPO_ID DEFAULT 0 NOT NULL, + ID_PROVEEDOR SMALLINT DEFAULT 0 NOT NULL, + COMISION TIPO_PORCENTAJE DEFAULT 0 +); + CREATE TABLE ALBARANES_CLIENTE ( - ID TIPO_ID NOT NULL /* TIPO_ID = INTEGER */, - ID_EMPRESA TIPO_ID /* TIPO_ID = INTEGER */, - ID_CLIENTE TIPO_ID /* TIPO_ID = INTEGER */, + ID TIPO_ID NOT NULL, + ID_EMPRESA TIPO_ID, + ID_CLIENTE TIPO_ID, FECHA_ALBARAN DATE, - ID_ALMACEN TIPO_ID /* TIPO_ID = INTEGER */, - ID_PEDIDO TIPO_ID /* TIPO_ID = INTEGER */, - ID_FACTURA TIPO_ID /* TIPO_ID = INTEGER */, + ID_ALMACEN TIPO_ID, + ID_PEDIDO TIPO_ID, + ID_FACTURA TIPO_ID, TIPO VARCHAR(1), REFERENCIA VARCHAR(255), CALLE VARCHAR(255), @@ -448,32 +491,33 @@ CREATE TABLE ALBARANES_CLIENTE ( PROVINCIA VARCHAR(255), PERSONA_CONTACTO VARCHAR(255), TELEFONO VARCHAR(25), - IMPORTE_NETO TIPO_IMPORTE /* TIPO_IMPORTE = NUMERIC(11,2) */, - IMPORTE_PORTE TIPO_IMPORTE /* TIPO_IMPORTE = NUMERIC(11,2) */, - DESCUENTO TIPO_PORCENTAJE /* TIPO_PORCENTAJE = FLOAT */, - IMPORTE_DESCUENTO TIPO_IMPORTE /* TIPO_IMPORTE = NUMERIC(11,2) */, - BASE_IMPONIBLE TIPO_IMPORTE /* TIPO_IMPORTE = NUMERIC(11,2) */, - IVA TIPO_PORCENTAJE /* TIPO_PORCENTAJE = FLOAT */, - IMPORTE_IVA TIPO_IMPORTE /* TIPO_IMPORTE = NUMERIC(11,2) */, - IMPORTE_TOTAL TIPO_IMPORTE /* TIPO_IMPORTE = NUMERIC(11,2) */, - OBSERVACIONES TIPO_NOTAS /* TIPO_NOTAS = BLOB SUB_TYPE 1 SEGMENT SIZE 80 */, - INCIDENCIAS TIPO_NOTAS /* TIPO_NOTAS = BLOB SUB_TYPE 1 SEGMENT SIZE 80 */, + IMPORTE_NETO TIPO_IMPORTE, + IMPORTE_PORTE TIPO_IMPORTE, + DESCUENTO TIPO_PORCENTAJE, + IMPORTE_DESCUENTO TIPO_IMPORTE, + BASE_IMPONIBLE TIPO_IMPORTE, + IVA TIPO_PORCENTAJE, + IMPORTE_IVA TIPO_IMPORTE, + IMPORTE_TOTAL TIPO_IMPORTE, + OBSERVACIONES TIPO_NOTAS, + INCIDENCIAS TIPO_NOTAS, INCIDENCIAS_ACTIVAS SMALLINT DEFAULT 0 NOT NULL, FECHA_ALTA TIMESTAMP, FECHA_MODIFICACION TIMESTAMP, - USUARIO TIPO_USUARIO /* TIPO_USUARIO = VARCHAR(30) */, - ID_FORMA_PAGO TIPO_ID /* TIPO_ID = INTEGER */, + USUARIO TIPO_USUARIO, + ID_FORMA_PAGO TIPO_ID, FECHA_ENVIO DATE, FECHA_RECEPCION DATE, FECHA_PREVISTA_ENVIO DATE, REFERENCIA_CLIENTE VARCHAR(255) COLLATE ES_ES, - ID_TIENDA TIPO_ID /* TIPO_ID = INTEGER */, - ID_DIRECCION TIPO_ID /* TIPO_ID = INTEGER */, - ID_TIPO_IVA TIPO_ID /* TIPO_ID = INTEGER */, + ID_TIENDA TIPO_ID, + ID_DIRECCION TIPO_ID, + ID_TIPO_IVA TIPO_ID, MOVIL VARCHAR(25), - ID_CONTRATO TIPO_ID /* TIPO_ID = INTEGER */ + ID_CONTRATO TIPO_ID ); + CREATE TABLE ALBARANES_CLIENTE_DETALLES ( ID TIPO_ID NOT NULL, ID_ALBARAN TIPO_ID NOT NULL, @@ -491,6 +535,7 @@ CREATE TABLE ALBARANES_CLIENTE_DETALLES ( FECHA_MODIFICACION TIMESTAMP ); + CREATE TABLE ALBARANES_PROVEEDOR ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID, @@ -509,7 +554,6 @@ CREATE TABLE ALBARANES_PROVEEDOR ( BASE_IMPONIBLE TIPO_IMPORTE, DESCUENTO TIPO_PORCENTAJE, IMPORTE_DESCUENTO TIPO_IMPORTE, - ID_TIPO_IVA TIPO_ID, IVA TIPO_PORCENTAJE, IMPORTE_IVA TIPO_IMPORTE, IMPORTE_TOTAL TIPO_IMPORTE, @@ -525,9 +569,11 @@ CREATE TABLE ALBARANES_PROVEEDOR ( IMPORTE_PORTE TIPO_IMPORTE, REFERENCIA_PROVEEDOR VARCHAR(255), REF_FACTURA_PROV VARCHAR(255), - ID_TIENDA TIPO_ID + ID_TIENDA TIPO_ID, + ID_TIPO_IVA TIPO_ID ); + CREATE TABLE ALBARANES_PROVEEDOR_DETALLES ( ID TIPO_ID NOT NULL, ID_ALBARAN TIPO_ID NOT NULL, @@ -545,6 +591,7 @@ CREATE TABLE ALBARANES_PROVEEDOR_DETALLES ( FECHA_MODIFICACION TIMESTAMP ); + CREATE TABLE ALMACENES ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID NOT NULL, @@ -563,6 +610,7 @@ CREATE TABLE ALMACENES ( USUARIO TIPO_USUARIO ); + CREATE TABLE ARTICULOS ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID, @@ -585,33 +633,45 @@ 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, - GRUPO_CLIENTE VARCHAR(255), - NOMBRE_COMERCIAL VARCHAR(255), - BLOQUEADO TIPO_BOOLEANO DEFAULT 0 NOT NULL, - REGIMEN_IVA VARCHAR(255), - MOTIVO_BLOQUEO VARCHAR(255), - RECARGO_EQUIVALENCIA TIPO_BOOLEANO, - ID_TIPO_IVA TIPO_ID, - ID_FORMA_PAGO TIPO_ID, - TIENDA_WEB TIPO_BOOLEANO, - DESCUENTO TIPO_PORCENTAJE, - CODIGO_ASIGNADO VARCHAR(255), - IGNORAR_CONTABILIDAD TIPO_ID, - TIENE_SUBCUENTA TIPO_ID, - PROCEDENCIA_CLIENTE VARCHAR(255), - VENCIMIENTO_FACTURAS_1 INTEGER, - VENCIMIENTO_FACTURAS_2 INTEGER, - VENCIMIENTO_FACTURAS_3 INTEGER + +CREATE TABLE CHANGES ( + CHANGECODE BIGINT NOT NULL, + TABLENAME VARCHAR(32) NOT NULL, + TABLEKEY BIGINT NOT NULL, + OP CHAR(1) NOT NULL, + LOC_ID INTEGER NOT NULL ); + +CREATE TABLE CLIENTES_DATOS ( + ID_CLIENTE TIPO_ID NOT NULL, + ID_AGENTE TIPO_ID, + GRUPO_CLIENTE VARCHAR(255), + NOMBRE_COMERCIAL VARCHAR(255), + BLOQUEADO TIPO_BOOLEANO DEFAULT 0 NOT NULL, + REGIMEN_IVA VARCHAR(255), + MOTIVO_BLOQUEO VARCHAR(255), + RECARGO_EQUIVALENCIA TIPO_BOOLEANO, + ID_TIPO_IVA TIPO_ID, + ID_FORMA_PAGO TIPO_ID, + TIENDA_WEB TIPO_BOOLEANO, + DESCUENTO TIPO_PORCENTAJE, + CODIGO_ASIGNADO VARCHAR(255), + IGNORAR_CONTABILIDAD TIPO_ID, + PROCEDENCIA_CLIENTE VARCHAR(255) COLLATE ES_ES, + TIENE_SUBCUENTA TIPO_ID, + VENCIMIENTO_FACTURAS_1 INTEGER, + VENCIMIENTO_FACTURAS_2 INTEGER, + VENCIMIENTO_FACTURAS_3 INTEGER +); + + CREATE TABLE CLIENTES_DTOS_PROVEEDORES ( ID TIPO_ID NOT NULL, ID_CLIENTE TIPO_ID DEFAULT 0 NOT NULL, @@ -619,16 +679,29 @@ CREATE TABLE CLIENTES_DTOS_PROVEEDORES ( DESCUENTO TIPO_PORCENTAJE DEFAULT 0 ); + CREATE TABLE CLIENTES_GRUPOS ( ID TIPO_ID NOT NULL, DESCRIPCION VARCHAR(255) ); + CREATE TABLE CLIENTES_PROCEDENCIAS ( ID TIPO_ID NOT NULL, DESCRIPCION VARCHAR(255) ); + +CREATE TABLE COMISIONES_LIQ_VENDEDORES ( + ID TIPO_ID NOT NULL, + ID_COMISION TIPO_ID, + ID_VENDEDOR TIPO_ID, + NOMBRE VARCHAR(255), + COMISION TIPO_PORCENTAJE, + IMPORTE_TOTAL TIPO_IMPORTE +); + + CREATE TABLE COMISIONES_LIQUIDADAS ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID, @@ -642,26 +715,29 @@ CREATE TABLE COMISIONES_LIQUIDADAS ( USUARIO TIPO_USUARIO ); + CREATE TABLE CONFIGURACION ( ID TIPO_ID NOT NULL, CODIGO VARCHAR(50) NOT NULL, - VALOR TIPO_CONCEPTO NOT NULL, + VALOR TIPO_CONCEPTO, ID_EMPRESA TIPO_ID, - VALOR_BLOB BLOB SUB_TYPE 2 SEGMENT SIZE 4096 + VALOR_BLOB TIPO_NOTAS ); + CREATE TABLE CONT_APUNTES ( ID TIPO_ID NOT NULL, ID_ASIENTO TIPO_ID, ID_SUBCUENTA TIPO_ID, NUM_ORDEN TIPO_ID, CONCEPTO VARCHAR(255), - DOCUMENTO VARCHAR(255), + DOCUMENTO VARCHAR(255) COLLATE ES_ES, PUNTEADO SMALLINT, DEBE TIPO_IMPORTE, HABER TIPO_IMPORTE ); + CREATE TABLE CONT_ASIENTOS ( ID TIPO_ID NOT NULL, FECHA_ASIENTO DATE, @@ -671,6 +747,7 @@ CREATE TABLE CONT_ASIENTOS ( TIPO VARCHAR(1) ); + CREATE TABLE CONT_BALANCES ( ID TIPO_ID NOT NULL, REF_BALANCE VARCHAR(255), @@ -683,6 +760,7 @@ CREATE TABLE CONT_BALANCES ( DESCRIPCION3 VARCHAR(255) ); + CREATE TABLE CONT_CUENTAS ( ID TIPO_ID NOT NULL, REF_CUENTA VARCHAR(10), @@ -693,12 +771,14 @@ 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, @@ -713,6 +793,7 @@ CREATE TABLE CONT_EJERCICIOS ( ACTIVO SMALLINT ); + CREATE TABLE CONT_EPIGRAFES ( ID TIPO_ID NOT NULL, REF_EPIGRAFE VARCHAR(6), @@ -721,6 +802,7 @@ CREATE TABLE CONT_EPIGRAFES ( ID_EJERCICIO TIPO_ID ); + CREATE TABLE CONT_SUBCUENTAS ( ID TIPO_ID NOT NULL, REF_SUBCUENTA VARCHAR(15), @@ -730,6 +812,7 @@ CREATE TABLE CONT_SUBCUENTAS ( ID_CONTACTO TIPO_ID ); + CREATE TABLE CONTACTOS ( ID TIPO_ID NOT NULL, NIF_CIF VARCHAR(15), @@ -755,11 +838,26 @@ 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, + TITULAR VARCHAR(255), + ENTIDAD VARCHAR(15), + SUCURSAL VARCHAR(15), + DC VARCHAR(15), + CUENTA VARCHAR(15), + FECHA_ALTA TIMESTAMP, + FECHA_MODIFICACION TIMESTAMP +); + + CREATE TABLE CONTACTOS_DATOS_PERSONAL ( ID TIPO_ID NOT NULL, ID_CONTACTO TIPO_ID NOT NULL, @@ -773,22 +871,10 @@ CREATE TABLE CONTACTOS_DATOS_PERSONAL ( FECHA_MODIFICACION TIMESTAMP ); -CREATE TABLE CONTACTOS_DATOS_BANCO ( - ID TIPO_ID NOT NULL, - ID_CONTACTO TIPO_ID NOT NULL, - TITULAR VARCHAR(255), - ENTIDAD VARCHAR(15), - SUCURSAL VARCHAR(15), - DC VARCHAR(15), - CUENTA VARCHAR(15), - FECHA_ALTA TIMESTAMP, - FECHA_MODIFICACION TIMESTAMP -); CREATE TABLE CONTACTOS_DIRECCIONES ( ID TIPO_ID NOT NULL, ID_CONTACTO TIPO_ID NOT NULL, - NIF_CIF VARCHAR(15), CALLE VARCHAR(255), POBLACION VARCHAR(255), PROVINCIA VARCHAR(255), @@ -802,48 +888,113 @@ CREATE TABLE CONTACTOS_DIRECCIONES ( NOTAS TIPO_NOTAS, PORTE TIPO_IMPORTE, FECHA_ALTA TIMESTAMP, - FECHA_MODIFICACION TIMESTAMP + FECHA_MODIFICACION TIMESTAMP, + NIF_CIF VARCHAR(15) ); -CREATE TABLE VENDEDORES_DATOS( - ID_VENDEDOR TIPO_ID NOT NULL, - COMISION TIPO_PORCENTAJE, - ID_USUARIO TIPO_ID); -CREATE TABLE EMPRESAS ( +CREATE TABLE CONTRATOS_CLIENTE ( + ID TIPO_ID NOT NULL, + ID_EMPRESA TIPO_ID, + ID_CLIENTE TIPO_ID, + NIF_CIF VARCHAR(15), + NOMBRE VARCHAR(255), + CALLE VARCHAR(255), + POBLACION VARCHAR(255), + PROVINCIA VARCHAR(255), + CODIGO_POSTAL VARCHAR(10), + REFERENCIA VARCHAR(255), + FECHA_CONTRATO DATE, + SITUACION VARCHAR(255), + FORMA_PAGO TIPO_NOTAS, + PLAZO_ENTREGA TIPO_NOTAS, + OBSERVACIONES TIPO_NOTAS, + INCIDENCIAS TIPO_NOTAS, + INCIDENCIAS_ACTIVAS SMALLINT DEFAULT 0 NOT NULL, + FECHA_ALTA TIMESTAMP, + FECHA_MODIFICACION TIMESTAMP, + USUARIO TIPO_USUARIO, + IMPORTE_NETO TIPO_IMPORTE, + IMPORTE_PORTE TIPO_IMPORTE, + DESCUENTO TIPO_PORCENTAJE, + IMPORTE_DESCUENTO TIPO_IMPORTE, + BASE_IMPONIBLE TIPO_IMPORTE, + IVA TIPO_PORCENTAJE, + IMPORTE_IVA TIPO_IMPORTE, + IMPORTE_TOTAL TIPO_IMPORTE, + ID_FORMA_PAGO TIPO_ID, + ID_TIENDA TIPO_ID, + ID_VENDEDOR TIPO_ID, + ID_TIPO_IVA TIPO_ID, + PERSONA_CONTACTO VARCHAR(255) COLLATE ES_ES, + RECARGO_EQUIVALENCIA TIPO_BOOLEANO, + RE TIPO_PORCENTAJE, + IMPORTE_RE TIPO_IMPORTE, + TELEFONO VARCHAR(25), + MOVIL VARCHAR(25), + ID_DIRECCION TIPO_ID, + TIPO_CONTRATO VARCHAR(255), + CONDICIONES TIPO_NOTAS +); + + +CREATE TABLE CONTRATOS_CLIENTE_DETALLES ( ID TIPO_ID NOT NULL, - NIF_CIF VARCHAR(15), - NOMBRE VARCHAR(255), - RAZON_SOCIAL VARCHAR(255), - CALLE VARCHAR(255), - POBLACION VARCHAR(255), - PROVINCIA VARCHAR(255), - CODIGO_POSTAL VARCHAR(10), - TELEFONO_1 VARCHAR(25), - TELEFONO_2 VARCHAR(25), - MOVIL_1 VARCHAR(25), - MOVIL_2 VARCHAR(25), - FAX VARCHAR(25), - EMAIL_1 VARCHAR(255), - EMAIL_2 VARCHAR(255), - PAGINA_WEB VARCHAR(255), - NOTAS TIPO_NOTAS, + ID_CONTRATO TIPO_ID NOT NULL, + POSICION INTEGER, + TIPO_DETALLE VARCHAR(10), + ID_ARTICULO TIPO_ID, + TIPO_ARTICULO VARCHAR(2) COLLATE ES_ES, + PROPIEDAD TIPO_FAMILIA, + CONCEPTO TIPO_CONCEPTO, + CANTIDAD TIPO_CANTIDAD, + IMPORTE_UNIDAD TIPO_IMPORTE, + DESCUENTO TIPO_PORCENTAJE, + IMPORTE_PORTE TIPO_IMPORTE, + IMPORTE_TOTAL TIPO_IMPORTE, + VISIBLE TIPO_BOOLEANO, FECHA_ALTA TIMESTAMP, FECHA_MODIFICACION TIMESTAMP, - USUARIO TIPO_USUARIO, - LOGOTIPO TIPO_BINARIO, - REGISTRO_MERCANTIL VARCHAR(255), - ID_TIPO_IVA SMALLINT, - ID_FORMA_PAGO SMALLINT, - VALIDEZ_PRESUPUESTOS SMALLINT + VISIBLE2 TIPO_BOOLEANO ); + +CREATE TABLE EMPRESAS ( + ID TIPO_ID NOT NULL, + NIF_CIF VARCHAR(15), + NOMBRE VARCHAR(255), + RAZON_SOCIAL VARCHAR(255), + CALLE VARCHAR(255), + POBLACION VARCHAR(255), + PROVINCIA VARCHAR(255), + CODIGO_POSTAL VARCHAR(10), + TELEFONO_1 VARCHAR(25), + TELEFONO_2 VARCHAR(25), + MOVIL_1 VARCHAR(25), + MOVIL_2 VARCHAR(25), + FAX VARCHAR(25), + EMAIL_1 VARCHAR(255), + EMAIL_2 VARCHAR(255), + PAGINA_WEB VARCHAR(255), + NOTAS TIPO_NOTAS, + FECHA_ALTA TIMESTAMP, + FECHA_MODIFICACION TIMESTAMP, + USUARIO TIPO_USUARIO, + LOGOTIPO TIPO_BINARIO, + REGISTRO_MERCANTIL VARCHAR(255), + ID_TIPO_IVA SMALLINT, + ID_FORMA_PAGO SMALLINT, + VALIDEZ_PRESUPUESTOS SMALLINT +); + + CREATE TABLE EMPRESAS_CONTACTOS ( 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, @@ -856,31 +1007,21 @@ CREATE TABLE EMPRESAS_DATOS_BANCO ( SUFIJO_N58 VARCHAR(3) ); + CREATE TABLE EMPRESAS_TIENDAS ( - ID TIPO_ID NOT NULL, - ID_EMPRESA TIPO_ID NOT NULL, - CALLE VARCHAR(255), - POBLACION VARCHAR(255), - PROVINCIA VARCHAR(255), - CODIGO_POSTAL VARCHAR(10), - PERSONA_CONTACTO VARCHAR(255), - NOMBRE VARCHAR(255), - TELEFONO VARCHAR(25), - MOVIL VARCHAR(25), - FAX VARCHAR(25), - EMAIL VARCHAR(255), - NOTAS TIPO_NOTAS, - FECHA_ALTA TIMESTAMP, - FECHA_MODIFICACION TIMESTAMP, - CODIGO_CONTABLE VARCHAR(2) + ID TIPO_ID NOT NULL, + ID_EMPRESA TIPO_ID NOT NULL, + ID_TIENDA TIPO_ID ); + CREATE TABLE EMPRESAS_USUARIOS ( 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, @@ -893,7 +1034,6 @@ CREATE TABLE FACTURAS_CLIENTE ( IMPORTE_IVA TIPO_IMPORTE, RE TIPO_PORCENTAJE, IMPORTE_RE TIPO_IMPORTE, - IMPORTE_TOTAL TIPO_IMPORTE, OBSERVACIONES TIPO_NOTAS, ID_CLIENTE TIPO_ID, @@ -915,11 +1055,12 @@ CREATE TABLE FACTURAS_CLIENTE ( IGNORAR_CONTABILIDAD SMALLINT, ID_TIENDA TIPO_ID, FECHA_VENCIMIENTO DATE, - ID_DIRECCION TIPO_ID, + ID_DIRECCION TIPO_ID, ID_CONTRATO TIPO_ID, SIN_COMISION SMALLINT, - TIPO_FACTURA VARCHAR(255) COLLATE ES_ES -); + TIPO_FACTURA VARCHAR(255) COLLATE ES_ES +); + CREATE TABLE FACTURAS_CLIENTE_DETALLES ( ID TIPO_ID NOT NULL, @@ -938,13 +1079,13 @@ CREATE TABLE FACTURAS_CLIENTE_DETALLES ( FECHA_MODIFICACION TIMESTAMP ); + CREATE TABLE FACTURAS_PROVEEDOR ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID, REFERENCIA VARCHAR(255), REFERENCIA_PROVEEDOR VARCHAR(255), FECHA_FACTURA DATE, - FECHA_VENCIMIENTO DATE, BASE_IMPONIBLE TIPO_IMPORTE, DESCUENTO TIPO_PORCENTAJE, IMPORTE_DESCUENTO TIPO_IMPORTE, @@ -970,9 +1111,19 @@ CREATE TABLE FACTURAS_PROVEEDOR ( ID_TIPO_IVA TIPO_ID, RECARGO_EQUIVALENCIA TIPO_BOOLEANO, IGNORAR_CONTABILIDAD SMALLINT, - ID_TIENDA TIPO_ID + ID_TIENDA TIPO_ID, + FECHA_VENCIMIENTO DATE ); + +CREATE TABLE FACTURAS_PROVEEDOR_CONTRATOS ( + ID TIPO_ID NOT NULL, + ID_FACTURA TIPO_ID NOT NULL, + ID_CONTRATO TIPO_ID NOT NULL, + IMPORTE TIPO_IMPORTE +); + + CREATE TABLE FACTURAS_PROVEEDOR_DETALLES ( ID TIPO_ID NOT NULL, ID_FACTURA TIPO_ID NOT NULL, @@ -990,18 +1141,13 @@ CREATE TABLE FACTURAS_PROVEEDOR_DETALLES ( FECHA_MODIFICACION TIMESTAMP ); -CREATE TABLE FACTURAS_PROVEEDOR_CONTRATOS ( - ID TIPO_ID NOT NULL, - ID_FACTURA TIPO_ID NOT NULL, - ID_CONTRATO TIPO_ID NOT NULL, - IMPORTE TIPO_IMPORTE -); CREATE TABLE FAMILIAS ( ID TIPO_ID NOT NULL, DESCRIPCION TIPO_FAMILIA ); + CREATE TABLE FORMAS_PAGO ( ID TIPO_ID NOT NULL, REFERENCIA VARCHAR(255), @@ -1013,6 +1159,7 @@ CREATE TABLE FORMAS_PAGO ( CUENTA VARCHAR(15) ); + CREATE TABLE FORMAS_PAGO_PLAZOS ( ID TIPO_ID NOT NULL, ID_FORMA_PAGO TIPO_ID NOT NULL, @@ -1020,6 +1167,7 @@ CREATE TABLE FORMAS_PAGO_PLAZOS ( PORCENTAJE TIPO_PORCENTAJE ); + CREATE TABLE INFORMES ( ID SMALLINT NOT NULL, ID_EMPRESA TIPO_ID, @@ -1033,6 +1181,7 @@ CREATE TABLE INFORMES ( VISTA BLOB SUB_TYPE 2 SEGMENT SIZE 4096 ); + CREATE TABLE MOVIMIENTOS ( ID TIPO_ID NOT NULL, ID_ALMACEN TIPO_ID, @@ -1043,6 +1192,7 @@ CREATE TABLE MOVIMIENTOS ( CAUSA TIPO_CONCEPTO ); + CREATE TABLE PAGOS_CLIENTE ( ID TIPO_ID NOT NULL, ID_RECIBO TIPO_ID, @@ -1059,6 +1209,7 @@ CREATE TABLE PAGOS_CLIENTE ( IGNORAR_CONTABILIDAD SMALLINT ); + CREATE TABLE PAGOS_PROVEEDOR ( ID TIPO_ID NOT NULL, ID_RECIBO TIPO_ID, @@ -1075,6 +1226,7 @@ CREATE TABLE PAGOS_PROVEEDOR ( IGNORAR_CONTABILIDAD SMALLINT ); + CREATE TABLE PEDIDOS_CLIENTE ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID, @@ -1104,10 +1256,11 @@ CREATE TABLE PEDIDOS_CLIENTE ( ID_FORMA_PAGO TIPO_ID, REF_TIENDA_WEB INTEGER, FECHA_PREVISTA_ENVIO DATE, - REFERENCIA_CLIENTE VARCHAR(255), + REFERENCIA_CLIENTE VARCHAR(255) COLLATE ES_ES, ID_TIENDA TIPO_ID ); + CREATE TABLE PEDIDOS_CLIENTE_DETALLES ( ID TIPO_ID NOT NULL, ID_PEDIDO TIPO_ID NOT NULL, @@ -1125,6 +1278,7 @@ CREATE TABLE PEDIDOS_CLIENTE_DETALLES ( FECHA_MODIFICACION TIMESTAMP ); + CREATE TABLE PEDIDOS_PROVEEDOR ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID, @@ -1160,6 +1314,7 @@ CREATE TABLE PEDIDOS_PROVEEDOR ( ID_TIENDA TIPO_ID ); + CREATE TABLE PEDIDOS_PROVEEDOR_DETALLES ( ID TIPO_ID NOT NULL, ID_PEDIDO TIPO_ID NOT NULL, @@ -1177,6 +1332,7 @@ CREATE TABLE PEDIDOS_PROVEEDOR_DETALLES ( FECHA_MODIFICACION TIMESTAMP ); + CREATE TABLE PERMISOS ( ID TIPO_ID NOT NULL, ID_USUARIO TIPO_ID, @@ -1185,6 +1341,7 @@ CREATE TABLE PERMISOS ( CHECKSUM VARCHAR(250) ); + CREATE TABLE PERMISOSEX ( ID TIPO_ID NOT NULL, ID_USUARIO TIPO_ID, @@ -1194,19 +1351,13 @@ CREATE TABLE PERMISOSEX ( CHECKSUM VARCHAR(250) ); + CREATE TABLE POBLACIONES ( - ID TIPO_ID NOT NULL, - ID_PROVINCIA TIPO_ID NOT NULL, - DESCRIPCION VARCHAR(255) NOT NULL + ID TIPO_ID NOT NULL, + ID_PROVINCIA TIPO_ID NOT NULL, + DESCRIPCION VARCHAR(255) NOT NULL ); -CREATE TABLE PRESUPUESTOS_CLIENTE_CAPITULOS ( - ID TIPO_ID NOT NULL, - POSICION INTEGER, - TIPO_DETALLE VARCHAR(10), - TIPO_ARTICULO VARCHAR(2) COLLATE ES_ES, - CONCEPTO TIPO_FAMILIA -); CREATE TABLE PRESUPUESTOS_CLIENTE ( ID TIPO_ID NOT NULL, @@ -1242,126 +1393,77 @@ CREATE TABLE PRESUPUESTOS_CLIENTE ( RECARGO_EQUIVALENCIA TIPO_BOOLEANO, RE TIPO_PORCENTAJE, IMPORTE_RE TIPO_IMPORTE, - ID_CONTRATO TIPO_ID, + ID_CONTRATO TIPO_ID, NO_VALORADO TIPO_BOOLEANO, - TIPO_PRESUPUESTO VARCHAR(255) + TIPO_PRESUPUESTO VARCHAR(255), + CALIDADES TIPO_NOTAS ); + +CREATE TABLE PRESUPUESTOS_CLIENTE_CAPITULOS ( + ID TIPO_ID NOT NULL, + POSICION INTEGER, + TIPO_DETALLE VARCHAR(10), + TIPO_ARTICULO VARCHAR(2) COLLATE ES_ES, + CONCEPTO TIPO_FAMILIA +); + + CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES ( ID TIPO_ID NOT NULL, ID_PRESUPUESTO TIPO_ID NOT NULL, POSICION INTEGER, TIPO_DETALLE VARCHAR(10), - ID_ARTICULO TIPO_ID, - TIPO_ARTICULO VARCHAR(2) COLLATE ES_ES, - PROPIEDAD TIPO_FAMILIA, - CONCEPTO TIPO_CONCEPTO, - CANTIDAD TIPO_CANTIDAD, - IMPORTE_UNIDAD TIPO_IMPORTE, - DESCUENTO TIPO_PORCENTAJE, - IMPORTE_PORTE TIPO_IMPORTE, - IMPORTE_TOTAL TIPO_IMPORTE, - VISIBLE TIPO_BOOLEANO, - VISIBLE2 TIPO_BOOLEANO, - FECHA_ALTA TIMESTAMP, - FECHA_MODIFICACION TIMESTAMP -); - -CREATE TABLE CONTRATOS_CLIENTE ( - ID TIPO_ID NOT NULL, - ID_EMPRESA TIPO_ID, - ID_CLIENTE TIPO_ID, - NIF_CIF VARCHAR(15), - NOMBRE VARCHAR(255), - ID_DIRECCION TIPO_ID, - CALLE VARCHAR(255), - POBLACION VARCHAR(255), - PROVINCIA VARCHAR(255), - CODIGO_POSTAL VARCHAR(10), - TELEFONO VARCHAR(25), - MOVIL VARCHAR(25), - REFERENCIA VARCHAR(255), - FECHA_CONTRATO DATE, - SITUACION VARCHAR(255), - FORMA_PAGO TIPO_NOTAS, - PLAZO_ENTREGA TIPO_NOTAS, - OBSERVACIONES TIPO_NOTAS, - INCIDENCIAS TIPO_NOTAS, - INCIDENCIAS_ACTIVAS SMALLINT DEFAULT 0 NOT NULL, - FECHA_ALTA TIMESTAMP, - FECHA_MODIFICACION TIMESTAMP, - USUARIO TIPO_USUARIO, - IMPORTE_NETO TIPO_IMPORTE, - IMPORTE_PORTE TIPO_IMPORTE, - DESCUENTO TIPO_PORCENTAJE, - IMPORTE_DESCUENTO TIPO_IMPORTE, - BASE_IMPONIBLE TIPO_IMPORTE, - IVA TIPO_PORCENTAJE, - IMPORTE_IVA TIPO_IMPORTE, - IMPORTE_TOTAL TIPO_IMPORTE, - ID_FORMA_PAGO TIPO_ID, - ID_TIENDA TIPO_ID, - ID_VENDEDOR TIPO_ID, - ID_TIPO_IVA TIPO_ID, - PERSONA_CONTACTO VARCHAR(255) COLLATE ES_ES, - RECARGO_EQUIVALENCIA TIPO_BOOLEANO, - RE TIPO_PORCENTAJE, - IMPORTE_RE TIPO_IMPORTE, - TIPO_CONTRATO VARCHAR(255), - CONDICIONES TIPO_NOTAS -); - -CREATE TABLE CONTRATOS_CLIENTE_DETALLES ( - ID TIPO_ID NOT NULL, - ID_CONTRATO TIPO_ID NOT NULL, - POSICION INTEGER, - TIPO_DETALLE VARCHAR(10), ID_ARTICULO TIPO_ID, - TIPO_ARTICULO VARCHAR(2) COLLATE ES_ES, + TIPO_ARTICULO VARCHAR(2) COLLATE ES_ES, PROPIEDAD TIPO_FAMILIA, - CONCEPTO TIPO_CONCEPTO, + CONCEPTO TIPO_CONCEPTO, CANTIDAD TIPO_CANTIDAD, IMPORTE_UNIDAD TIPO_IMPORTE, DESCUENTO TIPO_PORCENTAJE, IMPORTE_PORTE TIPO_IMPORTE, IMPORTE_TOTAL TIPO_IMPORTE, VISIBLE TIPO_BOOLEANO, - VISIBLE2 TIPO_BOOLEANO, FECHA_ALTA TIMESTAMP, - FECHA_MODIFICACION TIMESTAMP + FECHA_MODIFICACION TIMESTAMP, + VISIBLE2 TIPO_BOOLEANO ); + CREATE TABLE PROVEEDORES_DATOS ( - ID_PROVEEDOR TIPO_ID NOT NULL, - DESCUENTO TIPO_PORCENTAJE, - REGIMEN_IVA VARCHAR(255), - ID_TIPO_IVA TIPO_ID, - ID_FORMA_PAGO TIPO_ID, - TIENDA_WEB TIPO_BOOLEANO, - GRUPO_PROVEEDOR VARCHAR(255), - DESCRIPCION_PROVEEDOR VARCHAR(255), - CODIGO_ASIGNADO VARCHAR(255), - CERTIFICACION VARCHAR(255), - HOMOLOGADO SMALLINT, - IGNORAR_CONTABILIDAD TIPO_ID, - TIENE_SUBCUENTA TIPO_ID, - NOMBRE_COMERCIAL VARCHAR(255), - ES_ACREEDOR SMALLINT, - VENCIMIENTO_FACTURAS_1 INTEGER, - VENCIMIENTO_FACTURAS_2 INTEGER, - VENCIMIENTO_FACTURAS_3 INTEGER + ID_PROVEEDOR TIPO_ID NOT NULL, + DESCUENTO TIPO_PORCENTAJE, + REGIMEN_IVA VARCHAR(255), + ID_TIPO_IVA TIPO_ID, + ID_FORMA_PAGO TIPO_ID, + TIENDA_WEB TIPO_BOOLEANO, + GRUPO_PROVEEDOR VARCHAR(255), + DESCRIPCION_PROVEEDOR VARCHAR(255), + CODIGO_ASIGNADO VARCHAR(255), + CERTIFICACION VARCHAR(255), + HOMOLOGADO SMALLINT, + IGNORAR_CONTABILIDAD TIPO_ID, + TIENE_SUBCUENTA TIPO_ID, + NOMBRE_COMERCIAL VARCHAR(255), + ES_ACREEDOR SMALLINT, + VENCIMIENTO_FACTURAS_1 INTEGER, + VENCIMIENTO_FACTURAS_2 INTEGER, + VENCIMIENTO_FACTURAS_3 INTEGER ); + CREATE TABLE PROVEEDORES_GRUPOS ( ID TIPO_ID NOT NULL, DESCRIPCION VARCHAR(255) ); + CREATE TABLE PROVINCIAS ( - ID TIPO_ID NOT NULL, - DESCRIPCION VARCHAR(255) NOT NULL + ID TIPO_ID NOT NULL, + DESCRIPCION VARCHAR(255) NOT NULL ); + CREATE TABLE RECIBOS_CLIENTE ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID, @@ -1416,15 +1518,17 @@ CREATE TABLE RECIBOS_PROVEEDOR ( CODIGO_POSTAL VARCHAR(10) ); + CREATE TABLE REFERENCIAS ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID, ID_TIENDA TIPO_ID, CODIGO VARCHAR(50) NOT NULL, VALOR VARCHAR(255) NOT NULL, - DESCRIPCION VARCHAR(255) + DESCRIPCION VARCHAR(255) COLLATE ES_ES ); + CREATE TABLE REMESAS_CLIENTE ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID, @@ -1439,6 +1543,7 @@ CREATE TABLE REMESAS_CLIENTE ( TIPO VARCHAR(40) ); + CREATE TABLE REMESAS_PROVEEDOR ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID, @@ -1453,6 +1558,13 @@ CREATE TABLE REMESAS_PROVEEDOR ( TIPO VARCHAR(40) ); + +CREATE TABLE REPL_TABLES ( + TABLENAME VARCHAR(32) NOT NULL, + LOC_ID INTEGER NOT NULL +); + + CREATE TABLE TIENDA_WEB ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID NOT NULL, @@ -1465,6 +1577,26 @@ CREATE TABLE TIENDA_WEB ( BDPASS VARCHAR(255) ); + +CREATE TABLE TIENDAS ( + ID TIPO_ID NOT NULL, + CALLE VARCHAR(255), + POBLACION VARCHAR(255), + PROVINCIA VARCHAR(255), + CODIGO_POSTAL VARCHAR(10), + PERSONA_CONTACTO VARCHAR(255), + NOMBRE VARCHAR(255), + TELEFONO VARCHAR(25), + MOVIL VARCHAR(25), + FAX VARCHAR(25), + EMAIL VARCHAR(255), + NOTAS TIPO_NOTAS, + FECHA_ALTA TIMESTAMP, + FECHA_MODIFICACION TIMESTAMP, + CODIGO_CONTABLE VARCHAR(2) COLLATE ES_ES +); + + CREATE TABLE TIPOS_IVA ( ID TIPO_ID NOT NULL, REFERENCIA VARCHAR(255), @@ -1473,11 +1605,13 @@ CREATE TABLE TIPOS_IVA ( RE TIPO_PORCENTAJE ); + CREATE TABLE UNIDADES_MEDIDA ( ID TIPO_ID NOT NULL, DESCRIPCION VARCHAR(255) ); + CREATE TABLE USUARIOS ( ID TIPO_ID NOT NULL, USERNAME VARCHAR(30), @@ -1493,6 +1627,7 @@ CREATE TABLE USUARIOS ( CHECKSUM VARCHAR(250) ); + CREATE TABLE USUARIOS_EVENTOS ( APLICACION VARCHAR(250), ID_USUARIO TIPO_ID, @@ -1505,6 +1640,7 @@ CREATE TABLE USUARIOS_EVENTOS ( TNAME VARCHAR(20) ); + CREATE TABLE USUARIOS_LOGON ( LOGONID CHAR(38) NOT NULL, ID_USUARIO TIPO_ID, @@ -1514,9 +1650,17 @@ CREATE TABLE USUARIOS_LOGON ( ); +CREATE TABLE VENDEDORES_DATOS ( + ID_VENDEDOR TIPO_ID NOT NULL, + COMISION TIPO_PORCENTAJE, + ID_USUARIO TIPO_ID +); + + + /******************************************************************************/ -/**** Views ****/ +/*** Views ***/ /******************************************************************************/ @@ -1625,6 +1769,8 @@ CREATE VIEW V_ALBARANES_CLIENTE( NOMBRE_ALMACEN, ID_PEDIDO, REF_PEDIDO, + ID_CONTRATO, + REF_CONTRATO, ID_FACTURA, REF_FACTURA, ID_DIRECCION, @@ -1665,12 +1811,14 @@ SELECT ALBARANES_CLIENTE.FECHA_ALBARAN, ALBARANES_CLIENTE.REFERENCIA, ALBARANES_CLIENTE.REFERENCIA_CLIENTE, - ALBARANES_CLIENTE.TIPO, + 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_CONTRATO, + CONTRATOS_CLIENTE.REFERENCIA AS REF_CONTRATO, ALBARANES_CLIENTE.ID_FACTURA, FACTURAS_CLIENTE.REFERENCIA AS REF_FACTURA, ALBARANES_CLIENTE.ID_DIRECCION, @@ -1701,16 +1849,17 @@ SELECT ALBARANES_CLIENTE.FECHA_ENVIO, ALBARANES_CLIENTE.FECHA_RECEPCION, ALBARANES_CLIENTE.ID_TIENDA, - COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA + COALESCE(TIENDAS.NOMBRE, 'Todas') 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 CONTRATOS_CLIENTE ON (CONTRATOS_CLIENTE.ID = ALBARANES_CLIENTE.ID_CONTRATO) 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) + LEFT OUTER JOIN TIENDAS ON (TIENDAS.ID = ALBARANES_CLIENTE.ID_TIENDA) ; @@ -1796,7 +1945,7 @@ SELECT ALBARANES_PROVEEDOR.USUARIO, ALBARANES_PROVEEDOR.ID_FORMA_PAGO, ALBARANES_PROVEEDOR.ID_TIENDA, - COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA + COALESCE(TIENDAS.NOMBRE, 'Todas') AS TIENDA FROM ALBARANES_PROVEEDOR @@ -1804,10 +1953,11 @@ FROM 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) + LEFT OUTER JOIN TIENDAS ON (TIENDAS.ID = ALBARANES_PROVEEDOR.ID_TIENDA) ; + /* View: V_ARTICULOS */ CREATE VIEW V_ARTICULOS( ID, @@ -1903,13 +2053,13 @@ SELECT CONTACTOS.ID, EMPRESAS_CONTACTOS.ID_EMPRESA, CONTACTOS.REFERENCIA, CONTACTOS.ID_TIENDA, - COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') as TIENDA -FROM CONTACTOS + COALESCE(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) + LEFT JOIN TIENDAS ON (TIENDAS.ID = CONTACTOS.ID_TIENDA) ; @@ -1954,8 +2104,8 @@ CREATE VIEW V_CLIENTES( IGNORAR_CONTABILIDAD, TIENE_SUBCUENTA, PROCEDENCIA_CLIENTE, - VENCIMIENTO_FACTURAS_1, - VENCIMIENTO_FACTURAS_2, + VENCIMIENTO_FACTURAS_1, + VENCIMIENTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3) AS SELECT @@ -2008,107 +2158,37 @@ WHERE ; -/* View: V_PROVEEDORES */ -CREATE VIEW V_PROVEEDORES( + +/* View: V_COMISIONES */ +CREATE VIEW V_COMISIONES( ID, - ID_CATEGORIA, - NIF_CIF, - NOMBRE, - PERSONA_CONTACTO, - CALLE, - POBLACION, - PROVINCIA, - CODIGO_POSTAL, - TELEFONO_1, - TELEFONO_2, - MOVIL_1, - MOVIL_2, - FAX, - EMAIL_1, - EMAIL_2, - PAGINA_WEB, - NOTAS, - FECHA_ALTA, - FECHA_MODIFICACION, - USUARIO, ID_EMPRESA, REFERENCIA, - ID_TIENDA, - TIENDA, - DESCUENTO, - DESCRIPCION_PROVEEDOR, - CODIGO_ASIGNADO, - GRUPO_PROVEEDOR, - REGIMEN_IVA, - ID_TIPO_IVA, - ID_FORMA_PAGO, - TIENDA_WEB, - HOMOLOGADO, - CERTIFICACION, - IGNORAR_CONTABILIDAD, - TIENE_SUBCUENTA, - NOMBRE_COMERCIAL, - ES_ACREEDOR, - VENCIMIENTO_FACTURAS_1, - VENCIMIENTO_FACTURAS_2, - VENCIMIENTO_FACTURAS_3) + ID_AGENTE, + DESCRIPCION, + FECHA, + IMPORTE_TOTAL, + USUARIO, + NOMBRE) 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, - PROVEEDORES_DATOS.TIENE_SUBCUENTA, - PROVEEDORES_DATOS.NOMBRE_COMERCIAL, - PROVEEDORES_DATOS.ES_ACREEDOR, - PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_1, - PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_2, - PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_3 -FROM - PROVEEDORES_DATOS - INNER JOIN V_CONTACTOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = V_CONTACTOS.ID) -WHERE - V_CONTACTOS.ID_CATEGORIA = 2 +SELECT + COMISIONES_LIQUIDADAS.ID, COMISIONES_LIQUIDADAS.ID_EMPRESA, + COMISIONES_LIQUIDADAS.REFERENCIA, COMISIONES_LIQUIDADAS.ID_AGENTE, + COMISIONES_LIQUIDADAS.DESCRIPCION, COMISIONES_LIQUIDADAS.FECHA, + COMISIONES_LIQUIDADAS.IMPORTE_TOTAL, COMISIONES_LIQUIDADAS.USUARIO, + CONTACTOS.NOMBRE +FROM COMISIONES_LIQUIDADAS +LEFT JOIN CONTACTOS ON (CONTACTOS.ID = COMISIONES_LIQUIDADAS.ID_AGENTE) ; + /* View: V_CONT_CUENTAS */ CREATE VIEW V_CONT_CUENTAS( ID, REF_CUENTA, - ID_EJERCICIO, ESTADO, + ID_EJERCICIO, + ESTADO, DESCRIPCION, ID_EPIGRAFE, EPIGRAFE, @@ -2125,7 +2205,8 @@ 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) -left join CONT_EJERCICIOS on (CONT_EJERCICIOS.ID = CONT_CUENTAS.ID_EJERCICIO); +left join CONT_EJERCICIOS on (CONT_EJERCICIOS.ID = CONT_CUENTAS.ID_EJERCICIO) +; @@ -2160,7 +2241,8 @@ SELECT CONT_APUNTES.ID_SUBCUENTA, CONT_SUBCUENTAS.REF_SUBCUENTA as REF_SUBCUENTA, CONT_SUBCUENTAS.DESCRIPCION as SUBCUENTA, - CONT_SUBCUENTAS.ID_EJERCICIO, CONT_EJERCICIOS.ESTADO, + CONT_SUBCUENTAS.ID_EJERCICIO, + CONT_EJERCICIOS.ESTADO, CONT_APUNTES.CONCEPTO, CONT_APUNTES.DOCUMENTO, CONT_APUNTES.DEBE, @@ -2170,7 +2252,7 @@ SELECT FROM CONT_APUNTES LEFT JOIN CONT_ASIENTOS ON (CONT_ASIENTOS.ID = CONT_APUNTES.ID_ASIENTO) LEFT JOIN CONT_SUBCUENTAS ON (CONT_SUBCUENTAS.ID = CONT_APUNTES.ID_SUBCUENTA) -LEFT JOIN CONT_EJERCICIOS ON (CONT_EJERCICIOS.ID = CONT_SUBCUENTAS.ID_EJERCICIO) +left join CONT_EJERCICIOS on (CONT_EJERCICIOS.ID = CONT_SUBCUENTAS.ID_EJERCICIO) order by CONT_ASIENTOS.FECHA_ASIENTO desc, CONT_ASIENTOS.ORDEN desc ; @@ -2181,7 +2263,8 @@ CREATE VIEW V_CONT_EPIGRAFES( ID, REF_EPIGRAFE, DESCRIPCION, - ID_EJERCICIO, ESTADO, + ID_EJERCICIO, + ESTADO, ID_PADRE, EPIGRAFE_PADRE) AS @@ -2223,32 +2306,7 @@ from CONT_ASIENTOS and (COALESCE(CONT_EPI2.REF_EPIGRAFE, CONT_EPI1.REF_EPIGRAFE) = 7) ; -CREATE VIEW V_CONT_PAGOS_CLI_VENTAS( - ID_PAGO, - ID_SUBCUENTA, - SUBCUENTA, - ID_EJERCICIO, - ESTADO_EJERCICIO, - ASIENTO_PUNTEADO) -AS -select - CONT_ASIENTOS.ID_PAGO, - CONT_SUBCUENTAS.ID as ID_SUBCUENTA, - CONT_SUBCUENTAS.DESCRIPCION as SUBCUENTA, - CONT_SUBCUENTAS.ID_EJERCICIO, - CONT_EJERCICIOS.ESTADO, - CONT_APUNTES.PUNTEADO -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) - LEFT JOIN CONT_EJERCICIOS ON (CONT_EJERCICIOS.ID = CONT_SUBCUENTAS.ID_EJERCICIO) - left join CONT_EPIGRAFES CONT_EPI1 on (CONT_EPI1.ID = CONT_CUENTAS.ID_EPIGRAFE) - left join CONT_EPIGRAFES CONT_EPI2 on (CONT_EPI2.ID = CONT_EPI1.ID_PADRE) -/* Solo sacaremos aquellas tuplas de apuntes cuya subcuenta contable pertenezca ventas*/ - where (CONT_ASIENTOS.ID_PAGO is not null) and (CONT_ASIENTOS.TIPO = 'c') - and (COALESCE(CONT_EPI2.REF_EPIGRAFE, CONT_EPI1.REF_EPIGRAFE) = 5); /* View: V_CONT_FAC_PRO_COMPRAS */ CREATE VIEW V_CONT_FAC_PRO_COMPRAS( @@ -2276,9 +2334,43 @@ from CONT_ASIENTOS left join CONT_EPIGRAFES CONT_EPI2 on (CONT_EPI2.ID = CONT_EPI1.ID_PADRE) /* Solo sacaremos aquellas tuplas de apuntes cuya subcuenta contable pertenezca compras*/ where (CONT_ASIENTOS.ID_FACTURA is not null) and (CONT_ASIENTOS.TIPO = 'p') - and (COALESCE(CONT_EPI2.REF_EPIGRAFE, CONT_EPI1.REF_EPIGRAFE) = 6); + and (COALESCE(CONT_EPI2.REF_EPIGRAFE, CONT_EPI1.REF_EPIGRAFE) = 6) +; + +/* View: V_CONT_PAGOS_CLI_VENTAS */ +CREATE VIEW V_CONT_PAGOS_CLI_VENTAS( + ID_PAGO, + ID_SUBCUENTA, + SUBCUENTA, + ID_EJERCICIO, + ESTADO_EJERCICIO, + ASIENTO_PUNTEADO) +AS +select + CONT_ASIENTOS.ID_PAGO, + CONT_SUBCUENTAS.ID as ID_SUBCUENTA, + CONT_SUBCUENTAS.DESCRIPCION as SUBCUENTA, + CONT_SUBCUENTAS.ID_EJERCICIO, + CONT_EJERCICIOS.ESTADO, + CONT_APUNTES.PUNTEADO + +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) + LEFT JOIN CONT_EJERCICIOS ON (CONT_EJERCICIOS.ID = CONT_SUBCUENTAS.ID_EJERCICIO) + left join CONT_EPIGRAFES CONT_EPI1 on (CONT_EPI1.ID = CONT_CUENTAS.ID_EPIGRAFE) + left join CONT_EPIGRAFES CONT_EPI2 on (CONT_EPI2.ID = CONT_EPI1.ID_PADRE) +/* Solo sacaremos aquellas tuplas de apuntes cuya subcuenta contable pertenezca ventas*/ + where (CONT_ASIENTOS.ID_PAGO is not null) and (CONT_ASIENTOS.TIPO = 'c') + and (COALESCE(CONT_EPI2.REF_EPIGRAFE, CONT_EPI1.REF_EPIGRAFE) = 5) +; + + + +/* View: V_CONT_PAGOS_PRO_COMPRAS */ CREATE VIEW V_CONT_PAGOS_PRO_COMPRAS( ID_PAGO, ID_SUBCUENTA, @@ -2304,96 +2396,10 @@ from CONT_ASIENTOS left join CONT_EPIGRAFES CONT_EPI2 on (CONT_EPI2.ID = CONT_EPI1.ID_PADRE) /* Solo sacaremos aquellas tuplas de apuntes cuya subcuenta contable pertenezca compras*/ where (CONT_ASIENTOS.ID_PAGO is not null) and (CONT_ASIENTOS.TIPO = 'p') - and (COALESCE(CONT_EPI2.REF_EPIGRAFE, CONT_EPI1.REF_EPIGRAFE) = 5); - - -CREATE VIEW V_PAGOS_PROVEEDOR( - ID, - ID_RECIBO, - TIPO, - FECHA_PAGO, - TITULAR, - ENTIDAD, - SUCURSAL, - DC, - CUENTA, - FECHA_ALTA, - FECHA_MODIFICACION, - USUARIO, - IGNORAR_CONTABILIDAD, - ID_SUBCUENTA, - SUBCUENTA, - ID_EJERCICIO, - ESTADO_EJERCICIO, - ASIENTO_PUNTEADO) -AS -SELECT PAGOS_PROVEEDOR.ID, - PAGOS_PROVEEDOR.ID_RECIBO, - PAGOS_PROVEEDOR.TIPO, - PAGOS_PROVEEDOR.FECHA_PAGO, - PAGOS_PROVEEDOR.TITULAR, - PAGOS_PROVEEDOR.ENTIDAD, - PAGOS_PROVEEDOR.SUCURSAL, - PAGOS_PROVEEDOR.DC, - PAGOS_PROVEEDOR.CUENTA, - PAGOS_PROVEEDOR.FECHA_ALTA, - PAGOS_PROVEEDOR.FECHA_MODIFICACION, - PAGOS_PROVEEDOR.USUARIO, - PAGOS_PROVEEDOR.IGNORAR_CONTABILIDAD, - V_CONT_PAGOS_PRO_COMPRAS.ID_SUBCUENTA, - V_CONT_PAGOS_PRO_COMPRAS.SUBCUENTA, - V_CONT_PAGOS_PRO_COMPRAS.ID_EJERCICIO, - V_CONT_PAGOS_PRO_COMPRAS.ESTADO_EJERCICIO, - V_CONT_PAGOS_PRO_COMPRAS.ASIENTO_PUNTEADO - - FROM PAGOS_PROVEEDOR - LEFT JOIN V_CONT_PAGOS_PRO_COMPRAS ON (V_CONT_PAGOS_PRO_COMPRAS.ID_PAGO = PAGOS_PROVEEDOR.ID) + and (COALESCE(CONT_EPI2.REF_EPIGRAFE, CONT_EPI1.REF_EPIGRAFE) = 5) ; - -CREATE VIEW V_PAGOS_CLIENTE( - ID, - ID_RECIBO, - TIPO, - FECHA_PAGO, - TITULAR, - ENTIDAD, - SUCURSAL, - DC, - CUENTA, - FECHA_ALTA, - FECHA_MODIFICACION, - USUARIO, - IGNORAR_CONTABILIDAD, - ID_SUBCUENTA, - SUBCUENTA, - ID_EJERCICIO, - ESTADO_EJERCICIO, - ASIENTO_PUNTEADO) -AS -SELECT PAGOS_CLIENTE.ID, - PAGOS_CLIENTE.ID_RECIBO, - PAGOS_CLIENTE.TIPO, - PAGOS_CLIENTE.FECHA_PAGO, - PAGOS_CLIENTE.TITULAR, - PAGOS_CLIENTE.ENTIDAD, - PAGOS_CLIENTE.SUCURSAL, - PAGOS_CLIENTE.DC, - PAGOS_CLIENTE.CUENTA, - PAGOS_CLIENTE.FECHA_ALTA, - PAGOS_CLIENTE.FECHA_MODIFICACION, - PAGOS_CLIENTE.USUARIO, - PAGOS_CLIENTE.IGNORAR_CONTABILIDAD, - V_CONT_PAGOS_CLI_VENTAS.ID_SUBCUENTA, - V_CONT_PAGOS_CLI_VENTAS.SUBCUENTA, - V_CONT_PAGOS_CLI_VENTAS.ID_EJERCICIO, - V_CONT_PAGOS_CLI_VENTAS.ESTADO_EJERCICIO, - V_CONT_PAGOS_CLI_VENTAS.ASIENTO_PUNTEADO - FROM PAGOS_CLIENTE - LEFT JOIN V_CONT_PAGOS_CLI_VENTAS ON (V_CONT_PAGOS_CLI_VENTAS.ID_PAGO = PAGOS_CLIENTE.ID) -; - - + /* View: V_CONT_SUBCUENTAS_SALDO */ CREATE VIEW V_CONT_SUBCUENTAS_SALDO( @@ -2410,6 +2416,8 @@ left join cont_apuntes on (cont_apuntes.id_subcuenta = cont_subcuentas.ID) group by cont_subcuentas.ID ; + + /* View: V_CONT_SUBCUENTAS */ CREATE VIEW V_CONT_SUBCUENTAS( ID, @@ -2439,87 +2447,219 @@ left join CONT_EJERCICIOS on (CONT_EJERCICIOS.ID = CONT_SUBCUENTAS.ID_EJERCICIO) order by CONT_CUENTAS.REF_CUENTA ; -/* View: V_VENDEDORES */ -CREATE VIEW V_VENDEDORES( -ID, -ID_CATEGORIA, -NIF_CIF, -NOMBRE, -PERSONA_CONTACTO, -CALLE, -POBLACION, -PROVINCIA, -CODIGO_POSTAL, -TELEFONO_1, -TELEFONO_2, -MOVIL_1, -MOVIL_2, -FAX, -EMAIL_1, -EMAIL_2, -PAGINA_WEB, -NOTAS, -FECHA_ALTA, -FECHA_MODIFICACION, -USUARIO, -ID_EMPRESA, -REFERENCIA, -ID_TIENDA, -TIENDA, -COMISION, -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, - VENDEDORES_DATOS.COMISION, - VENDEDORES_DATOS.ID_USUARIO - -FROM V_CONTACTOS -INNER JOIN VENDEDORES_DATOS ON (VENDEDORES_DATOS.ID_VENDEDOR = V_CONTACTOS.ID) -WHERE V_CONTACTOS.ID_CATEGORIA = 3; + +/* View: V_CONTRATOS_FACTURAS_PROVEEDOR */ +CREATE VIEW V_CONTRATOS_FACTURAS_PROVEEDOR( + ID_CONTRATO, + IMPORTE) +AS +select ID_CONTRATO, SUM(IMPORTE) as IMPORTE_GASTOS_PROVEEDORES +from facturas_proveedor_contratos +group by 1 ; -/* Create view: V_REC_FAC_CLI*/ + + +/* View: V_CONTRATOS_BENEFICIOS */ +CREATE VIEW V_CONTRATOS_BENEFICIOS( + ID, + REFERENCIA, + FECHA_CONTRATO, + NOMBRE, + NIF_CIF, + IMPORTE_NETO, + IMPORTE_DESCUENTO, + BASE_IMPONIBLE, + IMPORTE_FACTURAS_PROVEEDOR, + IMPORTE_BENEFICIO, + PORCENTAJE_BENEFICIO) +AS +select +contratos_cliente.ID, +contratos_cliente.referencia, contratos_cliente.fecha_contrato, +contratos_cliente.nombre, contratos_cliente.nif_cif, +contratos_cliente.importe_neto, contratos_cliente.importe_descuento, +contratos_cliente.base_imponible, v_contratos_facturas_proveedor.importe as importe_facturas_proveedor, +(contratos_cliente.base_imponible - coalesce(v_contratos_facturas_proveedor.importe, 0)) as importe_beneficio, +case when (contratos_cliente.base_imponible - coalesce(v_contratos_facturas_proveedor.importe, 0)) = 0 then 0 + else (((contratos_cliente.base_imponible - coalesce(v_contratos_facturas_proveedor.importe, 0))*100)/contratos_cliente.importe_neto) +end as porcentaje_beneficio + +from contratos_cliente +left join v_contratos_facturas_proveedor +on (v_contratos_facturas_proveedor.ID_CONTRATO = contratos_cliente.ID) +; + + + +/* View: V_CONTRATOS_CLIENTE */ +CREATE VIEW V_CONTRATOS_CLIENTE( + ID, + ID_EMPRESA, + ID_CLIENTE, + NOMBRE_CLIENTE, + REF_CLIENTE, + NOMBRE_COMERCIAL_CLIENTE, + NIF_CIF, + NOMBRE, + ID_DIRECCION, + CALLE, + POBLACION, + PROVINCIA, + CODIGO_POSTAL, + TELEFONO, + MOVIL, + REFERENCIA, + FECHA_CONTRATO, + SITUACION, + FORMA_PAGO, + PLAZO_ENTREGA, + OBSERVACIONES, + INCIDENCIAS, + INCIDENCIAS_ACTIVAS, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO, + RECARGO_EQUIVALENCIA, + RE, + IMPORTE_RE, + ID_TIPO_IVA, + IVA, + IMPORTE_IVA, + IMPORTE_NETO, + IMPORTE_PORTE, + ID_TIENDA, + TIENDA, + BASE_IMPONIBLE, + DESCUENTO, + IMPORTE_DESCUENTO, + IMPORTE_TOTAL, + ID_FORMA_PAGO, + ID_VENDEDOR, + VENDEDOR, + PERSONA_CONTACTO, + TIPO_CONTRATO, + CONDICIONES) +AS +SELECT CONTRATOS_CLIENTE.ID, +/* CONTRATOS_CLIENTE.ID_EMPRESA,*/ + EMPRESAS_CONTACTOS.ID_EMPRESA, + CONTRATOS_CLIENTE.ID_CLIENTE, + CONTACTOS.NOMBRE, + CONTACTOS.REFERENCIA, + CLIENTES_DATOS.NOMBRE_COMERCIAL, + CONTRATOS_CLIENTE.NIF_CIF, + CONTRATOS_CLIENTE.NOMBRE, + CONTRATOS_CLIENTE.ID_DIRECCION, + CONTRATOS_CLIENTE.CALLE, + CONTRATOS_CLIENTE.POBLACION, + CONTRATOS_CLIENTE.PROVINCIA, + CONTRATOS_CLIENTE.CODIGO_POSTAL, + CONTRATOS_CLIENTE.TELEFONO, + CONTRATOS_CLIENTE.MOVIL, + CONTRATOS_CLIENTE.REFERENCIA, + CONTRATOS_CLIENTE.FECHA_CONTRATO, + CONTRATOS_CLIENTE.SITUACION, + CONTRATOS_CLIENTE.FORMA_PAGO, + CONTRATOS_CLIENTE.PLAZO_ENTREGA, + CONTRATOS_CLIENTE.OBSERVACIONES, + CONTRATOS_CLIENTE.INCIDENCIAS, + CONTRATOS_CLIENTE.INCIDENCIAS_ACTIVAS, + CONTRATOS_CLIENTE.FECHA_ALTA, + CONTRATOS_CLIENTE.FECHA_MODIFICACION, + CONTRATOS_CLIENTE.USUARIO, + CONTRATOS_CLIENTE.RECARGO_EQUIVALENCIA, + CONTRATOS_CLIENTE.RE, + CONTRATOS_CLIENTE.IMPORTE_RE, + CONTRATOS_CLIENTE.ID_TIPO_IVA, + CONTRATOS_CLIENTE.IVA, + CONTRATOS_CLIENTE.IMPORTE_IVA, + CONTRATOS_CLIENTE.IMPORTE_NETO, + CONTRATOS_CLIENTE.IMPORTE_PORTE, + CONTRATOS_CLIENTE.ID_TIENDA, + COALESCE(TIENDAS.NOMBRE, 'Todas') AS TIENDA, + CONTRATOS_CLIENTE.BASE_IMPONIBLE, + CONTRATOS_CLIENTE.DESCUENTO, + CONTRATOS_CLIENTE.IMPORTE_DESCUENTO, + CONTRATOS_CLIENTE.IMPORTE_TOTAL, + CONTRATOS_CLIENTE.ID_FORMA_PAGO, + CONTRATOS_CLIENTE.ID_VENDEDOR, + CONTACTOS2.NOMBRE AS VENDEDOR, + CONTRATOS_CLIENTE.PERSONA_CONTACTO, + CONTRATOS_CLIENTE.TIPO_CONTRATO, + CONTRATOS_CLIENTE.CONDICIONES + + FROM CONTRATOS_CLIENTE + LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = CONTRATOS_CLIENTE.ID_CLIENTE) + LEFT JOIN EMPRESAS_CONTACTOS ON (EMPRESAS_CONTACTOS.ID_CONTACTO = CONTACTOS.ID) + LEFT OUTER JOIN CONTACTOS CONTACTOS2 ON (CONTRATOS_CLIENTE.ID_VENDEDOR = CONTACTOS2.ID) + INNER JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = CONTRATOS_CLIENTE.ID_CLIENTE) + LEFT JOIN TIENDAS ON (TIENDAS.ID = CONTRATOS_CLIENTE.ID_TIENDA) +; + + + +/* View: V_EMPRESAS_TIENDAS */ +CREATE VIEW V_EMPRESAS_TIENDAS( + ID, + ID_EMPRESA, + CALLE, + POBLACION, + PROVINCIA, + CODIGO_POSTAL, + PERSONA_CONTACTO, + NOMBRE, + TELEFONO, + MOVIL, + FAX, + EMAIL, + NOTAS, + FECHA_ALTA, + FECHA_MODIFICACION, + CODIGO_CONTABLE) +AS +select empresas_tiendas.id_tienda, +empresas_tiendas.id_empresa, +tiendas.calle, +tiendas.poblacion, +tiendas.provincia, +tiendas.codigo_postal, +tiendas.persona_contacto, +tiendas.nombre, +tiendas.telefono, +tiendas.movil, +tiendas.fax, +tiendas.email, +tiendas.notas, +tiendas.fecha_alta, +tiendas.fecha_modificacion, +tiendas.codigo_contable +from empresas_tiendas +left join tiendas on (tiendas.id = empresas_tiendas.id_tienda) +; + + + +/* View: V_REC_FAC_CLI */ CREATE VIEW V_REC_FAC_CLI( -ID_FACTURA, -NUM_RECIBOS) - AS + 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) -GROUP BY FACTURAS_CLIENTE.ID; +GROUP BY FACTURAS_CLIENTE.ID ; -/* Create view: V_REC_CLI_SITUACION */ + + +/* View: V_REC_CLI_SITUACION */ CREATE VIEW V_REC_CLI_SITUACION( -ID_RECIBO, -SITUACION) - AS + 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' @@ -2528,27 +2668,31 @@ END FROM RECIBOS_CLIENTE LEFT JOIN PAGOS_CLIENTE ON (PAGOS_CLIENTE.ID_RECIBO = RECIBOS_CLIENTE.ID) -GROUP BY RECIBOS_CLIENTE.ID; +GROUP BY RECIBOS_CLIENTE.ID ; -/* Create view: V_REC_FAC_CLI_COBRADOS */ + + +/* View: V_REC_FAC_CLI_COBRADOS */ CREATE VIEW V_REC_FAC_CLI_COBRADOS( -ID_FACTURA, -NUM_REC_COBRADOS) - AS + 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') AND (RECIBOS_CLIENTE.ID_FACTURA IS NOT NULL) -GROUP BY RECIBOS_CLIENTE.ID_FACTURA; +GROUP BY RECIBOS_CLIENTE.ID_FACTURA ; -/* Create view: V_FAC_CLI_SITUACION */ + + +/* View: V_FAC_CLI_SITUACION */ CREATE VIEW V_FAC_CLI_SITUACION( -ID_FACTURA, -SITUACION) - AS + ID_FACTURA, + SITUACION) +AS SELECT ID_FACTURA, CASE WHEN ((SUM(NUM_RECIBOS) = 0) @@ -2564,25 +2708,30 @@ FROM SELECT ID_FACTURA, 0 AS NUM_RECIBOS, NUM_REC_COBRADOS FROM V_REC_FAC_CLI_COBRADOS ) -GROUP BY ID_FACTURA; +GROUP BY ID_FACTURA +; -/* Create view: V_REC_FAC_PRO */ + + +/* View: V_REC_FAC_PRO */ CREATE VIEW V_REC_FAC_PRO( -ID_FACTURA, -NUM_RECIBOS) - AS + 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) -GROUP BY FACTURAS_PROVEEDOR.ID; +GROUP BY FACTURAS_PROVEEDOR.ID ; -/* Create view: V_REC_PRO_SITUACION */ + + +/* View: V_REC_PRO_SITUACION */ CREATE VIEW V_REC_PRO_SITUACION( -ID_RECIBO, -SITUACION) - AS + 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' @@ -2591,27 +2740,31 @@ END FROM RECIBOS_PROVEEDOR LEFT JOIN PAGOS_PROVEEDOR ON (PAGOS_PROVEEDOR.ID_RECIBO = RECIBOS_PROVEEDOR.ID) -GROUP BY RECIBOS_PROVEEDOR.ID; +GROUP BY RECIBOS_PROVEEDOR.ID ; -/* Create view: V_REC_FAC_PRO_PAGADOS */ + + +/* View: V_REC_FAC_PRO_PAGADOS */ CREATE VIEW V_REC_FAC_PRO_PAGADOS( -ID_FACTURA, -NUM_REC_PAGADOS) - AS + 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') AND (RECIBOS_PROVEEDOR.ID_FACTURA IS NOT NULL) -GROUP BY RECIBOS_PROVEEDOR.ID_FACTURA; +GROUP BY RECIBOS_PROVEEDOR.ID_FACTURA +; -/* Create view: V_FAC_PRO_SITUACION */ + +/* View: V_FAC_PRO_SITUACION */ CREATE VIEW V_FAC_PRO_SITUACION( -ID_FACTURA, -SITUACION) - AS + ID_FACTURA, + SITUACION) +AS SELECT ID_FACTURA, CASE WHEN ((SUM(NUM_RECIBOS) = 0) @@ -2627,11 +2780,12 @@ FROM SELECT ID_FACTURA, 0 AS NUM_RECIBOS, NUM_REC_PAGADOS FROM V_REC_FAC_PRO_PAGADOS ) -GROUP BY ID_FACTURA; +GROUP BY ID_FACTURA +; -/* Create view: V_FACTURAS_CLIENTE */ +/* View: V_FACTURAS_CLIENTE */ CREATE VIEW V_FACTURAS_CLIENTE( ID, ID_EMPRESA, @@ -2652,6 +2806,7 @@ CREATE VIEW V_FACTURAS_CLIENTE( OBSERVACIONES, ID_CLIENTE, NOMBRE_CLIENTE, + REFERENCIA_CLIENTE, NOMBRE_COMERCIAL_CLIENTE, NIF_CIF, NOMBRE, @@ -2702,6 +2857,7 @@ SELECT FACTURAS_CLIENTE.ID, FACTURAS_CLIENTE.OBSERVACIONES, FACTURAS_CLIENTE.ID_CLIENTE, CONTACTOS.NOMBRE, + CONTACTOS.REFERENCIA, CLIENTES_DATOS.NOMBRE_COMERCIAL, FACTURAS_CLIENTE.NIF_CIF, FACTURAS_CLIENTE.NOMBRE, @@ -2722,7 +2878,7 @@ SELECT FACTURAS_CLIENTE.ID, COMISIONES_LIQUIDADAS.REFERENCIA, FACTURAS_CLIENTE.IGNORAR_CONTABILIDAD, FACTURAS_CLIENTE.ID_TIENDA, - COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA, + COALESCE(TIENDAS.NOMBRE, 'Todas') AS TIENDA, V_CONT_FAC_CLI_VENTAS.ID_SUBCUENTA, V_CONT_FAC_CLI_VENTAS.SUBCUENTA, V_CONT_FAC_CLI_VENTAS.ID_EJERCICIO, @@ -2740,13 +2896,14 @@ SELECT FACTURAS_CLIENTE.ID, ON (COMISIONES_LIQUIDADAS.ID = FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA) INNER JOIN CONTACTOS ON (CONTACTOS.ID = FACTURAS_CLIENTE.ID_CLIENTE) INNER 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 TIENDAS ON (TIENDAS.ID = FACTURAS_CLIENTE.ID_TIENDA) LEFT JOIN V_CONT_FAC_CLI_VENTAS ON (V_CONT_FAC_CLI_VENTAS.ID_FACTURA = FACTURAS_CLIENTE.ID) LEFT JOIN CONTRATOS_CLIENTE ON (CONTRATOS_CLIENTE.ID = FACTURAS_CLIENTE.ID_CONTRATO) ; -/* Create view: V_FACTURAS_PROVEEDOR*/ + +/* View: V_FACTURAS_PROVEEDOR */ CREATE VIEW V_FACTURAS_PROVEEDOR( ID, ID_EMPRESA, @@ -2827,7 +2984,7 @@ SELECT FACTURAS_PROVEEDOR.ID, FACTURAS_PROVEEDOR.IMPORTE_PORTE, FACTURAS_PROVEEDOR.IGNORAR_CONTABILIDAD, FACTURAS_PROVEEDOR.ID_TIENDA, - COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA, + COALESCE(TIENDAS.NOMBRE, 'Todas') AS TIENDA, V_CONT_FAC_PRO_COMPRAS.ID_SUBCUENTA, V_CONT_FAC_PRO_COMPRAS.SUBCUENTA, V_CONT_FAC_PRO_COMPRAS.ID_EJERCICIO, @@ -2841,33 +2998,13 @@ SELECT FACTURAS_PROVEEDOR.ID, ON (CONTACTOS.ID = FACTURAS_PROVEEDOR.ID_PROVEEDOR) 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) - LEFT JOIN V_CONT_FAC_PRO_COMPRAS ON (V_CONT_FAC_PRO_COMPRAS.ID_FACTURA = FACTURAS_PROVEEDOR.ID); - - -/* Create view: V_COMISIONES */ -CREATE VIEW V_COMISIONES( -ID, -ID_EMPRESA, -REFERENCIA, -ID_AGENTE, -DESCRIPCION, -FECHA, -IMPORTE_TOTAL, -USUARIO, -NOMBRE) - AS -SELECT - COMISIONES_LIQUIDADAS.ID, COMISIONES_LIQUIDADAS.ID_EMPRESA, - COMISIONES_LIQUIDADAS.REFERENCIA, COMISIONES_LIQUIDADAS.ID_AGENTE, - COMISIONES_LIQUIDADAS.DESCRIPCION, COMISIONES_LIQUIDADAS.FECHA, - COMISIONES_LIQUIDADAS.IMPORTE_TOTAL, COMISIONES_LIQUIDADAS.USUARIO, - CONTACTOS.NOMBRE -FROM COMISIONES_LIQUIDADAS -LEFT JOIN CONTACTOS ON (CONTACTOS.ID = COMISIONES_LIQUIDADAS.ID_AGENTE); + LEFT JOIN TIENDAS + ON (TIENDAS.ID = FACTURAS_PROVEEDOR.ID_TIENDA) + LEFT JOIN V_CONT_FAC_PRO_COMPRAS ON (V_CONT_FAC_PRO_COMPRAS.ID_FACTURA = FACTURAS_PROVEEDOR.ID) ; + + /* View: V_HIS_MOV_ALB_CLI */ CREATE VIEW V_HIS_MOV_ALB_CLI( FECHA, @@ -3481,6 +3618,98 @@ GROUP BY ID_ALMACEN, +/* View: V_PAGOS_CLIENTE */ +CREATE VIEW V_PAGOS_CLIENTE( + ID, + ID_RECIBO, + TIPO, + FECHA_PAGO, + TITULAR, + ENTIDAD, + SUCURSAL, + DC, + CUENTA, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO, + IGNORAR_CONTABILIDAD, + ID_SUBCUENTA, + SUBCUENTA, + ID_EJERCICIO, + ESTADO_EJERCICIO, + ASIENTO_PUNTEADO) +AS +SELECT PAGOS_CLIENTE.ID, + PAGOS_CLIENTE.ID_RECIBO, + PAGOS_CLIENTE.TIPO, + PAGOS_CLIENTE.FECHA_PAGO, + PAGOS_CLIENTE.TITULAR, + PAGOS_CLIENTE.ENTIDAD, + PAGOS_CLIENTE.SUCURSAL, + PAGOS_CLIENTE.DC, + PAGOS_CLIENTE.CUENTA, + PAGOS_CLIENTE.FECHA_ALTA, + PAGOS_CLIENTE.FECHA_MODIFICACION, + PAGOS_CLIENTE.USUARIO, + PAGOS_CLIENTE.IGNORAR_CONTABILIDAD, + V_CONT_PAGOS_CLI_VENTAS.ID_SUBCUENTA, + V_CONT_PAGOS_CLI_VENTAS.SUBCUENTA, + V_CONT_PAGOS_CLI_VENTAS.ID_EJERCICIO, + V_CONT_PAGOS_CLI_VENTAS.ESTADO_EJERCICIO, + V_CONT_PAGOS_CLI_VENTAS.ASIENTO_PUNTEADO + + FROM PAGOS_CLIENTE + LEFT JOIN V_CONT_PAGOS_CLI_VENTAS ON (V_CONT_PAGOS_CLI_VENTAS.ID_PAGO = PAGOS_CLIENTE.ID) +; + + + +/* View: V_PAGOS_PROVEEDOR */ +CREATE VIEW V_PAGOS_PROVEEDOR( + ID, + ID_RECIBO, + TIPO, + FECHA_PAGO, + TITULAR, + ENTIDAD, + SUCURSAL, + DC, + CUENTA, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO, + IGNORAR_CONTABILIDAD, + ID_SUBCUENTA, + SUBCUENTA, + ID_EJERCICIO, + ESTADO_EJERCICIO, + ASIENTO_PUNTEADO) +AS +SELECT PAGOS_PROVEEDOR.ID, + PAGOS_PROVEEDOR.ID_RECIBO, + PAGOS_PROVEEDOR.TIPO, + PAGOS_PROVEEDOR.FECHA_PAGO, + PAGOS_PROVEEDOR.TITULAR, + PAGOS_PROVEEDOR.ENTIDAD, + PAGOS_PROVEEDOR.SUCURSAL, + PAGOS_PROVEEDOR.DC, + PAGOS_PROVEEDOR.CUENTA, + PAGOS_PROVEEDOR.FECHA_ALTA, + PAGOS_PROVEEDOR.FECHA_MODIFICACION, + PAGOS_PROVEEDOR.USUARIO, + PAGOS_PROVEEDOR.IGNORAR_CONTABILIDAD, + V_CONT_PAGOS_PRO_COMPRAS.ID_SUBCUENTA, + V_CONT_PAGOS_PRO_COMPRAS.SUBCUENTA, + V_CONT_PAGOS_PRO_COMPRAS.ID_EJERCICIO, + V_CONT_PAGOS_PRO_COMPRAS.ESTADO_EJERCICIO, + V_CONT_PAGOS_PRO_COMPRAS.ASIENTO_PUNTEADO + + FROM PAGOS_PROVEEDOR + LEFT JOIN V_CONT_PAGOS_PRO_COMPRAS ON (V_CONT_PAGOS_PRO_COMPRAS.ID_PAGO = PAGOS_PROVEEDOR.ID) +; + + + /* View: V_PED_PROV_SITUACION */ CREATE VIEW V_PED_PROV_SITUACION( ID_PEDIDO, @@ -3498,7 +3727,6 @@ GROUP BY V_PED_PROV_ARTICULOS.ID_PEDIDO - /* View: V_PEDIDOS_PROVEEDOR */ CREATE VIEW V_PEDIDOS_PROVEEDOR( ID, @@ -3576,14 +3804,14 @@ SELECT PEDIDOS_PROVEEDOR.IMPORTE_IVA, PEDIDOS_PROVEEDOR.ID_FORMA_PAGO, PEDIDOS_PROVEEDOR.ID_TIENDA, - COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA + COALESCE(TIENDAS.NOMBRE, 'Todas') AS TIENDA FROM PEDIDOS_PROVEEDOR INNER JOIN CONTACTOS ON (CONTACTOS.ID = PEDIDOS_PROVEEDOR.ID_PROVEEDOR) 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) + LEFT OUTER JOIN TIENDAS ON (TIENDAS.ID = PEDIDOS_PROVEEDOR.ID_TIENDA) ; @@ -3605,7 +3833,6 @@ SELECT -/* View: V_PRESUPUESTOS_CLIENTE */ CREATE VIEW V_PRESUPUESTOS_CLIENTE( ID, ID_EMPRESA, @@ -3647,7 +3874,8 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE( ID_CONTRATO, REF_CONTRATO, NO_VALORADO, - TIPO_PRESUPUESTO) + TIPO_PRESUPUESTO, + CALIDADES) AS SELECT PRESUPUESTOS_CLIENTE.ID, @@ -3685,128 +3913,122 @@ SELECT PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL, PRESUPUESTOS_CLIENTE.ID_FORMA_PAGO, PRESUPUESTOS_CLIENTE.id_tienda, - COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA, + COALESCE(TIENDAS.NOMBRE, 'Todas') AS TIENDA, PRESUPUESTOS_CLIENTE.ID_VENDEDOR, CONTACTOS2.NOMBRE AS VENDEDOR, PRESUPUESTOS_CLIENTE.ID_CONTRATO, CONTRATOS_CLIENTE.REFERENCIA, PRESUPUESTOS_CLIENTE.NO_VALORADO, - PRESUPUESTOS_CLIENTE.TIPO_PRESUPUESTO + PRESUPUESTOS_CLIENTE.TIPO_PRESUPUESTO, + PRESUPUESTOS_CLIENTE.CALIDADES FROM PRESUPUESTOS_CLIENTE LEFT OUTER JOIN CONTACTOS ON (PRESUPUESTOS_CLIENTE.ID_CLIENTE = CONTACTOS.ID) LEFT JOIN EMPRESAS_CONTACTOS ON (EMPRESAS_CONTACTOS.ID_CONTACTO = 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) + LEFT OUTER JOIN TIENDAS ON (TIENDAS.ID = PRESUPUESTOS_CLIENTE.ID_TIENDA) LEFT OUTER JOIN CONTRATOS_CLIENTE ON (CONTRATOS_CLIENTE.ID = PRESUPUESTOS_CLIENTE.ID_CONTRATO) ; -/* View: V_CONTRATOS_CLIENTE */ -CREATE VIEW V_CONTRATOS_CLIENTE( + +/* View: V_PROVEEDORES */ +CREATE VIEW V_PROVEEDORES( ID, - ID_EMPRESA, - ID_CLIENTE, - NOMBRE_CLIENTE, - REF_CLIENTE, - NOMBRE_COMERCIAL_CLIENTE, + ID_CATEGORIA, NIF_CIF, NOMBRE, - ID_DIRECCION, + PERSONA_CONTACTO, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, - TELEFONO, - MOVIL, - REFERENCIA, - FECHA_CONTRATO, - SITUACION, - FORMA_PAGO, - PLAZO_ENTREGA, - OBSERVACIONES, - INCIDENCIAS, - INCIDENCIAS_ACTIVAS, + TELEFONO_1, + TELEFONO_2, + MOVIL_1, + MOVIL_2, + FAX, + EMAIL_1, + EMAIL_2, + PAGINA_WEB, + NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, - RECARGO_EQUIVALENCIA, - RE, - IMPORTE_RE, - ID_TIPO_IVA, - IVA, - IMPORTE_IVA, - IMPORTE_NETO, - IMPORTE_PORTE, + ID_EMPRESA, + REFERENCIA, ID_TIENDA, TIENDA, - BASE_IMPONIBLE, DESCUENTO, - IMPORTE_DESCUENTO, - IMPORTE_TOTAL, + DESCRIPCION_PROVEEDOR, + CODIGO_ASIGNADO, + GRUPO_PROVEEDOR, + REGIMEN_IVA, + ID_TIPO_IVA, ID_FORMA_PAGO, - ID_VENDEDOR, - VENDEDOR, - PERSONA_CONTACTO, - TIPO_CONTRATO, - CONDICIONES) + TIENDA_WEB, + HOMOLOGADO, + CERTIFICACION, + IGNORAR_CONTABILIDAD, + TIENE_SUBCUENTA, + NOMBRE_COMERCIAL, + ES_ACREEDOR, + VENCIMIENTO_FACTURAS_1, + VENCIMIENTO_FACTURAS_2, + VENCIMIENTO_FACTURAS_3) AS -SELECT CONTRATOS_CLIENTE.ID, -/* CONTRATOS_CLIENTE.ID_EMPRESA,*/ - EMPRESAS_CONTACTOS.ID_EMPRESA, - CONTRATOS_CLIENTE.ID_CLIENTE, - CONTACTOS.NOMBRE, - CONTACTOS.REFERENCIA, - CLIENTES_DATOS.NOMBRE_COMERCIAL, - CONTRATOS_CLIENTE.NIF_CIF, - CONTRATOS_CLIENTE.NOMBRE, - CONTRATOS_CLIENTE.ID_DIRECCION, - CONTRATOS_CLIENTE.CALLE, - CONTRATOS_CLIENTE.POBLACION, - CONTRATOS_CLIENTE.PROVINCIA, - CONTRATOS_CLIENTE.CODIGO_POSTAL, - CONTRATOS_CLIENTE.TELEFONO, - CONTRATOS_CLIENTE.MOVIL, - CONTRATOS_CLIENTE.REFERENCIA, - CONTRATOS_CLIENTE.FECHA_CONTRATO, - CONTRATOS_CLIENTE.SITUACION, - CONTRATOS_CLIENTE.FORMA_PAGO, - CONTRATOS_CLIENTE.PLAZO_ENTREGA, - CONTRATOS_CLIENTE.OBSERVACIONES, - CONTRATOS_CLIENTE.INCIDENCIAS, - CONTRATOS_CLIENTE.INCIDENCIAS_ACTIVAS, - CONTRATOS_CLIENTE.FECHA_ALTA, - CONTRATOS_CLIENTE.FECHA_MODIFICACION, - CONTRATOS_CLIENTE.USUARIO, - CONTRATOS_CLIENTE.RECARGO_EQUIVALENCIA, - CONTRATOS_CLIENTE.RE, - CONTRATOS_CLIENTE.IMPORTE_RE, - CONTRATOS_CLIENTE.ID_TIPO_IVA, - CONTRATOS_CLIENTE.IVA, - CONTRATOS_CLIENTE.IMPORTE_IVA, - CONTRATOS_CLIENTE.IMPORTE_NETO, - CONTRATOS_CLIENTE.IMPORTE_PORTE, - CONTRATOS_CLIENTE.ID_TIENDA, - COALESCE(TIENDAS.NOMBRE, 'Todas') AS TIENDA, - CONTRATOS_CLIENTE.BASE_IMPONIBLE, - CONTRATOS_CLIENTE.DESCUENTO, - CONTRATOS_CLIENTE.IMPORTE_DESCUENTO, - CONTRATOS_CLIENTE.IMPORTE_TOTAL, - CONTRATOS_CLIENTE.ID_FORMA_PAGO, - CONTRATOS_CLIENTE.ID_VENDEDOR, - CONTACTOS2.NOMBRE AS VENDEDOR, - CONTRATOS_CLIENTE.PERSONA_CONTACTO, - CONTRATOS_CLIENTE.TIPO_CONTRATO, - CONTRATOS_CLIENTE.CONDICIONES - - FROM CONTRATOS_CLIENTE - LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = CONTRATOS_CLIENTE.ID_CLIENTE) - LEFT JOIN EMPRESAS_CONTACTOS ON (EMPRESAS_CONTACTOS.ID_CONTACTO = CONTACTOS.ID) - LEFT OUTER JOIN CONTACTOS CONTACTOS2 ON (CONTRATOS_CLIENTE.ID_VENDEDOR = CONTACTOS2.ID) - INNER JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = CONTRATOS_CLIENTE.ID_CLIENTE) - LEFT JOIN TIENDAS ON (TIENDAS.ID = CONTRATOS_CLIENTE.ID_TIENDA) +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, + PROVEEDORES_DATOS.TIENE_SUBCUENTA, + PROVEEDORES_DATOS.NOMBRE_COMERCIAL, + PROVEEDORES_DATOS.ES_ACREEDOR, + PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_1, + PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_2, + PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_3 +FROM + PROVEEDORES_DATOS + INNER JOIN V_CONTACTOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = V_CONTACTOS.ID) +WHERE + V_CONTACTOS.ID_CATEGORIA = 2 ; + + /* View: V_REC_CLI_COMPENSADOS */ CREATE VIEW V_REC_CLI_COMPENSADOS( ID_RECIBO, @@ -3819,56 +4041,59 @@ group by ID_RECIBO_COMPENSADO ; -/* Create view: V_REC_PRO_COMPENSADOS (ViwData.CreateDependDef) */ + +/* View: V_REC_PRO_COMPENSADOS */ CREATE VIEW V_REC_PRO_COMPENSADOS( -ID_RECIBO, -IMPORTE_TOTAL_COMPENSADO) - AS + 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 -group by ID_RECIBO_COMPENSADO; +group by ID_RECIBO_COMPENSADO +; -/* Create view: V_RECIBOS_CLIENTE */ + +/* View: V_RECIBOS_CLIENTE */ CREATE VIEW V_RECIBOS_CLIENTE( -ID, -ID_RECIBO_COMPENSADO, -REFERENCIA_REC_COMPENSADO, -REFERENCIA, -SITUACION, -ID_FACTURA, -FECHA_FACTURA, -FORMA_PAGO_FACTURA, -IMPORTE_FACTURA, -ID_REMESA, -REFERENCIA_REMESA, -FECHA_EMISION, -FECHA_VENCIMIENTO, -DESCRIPCION, -OBSERVACIONES, -IMPORTE, -OTROS_GASTOS, -IMPORTE_TOTAL, -ID_EMPRESA, -ID_CLIENTE, -NOMBRE_CLIENTE, -ENTIDAD_CLIENTE, -SUCURSAL_CLIENTE, -DC_CLIENTE, -CUENTA_CLIENTE, -NIF_CIF, -NOMBRE, -CALLE, -POBLACION, -CODIGO_POSTAL, -PROVINCIA, -FECHA_ALTA, -FECHA_MODIFICACION, -USUARIO, -ID_TIENDA, -TIENDA) - AS + ID, + ID_RECIBO_COMPENSADO, + REFERENCIA_REC_COMPENSADO, + REFERENCIA, + SITUACION, + ID_FACTURA, + FECHA_FACTURA, + FORMA_PAGO_FACTURA, + IMPORTE_FACTURA, + ID_REMESA, + REFERENCIA_REMESA, + FECHA_EMISION, + FECHA_VENCIMIENTO, + DESCRIPCION, + OBSERVACIONES, + IMPORTE, + OTROS_GASTOS, + IMPORTE_TOTAL, + ID_EMPRESA, + ID_CLIENTE, + NOMBRE_CLIENTE, + ENTIDAD_CLIENTE, + SUCURSAL_CLIENTE, + DC_CLIENTE, + CUENTA_CLIENTE, + NIF_CIF, + NOMBRE, + CALLE, + POBLACION, + CODIGO_POSTAL, + PROVINCIA, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO, + ID_TIENDA, + TIENDA) +AS SELECT RECIBOS_CLIENTE.ID, RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO, RECIBO_COMPENSADO1.REFERENCIA, @@ -3903,7 +4128,7 @@ SELECT RECIBOS_CLIENTE.ID, RECIBOS_CLIENTE.FECHA_MODIFICACION, RECIBOS_CLIENTE.USUARIO, RECIBOS_CLIENTE.ID_TIENDA, - COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA + COALESCE(TIENDAS.NOMBRE, 'Todas') AS TIENDA FROM RECIBOS_CLIENTE LEFT JOIN V_REC_CLI_SITUACION @@ -3924,53 +4149,53 @@ LEFT JOIN RECIBOS_CLIENTE RECIBO_COMPENSADO1 ON (RECIBO_COMPENSADO1.ID = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO) LEFT JOIN V_REC_CLI_SITUACION RECIBO_COMPENSADO2 ON (RECIBO_COMPENSADO2.ID_RECIBO = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO) -LEFT JOIN EMPRESAS_TIENDAS -ON (EMPRESAS_TIENDAS.ID = RECIBOS_CLIENTE.ID_TIENDA); +LEFT JOIN TIENDAS +ON (TIENDAS.ID = RECIBOS_CLIENTE.ID_TIENDA) ; -/* Create view: V_RECIBOS_PROVEEDOR (ViwData.CreateDependDef) */ +/* View: V_RECIBOS_PROVEEDOR */ CREATE VIEW V_RECIBOS_PROVEEDOR( -ID, -ID_RECIBO_COMPENSADO, -REFERENCIA_REC_COMPENSADO, -REFERENCIA, -REFERENCIA_PROVEEDOR, -SITUACION, -ID_FACTURA, -REFERENCIA_FACTURA_PROV, -FECHA_FACTURA, -FORMA_PAGO_FACTURA, -IMPORTE_FACTURA, -ID_REMESA, -REFERENCIA_REMESA, -FECHA_EMISION, -FECHA_VENCIMIENTO, -DESCRIPCION, -OBSERVACIONES, -IMPORTE, -OTROS_GASTOS, -IMPORTE_TOTAL, -ID_EMPRESA, -ID_PROVEEDOR, -NOMBRE_PROVEEDOR, -ENTIDAD_PROVEEDOR, -SUCURSAL_PROVEEDOR, -DC_PROVEEDOR, -CUENTA_PROVEEDOR, -NIF_CIF, -NOMBRE, -CALLE, -POBLACION, -CODIGO_POSTAL, -PROVINCIA, -FECHA_ALTA, -FECHA_MODIFICACION, -USUARIO, -ID_TIENDA, -TIENDA) - AS + ID, + ID_RECIBO_COMPENSADO, + REFERENCIA_REC_COMPENSADO, + REFERENCIA, + REFERENCIA_PROVEEDOR, + SITUACION, + ID_FACTURA, + REFERENCIA_FACTURA_PROV, + FECHA_FACTURA, + FORMA_PAGO_FACTURA, + IMPORTE_FACTURA, + ID_REMESA, + REFERENCIA_REMESA, + FECHA_EMISION, + FECHA_VENCIMIENTO, + DESCRIPCION, + OBSERVACIONES, + IMPORTE, + OTROS_GASTOS, + IMPORTE_TOTAL, + ID_EMPRESA, + ID_PROVEEDOR, + NOMBRE_PROVEEDOR, + ENTIDAD_PROVEEDOR, + SUCURSAL_PROVEEDOR, + DC_PROVEEDOR, + CUENTA_PROVEEDOR, + NIF_CIF, + NOMBRE, + CALLE, + POBLACION, + CODIGO_POSTAL, + PROVINCIA, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO, + ID_TIENDA, + TIENDA) +AS SELECT RECIBOS_PROVEEDOR.ID, RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO, RECIBO_COMPENSADO1.REFERENCIA, @@ -4008,7 +4233,7 @@ SELECT RECIBOS_PROVEEDOR.ID, RECIBOS_PROVEEDOR.FECHA_MODIFICACION, RECIBOS_PROVEEDOR.USUARIO, RECIBOS_PROVEEDOR.ID_TIENDA, - COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA + COALESCE(TIENDAS.NOMBRE, 'Todas') AS TIENDA FROM RECIBOS_PROVEEDOR LEFT JOIN V_REC_PRO_SITUACION @@ -4029,31 +4254,33 @@ 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) -LEFT JOIN EMPRESAS_TIENDAS -ON (EMPRESAS_TIENDAS.ID = RECIBOS_PROVEEDOR.ID_TIENDA); +LEFT JOIN TIENDAS +ON (TIENDAS.ID = RECIBOS_PROVEEDOR.ID_TIENDA) ; -/* Create view: V_REMESAS_CLIENTE */ + + +/* View: V_REMESAS_CLIENTE */ CREATE VIEW V_REMESAS_CLIENTE( -ID, -ID_EMPRESA, -REFERENCIA, -TIPO, -FECHA_REMESA, -DESCRIPCION, -ID_DATOS_BANCO, -FECHA_ALTA, -FECHA_MODIFICACION, -USUARIO, -NOMBRE, -ENTIDAD, -SUCURSAL, -DC, -CUENTA, -SUFIJO_N19, -SUFIJO_N58, -IMPORTE_TOTAL) - AS + ID, + ID_EMPRESA, + REFERENCIA, + TIPO, + FECHA_REMESA, + DESCRIPCION, + ID_DATOS_BANCO, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO, + NOMBRE, + ENTIDAD, + SUCURSAL, + DC, + CUENTA, + SUFIJO_N19, + SUFIJO_N58, + IMPORTE_TOTAL) +AS SELECT REMESAS_CLIENTE.ID, REMESAS_CLIENTE.ID_EMPRESA, @@ -4079,31 +4306,32 @@ FROM 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; +GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17 ; -/* Create view: V_REMESAS_PROVEEDOR (ViwData.CreateDependDef) */ + +/* View: V_REMESAS_PROVEEDOR */ CREATE VIEW V_REMESAS_PROVEEDOR( -ID, -ID_EMPRESA, -REFERENCIA, -TIPO, -FECHA_REMESA, -DESCRIPCION, -ID_DATOS_BANCO, -FECHA_ALTA, -FECHA_MODIFICACION, -USUARIO, -NOMBRE, -ENTIDAD, -SUCURSAL, -DC, -CUENTA, -SUFIJO_N19, -SUFIJO_N58, -IMPORTE_TOTAL) - AS + ID, + ID_EMPRESA, + REFERENCIA, + TIPO, + FECHA_REMESA, + DESCRIPCION, + ID_DATOS_BANCO, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO, + NOMBRE, + ENTIDAD, + SUCURSAL, + DC, + CUENTA, + SUFIJO_N19, + SUFIJO_N58, + IMPORTE_TOTAL) +AS SELECT REMESAS_PROVEEDOR.ID, REMESAS_PROVEEDOR.ID_EMPRESA, @@ -4129,23 +4357,26 @@ FROM 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; +GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17 ; + + +/* View: V_USUARIOS */ CREATE VIEW V_USUARIOS( -ID, -USERNAME, -LOGIN, -PASS, -PASSEXPIRED, -BLOQUEADO, -EMAIL, -USERDAYSSUN, -PRIVILEGED, -TIPO, -ID_PERFIL, -CHECKSUM) - AS + ID, + USERNAME, + LOGIN, + PASS, + PASSEXPIRED, + BLOQUEADO, + EMAIL, + USERDAYSSUN, + PRIVILEGED, + TIPO, + ID_PERFIL, + CHECKSUM) +AS SELECT USUARIOS.ID, USUARIOS.USERNAME, USUARIOS.LOGIN, USUARIOS.PASS, USUARIOS.PASSEXPIRED, USUARIOS.BLOQUEADO, USUARIOS.EMAIL, USUARIOS.USERDAYSSUN, USUARIOS.PRIVILEGED, @@ -4153,40 +4384,83 @@ SELECT FROM USUARIOS WHERE TIPO = 'U' - ORDER BY USERNAME; + ORDER BY USERNAME ; -create view V_CONTRATOS_FACTURAS_PROVEEDOR (ID_CONTRATO, IMPORTE) -AS -select ID_CONTRATO, SUM(IMPORTE) as IMPORTE_GASTOS_PROVEEDORES -from facturas_proveedor_contratos -group by 1; -create view V_CONTRATOS_BENEFICIOS (ID, REFERENCIA, FECHA_CONTRATO, NOMBRE, NIF_CIF, -IMPORTE_NETO, IMPORTE_DESCUENTO, BASE_IMPONIBLE, IMPORTE_FACTURAS_PROVEEDOR, -IMPORTE_BENEFICIO, PORCENTAJE_BENEFICIO) -AS -select -contratos_cliente.ID, -contratos_cliente.referencia, contratos_cliente.fecha_contrato, -contratos_cliente.nombre, contratos_cliente.nif_cif, -contratos_cliente.importe_neto, contratos_cliente.importe_descuento, -contratos_cliente.base_imponible, v_contratos_facturas_proveedor.importe as importe_facturas_proveedor, -(contratos_cliente.base_imponible - coalesce(v_contratos_facturas_proveedor.importe, 0)) as importe_beneficio, -case when (contratos_cliente.base_imponible - coalesce(v_contratos_facturas_proveedor.importe, 0)) = 0 then 0 - else (((contratos_cliente.base_imponible - coalesce(v_contratos_facturas_proveedor.importe, 0))*100)/contratos_cliente.importe_neto) -end as porcentaje_beneficio -from contratos_cliente -left join v_contratos_facturas_proveedor -on (v_contratos_facturas_proveedor.ID_CONTRATO = contratos_cliente.ID); +/* View: V_VENDEDORES */ +CREATE VIEW V_VENDEDORES( + ID, + ID_CATEGORIA, + NIF_CIF, + NOMBRE, + PERSONA_CONTACTO, + CALLE, + POBLACION, + PROVINCIA, + CODIGO_POSTAL, + TELEFONO_1, + TELEFONO_2, + MOVIL_1, + MOVIL_2, + FAX, + EMAIL_1, + EMAIL_2, + PAGINA_WEB, + NOTAS, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO, + ID_EMPRESA, + REFERENCIA, + ID_TIENDA, + TIENDA, + COMISION, + 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, + VENDEDORES_DATOS.COMISION, + VENDEDORES_DATOS.ID_USUARIO + +FROM V_CONTACTOS +INNER JOIN VENDEDORES_DATOS ON (VENDEDORES_DATOS.ID_VENDEDOR = V_CONTACTOS.ID) + +WHERE V_CONTACTOS.ID_CATEGORIA = 3 +; + /******************************************************************************/ -/**** Primary Keys ****/ +/*** Primary Keys ***/ /******************************************************************************/ +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); ALTER TABLE ALBARANES_PROVEEDOR ADD CONSTRAINT PK_ALBARAN_PROVEEDOR PRIMARY KEY (ID); @@ -4194,6 +4468,7 @@ ALTER TABLE ALBARANES_PROVEEDOR_DETALLES ADD CONSTRAINT PK_ALBARANES_PROVEEDOR_D ALTER TABLE ALMACENES ADD CONSTRAINT PK_ALMACENES PRIMARY KEY (ID); ALTER TABLE ARTICULOS ADD CONSTRAINT PK_ARTICULOS PRIMARY KEY (ID); ALTER TABLE CATEGORIAS ADD CONSTRAINT PK_CATEGORIAS PRIMARY KEY (ID); +ALTER TABLE CHANGES ADD CONSTRAINT PK_CHANGES PRIMARY KEY (CHANGECODE); 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); @@ -4204,8 +4479,10 @@ 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); -ALTER TABLE CONTACTOS_DIRECCIONES ADD CONSTRAINT PK_CONTACTOS_DIR PRIMARY KEY (ID); ALTER TABLE CONTACTOS_DATOS_PERSONAL ADD CONSTRAINT PK_CONTACTOS_DATOS_PER PRIMARY KEY (ID); +ALTER TABLE CONTACTOS_DIRECCIONES ADD CONSTRAINT PK_CONTACTOS_DIR PRIMARY KEY (ID); +ALTER TABLE CONTRATOS_CLIENTE ADD CONSTRAINT PK_CONTRATOS_CLIENTE PRIMARY KEY (ID); +ALTER TABLE CONTRATOS_CLIENTE_DETALLES ADD CONSTRAINT PK_CONTRATOS_CLIENTE_DETALLE PRIMARY KEY (ID); ALTER TABLE CONT_APUNTES ADD CONSTRAINT PK_CONT_APUNTES PRIMARY KEY (ID); ALTER TABLE CONT_ASIENTOS ADD CONSTRAINT PK_CONT_ASIENTOS PRIMARY KEY (ID); ALTER TABLE CONT_BALANCES ADD CONSTRAINT PK_CONT_BALANCES PRIMARY KEY (ID); @@ -4214,7 +4491,6 @@ ALTER TABLE CONT_CUENTAS_ESPECIALES ADD CONSTRAINT PK_CONT_CUENTAS_ESPECIALES PR 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 VENDEDORES_DATOS ADD CONSTRAINT PK_VENDEDORES_DATOS PRIMARY KEY (ID_VENDEDOR); 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); @@ -4223,8 +4499,8 @@ ALTER TABLE EMPRESAS_USUARIOS ADD CONSTRAINT PK_EMPRESAS_USUARIOS PRIMARY KEY (I 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 FACTURAS_PROVEEDOR_CONTRATOS ADD CONSTRAINT PK_FACTURAS_PROVEEDOR_CONTRATOS 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); @@ -4239,13 +4515,9 @@ ALTER TABLE PEDIDOS_PROVEEDOR_DETALLES ADD CONSTRAINT PK_PEDIDOS_PROVEEDOR_DETAL ALTER TABLE PERMISOS ADD CONSTRAINT PK_PERMISOS PRIMARY KEY (ID); ALTER TABLE PERMISOSEX ADD CONSTRAINT PK_PERMISOSEX PRIMARY KEY (ID); ALTER TABLE POBLACIONES ADD CONSTRAINT PK_POBLACIONES PRIMARY KEY (ID); -ALTER TABLE PRESUPUESTOS_PROPIEDADES ADD CONSTRAINT PK_PRESUPUESTOS_PROPIEDADES PRIMARY KEY (ID); -ALTER TABLE PRESUPUESTOS_VALORES ADD CONSTRAINT PK_PRESUPUESTOS_VALORES PRIMARY KEY (ID); -ALTER TABLE PRESUPUESTOS_CLIENTE_CAPITULOS ADD CONSTRAINT PK_PRESUPUESTOS_CLIENTE_CAPITUL PRIMARY KEY (ID); ALTER TABLE PRESUPUESTOS_CLIENTE ADD CONSTRAINT PK_PRESUPUESTOS_CLIENTE PRIMARY KEY (ID); +ALTER TABLE PRESUPUESTOS_CLIENTE_CAPITULOS ADD CONSTRAINT PK_PRESUPUESTOS_CLIENTE_CAPITUL PRIMARY KEY (ID); ALTER TABLE PRESUPUESTOS_CLIENTE_DETALLES ADD CONSTRAINT PK_PRESUPUESTOS_CLIENTE_DETALLE PRIMARY KEY (ID); -ALTER TABLE CONTRATOS_CLIENTE ADD CONSTRAINT PK_CONTRATOS_CLIENTE PRIMARY KEY (ID); -ALTER TABLE CONTRATOS_CLIENTE_DETALLES ADD CONSTRAINT PK_CONTRATOS_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 PROVINCIAS ADD CONSTRAINT PK_PROVINCIAS PRIMARY KEY (ID); @@ -4253,20 +4525,21 @@ 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 TIENDAS ADD CONSTRAINT PK_TIENDAS 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 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 REFERENCIAS ADD CONSTRAINT PK_REFERENCIAS PRIMARY KEY (ID); +ALTER TABLE VENDEDORES_DATOS ADD CONSTRAINT PK_VENDEDORES_DATOS PRIMARY KEY (ID_VENDEDOR); /******************************************************************************/ -/**** Foreign Keys ****/ +/*** Foreign Keys ***/ /******************************************************************************/ ALTER TABLE ALBARANES_CLIENTE ADD CONSTRAINT FK_ALBARANES_CLIENTE_1 FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_CLIENTE (ID) ON DELETE SET NULL ON UPDATE SET NULL; -ALTER TABLE ALBARANES_CLIENTE ADD CONSTRAINT FK_ALBARANES_CLIENTE_2 FOREIGN KEY (ID_CONTRATO) REFERENCES CONTRATOS_CLIENTE(ID) ON DELETE SET NULL ON UPDATE SET NULL; +ALTER TABLE ALBARANES_CLIENTE ADD CONSTRAINT FK_ALBARANES_CLIENTE_2 FOREIGN KEY (ID_CONTRATO) REFERENCES CONTRATOS_CLIENTE (ID) ON DELETE SET NULL ON UPDATE SET NULL; ALTER TABLE ALBARANES_CLIENTE ADD CONSTRAINT FK_ALBARAN_CLIENTE_2 FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE NO ACTION ON UPDATE NO ACTION; ALTER TABLE ALBARANES_PROVEEDOR ADD CONSTRAINT FK_ALBARAN_PROVEEDOR_2 FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE NO ACTION ON UPDATE NO ACTION; ALTER TABLE ALMACENES ADD CONSTRAINT FK_ALMACENES_EMPRESAS FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE NO ACTION ON UPDATE NO ACTION; @@ -4278,27 +4551,30 @@ ALTER TABLE EMPRESAS_DATOS_BANCO ADD CONSTRAINT FK_EMPRESAS_DATOS_BANCO FOREIGN ALTER TABLE EMPRESAS_TIENDAS ADD CONSTRAINT FK_EMPRESAS_TIENDAS_1 FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE CASCADE ON UPDATE CASCADE; ALTER TABLE FACTURAS_CLIENTE ADD CONSTRAINT FK_FACTURAS_CLIENTE_EMPRESAS FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE NO ACTION ON UPDATE NO ACTION; ALTER TABLE FACTURAS_PROVEEDOR ADD CONSTRAINT FK_FACTURAS_PROVEEDOR_EMPRESAS FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE NO ACTION ON UPDATE NO ACTION; -ALTER TABLE FACTURAS_PROVEEDOR_DETALLES ADD CONSTRAINT FK_FACTURAS_PRO_DET_ID_FACTURA FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_PROVEEDOR (ID) ON DELETE CASCADE ON UPDATE CASCADE; ALTER TABLE FACTURAS_PROVEEDOR_CONTRATOS ADD CONSTRAINT FK_FACTURAS_PROVEEDOR_CONTRATO2 FOREIGN KEY (ID_CONTRATO) REFERENCES CONTRATOS_CLIENTE (ID) ON DELETE CASCADE ON UPDATE CASCADE; ALTER TABLE FACTURAS_PROVEEDOR_CONTRATOS ADD CONSTRAINT FK_FACTURAS_PROVEEDOR_CONTRATOS FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_PROVEEDOR (ID) ON DELETE CASCADE ON UPDATE CASCADE; +ALTER TABLE FACTURAS_PROVEEDOR_DETALLES ADD CONSTRAINT FK_FACTURAS_PRO_DET_ID_FACTURA FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_PROVEEDOR (ID) ON DELETE CASCADE ON UPDATE CASCADE; ALTER TABLE MOVIMIENTOS ADD CONSTRAINT FK_MOVIMIENTOS FOREIGN KEY (ID_ARTICULO) REFERENCES ARTICULOS (ID); ALTER TABLE MOVIMIENTOS ADD CONSTRAINT FK_MOVIMIENTOS2 FOREIGN KEY (ID_ALMACEN) REFERENCES ALMACENES (ID); +ALTER TABLE PAGOS_CLIENTE ADD CONSTRAINT FK_PAGOS_CLIENTE_1 FOREIGN KEY (ID_RECIBO) REFERENCES RECIBOS_CLIENTE (ID); +ALTER TABLE PAGOS_PROVEEDOR ADD CONSTRAINT FK_PAGOS_PROVEEDOR_1 FOREIGN KEY (ID_RECIBO) REFERENCES RECIBOS_PROVEEDOR (ID); ALTER TABLE PEDIDOS_CLIENTE ADD CONSTRAINT FK_PEDIDOS_CLIENTE FOREIGN KEY (ID_CLIENTE) REFERENCES CONTACTOS (ID); ALTER TABLE PEDIDOS_CLIENTE ADD CONSTRAINT FK_PEDIDOS_CLIENTE_ID_EMPRESA FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID); ALTER TABLE PEDIDOS_PROVEEDOR ADD CONSTRAINT FK_PEDIDOS_PROVEEDOR FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID); ALTER TABLE PEDIDOS_PROVEEDOR ADD CONSTRAINT FK_PEDIDOS_PROVEEDOR2 FOREIGN KEY (ID_PROVEEDOR) REFERENCES CONTACTOS (ID); ALTER TABLE PEDIDOS_PROVEEDOR_DETALLES ADD CONSTRAINT FK_PEDIDOS_PROV_DET_ID_PEDIDO FOREIGN KEY (ID_PEDIDO) REFERENCES PEDIDOS_PROVEEDOR (ID) ON DELETE CASCADE ON UPDATE CASCADE; +ALTER TABLE PRESUPUESTOS_CLIENTE ADD CONSTRAINT FK_PRESUPUESTOS_CLIENTE_1 FOREIGN KEY (ID_CONTRATO) REFERENCES CONTRATOS_CLIENTE (ID) ON DELETE SET NULL ON UPDATE CASCADE; ALTER TABLE REMESAS_CLIENTE ADD CONSTRAINT FK_REMESAS_CLIENTE FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID); ALTER TABLE REMESAS_PROVEEDOR ADD CONSTRAINT FK_REMESAS_PROVEEDOR FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID); ALTER TABLE TIENDA_WEB ADD CONSTRAINT FK_EMPRESAS_TIENDA_WEB FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE CASCADE ON UPDATE CASCADE; -ALTER TABLE PAGOS_CLIENTE ADD CONSTRAINT FK_PAGOS_CLIENTE_1 FOREIGN KEY (ID_RECIBO) REFERENCES RECIBOS_CLIENTE (ID); -ALTER TABLE PAGOS_PROVEEDOR ADD CONSTRAINT FK_PAGOS_PROVEEDOR_1 FOREIGN KEY (ID_RECIBO) REFERENCES RECIBOS_PROVEEDOR (ID); -ALTER TABLE PRESUPUESTOS_CLIENTE ADD CONSTRAINT FK_PRESUPUESTOS_CLIENTE_1 FOREIGN KEY (ID_CONTRATO) REFERENCES CONTRATOS_CLIENTE (ID) ON DELETE SET NULL ON UPDATE CASCADE; + /******************************************************************************/ -/**** Indices ****/ +/*** Indices ***/ /******************************************************************************/ +CREATE INDEX IDX_AGENTES_COMISIONES1 ON AGENTES_COMISIONES (ID_AGENTE); +CREATE INDEX IDX_AGENTES_COMISIONES2 ON AGENTES_COMISIONES (ID_PROVEEDOR); CREATE INDEX IDX_ALBARANES_CLIENTE1 ON ALBARANES_CLIENTE (ID_FORMA_PAGO); CREATE INDEX IDX_ALBARANES_CLIENTE2 ON ALBARANES_CLIENTE (TIPO); CREATE INDEX IDX_ALBARANES_CLIENTE_DETALLES1 ON ALBARANES_CLIENTE_DETALLES (ID_ARTICULO); @@ -4311,6 +4587,9 @@ CREATE INDEX IDX_ALBARANES_PROVEEDOR_5 ON ALBARANES_PROVEEDOR (TIPO); CREATE INDEX IDX_ALBARANES_PROV_DETALLES ON ALBARANES_PROVEEDOR_DETALLES (ID_ALBARAN); CREATE INDEX IDX_ALBARANES_PROV_DETALLES1 ON ALBARANES_PROVEEDOR_DETALLES (ID_ARTICULO); CREATE INDEX IDX_ARTICULOS ON ARTICULOS (ID_PROVEEDOR); +CREATE INDEX IDX_ELIMINADOS ON ARTICULOS (ELIMINADO); +CREATE INDEX CHANGES_LOC_ID ON CHANGES (LOC_ID); +CREATE INDEX CHANGES_TABLENAME ON CHANGES (TABLENAME); CREATE INDEX IDX_CLIENTES_DATOS ON CLIENTES_DATOS (ID_TIPO_IVA); CREATE INDEX IDX_CLIENTES_DATOS1 ON CLIENTES_DATOS (ID_FORMA_PAGO); CREATE INDEX IDX_CLIENTES_DATOS_ID_AGENTE ON CLIENTES_DATOS (ID_AGENTE); @@ -4321,8 +4600,8 @@ CREATE INDEX IDX_CONFIGURACION ON CONFIGURACION (ID_EMPRESA); 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 IDX_CONTACTOS_PER_ID_CONTACTO ON CONTACTOS_DATOS_PERSONAL (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); @@ -4332,6 +4611,7 @@ 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 FACTURAS_CLIENTE_IDX1 ON FACTURAS_CLIENTE (REFERENCIA); CREATE INDEX IDX_FACTURAS_CLIENTE ON FACTURAS_CLIENTE (ID_FORMA_PAGO); CREATE INDEX IDX_FACTURAS_CLIENTE1 ON FACTURAS_CLIENTE (ID_TIPO_IVA); CREATE INDEX IDX_FACTURAS_CLIENTE2 ON FACTURAS_CLIENTE (ID_COMISION_LIQUIDADA); @@ -4365,13 +4645,2704 @@ CREATE INDEX IDX_REMESAS_PROVEEDOR ON REMESAS_PROVEEDOR (ID_DATOS_BANCO); /******************************************************************************/ -/**** Stored Procedures ****/ +/*** Triggers ***/ /******************************************************************************/ SET TERM ^ ; -ALTER PROCEDURE PROC_DELETE_ASIENTO_FACTURA ( + + +/******************************************************************************/ +/*** Triggers for tables ***/ +/******************************************************************************/ + + + +/* Trigger: AGENTES_COMISIONES_DELETE_REPL */ +CREATE OR ALTER TRIGGER AGENTES_COMISIONES_DELETE_REPL FOR AGENTES_COMISIONES +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'AGENTES_COMISIONES','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='AGENTES_COMISIONES'; + END +END +^ + + +/* Trigger: AGENTES_COMISIONES_INSERT_REPL */ +CREATE OR ALTER TRIGGER AGENTES_COMISIONES_INSERT_REPL FOR AGENTES_COMISIONES +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'AGENTES_COMISIONES','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='AGENTES_COMISIONES'; + END +END +^ + + +/* Trigger: AGENTES_COMISIONES_UPDATE_REPL */ +CREATE OR ALTER TRIGGER AGENTES_COMISIONES_UPDATE_REPL FOR AGENTES_COMISIONES +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'AGENTES_COMISIONES','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='AGENTES_COMISIONES'; + END +END +^ + + +/* Trigger: ALBARANES_CLIENTE_DELETE_REPL */ +CREATE OR ALTER TRIGGER ALBARANES_CLIENTE_DELETE_REPL FOR ALBARANES_CLIENTE +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'ALBARANES_CLIENTE','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='ALBARANES_CLIENTE'; + END +END +^ + + +/* Trigger: ALBARANES_CLIENTE_INSERT_REPL */ +CREATE OR ALTER TRIGGER ALBARANES_CLIENTE_INSERT_REPL FOR ALBARANES_CLIENTE +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'ALBARANES_CLIENTE','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='ALBARANES_CLIENTE'; + END +END +^ + + +/* Trigger: ALBARANES_CLIENTE_UPDATE_REPL */ +CREATE OR ALTER TRIGGER ALBARANES_CLIENTE_UPDATE_REPL FOR ALBARANES_CLIENTE +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'ALBARANES_CLIENTE','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='ALBARANES_CLIENTE'; + END +END +^ + + +/* Trigger: ALBARANES_CLI_DET_DELETE_REPL */ +CREATE OR ALTER TRIGGER ALBARANES_CLI_DET_DELETE_REPL FOR ALBARANES_CLIENTE_DETALLES +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'ALBARANES_CLIENTE_DETALLES','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='ALBARANES_CLIENTE_DETALLES'; + END +END +^ + + +/* Trigger: ALBARANES_CLI_DET_INSERT_REPL */ +CREATE OR ALTER TRIGGER ALBARANES_CLI_DET_INSERT_REPL FOR ALBARANES_CLIENTE_DETALLES +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'ALBARANES_CLIENTE_DETALLES','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='ALBARANES_CLIENTE_DETALLES'; + END +END +^ + + +/* Trigger: ALBARANES_CLI_DET_UPDATE_REPL */ +CREATE OR ALTER TRIGGER ALBARANES_CLI_DET_UPDATE_REPL FOR ALBARANES_CLIENTE_DETALLES +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'ALBARANES_CLIENTE_DETALLES','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='ALBARANES_CLIENTE_DETALLES'; + END +END +^ + + +/* Trigger: ALBARANES_PROVEEDOR_DELETE_REPL */ +CREATE OR ALTER TRIGGER ALBARANES_PROVEEDOR_DELETE_REPL FOR ALBARANES_PROVEEDOR +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'ALBARANES_PROVEEDOR','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='ALBARANES_PROVEEDOR'; + END +END +^ + + +/* Trigger: ALBARANES_PROVEEDOR_INSERT_REPL */ +CREATE OR ALTER TRIGGER ALBARANES_PROVEEDOR_INSERT_REPL FOR ALBARANES_PROVEEDOR +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'ALBARANES_PROVEEDOR','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='ALBARANES_PROVEEDOR'; + END +END +^ + + +/* Trigger: ALBARANES_PROVEEDOR_UPDATE_REPL */ +CREATE OR ALTER TRIGGER ALBARANES_PROVEEDOR_UPDATE_REPL FOR ALBARANES_PROVEEDOR +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'ALBARANES_PROVEEDOR','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='ALBARANES_PROVEEDOR'; + END +END +^ + + +/* Trigger: ALBARANES_PROV_DET_DELETE_REPL */ +CREATE OR ALTER TRIGGER ALBARANES_PROV_DET_DELETE_REPL FOR ALBARANES_PROVEEDOR_DETALLES +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'ALBARANES_PROVEEDOR_DETALLES','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='ALBARANES_PROVEEDOR_DETALLES'; + END +END +^ + + +/* Trigger: ALBARANES_PROV_DET_INSERT_REPL */ +CREATE OR ALTER TRIGGER ALBARANES_PROV_DET_INSERT_REPL FOR ALBARANES_PROVEEDOR_DETALLES +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'ALBARANES_PROVEEDOR_DETALLES','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='ALBARANES_PROVEEDOR_DETALLES'; + END +END +^ + + +/* Trigger: ALBARANES_PROV_DET_UPDATE_REPL */ +CREATE OR ALTER TRIGGER ALBARANES_PROV_DET_UPDATE_REPL FOR ALBARANES_PROVEEDOR_DETALLES +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'ALBARANES_PROVEEDOR_DETALLES','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='ALBARANES_PROVEEDOR_DETALLES'; + END +END +^ + + +/* Trigger: ALMACENES_DELETE_REPL */ +CREATE OR ALTER TRIGGER ALMACENES_DELETE_REPL FOR ALMACENES +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'ALMACENES','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='ALMACENES'; + END +END +^ + + +/* Trigger: ALMACENES_INSERT_REPL */ +CREATE OR ALTER TRIGGER ALMACENES_INSERT_REPL FOR ALMACENES +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'ALMACENES','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='ALMACENES'; + END +END +^ + + +/* Trigger: ALMACENES_UPDATE_REPL */ +CREATE OR ALTER TRIGGER ALMACENES_UPDATE_REPL FOR ALMACENES +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'ALMACENES','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='ALMACENES'; + END +END +^ + + +/* Trigger: ARTICULOS_DELETE_REPL */ +CREATE OR ALTER TRIGGER ARTICULOS_DELETE_REPL FOR ARTICULOS +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'ARTICULOS','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='ARTICULOS'; + END +END +^ + + +/* Trigger: ARTICULOS_INSERT_REPL */ +CREATE OR ALTER TRIGGER ARTICULOS_INSERT_REPL FOR ARTICULOS +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'ARTICULOS','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='ARTICULOS'; + END +END +^ + + +/* Trigger: ARTICULOS_UPDATE_REPL */ +CREATE OR ALTER TRIGGER ARTICULOS_UPDATE_REPL FOR ARTICULOS +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'ARTICULOS','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='ARTICULOS'; + END +END +^ + + +/* Trigger: CATEGORIAS_DELETE_REPL */ +CREATE OR ALTER TRIGGER CATEGORIAS_DELETE_REPL FOR CATEGORIAS +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'CATEGORIAS','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CATEGORIAS'; + END +END +^ + + +/* Trigger: CATEGORIAS_INSERT_REPL */ +CREATE OR ALTER TRIGGER CATEGORIAS_INSERT_REPL FOR CATEGORIAS +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CATEGORIAS','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CATEGORIAS'; + END +END +^ + + +/* Trigger: CATEGORIAS_UPDATE_REPL */ +CREATE OR ALTER TRIGGER CATEGORIAS_UPDATE_REPL FOR CATEGORIAS +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CATEGORIAS','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CATEGORIAS'; + END +END +^ + + +/* Trigger: CLIENTES_DATOS_DELETE_REPL */ +CREATE OR ALTER TRIGGER CLIENTES_DATOS_DELETE_REPL FOR CLIENTES_DATOS +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID_CLIENTE,'CLIENTES_DATOS','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CLIENTES_DATOS'; + END +END +^ + + +/* Trigger: CLIENTES_DATOS_INSERT_REPL */ +CREATE OR ALTER TRIGGER CLIENTES_DATOS_INSERT_REPL FOR CLIENTES_DATOS +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID_CLIENTE,'CLIENTES_DATOS','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CLIENTES_DATOS'; + END +END +^ + + +/* Trigger: CLIENTES_DATOS_UPDATE_REPL */ +CREATE OR ALTER TRIGGER CLIENTES_DATOS_UPDATE_REPL FOR CLIENTES_DATOS +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID_CLIENTE,'CLIENTES_DATOS','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CLIENTES_DATOS'; + END +END +^ + + +/* Trigger: CLIENTES_DTOS_PROV_DELETE_REPL */ +CREATE OR ALTER TRIGGER CLIENTES_DTOS_PROV_DELETE_REPL FOR CLIENTES_DTOS_PROVEEDORES +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'CLIENTES_DTOS_PROVEEDORES','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CLIENTES_DTOS_PROVEEDORES'; + END +END +^ + + +/* Trigger: CLIENTES_DTOS_PROV_INSERT_REPL */ +CREATE OR ALTER TRIGGER CLIENTES_DTOS_PROV_INSERT_REPL FOR CLIENTES_DTOS_PROVEEDORES +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CLIENTES_DTOS_PROVEEDORES','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CLIENTES_DTOS_PROVEEDORES'; + END +END +^ + + +/* Trigger: CLIENTES_DTOS_PROV_UPDATE_REPL */ +CREATE OR ALTER TRIGGER CLIENTES_DTOS_PROV_UPDATE_REPL FOR CLIENTES_DTOS_PROVEEDORES +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CLIENTES_DTOS_PROVEEDORES','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CLIENTES_DTOS_PROVEEDORES'; + END +END +^ + + +/* Trigger: CLIENTES_GRUPOS_DELETE_REPL */ +CREATE OR ALTER TRIGGER CLIENTES_GRUPOS_DELETE_REPL FOR CLIENTES_GRUPOS +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'CLIENTES_GRUPOS','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CLIENTES_GRUPOS'; + END +END +^ + + +/* Trigger: CLIENTES_GRUPOS_INSERT_REPL */ +CREATE OR ALTER TRIGGER CLIENTES_GRUPOS_INSERT_REPL FOR CLIENTES_GRUPOS +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CLIENTES_GRUPOS','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CLIENTES_GRUPOS'; + END +END +^ + + +/* Trigger: CLIENTES_GRUPOS_UPDATE_REPL */ +CREATE OR ALTER TRIGGER CLIENTES_GRUPOS_UPDATE_REPL FOR CLIENTES_GRUPOS +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CLIENTES_GRUPOS','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CLIENTES_GRUPOS'; + END +END +^ + + +/* Trigger: CLIENTES_PROCED_DELETE_REPL */ +CREATE OR ALTER TRIGGER CLIENTES_PROCED_DELETE_REPL FOR CLIENTES_PROCEDENCIAS +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'CLIENTES_PROCEDENCIAS','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CLIENTES_PROCEDENCIAS'; + END +END +^ + + +/* Trigger: CLIENTES_PROCED_INSERT_REPL */ +CREATE OR ALTER TRIGGER CLIENTES_PROCED_INSERT_REPL FOR CLIENTES_PROCEDENCIAS +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CLIENTES_PROCEDENCIAS','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CLIENTES_PROCEDENCIAS'; + END +END +^ + + +/* Trigger: CLIENTES_PROCED_UPDATE_REPL */ +CREATE OR ALTER TRIGGER CLIENTES_PROCED_UPDATE_REPL FOR CLIENTES_PROCEDENCIAS +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CLIENTES_PROCEDENCIAS','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CLIENTES_PROCEDENCIAS'; + END +END +^ + + +/* Trigger: COMISIONES_LIQUID_DELETE_REPL */ +CREATE OR ALTER TRIGGER COMISIONES_LIQUID_DELETE_REPL FOR COMISIONES_LIQUIDADAS +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'COMISIONES_LIQUIDADAS','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='COMISIONES_LIQUIDADAS'; + END +END +^ + + +/* Trigger: COMISIONES_LIQUID_INSERT_REPL */ +CREATE OR ALTER TRIGGER COMISIONES_LIQUID_INSERT_REPL FOR COMISIONES_LIQUIDADAS +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'COMISIONES_LIQUIDADAS','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='COMISIONES_LIQUIDADAS'; + END +END +^ + + +/* Trigger: COMISIONES_LIQUID_UPDATE_REPL */ +CREATE OR ALTER TRIGGER COMISIONES_LIQUID_UPDATE_REPL FOR COMISIONES_LIQUIDADAS +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'COMISIONES_LIQUIDADAS','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='COMISIONES_LIQUIDADAS'; + END +END +^ + + +/* Trigger: CONFIGURACION_DELETE_REPL */ +CREATE OR ALTER TRIGGER CONFIGURACION_DELETE_REPL FOR CONFIGURACION +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'CONFIGURACION','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONFIGURACION'; + END +END +^ + + +/* Trigger: CONFIGURACION_INSERT_REPL */ +CREATE OR ALTER TRIGGER CONFIGURACION_INSERT_REPL FOR CONFIGURACION +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONFIGURACION','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONFIGURACION'; + END +END +^ + + +/* Trigger: CONFIGURACION_UPDATE_REPL */ +CREATE OR ALTER TRIGGER CONFIGURACION_UPDATE_REPL FOR CONFIGURACION +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONFIGURACION','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONFIGURACION'; + END +END +^ + + +/* Trigger: CONTACTOS_CAT_DELETE_REPL */ +CREATE OR ALTER TRIGGER CONTACTOS_CAT_DELETE_REPL FOR CONTACTOS_CATEGORIAS +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID_CONTACTO,'CONTACTOS_CATEGORIAS','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONTACTOS_CATEGORIAS'; + END +END +^ + + +/* Trigger: CONTACTOS_CAT_INSERT_REPL */ +CREATE OR ALTER TRIGGER CONTACTOS_CAT_INSERT_REPL FOR CONTACTOS_CATEGORIAS +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID_CONTACTO,'CONTACTOS_CATEGORIAS','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONTACTOS_CATEGORIAS'; + END +END +^ + + +/* Trigger: CONTACTOS_CAT_UPDATE_REPL */ +CREATE OR ALTER TRIGGER CONTACTOS_CAT_UPDATE_REPL FOR CONTACTOS_CATEGORIAS +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID_CONTACTO,'CONTACTOS_CATEGORIAS','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONTACTOS_CATEGORIAS'; + END +END +^ + + +/* Trigger: CONTACTOS_DATOS_PER_DEL_REPL */ +CREATE OR ALTER TRIGGER CONTACTOS_DATOS_PER_DEL_REPL FOR CONTACTOS_DATOS_PERSONAL +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'CONTACTOS_DATOS_PERSONAL','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONTACTOS_DATOS_PERSONAL'; + END +END +^ + + +/* Trigger: CONTACTOS_DATOS_PER_INS_REPL */ +CREATE OR ALTER TRIGGER CONTACTOS_DATOS_PER_INS_REPL FOR CONTACTOS_DATOS_PERSONAL +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONTACTOS_DATOS_PERSONAL','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONTACTOS_DATOS_PERSONAL'; + END +END +^ + + +/* Trigger: CONTACTOS_DATOS_PER_UPD_REPL */ +CREATE OR ALTER TRIGGER CONTACTOS_DATOS_PER_UPD_REPL FOR CONTACTOS_DATOS_PERSONAL +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONTACTOS_DATOS_PERSONAL','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONTACTOS_DATOS_PERSONAL'; + END +END +^ + + +/* Trigger: CONTACTOS_DAT_BAN_DELETE_REPL */ +CREATE OR ALTER TRIGGER CONTACTOS_DAT_BAN_DELETE_REPL FOR CONTACTOS_DATOS_BANCO +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'CONTACTOS_DATOS_BANCO','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONTACTOS_DATOS_BANCO'; + END +END +^ + + +/* Trigger: CONTACTOS_DAT_BAN_INSERT_REPL */ +CREATE OR ALTER TRIGGER CONTACTOS_DAT_BAN_INSERT_REPL FOR CONTACTOS_DATOS_BANCO +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONTACTOS_DATOS_BANCO','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONTACTOS_DATOS_BANCO'; + END +END +^ + + +/* Trigger: CONTACTOS_DAT_BAN_UPDATE_REPL */ +CREATE OR ALTER TRIGGER CONTACTOS_DAT_BAN_UPDATE_REPL FOR CONTACTOS_DATOS_BANCO +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONTACTOS_DATOS_BANCO','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONTACTOS_DATOS_BANCO'; + END +END +^ + + +/* Trigger: CONTACTOS_DELETE_REPL */ +CREATE OR ALTER TRIGGER CONTACTOS_DELETE_REPL FOR CONTACTOS +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'CONTACTOS','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONTACTOS'; + END +END +^ + + +/* Trigger: CONTACTOS_DIR_DELETE_REPL */ +CREATE OR ALTER TRIGGER CONTACTOS_DIR_DELETE_REPL FOR CONTACTOS_DIRECCIONES +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'CONTACTOS_DIRECCIONES','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONTACTOS_DIRECCIONES'; + END +END +^ + + +/* Trigger: CONTACTOS_DIR_INSERT_REPL */ +CREATE OR ALTER TRIGGER CONTACTOS_DIR_INSERT_REPL FOR CONTACTOS_DIRECCIONES +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONTACTOS_DIRECCIONES','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONTACTOS_DIRECCIONES'; + END +END +^ + + +/* Trigger: CONTACTOS_DIR_UPDATE_REPL */ +CREATE OR ALTER TRIGGER CONTACTOS_DIR_UPDATE_REPL FOR CONTACTOS_DIRECCIONES +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONTACTOS_DIRECCIONES','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONTACTOS_DIRECCIONES'; + END +END +^ + + +/* Trigger: CONTACTOS_INSERT_REPL */ +CREATE OR ALTER TRIGGER CONTACTOS_INSERT_REPL FOR CONTACTOS +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONTACTOS','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONTACTOS'; + END +END +^ + + +/* Trigger: CONTACTOS_UPDATE_REPL */ +CREATE OR ALTER TRIGGER CONTACTOS_UPDATE_REPL FOR CONTACTOS +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONTACTOS','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONTACTOS'; + END +END +^ + + +/* Trigger: CONT_APUNTES_DELETE_REPL */ +CREATE OR ALTER TRIGGER CONT_APUNTES_DELETE_REPL FOR CONT_APUNTES +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'CONT_APUNTES','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONT_APUNTES'; + END +END +^ + + +/* Trigger: CONT_APUNTES_INSERT_REPL */ +CREATE OR ALTER TRIGGER CONT_APUNTES_INSERT_REPL FOR CONT_APUNTES +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONT_APUNTES','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONT_APUNTES'; + END +END +^ + + +/* Trigger: CONT_APUNTES_UPDATE_REPL */ +CREATE OR ALTER TRIGGER CONT_APUNTES_UPDATE_REPL FOR CONT_APUNTES +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONT_APUNTES','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONT_APUNTES'; + END +END +^ + + +/* Trigger: CONT_ASIENTOS_DELETE_REPL */ +CREATE OR ALTER TRIGGER CONT_ASIENTOS_DELETE_REPL FOR CONT_ASIENTOS +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'CONT_ASIENTOS','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONT_ASIENTOS'; + END +END +^ + + +/* Trigger: CONT_ASIENTOS_INSERT_REPL */ +CREATE OR ALTER TRIGGER CONT_ASIENTOS_INSERT_REPL FOR CONT_ASIENTOS +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONT_ASIENTOS','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONT_ASIENTOS'; + END +END +^ + + +/* Trigger: CONT_ASIENTOS_UPDATE_REPL */ +CREATE OR ALTER TRIGGER CONT_ASIENTOS_UPDATE_REPL FOR CONT_ASIENTOS +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONT_ASIENTOS','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONT_ASIENTOS'; + END +END +^ + + +/* Trigger: CONT_BALANCES_DELETE_REPL */ +CREATE OR ALTER TRIGGER CONT_BALANCES_DELETE_REPL FOR CONT_BALANCES +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'CONT_BALANCES','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONT_BALANCES'; + END +END +^ + + +/* Trigger: CONT_BALANCES_INSERT_REPL */ +CREATE OR ALTER TRIGGER CONT_BALANCES_INSERT_REPL FOR CONT_BALANCES +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONT_BALANCES','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONT_BALANCES'; + END +END +^ + + +/* Trigger: CONT_BALANCES_UPDATE_REPL */ +CREATE OR ALTER TRIGGER CONT_BALANCES_UPDATE_REPL FOR CONT_BALANCES +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONT_BALANCES','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONT_BALANCES'; + END +END +^ + + +/* Trigger: CONT_CUENTAS_DELETE_REPL */ +CREATE OR ALTER TRIGGER CONT_CUENTAS_DELETE_REPL FOR CONT_CUENTAS +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'CONT_CUENTAS','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONT_CUENTAS'; + END +END +^ + + +/* Trigger: CONT_CUENTAS_ESP_DELETE_REPL */ +CREATE OR ALTER TRIGGER CONT_CUENTAS_ESP_DELETE_REPL FOR CONT_CUENTAS_ESPECIALES +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'CONT_CUENTAS_ESPECIALES','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONT_CUENTAS_ESPECIALES'; + END +END +^ + + +/* Trigger: CONT_CUENTAS_ESP_INSERT_REPL */ +CREATE OR ALTER TRIGGER CONT_CUENTAS_ESP_INSERT_REPL FOR CONT_CUENTAS_ESPECIALES +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONT_CUENTAS_ESPECIALES','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONT_CUENTAS_ESPECIALES'; + END +END +^ + + +/* Trigger: CONT_CUENTAS_ESP_UPDATE_REPL */ +CREATE OR ALTER TRIGGER CONT_CUENTAS_ESP_UPDATE_REPL FOR CONT_CUENTAS_ESPECIALES +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONT_CUENTAS_ESPECIALES','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONT_CUENTAS_ESPECIALES'; + END +END +^ + + +/* Trigger: CONT_CUENTAS_INSERT_REPL */ +CREATE OR ALTER TRIGGER CONT_CUENTAS_INSERT_REPL FOR CONT_CUENTAS +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONT_CUENTAS','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONT_CUENTAS'; + END +END +^ + + +/* Trigger: CONT_CUENTAS_UPDATE_REPL */ +CREATE OR ALTER TRIGGER CONT_CUENTAS_UPDATE_REPL FOR CONT_CUENTAS +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONT_CUENTAS','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONT_CUENTAS'; + END +END +^ + + +/* Trigger: CONT_EJERCICIOS_DELETE_REPL */ +CREATE OR ALTER TRIGGER CONT_EJERCICIOS_DELETE_REPL FOR CONT_EJERCICIOS +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'CONT_EJERCICIOS','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONT_EJERCICIOS'; + END +END +^ + + +/* Trigger: CONT_EJERCICIOS_INSERT_REPL */ +CREATE OR ALTER TRIGGER CONT_EJERCICIOS_INSERT_REPL FOR CONT_EJERCICIOS +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONT_EJERCICIOS','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONT_EJERCICIOS'; + END +END +^ + + +/* Trigger: CONT_EJERCICIOS_UPDATE_REPL */ +CREATE OR ALTER TRIGGER CONT_EJERCICIOS_UPDATE_REPL FOR CONT_EJERCICIOS +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONT_EJERCICIOS','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONT_EJERCICIOS'; + END +END +^ + + +/* Trigger: CONT_EPIGRAFES_DELETE_REPL */ +CREATE OR ALTER TRIGGER CONT_EPIGRAFES_DELETE_REPL FOR CONT_EPIGRAFES +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'CONT_EPIGRAFES','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONT_EPIGRAFES'; + END +END +^ + + +/* Trigger: CONT_EPIGRAFES_INSERT_REPL */ +CREATE OR ALTER TRIGGER CONT_EPIGRAFES_INSERT_REPL FOR CONT_EPIGRAFES +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONT_EPIGRAFES','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONT_EPIGRAFES'; + END +END +^ + + +/* Trigger: CONT_EPIGRAFES_UPDATE_REPL */ +CREATE OR ALTER TRIGGER CONT_EPIGRAFES_UPDATE_REPL FOR CONT_EPIGRAFES +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONT_EPIGRAFES','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONT_EPIGRAFES'; + END +END +^ + + +/* Trigger: CONT_SUBCUENTAS_DELETE_REPL */ +CREATE OR ALTER TRIGGER CONT_SUBCUENTAS_DELETE_REPL FOR CONT_SUBCUENTAS +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'CONT_SUBCUENTAS','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONT_SUBCUENTAS'; + END +END +^ + + +/* Trigger: CONT_SUBCUENTAS_INSERT_REPL */ +CREATE OR ALTER TRIGGER CONT_SUBCUENTAS_INSERT_REPL FOR CONT_SUBCUENTAS +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONT_SUBCUENTAS','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONT_SUBCUENTAS'; + END +END +^ + + +/* Trigger: CONT_SUBCUENTAS_UPDATE_REPL */ +CREATE OR ALTER TRIGGER CONT_SUBCUENTAS_UPDATE_REPL FOR CONT_SUBCUENTAS +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONT_SUBCUENTAS','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONT_SUBCUENTAS'; + END +END +^ + + +/* Trigger: EMPRESAS_CONTACTOS_DELETE_REPL */ +CREATE OR ALTER TRIGGER EMPRESAS_CONTACTOS_DELETE_REPL FOR EMPRESAS_CONTACTOS +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'EMPRESAS_CONTACTOS','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='EMPRESAS_CONTACTOS'; + END +END +^ + + +/* Trigger: EMPRESAS_CONTACTOS_INSERT_REPL */ +CREATE OR ALTER TRIGGER EMPRESAS_CONTACTOS_INSERT_REPL FOR EMPRESAS_CONTACTOS +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'EMPRESAS_CONTACTOS','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='EMPRESAS_CONTACTOS'; + END +END +^ + + +/* Trigger: EMPRESAS_CONTACTOS_UPDATE_REPL */ +CREATE OR ALTER TRIGGER EMPRESAS_CONTACTOS_UPDATE_REPL FOR EMPRESAS_CONTACTOS +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'EMPRESAS_CONTACTOS','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='EMPRESAS_CONTACTOS'; + END +END +^ + + +/* Trigger: EMPRESAS_DAT_BAN_DELETE_REPL */ +CREATE OR ALTER TRIGGER EMPRESAS_DAT_BAN_DELETE_REPL FOR EMPRESAS_DATOS_BANCO +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'EMPRESAS_DATOS_BANCO','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='EMPRESAS_DATOS_BANCO'; + END +END +^ + + +/* Trigger: EMPRESAS_DAT_BAN_INSERT_REPL */ +CREATE OR ALTER TRIGGER EMPRESAS_DAT_BAN_INSERT_REPL FOR EMPRESAS_DATOS_BANCO +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'EMPRESAS_DATOS_BANCO','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='EMPRESAS_DATOS_BANCO'; + END +END +^ + + +/* Trigger: EMPRESAS_DAT_BAN_UPDATE_REPL */ +CREATE OR ALTER TRIGGER EMPRESAS_DAT_BAN_UPDATE_REPL FOR EMPRESAS_DATOS_BANCO +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'EMPRESAS_DATOS_BANCO','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='EMPRESAS_DATOS_BANCO'; + END +END +^ + + +/* Trigger: EMPRESAS_DELETE_REPL */ +CREATE OR ALTER TRIGGER EMPRESAS_DELETE_REPL FOR EMPRESAS +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'EMPRESAS','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='EMPRESAS'; + END +END +^ + + +/* Trigger: EMPRESAS_INSERT_REPL */ +CREATE OR ALTER TRIGGER EMPRESAS_INSERT_REPL FOR EMPRESAS +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'EMPRESAS','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='EMPRESAS'; + END +END +^ + + +/* Trigger: EMPRESAS_TIENDAS_DELETE_REPL */ +CREATE OR ALTER TRIGGER EMPRESAS_TIENDAS_DELETE_REPL FOR EMPRESAS_TIENDAS +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'EMPRESAS_TIENDAS','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='EMPRESAS_TIENDAS'; + END +END +^ + + +/* Trigger: EMPRESAS_TIENDAS_INSERT_REPL */ +CREATE OR ALTER TRIGGER EMPRESAS_TIENDAS_INSERT_REPL FOR EMPRESAS_TIENDAS +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'EMPRESAS_TIENDAS','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='EMPRESAS_TIENDAS'; + END +END +^ + + +/* Trigger: EMPRESAS_TIENDAS_UPDATE_REPL */ +CREATE OR ALTER TRIGGER EMPRESAS_TIENDAS_UPDATE_REPL FOR EMPRESAS_TIENDAS +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'EMPRESAS_TIENDAS','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='EMPRESAS_TIENDAS'; + END +END +^ + + +/* Trigger: EMPRESAS_UPDATE_REPL */ +CREATE OR ALTER TRIGGER EMPRESAS_UPDATE_REPL FOR EMPRESAS +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'EMPRESAS','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='EMPRESAS'; + END +END +^ + + +/* Trigger: EMPRESAS_USUARIOS_DELETE_REPL */ +CREATE OR ALTER TRIGGER EMPRESAS_USUARIOS_DELETE_REPL FOR EMPRESAS_USUARIOS +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'EMPRESAS_USUARIOS','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='EMPRESAS_USUARIOS'; + END +END +^ + + +/* Trigger: EMPRESAS_USUARIOS_INSERT_REPL */ +CREATE OR ALTER TRIGGER EMPRESAS_USUARIOS_INSERT_REPL FOR EMPRESAS_USUARIOS +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'EMPRESAS_USUARIOS','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='EMPRESAS_USUARIOS'; + END +END +^ + + +/* Trigger: EMPRESAS_USUARIOS_UPDATE_REPL */ +CREATE OR ALTER TRIGGER EMPRESAS_USUARIOS_UPDATE_REPL FOR EMPRESAS_USUARIOS +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'EMPRESAS_USUARIOS','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='EMPRESAS_USUARIOS'; + END +END +^ + + +/* Trigger: FACTURAS_CLIENTE_DELETE_REPL */ +CREATE OR ALTER TRIGGER FACTURAS_CLIENTE_DELETE_REPL FOR FACTURAS_CLIENTE +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'FACTURAS_CLIENTE','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='FACTURAS_CLIENTE'; + END +END +^ + + +/* Trigger: FACTURAS_CLIENTE_INSERT_REPL */ +CREATE OR ALTER TRIGGER FACTURAS_CLIENTE_INSERT_REPL FOR FACTURAS_CLIENTE +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'FACTURAS_CLIENTE','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='FACTURAS_CLIENTE'; + END +END +^ + + +/* Trigger: FACTURAS_CLIENTE_UPDATE_REPL */ +CREATE OR ALTER TRIGGER FACTURAS_CLIENTE_UPDATE_REPL FOR FACTURAS_CLIENTE +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'FACTURAS_CLIENTE','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='FACTURAS_CLIENTE'; + END +END +^ + + +/* Trigger: FACTURAS_CLI_DET_DELETE_REPL */ +CREATE OR ALTER TRIGGER FACTURAS_CLI_DET_DELETE_REPL FOR FACTURAS_CLIENTE_DETALLES +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'FACTURAS_CLIENTE_DETALLES','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='FACTURAS_CLIENTE_DETALLES'; + END +END +^ + + +/* Trigger: FACTURAS_CLI_DET_INSERT_REPL */ +CREATE OR ALTER TRIGGER FACTURAS_CLI_DET_INSERT_REPL FOR FACTURAS_CLIENTE_DETALLES +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'FACTURAS_CLIENTE_DETALLES','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='FACTURAS_CLIENTE_DETALLES'; + END +END +^ + + +/* Trigger: FACTURAS_CLI_DET_UPDATE_REPL */ +CREATE OR ALTER TRIGGER FACTURAS_CLI_DET_UPDATE_REPL FOR FACTURAS_CLIENTE_DETALLES +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'FACTURAS_CLIENTE_DETALLES','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='FACTURAS_CLIENTE_DETALLES'; + END +END +^ + + +/* Trigger: FACTURAS_PROVEEDOR_DELETE_REPL */ +CREATE OR ALTER TRIGGER FACTURAS_PROVEEDOR_DELETE_REPL FOR FACTURAS_PROVEEDOR +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'FACTURAS_PROVEEDOR','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='FACTURAS_PROVEEDOR'; + END +END +^ + + +/* Trigger: FACTURAS_PROVEEDOR_INSERT_REPL */ +CREATE OR ALTER TRIGGER FACTURAS_PROVEEDOR_INSERT_REPL FOR FACTURAS_PROVEEDOR +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'FACTURAS_PROVEEDOR','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='FACTURAS_PROVEEDOR'; + END +END +^ + + +/* Trigger: FACTURAS_PROVEEDOR_UPDATE_REPL */ +CREATE OR ALTER TRIGGER FACTURAS_PROVEEDOR_UPDATE_REPL FOR FACTURAS_PROVEEDOR +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'FACTURAS_PROVEEDOR','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='FACTURAS_PROVEEDOR'; + END +END +^ + + +/* Trigger: FACTURAS_PROV_DET_DELETE_REPL */ +CREATE OR ALTER TRIGGER FACTURAS_PROV_DET_DELETE_REPL FOR FACTURAS_PROVEEDOR_DETALLES +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'FACTURAS_PROVEEDOR_DETALLES','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='FACTURAS_PROVEEDOR_DETALLES'; + END +END +^ + + +/* Trigger: FACTURAS_PROV_DET_INSERT_REPL */ +CREATE OR ALTER TRIGGER FACTURAS_PROV_DET_INSERT_REPL FOR FACTURAS_PROVEEDOR_DETALLES +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'FACTURAS_PROVEEDOR_DETALLES','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='FACTURAS_PROVEEDOR_DETALLES'; + END +END +^ + + +/* Trigger: FACTURAS_PROV_DET_UPDATE_REPL */ +CREATE OR ALTER TRIGGER FACTURAS_PROV_DET_UPDATE_REPL FOR FACTURAS_PROVEEDOR_DETALLES +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'FACTURAS_PROVEEDOR_DETALLES','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='FACTURAS_PROVEEDOR_DETALLES'; + END +END +^ + + +/* Trigger: FAMILIAS_DELETE_REPL */ +CREATE OR ALTER TRIGGER FAMILIAS_DELETE_REPL FOR FAMILIAS +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'FAMILIAS','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='FAMILIAS'; + END +END +^ + + +/* Trigger: FAMILIAS_INSERT_REPL */ +CREATE OR ALTER TRIGGER FAMILIAS_INSERT_REPL FOR FAMILIAS +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'FAMILIAS','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='FAMILIAS'; + END +END +^ + + +/* Trigger: FAMILIAS_UPDATE_REPL */ +CREATE OR ALTER TRIGGER FAMILIAS_UPDATE_REPL FOR FAMILIAS +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'FAMILIAS','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='FAMILIAS'; + END +END +^ + + +/* Trigger: FORMAS_PAGO_DELETE_REPL */ +CREATE OR ALTER TRIGGER FORMAS_PAGO_DELETE_REPL FOR FORMAS_PAGO +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'FORMAS_PAGO','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='FORMAS_PAGO'; + END +END +^ + + +/* Trigger: FORMAS_PAGO_INSERT_REPL */ +CREATE OR ALTER TRIGGER FORMAS_PAGO_INSERT_REPL FOR FORMAS_PAGO +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'FORMAS_PAGO','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='FORMAS_PAGO'; + END +END +^ + + +/* Trigger: FORMAS_PAGO_PLAZOS_DELETE_REPL */ +CREATE OR ALTER TRIGGER FORMAS_PAGO_PLAZOS_DELETE_REPL FOR FORMAS_PAGO_PLAZOS +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'FORMAS_PAGO_PLAZOS','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='FORMAS_PAGO_PLAZOS'; + END +END +^ + + +/* Trigger: FORMAS_PAGO_PLAZOS_INSERT_REPL */ +CREATE OR ALTER TRIGGER FORMAS_PAGO_PLAZOS_INSERT_REPL FOR FORMAS_PAGO_PLAZOS +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'FORMAS_PAGO_PLAZOS','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='FORMAS_PAGO_PLAZOS'; + END +END +^ + + +/* Trigger: FORMAS_PAGO_PLAZOS_UPDATE_REPL */ +CREATE OR ALTER TRIGGER FORMAS_PAGO_PLAZOS_UPDATE_REPL FOR FORMAS_PAGO_PLAZOS +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'FORMAS_PAGO_PLAZOS','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='FORMAS_PAGO_PLAZOS'; + END +END +^ + + +/* Trigger: FORMAS_PAGO_UPDATE_REPL */ +CREATE OR ALTER TRIGGER FORMAS_PAGO_UPDATE_REPL FOR FORMAS_PAGO +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'FORMAS_PAGO','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='FORMAS_PAGO'; + END +END +^ + + +/* Trigger: INFORMES_DELETE_REPL */ +CREATE OR ALTER TRIGGER INFORMES_DELETE_REPL FOR INFORMES +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'INFORMES','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='INFORMES'; + END +END +^ + + +/* Trigger: INFORMES_INSERT_REPL */ +CREATE OR ALTER TRIGGER INFORMES_INSERT_REPL FOR INFORMES +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'INFORMES','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='INFORMES'; + END +END +^ + + +/* Trigger: INFORMES_UPDATE_REPL */ +CREATE OR ALTER TRIGGER INFORMES_UPDATE_REPL FOR INFORMES +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'INFORMES','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='INFORMES'; + END +END +^ + + +/* Trigger: INSERT_CHANGES */ +CREATE OR ALTER TRIGGER INSERT_CHANGES FOR CHANGES +INACTIVE BEFORE INSERT POSITION 0 +AS +BEGIN + NEW.CHANGECODE = GEN_ID( GEN_CHANGECODE, 1 ); +END +^ + + +/* Trigger: MOVIMIENTOS_DELETE_REPL */ +CREATE OR ALTER TRIGGER MOVIMIENTOS_DELETE_REPL FOR MOVIMIENTOS +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'MOVIMIENTOS','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='MOVIMIENTOS'; + END +END +^ + + +/* Trigger: MOVIMIENTOS_INSERT_REPL */ +CREATE OR ALTER TRIGGER MOVIMIENTOS_INSERT_REPL FOR MOVIMIENTOS +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'MOVIMIENTOS','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='MOVIMIENTOS'; + END +END +^ + + +/* Trigger: MOVIMIENTOS_UPDATE_REPL */ +CREATE OR ALTER TRIGGER MOVIMIENTOS_UPDATE_REPL FOR MOVIMIENTOS +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'MOVIMIENTOS','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='MOVIMIENTOS'; + END +END +^ + + +/* Trigger: PAGOS_CLIENTE_DELETE_REPL */ +CREATE OR ALTER TRIGGER PAGOS_CLIENTE_DELETE_REPL FOR PAGOS_CLIENTE +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'PAGOS_CLIENTE','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='PAGOS_CLIENTE'; + END +END +^ + + +/* Trigger: PAGOS_CLIENTE_INSERT_REPL */ +CREATE OR ALTER TRIGGER PAGOS_CLIENTE_INSERT_REPL FOR PAGOS_CLIENTE +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'PAGOS_CLIENTE','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='PAGOS_CLIENTE'; + END +END +^ + + +/* Trigger: PAGOS_CLIENTE_UPDATE_REPL */ +CREATE OR ALTER TRIGGER PAGOS_CLIENTE_UPDATE_REPL FOR PAGOS_CLIENTE +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'PAGOS_CLIENTE','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='PAGOS_CLIENTE'; + END +END +^ + + +/* Trigger: PAGOS_PROVEEDOR_DELETE_REPL */ +CREATE OR ALTER TRIGGER PAGOS_PROVEEDOR_DELETE_REPL FOR PAGOS_PROVEEDOR +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'PAGOS_PROVEEDOR','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='PAGOS_PROVEEDOR'; + END +END +^ + + +/* Trigger: PAGOS_PROVEEDOR_INSERT_REPL */ +CREATE OR ALTER TRIGGER PAGOS_PROVEEDOR_INSERT_REPL FOR PAGOS_PROVEEDOR +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'PAGOS_PROVEEDOR','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='PAGOS_PROVEEDOR'; + END +END +^ + + +/* Trigger: PAGOS_PROVEEDOR_UPDATE_REPL */ +CREATE OR ALTER TRIGGER PAGOS_PROVEEDOR_UPDATE_REPL FOR PAGOS_PROVEEDOR +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'PAGOS_PROVEEDOR','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='PAGOS_PROVEEDOR'; + END +END +^ + + +/* Trigger: PEDIDOS_CLIENTE_DELETE_REPL */ +CREATE OR ALTER TRIGGER PEDIDOS_CLIENTE_DELETE_REPL FOR PEDIDOS_CLIENTE +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'PEDIDOS_CLIENTE','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='PEDIDOS_CLIENTE'; + END +END +^ + + +/* Trigger: PEDIDOS_CLIENTE_INSERT_REPL */ +CREATE OR ALTER TRIGGER PEDIDOS_CLIENTE_INSERT_REPL FOR PEDIDOS_CLIENTE +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'PEDIDOS_CLIENTE','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='PEDIDOS_CLIENTE'; + END +END +^ + + +/* Trigger: PEDIDOS_CLIENTE_UPDATE_REPL */ +CREATE OR ALTER TRIGGER PEDIDOS_CLIENTE_UPDATE_REPL FOR PEDIDOS_CLIENTE +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'PEDIDOS_CLIENTE','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='PEDIDOS_CLIENTE'; + END +END +^ + + +/* Trigger: PEDIDOS_CLI_DET_DELETE_REPL */ +CREATE OR ALTER TRIGGER PEDIDOS_CLI_DET_DELETE_REPL FOR PEDIDOS_CLIENTE_DETALLES +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'PEDIDOS_CLIENTE_DETALLES','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='PEDIDOS_CLIENTE_DETALLES'; + END +END +^ + + +/* Trigger: PEDIDOS_CLI_DET_INSERT_REPL */ +CREATE OR ALTER TRIGGER PEDIDOS_CLI_DET_INSERT_REPL FOR PEDIDOS_CLIENTE_DETALLES +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'PEDIDOS_CLIENTE_DETALLES','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='PEDIDOS_CLIENTE_DETALLES'; + END +END +^ + + +/* Trigger: PEDIDOS_CLI_DET_UPDATE_REPL */ +CREATE OR ALTER TRIGGER PEDIDOS_CLI_DET_UPDATE_REPL FOR PEDIDOS_CLIENTE_DETALLES +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'PEDIDOS_CLIENTE_DETALLES','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='PEDIDOS_CLIENTE_DETALLES'; + END +END +^ + + +/* Trigger: PEDIDOS_PROVEEDOR_DELETE_REPL */ +CREATE OR ALTER TRIGGER PEDIDOS_PROVEEDOR_DELETE_REPL FOR PEDIDOS_PROVEEDOR +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'PEDIDOS_PROVEEDOR','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='PEDIDOS_PROVEEDOR'; + END +END +^ + + +/* Trigger: PEDIDOS_PROVEEDOR_INSERT_REPL */ +CREATE OR ALTER TRIGGER PEDIDOS_PROVEEDOR_INSERT_REPL FOR PEDIDOS_PROVEEDOR +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'PEDIDOS_PROVEEDOR','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='PEDIDOS_PROVEEDOR'; + END +END +^ + + +/* Trigger: PEDIDOS_PROVEEDOR_UPDATE_REPL */ +CREATE OR ALTER TRIGGER PEDIDOS_PROVEEDOR_UPDATE_REPL FOR PEDIDOS_PROVEEDOR +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'PEDIDOS_PROVEEDOR','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='PEDIDOS_PROVEEDOR'; + END +END +^ + + +/* Trigger: PEDIDOS_PROV_DET_DELETE_REPL */ +CREATE OR ALTER TRIGGER PEDIDOS_PROV_DET_DELETE_REPL FOR PEDIDOS_PROVEEDOR_DETALLES +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'PEDIDOS_PROVEEDOR_DETALLES','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='PEDIDOS_PROVEEDOR_DETALLES'; + END +END +^ + + +/* Trigger: PEDIDOS_PROV_DET_INSERT_REPL */ +CREATE OR ALTER TRIGGER PEDIDOS_PROV_DET_INSERT_REPL FOR PEDIDOS_PROVEEDOR_DETALLES +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'PEDIDOS_PROVEEDOR_DETALLES','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='PEDIDOS_PROVEEDOR_DETALLES'; + END +END +^ + + +/* Trigger: PEDIDOS_PROV_DET_UPDATE_REPL */ +CREATE OR ALTER TRIGGER PEDIDOS_PROV_DET_UPDATE_REPL FOR PEDIDOS_PROVEEDOR_DETALLES +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'PEDIDOS_PROVEEDOR_DETALLES','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='PEDIDOS_PROVEEDOR_DETALLES'; + END +END +^ + + +/* Trigger: PROVEEDORES_DATOS_DELETE_REPL */ +CREATE OR ALTER TRIGGER PROVEEDORES_DATOS_DELETE_REPL FOR PROVEEDORES_DATOS +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID_PROVEEDOR,'PROVEEDORES_DATOS','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='PROVEEDORES_DATOS'; + END +END +^ + + +/* Trigger: PROVEEDORES_DATOS_INSERT_REPL */ +CREATE OR ALTER TRIGGER PROVEEDORES_DATOS_INSERT_REPL FOR PROVEEDORES_DATOS +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID_PROVEEDOR,'PROVEEDORES_DATOS','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='PROVEEDORES_DATOS'; + END +END +^ + + +/* Trigger: PROVEEDORES_DATOS_UPDATE_REPL */ +CREATE OR ALTER TRIGGER PROVEEDORES_DATOS_UPDATE_REPL FOR PROVEEDORES_DATOS +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID_PROVEEDOR,'PROVEEDORES_DATOS','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='PROVEEDORES_DATOS'; + END +END +^ + + +/* Trigger: PROVEEDORES_GRUPOS_DELETE_REPL */ +CREATE OR ALTER TRIGGER PROVEEDORES_GRUPOS_DELETE_REPL FOR PROVEEDORES_GRUPOS +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'PROVEEDORES_GRUPOS','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='PROVEEDORES_GRUPOS'; + END +END +^ + + +/* Trigger: PROVEEDORES_GRUPOS_INSERT_REPL */ +CREATE OR ALTER TRIGGER PROVEEDORES_GRUPOS_INSERT_REPL FOR PROVEEDORES_GRUPOS +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'PROVEEDORES_GRUPOS','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='PROVEEDORES_GRUPOS'; + END +END +^ + + +/* Trigger: PROVEEDORES_GRUPOS_UPDATE_REPL */ +CREATE OR ALTER TRIGGER PROVEEDORES_GRUPOS_UPDATE_REPL FOR PROVEEDORES_GRUPOS +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'PROVEEDORES_GRUPOS','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='PROVEEDORES_GRUPOS'; + END +END +^ + + +/* Trigger: RECIBOS_CLIENTE_DELETE_REPL */ +CREATE OR ALTER TRIGGER RECIBOS_CLIENTE_DELETE_REPL FOR RECIBOS_CLIENTE +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'RECIBOS_CLIENTE','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='RECIBOS_CLIENTE'; + END +END +^ + + +/* Trigger: RECIBOS_CLIENTE_INSERT_REPL */ +CREATE OR ALTER TRIGGER RECIBOS_CLIENTE_INSERT_REPL FOR RECIBOS_CLIENTE +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'RECIBOS_CLIENTE','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='RECIBOS_CLIENTE'; + END +END +^ + + +/* Trigger: RECIBOS_CLIENTE_UPDATE_REPL */ +CREATE OR ALTER TRIGGER RECIBOS_CLIENTE_UPDATE_REPL FOR RECIBOS_CLIENTE +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'RECIBOS_CLIENTE','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='RECIBOS_CLIENTE'; + END +END +^ + + +/* Trigger: RECIBOS_PROVEEDOR_DELETE_REPL */ +CREATE OR ALTER TRIGGER RECIBOS_PROVEEDOR_DELETE_REPL FOR RECIBOS_PROVEEDOR +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'RECIBOS_PROVEEDOR','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='RECIBOS_PROVEEDOR'; + END +END +^ + + +/* Trigger: RECIBOS_PROVEEDOR_INSERT_REPL */ +CREATE OR ALTER TRIGGER RECIBOS_PROVEEDOR_INSERT_REPL FOR RECIBOS_PROVEEDOR +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'RECIBOS_PROVEEDOR','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='RECIBOS_PROVEEDOR'; + END +END +^ + + +/* Trigger: RECIBOS_PROVEEDOR_UPDATE_REPL */ +CREATE OR ALTER TRIGGER RECIBOS_PROVEEDOR_UPDATE_REPL FOR RECIBOS_PROVEEDOR +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'RECIBOS_PROVEEDOR','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='RECIBOS_PROVEEDOR'; + END +END +^ + + +/* Trigger: REFERENCIAS_DELETE_REPL */ +CREATE OR ALTER TRIGGER REFERENCIAS_DELETE_REPL FOR REFERENCIAS +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'REFERENCIAS','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='REFERENCIAS'; + END +END +^ + + +/* Trigger: REFERENCIAS_INSERT_REPL */ +CREATE OR ALTER TRIGGER REFERENCIAS_INSERT_REPL FOR REFERENCIAS +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'REFERENCIAS','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='REFERENCIAS'; + END +END +^ + + +/* Trigger: REFERENCIAS_UPDATE_REPL */ +CREATE OR ALTER TRIGGER REFERENCIAS_UPDATE_REPL FOR REFERENCIAS +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'REFERENCIAS','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='REFERENCIAS'; + END +END +^ + + +/* Trigger: REMESAS_CLIENTE_DELETE_REPL */ +CREATE OR ALTER TRIGGER REMESAS_CLIENTE_DELETE_REPL FOR REMESAS_CLIENTE +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'REMESAS_CLIENTE','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='REMESAS_CLIENTE'; + END +END +^ + + +/* Trigger: REMESAS_CLIENTE_INSERT_REPL */ +CREATE OR ALTER TRIGGER REMESAS_CLIENTE_INSERT_REPL FOR REMESAS_CLIENTE +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'REMESAS_CLIENTE','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='REMESAS_CLIENTE'; + END +END +^ + + +/* Trigger: REMESAS_CLIENTE_UPDATE_REPL */ +CREATE OR ALTER TRIGGER REMESAS_CLIENTE_UPDATE_REPL FOR REMESAS_CLIENTE +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'REMESAS_CLIENTE','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='REMESAS_CLIENTE'; + END +END +^ + + +/* Trigger: REMESAS_PROVEEDOR_DELETE_REPL */ +CREATE OR ALTER TRIGGER REMESAS_PROVEEDOR_DELETE_REPL FOR REMESAS_PROVEEDOR +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'REMESAS_PROVEEDOR','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='REMESAS_PROVEEDOR'; + END +END +^ + + +/* Trigger: REMESAS_PROVEEDOR_INSERT_REPL */ +CREATE OR ALTER TRIGGER REMESAS_PROVEEDOR_INSERT_REPL FOR REMESAS_PROVEEDOR +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'REMESAS_PROVEEDOR','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='REMESAS_PROVEEDOR'; + END +END +^ + + +/* Trigger: REMESAS_PROVEEDOR_UPDATE_REPL */ +CREATE OR ALTER TRIGGER REMESAS_PROVEEDOR_UPDATE_REPL FOR REMESAS_PROVEEDOR +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'REMESAS_PROVEEDOR','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='REMESAS_PROVEEDOR'; + END +END +^ + + +/* Trigger: TIENDA_WEB_DELETE_REPL */ +CREATE OR ALTER TRIGGER TIENDA_WEB_DELETE_REPL FOR TIENDA_WEB +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'TIENDA_WEB','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='TIENDA_WEB'; + END +END +^ + + +/* Trigger: TIENDA_WEB_INSERT_REPL */ +CREATE OR ALTER TRIGGER TIENDA_WEB_INSERT_REPL FOR TIENDA_WEB +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'TIENDA_WEB','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='TIENDA_WEB'; + END +END +^ + + +/* Trigger: TIENDA_WEB_UPDATE_REPL */ +CREATE OR ALTER TRIGGER TIENDA_WEB_UPDATE_REPL FOR TIENDA_WEB +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'TIENDA_WEB','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='TIENDA_WEB'; + END +END +^ + + +/* Trigger: TIPOS_IVA_DELETE_REPL */ +CREATE OR ALTER TRIGGER TIPOS_IVA_DELETE_REPL FOR TIPOS_IVA +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'TIPOS_IVA','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='TIPOS_IVA'; + END +END +^ + + +/* Trigger: TIPOS_IVA_INSERT_REPL */ +CREATE OR ALTER TRIGGER TIPOS_IVA_INSERT_REPL FOR TIPOS_IVA +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'TIPOS_IVA','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='TIPOS_IVA'; + END +END +^ + + +/* Trigger: TIPOS_IVA_UPDATE_REPL */ +CREATE OR ALTER TRIGGER TIPOS_IVA_UPDATE_REPL FOR TIPOS_IVA +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'TIPOS_IVA','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='TIPOS_IVA'; + END +END +^ + + +/* Trigger: UNIDADES_MEDIDA_DELETE_REPL */ +CREATE OR ALTER TRIGGER UNIDADES_MEDIDA_DELETE_REPL FOR UNIDADES_MEDIDA +INACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'UNIDADES_MEDIDA','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='UNIDADES_MEDIDA'; + END +END +^ + + +/* Trigger: UNIDADES_MEDIDA_INSERT_REPL */ +CREATE OR ALTER TRIGGER UNIDADES_MEDIDA_INSERT_REPL FOR UNIDADES_MEDIDA +INACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'UNIDADES_MEDIDA','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='UNIDADES_MEDIDA'; + END +END +^ + + +/* Trigger: UNIDADES_MEDIDA_UPDATE_REPL */ +CREATE OR ALTER TRIGGER UNIDADES_MEDIDA_UPDATE_REPL FOR UNIDADES_MEDIDA +INACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'UNIDADES_MEDIDA','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='UNIDADES_MEDIDA'; + END +END +^ + + +SET TERM ; ^ + + + +/******************************************************************************/ +/*** Stored Procedures ***/ +/******************************************************************************/ + + +SET TERM ^ ; + +CREATE OR ALTER PROCEDURE PROC_CIERRE_APERTURA ( + ID_EJERCICIO_CIERRE INTEGER, + ID_EJERCICIO_APERTURA INTEGER) +AS +declare variable id_subcuenta_apertura integer; +declare variable id_subcuenta_cierre integer; +declare variable ref_subcuenta varchar(255); +declare variable subcuenta varchar(255); +declare variable num_orden integer; +declare variable diferencia numeric(11,2); +declare variable estado_ejercicio_cierre varchar(255); +declare variable estado_ejercicio_apertura varchar(255); +declare variable nombre_ejercicio_cierre varchar(255); +declare variable nombre_ejercicio_apertura varchar(255); +declare variable id_asiento_cierre integer; +declare variable id_asiento_apertura integer; +declare variable id_apunte_apertura integer; +declare variable id_apunte_cierre integer; +begin + /*Seleccionamos el ejercicio de cierre*/ + select ESTADO, NOMBRE, GEN_ID(gen_cont_asientos_id, 1) + from cont_ejercicios + where id = :id_ejercicio_cierre + into :estado_ejercicio_cierre, :nombre_ejercicio_cierre, :id_asiento_cierre; + + /*Seleccionamos el ejercicio de apertura*/ + select ESTADO, NOMBRE, GEN_ID(gen_cont_asientos_id, 1) + from cont_ejercicios + where id = :id_ejercicio_apertura + into :estado_ejercicio_apertura, :nombre_ejercicio_apertura, :id_asiento_apertura; + + /*Si los ejercicios no estan abiertos no hacemos nada*/ + if ((estado_ejercicio_cierre = 'ABIERTO') and (estado_ejercicio_apertura = 'ABIERTO')) then + begin + select COALESCE(max(V_CONT_DIARIO.ORDEN_ASIENTO),0) + 1 + from V_CONT_DIARIO + into :num_orden; + + /* Añadimos asiento de cierre*/ + insert into CONT_ASIENTOS (ID, FECHA_ASIENTO, ORDEN, TIPO) + values (:id_asiento_cierre, current_date, :num_orden, 'x'); + + num_orden = num_orden + 1; + /* Añadimos asiento de apertura*/ + insert into CONT_ASIENTOS (ID, FECHA_ASIENTO, ORDEN, TIPO) + values (:id_asiento_apertura, current_date, :num_orden, 'a'); + + num_orden = 1; + + /* Para cada cuenta descuadrada se inserta un apunte de cierre asociado al asiento creado anteriormente*/ + for select ID_SUBCUENTA, REF_SUBCUENTA, SUBCUENTA, SUM(COALESCE(DEBE,0))-SUM(COALESCE(HABER,0)) as DIFERENCIA, + GEN_ID(gen_cont_apuntes_id, 1), GEN_ID(gen_cont_apuntes_id, 1) + from v_cont_diario where (ID_EJERCICIO = :ID_EJERCICIO_CIERRE) + group by 1, 2, 3 + having (SUM(COALESCE(DEBE,0))-SUM(COALESCE(HABER,0))) <> 0 + into :id_subcuenta_cierre, :ref_subcuenta, :subcuenta, :diferencia, :id_apunte_cierre, :id_apunte_apertura do + begin + /*Buscamos la subcuenta equibalente en el ejericio de apertura*/ + select ID from cont_subcuentas + where REF_SUBCUENTA = :ref_subcuenta + and DESCRIPCION = :subcuenta + and ID_EJERCICIO = :id_ejercicio_apertura + into :id_subcuenta_apertura; + + if (diferencia > 0) then + begin + /*APUNTE DE CIERRE*/ + insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, HABER) + values (:id_apunte_cierre, :id_asiento_cierre, :id_subcuenta_cierre, :num_orden, -1, 'Asiento de cierre ' || :nombre_ejercicio_cierre, :diferencia); + + /*APUNTE DE APERTURA*/ + insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DEBE) + values (:id_apunte_apertura, :id_asiento_apertura, :id_subcuenta_apertura, :num_orden, -1, 'Asiento de apertura ' || :nombre_ejercicio_apertura, :diferencia); + end + else + begin + /*APUNTE DE CIERRE*/ + insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DEBE) + values (:id_apunte_cierre, :id_asiento_cierre, :id_subcuenta_cierre, :num_orden, -1, 'Asiento de cierre ' || :nombre_ejercicio_cierre, (:diferencia)*-1); + + /*APUNTE DE APERTURA*/ + insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, HABER) + values (:id_apunte_apertura, :id_asiento_apertura, :id_subcuenta_apertura, :num_orden, -1, 'Asiento de apertura ' || :nombre_ejercicio_apertura, (:diferencia)*-1); + end + num_orden = num_orden + 1; + end + + /*Finalmente cambiamos de estado los ejercicio cerrado*/ + update cont_ejercicios + set ESTADO = 'CERRADO' + where id = :id_ejercicio_cierre; + end + + suspend; +end^ + + +CREATE OR ALTER PROCEDURE PROC_DELETE_ASIENTO_FACTURA ( IDFACTURA INTEGER, TIPO VARCHAR(1)) AS @@ -4389,10 +7360,10 @@ begin WHERE ID = :IDASIENTO; suspend; -end -^ +end^ -ALTER PROCEDURE PROC_DELETE_ASIENTO_PAGO ( + +CREATE OR ALTER PROCEDURE PROC_DELETE_ASIENTO_PAGO ( IDPAGO INTEGER, TIPO VARCHAR(1)) AS @@ -4409,13 +7380,13 @@ begin WHERE ID = :IDASIENTO; suspend; -end -^ +end^ -ALTER PROCEDURE PROC_NEW_ASIENTO_FACTURA_CLI ( - idfactura integer, - id_subcuenta_venta integer) -as + +CREATE OR ALTER PROCEDURE PROC_NEW_ASIENTO_FACTURA_CLI ( + IDFACTURA INTEGER, + ID_SUBCUENTA_VENTA INTEGER) +AS declare variable ignorarcontabilidad integer; declare variable referenciafactura varchar(255); declare variable razon varchar(255); @@ -4565,13 +7536,13 @@ begin END END suspend; -end -^ +end^ -ALTER PROCEDURE PROC_NEW_ASIENTO_FACTURA_PROV ( - idfactura integer, - id_subcuenta_compra integer) -as + +CREATE OR ALTER PROCEDURE PROC_NEW_ASIENTO_FACTURA_PROV ( + IDFACTURA INTEGER, + ID_SUBCUENTA_COMPRA INTEGER) +AS declare variable ignorarcontabilidad integer; declare variable referenciafactura varchar(255); declare variable razon varchar(255); @@ -4721,13 +7692,13 @@ begin END END suspend; -end -^ +end^ -ALTER PROCEDURE PROC_NEW_ASIENTO_PAGO_CLI ( - idpago integer, - idsubcuentapago integer) -as + +CREATE OR ALTER PROCEDURE PROC_NEW_ASIENTO_PAGO_CLI ( + IDPAGO INTEGER, + IDSUBCUENTAPAGO INTEGER) +AS declare variable ignorarcontabilidad integer; declare variable referenciarecibo varchar(255); declare variable fechapago date; @@ -4827,13 +7798,13 @@ begin END suspend; -end -^ +end^ -ALTER PROCEDURE PROC_NEW_ASIENTO_PAGO_PROV ( - idpago integer, - idsubcuentapago integer) -as + +CREATE OR ALTER PROCEDURE PROC_NEW_ASIENTO_PAGO_PROV ( + IDPAGO INTEGER, + IDSUBCUENTAPAGO INTEGER) +AS declare variable ignorarcontabilidad integer; declare variable referenciarecibo varchar(255); declare variable fechapago date; @@ -4852,7 +7823,7 @@ begin /*BUSCAMOS EL PAGO PARA COMPROBAR SI HACER ASIENTO*/ SELECT PAGOS_PROVEEDOR.IGNORAR_CONTABILIDAD, RECIBOS_PROVEEDOR.ID_EMPRESA, RECIBOS_PROVEEDOR.ID_PROVEEDOR, RECIBOS_PROVEEDOR.REFERENCIA || ': ' || RECIBOS_PROVEEDOR.NOMBRE, - PAGOS_PROVEEDOR.FECHA_PAGO, PAGOS_PROVEEDOR.TIPO, + PAGOS_PROVEEDOR.FECHA_PAGO, PAGOS_PROVEEDOR.TIPO, PAGOS_PROVEEDOR.TIPO || ': ' || COALESCE(RECIBOS_PROVEEDOR.DESCRIPCION, 'No hay descripción'), RECIBOS_PROVEEDOR.IMPORTE FROM PAGOS_PROVEEDOR @@ -4932,10 +7903,10 @@ begin END suspend; -end -^ +end^ -ALTER PROCEDURE PROC_NEW_CUENTAS ( + +CREATE OR ALTER PROCEDURE PROC_NEW_CUENTAS ( ID_EJERCICIO_COPIA INTEGER, ID_EJERCICIO INTEGER, ID_EPIGRAFE_COPIA INTEGER, @@ -4977,10 +7948,10 @@ begin end end suspend; -end -^ +end^ -ALTER PROCEDURE PROC_NEW_EPIGRAFES ( + +CREATE OR ALTER PROCEDURE PROC_NEW_EPIGRAFES ( ID_EJERCICIO_COPIA INTEGER, ID_EJERCICIO INTEGER, ID_EPIGRAFE_COPIA INTEGER, @@ -5015,10 +7986,10 @@ begin execute procedure proc_new_cuentas :id_ejercicio_copia, :id_ejercicio, :id_epigrafe_copia, :id_epigrafe; suspend; -end -^ +end^ -ALTER PROCEDURE PROC_NEW_PGC ( + +CREATE OR ALTER PROCEDURE PROC_NEW_PGC ( ID_EJERCICIO_COPIA INTEGER, ID_EJERCICIO INTEGER) RETURNS ( @@ -5062,15 +8033,15 @@ begin end end suspend; -end -^ +end^ -ALTER PROCEDURE PROC_NEW_SUBCUENTAS ( - id_ejercicio_copia integer, - id_ejercicio integer, - id_cuenta_copia integer, - id_cuenta integer) -as + +CREATE OR ALTER PROCEDURE PROC_NEW_SUBCUENTAS ( + ID_EJERCICIO_COPIA INTEGER, + ID_EJERCICIO INTEGER, + ID_CUENTA_COPIA INTEGER, + ID_CUENTA INTEGER) +AS declare variable descripcion varchar(255); declare variable ref_subcuenta varchar(15); declare variable id_subcuenta integer; @@ -5101,133 +8072,24 @@ begin end end suspend; -end -^ +end^ -ALTER PROCEDURE PROC_SET_EJERCICIOS_NOACTIVOS ( - ID_EMPRESA INTEGER) + +CREATE OR ALTER PROCEDURE PROC_PRE_CON_CAPITULOS ( + AID INTEGER, + TIPO VARCHAR(15)) +RETURNS ( + ID INTEGER, + ID_PRE_CON INTEGER, + POSICION INTEGER, + TIPO_DETALLE VARCHAR(25), + CONCEPTO VARCHAR(2000), + IMPORTE_TOTAL NUMERIC(11,4), + VISIBLE SMALLINT, + TIPO_ARTICULO VARCHAR(2), + DESCUENTO FLOAT, + IMPORTE_DESCUENTO NUMERIC(11,4)) AS -begin - update CONT_EJERCICIOS - set ACTIVO = 0 - where ID_EMPRESA = :id_empresa; - - suspend; -end -^ - -ALTER PROCEDURE PROC_CIERRE_APERTURA ( - ID_EJERCICIO_CIERRE INTEGER, - ID_EJERCICIO_APERTURA INTEGER) -AS -declare variable id_subcuenta_apertura integer; -declare variable id_subcuenta_cierre integer; -declare variable ref_subcuenta varchar(255); -declare variable subcuenta varchar(255); -declare variable num_orden integer; -declare variable diferencia numeric(11,2); -declare variable estado_ejercicio_cierre varchar(255); -declare variable estado_ejercicio_apertura varchar(255); -declare variable nombre_ejercicio_cierre varchar(255); -declare variable nombre_ejercicio_apertura varchar(255); -declare variable id_asiento_cierre integer; -declare variable id_asiento_apertura integer; -declare variable id_apunte_apertura integer; -declare variable id_apunte_cierre integer; -begin - /*Seleccionamos el ejercicio de cierre*/ - select ESTADO, NOMBRE, GEN_ID(gen_cont_asientos_id, 1) - from cont_ejercicios - where id = :id_ejercicio_cierre - into :estado_ejercicio_cierre, :nombre_ejercicio_cierre, :id_asiento_cierre; - - /*Seleccionamos el ejercicio de apertura*/ - select ESTADO, NOMBRE, GEN_ID(gen_cont_asientos_id, 1) - from cont_ejercicios - where id = :id_ejercicio_apertura - into :estado_ejercicio_apertura, :nombre_ejercicio_apertura, :id_asiento_apertura; - - /*Si los ejercicios no estan abiertos no hacemos nada*/ - if ((estado_ejercicio_cierre = 'ABIERTO') and (estado_ejercicio_apertura = 'ABIERTO')) then - begin - select COALESCE(max(V_CONT_DIARIO.ORDEN_ASIENTO),0) + 1 - from V_CONT_DIARIO - into :num_orden; - - /* Añadimos asiento de cierre*/ - insert into CONT_ASIENTOS (ID, FECHA_ASIENTO, ORDEN, TIPO) - values (:id_asiento_cierre, current_date, :num_orden, 'x'); - - num_orden = num_orden + 1; - /* Añadimos asiento de apertura*/ - insert into CONT_ASIENTOS (ID, FECHA_ASIENTO, ORDEN, TIPO) - values (:id_asiento_apertura, current_date, :num_orden, 'a'); - - num_orden = 1; - - /* Para cada cuenta descuadrada se inserta un apunte de cierre asociado al asiento creado anteriormente*/ - for select ID_SUBCUENTA, REF_SUBCUENTA, SUBCUENTA, SUM(COALESCE(DEBE,0))-SUM(COALESCE(HABER,0)) as DIFERENCIA, - GEN_ID(gen_cont_apuntes_id, 1), GEN_ID(gen_cont_apuntes_id, 1) - from v_cont_diario where (ID_EJERCICIO = :ID_EJERCICIO_CIERRE) - group by 1, 2, 3 - having (SUM(COALESCE(DEBE,0))-SUM(COALESCE(HABER,0))) <> 0 - into :id_subcuenta_cierre, :ref_subcuenta, :subcuenta, :diferencia, :id_apunte_cierre, :id_apunte_apertura do - begin - /*Buscamos la subcuenta equibalente en el ejericio de apertura*/ - select ID from cont_subcuentas - where REF_SUBCUENTA = :ref_subcuenta - and DESCRIPCION = :subcuenta - and ID_EJERCICIO = :id_ejercicio_apertura - into :id_subcuenta_apertura; - - if (diferencia > 0) then - begin - /*APUNTE DE CIERRE*/ - insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, HABER) - values (:id_apunte_cierre, :id_asiento_cierre, :id_subcuenta_cierre, :num_orden, -1, 'Asiento de cierre ' || :nombre_ejercicio_cierre, :diferencia); - - /*APUNTE DE APERTURA*/ - insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DEBE) - values (:id_apunte_apertura, :id_asiento_apertura, :id_subcuenta_apertura, :num_orden, -1, 'Asiento de apertura ' || :nombre_ejercicio_apertura, :diferencia); - end - else - begin - /*APUNTE DE CIERRE*/ - insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DEBE) - values (:id_apunte_cierre, :id_asiento_cierre, :id_subcuenta_cierre, :num_orden, -1, 'Asiento de cierre ' || :nombre_ejercicio_cierre, (:diferencia)*-1); - - /*APUNTE DE APERTURA*/ - insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, HABER) - values (:id_apunte_apertura, :id_asiento_apertura, :id_subcuenta_apertura, :num_orden, -1, 'Asiento de apertura ' || :nombre_ejercicio_apertura, (:diferencia)*-1); - end - num_orden = num_orden + 1; - end - - /*Finalmente cambiamos de estado los ejercicio cerrado*/ - update cont_ejercicios - set ESTADO = 'CERRADO' - where id = :id_ejercicio_cierre; - end - - suspend; -end -^ - -ALTER PROCEDURE PROC_PRE_CON_CAPITULOS ( - aid integer, tipo varchar(15)) -returns ( - id integer, - id_pre_con integer, - posicion integer, - tipo_detalle varchar(25), - concepto varchar(2000), - importe_total numeric(11,4), - visible smallint, - visible2 smallint, - tipo_articulo varchar(2), - descuento float, - importe_descuento numeric(11,4)) -as declare variable num_filas integer; declare variable contador integer; declare variable id_aux integer; @@ -5508,27 +8370,29 @@ begin end end^ -ALTER PROCEDURE PROC_PRE_CON_CAPITULOS_CONCEP ( - aid integer, - tipo varchar(15)) -returns ( - id integer, - id_pre_con integer, - posicion integer, - tipo_detalle varchar(25), - id_capitulo integer, - tipo_articulo varchar(2), - id_articulo integer, - propiedad varchar(50), - concepto varchar(2000), - cantidad numeric(11,2), - importe_unidad numeric(11,4), - descuento numeric(2,2), - importe_porte numeric(11,4), - importe_total numeric(11,4), - visible smallint) -as -declare variable capitulo_actual integer; + +CREATE OR ALTER PROCEDURE PROC_PRE_CON_CAPITULOS_CONCEP ( + AID INTEGER, + TIPO VARCHAR(15)) +RETURNS ( + ID INTEGER, + ID_PRE_CON INTEGER, + POSICION INTEGER, + TIPO_DETALLE VARCHAR(25), + ID_CAPITULO INTEGER, + TIPO_ARTICULO VARCHAR(2), + ID_ARTICULO INTEGER, + PROPIEDAD VARCHAR(50), + CONCEPTO VARCHAR(2000), + CANTIDAD NUMERIC(11,2), + IMPORTE_UNIDAD NUMERIC(11,4), + DESCUENTO NUMERIC(2,2), + IMPORTE_PORTE NUMERIC(11,4), + IMPORTE_TOTAL NUMERIC(11,4), + VISIBLE2 SMALLINT, + VISIBLE SMALLINT) +AS +declare variable CAPITULO_ACTUAL integer; begin capitulo_actual = -1; ID_CAPITULO = -1; @@ -5545,13 +8409,14 @@ begin else pre.importe_unidad end as importe_unidad, pre.descuento, pre.importe_porte, - pre.importe_total, coalesce(pre.visible, 1) + pre.importe_total, coalesce(pre.visible, 1), coalesce(pre.visible2, 1) from presupuestos_cliente_detalles pre where pre.id_presupuesto = :AID order by pre.id_presupuesto, pre.posicion into :ID, :ID_PRE_CON, :POSICION, :TIPO_DETALLE, :TIPO_ARTICULO, :ID_ARTICULO, :PROPIEDAD, :CONCEPTO, :CANTIDAD, - :IMPORTE_UNIDAD, :DESCUENTO, :IMPORTE_PORTE, :IMPORTE_TOTAL, :VISIBLE + :IMPORTE_UNIDAD, :DESCUENTO, :IMPORTE_PORTE, + :IMPORTE_TOTAL, :VISIBLE, :VISIBLE2 do begin if ((:tipo_detalle = 'Titulo') or (:tipo_detalle = 'Titulo_opc')) then @@ -5583,13 +8448,14 @@ begin else pre.importe_unidad end as importe_unidad, pre.descuento, pre.importe_porte, - pre.importe_total, coalesce(pre.visible, 1) + pre.importe_total, coalesce(pre.visible, 1), coalesce(pre.visible2, 1) from contratos_cliente_detalles pre where pre.id_contrato = :AID order by pre.id_contrato, pre.posicion into :ID, :ID_PRE_CON, :POSICION, :TIPO_DETALLE, :TIPO_ARTICULO, :ID_ARTICULO, :PROPIEDAD, :CONCEPTO, :CANTIDAD, - :IMPORTE_UNIDAD, :DESCUENTO, :IMPORTE_PORTE, :IMPORTE_TOTAL, :VISIBLE + :IMPORTE_UNIDAD, :DESCUENTO, :IMPORTE_PORTE, + :IMPORTE_TOTAL, :VISIBLE, :VISIBLE2 do begin if ((:tipo_detalle = 'Titulo') or (:tipo_detalle = 'Titulo_opc') ) then @@ -5611,6 +8477,23 @@ begin end end^ + +CREATE OR ALTER PROCEDURE PROC_SET_EJERCICIOS_NOACTIVOS ( + ID_EMPRESA INTEGER) +AS +begin + update CONT_EJERCICIOS + set ACTIVO = 0 + where ID_EMPRESA = :id_empresa; + + suspend; +end^ + + + SET TERM ; ^ +/******************************************************************************/ +/*** Descriptions ***/ +/******************************************************************************/ diff --git a/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.dfm b/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.dfm index f64ac370..3da183c8 100644 --- a/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.dfm +++ b/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.dfm @@ -1,19 +1,24 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral + Width = 910 + Height = 433 inherited Panel1: TPanel - Width = 424 + Width = 900 + ExplicitWidth = 424 inherited Label3: TLabel + Width = 888 Caption = 'Apariencia' ExplicitWidth = 63 end end inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel - Width = 434 + Width = 910 + ExplicitWidth = 434 end object Panel2: TPanel AlignWithMargins = True Left = 5 Top = 142 - Width = 424 + Width = 900 Height = 22 Margins.Left = 5 Margins.Top = 0 @@ -37,10 +42,11 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral ParentBackground = False ParentFont = False TabOrder = 2 + ExplicitWidth = 424 object Label2: TLabel Left = 6 Top = 4 - Width = 412 + Width = 888 Height = 14 Align = alTop Caption = 'Seguridad' @@ -51,7 +57,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral AlignWithMargins = True Left = 5 Top = 68 - Width = 424 + Width = 900 Height = 74 Margins.Left = 5 Margins.Top = 0 @@ -61,6 +67,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral BevelOuter = bvNone ParentColor = True TabOrder = 3 + ExplicitWidth = 424 object Label1: TLabel Left = 17 Top = 14 @@ -92,7 +99,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral AlignWithMargins = True Left = 5 Top = 164 - Width = 424 + Width = 900 Height = 72 Margins.Left = 5 Margins.Top = 0 @@ -102,6 +109,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral BevelOuter = bvNone ParentColor = True TabOrder = 4 + ExplicitWidth = 424 object Label4: TLabel Left = 17 Top = 43 @@ -140,7 +148,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral AlignWithMargins = True Left = 5 Top = 236 - Width = 424 + Width = 900 Height = 22 Margins.Left = 5 Margins.Top = 0 @@ -164,10 +172,11 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral ParentBackground = False ParentFont = False TabOrder = 5 + ExplicitWidth = 424 object Label5: TLabel Left = 6 Top = 4 - Width = 412 + Width = 888 Height = 14 Align = alTop Caption = 'Usuarios' @@ -178,7 +187,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral AlignWithMargins = True Left = 5 Top = 258 - Width = 424 + Width = 900 Height = 72 Margins.Left = 5 Margins.Top = 0 @@ -188,6 +197,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral BevelOuter = bvNone ParentColor = True TabOrder = 6 + ExplicitWidth = 424 object lblLongMinPass: TLabel Left = 17 Top = 43 diff --git a/Source/ApplicationBase/uFactuGES_App.pas b/Source/ApplicationBase/uFactuGES_App.pas index d3f86d91..f029ae3e 100644 --- a/Source/ApplicationBase/uFactuGES_App.pas +++ b/Source/ApplicationBase/uFactuGES_App.pas @@ -38,9 +38,11 @@ type function GetFormaPagoDocumentos: String; function GetObservacionesDocumentos: String; function GetCondicionesDocumentos: String; + function GetCalidadesDocumentos: String; procedure SetFormaPagoDocumentos(const Value: String); procedure SetObservacionesDocumentos(const Value: String); procedure SetCondicionesDocumentos(const Value: String); + procedure SetCalidadesDocumentos(const Value: String); function GetLoadModulesEvent : TAppFactuGES_Event; procedure SetLoadModulesEvent (ALoadModulesEvent : TAppFactuGES_Event); @@ -87,6 +89,7 @@ type property FormaPagoDocumentos : String read GetFormaPagoDocumentos write SetFormaPagoDocumentos; property ObservacionesDocumentos : String read GetObservacionesDocumentos write SetObservacionesDocumentos; property CondicionesDocumentos : String read GetCondicionesDocumentos write SetCondicionesDocumentos; + property CalidadesDocumentos : String read GetCalidadesDocumentos write SetCalidadesDocumentos; end; @@ -100,7 +103,8 @@ type FConfiguracionController : IConfiguracionController; FFormaPagoDocumentos: String; FObservacionesDocumentos: String; - FcondicionesDocumentos: String; + FCondicionesDocumentos: String; + FCalidadesDocumentos: String; FAppSplashForm : IAppSplashForm; FHostManager : THostManager; @@ -145,6 +149,8 @@ type procedure AfterLoadModule(Sender: TObject; AModuleInfo: TModuleInfo); procedure RegisterModule(AModuleInfo : TModuleInfo); procedure BuscarTiendaPorDefecto; + function GetCalidadesDocumentos: String; + procedure SetCalidadesDocumentos(const Value: String); protected procedure DoMainForm; @@ -189,6 +195,7 @@ type property FormaPagoDocumentos : String read GetFormaPagoDocumentos write SetFormaPagoDocumentos; property ObservacionesDocumentos : String read GetObservacionesDocumentos write SetObservacionesDocumentos; property CondicionesDocumentos : String read GetCondicionesDocumentos write SetCondicionesDocumentos; + property CalidadesDocumentos : String read GetCalidadesDocumentos write SetCalidadesDocumentos; end; var @@ -374,6 +381,11 @@ begin Result := uAppInfoUtils.GetAppVersion; end; +function TAppFactuGES.GetCalidadesDocumentos: String; +begin + Result := FCalidadesDocumentos; +end; + function TAppFactuGES.GetCondicionesDocumentos: String; begin Result := FCondicionesDocumentos; @@ -553,6 +565,11 @@ begin FAppSplashForm := AAppSplashForm; end; +procedure TAppFactuGES.SetCalidadesDocumentos(const Value: String); +begin + FCalidadesDocumentos := Value; +end; + procedure TAppFactuGES.SetCondicionesDocumentos(const Value: String); begin FCondicionesDocumentos:= Value; diff --git a/Source/Informes/InfContratoCliente.fr3 b/Source/Informes/InfContratoCliente.fr3 index 293481bb..b03cd8fd 100644 --- a/Source/Informes/InfContratoCliente.fr3 +++ b/Source/Informes/InfContratoCliente.fr3 @@ -1,9 +1,9 @@ - + - + @@ -12,21 +12,21 @@ - + - + - + @@ -34,7 +34,7 @@ - + @@ -56,32 +56,49 @@ - + - + + + + + + + + + + + + + + + + - + - - + - - + + + + + - + diff --git a/Source/Informes/InfPresupuestoCliente.fr3 b/Source/Informes/InfPresupuestoCliente.fr3 index e21542d3..c21b7c21 100644 --- a/Source/Informes/InfPresupuestoCliente.fr3 +++ b/Source/Informes/InfPresupuestoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -14,21 +14,21 @@ - + - + - + @@ -36,7 +36,7 @@ - + @@ -56,13 +56,30 @@ - + - + + + + + + + + + + + + + + + + + + diff --git a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas index 8f5dedb3..85e2a828 100644 --- a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas +++ b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas @@ -757,6 +757,7 @@ begin AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA)); AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA)); AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_COCINA)); + AContrato.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_COCINA)); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_C, 'MUEBLES DE COCINA ', False, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR ', False, AContrato.Detalles); @@ -768,6 +769,7 @@ begin AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ARMARIO)); AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ARMARIO)); AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_ARMARIO)); + AContrato.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ARMARIO)); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', False, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', False, AContrato.Detalles); end; @@ -778,6 +780,7 @@ begin AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_BANO)); AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_BANO)); AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_BANO)); + AContrato.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_BANO)); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', False, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, AContrato.Detalles); end; @@ -788,6 +791,7 @@ begin AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO)); AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ELECTRODOMESTICO)); AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_ELECTRODOMESTICO)); + AContrato.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ELECTRODOMESTICO)); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', False, AContrato.Detalles); end; teObra: @@ -797,6 +801,7 @@ begin AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_OBRA)); AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_OBRA)); AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_OBRA)); + AContrato.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_OBRA)); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', False, AContrato.Detalles); end; teVarios: @@ -805,7 +810,8 @@ begin AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_VARIOS)); AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_VARIOS)); AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_VARIOS)); - AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_VARIOS)); + AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_VARIOS)); + AContrato.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_VARIOS)); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', False, AContrato.Detalles); end; end; diff --git a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm index 786f720b..a695b985 100644 --- a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm +++ b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm @@ -324,6 +324,14 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente item Name = 'CONDICIONES' DataType = datMemo + DisplayLabel = 'ContratosCliente_CONDICIONES' + DictionaryEntry = 'ContratosCliente_CONDICIONES' + end + item + Name = 'CALIDADES' + DataType = datMemo + DisplayLabel = 'Calidades' + DictionaryEntry = 'ContratosCliente_CALIDADES' end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas index 8957bb5d..42593d4b 100644 --- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas +++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas @@ -9,13 +9,13 @@ 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_Valores = '{2A7F5B24-C4EF-4CAC-84A7-B08B15EF9800}'; - RID_Propiedades = '{F8E7B5B9-507C-4C56-B5E9-8E608B097D89}'; - RID_ListaAnosContratos = '{1395AD65-A076-4E6B-A38B-E97DD7EF440F}'; - RID_ContratosClienteBeneficios = '{AAE37D7A-37D3-4EBD-A74C-351C6F2C5266}'; - RID_ContratosCliente = '{8C594040-2BE6-4C03-9027-A3D0DAC74C82}'; - RID_TiposCapitulos = '{8276E8DA-EDAA-4FBF-9109-A96A2234CE9E}'; - RID_ContratosCliente_Detalles = '{2D7606E6-A13A-49D4-9520-8C7C1156CBD7}'; + RID_Valores = '{F0526200-C062-476D-80A3-1CC74B381BC7}'; + RID_Propiedades = '{761E7D92-ACCC-487C-B663-31B34E278F2C}'; + RID_ListaAnosContratos = '{EFA96A9D-E452-46F5-92D2-6301FA044EB5}'; + RID_ContratosClienteBeneficios = '{70EF0F8A-3021-466B-8D83-EEFC14E93578}'; + RID_ContratosCliente = '{5474C56D-8D15-4BBF-A918-B09541C5DD87}'; + RID_TiposCapitulos = '{E013587B-70DE-493C-A82F-1436745706BE}'; + RID_ContratosCliente_Detalles = '{C8845677-3FB0-4456-90DE-C5B5447BB721}'; { Data table names } nme_Valores = 'Valores'; @@ -125,6 +125,7 @@ const fld_ContratosClientePERSONA_CONTACTO = 'PERSONA_CONTACTO'; fld_ContratosClienteTIPO_CONTRATO = 'TIPO_CONTRATO'; fld_ContratosClienteCONDICIONES = 'CONDICIONES'; + fld_ContratosClienteCALIDADES = 'CALIDADES'; { ContratosCliente field indexes } idx_ContratosClienteID = 0; @@ -173,6 +174,7 @@ const idx_ContratosClientePERSONA_CONTACTO = 43; idx_ContratosClienteTIPO_CONTRATO = 44; idx_ContratosClienteCONDICIONES = 45; + idx_ContratosClienteCALIDADES = 46; { TiposCapitulos fields } fld_TiposCapitulosID = 'ID'; @@ -231,7 +233,7 @@ const type { IValores } IValores = interface(IDAStronglyTypedDataTable) - ['{AA391BD6-AAF3-4DD2-B075-AE2234E80A89}'] + ['{F961655F-A527-46B5-8498-A63C87148DBD}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -290,7 +292,7 @@ type { IPropiedades } IPropiedades = interface(IDAStronglyTypedDataTable) - ['{23AECADA-9691-4879-8682-B6E356F94740}'] + ['{C8EA9375-DC1B-4883-AA5D-337B12C8CB03}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -349,7 +351,7 @@ type { IListaAnosContratos } IListaAnosContratos = interface(IDAStronglyTypedDataTable) - ['{7301B623-1E33-4C34-B008-C34BF12FA616}'] + ['{477D5EE0-90BB-4992-A681-D55DE22F223F}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -384,7 +386,7 @@ type { IContratosClienteBeneficios } IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable) - ['{23C65272-1CFD-4C99-9E4E-6F50BEAD3B7C}'] + ['{C1AD6AEE-9535-4AAD-84EC-C4F26774FDD5}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -539,7 +541,7 @@ type { IContratosCliente } IContratosCliente = interface(IDAStronglyTypedDataTable) - ['{9AD6CC3E-D998-47A8-AADB-E4FD52CEDDFF}'] + ['{04D661CB-EC6C-49CD-BD55-5A14CCA1E63C}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -720,6 +722,9 @@ type function GetCONDICIONESValue: IROStrings; function GetCONDICIONESIsNull: Boolean; procedure SetCONDICIONESIsNull(const aValue: Boolean); + function GetCALIDADESValue: IROStrings; + function GetCALIDADESIsNull: Boolean; + procedure SetCALIDADESIsNull(const aValue: Boolean); { Properties } @@ -815,6 +820,8 @@ type property TIPO_CONTRATOIsNull: Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull; property CONDICIONES: IROStrings read GetCONDICIONESValue; property CONDICIONESIsNull: Boolean read GetCONDICIONESIsNull write SetCONDICIONESIsNull; + property CALIDADES: IROStrings read GetCALIDADESValue; + property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull; end; { TContratosClienteDataTableRules } @@ -825,11 +832,13 @@ type f_OBSERVACIONES: IROStrings; f_INCIDENCIAS: IROStrings; f_CONDICIONES: IROStrings; + f_CALIDADES: IROStrings; procedure FORMA_PAGO_OnChange(Sender: TObject); procedure PLAZO_ENTREGA_OnChange(Sender: TObject); procedure OBSERVACIONES_OnChange(Sender: TObject); procedure INCIDENCIAS_OnChange(Sender: TObject); procedure CONDICIONES_OnChange(Sender: TObject); + procedure CALIDADES_OnChange(Sender: TObject); protected { Property getters and setters } function GetIDValue: Integer; virtual; @@ -1011,6 +1020,9 @@ type function GetCONDICIONESValue: IROStrings; virtual; function GetCONDICIONESIsNull: Boolean; virtual; procedure SetCONDICIONESIsNull(const aValue: Boolean); virtual; + function GetCALIDADESValue: IROStrings; virtual; + function GetCALIDADESIsNull: Boolean; virtual; + procedure SetCALIDADESIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -1105,6 +1117,8 @@ type property TIPO_CONTRATOIsNull: Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull; property CONDICIONES: IROStrings read GetCONDICIONESValue; property CONDICIONESIsNull: Boolean read GetCONDICIONESIsNull write SetCONDICIONESIsNull; + property CALIDADES: IROStrings read GetCALIDADESValue; + property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -1117,7 +1131,7 @@ type } { ITiposCapitulos } ITiposCapitulos = interface(IDAStronglyTypedDataTable) - ['{BFABE088-8874-4BDE-BA13-A4037F709389}'] + ['{2ECBA155-63C8-4E4A-ABFA-0447AF922692}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1212,7 +1226,7 @@ type { IContratosCliente_Detalles } IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{5A701D96-0AC5-47D4-BCBC-9A1A4B8622B2}'] + ['{C6C57E6F-5A54-4337-88B0-B74807CF03CD}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1893,6 +1907,10 @@ begin StrList := TStringList.Create; StrList.OnChange := CONDICIONES_OnChange; f_CONDICIONES := NewROStrings(StrList,True); + + StrList := TStringList.Create; + StrList.OnChange := CALIDADES_OnChange; + f_CALIDADES := NewROStrings(StrList,True); end; destructor TContratosClienteDataTableRules.Destroy; @@ -1925,6 +1943,11 @@ begin if DataTable.Editing then DataTable.Fields[idx_ContratosClienteCONDICIONES].AsVariant := TStringList(Sender).Text; end; +procedure TContratosClienteDataTableRules.CALIDADES_OnChange(Sender: TObject); +begin + if DataTable.Editing then DataTable.Fields[idx_ContratosClienteCALIDADES].AsVariant := TStringList(Sender).Text; +end; + function TContratosClienteDataTableRules.GetIDValue: Integer; begin result := DataTable.Fields[idx_ContratosClienteID].AsInteger; @@ -2871,6 +2894,23 @@ begin DataTable.Fields[idx_ContratosClienteCONDICIONES].AsVariant := Null; end; +function TContratosClienteDataTableRules.GetCALIDADESValue: IROStrings; +begin + result := f_CALIDADES; + result.Text := DataTable.Fields[idx_ContratosClienteCALIDADES].AsString; +end; + +function TContratosClienteDataTableRules.GetCALIDADESIsNull: boolean; +begin + result := DataTable.Fields[idx_ContratosClienteCALIDADES].IsNull; +end; + +procedure TContratosClienteDataTableRules.SetCALIDADESIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContratosClienteCALIDADES].AsVariant := Null; +end; + { TTiposCapitulosDataTableRules } constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas index f229d5dc..9e053cde 100644 --- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas +++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas @@ -9,18 +9,18 @@ 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_ValoresDelta = '{BFD88912-FE88-468F-A484-70A3F0D4F4B1}'; - RID_PropiedadesDelta = '{41AC59EC-C092-48C0-9692-4DDFDD4DD96A}'; - RID_ListaAnosContratosDelta = '{207FEB34-67B0-49C5-9A68-B112947AEE94}'; - RID_ContratosClienteBeneficiosDelta = '{C9D17A9C-E90A-4A84-AC1B-7DDCC9E2E3C7}'; - RID_ContratosClienteDelta = '{22B8C14E-C907-45A6-8069-CA587DA68F0B}'; - RID_TiposCapitulosDelta = '{F59CAC54-3765-45A0-AF74-D39B5ABDF12B}'; - RID_ContratosCliente_DetallesDelta = '{C6E1AC80-D8CD-4971-AC82-3636D2C206D1}'; + RID_ValoresDelta = '{38C40949-A51A-4309-80CD-2D42A1603624}'; + RID_PropiedadesDelta = '{38B2F017-BDA0-45D7-8FE6-20FBA829A97B}'; + RID_ListaAnosContratosDelta = '{7874DD16-167E-457B-BD65-4AE8A24EDBF3}'; + RID_ContratosClienteBeneficiosDelta = '{586FA3E2-5AB1-4D49-89D1-09EA9581E6FA}'; + RID_ContratosClienteDelta = '{526FC8D5-7105-4C5C-9956-342BEB9C9C12}'; + RID_TiposCapitulosDelta = '{3CF19FFB-79CB-4BEB-AB92-BFAC26395C7E}'; + RID_ContratosCliente_DetallesDelta = '{7F0E3428-95C8-47D6-8D41-D2FF2C661C75}'; type { IValoresDelta } IValoresDelta = interface(IValores) - ['{BFD88912-FE88-468F-A484-70A3F0D4F4B1}'] + ['{38C40949-A51A-4309-80CD-2D42A1603624}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PROPIEDADValue : Integer; @@ -78,7 +78,7 @@ type { IPropiedadesDelta } IPropiedadesDelta = interface(IPropiedades) - ['{41AC59EC-C092-48C0-9692-4DDFDD4DD96A}'] + ['{38B2F017-BDA0-45D7-8FE6-20FBA829A97B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -136,7 +136,7 @@ type { IListaAnosContratosDelta } IListaAnosContratosDelta = interface(IListaAnosContratos) - ['{207FEB34-67B0-49C5-9A68-B112947AEE94}'] + ['{7874DD16-167E-457B-BD65-4AE8A24EDBF3}'] { Property getters and setters } function GetOldANOValue : String; @@ -170,7 +170,7 @@ type { IContratosClienteBeneficiosDelta } IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios) - ['{C9D17A9C-E90A-4A84-AC1B-7DDCC9E2E3C7}'] + ['{586FA3E2-5AB1-4D49-89D1-09EA9581E6FA}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREFERENCIAValue : String; @@ -324,7 +324,7 @@ type { IContratosClienteDelta } IContratosClienteDelta = interface(IContratosCliente) - ['{22B8C14E-C907-45A6-8069-CA587DA68F0B}'] + ['{526FC8D5-7105-4C5C-9956-342BEB9C9C12}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -372,6 +372,7 @@ type function GetOldPERSONA_CONTACTOValue : String; function GetOldTIPO_CONTRATOValue : String; function GetOldCONDICIONESValue : IROStrings; + function GetOldCALIDADESValue : IROStrings; { Properties } property OldID : Integer read GetOldIDValue; @@ -420,6 +421,7 @@ type property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property OldTIPO_CONTRATO : String read GetOldTIPO_CONTRATOValue; property OldCONDICIONES : IROStrings read GetOldCONDICIONESValue; + property OldCALIDADES : IROStrings read GetOldCALIDADESValue; end; { TContratosClienteBusinessProcessorRules } @@ -430,11 +432,13 @@ type f_OBSERVACIONES: IROStrings; f_INCIDENCIAS: IROStrings; f_CONDICIONES: IROStrings; + f_CALIDADES: IROStrings; procedure FORMA_PAGO_OnChange(Sender: TObject); procedure PLAZO_ENTREGA_OnChange(Sender: TObject); procedure OBSERVACIONES_OnChange(Sender: TObject); procedure INCIDENCIAS_OnChange(Sender: TObject); procedure CONDICIONES_OnChange(Sender: TObject); + procedure CALIDADES_OnChange(Sender: TObject); protected { Property getters and setters } function GetIDValue: Integer; virtual; @@ -708,6 +712,11 @@ type function GetOldCONDICIONESValue: IROStrings; virtual; function GetOldCONDICIONESIsNull: Boolean; virtual; procedure SetCONDICIONESIsNull(const aValue: Boolean); virtual; + function GetCALIDADESValue: IROStrings; virtual; + function GetCALIDADESIsNull: Boolean; virtual; + function GetOldCALIDADESValue: IROStrings; virtual; + function GetOldCALIDADESIsNull: Boolean; virtual; + procedure SetCALIDADESIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -894,6 +903,10 @@ type property CONDICIONESIsNull : Boolean read GetCONDICIONESIsNull write SetCONDICIONESIsNull; property OldCONDICIONES : IROStrings read GetOldCONDICIONESValue; property OldCONDICIONESIsNull : Boolean read GetOldCONDICIONESIsNull; + property CALIDADES : IROStrings read GetCALIDADESValue; + property CALIDADESIsNull : Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull; + property OldCALIDADES : IROStrings read GetOldCALIDADESValue; + property OldCALIDADESIsNull : Boolean read GetOldCALIDADESIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -903,7 +916,7 @@ type { ITiposCapitulosDelta } ITiposCapitulosDelta = interface(ITiposCapitulos) - ['{F59CAC54-3765-45A0-AF74-D39B5ABDF12B}'] + ['{3CF19FFB-79CB-4BEB-AB92-BFAC26395C7E}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldPOSICIONValue : Integer; @@ -997,7 +1010,7 @@ type { IContratosCliente_DetallesDelta } IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) - ['{C6E1AC80-D8CD-4971-AC82-3636D2C206D1}'] + ['{7F0E3428-95C8-47D6-8D41-D2FF2C661C75}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTRATOValue : Integer; @@ -1858,6 +1871,10 @@ begin StrList := TStringList.Create; StrList.OnChange := CONDICIONES_OnChange; f_CONDICIONES := NewROStrings(StrList,True); + + StrList := TStringList.Create; + StrList.OnChange := CALIDADES_OnChange; + f_CALIDADES := NewROStrings(StrList,True); end; destructor TContratosClienteBusinessProcessorRules.Destroy; @@ -1890,6 +1907,11 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCONDICIONES] := TStringList(Sender).Text; end; +procedure TContratosClienteBusinessProcessorRules.CALIDADES_OnChange(Sender: TObject); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCALIDADES] := TStringList(Sender).Text; +end; + function TContratosClienteBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID]; @@ -3301,6 +3323,34 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCONDICIONES] := Null; end; +function TContratosClienteBusinessProcessorRules.GetCALIDADESValue: IROStrings; +begin + result := f_CALIDADES; + result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCALIDADES]; +end; + +function TContratosClienteBusinessProcessorRules.GetCALIDADESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCALIDADES]); +end; + +function TContratosClienteBusinessProcessorRules.GetOldCALIDADESValue: IROStrings; +begin + result := NewROStrings(); + result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteCALIDADES]; +end; + +function TContratosClienteBusinessProcessorRules.GetOldCALIDADESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteCALIDADES]); +end; + +procedure TContratosClienteBusinessProcessorRules.SetCALIDADESIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCALIDADES] := Null; +end; + { TTiposCapitulosBusinessProcessorRules } constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm b/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm index 2d4f8da4..37bc0b4a 100644 --- a/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm +++ b/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm @@ -191,21 +191,21 @@ object RptContratosCliente: TRptContratosCliente 'A,'#10' V_CONTRATOS_CLIENTE.FECHA_CONTRATO,'#10' V_CONTRATOS_CLIEN' + 'TE.REFERENCIA,'#10#10' V_CONTRATOS_CLIENTE.FORMA_PAGO,'#10' V_CONTRA' + 'TOS_CLIENTE.PLAZO_ENTREGA,'#10' V_CONTRATOS_CLIENTE.OBSERVACIONES' + - ','#10#10' V_CONTRATOS_CLIENTE.IMPORTE_NETO, V_CONTRATOS_CLIENTE.IMP' + - 'ORTE_PORTE,'#10' V_CONTRATOS_CLIENTE.DESCUENTO, V_CONTRATOS_CLIEN' + - 'TE.IMPORTE_DESCUENTO,'#10' V_CONTRATOS_CLIENTE.BASE_IMPONIBLE, V_' + - 'CONTRATOS_CLIENTE.IVA,'#10' V_CONTRATOS_CLIENTE.RE, V_CONTRATOS_C' + - 'LIENTE.IMPORTE_RE,'#10' V_CONTRATOS_CLIENTE.ID_CLIENTE,'#10' V_CON' + - 'TRATOS_CLIENTE.REF_CLIENTE,'#10' V_CONTRATOS_CLIENTE.NIF_CIF,'#10' ' + - ' V_CONTRATOS_CLIENTE.NOMBRE,'#10' V_CONTRATOS_CLIENTE.CALLE,'#10' ' + - 'V_CONTRATOS_CLIENTE.POBLACION,'#10' V_CONTRATOS_CLIENTE.PROVINCIA' + - ','#10' V_CONTRATOS_CLIENTE.CODIGO_POSTAL,'#10' V_CONTRATOS_CLIENTE' + - '.TELEFONO,'#10' V_CONTRATOS_CLIENTE.MOVIL,'#10' V_CONTRATOS_CLIENT' + - 'E.IMPORTE_IVA, V_CONTRATOS_CLIENTE.IMPORTE_TOTAL,'#10' V_CONTRATO' + - 'S_CLIENTE.PERSONA_CONTACTO,'#10' V_CONTRATOS_CLIENTE.VENDEDOR,'#10' ' + - ' V_CONTRATOS_CLIENTE.TIPO_CONTRATO,'#10' V_CONTRATOS_CLIENTE.CON' + - 'DICIONES'#10'FROM'#10' V_CONTRATOS_CLIENTE'#10'WHERE'#10' V_CONTRATOS_CLIE' + - 'NTE.ID = :ID'#10 + ','#10' V_CONTRATOS_CLIENTE.CALIDADES,'#10#10' V_CONTRATOS_CLIENTE.IM' + + 'PORTE_NETO, V_CONTRATOS_CLIENTE.IMPORTE_PORTE,'#10' V_CONTRATOS_C' + + 'LIENTE.DESCUENTO, V_CONTRATOS_CLIENTE.IMPORTE_DESCUENTO,'#10' V_C' + + 'ONTRATOS_CLIENTE.BASE_IMPONIBLE, V_CONTRATOS_CLIENTE.IVA,'#10' V_' + + 'CONTRATOS_CLIENTE.RE, V_CONTRATOS_CLIENTE.IMPORTE_RE,'#10' V_CONT' + + 'RATOS_CLIENTE.ID_CLIENTE,'#10' V_CONTRATOS_CLIENTE.REF_CLIENTE,'#10' ' + + ' V_CONTRATOS_CLIENTE.NIF_CIF,'#10' V_CONTRATOS_CLIENTE.NOMBRE,'#10 + + ' V_CONTRATOS_CLIENTE.CALLE,'#10' V_CONTRATOS_CLIENTE.POBLACION' + + ','#10' V_CONTRATOS_CLIENTE.PROVINCIA,'#10' V_CONTRATOS_CLIENTE.COD' + + 'IGO_POSTAL,'#10' V_CONTRATOS_CLIENTE.TELEFONO,'#10' V_CONTRATOS_CL' + + 'IENTE.MOVIL,'#10' V_CONTRATOS_CLIENTE.IMPORTE_IVA, V_CONTRATOS_CL' + + 'IENTE.IMPORTE_TOTAL,'#10' V_CONTRATOS_CLIENTE.PERSONA_CONTACTO,'#10' ' + + ' V_CONTRATOS_CLIENTE.VENDEDOR,'#10' V_CONTRATOS_CLIENTE.TIPO_CO' + + 'NTRATO,'#10' V_CONTRATOS_CLIENTE.CONDICIONES'#10'FROM'#10' V_CONTRATOS' + + '_CLIENTE'#10'WHERE'#10' V_CONTRATOS_CLIENTE.ID = :ID'#10 StatementType = stSQL ColumnMappings = < item @@ -331,10 +331,18 @@ object RptContratosCliente: TRptContratosCliente item DatasetField = 'CONDICIONES' TableField = 'CONDICIONES' + end + item + DatasetField = 'CALIDADES' + TableField = 'CALIDADES' end> end> Name = 'Informe_Cabecera' Fields = < + item + Name = 'CALIDADES' + DataType = datMemo + end item Name = 'ID' DataType = datInteger @@ -1017,7 +1025,7 @@ object RptContratosCliente: TRptContratosCliente PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 39065.872423495400000000 - ReportOptions.LastChange = 41513.574229155090000000 + ReportOptions.LastChange = 41590.494716782410000000 ScriptLanguage = 'PascalScript' ShowProgress = False StoreInDFM = False diff --git a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm index a019f958..091cc4de 100644 --- a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm +++ b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm @@ -430,6 +430,10 @@ object srvContratosCliente: TsrvContratosCliente item DatasetField = 'CONDICIONES' TableField = 'CONDICIONES' + end + item + DatasetField = 'CALIDADES' + TableField = 'CALIDADES' end> end> Name = 'ContratosCliente' @@ -686,6 +690,12 @@ object srvContratosCliente: TsrvContratosCliente item Name = 'CONDICIONES' DataType = datMemo + DictionaryEntry = 'ContratosCliente_CONDICIONES' + end + item + Name = 'CALIDADES' + DataType = datMemo + DictionaryEntry = 'ContratosCliente_CALIDADES' end> end item @@ -936,6 +946,11 @@ object srvContratosCliente: TsrvContratosCliente Commands = < item Params = < + item + Name = 'CALIDADES' + DataType = datMemo + Value = '' + end item Name = 'ID' DataType = datAutoInc @@ -1154,16 +1169,17 @@ object srvContratosCliente: TsrvContratosCliente 'MPORTE_DESCUENTO,'#10' BASE_IMPONIBLE, ID_TIPO_IVA, IVA, IMPORTE' + '_IVA,'#10' IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,' + ' PERSONA_CONTACTO,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, TE' + - 'LEFONO, MOVIL, TIPO_CONTRATO, CONDICIONES)'#10' VALUES'#10' (:ID, :I' + - 'D_CLIENTE, :NIF_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :POBLACION,' + - ' :PROVINCIA,'#10' :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, ' + - ':SITUACION, :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVACIONES, :I' + - 'NCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUAR' + - 'IO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENT' + - 'O,'#10' :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPO' + - 'RTE_TOTAL, :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDOR, :PERSO' + - 'NA_CONTACTO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10' :TELE' + - 'FONO, :MOVIL, :TIPO_CONTRATO, :CONDICIONES)'#10#10 + 'LEFONO, MOVIL, TIPO_CONTRATO, CONDICIONES,'#10' CALIDADES)'#10' VAL' + + 'UES'#10' (:ID, :ID_CLIENTE, :NIF_CIF, :NOMBRE, :ID_DIRECCION, :CA' + + 'LLE, :POBLACION, :PROVINCIA,'#10' :CODIGO_POSTAL, :REFERENCIA, :' + + 'FECHA_CONTRATO, :SITUACION, :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :O' + + 'BSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMEST' + + 'AMP,'#10' :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :' + + 'IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IM' + + 'PORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_' + + 'VENDEDOR, :PERSONA_CONTACTO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALE' + + 'NCIA,'#10' :TELEFONO, :MOVIL, :TIPO_CONTRATO, :CONDICIONES, :CAL' + + 'IDADES)'#10#10 StatementType = stSQL ColumnMappings = <> end> @@ -1189,6 +1205,11 @@ object srvContratosCliente: TsrvContratosCliente end item Params = < + item + Name = 'CALIDADES' + DataType = datMemo + Value = '' + end item Name = 'ID' DataType = datAutoInc @@ -1421,8 +1442,8 @@ object srvContratosCliente: TsrvContratosCliente 'TO = :PERSONA_CONTACTO,'#10' RE = :RE,'#10' IMPORTE_RE = :IMPORTE_' + 'RE,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' TELEFO' + 'NO = :TELEFONO,'#10' MOVIL = :MOVIL,'#10' TIPO_CONTRATO = :TIPO_CO' + - 'NTRATO,'#10' CONDICIONES = :CONDICIONES'#10' WHERE'#10' (ID = :OLD_ID' + - ')'#10#10 + 'NTRATO,'#10' CONDICIONES = :CONDICIONES,'#10' CALIDADES = :CALIDAD' + + 'ES'#10' WHERE'#10' (ID = :OLD_ID)'#10#10 StatementType = stSQL ColumnMappings = <> end> @@ -2058,6 +2079,15 @@ object srvContratosCliente: TsrvContratosCliente DataType = datString Size = 255 DisplayLabel = 'Tipo' + end + item + Name = 'ContratosCliente_CALIDADES' + DataType = datMemo + DisplayLabel = 'Calidades' + end + item + Name = 'ContratosCliente_CONDICIONES' + DataType = datMemo end> Left = 48 Top = 152 diff --git a/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm index ffdd80f0..0f253e64 100644 --- a/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm +++ b/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm @@ -174,7 +174,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente inherited pgPaginas: TPageControl Width = 866 Height = 308 - ActivePage = pagCondiciones + ActivePage = pagCalidades TabOrder = 1 OnChanging = pgPaginasChanging ExplicitWidth = 866 @@ -235,57 +235,57 @@ inherited fEditorContratoCliente: TfEditorContratoCliente ExplicitWidth = 90 end inherited UpDown1: TUpDown - Left = 603 + Left = 619 Top = 0 - ExplicitLeft = 603 + ExplicitLeft = 619 ExplicitTop = 0 end inherited ToolButton13: TToolButton - Left = 620 + Left = 636 Top = 0 - ExplicitLeft = 620 + ExplicitLeft = 636 ExplicitTop = 0 end inherited ToolButton6: TToolButton - Left = 628 + Left = 644 Top = 0 - ExplicitLeft = 628 + ExplicitLeft = 644 ExplicitTop = 0 end inherited ToolButton7: TToolButton - Left = 662 + Left = 678 Top = 0 - ExplicitLeft = 662 + ExplicitLeft = 678 ExplicitTop = 0 end inherited ToolButton8: TToolButton - Left = 696 + Left = 712 Top = 0 - ExplicitLeft = 696 + ExplicitLeft = 712 ExplicitTop = 0 end inherited ToolButton12: TToolButton - Left = 730 + Left = 746 Top = 0 - ExplicitLeft = 730 + ExplicitLeft = 746 ExplicitTop = 0 end inherited ToolButton9: TToolButton - Left = 738 + Left = 754 Top = 0 - ExplicitLeft = 738 + ExplicitLeft = 754 ExplicitTop = 0 end inherited ToolButton10: TToolButton - Left = 772 + Left = 788 Top = 0 - ExplicitLeft = 772 + ExplicitLeft = 788 ExplicitTop = 0 end inherited ToolButton11: TToolButton - Left = 806 + Left = 822 Top = 0 - ExplicitLeft = 806 + ExplicitLeft = 822 ExplicitTop = 0 end end @@ -303,7 +303,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente ExplicitTop = 24 ExplicitWidth = 858 inherited TBXToolbar1: TTBXToolbar - ExplicitWidth = 665 + ExplicitWidth = 663 end end inherited cxLookupComboBox1: TcxLookupComboBox @@ -317,6 +317,51 @@ inherited fEditorContratoCliente: TfEditorContratoCliente end end end + object pagCalidades: TTabSheet + Caption = 'Calidades' + ImageIndex = 5 + object dxLayoutControl2: TdxLayoutControl + Left = 0 + Top = 0 + Width = 858 + Height = 280 + Align = alClient + TabOrder = 0 + TabStop = False + AutoContentSizes = [acsWidth, acsHeight] + object memCalidades: TcxDBMemo + Left = 10 + Top = 10 + Align = alClient + DataBinding.DataField = 'CALIDADES' + DataBinding.DataSource = dsDataTable + Properties.ScrollBars = ssVertical + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 0 + Height = 247 + Width = 799 + end + object dxLayoutGroup1: TdxLayoutGroup + ShowCaption = False + Hidden = True + ShowBorder = False + object dxLayoutItem1: TdxLayoutItem + Control = memCalidades + ControlOptions.ShowBorder = False + end + end + end + end object pagCondiciones: TTabSheet Caption = 'Condiciones' ImageIndex = 4 diff --git a/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas b/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas index 4af48867..19eb8b6a 100644 --- a/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas +++ b/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas @@ -42,6 +42,11 @@ type dxLayoutControl1: TdxLayoutControl; dxLayoutControl1Item1: TdxLayoutItem; memCondiciones: TcxDBMemo; + pagCalidades: TTabSheet; + dxLayoutControl2: TdxLayoutControl; + memCalidades: TcxDBMemo; + dxLayoutGroup1: TdxLayoutGroup; + dxLayoutItem1: TdxLayoutItem; procedure FormShow(Sender: TObject); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas index a4f11036..4ec9354d 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas @@ -23,31 +23,37 @@ const CTE_PLAZOS_ENTREGA_COCINA = 'PLAZOS_ENTREGA_COCINA'; CTE_OBSERVACIONES_COCINA = 'OBSERVACIONES_COCINA'; CTE_CONDICIONES_COCINA = 'CONDICIONES_COCINA'; + CTE_CALIDADES_COCINA = 'CALIDADES_COCINA'; CTE_FORMA_PAGO_ARMARIO = 'FORMA_PAGO_ARMARIO'; CTE_PLAZOS_ENTREGA_ARMARIO = 'PLAZOS_ENTREGA_ARMARIO'; CTE_OBSERVACIONES_ARMARIO = 'OBSERVACIONES_ARMARIO'; CTE_CONDICIONES_ARMARIO = 'CONDICIONES_ARMARIO'; + CTE_CALIDADES_ARMARIO = 'CALIDADES_ARMARIO'; CTE_FORMA_PAGO_BANO = 'FORMA_PAGO_BANO'; CTE_PLAZOS_ENTREGA_BANO = 'PLAZOS_ENTREGA_BANO'; CTE_OBSERVACIONES_BANO = 'OBSERVACIONES_BANO'; CTE_CONDICIONES_BANO = 'CONDICIONES_BANO'; + CTE_CALIDADES_BANO = 'CALIDADES_BANO'; CTE_FORMA_PAGO_ELECTRODOMESTICO = 'FORMA_PAGO_ELECTRODOMESTICO'; CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO = 'PLAZOS_ENTREGA_ELECTRODOMESTICO'; CTE_OBSERVACIONES_ELECTRODOMESTICO = 'OBSERVACIONES_ELECTRODOMESTICO'; CTE_CONDICIONES_ELECTRODOMESTICO = 'CONDICIONES_ELECTRODOMESTICO'; + CTE_CALIDADES_ELECTRODOMESTICO = 'CALIDADES_ELECTRODOMESTICO'; CTE_FORMA_PAGO_VARIOS = 'FORMA_PAGO_VARIOS'; CTE_PLAZOS_ENTREGA_VARIOS = 'PLAZOS_ENTREGA_VARIOS'; CTE_OBSERVACIONES_VARIOS = 'OBSERVACIONES_VARIOS'; CTE_CONDICIONES_VARIOS = 'CONDICIONES_VARIOS'; + CTE_CALIDADES_VARIOS = 'CALIDADES_VARIOS'; CTE_FORMA_PAGO_OBRA = 'FORMA_PAGO_OBRA'; CTE_PLAZOS_ENTREGA_OBRA = 'PLAZOS_ENTREGA_OBRA'; CTE_OBSERVACIONES_OBRA = 'OBSERVACIONES_OBRA'; CTE_CONDICIONES_OBRA = 'CONDICIONES_OBRA'; + CTE_CALIDADES_OBRA = 'CALIDADES_OBRA'; type TEnumTiposPresupuesto = (teCocina, teArmario, teBano, teElectrodomestico, teObra, teVarios); @@ -895,6 +901,7 @@ begin APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_COCINA)); APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA)); APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA)); + APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_COCINA)); (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_C_VACIO, 'MUEBLES DE COCINA ', False, APresupuesto.Detalles); (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, APresupuesto.Detalles); (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR ', False, APresupuesto.Detalles); @@ -905,6 +912,7 @@ begin APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_ARMARIO)); APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ARMARIO)); APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ARMARIO)); + APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ARMARIO)); (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', False, APresupuesto.Detalles); (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', False, APresupuesto.Detalles); end; @@ -914,6 +922,7 @@ begin APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_BANO)); APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_BANO)); APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_BANO)); + APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_BANO)); (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', False, APresupuesto.Detalles); (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, APresupuesto.Detalles); end; @@ -923,6 +932,7 @@ begin APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_ELECTRODOMESTICO)); APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO)); APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ELECTRODOMESTICO)); + APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ELECTRODOMESTICO)); (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', False, APresupuesto.Detalles); end; teObra: @@ -931,6 +941,7 @@ begin APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_OBRA)); APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_OBRA)); APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_OBRA)); + APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_OBRA)); (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', False, APresupuesto.Detalles); end; teVarios: @@ -939,6 +950,7 @@ begin APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_VARIOS)); APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_VARIOS)); APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_VARIOS)); + APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_VARIOS)); (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', False, APresupuesto.Detalles); end; end; diff --git a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm index 17f860de..3d8af806 100644 --- a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm @@ -26,6 +26,11 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente object tbl_PresupuestosCliente: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < + item + Name = 'CALIDADES' + DataType = datMemo + DisplayLabel = 'Calidades' + end item Name = 'ID' DataType = datAutoInc @@ -49,6 +54,8 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente item Name = 'FECHA_VIGENCIA' DataType = datDateTime + DisplayLabel = 'PresupuestosCliente_FECHA_VIGENCIA' + DictionaryEntry = 'PresupuestosCliente_FECHA_VIGENCIA' end item Name = 'FECHA_DECISION' @@ -78,6 +85,8 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente item Name = 'ID_DIRECCION' DataType = datInteger + DisplayLabel = 'PresupuestosCliente_ID_DIRECCION' + DictionaryEntry = 'PresupuestosCliente_ID_DIRECCION' end item Name = 'NIF_CIF' @@ -99,14 +108,20 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente Name = 'PERSONA_CONTACTO' DataType = datString Size = 255 + DisplayLabel = 'Persona de contacto' + DictionaryEntry = 'PresupuestosCliente_PERSONA_CONTACTO' end item Name = 'FORMA_PAGO' DataType = datMemo + DisplayLabel = 'PresupuestosCliente_FORMA_PAGO' + DictionaryEntry = 'PresupuestosCliente_FORMA_PAGO' end item Name = 'PLAZO_ENTREGA' DataType = datMemo + DisplayLabel = 'PresupuestosCliente_PLAZO_ENTREGA' + DictionaryEntry = 'PresupuestosCliente_PLAZO_ENTREGA' end item Name = 'OBSERVACIONES' @@ -179,6 +194,8 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente item Name = 'ID_TIPO_IVA' DataType = datInteger + DisplayLabel = 'PresupuestosCliente_ID_TIPO_IVA' + DictionaryEntry = 'PresupuestosCliente_ID_TIPO_IVA' end item Name = 'IVA' @@ -197,14 +214,20 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente item Name = 'RE' DataType = datFloat + DisplayLabel = 'PresupuestosCliente_RE' + DictionaryEntry = 'PresupuestosCliente_RE' end item Name = 'IMPORTE_RE' DataType = datCurrency + DisplayLabel = 'PresupuestosCliente_IMPORTE_RE' + DictionaryEntry = 'PresupuestosCliente_IMPORTE_RE' end item Name = 'RECARGO_EQUIVALENCIA' DataType = datSmallInt + DisplayLabel = 'PresupuestosCliente_RECARGO_EQUIVALENCIA' + DictionaryEntry = 'PresupuestosCliente_RECARGO_EQUIVALENCIA' end item Name = 'IMPORTE_TOTAL' @@ -221,33 +244,47 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente item Name = 'ID_TIENDA' DataType = datInteger + DisplayLabel = 'PresupuestosCliente_ID_TIENDA' + DictionaryEntry = 'PresupuestosCliente_ID_TIENDA' end item Name = 'TIENDA' DataType = datString Size = 255 + DisplayLabel = 'PresupuestosCliente_TIENDA' + DictionaryEntry = 'PresupuestosCliente_TIENDA' end item Name = 'ID_VENDEDOR' DataType = datInteger + DisplayLabel = 'PresupuestosCliente_ID_VENDEDOR' + DictionaryEntry = 'PresupuestosCliente_ID_VENDEDOR' end item Name = 'VENDEDOR' DataType = datString Size = 255 + DisplayLabel = 'PresupuestosCliente_VENDEDOR' + DictionaryEntry = 'PresupuestosCliente_VENDEDOR' end item Name = 'ID_CONTRATO' DataType = datInteger + DisplayLabel = 'PresupuestosCliente_ID_CONTRATO' + DictionaryEntry = 'PresupuestosCliente_ID_CONTRATO' end item Name = 'REF_CONTRATO' DataType = datString Size = 255 + DisplayLabel = 'PresupuestosCliente_REF_CONTRATO' + DictionaryEntry = 'PresupuestosCliente_REF_CONTRATO' end item Name = 'NO_VALORADO' DataType = datSmallInt + DisplayLabel = 'PresupuestosCliente_NO_VALORADO' + DictionaryEntry = 'PresupuestosCliente_NO_VALORADO' end item Name = 'TIPO_PRESUPUESTO' diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas index 50a3ae3e..2de31974 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas @@ -9,12 +9,12 @@ 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_Valores = '{01240DD5-A0EB-453D-82E2-811190BCCCB0}'; - RID_Propiedades = '{84FE1A88-2F78-4428-8BE5-AB6823809F69}'; - RID_ListaAnosPresupuestos = '{F179C1AE-48C3-4E76-87FB-6BB6AA0B9953}'; - RID_PresupuestosCliente = '{7C99E973-7D22-467E-B0D2-232A872F4AD0}'; - RID_CapitulosPresupuesto = '{96502DDF-3960-4105-B99D-D1F12570194E}'; - RID_PresupuestosCliente_Detalles = '{E263EC66-1B4A-4341-B7EF-18026268971D}'; + RID_Valores = '{F595E737-38D5-4136-AFD4-5757F25F6EF8}'; + RID_Propiedades = '{CBC06F9E-0133-4EF7-8E2D-58220BA8DDA9}'; + RID_ListaAnosPresupuestos = '{D786DD19-6B5D-423D-B297-0C4013A9C199}'; + RID_PresupuestosCliente = '{34EA2D75-66D0-4D4C-8E5E-44EBF0D67C55}'; + RID_CapitulosPresupuesto = '{1F64878E-DBCB-4B12-929A-DBD3F2E99119}'; + RID_PresupuestosCliente_Detalles = '{11B0814E-C750-4649-A479-C9C5FB17ABA4}'; { Data table names } nme_Valores = 'Valores'; @@ -57,6 +57,7 @@ const idx_ListaAnosPresupuestosANO = 0; { PresupuestosCliente fields } + fld_PresupuestosClienteCALIDADES = 'CALIDADES'; fld_PresupuestosClienteID = 'ID'; fld_PresupuestosClienteID_EMPRESA = 'ID_EMPRESA'; fld_PresupuestosClienteFECHA_PRESUPUESTO = 'FECHA_PRESUPUESTO'; @@ -100,47 +101,48 @@ const fld_PresupuestosClienteTIPO_PRESUPUESTO = 'TIPO_PRESUPUESTO'; { PresupuestosCliente field indexes } - idx_PresupuestosClienteID = 0; - idx_PresupuestosClienteID_EMPRESA = 1; - idx_PresupuestosClienteFECHA_PRESUPUESTO = 2; - idx_PresupuestosClienteFECHA_VIGENCIA = 3; - idx_PresupuestosClienteFECHA_DECISION = 4; - idx_PresupuestosClienteREFERENCIA = 5; - idx_PresupuestosClienteSITUACION = 6; - idx_PresupuestosClienteID_CLIENTE = 7; - idx_PresupuestosClienteID_DIRECCION = 8; - idx_PresupuestosClienteNIF_CIF = 9; - idx_PresupuestosClienteNOMBRE = 10; - idx_PresupuestosClientePERSONA_CONTACTO = 11; - idx_PresupuestosClienteFORMA_PAGO = 12; - idx_PresupuestosClientePLAZO_ENTREGA = 13; - idx_PresupuestosClienteOBSERVACIONES = 14; - idx_PresupuestosClienteINCIDENCIAS = 15; - idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 16; - idx_PresupuestosClienteFECHA_ALTA = 17; - idx_PresupuestosClienteFECHA_MODIFICACION = 18; - idx_PresupuestosClienteUSUARIO = 19; - idx_PresupuestosClienteIMPORTE_NETO = 20; - idx_PresupuestosClienteIMPORTE_PORTE = 21; - idx_PresupuestosClienteDESCUENTO = 22; - idx_PresupuestosClienteIMPORTE_DESCUENTO = 23; - idx_PresupuestosClienteBASE_IMPONIBLE = 24; - idx_PresupuestosClienteID_TIPO_IVA = 25; - idx_PresupuestosClienteIVA = 26; - idx_PresupuestosClienteIMPORTE_IVA = 27; - idx_PresupuestosClienteRE = 28; - idx_PresupuestosClienteIMPORTE_RE = 29; - idx_PresupuestosClienteRECARGO_EQUIVALENCIA = 30; - idx_PresupuestosClienteIMPORTE_TOTAL = 31; - idx_PresupuestosClienteID_FORMA_PAGO = 32; - idx_PresupuestosClienteID_TIENDA = 33; - idx_PresupuestosClienteTIENDA = 34; - idx_PresupuestosClienteID_VENDEDOR = 35; - idx_PresupuestosClienteVENDEDOR = 36; - idx_PresupuestosClienteID_CONTRATO = 37; - idx_PresupuestosClienteREF_CONTRATO = 38; - idx_PresupuestosClienteNO_VALORADO = 39; - idx_PresupuestosClienteTIPO_PRESUPUESTO = 40; + idx_PresupuestosClienteCALIDADES = 0; + idx_PresupuestosClienteID = 1; + idx_PresupuestosClienteID_EMPRESA = 2; + idx_PresupuestosClienteFECHA_PRESUPUESTO = 3; + idx_PresupuestosClienteFECHA_VIGENCIA = 4; + idx_PresupuestosClienteFECHA_DECISION = 5; + idx_PresupuestosClienteREFERENCIA = 6; + idx_PresupuestosClienteSITUACION = 7; + idx_PresupuestosClienteID_CLIENTE = 8; + idx_PresupuestosClienteID_DIRECCION = 9; + idx_PresupuestosClienteNIF_CIF = 10; + idx_PresupuestosClienteNOMBRE = 11; + idx_PresupuestosClientePERSONA_CONTACTO = 12; + idx_PresupuestosClienteFORMA_PAGO = 13; + idx_PresupuestosClientePLAZO_ENTREGA = 14; + idx_PresupuestosClienteOBSERVACIONES = 15; + idx_PresupuestosClienteINCIDENCIAS = 16; + idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 17; + idx_PresupuestosClienteFECHA_ALTA = 18; + idx_PresupuestosClienteFECHA_MODIFICACION = 19; + idx_PresupuestosClienteUSUARIO = 20; + idx_PresupuestosClienteIMPORTE_NETO = 21; + idx_PresupuestosClienteIMPORTE_PORTE = 22; + idx_PresupuestosClienteDESCUENTO = 23; + idx_PresupuestosClienteIMPORTE_DESCUENTO = 24; + idx_PresupuestosClienteBASE_IMPONIBLE = 25; + idx_PresupuestosClienteID_TIPO_IVA = 26; + idx_PresupuestosClienteIVA = 27; + idx_PresupuestosClienteIMPORTE_IVA = 28; + idx_PresupuestosClienteRE = 29; + idx_PresupuestosClienteIMPORTE_RE = 30; + idx_PresupuestosClienteRECARGO_EQUIVALENCIA = 31; + idx_PresupuestosClienteIMPORTE_TOTAL = 32; + idx_PresupuestosClienteID_FORMA_PAGO = 33; + idx_PresupuestosClienteID_TIENDA = 34; + idx_PresupuestosClienteTIENDA = 35; + idx_PresupuestosClienteID_VENDEDOR = 36; + idx_PresupuestosClienteVENDEDOR = 37; + idx_PresupuestosClienteID_CONTRATO = 38; + idx_PresupuestosClienteREF_CONTRATO = 39; + idx_PresupuestosClienteNO_VALORADO = 40; + idx_PresupuestosClienteTIPO_PRESUPUESTO = 41; { CapitulosPresupuesto fields } fld_CapitulosPresupuestoID = 'ID'; @@ -209,7 +211,7 @@ const type { IValores } IValores = interface(IDAStronglyTypedDataTable) - ['{C10745AB-25B0-4C44-B0F9-6FB4D71D3575}'] + ['{6AAE0E7B-A1FC-4518-BCAB-ED352C578B1B}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -316,7 +318,7 @@ type { IPropiedades } IPropiedades = interface(IDAStronglyTypedDataTable) - ['{58959861-2906-481E-9128-89F3C54D24D4}'] + ['{D8C6A56F-07F3-41B3-8C4A-8907BD2C6CD7}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -363,7 +365,7 @@ type { IListaAnosPresupuestos } IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable) - ['{8C8359FD-8B9C-40FB-AAA7-F99D251D6EBA}'] + ['{71555714-D8E6-431C-8612-6110C535E9E9}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -398,8 +400,11 @@ type { IPresupuestosCliente } IPresupuestosCliente = interface(IDAStronglyTypedDataTable) - ['{24023A22-7BF2-416E-AD04-A496E6F9E4C1}'] + ['{49DE2369-0531-479D-98D6-A1B1FFA0D767}'] { Property getters and setters } + function GetCALIDADESValue: IROStrings; + function GetCALIDADESIsNull: Boolean; + procedure SetCALIDADESIsNull(const aValue: Boolean); function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetIDIsNull: Boolean; @@ -563,6 +568,8 @@ type { Properties } + property CALIDADES: IROStrings read GetCALIDADESValue; + property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull; property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; @@ -650,16 +657,21 @@ type { TPresupuestosClienteDataTableRules } TPresupuestosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente) private + f_CALIDADES: IROStrings; f_FORMA_PAGO: IROStrings; f_PLAZO_ENTREGA: IROStrings; f_OBSERVACIONES: IROStrings; f_INCIDENCIAS: IROStrings; + procedure CALIDADES_OnChange(Sender: TObject); procedure FORMA_PAGO_OnChange(Sender: TObject); procedure PLAZO_ENTREGA_OnChange(Sender: TObject); procedure OBSERVACIONES_OnChange(Sender: TObject); procedure INCIDENCIAS_OnChange(Sender: TObject); protected { Property getters and setters } + function GetCALIDADESValue: IROStrings; virtual; + function GetCALIDADESIsNull: Boolean; virtual; + procedure SetCALIDADESIsNull(const aValue: Boolean); virtual; function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetIDIsNull: Boolean; virtual; @@ -822,6 +834,8 @@ type procedure SetTIPO_PRESUPUESTOIsNull(const aValue: Boolean); virtual; { Properties } + property CALIDADES: IROStrings read GetCALIDADESValue; + property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull; property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; @@ -913,7 +927,7 @@ type { ICapitulosPresupuesto } ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable) - ['{CC4491CC-4270-451B-9120-A6DBEF668324}'] + ['{B7A20983-4BA3-4219-A117-B437AAC6979E}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1068,7 +1082,7 @@ type { IPresupuestosCliente_Detalles } IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{A94CE8DD-1625-4372-8F27-2F2D25DB2912}'] + ['{DD320F0F-A644-47A2-AC0F-58C2D86FC696}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1550,6 +1564,10 @@ var begin inherited; + StrList := TStringList.Create; + StrList.OnChange := CALIDADES_OnChange; + f_CALIDADES := NewROStrings(StrList,True); + StrList := TStringList.Create; StrList.OnChange := FORMA_PAGO_OnChange; f_FORMA_PAGO := NewROStrings(StrList,True); @@ -1572,6 +1590,11 @@ begin inherited; end; +procedure TPresupuestosClienteDataTableRules.CALIDADES_OnChange(Sender: TObject); +begin + if DataTable.Editing then DataTable.Fields[idx_PresupuestosClienteCALIDADES].AsVariant := TStringList(Sender).Text; +end; + procedure TPresupuestosClienteDataTableRules.FORMA_PAGO_OnChange(Sender: TObject); begin if DataTable.Editing then DataTable.Fields[idx_PresupuestosClienteFORMA_PAGO].AsVariant := TStringList(Sender).Text; @@ -1592,6 +1615,23 @@ begin if DataTable.Editing then DataTable.Fields[idx_PresupuestosClienteINCIDENCIAS].AsVariant := TStringList(Sender).Text; end; +function TPresupuestosClienteDataTableRules.GetCALIDADESValue: IROStrings; +begin + result := f_CALIDADES; + result.Text := DataTable.Fields[idx_PresupuestosClienteCALIDADES].AsString; +end; + +function TPresupuestosClienteDataTableRules.GetCALIDADESIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteCALIDADES].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetCALIDADESIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteCALIDADES].AsVariant := Null; +end; + function TPresupuestosClienteDataTableRules.GetIDValue: Integer; begin result := DataTable.Fields[idx_PresupuestosClienteID].AsInteger; diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas index 5f2390d6..cc28a390 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas @@ -9,17 +9,17 @@ 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_ValoresDelta = '{416F5769-AE40-4A91-AC03-BAEE67591266}'; - RID_PropiedadesDelta = '{79C29CFD-CEB2-4958-A514-0F08DFA587C1}'; - RID_ListaAnosPresupuestosDelta = '{5AD64A70-834D-4211-B4E2-CF197FBED98B}'; - RID_PresupuestosClienteDelta = '{A9E95F7E-9B12-460D-A255-24BBF1AA5E58}'; - RID_CapitulosPresupuestoDelta = '{793834E6-6B3C-4618-99AF-A6629F835A46}'; - RID_PresupuestosCliente_DetallesDelta = '{625AFBDA-44C7-4EE0-B18E-3803CFAC970C}'; + RID_ValoresDelta = '{2B3EF096-6069-48F1-9372-FE2E3B086A6A}'; + RID_PropiedadesDelta = '{EA2F95CA-4260-4E0E-B470-E62AB00CCACC}'; + RID_ListaAnosPresupuestosDelta = '{843FE025-D441-4A64-9BA6-7CE3C254BFD2}'; + RID_PresupuestosClienteDelta = '{42FD0DC8-EB18-4B9C-AD03-82664BA0BCDA}'; + RID_CapitulosPresupuestoDelta = '{875DBE7F-AAE9-4CD9-8C77-566DDDC99AD3}'; + RID_PresupuestosCliente_DetallesDelta = '{D4644817-86F3-4A5E-B5D0-69ABAC6EC6FE}'; type { IValoresDelta } IValoresDelta = interface(IValores) - ['{416F5769-AE40-4A91-AC03-BAEE67591266}'] + ['{2B3EF096-6069-48F1-9372-FE2E3B086A6A}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -125,7 +125,7 @@ type { IPropiedadesDelta } IPropiedadesDelta = interface(IPropiedades) - ['{79C29CFD-CEB2-4958-A514-0F08DFA587C1}'] + ['{EA2F95CA-4260-4E0E-B470-E62AB00CCACC}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -171,7 +171,7 @@ type { IListaAnosPresupuestosDelta } IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos) - ['{5AD64A70-834D-4211-B4E2-CF197FBED98B}'] + ['{843FE025-D441-4A64-9BA6-7CE3C254BFD2}'] { Property getters and setters } function GetOldANOValue : String; @@ -205,8 +205,9 @@ type { IPresupuestosClienteDelta } IPresupuestosClienteDelta = interface(IPresupuestosCliente) - ['{A9E95F7E-9B12-460D-A255-24BBF1AA5E58}'] + ['{42FD0DC8-EB18-4B9C-AD03-82664BA0BCDA}'] { Property getters and setters } + function GetOldCALIDADESValue : IROStrings; function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; function GetOldFECHA_PRESUPUESTOValue : DateTime; @@ -250,6 +251,7 @@ type function GetOldTIPO_PRESUPUESTOValue : String; { Properties } + property OldCALIDADES : IROStrings read GetOldCALIDADESValue; property OldID : Integer read GetOldIDValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldFECHA_PRESUPUESTO : DateTime read GetOldFECHA_PRESUPUESTOValue; @@ -296,16 +298,23 @@ type { TPresupuestosClienteBusinessProcessorRules } TPresupuestosClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IPresupuestosCliente, IPresupuestosClienteDelta) private + f_CALIDADES: IROStrings; f_FORMA_PAGO: IROStrings; f_PLAZO_ENTREGA: IROStrings; f_OBSERVACIONES: IROStrings; f_INCIDENCIAS: IROStrings; + procedure CALIDADES_OnChange(Sender: TObject); procedure FORMA_PAGO_OnChange(Sender: TObject); procedure PLAZO_ENTREGA_OnChange(Sender: TObject); procedure OBSERVACIONES_OnChange(Sender: TObject); procedure INCIDENCIAS_OnChange(Sender: TObject); protected { Property getters and setters } + function GetCALIDADESValue: IROStrings; virtual; + function GetCALIDADESIsNull: Boolean; virtual; + function GetOldCALIDADESValue: IROStrings; virtual; + function GetOldCALIDADESIsNull: Boolean; virtual; + procedure SetCALIDADESIsNull(const aValue: Boolean); virtual; function GetIDValue: Integer; virtual; function GetIDIsNull: Boolean; virtual; function GetOldIDValue: Integer; virtual; @@ -550,6 +559,10 @@ type procedure SetTIPO_PRESUPUESTOIsNull(const aValue: Boolean); virtual; { Properties } + property CALIDADES : IROStrings read GetCALIDADESValue; + property CALIDADESIsNull : Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull; + property OldCALIDADES : IROStrings read GetOldCALIDADESValue; + property OldCALIDADESIsNull : Boolean read GetOldCALIDADESIsNull; property ID : Integer read GetIDValue write SetIDValue; property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; property OldID : Integer read GetOldIDValue; @@ -723,7 +736,7 @@ type { ICapitulosPresupuestoDelta } ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto) - ['{793834E6-6B3C-4618-99AF-A6629F835A46}'] + ['{875DBE7F-AAE9-4CD9-8C77-566DDDC99AD3}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldPOSICIONValue : Integer; @@ -877,7 +890,7 @@ type { IPresupuestosCliente_DetallesDelta } IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles) - ['{625AFBDA-44C7-4EE0-B18E-3803CFAC970C}'] + ['{D4644817-86F3-4A5E-B5D0-69ABAC6EC6FE}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PRESUPUESTOValue : Integer; @@ -1459,6 +1472,10 @@ var begin inherited; + StrList := TStringList.Create; + StrList.OnChange := CALIDADES_OnChange; + f_CALIDADES := NewROStrings(StrList,True); + StrList := TStringList.Create; StrList.OnChange := FORMA_PAGO_OnChange; f_FORMA_PAGO := NewROStrings(StrList,True); @@ -1481,6 +1498,11 @@ begin inherited; end; +procedure TPresupuestosClienteBusinessProcessorRules.CALIDADES_OnChange(Sender: TObject); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES] := TStringList(Sender).Text; +end; + procedure TPresupuestosClienteBusinessProcessorRules.FORMA_PAGO_OnChange(Sender: TObject); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFORMA_PAGO] := TStringList(Sender).Text; @@ -1501,6 +1523,34 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteINCIDENCIAS] := TStringList(Sender).Text; end; +function TPresupuestosClienteBusinessProcessorRules.GetCALIDADESValue: IROStrings; +begin + result := f_CALIDADES; + result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetCALIDADESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldCALIDADESValue: IROStrings; +begin + result := NewROStrings(); + result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteCALIDADES]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldCALIDADESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteCALIDADES]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetCALIDADESIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES] := Null; +end; + function TPresupuestosClienteBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID]; diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas index e0559125..1db1b802 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas @@ -277,6 +277,8 @@ begin Self.DataTable.FieldByName(fld_PresupuestosClienteFORMA_PAGO).AsString := AppFactuGES.FormaPagoDocumentos; Self.DataTable.FieldByName(fld_PresupuestosClienteOBSERVACIONES).AsString := AppFactuGES.ObservacionesDocumentos; + Self.DataTable.FieldByName(fld_PresupuestosClienteCALIDADES).AsString := AppFactuGES.CalidadesDocumentos; + AsignarVendedor; end; diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm index 0c2e219a..30c1e9b2 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm @@ -210,29 +210,29 @@ object RptPresupuestosCliente: TRptPresupuestosCliente 'ESTOS_CLIENTE.FECHA_VIGENCIA,'#10' V_PRESUPUESTOS_CLIENTE.FECHA_D' + 'ECISION,'#10' V_PRESUPUESTOS_CLIENTE.REFERENCIA,'#10#10' V_PRESUPUES' + 'TOS_CLIENTE.FORMA_PAGO,'#10' V_PRESUPUESTOS_CLIENTE.PLAZO_ENTREGA' + - ','#10' V_PRESUPUESTOS_CLIENTE.OBSERVACIONES,'#10#10' V_PRESUPUESTOS_' + - 'CLIENTE.IMPORTE_NETO, V_PRESUPUESTOS_CLIENTE.IMPORTE_PORTE,'#10' ' + - 'V_PRESUPUESTOS_CLIENTE.DESCUENTO, V_PRESUPUESTOS_CLIENTE.IMPORTE' + - '_DESCUENTO,'#10' V_PRESUPUESTOS_CLIENTE.BASE_IMPONIBLE, V_PRESUPU' + - 'ESTOS_CLIENTE.IVA,'#10' V_PRESUPUESTOS_CLIENTE.RE, V_PRESUPUESTOS' + - '_CLIENTE.IMPORTE_RE,'#10' V_PRESUPUESTOS_CLIENTE.ID_CLIENTE,'#10' ' + - 'V_PRESUPUESTOS_CLIENTE.NIF_CIF, CONTACTOS.REFERENCIA as REF_CLIE' + - 'NTE,'#10' V_PRESUPUESTOS_CLIENTE.NOMBRE,'#10' V_PRESUPUESTOS_CLIEN' + - 'TE.IMPORTE_IVA, V_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10' COALES' + - 'CE(CONTACTOS_DIRECCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' C' + - 'OALESCE(CONTACTOS_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS' + - ' POBLACION,'#10' COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTAC' + - 'TOS.PROVINCIA) AS PROVINCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.' + - 'CODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' CO' + - 'ALESCE(CONTACTOS_DIRECCIONES.TELEFONO, CONTACTOS.TELEFONO_1) AS ' + - 'TELEFONO,'#10' COALESCE(CONTACTOS_DIRECCIONES.MOVIL, CONTACTOS.MO' + - 'VIL_1) AS MOVIL,'#10' V_PRESUPUESTOS_CLIENTE.PERSONA_CONTACTO,'#10' ' + - ' V_PRESUPUESTOS_CLIENTE.VENDEDOR, V_PRESUPUESTOS_CLIENTE.NO_VAL' + - 'ORADO'#10'FROM'#10' V_PRESUPUESTOS_CLIENTE'#10' INNER JOIN CONTACTOS O' + - 'N (CONTACTOS.ID = V_PRESUPUESTOS_CLIENTE.ID_CLIENTE)'#10' LEFT OU' + - 'TER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = V_' + - 'PRESUPUESTOS_CLIENTE.ID_DIRECCION)'#10'WHERE'#10' V_PRESUPUESTOS_CLIE' + - 'NTE.ID = :ID'#10 + ','#10' V_PRESUPUESTOS_CLIENTE.OBSERVACIONES,'#10' V_PRESUPUESTOS_C' + + 'LIENTE.CALIDADES,'#10#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_NETO, V_PR' + + 'ESUPUESTOS_CLIENTE.IMPORTE_PORTE,'#10' V_PRESUPUESTOS_CLIENTE.DES' + + 'CUENTO, V_PRESUPUESTOS_CLIENTE.IMPORTE_DESCUENTO,'#10' V_PRESUPUE' + + 'STOS_CLIENTE.BASE_IMPONIBLE, V_PRESUPUESTOS_CLIENTE.IVA,'#10' V_P' + + 'RESUPUESTOS_CLIENTE.RE, V_PRESUPUESTOS_CLIENTE.IMPORTE_RE,'#10' V' + + '_PRESUPUESTOS_CLIENTE.ID_CLIENTE,'#10' V_PRESUPUESTOS_CLIENTE.NIF' + + '_CIF, CONTACTOS.REFERENCIA as REF_CLIENTE,'#10' V_PRESUPUESTOS_CL' + + 'IENTE.NOMBRE,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_IVA, V_PRESUPUE' + + 'STOS_CLIENTE.IMPORTE_TOTAL,'#10' COALESCE(CONTACTOS_DIRECCIONES.C' + + 'ALLE, CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CONTACTOS_DIRECCIO' + + 'NES.POBLACION, CONTACTOS.POBLACION) AS POBLACION,'#10' COALESCE(C' + + 'ONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVINCI' + + 'A,'#10' COALESCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTOS.C' + + 'ODIGO_POSTAL) AS CODIGO_POSTAL,'#10' COALESCE(CONTACTOS_DIRECCION' + + 'ES.TELEFONO, CONTACTOS.TELEFONO_1) AS TELEFONO,'#10' COALESCE(CON' + + 'TACTOS_DIRECCIONES.MOVIL, CONTACTOS.MOVIL_1) AS MOVIL,'#10' V_PRE' + + 'SUPUESTOS_CLIENTE.PERSONA_CONTACTO,'#10' V_PRESUPUESTOS_CLIENTE.V' + + 'ENDEDOR, V_PRESUPUESTOS_CLIENTE.NO_VALORADO'#10'FROM'#10' V_PRESUPUES' + + 'TOS_CLIENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = V_PRESUP' + + 'UESTOS_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCI' + + 'ONES ON (CONTACTOS_DIRECCIONES.ID = V_PRESUPUESTOS_CLIENTE.ID_DI' + + 'RECCION)'#10'WHERE'#10' V_PRESUPUESTOS_CLIENTE.ID = :ID'#10 StatementType = stSQL ColumnMappings = < item @@ -362,6 +362,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente item DatasetField = 'MOVIL' TableField = 'MOVIL' + end + item + DatasetField = 'CALIDADES' + TableField = 'CALIDADES' end> end> Name = 'Informe_Cabecera' @@ -401,6 +405,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente Name = 'PLAZO_ENTREGA' DataType = datMemo end + item + Name = 'CALIDADES' + DataType = datMemo + end item Name = 'OBSERVACIONES' DataType = datMemo @@ -876,7 +884,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 39065.872423495400000000 - ReportOptions.LastChange = 41156.501393946760000000 + ReportOptions.LastChange = 41589.784037662040000000 ScriptLanguage = 'PascalScript' ShowProgress = False StoreInDFM = False @@ -1063,7 +1071,8 @@ object RptPresupuestosCliente: TRptPresupuestosCliente Top = 128 end object IBDatabase1: TIBDatabase - DatabaseName = 'C:\Codigo Tecsitel\Output\Debug\Database\FACTUGES_PRODUCCION.FDB' + Connected = True + DatabaseName = 'C:\Codigo Acana\Output\Debug\Database\FACTUGES.FDB' Params.Strings = ( 'user_name=sysdba' 'password=masterkey' @@ -1074,6 +1083,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente Top = 296 end object IBTransaction1: TIBTransaction + Active = True Left = 48 Top = 352 end diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm index 292d4400..f60abee1 100644 --- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm +++ b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm @@ -328,10 +328,19 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente item DatasetField = 'TIPO_PRESUPUESTO' TableField = 'TIPO_PRESUPUESTO' + end + item + DatasetField = 'CALIDADES' + TableField = 'CALIDADES' end> end> Name = 'PresupuestosCliente' Fields = < + item + Name = 'CALIDADES' + DataType = datMemo + DisplayLabel = 'Calidades' + end item Name = 'ID' DataType = datAutoInc @@ -353,6 +362,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente item Name = 'FECHA_VIGENCIA' DataType = datDateTime + DictionaryEntry = 'PresupuestosCliente_FECHA_VIGENCIA' end item Name = 'FECHA_DECISION' @@ -379,6 +389,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente item Name = 'ID_DIRECCION' DataType = datInteger + DictionaryEntry = 'PresupuestosCliente_ID_DIRECCION' end item Name = 'NIF_CIF' @@ -398,14 +409,17 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Name = 'PERSONA_CONTACTO' DataType = datString Size = 255 + DictionaryEntry = 'PresupuestosCliente_PERSONA_CONTACTO' end item Name = 'FORMA_PAGO' DataType = datMemo + DictionaryEntry = 'PresupuestosCliente_FORMA_PAGO' end item Name = 'PLAZO_ENTREGA' DataType = datMemo + DictionaryEntry = 'PresupuestosCliente_PLAZO_ENTREGA' end item Name = 'OBSERVACIONES' @@ -466,6 +480,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente item Name = 'ID_TIPO_IVA' DataType = datInteger + DictionaryEntry = 'PresupuestosCliente_ID_TIPO_IVA' end item Name = 'IVA' @@ -480,14 +495,17 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente item Name = 'RE' DataType = datFloat + DictionaryEntry = 'PresupuestosCliente_RE' end item Name = 'IMPORTE_RE' DataType = datCurrency + DictionaryEntry = 'PresupuestosCliente_IMPORTE_RE' end item Name = 'RECARGO_EQUIVALENCIA' DataType = datSmallInt + DictionaryEntry = 'PresupuestosCliente_RECARGO_EQUIVALENCIA' end item Name = 'IMPORTE_TOTAL' @@ -502,33 +520,40 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente item Name = 'ID_TIENDA' DataType = datInteger + DictionaryEntry = 'PresupuestosCliente_ID_TIENDA' end item Name = 'TIENDA' DataType = datString Size = 255 + DictionaryEntry = 'PresupuestosCliente_TIENDA' end item Name = 'ID_VENDEDOR' DataType = datInteger + DictionaryEntry = 'PresupuestosCliente_ID_VENDEDOR' end item Name = 'VENDEDOR' DataType = datString Size = 255 + DictionaryEntry = 'PresupuestosCliente_VENDEDOR' end item Name = 'ID_CONTRATO' DataType = datInteger + DictionaryEntry = 'PresupuestosCliente_ID_CONTRATO' end item Name = 'REF_CONTRATO' DataType = datString Size = 255 + DictionaryEntry = 'PresupuestosCliente_REF_CONTRATO' end item Name = 'NO_VALORADO' DataType = datSmallInt + DictionaryEntry = 'PresupuestosCliente_NO_VALORADO' end item Name = 'TIPO_PRESUPUESTO' @@ -850,6 +875,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Commands = < item Params = < + item + Name = 'CALIDADES' + DataType = datMemo + Value = '' + end item Name = 'TIPO_PRESUPUESTO' DataType = datString @@ -1035,16 +1065,16 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente 'TO, IMPORTE_DESCUENTO, BASE_IMPONIBLE, ID_TIPO_IVA, IVA, IMPORTE' + '_IVA,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, IMPORTE_TOTAL, ' + 'ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,'#10' ID_CONTRATO, NO_VALO' + - 'RADO, TIPO_PRESUPUESTO)'#10' VALUES'#10' (:ID,'#10' :FECHA_PRESUPUES' + - 'TO, :FECHA_VIGENCIA, :FECHA_DECISION, :REFERENCIA,'#10' :SITUACI' + - 'ON, :ID_CLIENTE, :ID_DIRECCION, :PERSONA_CONTACTO,'#10' :FORMA_P' + - 'AGO, :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS,'#10' :INCIDEN' + - 'CIAS_ACTIVAS, CURRENT_TIMESTAMP, :USUARIO, :IMPORTE_NETO, :IMPOR' + - 'TE_PORTE,'#10' :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, ' + - ':ID_TIPO_IVA, :IVA, :IMPORTE_IVA,'#10' :RE, :IMPORTE_RE, :RECARG' + - 'O_EQUIVALENCIA, :IMPORTE_TOTAL, :ID_FORMA_PAGO, :ID_TIENDA, :ID_' + - 'VENDEDOR,'#10' :ID_CONTRATO, :NO_VALORADO, :TIPO_PRESUPUESTO)'#10' ' + - ' '#10#10#10#10#10 + 'RADO, TIPO_PRESUPUESTO, CALIDADES)'#10' VALUES'#10' (:ID,'#10' :FECH' + + 'A_PRESUPUESTO, :FECHA_VIGENCIA, :FECHA_DECISION, :REFERENCIA,'#10' ' + + ' :SITUACION, :ID_CLIENTE, :ID_DIRECCION, :PERSONA_CONTACTO,'#10' ' + + ' :FORMA_PAGO, :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS,'#10' ' + + ' :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP, :USUARIO, :IMPORTE_N' + + 'ETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_' + + 'IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA,'#10' :RE, :IMPORTE_' + + 'RE, :RECARGO_EQUIVALENCIA, :IMPORTE_TOTAL, :ID_FORMA_PAGO, :ID_T' + + 'IENDA, :ID_VENDEDOR,'#10' :ID_CONTRATO, :NO_VALORADO, :TIPO_PRES' + + 'UPUESTO, :CALIDADES)'#10' '#10#10#10#10#10 StatementType = stSQL ColumnMappings = <> end> @@ -1072,6 +1102,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente end item Params = < + item + Name = 'CALIDADES' + DataType = datMemo + Value = '' + end item Name = 'TIPO_PRESUPUESTO' DataType = datString @@ -1270,8 +1305,8 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente 'TE_TOTAL = :IMPORTE_TOTAL, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10 + ' ID_TIENDA = :ID_TIENDA,'#10' ID_VENDEDOR = :ID_VENDEDOR,'#10' ' + 'ID_CONTRATO = :ID_CONTRATO,'#10' NO_VALORADO = :NO_VALORADO,'#10' ' + - 'TIPO_PRESUPUESTO = :TIPO_PRESUPUESTO'#10' WHERE'#10' (ID = :OLD_ID)'#10 + - #10 + 'TIPO_PRESUPUESTO = :TIPO_PRESUPUESTO,'#10' CALIDADES = :CALIDADES' + + #10' WHERE'#10' (ID = :OLD_ID)'#10#10 StatementType = stSQL ColumnMappings = <> end> @@ -2015,6 +2050,75 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Name = 'PresupuestosCliente_Detalles_VISIBLE2' DataType = datInteger DisplayLabel = #191'Visible?' + end + item + Name = 'PresupuestosCliente_CALIDADES' + DataType = datMemo + BlobType = dabtBlob + DisplayLabel = 'Calidades' + end + item + Name = 'PresupuestosCliente_FECHA_VIGENCIA' + DataType = datDateTime + end + item + Name = 'PresupuestosCliente_ID_DIRECCION' + DataType = datInteger + end + item + Name = 'PresupuestosCliente_FORMA_PAGO' + DataType = datMemo + end + item + Name = 'PresupuestosCliente_PLAZO_ENTREGA' + DataType = datMemo + end + item + Name = 'PresupuestosCliente_ID_TIPO_IVA' + DataType = datInteger + end + item + Name = 'PresupuestosCliente_RE' + DataType = datFloat + end + item + Name = 'PresupuestosCliente_IMPORTE_RE' + DataType = datCurrency + end + item + Name = 'PresupuestosCliente_RECARGO_EQUIVALENCIA' + DataType = datSmallInt + end + item + Name = 'PresupuestosCliente_ID_TIENDA' + DataType = datInteger + end + item + Name = 'PresupuestosCliente_TIENDA' + DataType = datString + Size = 255 + end + item + Name = 'PresupuestosCliente_ID_VENDEDOR' + DataType = datInteger + end + item + Name = 'PresupuestosCliente_VENDEDOR' + DataType = datString + Size = 255 + end + item + Name = 'PresupuestosCliente_ID_CONTRATO' + DataType = datInteger + end + item + Name = 'PresupuestosCliente_REF_CONTRATO' + DataType = datString + Size = 255 + end + item + Name = 'PresupuestosCliente_NO_VALORADO' + DataType = datSmallInt end> Left = 48 Top = 152 diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm index 810b190e..3d7c0123 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm @@ -2,11 +2,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente Left = 332 Top = 147 Caption = 'Nuevo presupuesto de cliente' - ClientHeight = 676 + ClientHeight = 801 ClientWidth = 848 OnClose = CustomEditorClose ExplicitWidth = 856 - ExplicitHeight = 710 + ExplicitHeight = 835 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -165,7 +165,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente end end inherited StatusBar: TJvStatusBar - Top = 657 + Top = 782 Width = 848 Panels = < item @@ -176,8 +176,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente end inherited pgPaginas: TPageControl Width = 842 - Height = 317 - ActivePage = pagContenido + Height = 442 + ActivePage = pagCalidades TabOrder = 1 OnChanging = pgPaginasChanging ExplicitWidth = 842 @@ -191,11 +191,12 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente object pagContenido: TTabSheet Caption = 'Contenido' ImageIndex = 1 + ExplicitHeight = 289 inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente Left = 0 Top = 0 Width = 834 - Height = 289 + Height = 414 Align = alClient BiDiMode = bdLeftToRight Font.Charset = DEFAULT_CHARSET @@ -213,30 +214,21 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente Width = 834 Height = 24 ExplicitWidth = 834 - inherited ToolButton14: TToolButton [1] - Left = 109 - Top = 0 - Enabled = True - ExplicitLeft = 109 - ExplicitTop = 0 - end - inherited ToolButton2: TToolButton [2] - Left = 143 - end - inherited FontName: TJvFontComboBox [3] - Left = 257 - Top = 0 - ExplicitLeft = 257 - ExplicitTop = 0 - end - inherited ToolButton3: TToolButton [4] - Left = 402 - ExplicitLeft = 402 - end - inherited ToolButton4: TToolButton [5] - Left = 457 + ExplicitHeight = 24 + inherited ToolButton4: TToolButton Wrap = False - ExplicitLeft = 457 + end + inherited ToolButton14: TToolButton + Left = 334 + Top = 0 + ExplicitLeft = 334 + ExplicitTop = 0 + end + inherited FontName: TJvFontComboBox + Left = 368 + Top = 0 + ExplicitLeft = 368 + ExplicitTop = 0 end inherited FontSize: TEdit Left = 513 @@ -247,77 +239,78 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente ExplicitWidth = 58 end inherited UpDown1: TUpDown - Left = 571 + Left = 587 Top = 0 - ExplicitLeft = 571 + ExplicitLeft = 587 ExplicitTop = 0 end inherited ToolButton13: TToolButton - Left = 588 + Left = 604 Top = 0 - ExplicitLeft = 588 + ExplicitLeft = 604 ExplicitTop = 0 end inherited ToolButton6: TToolButton - Left = 596 + Left = 612 Top = 0 - ExplicitLeft = 596 + ExplicitLeft = 612 ExplicitTop = 0 end inherited ToolButton7: TToolButton - Left = 630 + Left = 646 Top = 0 - ExplicitLeft = 630 + ExplicitLeft = 646 ExplicitTop = 0 end inherited ToolButton8: TToolButton - Left = 664 + Left = 680 Top = 0 - ExplicitLeft = 664 + ExplicitLeft = 680 ExplicitTop = 0 end inherited ToolButton12: TToolButton - Left = 698 + Left = 714 Top = 0 - ExplicitLeft = 698 + ExplicitLeft = 714 ExplicitTop = 0 end inherited ToolButton9: TToolButton - Left = 706 + Left = 722 Top = 0 - ExplicitLeft = 706 + ExplicitLeft = 722 ExplicitTop = 0 end inherited ToolButton10: TToolButton - Left = 740 + Left = 756 Top = 0 - ExplicitLeft = 740 + ExplicitLeft = 756 ExplicitTop = 0 end inherited ToolButton11: TToolButton - Left = 774 + Left = 790 Top = 0 - ExplicitLeft = 774 + ExplicitLeft = 790 ExplicitTop = 0 end end inherited cxGrid: TcxGrid Top = 50 Width = 834 - Height = 239 + Height = 364 + ExplicitTop = 50 ExplicitWidth = 834 ExplicitHeight = 239 end inherited TBXDock1: TTBXDock Top = 24 Width = 834 + ExplicitTop = 24 ExplicitWidth = 834 inherited TBXToolbar1: TTBXToolbar ExplicitWidth = 663 end end inherited cxLookupComboBox1: TcxLookupComboBox - Properties.OnCloseUp = nil Style.IsFontAssigned = True end inherited cxRichEdit1: TcxRichEdit @@ -328,14 +321,64 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente end end end + object pagCalidades: TTabSheet + Caption = 'Calidades' + ImageIndex = 4 + ExplicitHeight = 289 + object dxLayoutControl1: TdxLayoutControl + Left = 0 + Top = 0 + Width = 834 + Height = 414 + Align = alClient + TabOrder = 0 + TabStop = False + AutoContentSizes = [acsWidth, acsHeight] + ExplicitHeight = 289 + object memCalidades: TcxDBMemo + Left = 10 + Top = 10 + Align = alClient + DataBinding.DataField = 'CALIDADES' + DataBinding.DataSource = dsDataTable + Properties.ScrollBars = ssVertical + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 0 + Height = 247 + Width = 799 + end + object dxLayoutGroup1: TdxLayoutGroup + ShowCaption = False + Hidden = True + ShowBorder = False + object dxLayoutItem1: TdxLayoutItem + AutoAligns = [aaHorizontal] + AlignVert = avClient + Control = memCalidades + ControlOptions.ShowBorder = False + end + end + end + end object pagInicidencias: TTabSheet Caption = 'Incidencias' ImageIndex = 2 + ExplicitHeight = 289 inline frViewIncidenciasCli: TfrViewIncidencias Left = 0 Top = 0 Width = 834 - Height = 289 + Height = 414 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -356,13 +399,13 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente end inherited GroupBox1: TGroupBox Width = 834 - Height = 261 + Height = 386 ExplicitWidth = 834 ExplicitHeight = 261 inherited eIncidencias: TcxDBMemo ExplicitWidth = 830 ExplicitHeight = 244 - Height = 244 + Height = 369 Width = 830 end end @@ -371,11 +414,12 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente object pagDocumentos: TTabSheet Caption = 'Documentos' ImageIndex = 5 + ExplicitHeight = 289 inline frViewDocumentosPresupuestoCliente1: TfrViewDocumentosPresupuestoCliente Left = 0 Top = 0 Width = 834 - Height = 289 + Height = 414 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -393,7 +437,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente end inherited ListView1: TListView Width = 834 - Height = 266 + Height = 391 ExplicitWidth = 834 ExplicitHeight = 266 end @@ -414,7 +458,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente end inline frViewTotales1: TfrViewTotalesPresupuesto [5] Left = 0 - Top = 429 + Top = 554 Width = 848 Height = 228 Align = alBottom @@ -434,16 +478,18 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente LookAndFeel = dxLayoutOfficeLookAndFeel1 ExplicitWidth = 848 inherited Bevel3: TBevel - Left = 310 + Left = 352 Top = 57 - ExplicitLeft = 310 + Height = 122 + ExplicitLeft = 352 ExplicitTop = 57 + ExplicitHeight = 122 end inherited Bevel4: TBevel - Left = 422 + Left = 464 Top = 88 Width = 342 - ExplicitLeft = 422 + ExplicitLeft = 464 ExplicitTop = 88 ExplicitWidth = 342 end @@ -451,20 +497,26 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente Top = 84 Style.IsFontAssigned = True ExplicitTop = 84 + ExplicitWidth = 93 + Width = 93 end inherited ImporteIVA: TcxDBCurrencyEdit - Left = 493 + Left = 535 Top = 108 Style.IsFontAssigned = True - ExplicitLeft = 493 + ExplicitLeft = 535 ExplicitTop = 108 + ExplicitWidth = 137 + Width = 137 end inherited ImporteTotal: TcxDBCurrencyEdit - Left = 423 + Left = 465 Top = 162 Style.IsFontAssigned = True - ExplicitLeft = 423 + ExplicitLeft = 465 ExplicitTop = 162 + ExplicitWidth = 137 + Width = 137 end inherited edtDescuento: TcxDBSpinEdit Top = 84 @@ -472,57 +524,69 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente ExplicitTop = 84 end inherited edtIVA: TcxDBSpinEdit - Left = 422 + Left = 464 Top = 108 Style.IsFontAssigned = True - ExplicitLeft = 422 + ExplicitLeft = 464 ExplicitTop = 108 end inherited ImporteBase: TcxDBCurrencyEdit - Left = 422 + Left = 464 Top = 57 Style.IsFontAssigned = True - ExplicitLeft = 422 + ExplicitLeft = 464 ExplicitTop = 57 + ExplicitWidth = 92 + Width = 92 end inherited edtRE: TcxDBSpinEdit - Left = 422 + Left = 464 Top = 135 Style.IsFontAssigned = True - ExplicitLeft = 422 + ExplicitLeft = 464 ExplicitTop = 135 end inherited ImporteRE: TcxDBCurrencyEdit - Left = 493 + Left = 535 Top = 135 Style.IsFontAssigned = True - ExplicitLeft = 493 + ExplicitLeft = 535 ExplicitTop = 135 + ExplicitWidth = 56 + Width = 56 end inherited eImporteNeto: TcxDBCurrencyEdit Top = 57 Style.IsFontAssigned = True ExplicitTop = 57 + ExplicitWidth = 147 + Width = 147 end inherited ePorte: TcxDBCurrencyEdit Top = 111 Style.IsFontAssigned = True ExplicitTop = 111 + ExplicitWidth = 147 + Width = 147 end inherited eIVA: TcxDBLookupComboBox Top = 138 ExplicitTop = 138 + ExplicitWidth = 81 + Width = 81 end inherited bTiposIVA: TButton - Left = 162 + Left = 204 Top = 138 OnClick = frViewTotales1bTiposIVAClick - ExplicitLeft = 162 + ExplicitLeft = 204 ExplicitTop = 138 end inherited cbRecargoEquivalencia: TcxDBCheckBox Top = 165 ExplicitTop = 165 + ExplicitWidth = 219 + Width = 219 end inherited cbValorado: TcxDBCheckBox Left = 11 diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas index 8fa4dff1..c5483d3e 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas @@ -20,7 +20,7 @@ uses uViewDocumentos, uViewDocumentosPresupuestoCliente, uViewDatosYSeleccionClientePresupuesto, cxLabel, uBizTiposIVA, uTiposIVAController, uViewTotalesPresupuesto, DBCtrls, - cxGraphics, cxMaskEdit, cxDropDownEdit; + cxGraphics, cxMaskEdit, cxDropDownEdit, dxLayoutControl; type TfEditorPresupuestoCliente = class(TfEditorDBItem, IEditorPresupuestoCliente) @@ -39,6 +39,11 @@ type frViewDocumentosPresupuestoCliente1: TfrViewDocumentosPresupuestoCliente; frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente; frViewTotales1: TfrViewTotalesPresupuesto; + pagCalidades: TTabSheet; + dxLayoutControl1: TdxLayoutControl; + memCalidades: TcxDBMemo; + dxLayoutGroup1: TdxLayoutGroup; + dxLayoutItem1: TdxLayoutItem; procedure FormShow(Sender: TObject); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocArmario.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocArmario.dfm index 5f733ce8..a598167f 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocArmario.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocArmario.dfm @@ -1,33 +1,25 @@ inherited frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario - Width = 566 - Height = 494 inherited Panel1: TPanel - Width = 556 TabOrder = 1 inherited Label3: TLabel - Width = 544 + Width = 429 Visible = False end end inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel - Width = 566 LabelCaption = 'Configuraci'#243'n de los documentos de armario' TabOrder = 0 end object Paginas: TPageControl Left = 0 Top = 68 - Width = 566 - Height = 426 + Width = 451 + Height = 236 ActivePage = pagNotas Align = alClient TabOrder = 2 - ExplicitWidth = 451 - ExplicitHeight = 236 object pagNotas: TTabSheet Caption = 'Notas' - ExplicitWidth = 443 - ExplicitHeight = 208 object Label1: TLabel Left = 11 Top = 22 @@ -87,13 +79,11 @@ inherited frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario object pagCapituloFrente: TTabSheet Caption = 'Cap'#237'tulo frente' ImageIndex = 1 - ExplicitWidth = 443 - ExplicitHeight = 208 inline frViewConfiguracionCapituloFrente: TfrViewConfiguracionCapitulo Left = 0 Top = 0 - Width = 558 - Height = 398 + Width = 443 + Height = 208 Align = alClient BiDiMode = bdLeftToRight Font.Charset = DEFAULT_CHARSET @@ -108,58 +98,101 @@ inherited frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario ExplicitWidth = 443 ExplicitHeight = 208 inherited ToolBar1: TToolBar - Width = 558 + Width = 443 + Height = 73 ExplicitWidth = 443 + ExplicitHeight = 73 + inherited ToolButton3: TToolButton + Wrap = True + end + inherited ToolButton4: TToolButton + Left = 0 + Top = 22 + Wrap = False + ExplicitLeft = 0 + ExplicitTop = 22 + end + inherited ToolButton14: TToolButton + Left = 56 + ExplicitLeft = 56 + end + inherited FontName: TJvFontComboBox + Left = 90 + ExplicitLeft = 90 + end inherited FontSize: TEdit - Width = 58 - ExplicitWidth = 58 + Left = 235 + Width = 74 + ExplicitLeft = 235 + ExplicitWidth = 74 end inherited UpDown1: TUpDown - Left = 237 - ExplicitLeft = 237 + Left = 309 + ExplicitLeft = 309 end inherited ToolButton13: TToolButton - Left = 254 - ExplicitLeft = 254 + Left = 0 + Wrap = True + ExplicitLeft = 0 + ExplicitHeight = 27 end inherited ToolButton6: TToolButton - Left = 262 - ExplicitLeft = 262 + Left = 0 + Top = 49 + ExplicitLeft = 0 + ExplicitTop = 49 end inherited ToolButton7: TToolButton - Left = 296 - ExplicitLeft = 296 + Left = 34 + Top = 49 + ExplicitLeft = 34 + ExplicitTop = 49 end inherited ToolButton8: TToolButton - Left = 330 - ExplicitLeft = 330 + Left = 68 + Top = 49 + ExplicitLeft = 68 + ExplicitTop = 49 end inherited ToolButton12: TToolButton - Left = 364 - ExplicitLeft = 364 + Left = 102 + Top = 49 + ExplicitLeft = 102 + ExplicitTop = 49 end inherited ToolButton9: TToolButton - Left = 372 - ExplicitLeft = 372 + Left = 110 + Top = 49 + ExplicitLeft = 110 + ExplicitTop = 49 end inherited ToolButton10: TToolButton - Left = 406 - ExplicitLeft = 406 + Left = 144 + Top = 49 + ExplicitLeft = 144 + ExplicitTop = 49 end inherited ToolButton11: TToolButton - Left = 440 - ExplicitLeft = 440 + Left = 178 + Top = 49 + ExplicitLeft = 178 + ExplicitTop = 49 end end inherited cxGrid: TcxGrid - Width = 558 - Height = 326 + Top = 99 + Width = 443 + Height = 109 ExplicitWidth = 443 ExplicitHeight = 136 end inherited TBXDock1: TTBXDock - Width = 558 + Top = 73 + Width = 443 ExplicitWidth = 443 + inherited TBXToolbar1: TTBXToolbar + ExplicitWidth = 443 + end end inherited cxLookupComboBox: TcxLookupComboBox Style.IsFontAssigned = True @@ -169,13 +202,11 @@ inherited frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario object pagCapituloInterior: TTabSheet Caption = 'Cap'#237'tulo interior' ImageIndex = 2 - ExplicitWidth = 443 - ExplicitHeight = 208 inline frViewConfiguracionCapituloInterior: TfrViewConfiguracionCapitulo Left = 0 Top = 0 - Width = 558 - Height = 398 + Width = 443 + Height = 208 Align = alClient BiDiMode = bdLeftToRight Font.Charset = DEFAULT_CHARSET @@ -190,69 +221,105 @@ inherited frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario ExplicitWidth = 443 ExplicitHeight = 208 inherited ToolBar1: TToolBar - Width = 558 + Width = 443 ExplicitWidth = 443 + inherited ToolButton4: TToolButton + Wrap = False + end + inherited ToolButton14: TToolButton + Left = 334 + Top = 0 + Wrap = True + ExplicitLeft = 334 + ExplicitTop = 0 + end + inherited FontName: TJvFontComboBox + Left = 0 + ExplicitLeft = 0 + end inherited FontSize: TEdit + Left = 145 Width = 58 + ExplicitLeft = 145 ExplicitWidth = 58 end inherited UpDown1: TUpDown - Left = 237 - ExplicitLeft = 237 + Left = 203 + ExplicitLeft = 203 end inherited ToolButton13: TToolButton - Left = 254 - ExplicitLeft = 254 + Left = 220 + ExplicitLeft = 220 end inherited ToolButton6: TToolButton + Left = 228 + ExplicitLeft = 228 + end + inherited ToolButton7: TToolButton Left = 262 ExplicitLeft = 262 end - inherited ToolButton7: TToolButton + inherited ToolButton8: TToolButton Left = 296 ExplicitLeft = 296 end - inherited ToolButton8: TToolButton + inherited ToolButton12: TToolButton Left = 330 ExplicitLeft = 330 end - inherited ToolButton12: TToolButton - Left = 364 - ExplicitLeft = 364 - end inherited ToolButton9: TToolButton + Left = 338 + ExplicitLeft = 338 + end + inherited ToolButton10: TToolButton Left = 372 ExplicitLeft = 372 end - inherited ToolButton10: TToolButton + inherited ToolButton11: TToolButton Left = 406 ExplicitLeft = 406 end - inherited ToolButton11: TToolButton - Left = 440 - ExplicitLeft = 440 - end end inherited cxGrid: TcxGrid - Width = 558 - Height = 326 + Width = 443 + Height = 136 ExplicitWidth = 443 ExplicitHeight = 136 end inherited TBXDock1: TTBXDock - Width = 558 + Width = 443 ExplicitWidth = 443 + inherited TBXToolbar1: TTBXToolbar + ExplicitWidth = 443 + end end inherited cxLookupComboBox: TcxLookupComboBox Style.IsFontAssigned = True end end end + object pagCalidades: TTabSheet + Caption = 'Calidades' + ImageIndex = 4 + object eCalidades: TcxRichEdit + Left = 0 + Top = 0 + Align = alClient + Properties.ScrollBars = ssVertical + Lines.Strings = ( + 'eCondiciones') + TabOrder = 0 + Height = 208 + Width = 443 + end + end object pagCondiciones: TTabSheet Caption = 'Condiciones' ImageIndex = 3 - ExplicitWidth = 443 - ExplicitHeight = 208 + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object eCondiciones: TcxRichEdit Left = 0 Top = 0 @@ -261,10 +328,8 @@ inherited frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario Lines.Strings = ( 'eCondiciones') TabOrder = 0 - ExplicitWidth = 443 - ExplicitHeight = 208 - Height = 398 - Width = 558 + Height = 208 + Width = 443 end end end diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocArmario.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocArmario.pas index 0cfd41fa..21b97db8 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocArmario.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocArmario.pas @@ -25,6 +25,8 @@ type frViewConfiguracionCapituloInterior: TfrViewConfiguracionCapitulo; pagCondiciones: TTabSheet; eCondiciones: TcxRichEdit; + pagCalidades: TTabSheet; + eCalidades: TcxRichEdit; public class function GetViewClass : TClass; override; class function DarEtiqueta : String; override; @@ -51,6 +53,10 @@ begin ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_ARMARIO); eObservaciones.Lines.Clear; eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ARMARIO); + + eCalidades.Lines.Clear; + eCalidades.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CALIDADES_ARMARIO); + eCondiciones.Lines.Clear; eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_ARMARIO); @@ -79,6 +85,7 @@ begin AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ARMARIO, ePlazosEntrega.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_ARMARIO, eObservaciones.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_ARMARIO, eCondiciones.Text); + AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CALIDADES_ARMARIO, eCalidades.Text); frViewConfiguracionCapituloFrente.Detalles.DataTable.ApplyUpdates; frViewConfiguracionCapituloInterior.Detalles.DataTable.ApplyUpdates; diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocBano.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocBano.dfm index 4c57b72e..0a749198 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocBano.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocBano.dfm @@ -1,33 +1,28 @@ inherited frViewConfiguracionDocBANO: TfrViewConfiguracionDocBANO - Width = 554 - Height = 486 inherited Panel1: TPanel - Width = 544 TabOrder = 1 inherited Label3: TLabel - Width = 532 + Width = 429 Visible = False + ExplicitLeft = 10 + ExplicitTop = 5 + ExplicitWidth = 429 end end inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel - Width = 554 LabelCaption = 'Configuraci'#243'n de los documentos de ba'#241'o' TabOrder = 0 end object paginas: TPageControl Left = 0 Top = 68 - Width = 554 - Height = 418 + Width = 451 + Height = 236 ActivePage = pagNotas Align = alClient TabOrder = 2 - ExplicitWidth = 451 - ExplicitHeight = 236 object pagNotas: TTabSheet Caption = 'Notas' - ExplicitWidth = 443 - ExplicitHeight = 208 object Label1: TLabel Left = 11 Top = 16 @@ -83,13 +78,11 @@ inherited frViewConfiguracionDocBANO: TfrViewConfiguracionDocBANO object pagCapitulo: TTabSheet Caption = 'Cap'#237'tulo' ImageIndex = 1 - ExplicitWidth = 443 - ExplicitHeight = 208 inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo Left = 0 Top = 0 - Width = 546 - Height = 390 + Width = 443 + Height = 208 Align = alClient BiDiMode = bdLeftToRight Font.Charset = DEFAULT_CHARSET @@ -104,69 +97,129 @@ inherited frViewConfiguracionDocBANO: TfrViewConfiguracionDocBANO ExplicitWidth = 443 ExplicitHeight = 208 inherited ToolBar1: TToolBar - Width = 546 + Width = 443 + Height = 73 ExplicitWidth = 443 + ExplicitHeight = 73 + inherited ToolButton3: TToolButton + Wrap = True + end + inherited ToolButton4: TToolButton + Left = 0 + Top = 22 + Wrap = False + ExplicitLeft = 0 + ExplicitTop = 22 + end + inherited ToolButton14: TToolButton + Left = 56 + ExplicitLeft = 56 + end + inherited FontName: TJvFontComboBox + Left = 90 + ExplicitLeft = 90 + end inherited FontSize: TEdit - Width = 58 - ExplicitWidth = 58 + Left = 235 + Width = 90 + ExplicitLeft = 235 + ExplicitWidth = 90 end - inherited UpDown1: TUpDown - Left = 237 - ExplicitLeft = 237 + inherited ToolButton13: TToolButton [7] + Left = 0 + Wrap = True + ExplicitLeft = 0 + ExplicitHeight = 27 end - inherited ToolButton13: TToolButton - Left = 254 - ExplicitLeft = 254 + inherited UpDown1: TUpDown [8] + Left = 0 + Top = 49 + ExplicitLeft = 0 + ExplicitTop = 49 end inherited ToolButton6: TToolButton - Left = 262 - ExplicitLeft = 262 + Left = 17 + Top = 49 + ExplicitLeft = 17 + ExplicitTop = 49 end inherited ToolButton7: TToolButton - Left = 296 - ExplicitLeft = 296 + Left = 51 + Top = 49 + ExplicitLeft = 51 + ExplicitTop = 49 end inherited ToolButton8: TToolButton - Left = 330 - ExplicitLeft = 330 + Left = 85 + Top = 49 + ExplicitLeft = 85 + ExplicitTop = 49 end inherited ToolButton12: TToolButton - Left = 364 - ExplicitLeft = 364 + Left = 119 + Top = 49 + ExplicitLeft = 119 + ExplicitTop = 49 end inherited ToolButton9: TToolButton - Left = 372 - ExplicitLeft = 372 + Left = 127 + Top = 49 + ExplicitLeft = 127 + ExplicitTop = 49 end inherited ToolButton10: TToolButton - Left = 406 - ExplicitLeft = 406 + Left = 161 + Top = 49 + ExplicitLeft = 161 + ExplicitTop = 49 end inherited ToolButton11: TToolButton - Left = 440 - ExplicitLeft = 440 + Left = 195 + Top = 49 + ExplicitLeft = 195 + ExplicitTop = 49 end end inherited cxGrid: TcxGrid - Width = 546 - Height = 318 + Top = 99 + Width = 443 + Height = 109 + ExplicitTop = 99 ExplicitWidth = 443 - ExplicitHeight = 136 + ExplicitHeight = 109 end inherited TBXDock1: TTBXDock - Width = 546 + Top = 73 + Width = 443 + ExplicitTop = 73 ExplicitWidth = 443 + inherited TBXToolbar1: TTBXToolbar + ExplicitWidth = 443 + end end inherited cxLookupComboBox: TcxLookupComboBox Style.IsFontAssigned = True end end end + object pagCalidades: TTabSheet + Caption = 'Calidades' + ImageIndex = 3 + object eCalidades: TcxRichEdit + Left = 0 + Top = 0 + Align = alClient + Properties.ScrollBars = ssVertical + Lines.Strings = ( + 'eCondiciones') + TabOrder = 0 + Height = 208 + Width = 443 + end + end object pagCondiciones: TTabSheet Caption = 'Condiciones' ImageIndex = 2 - ExplicitWidth = 443 - ExplicitHeight = 208 object eCondiciones: TcxRichEdit Left = 0 Top = 0 @@ -175,9 +228,8 @@ inherited frViewConfiguracionDocBANO: TfrViewConfiguracionDocBANO Lines.Strings = ( 'eCondiciones') TabOrder = 0 - ExplicitLeft = 1 - Height = 390 - Width = 546 + Height = 208 + Width = 443 end end end diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocBano.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocBano.pas index 48cea130..78151d3d 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocBano.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocBano.pas @@ -23,6 +23,8 @@ type frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo; pagCondiciones: TTabSheet; eCondiciones: TcxRichEdit; + pagCalidades: TTabSheet; + eCalidades: TcxRichEdit; public class function GetViewClass : TClass; override; class function DarEtiqueta : String; override; @@ -49,6 +51,10 @@ begin ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_BANO); eObservaciones.Lines.Clear; eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_BANO); + + eCalidades.Lines.Clear; + eCalidades.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CALIDADES_BANO); + eCondiciones.Lines.Clear; eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_BANO); @@ -73,6 +79,7 @@ begin AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_BANO, ePlazosEntrega.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_BANO, eObservaciones.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_BANO, eCondiciones.Text); + AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CALIDADES_BANO, eCalidades.Text); frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates; end; diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocCocina.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocCocina.dfm index 08d97c6c..0aaac328 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocCocina.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocCocina.dfm @@ -1,33 +1,25 @@ inherited frViewConfiguracionDocCocina: TfrViewConfiguracionDocCocina - Width = 561 - Height = 490 inherited Panel1: TPanel - Width = 551 TabOrder = 1 inherited Label3: TLabel - Width = 539 + Width = 429 Visible = False end end inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel - Width = 561 LabelCaption = 'Configuraci'#243'n de los documentos de cocina' TabOrder = 0 end object Paginas: TPageControl Left = 0 Top = 68 - Width = 561 - Height = 422 + Width = 451 + Height = 236 ActivePage = pagNotas Align = alClient TabOrder = 2 - ExplicitWidth = 684 - ExplicitHeight = 540 object pagNotas: TTabSheet Caption = 'Notas' - ExplicitWidth = 676 - ExplicitHeight = 512 object Label1: TLabel Left = 11 Top = 23 @@ -83,13 +75,11 @@ inherited frViewConfiguracionDocCocina: TfrViewConfiguracionDocCocina object pagCapitulo: TTabSheet Caption = 'Cap'#237'tulo' ImageIndex = 1 - ExplicitWidth = 443 - ExplicitHeight = 208 inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo Left = 0 Top = 0 - Width = 553 - Height = 394 + Width = 443 + Height = 208 Align = alClient BiDiMode = bdLeftToRight Font.Charset = DEFAULT_CHARSET @@ -104,69 +94,131 @@ inherited frViewConfiguracionDocCocina: TfrViewConfiguracionDocCocina ExplicitWidth = 443 ExplicitHeight = 208 inherited ToolBar1: TToolBar - Width = 553 + Width = 443 + Height = 73 ExplicitWidth = 443 + ExplicitHeight = 73 + inherited ToolButton3: TToolButton + Wrap = True + end + inherited ToolButton4: TToolButton + Left = 0 + Top = 22 + Wrap = False + ExplicitLeft = 0 + ExplicitTop = 22 + end + inherited ToolButton14: TToolButton + Left = 56 + ExplicitLeft = 56 + end + inherited FontName: TJvFontComboBox + Left = 90 + ExplicitLeft = 90 + end inherited FontSize: TEdit - Width = 58 - ExplicitWidth = 58 + Left = 235 + Width = 74 + ExplicitLeft = 235 + ExplicitWidth = 74 end inherited UpDown1: TUpDown - Left = 237 - ExplicitLeft = 237 + Left = 309 + ExplicitLeft = 309 end inherited ToolButton13: TToolButton - Left = 254 - ExplicitLeft = 254 + Left = 0 + Wrap = True + ExplicitLeft = 0 + ExplicitHeight = 27 end inherited ToolButton6: TToolButton - Left = 262 - ExplicitLeft = 262 + Left = 0 + Top = 49 + ExplicitLeft = 0 + ExplicitTop = 49 end inherited ToolButton7: TToolButton - Left = 296 - ExplicitLeft = 296 + Left = 34 + Top = 49 + ExplicitLeft = 34 + ExplicitTop = 49 end inherited ToolButton8: TToolButton - Left = 330 - ExplicitLeft = 330 + Left = 68 + Top = 49 + ExplicitLeft = 68 + ExplicitTop = 49 end inherited ToolButton12: TToolButton - Left = 364 - ExplicitLeft = 364 + Left = 102 + Top = 49 + ExplicitLeft = 102 + ExplicitTop = 49 end inherited ToolButton9: TToolButton - Left = 372 - ExplicitLeft = 372 + Left = 110 + Top = 49 + ExplicitLeft = 110 + ExplicitTop = 49 end inherited ToolButton10: TToolButton - Left = 406 - ExplicitLeft = 406 + Left = 144 + Top = 49 + ExplicitLeft = 144 + ExplicitTop = 49 end inherited ToolButton11: TToolButton - Left = 440 - ExplicitLeft = 440 + Left = 178 + Top = 49 + ExplicitLeft = 178 + ExplicitTop = 49 end end inherited cxGrid: TcxGrid - Width = 553 - Height = 322 + Top = 99 + Width = 443 + Height = 109 + ExplicitTop = 99 ExplicitWidth = 443 - ExplicitHeight = 136 + ExplicitHeight = 109 end inherited TBXDock1: TTBXDock - Width = 553 + Top = 73 + Width = 443 + ExplicitTop = 73 ExplicitWidth = 443 + inherited TBXToolbar1: TTBXToolbar + ExplicitWidth = 443 + end end inherited cxLookupComboBox: TcxLookupComboBox Style.IsFontAssigned = True end end end + object pagCalidades: TTabSheet + Caption = 'Calidades' + ImageIndex = 3 + object eCalidades: TcxRichEdit + Left = 0 + Top = 0 + Align = alClient + Properties.ScrollBars = ssVertical + Lines.Strings = ( + 'eCondiciones') + TabOrder = 0 + Height = 208 + Width = 443 + end + end object pagCondiciones: TTabSheet Caption = 'Condiciones contrato' ImageIndex = 2 - ExplicitWidth = 676 - ExplicitHeight = 512 + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object eCondiciones: TcxRichEdit Left = 0 Top = 0 @@ -175,12 +227,8 @@ inherited frViewConfiguracionDocCocina: TfrViewConfiguracionDocCocina Lines.Strings = ( 'eCondiciones') TabOrder = 0 - ExplicitLeft = 11 - ExplicitTop = 392 - ExplicitWidth = 529 - ExplicitHeight = 57 - Height = 394 - Width = 553 + Height = 208 + Width = 443 end end end diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocCocina.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocCocina.pas index cde6173a..ac3ba374 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocCocina.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocCocina.pas @@ -23,6 +23,8 @@ type frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo; pagCondiciones: TTabSheet; eCondiciones: TcxRichEdit; + pagCalidades: TTabSheet; + eCalidades: TcxRichEdit; public class function GetViewClass : TClass; override; class function DarEtiqueta : String; override; @@ -46,6 +48,10 @@ begin ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_COCINA); eObservaciones.Lines.Clear; eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_COCINA); + + eCalidades.Lines.Clear; + eCalidades.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CALIDADES_COCINA); + eCondiciones.Lines.Clear; eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_COCINA); @@ -70,6 +76,7 @@ begin AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA, ePlazosEntrega.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA, eObservaciones.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_COCINA, eCondiciones.Text); + AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CALIDADES_COCINA, eCalidades.Text); frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates; end; diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocElectrodomestico.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocElectrodomestico.dfm index d36d1fbe..3d40c4d9 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocElectrodomestico.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocElectrodomestico.dfm @@ -1,33 +1,26 @@ inherited frViewConfiguracionDocElectrodomestico: TfrViewConfiguracionDocElectrodomestico - Width = 554 - Height = 492 inherited Panel1: TPanel - Width = 544 TabOrder = 1 + Visible = False inherited Label3: TLabel - Width = 532 + Width = 429 Visible = False end end inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel - Width = 554 LabelCaption = 'Configuraci'#243'n de los documentos de electrodom'#233'sticos' TabOrder = 0 end object Paginas: TPageControl Left = 0 Top = 68 - Width = 554 - Height = 424 + Width = 451 + Height = 236 ActivePage = pagNotas Align = alClient TabOrder = 2 - ExplicitWidth = 612 - ExplicitHeight = 526 object pagNotas: TTabSheet Caption = 'Notas' - ExplicitWidth = 443 - ExplicitHeight = 208 object Label1: TLabel Left = 11 Top = 20 @@ -83,13 +76,11 @@ inherited frViewConfiguracionDocElectrodomestico: TfrViewConfiguracionDocElectro object pagCapitulo: TTabSheet Caption = 'Cap'#237'tulo' ImageIndex = 1 - ExplicitWidth = 443 - ExplicitHeight = 208 inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo Left = 0 Top = 0 - Width = 546 - Height = 396 + Width = 443 + Height = 208 Align = alClient BiDiMode = bdLeftToRight Font.Charset = DEFAULT_CHARSET @@ -104,69 +95,129 @@ inherited frViewConfiguracionDocElectrodomestico: TfrViewConfiguracionDocElectro ExplicitWidth = 443 ExplicitHeight = 208 inherited ToolBar1: TToolBar - Width = 546 + Width = 443 + Height = 73 ExplicitWidth = 443 + ExplicitHeight = 73 + inherited ToolButton3: TToolButton + Wrap = True + end + inherited ToolButton4: TToolButton + Left = 0 + Top = 22 + Wrap = False + ExplicitLeft = 0 + ExplicitTop = 22 + end + inherited ToolButton14: TToolButton + Left = 56 + ExplicitLeft = 56 + end + inherited FontName: TJvFontComboBox + Left = 90 + ExplicitLeft = 90 + end inherited FontSize: TEdit - Width = 58 - ExplicitWidth = 58 + Left = 235 + Width = 90 + ExplicitLeft = 235 + ExplicitWidth = 90 end - inherited UpDown1: TUpDown - Left = 237 - ExplicitLeft = 237 + inherited ToolButton13: TToolButton [7] + Left = 0 + Wrap = True + ExplicitLeft = 0 + ExplicitHeight = 27 end - inherited ToolButton13: TToolButton - Left = 254 - ExplicitLeft = 254 + inherited UpDown1: TUpDown [8] + Left = 0 + Top = 49 + ExplicitLeft = 0 + ExplicitTop = 49 end inherited ToolButton6: TToolButton - Left = 262 - ExplicitLeft = 262 + Left = 17 + Top = 49 + ExplicitLeft = 17 + ExplicitTop = 49 end inherited ToolButton7: TToolButton - Left = 296 - ExplicitLeft = 296 + Left = 51 + Top = 49 + ExplicitLeft = 51 + ExplicitTop = 49 end inherited ToolButton8: TToolButton - Left = 330 - ExplicitLeft = 330 + Left = 85 + Top = 49 + ExplicitLeft = 85 + ExplicitTop = 49 end inherited ToolButton12: TToolButton - Left = 364 - ExplicitLeft = 364 + Left = 119 + Top = 49 + ExplicitLeft = 119 + ExplicitTop = 49 end inherited ToolButton9: TToolButton - Left = 372 - ExplicitLeft = 372 + Left = 127 + Top = 49 + ExplicitLeft = 127 + ExplicitTop = 49 end inherited ToolButton10: TToolButton - Left = 406 - ExplicitLeft = 406 + Left = 161 + Top = 49 + ExplicitLeft = 161 + ExplicitTop = 49 end inherited ToolButton11: TToolButton - Left = 440 - ExplicitLeft = 440 + Left = 195 + Top = 49 + ExplicitLeft = 195 + ExplicitTop = 49 end end inherited cxGrid: TcxGrid - Width = 546 - Height = 324 + Top = 99 + Width = 443 + Height = 109 + ExplicitTop = 99 ExplicitWidth = 443 - ExplicitHeight = 136 + ExplicitHeight = 109 end inherited TBXDock1: TTBXDock - Width = 546 + Top = 73 + Width = 443 + ExplicitTop = 73 ExplicitWidth = 443 + inherited TBXToolbar1: TTBXToolbar + ExplicitWidth = 443 + end end inherited cxLookupComboBox: TcxLookupComboBox Style.IsFontAssigned = True end end end + object pagCalidades: TTabSheet + Caption = 'Calidades' + ImageIndex = 3 + object eCalidades: TcxRichEdit + Left = 0 + Top = 0 + Align = alClient + Properties.ScrollBars = ssVertical + Lines.Strings = ( + 'eCondiciones') + TabOrder = 0 + Height = 208 + Width = 443 + end + end object pagCondiciones: TTabSheet Caption = 'Condiciones' ImageIndex = 2 - ExplicitWidth = 443 - ExplicitHeight = 208 object eCondiciones: TcxRichEdit Left = 0 Top = 0 @@ -175,10 +226,8 @@ inherited frViewConfiguracionDocElectrodomestico: TfrViewConfiguracionDocElectro Lines.Strings = ( 'eCondiciones') TabOrder = 0 - ExplicitWidth = 443 - ExplicitHeight = 208 - Height = 396 - Width = 546 + Height = 208 + Width = 443 end end end diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocElectrodomestico.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocElectrodomestico.pas index 2d88f04b..1df5dfd5 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocElectrodomestico.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocElectrodomestico.pas @@ -23,6 +23,8 @@ type frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo; pagCondiciones: TTabSheet; eCondiciones: TcxRichEdit; + pagCalidades: TTabSheet; + eCalidades: TcxRichEdit; public class function GetViewClass : TClass; override; class function DarEtiqueta : String; override; @@ -49,6 +51,10 @@ begin ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO); eObservaciones.Lines.Clear; eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ELECTRODOMESTICO); + + eCalidades.Lines.Clear; + eCalidades.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CALIDADES_ELECTRODOMESTICO); + eCondiciones.Lines.Clear; eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_ELECTRODOMESTICO); @@ -73,6 +79,7 @@ begin AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO, ePlazosEntrega.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_ELECTRODOMESTICO, eObservaciones.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_ELECTRODOMESTICO, eCondiciones.Text); + AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CALIDADES_ELECTRODOMESTICO, eCalidades.Text); frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates; end; diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocObra.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocObra.dfm index b040e0f3..eb5d62b1 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocObra.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocObra.dfm @@ -1,32 +1,25 @@ inherited frViewConfiguracionDocObra: TfrViewConfiguracionDocObra - Width = 557 - Height = 489 inherited Panel1: TPanel - Width = 547 TabOrder = 1 + Visible = False inherited Label3: TLabel - Width = 535 + Width = 429 end end inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel - Width = 557 LabelCaption = 'Configuraci'#243'n de los documentos de obra' TabOrder = 0 end object paginas: TPageControl Left = 0 Top = 68 - Width = 557 - Height = 421 + Width = 451 + Height = 236 ActivePage = pagNotas Align = alClient TabOrder = 2 - ExplicitWidth = 451 - ExplicitHeight = 236 object pagNotas: TTabSheet Caption = 'Notas' - ExplicitWidth = 443 - ExplicitHeight = 208 object Label1: TLabel Left = 11 Top = 20 @@ -82,13 +75,11 @@ inherited frViewConfiguracionDocObra: TfrViewConfiguracionDocObra object pagCapitulo: TTabSheet Caption = 'Cap'#237'tulo' ImageIndex = 1 - ExplicitWidth = 443 - ExplicitHeight = 208 inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo Left = 0 Top = 0 - Width = 549 - Height = 393 + Width = 443 + Height = 208 Align = alClient BiDiMode = bdLeftToRight Font.Charset = DEFAULT_CHARSET @@ -103,69 +94,129 @@ inherited frViewConfiguracionDocObra: TfrViewConfiguracionDocObra ExplicitWidth = 443 ExplicitHeight = 208 inherited ToolBar1: TToolBar - Width = 549 + Width = 443 + Height = 73 ExplicitWidth = 443 + ExplicitHeight = 73 + inherited ToolButton3: TToolButton + Wrap = True + end + inherited ToolButton4: TToolButton + Left = 0 + Top = 22 + Wrap = False + ExplicitLeft = 0 + ExplicitTop = 22 + end + inherited ToolButton14: TToolButton + Left = 56 + ExplicitLeft = 56 + end + inherited FontName: TJvFontComboBox + Left = 90 + ExplicitLeft = 90 + end inherited FontSize: TEdit - Width = 58 - ExplicitWidth = 58 + Left = 235 + Width = 90 + ExplicitLeft = 235 + ExplicitWidth = 90 end - inherited UpDown1: TUpDown - Left = 237 - ExplicitLeft = 237 + inherited ToolButton13: TToolButton [7] + Left = 0 + Wrap = True + ExplicitLeft = 0 + ExplicitHeight = 27 end - inherited ToolButton13: TToolButton - Left = 254 - ExplicitLeft = 254 + inherited UpDown1: TUpDown [8] + Left = 0 + Top = 49 + ExplicitLeft = 0 + ExplicitTop = 49 end inherited ToolButton6: TToolButton - Left = 262 - ExplicitLeft = 262 + Left = 17 + Top = 49 + ExplicitLeft = 17 + ExplicitTop = 49 end inherited ToolButton7: TToolButton - Left = 296 - ExplicitLeft = 296 + Left = 51 + Top = 49 + ExplicitLeft = 51 + ExplicitTop = 49 end inherited ToolButton8: TToolButton - Left = 330 - ExplicitLeft = 330 + Left = 85 + Top = 49 + ExplicitLeft = 85 + ExplicitTop = 49 end inherited ToolButton12: TToolButton - Left = 364 - ExplicitLeft = 364 + Left = 119 + Top = 49 + ExplicitLeft = 119 + ExplicitTop = 49 end inherited ToolButton9: TToolButton - Left = 372 - ExplicitLeft = 372 + Left = 127 + Top = 49 + ExplicitLeft = 127 + ExplicitTop = 49 end inherited ToolButton10: TToolButton - Left = 406 - ExplicitLeft = 406 + Left = 161 + Top = 49 + ExplicitLeft = 161 + ExplicitTop = 49 end inherited ToolButton11: TToolButton - Left = 440 - ExplicitLeft = 440 + Left = 195 + Top = 49 + ExplicitLeft = 195 + ExplicitTop = 49 end end inherited cxGrid: TcxGrid - Width = 549 - Height = 321 + Top = 99 + Width = 443 + Height = 109 + ExplicitTop = 99 ExplicitWidth = 443 - ExplicitHeight = 136 + ExplicitHeight = 109 end inherited TBXDock1: TTBXDock - Width = 549 + Top = 73 + Width = 443 + ExplicitTop = 73 ExplicitWidth = 443 + inherited TBXToolbar1: TTBXToolbar + ExplicitWidth = 443 + end end inherited cxLookupComboBox: TcxLookupComboBox Style.IsFontAssigned = True end end end + object pagCalidades: TTabSheet + Caption = 'Calidades' + ImageIndex = 3 + object eCalidades: TcxRichEdit + Left = 0 + Top = 0 + Align = alClient + Properties.ScrollBars = ssVertical + Lines.Strings = ( + 'eCondiciones') + TabOrder = 0 + Height = 208 + Width = 443 + end + end object pagCondiciones: TTabSheet Caption = 'Condiciones' ImageIndex = 2 - ExplicitWidth = 443 - ExplicitHeight = 208 object eCondiciones: TcxRichEdit Left = 0 Top = 0 @@ -174,10 +225,8 @@ inherited frViewConfiguracionDocObra: TfrViewConfiguracionDocObra Lines.Strings = ( 'eCondiciones') TabOrder = 0 - ExplicitWidth = 443 - ExplicitHeight = 208 - Height = 393 - Width = 549 + Height = 208 + Width = 443 end end end diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocObra.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocObra.pas index 1d8cff63..bbfdac25 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocObra.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocObra.pas @@ -23,6 +23,8 @@ type frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo; pagCondiciones: TTabSheet; eCondiciones: TcxRichEdit; + pagCalidades: TTabSheet; + eCalidades: TcxRichEdit; public class function GetViewClass : TClass; override; class function DarEtiqueta : String; override; @@ -49,6 +51,10 @@ begin ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_OBRA); eObservaciones.Lines.Clear; eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_OBRA); + + eCalidades.Lines.Clear; + eCalidades.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CALIDADES_OBRA); + eCondiciones.Lines.Clear; eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_OBRA); @@ -73,6 +79,7 @@ begin AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_OBRA, ePlazosEntrega.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_OBRA, eObservaciones.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_OBRA, eCondiciones.Text); + AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CALIDADES_OBRA, eCalidades.Text); frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates; end; diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocVarios.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocVarios.dfm index b9f7fdca..5b716f39 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocVarios.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocVarios.dfm @@ -1,36 +1,25 @@ inherited frViewConfiguracionDocVarios: TfrViewConfiguracionDocVarios - Width = 567 - Height = 499 - ExplicitWidth = 898 - ExplicitHeight = 591 inherited Panel1: TPanel - Width = 557 TabOrder = 1 - ExplicitWidth = 530 + Visible = False inherited Label3: TLabel - Width = 545 + Width = 429 end end inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel - Width = 567 LabelCaption = 'Configuraci'#243'n de los documentos de varios' TabOrder = 0 - ExplicitWidth = 540 end object PageControl1: TPageControl Left = 0 Top = 68 - Width = 567 - Height = 431 - ActivePage = pagNotas + Width = 451 + Height = 236 + ActivePage = pagCalidades Align = alClient TabOrder = 2 - ExplicitWidth = 898 - ExplicitHeight = 523 object pagNotas: TTabSheet Caption = 'Notas' - ExplicitWidth = 890 - ExplicitHeight = 495 object Label1: TLabel Left = 11 Top = 13 @@ -83,11 +72,24 @@ inherited frViewConfiguracionDocVarios: TfrViewConfiguracionDocVarios TabOrder = 2 end end + object pagCalidades: TTabSheet + Caption = 'Calidades' + ImageIndex = 2 + object eCalidades: TcxRichEdit + Left = 0 + Top = 0 + Align = alClient + Properties.ScrollBars = ssVertical + Lines.Strings = ( + 'eCondiciones') + TabOrder = 0 + Height = 208 + Width = 443 + end + end object pagCondiciones: TTabSheet Caption = 'Condiciones' ImageIndex = 1 - ExplicitWidth = 890 - ExplicitHeight = 495 object eCondiciones: TcxRichEdit Left = 0 Top = 0 @@ -96,12 +98,8 @@ inherited frViewConfiguracionDocVarios: TfrViewConfiguracionDocVarios Lines.Strings = ( 'eCondiciones') TabOrder = 0 - ExplicitLeft = 11 - ExplicitTop = 372 - ExplicitWidth = 529 - ExplicitHeight = 57 - Height = 403 - Width = 559 + Height = 208 + Width = 443 end end end diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocVarios.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocVarios.pas index 6922b174..c6ec2afd 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocVarios.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocVarios.pas @@ -20,6 +20,8 @@ type eFormaPago: TMemo; eObservaciones: TMemo; eCondiciones: TcxRichEdit; + pagCalidades: TTabSheet; + eCalidades: TcxRichEdit; public class function GetViewClass : TClass; override; class function DarEtiqueta : String; override; @@ -45,6 +47,10 @@ begin ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_VARIOS); eObservaciones.Lines.Clear; eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_VARIOS); + + eCalidades.Lines.Clear; + eCalidades.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CALIDADES_VARIOS); + eCondiciones.Lines.Clear; eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_VARIOS); end; @@ -66,6 +72,7 @@ begin AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_VARIOS, ePlazosEntrega.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_VARIOS, eObservaciones.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_VARIOS, eCondiciones.Text); + AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CALIDADES_VARIOS, eCalidades.Text); end; diff --git a/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas b/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas index 7ccbdde6..a3eb25eb 100644 --- a/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas +++ b/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas @@ -108,6 +108,7 @@ begin AContrato.PERSONA_CONTACTO := APresupuesto.PERSONA_CONTACTO; AContrato.DataTable.FieldByName(fld_ContratosClientePLAZO_ENTREGA).AsVariant := APresupuesto.DataTable.FieldByName(fld_PresupuestosClientePLAZO_ENTREGA).AsVariant; AContrato.DataTable.FieldByName(fld_ContratosClienteOBSERVACIONES).AsVariant := APresupuesto.DataTable.FieldByName(fld_PresupuestosClienteOBSERVACIONES).AsVariant; + AContrato.DataTable.FieldByName(fld_ContratosClienteCALIDADES).AsVariant := APresupuesto.DataTable.FieldByName(fld_PresupuestosClienteCALIDADES).AsVariant; AContrato.IMPORTE_NETO := APresupuesto.IMPORTE_NETO; AContrato.IMPORTE_PORTE := APresupuesto.IMPORTE_PORTE; AContrato.DESCUENTO := APresupuesto.DESCUENTO; diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index de7720b5..f8a13e0f 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -16,7 +16,7 @@ BEGIN VALUE "FileVersion", "2.5.5.0\0" VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductVersion", "2.5.5.0\0" - VALUE "CompileDate", "martes, 27 de agosto de 2013 13:55\0" + VALUE "CompileDate", "martes, 12 de noviembre de 2013 17:33\0" END END BLOCK "VarFileInfo" diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index d20c8f4b833374974cc0c7c4c9941fdbe08366c1..a880e87df2e73b3981114e6192003deffffad12e 100644 GIT binary patch delta 88 zcmdn8jd8~|#tnBO7;PrsjgSYDejgSYDe