diff --git a/Database/ScriptSinDatos.sql b/Database/ScriptSinDatos.sql new file mode 100644 index 00000000..62a21858 --- /dev/null +++ b/Database/ScriptSinDatos.sql @@ -0,0 +1,2589 @@ +/******************************************************************************/ +/**** Generated by IBExpert 2007.05.03 19/11/2007 20:08:22 ****/ +/******************************************************************************/ + +SET SQL DIALECT 3; + +SET NAMES ISO8859_1; + +CREATE DATABASE 'C:\Codigo Tecsitel\Database\FACTUGES.FDB' +USER 'SYSDBA' PASSWORD 'masterkey' +PAGE_SIZE 4096 +DEFAULT CHARACTER SET ISO8859_1; + + + +/******************************************************************************/ +/**** User Defined Functions ****/ +/******************************************************************************/ + +DECLARE EXTERNAL FUNCTION F_RTFTOTEXT + CSTRING(254) + RETURNS CSTRING(254) + ENTRY_POINT 'RtfToText' MODULE_NAME 'udf_RtfToText.dll'; + + +DECLARE EXTERNAL FUNCTION MOD + INTEGER, + INTEGER + RETURNS DOUBLE PRECISION BY VALUE + ENTRY_POINT 'IB_UDF_mod' MODULE_NAME 'ib_udf'; + + +DECLARE EXTERNAL FUNCTION STRLEN + CSTRING(32767) + RETURNS INTEGER BY VALUE + ENTRY_POINT 'IB_UDF_strlen' MODULE_NAME 'ib_udf'; + + +DECLARE EXTERNAL FUNCTION SUBSTR + CSTRING(255), + SMALLINT, + SMALLINT + RETURNS CSTRING(255) FREE_IT + ENTRY_POINT 'IB_UDF_substr' MODULE_NAME 'ib_udf'; + + + + +/******************************************************************************/ +/**** Domains ****/ +/******************************************************************************/ + +CREATE DOMAIN TIPO_BINARIO AS +BLOB SUB_TYPE 0 SEGMENT SIZE 80; + +CREATE DOMAIN TIPO_BOOLEANO AS +SMALLINT; + +CREATE DOMAIN TIPO_CONCEPTO AS +VARCHAR(2000); + +CREATE DOMAIN TIPO_ID AS +INTEGER; + +CREATE DOMAIN TIPO_IMPORTE AS +NUMERIC(11,2); + +CREATE DOMAIN TIPO_NOTAS AS +BLOB SUB_TYPE 1 SEGMENT SIZE 80; + +CREATE DOMAIN TIPO_PERFIL AS +VARCHAR(15); + +CREATE DOMAIN TIPO_PORCENTAJE AS +FLOAT; + +CREATE DOMAIN TIPO_USUARIO AS +VARCHAR(30); + + + +/******************************************************************************/ +/**** Generators ****/ +/******************************************************************************/ + +CREATE GENERATOR GEN_AGENTES_COMISIONES_ID; +SET GENERATOR GEN_AGENTES_COMISIONES_ID TO 0; + +CREATE GENERATOR GEN_ALBARANES_CLI_DETALLES_ID; +SET GENERATOR GEN_ALBARANES_CLI_DETALLES_ID TO 6; + +CREATE GENERATOR GEN_ALBARANES_CLI_ID; +SET GENERATOR GEN_ALBARANES_CLI_ID TO 9; + +CREATE GENERATOR GEN_ALBARANES_PRO_DETALLES_ID; +SET GENERATOR GEN_ALBARANES_PRO_DETALLES_ID TO 4; + +CREATE GENERATOR GEN_ALBARANES_PRO_ID; +SET GENERATOR GEN_ALBARANES_PRO_ID TO 3; + +CREATE GENERATOR GEN_ALMACENES_ID; +SET GENERATOR GEN_ALMACENES_ID TO 5; + +CREATE GENERATOR GEN_ARTICULOS_ID; +SET GENERATOR GEN_ARTICULOS_ID TO 7; + +CREATE GENERATOR GEN_CATEGORIAS_ID; +SET GENERATOR GEN_CATEGORIAS_ID TO 0; + +CREATE GENERATOR GEN_CLIENTES_DTOS_PROV_ID; +SET GENERATOR GEN_CLIENTES_DTOS_PROV_ID TO 0; + +CREATE GENERATOR GEN_COMISIONES_LIQUID_ID; +SET GENERATOR GEN_COMISIONES_LIQUID_ID TO 0; + +CREATE GENERATOR GEN_CONTACTOS_DATOS_BANCO_ID; +SET GENERATOR GEN_CONTACTOS_DATOS_BANCO_ID TO 0; + +CREATE GENERATOR GEN_CONTACTOS_DIR_ID; +SET GENERATOR GEN_CONTACTOS_DIR_ID TO 5; + +CREATE GENERATOR GEN_CONTACTOS_ID; +SET GENERATOR GEN_CONTACTOS_ID TO 2003; + +CREATE GENERATOR GEN_EMPRESAS_DATOS_BANCO_ID; +SET GENERATOR GEN_EMPRESAS_DATOS_BANCO_ID TO 0; + +CREATE GENERATOR GEN_EMPRESAS_ID; +SET GENERATOR GEN_EMPRESAS_ID TO 0; + +CREATE GENERATOR GEN_FACTURAS_CLIENTE_ID; +SET GENERATOR GEN_FACTURAS_CLIENTE_ID TO 25; + +CREATE GENERATOR GEN_FACTURAS_PROVEEDOR_ID; +SET GENERATOR GEN_FACTURAS_PROVEEDOR_ID TO 7; + +CREATE GENERATOR GEN_FACTURA_CLIENTE_DETALLES_ID; +SET GENERATOR GEN_FACTURA_CLIENTE_DETALLES_ID TO 26; + +CREATE GENERATOR GEN_FACTURA_PROV_DETALLES_ID; +SET GENERATOR GEN_FACTURA_PROV_DETALLES_ID TO 7; + +CREATE GENERATOR GEN_FORMAS_PAGO_ID; +SET GENERATOR GEN_FORMAS_PAGO_ID TO 13; + +CREATE GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID; +SET GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID TO 12; + +CREATE GENERATOR GEN_F_PERFILES_ID; +SET GENERATOR GEN_F_PERFILES_ID TO 0; + +CREATE GENERATOR GEN_INFORMES_ID; +SET GENERATOR GEN_INFORMES_ID TO 0; + +CREATE GENERATOR GEN_MOVIMIENTOS_ID; +SET GENERATOR GEN_MOVIMIENTOS_ID TO 0; + +CREATE GENERATOR GEN_PAGOS_CLIENTE_ID; +SET GENERATOR GEN_PAGOS_CLIENTE_ID TO 8; + +CREATE GENERATOR GEN_PAGOS_PROVEEDOR_ID; +SET GENERATOR GEN_PAGOS_PROVEEDOR_ID TO 0; + +CREATE GENERATOR GEN_PEDIDOS_CLI_DETALLES_ID; +SET GENERATOR GEN_PEDIDOS_CLI_DETALLES_ID TO 0; + +CREATE GENERATOR GEN_PEDIDOS_CLI_ID; +SET GENERATOR GEN_PEDIDOS_CLI_ID TO 0; + +CREATE GENERATOR GEN_PEDIDOS_PROV_DETALLES_ID; +SET GENERATOR GEN_PEDIDOS_PROV_DETALLES_ID TO 10; + +CREATE GENERATOR GEN_PEDIDOS_PROV_ID; +SET GENERATOR GEN_PEDIDOS_PROV_ID TO 5; + +CREATE GENERATOR GEN_PRESUPUESTOS_CLI_DETALLE_ID; +SET GENERATOR GEN_PRESUPUESTOS_CLI_DETALLE_ID TO 79; + +CREATE GENERATOR GEN_PRESUPUESTOS_CLI_ID; +SET GENERATOR GEN_PRESUPUESTOS_CLI_ID TO 39; + +CREATE GENERATOR GEN_RECIBOS_CLIENTE_ID; +SET GENERATOR GEN_RECIBOS_CLIENTE_ID TO 6; + +CREATE GENERATOR GEN_RECIBOS_PROVEEDOR_ID; +SET GENERATOR GEN_RECIBOS_PROVEEDOR_ID TO 34; + +CREATE GENERATOR GEN_REMESAS_CLIENTE_ID; +SET GENERATOR GEN_REMESAS_CLIENTE_ID TO 0; + +CREATE GENERATOR GEN_REMESAS_PROVEEDOR_ID; +SET GENERATOR GEN_REMESAS_PROVEEDOR_ID TO 0; + +CREATE GENERATOR GEN_TIENDA_WEB_ID; +SET GENERATOR GEN_TIENDA_WEB_ID TO 0; + +CREATE GENERATOR GEN_TIPOS_IVA_ID; +SET GENERATOR GEN_TIPOS_IVA_ID TO 9; + +CREATE GENERATOR GEN_USUARIOS_ID; +SET GENERATOR GEN_USUARIOS_ID TO 0; + + + +/******************************************************************************/ +/**** Tables ****/ +/******************************************************************************/ + + + +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, + ID_EMPRESA TIPO_ID, + ID_CLIENTE TIPO_ID, + FECHA_ALBARAN DATE, + ID_ALMACEN TIPO_ID, + ID_PEDIDO TIPO_ID, + ID_FACTURA TIPO_ID, + REFERENCIA VARCHAR(255), + CALLE VARCHAR(255), + CODIGO_POSTAL VARCHAR(10), + POBLACION VARCHAR(255), + PROVINCIA VARCHAR(255), + PERSONA_CONTACTO VARCHAR(255), + TELEFONO VARCHAR(25), + 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, + ID_FORMA_PAGO TIPO_ID, + FECHA_ENVIO DATE, + FECHA_RECEPCION DATE, + FECHA_PREVISTA_ENVIO DATE, + REFERENCIA_CLIENTE VARCHAR(255) COLLATE ES_ES +); + +CREATE TABLE ALBARANES_CLIENTE_DETALLES ( + ID TIPO_ID NOT NULL, + ID_ALBARAN TIPO_ID NOT NULL, + POSICION INTEGER, + TIPO_DETALLE VARCHAR(10), + ID_ARTICULO TIPO_ID, + CONCEPTO TIPO_CONCEPTO, + CANTIDAD INTEGER, + IMPORTE_UNIDAD TIPO_IMPORTE, + DESCUENTO TIPO_PORCENTAJE, + IMPORTE_PORTE TIPO_IMPORTE, + IMPORTE_TOTAL TIPO_IMPORTE, + VISIBLE TIPO_BOOLEANO, + FECHA_ALTA TIMESTAMP, + FECHA_MODIFICACION TIMESTAMP +); + +CREATE TABLE ALBARANES_PROVEEDOR ( + ID TIPO_ID NOT NULL, + ID_EMPRESA TIPO_ID, + ID_PROVEEDOR TIPO_ID, + FECHA_ALBARAN DATE, + ID_PEDIDO TIPO_ID, + ID_FACTURA TIPO_ID, + REFERENCIA VARCHAR(255), + CALLE VARCHAR(255), + CODIGO_POSTAL VARCHAR(10), + POBLACION VARCHAR(255), + PROVINCIA VARCHAR(255), + PERSONA_CONTACTO VARCHAR(255), + TELEFONO VARCHAR(25), + BASE_IMPONIBLE TIPO_IMPORTE, + DESCUENTO TIPO_PORCENTAJE, + IMPORTE_DESCUENTO 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, + ID_ALMACEN TIPO_ID, + ID_FORMA_PAGO TIPO_ID, + IMPORTE_NETO TIPO_IMPORTE, + IMPORTE_PORTE TIPO_IMPORTE, + REFERENCIA_PROVEEDOR VARCHAR(255), + REF_FACTURA_PROV VARCHAR(255) +); + +CREATE TABLE ALBARANES_PROVEEDOR_DETALLES ( + ID TIPO_ID NOT NULL, + ID_ALBARAN TIPO_ID NOT NULL, + POSICION INTEGER, + TIPO_DETALLE VARCHAR(10), + ID_ARTICULO TIPO_ID, + CONCEPTO TIPO_CONCEPTO, + CANTIDAD INTEGER, + IMPORTE_UNIDAD TIPO_IMPORTE, + DESCUENTO TIPO_PORCENTAJE, + IMPORTE_PORTE TIPO_IMPORTE, + IMPORTE_TOTAL TIPO_IMPORTE, + VISIBLE TIPO_BOOLEANO, + FECHA_ALTA TIMESTAMP, + FECHA_MODIFICACION TIMESTAMP +); + +CREATE TABLE ALMACENES ( + ID TIPO_ID NOT NULL, + ID_EMPRESA TIPO_ID NOT NULL, + NOMBRE VARCHAR(255), + CALLE VARCHAR(255), + PROVINCIA VARCHAR(255), + POBLACION VARCHAR(255), + CODIGO_POSTAL VARCHAR(10), + TELEFONO VARCHAR(25), + MOVIL VARCHAR(25), + FAX VARCHAR(25), + PERSONA_CONTACTO VARCHAR(255), + OBSERVACIONES TIPO_NOTAS, + FECHA_ALTA TIMESTAMP, + FECHA_MODIFICACION TIMESTAMP, + USUARIO TIPO_USUARIO +); + +CREATE TABLE ARTICULOS ( + ID TIPO_ID NOT NULL, + ID_EMPRESA TIPO_ID, + REFERENCIA VARCHAR(255), + DESCRIPCION VARCHAR(255), + FAMILIA VARCHAR(255), + IMAGEN TIPO_BINARIO, + COMISIONABLE TIPO_BOOLEANO, + ID_PROVEEDOR TIPO_ID, + REFERENCIA_PROV VARCHAR(255), + PRECIO_COSTE TIPO_IMPORTE, + DESCUENTO TIPO_PORCENTAJE, + PRECIO_NETO TIPO_IMPORTE, + PRECIO_PORTE TIPO_IMPORTE, + FECHA_ALTA TIMESTAMP, + FECHA_MODIFICACION TIMESTAMP, + USUARIO TIPO_USUARIO, + INVENTARIABLE TIPO_BOOLEANO, + 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), + VENCIMIENTO_FACTURAS INTEGER, + 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) +); + +CREATE TABLE CLIENTES_DTOS_PROVEEDORES ( + ID TIPO_ID NOT NULL, + ID_CLIENTE TIPO_ID DEFAULT 0 NOT NULL, + ID_PROVEEDOR SMALLINT DEFAULT 0 NOT NULL, + DESCUENTO TIPO_PORCENTAJE DEFAULT 0 +); + +CREATE TABLE CLIENTES_GRUPOS ( + DESCRIPCION VARCHAR(255) +); + +CREATE TABLE COMISIONES_LIQUIDADAS ( + ID TIPO_ID NOT NULL, + ID_EMPRESA TIPO_ID, + REFERENCIA VARCHAR(255), + ID_AGENTE TIPO_ID, + DESCRIPCION VARCHAR(255), + FECHA DATE, + IMPORTE_TOTAL TIPO_IMPORTE, + FECHA_ALTA TIMESTAMP, + FECHA_MODIFICACION TIMESTAMP, + USUARIO TIPO_USUARIO +); + +CREATE TABLE CONFIGURACION ( + CODIGO VARCHAR(50) NOT NULL, + VALOR VARCHAR(255) NOT NULL, + ID_EMPRESA TIPO_ID +); + +CREATE TABLE CONTACTOS ( + ID TIPO_ID NOT NULL, + NIF_CIF VARCHAR(15), + NOMBRE VARCHAR(255) NOT NULL, + 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, + REFERENCIA VARCHAR(255), + PERSONA_CONTACTO VARCHAR(255) +); + +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_DIRECCIONES ( + ID TIPO_ID NOT NULL, + ID_CONTACTO 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, + PORTE TIPO_IMPORTE, + FECHA_ALTA TIMESTAMP, + FECHA_MODIFICACION TIMESTAMP +); + +CREATE TABLE EMPLEADOS_DATOS ( + ID_EMPLEADO TIPO_ID NOT NULL, + FECHA_NACIMIENTO DATE, + CATEGORIA VARCHAR(255), + FECHA_ALTA_EMPRESA DATE, + FORMACION_BASE TIPO_NOTAS, + FORMACION_COMPLE TIPO_NOTAS, + FORMACION_RECIBIDA TIPO_NOTAS, + EXPERIENCIA TIPO_NOTAS +); + +CREATE TABLE EMPLEADOS_GRUPOS ( + DESCRIPCION VARCHAR(255) +); + +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), + IVA TIPO_PORCENTAJE +); + +CREATE TABLE EMPRESAS_CONTACTOS ( + 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, + NOMBRE VARCHAR(255), + ENTIDAD VARCHAR(15), + SUCURSAL VARCHAR(15), + DC VARCHAR(15), + CUENTA VARCHAR(15), + SUFIJO_N19 VARCHAR(3), + SUFIJO_N58 VARCHAR(3) +); + +CREATE TABLE EMPRESAS_USUARIOS ( + ID_EMPRESA TIPO_ID NOT NULL, + ID_USUARIO TIPO_ID NOT NULL +); + +CREATE TABLE F_PERFILES ( + ID TIPO_ID NOT NULL, + PERFIL TIPO_PERFIL NOT NULL +); + +CREATE TABLE F_PERFILES_USUARIOS ( + ID_PERFIL TIPO_ID NOT NULL, + ID_USUARIO TIPO_ID NOT NULL +); + +CREATE TABLE F_USUARIOS ( + ID TIPO_ID NOT NULL, + USUARIO TIPO_USUARIO NOT NULL, + ACTIVO TIPO_BOOLEANO, + LAST_LOGIN TIMESTAMP, + PASS VARCHAR(10) +); + +CREATE TABLE FACTURAS_CLIENTE ( + ID TIPO_ID NOT NULL, + ID_EMPRESA TIPO_ID, + REFERENCIA VARCHAR(255), + FECHA_FACTURA DATE, + BASE_IMPONIBLE TIPO_IMPORTE, + DESCUENTO TIPO_PORCENTAJE, + IMPORTE_DESCUENTO TIPO_IMPORTE, + IVA TIPO_PORCENTAJE, + IMPORTE_IVA TIPO_IMPORTE, + RE TIPO_PORCENTAJE, + IMPORTE_RE TIPO_IMPORTE, + IMPORTE_TOTAL TIPO_IMPORTE, + OBSERVACIONES TIPO_NOTAS, + ID_CLIENTE TIPO_ID, + NIF_CIF VARCHAR(15), + NOMBRE VARCHAR(255), + CALLE VARCHAR(255), + POBLACION VARCHAR(255), + PROVINCIA VARCHAR(255), + CODIGO_POSTAL VARCHAR(10), + FECHA_ALTA TIMESTAMP, + FECHA_MODIFICACION TIMESTAMP, + USUARIO TIPO_USUARIO, + ID_FORMA_PAGO TIPO_ID, + IMPORTE_NETO TIPO_IMPORTE, + IMPORTE_PORTE TIPO_IMPORTE, + ID_TIPO_IVA TIPO_ID, + RECARGO_EQUIVALENCIA TIPO_BOOLEANO, + ID_COMISION_LIQUIDADA TIPO_ID +); + +CREATE TABLE FACTURAS_CLIENTE_DETALLES ( + ID TIPO_ID NOT NULL, + ID_FACTURA TIPO_ID NOT NULL, + POSICION INTEGER, + TIPO_DETALLE VARCHAR(10), + ID_ARTICULO TIPO_ID, + CONCEPTO TIPO_CONCEPTO, + CANTIDAD INTEGER, + IMPORTE_UNIDAD TIPO_IMPORTE, + DESCUENTO TIPO_PORCENTAJE, + IMPORTE_PORTE TIPO_IMPORTE, + IMPORTE_TOTAL TIPO_IMPORTE, + VISIBLE TIPO_BOOLEANO, + FECHA_ALTA TIMESTAMP, + 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, + BASE_IMPONIBLE TIPO_IMPORTE, + DESCUENTO TIPO_PORCENTAJE, + IMPORTE_DESCUENTO TIPO_IMPORTE, + IVA TIPO_PORCENTAJE, + IMPORTE_IVA TIPO_IMPORTE, + RE TIPO_PORCENTAJE, + IMPORTE_RE TIPO_IMPORTE, + IMPORTE_TOTAL TIPO_IMPORTE, + OBSERVACIONES TIPO_NOTAS, + ID_PROVEEDOR TIPO_ID, + NIF_CIF VARCHAR(15), + NOMBRE VARCHAR(255), + CALLE VARCHAR(255), + POBLACION VARCHAR(255), + PROVINCIA VARCHAR(255), + CODIGO_POSTAL VARCHAR(10), + FECHA_ALTA TIMESTAMP, + FECHA_MODIFICACION TIMESTAMP, + USUARIO TIPO_USUARIO, + ID_FORMA_PAGO TIPO_ID, + IMPORTE_NETO TIPO_IMPORTE, + IMPORTE_PORTE TIPO_IMPORTE, + ID_TIPO_IVA TIPO_ID, + RECARGO_EQUIVALENCIA TIPO_BOOLEANO +); + +CREATE TABLE FACTURAS_PROVEEDOR_DETALLES ( + ID TIPO_ID NOT NULL, + ID_FACTURA TIPO_ID NOT NULL, + POSICION INTEGER, + TIPO_DETALLE VARCHAR(10), + ID_ARTICULO TIPO_ID, + CONCEPTO TIPO_CONCEPTO, + CANTIDAD INTEGER, + IMPORTE_UNIDAD TIPO_IMPORTE, + DESCUENTO TIPO_PORCENTAJE, + IMPORTE_PORTE TIPO_IMPORTE, + IMPORTE_TOTAL TIPO_IMPORTE, + VISIBLE TIPO_BOOLEANO, + FECHA_ALTA TIMESTAMP, + FECHA_MODIFICACION TIMESTAMP +); + +CREATE TABLE FAMILIAS ( + DESCRIPCION VARCHAR(255) +); + +CREATE TABLE FORMAS_PAGO ( + ID TIPO_ID NOT NULL, + REFERENCIA VARCHAR(255), + DESCRIPCION VARCHAR(255), + TITULAR VARCHAR(255), + ENTIDAD VARCHAR(15), + SUCURSAL VARCHAR(15), + DC VARCHAR(15), + CUENTA VARCHAR(15) +); + +CREATE TABLE FORMAS_PAGO_PLAZOS ( + ID TIPO_ID NOT NULL, + ID_FORMA_PAGO TIPO_ID NOT NULL, + NUM_DIAS SMALLINT, + PORCENTAJE TIPO_PORCENTAJE +); + +CREATE TABLE INFORMES ( + ID SMALLINT NOT NULL, + ID_EMPRESA TIPO_ID, + CATEGORIA VARCHAR(30), + CONTROLLER VARCHAR(255), + ICONO SMALLINT, + NOMBRE VARCHAR(50), + DESCRIPCION VARCHAR(255), + ORDEN SMALLINT, + MODIFICABLE CHAR(1), + VISTA BLOB SUB_TYPE 2 SEGMENT SIZE 4096 +); + +CREATE TABLE MOVIMIENTOS ( + ID TIPO_ID NOT NULL, + ID_ALMACEN TIPO_ID, + ID_ARTICULO TIPO_ID, + FECHA_MOVIMIENTO DATE, + TIPO VARCHAR(1), + CANTIDAD INTEGER, + CAUSA TIPO_CONCEPTO +); + +CREATE TABLE PAGOS_CLIENTE ( + ID TIPO_ID NOT NULL, + ID_RECIBO TIPO_ID, + TIPO VARCHAR(255), + FECHA_PAGO DATE, + TITULAR VARCHAR(255), + ENTIDAD VARCHAR(15), + SUCURSAL VARCHAR(15), + DC VARCHAR(15), + CUENTA VARCHAR(15), + FECHA_ALTA DATE, + FECHA_MODIFICACION DATE, + USUARIO TIPO_USUARIO +); + +CREATE TABLE PAGOS_PROVEEDOR ( + ID TIPO_ID NOT NULL, + ID_RECIBO TIPO_ID, + TIPO VARCHAR(255), + FECHA_PAGO DATE, + TITULAR VARCHAR(255), + ENTIDAD VARCHAR(15), + SUCURSAL VARCHAR(15), + DC VARCHAR(15), + CUENTA VARCHAR(15), + FECHA_ALTA DATE, + FECHA_MODIFICACION DATE, + USUARIO TIPO_USUARIO +); + +CREATE TABLE PEDIDOS_CLIENTE ( + ID TIPO_ID NOT NULL, + ID_EMPRESA TIPO_ID, + ID_CLIENTE TIPO_ID, + REFERENCIA VARCHAR(255), + FECHA_PEDIDO DATE, + CALLE VARCHAR(255), + CODIGO_POSTAL VARCHAR(10), + POBLACION VARCHAR(255), + PROVINCIA VARCHAR(255), + PERSONA_CONTACTO VARCHAR(255), + TELEFONO VARCHAR(25), + 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, + REF_TIENDA_WEB INTEGER, + FECHA_PREVISTA_ENVIO DATE, + REFERENCIA_CLIENTE VARCHAR(255) COLLATE ES_ES +); + +CREATE TABLE PEDIDOS_CLIENTE_DETALLES ( + ID TIPO_ID NOT NULL, + ID_PEDIDO TIPO_ID NOT NULL, + POSICION INTEGER, + TIPO_DETALLE VARCHAR(10), + ID_ARTICULO TIPO_ID, + CONCEPTO TIPO_CONCEPTO, + CANTIDAD INTEGER, + IMPORTE_UNIDAD TIPO_IMPORTE, + DESCUENTO TIPO_PORCENTAJE, + IMPORTE_PORTE TIPO_IMPORTE, + IMPORTE_TOTAL TIPO_IMPORTE, + VISIBLE TIPO_BOOLEANO, + FECHA_ALTA TIMESTAMP, + FECHA_MODIFICACION TIMESTAMP +); + +CREATE TABLE PEDIDOS_PROVEEDOR ( + ID TIPO_ID NOT NULL, + ID_EMPRESA TIPO_ID, + ID_PROVEEDOR TIPO_ID, + REFERENCIA VARCHAR(255), + FECHA_PEDIDO DATE, + FECHA_CONFIRMACION DATE, + FECHA_ENTREGA DATE, + ID_ALMACEN TIPO_ID, + OBSERVACIONES TIPO_NOTAS, + INCIDENCIAS TIPO_NOTAS, + INCIDENCIAS_ACTIVAS SMALLINT DEFAULT 0 NOT NULL, + FECHA_ALTA TIMESTAMP, + FECHA_MODIFICACION TIMESTAMP, + USUARIO TIPO_USUARIO, + CALLE VARCHAR(255), + CODIGO_POSTAL VARCHAR(10), + POBLACION VARCHAR(255), + PROVINCIA VARCHAR(255), + PERSONA_CONTACTO VARCHAR(255), + TELEFONO VARCHAR(25), + ID_PEDIDO_CLIENTE TIPO_ID, + 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, + FECHA_ENVIO DATE +); + +CREATE TABLE PEDIDOS_PROVEEDOR_DETALLES ( + ID TIPO_ID NOT NULL, + ID_PEDIDO TIPO_ID NOT NULL, + POSICION INTEGER, + TIPO_DETALLE VARCHAR(10), + ID_ARTICULO TIPO_ID, + CONCEPTO TIPO_CONCEPTO, + CANTIDAD INTEGER, + IMPORTE_UNIDAD TIPO_IMPORTE, + DESCUENTO TIPO_PORCENTAJE, + IMPORTE_PORTE TIPO_IMPORTE, + IMPORTE_TOTAL TIPO_IMPORTE, + VISIBLE TIPO_BOOLEANO, + FECHA_ALTA TIMESTAMP, + FECHA_MODIFICACION TIMESTAMP +); + +CREATE TABLE PERMISOS ( + ID_USUARIO TIPO_ID, + MODULO VARCHAR(50), + NOMBRECOMP VARCHAR(50), + CHECKSUM VARCHAR(250) +); + +CREATE TABLE PERMISOSEX ( + ID_USUARIO TIPO_ID, + MODULO VARCHAR(50), + NOMBRECOMP VARCHAR(50), + NOMBREFORM VARCHAR(50), + CHECKSUM VARCHAR(250) +); + +CREATE TABLE PRESUPUESTOS_CLIENTE ( + ID TIPO_ID NOT NULL, + ID_EMPRESA TIPO_ID, + ID_CLIENTE TIPO_ID, + REFERENCIA VARCHAR(255), + FECHA_PRESUPUESTO DATE, + FECHA_DECISION DATE, + SITUACION VARCHAR(255), + PORTADA TIPO_NOTAS, + MEMORIA 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, + REFERENCIA_CLIENTE VARCHAR(255) COLLATE ES_ES, + CLIENTE_FINAL VARCHAR(255) COLLATE ES_ES +); + +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, + CONCEPTO TIPO_CONCEPTO, + CANTIDAD INTEGER, + IMPORTE_UNIDAD TIPO_IMPORTE, + DESCUENTO TIPO_PORCENTAJE, + IMPORTE_PORTE TIPO_IMPORTE, + IMPORTE_TOTAL TIPO_IMPORTE, + VISIBLE TIPO_BOOLEANO, + FECHA_ALTA TIMESTAMP, + FECHA_MODIFICACION TIMESTAMP +); + +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 +); + +CREATE TABLE PROVEEDORES_GRUPOS ( + DESCRIPCION VARCHAR(255) +); + +CREATE TABLE RECIBOS_CLIENTE ( + ID TIPO_ID NOT NULL, + ID_FACTURA TIPO_ID, + REFERENCIA VARCHAR(255), + FECHA_EMISION DATE, + FECHA_VENCIMIENTO DATE, + DESCRIPCION VARCHAR(255), + OBSERVACIONES VARCHAR(255), + IMPORTE TIPO_IMPORTE, + OTROS_GASTOS TIPO_IMPORTE, + FECHA_ALTA DATE, + FECHA_MODIFICACION DATE, + USUARIO TIPO_USUARIO, + ID_REMESA TIPO_ID, + ID_RECIBO_COMPENSADO INTEGER +); + +CREATE TABLE RECIBOS_PROVEEDOR ( + ID TIPO_ID NOT NULL, + ID_FACTURA TIPO_ID, + REFERENCIA VARCHAR(255), + REFERENCIA_PROVEEDOR VARCHAR(255), + FECHA_EMISION DATE, + FECHA_VENCIMIENTO DATE, + DESCRIPCION VARCHAR(255), + OBSERVACIONES VARCHAR(255), + IMPORTE TIPO_IMPORTE, + OTROS_GASTOS TIPO_IMPORTE, + FECHA_ALTA DATE, + FECHA_MODIFICACION DATE, + USUARIO TIPO_USUARIO, + ID_REMESA TIPO_ID, + ID_RECIBO_COMPENSADO INTEGER +); + +CREATE TABLE REFERENCIAS ( + CODIGO VARCHAR(50) NOT NULL, + VALOR VARCHAR(255) NOT NULL, + ID_EMPRESA TIPO_ID, + DESCRIPCION VARCHAR(255) COLLATE ES_ES +); + +CREATE TABLE REMESAS_CLIENTE ( + ID TIPO_ID NOT NULL, + ID_EMPRESA TIPO_ID, + REFERENCIA VARCHAR(255), + FECHA_REMESA DATE, + IMPORTE_TOTAL TIPO_IMPORTE, + DESCRIPCION VARCHAR(255), + FECHA_ALTA DATE, + FECHA_MODIFICACION DATE, + USUARIO TIPO_USUARIO, + ID_DATOS_BANCO TIPO_ID, + TIPO VARCHAR(40) +); + +CREATE TABLE REMESAS_PROVEEDOR ( + ID TIPO_ID NOT NULL, + ID_EMPRESA TIPO_ID, + REFERENCIA VARCHAR(255), + FECHA_REMESA DATE, + IMPORTE_TOTAL TIPO_IMPORTE, + DESCRIPCION VARCHAR(255), + FECHA_ALTA DATE, + FECHA_MODIFICACION DATE, + USUARIO TIPO_USUARIO, + ID_DATOS_BANCO TIPO_ID, + TIPO VARCHAR(40) +); + +CREATE TABLE TIENDA_WEB ( + ID TIPO_ID NOT NULL, + ID_EMPRESA TIPO_ID NOT NULL, + TIENDA_ACTIVA TIPO_BOOLEANO DEFAULT 0 NOT NULL, + ULTIMA_ACTUALIZACION TIMESTAMP, + BDSERVER VARCHAR(255), + BDPORT VARCHAR(20), + BDNAME VARCHAR(255), + BDUSER VARCHAR(255), + BDPASS VARCHAR(255) +); + +CREATE TABLE TIPOS_IVA ( + ID TIPO_ID NOT NULL, + REFERENCIA VARCHAR(255), + DESCRIPCION VARCHAR(255), + IVA TIPO_PORCENTAJE, + RE TIPO_PORCENTAJE +); + +CREATE TABLE USUARIOS ( + ID TIPO_ID NOT NULL, + USERNAME VARCHAR(30), + LOGIN TIPO_USUARIO, + PASS VARCHAR(250), + PASSEXPIRED DATE, + BLOQUEADO TIPO_BOOLEANO, + EMAIL VARCHAR(150), + USERDAYSSUN INTEGER, + PRIVILEGED INTEGER, + TIPO CHAR(1), + ID_PERFIL TIPO_ID, + CHECKSUM VARCHAR(250) +); + +CREATE TABLE USUARIOS_EVENTOS ( + APLICACION VARCHAR(250), + ID_USUARIO TIPO_ID, + FECHA CHAR(10), + HORA CHAR(8), + FORM VARCHAR(250), + TITULO_FORM VARCHAR(100), + EVENTO VARCHAR(50), + NOTAS TIPO_NOTAS, + TNAME VARCHAR(20) +); + +CREATE TABLE USUARIOS_LOGON ( + LOGONID CHAR(38) NOT NULL, + ID_USUARIO TIPO_ID, + APLICACION VARCHAR(50), + EQUIPO VARCHAR(50), + DATA VARCHAR(14) +); + + + +/******************************************************************************/ +/**** Views ****/ +/******************************************************************************/ + + +/* View: V_ALB_CLI_SITUACION */ +CREATE VIEW V_ALB_CLI_SITUACION( + ID, + SITUACION) +AS +SELECT ALBARANES_CLIENTE.ID, + case when (FECHA_RECEPCION is not null) then 'SERVIDO' + when (FECHA_ENVIO is null) then 'PENDIENTE' + when (FECHA_ENVIO <= current_date) then 'ENVIADO' + when (FECHA_ENVIO > current_date) then 'PENDIENTE' + else 'N/A' + end as SITUACION +FROM ALBARANES_CLIENTE +; + + + +/* View: V_ALB_PROV_DETALLES */ +CREATE VIEW V_ALB_PROV_DETALLES( + ID_ALBARAN, + ID_PEDIDO, + ID_ALMACEN, + ID_ARTICULO, + CANTIDAD) +AS +SELECT ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN, + ALBARANES_PROVEEDOR.ID_PEDIDO, + ALBARANES_PROVEEDOR.ID_ALMACEN, + COALESCE(ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO, 0), + SUM (COALESCE(ALBARANES_PROVEEDOR_DETALLES.CANTIDAD, 0)) AS CANTIDAD + +FROM ALBARANES_PROVEEDOR_DETALLES +LEFT JOIN ALBARANES_PROVEEDOR +ON (ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN = ALBARANES_PROVEEDOR.ID) + +/*Mantenemos los articulos inventariables y aquellos que no existan en nuestro catálogo con el fin de no falsear la situación de los pedidos +LEFT JOIN ARTICULOS +ON (ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID) + +WHERE (ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO is not null) +AND (ARTICULOS.INVENTARIABLE = 1) +*/ + +GROUP BY ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN, + ALBARANES_PROVEEDOR.ID_PEDIDO, + ALBARANES_PROVEEDOR.ID_ALMACEN, + ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO +; + + + +/* View: V_ALBARANES_CLIENTE */ +CREATE VIEW V_ALBARANES_CLIENTE( + ID, + ID_EMPRESA, + ID_CLIENTE, + NOMBRE, + FECHA_ALBARAN, + REFERENCIA, + REFERENCIA_CLIENTE, + TIPO, + SITUACION, + ID_ALMACEN, + NOMBRE_ALMACEN, + ID_PEDIDO, + REF_PEDIDO, + ID_FACTURA, + REF_FACTURA, + CALLE, + CODIGO_POSTAL, + POBLACION, + PROVINCIA, + PERSONA_CONTACTO, + TELEFONO, + IMPORTE_NETO, + IMPORTE_PORTE, + DESCUENTO, + IMPORTE_DESCUENTO, + BASE_IMPONIBLE, + IVA, + IMPORTE_IVA, + IMPORTE_TOTAL, + OBSERVACIONES, + INCIDENCIAS, + INCIDENCIAS_ACTIVAS, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO, + ID_FORMA_PAGO, + FECHA_PREVISTA_ENVIO, + FECHA_ENVIO, + FECHA_RECEPCION) +AS +SELECT + ALBARANES_CLIENTE.ID, + ALBARANES_CLIENTE.ID_EMPRESA, + ALBARANES_CLIENTE.ID_CLIENTE, + CONTACTOS.NOMBRE, + ALBARANES_CLIENTE.FECHA_ALBARAN, + ALBARANES_CLIENTE.REFERENCIA, + ALBARANES_CLIENTE.REFERENCIA_CLIENTE, + CASE WHEN (ALBARANES_CLIENTE.IMPORTE_TOTAL < 0) THEN 'D' ELSE 'A' END AS TIPO, + V_ALB_CLI_SITUACION.SITUACION, + ALBARANES_CLIENTE.ID_ALMACEN, + ALMACENES.NOMBRE AS NOMBRE_ALMACEN, + ALBARANES_CLIENTE.ID_PEDIDO, + PEDIDOS_CLIENTE.REFERENCIA AS REF_PEDIDO, + ALBARANES_CLIENTE.ID_FACTURA, + FACTURAS_CLIENTE.REFERENCIA AS REF_FACTURA, + ALBARANES_CLIENTE.CALLE, + ALBARANES_CLIENTE.CODIGO_POSTAL, + ALBARANES_CLIENTE.POBLACION, + ALBARANES_CLIENTE.PROVINCIA, + ALBARANES_CLIENTE.PERSONA_CONTACTO, + ALBARANES_CLIENTE.TELEFONO, + ALBARANES_CLIENTE.IMPORTE_NETO, + ALBARANES_CLIENTE.IMPORTE_PORTE, + ALBARANES_CLIENTE.DESCUENTO, + ALBARANES_CLIENTE.IMPORTE_DESCUENTO, + ALBARANES_CLIENTE.BASE_IMPONIBLE, + ALBARANES_CLIENTE.IVA, + ALBARANES_CLIENTE.IMPORTE_IVA, + ALBARANES_CLIENTE.IMPORTE_TOTAL, + ALBARANES_CLIENTE.OBSERVACIONES, + ALBARANES_CLIENTE.INCIDENCIAS, + ALBARANES_CLIENTE.INCIDENCIAS_ACTIVAS, + ALBARANES_CLIENTE.FECHA_ALTA, + ALBARANES_CLIENTE.FECHA_MODIFICACION, + ALBARANES_CLIENTE.USUARIO, + ALBARANES_CLIENTE.ID_FORMA_PAGO, + ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO, + ALBARANES_CLIENTE.FECHA_ENVIO, + ALBARANES_CLIENTE.FECHA_RECEPCION +FROM + ALBARANES_CLIENTE + LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_CLIENTE.ID_CLIENTE) + LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = ALBARANES_CLIENTE.ID_PEDIDO) + LEFT OUTER JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = ALBARANES_CLIENTE.ID_FACTURA) + LEFT OUTER JOIN V_ALB_CLI_SITUACION ON (V_ALB_CLI_SITUACION.ID = ALBARANES_CLIENTE.ID) + LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_CLIENTE.ID_ALMACEN) +; + + + +/* View: V_ALBARANES_PROVEEDOR */ +CREATE VIEW V_ALBARANES_PROVEEDOR( + ID, + ID_EMPRESA, + ID_PROVEEDOR, + NOMBRE, + FECHA_ALBARAN, + REFERENCIA, + REFERENCIA_PROVEEDOR, + TIPO, + ID_ALMACEN, + NOMBRE_ALMACEN, + ID_PEDIDO, + REF_PED_PROVEEDOR, + ID_FACTURA, + REF_FACTURA, + REF_FACTURA_PROV, + CALLE, + CODIGO_POSTAL, + POBLACION, + PROVINCIA, + PERSONA_CONTACTO, + TELEFONO, + IMPORTE_NETO, + IMPORTE_PORTE, + DESCUENTO, + IMPORTE_DESCUENTO, + BASE_IMPONIBLE, + IVA, + IMPORTE_IVA, + IMPORTE_TOTAL, + OBSERVACIONES, + INCIDENCIAS, + INCIDENCIAS_ACTIVAS, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO, + ID_FORMA_PAGO) +AS +SELECT + ALBARANES_PROVEEDOR.ID, + ALBARANES_PROVEEDOR.ID_EMPRESA, + ALBARANES_PROVEEDOR.ID_PROVEEDOR, + CONTACTOS.NOMBRE, + ALBARANES_PROVEEDOR.FECHA_ALBARAN, + ALBARANES_PROVEEDOR.REFERENCIA, + ALBARANES_PROVEEDOR.REFERENCIA_PROVEEDOR, + CASE WHEN (ALBARANES_PROVEEDOR.IMPORTE_TOTAL < 0) THEN 'D' ELSE 'A' END AS TIPO, + ALBARANES_PROVEEDOR.ID_ALMACEN, + ALMACENES.NOMBRE AS NOMBRE_ALMACEN, + ALBARANES_PROVEEDOR.ID_PEDIDO, + PEDIDOS_PROVEEDOR.REFERENCIA AS REF_PED_PROVEEDOR, + ALBARANES_PROVEEDOR.ID_FACTURA, + FACTURAS_PROVEEDOR.REFERENCIA AS REF_FACTURA, + ALBARANES_PROVEEDOR.REF_FACTURA_PROV, + ALBARANES_PROVEEDOR.CALLE, + ALBARANES_PROVEEDOR.CODIGO_POSTAL, + ALBARANES_PROVEEDOR.POBLACION, + ALBARANES_PROVEEDOR.PROVINCIA, + ALBARANES_PROVEEDOR.PERSONA_CONTACTO, + ALBARANES_PROVEEDOR.TELEFONO, + ALBARANES_PROVEEDOR.IMPORTE_NETO, + ALBARANES_PROVEEDOR.IMPORTE_PORTE, + ALBARANES_PROVEEDOR.DESCUENTO, + ALBARANES_PROVEEDOR.IMPORTE_DESCUENTO, + ALBARANES_PROVEEDOR.BASE_IMPONIBLE, + ALBARANES_PROVEEDOR.IVA, + ALBARANES_PROVEEDOR.IMPORTE_IVA, + ALBARANES_PROVEEDOR.IMPORTE_TOTAL, + ALBARANES_PROVEEDOR.OBSERVACIONES, + ALBARANES_PROVEEDOR.INCIDENCIAS, + ALBARANES_PROVEEDOR.INCIDENCIAS_ACTIVAS, + ALBARANES_PROVEEDOR.FECHA_ALTA, + ALBARANES_PROVEEDOR.FECHA_MODIFICACION, + ALBARANES_PROVEEDOR.USUARIO, + ALBARANES_PROVEEDOR.ID_FORMA_PAGO +FROM + ALBARANES_PROVEEDOR + LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_PROVEEDOR.ID_PROVEEDOR) + LEFT OUTER JOIN PEDIDOS_PROVEEDOR ON (PEDIDOS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_PEDIDO) + LEFT OUTER JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_FACTURA) + LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_PROVEEDOR.ID_ALMACEN) +; + + + +/* View: V_ARTICULOS */ +CREATE VIEW V_ARTICULOS( + ID, + ID_EMPRESA, + REFERENCIA, + DESCRIPCION, + FAMILIA, + IMAGEN, + COMISIONABLE, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO, + REFERENCIA_PROV, + PRECIO_COSTE, + PRECIO_PORTE, + DESCUENTO, + PRECIO_NETO, + INVENTARIABLE, + ID_PROVEEDOR, + NOMBRE_PROVEEDOR, + ELIMINADO) +AS +SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCRIPCION, + ARTICULOS.FAMILIA, ARTICULOS.IMAGEN, ARTICULOS.COMISIONABLE, ARTICULOS.FECHA_ALTA, + ARTICULOS.FECHA_MODIFICACION, ARTICULOS.USUARIO, + ARTICULOS.REFERENCIA_PROV, + ARTICULOS.PRECIO_COSTE, + ARTICULOS.PRECIO_PORTE, + ARTICULOS.DESCUENTO, + ARTICULOS.PRECIO_NETO, + ARTICULOS.INVENTARIABLE, + ARTICULOS.ID_PROVEEDOR, + CONTACTOS.NOMBRE AS NOMBRE_PROVEEDOR, + ARTICULOS.ELIMINADO +FROM ARTICULOS +LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = ARTICULOS.ID_PROVEEDOR) +WHERE (ARTICULOS.ELIMINADO = 0) +; + + + +/* View: V_CONTACTOS */ +CREATE VIEW V_CONTACTOS( + 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) +AS +SELECT CONTACTOS.ID, + CONTACTOS_CATEGORIAS.ID_CATEGORIA, + CONTACTOS.NIF_CIF, + CONTACTOS.NOMBRE, + CONTACTOS.PERSONA_CONTACTO, + CONTACTOS.CALLE, + CONTACTOS.POBLACION, + CONTACTOS.PROVINCIA, + CONTACTOS.CODIGO_POSTAL, + CONTACTOS.TELEFONO_1, + CONTACTOS.TELEFONO_2, + CONTACTOS.MOVIL_1, + CONTACTOS.MOVIL_2, + CONTACTOS.FAX, + CONTACTOS.EMAIL_1, + CONTACTOS.EMAIL_2, + CONTACTOS.PAGINA_WEB, + CONTACTOS.NOTAS, + CONTACTOS.FECHA_ALTA, + CONTACTOS.FECHA_MODIFICACION, + CONTACTOS.USUARIO, + EMPRESAS_CONTACTOS.ID_EMPRESA, + CONTACTOS.REFERENCIA +FROM CONTACTOS + INNER JOIN CONTACTOS_CATEGORIAS ON (CONTACTOS_CATEGORIAS.ID_CONTACTO = + CONTACTOS.ID) + INNER JOIN EMPRESAS_CONTACTOS ON (EMPRESAS_CONTACTOS.ID_CONTACTO = + CONTACTOS.ID) +; + + + +/* View: V_CLIENTES */ +CREATE VIEW V_CLIENTES( + 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, + GRUPO_CLIENTE, + NOMBRE_COMERCIAL, + VENCIMIENTO_FACTURAS, + BLOQUEADO, + REGIMEN_IVA, + MOTIVO_BLOQUEO, + RECARGO_EQUIVALENCIA, + ID_TIPO_IVA, + ID_FORMA_PAGO, + TIENDA_WEB, + CODIGO_ASIGNADO) +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, + CLIENTES_DATOS.GRUPO_CLIENTE, + CLIENTES_DATOS.NOMBRE_COMERCIAL, + CLIENTES_DATOS.VENCIMIENTO_FACTURAS, + CLIENTES_DATOS.BLOQUEADO, + CLIENTES_DATOS.REGIMEN_IVA, + CLIENTES_DATOS.MOTIVO_BLOQUEO, + CLIENTES_DATOS.RECARGO_EQUIVALENCIA, + CLIENTES_DATOS.ID_TIPO_IVA, + CLIENTES_DATOS.ID_FORMA_PAGO, + CLIENTES_DATOS.TIENDA_WEB, + CLIENTES_DATOS.CODIGO_ASIGNADO +FROM + V_CONTACTOS + LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE) +WHERE + V_CONTACTOS.ID_CATEGORIA = 1 +; + + + +/* View: V_EMPLEADOS */ +CREATE VIEW V_EMPLEADOS( + 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, + FECHA_NACIMIENTO, + CATEGORIA, + FECHA_ALTA_EMPRESA, + FORMACION_BASE, + FORMACION_COMPLE, + FORMACION_RECIBIDA, + EXPERIENCIA) +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, + + EMPLEADOS_DATOS.FECHA_NACIMIENTO, + EMPLEADOS_DATOS.CATEGORIA, + EMPLEADOS_DATOS.FECHA_ALTA_EMPRESA, + EMPLEADOS_DATOS.FORMACION_BASE, + EMPLEADOS_DATOS.FORMACION_COMPLE, + EMPLEADOS_DATOS.FORMACION_RECIBIDA, + EMPLEADOS_DATOS.EXPERIENCIA + +FROM V_CONTACTOS +INNER JOIN EMPLEADOS_DATOS ON (EMPLEADOS_DATOS.ID_EMPLEADO = V_CONTACTOS.ID) + +WHERE V_CONTACTOS.ID_CATEGORIA = 3 +; + + + +/* View: V_REC_FAC_CLI */ +CREATE VIEW V_REC_FAC_CLI( + ID_FACTURA, + NUM_RECIBOS) +AS +SELECT FACTURAS_CLIENTE.ID, COUNT(RECIBOS_CLIENTE.ID) +FROM FACTURAS_CLIENTE +LEFT JOIN RECIBOS_CLIENTE +ON (RECIBOS_CLIENTE.ID_FACTURA = FACTURAS_CLIENTE.ID) +GROUP BY FACTURAS_CLIENTE.ID +; + + + +/* View: V_REC_CLI_SITUACION */ +CREATE VIEW V_REC_CLI_SITUACION( + ID_RECIBO, + SITUACION) +AS +SELECT RECIBOS_CLIENTE.ID, +CASE WHEN (COUNT(PAGOS_CLIENTE.ID_RECIBO)=0) THEN 'PENDIENTE' + WHEN (MOD(COUNT(PAGOS_CLIENTE.ID_RECIBO), 2)=0) THEN 'DEVUELTO' + ELSE 'COBRADO' +END +FROM RECIBOS_CLIENTE +LEFT JOIN PAGOS_CLIENTE +ON (PAGOS_CLIENTE.ID_RECIBO = RECIBOS_CLIENTE.ID) +GROUP BY RECIBOS_CLIENTE.ID +; + + + +/* View: V_REC_FAC_CLI_COBRADOS */ +CREATE VIEW V_REC_FAC_CLI_COBRADOS( + ID_FACTURA, + NUM_REC_COBRADOS) +AS +SELECT RECIBOS_CLIENTE.ID_FACTURA, COUNT(V_REC_CLI_SITUACION.ID_RECIBO) +FROM V_REC_CLI_SITUACION LEFT JOIN RECIBOS_CLIENTE ON + (RECIBOS_CLIENTE.ID = V_REC_CLI_SITUACION.ID_RECIBO) +WHERE (TRIM(V_REC_CLI_SITUACION.SITUACION) = 'COBRADO') +GROUP BY RECIBOS_CLIENTE.ID_FACTURA +; + + + +/* View: V_FAC_CLI_SITUACION */ +CREATE VIEW V_FAC_CLI_SITUACION( + ID_FACTURA, + SITUACION) +AS +SELECT ID_FACTURA, +CASE + WHEN ((SUM(NUM_RECIBOS) = 0) + OR (SUM(NUM_REC_COBRADOS) = 0)) THEN 'PENDIENTE' + WHEN (SUM(NUM_RECIBOS) = SUM(NUM_REC_COBRADOS)) THEN 'PAGADA' + ELSE 'PARCIALMENTE PAGADA' +END AS SITUACION +FROM +( + SELECT ID_FACTURA, NUM_RECIBOS, 0 AS NUM_REC_COBRADOS + FROM V_REC_FAC_CLI + UNION ALL + SELECT ID_FACTURA, 0 AS NUM_RECIBOS, NUM_REC_COBRADOS + FROM V_REC_FAC_CLI_COBRADOS +) +GROUP BY ID_FACTURA +; + + + +/* View: V_REC_FAC_PRO */ +CREATE VIEW V_REC_FAC_PRO( + ID_FACTURA, + NUM_RECIBOS) +AS +SELECT FACTURAS_PROVEEDOR.ID, COUNT(RECIBOS_PROVEEDOR.ID) +FROM FACTURAS_PROVEEDOR +LEFT JOIN RECIBOS_PROVEEDOR +ON (RECIBOS_PROVEEDOR.ID_FACTURA = FACTURAS_PROVEEDOR.ID) +GROUP BY FACTURAS_PROVEEDOR.ID +; + + + +/* View: V_REC_PRO_SITUACION */ +CREATE VIEW V_REC_PRO_SITUACION( + ID_RECIBO, + SITUACION) +AS +SELECT RECIBOS_PROVEEDOR.ID, +CASE WHEN (COUNT(PAGOS_PROVEEDOR.ID_RECIBO)=0) THEN 'PENDIENTE' + WHEN (MOD(COUNT(PAGOS_PROVEEDOR.ID_RECIBO), 2)=0) THEN 'DEVUELTO' + ELSE 'PAGADO' +END +FROM RECIBOS_PROVEEDOR +LEFT JOIN PAGOS_PROVEEDOR +ON (PAGOS_PROVEEDOR.ID_RECIBO = RECIBOS_PROVEEDOR.ID) +GROUP BY RECIBOS_PROVEEDOR.ID +; + + + +/* View: V_REC_FAC_PRO_PAGADOS */ +CREATE VIEW V_REC_FAC_PRO_PAGADOS( + ID_FACTURA, + NUM_REC_PAGADOS) +AS +SELECT RECIBOS_PROVEEDOR.ID_FACTURA, COUNT(V_REC_PRO_SITUACION.ID_RECIBO) +FROM V_REC_PRO_SITUACION LEFT JOIN RECIBOS_PROVEEDOR ON + (RECIBOS_PROVEEDOR.ID = V_REC_PRO_SITUACION.ID_RECIBO) +WHERE (TRIM(V_REC_PRO_SITUACION.SITUACION) = 'PAGADO') +GROUP BY RECIBOS_PROVEEDOR.ID_FACTURA +; + + + +/* View: V_FAC_PRO_SITUACION */ +CREATE VIEW V_FAC_PRO_SITUACION( + ID_FACTURA, + SITUACION) +AS +SELECT ID_FACTURA, +CASE + WHEN ((SUM(NUM_RECIBOS) = 0) + OR (SUM(NUM_REC_PAGADOS) = 0)) THEN 'PENDIENTE' + WHEN (SUM(NUM_RECIBOS) = SUM(NUM_REC_PAGADOS)) THEN 'PAGADA' + ELSE 'PARCIALMENTE PAGADA' +END AS SITUACION +FROM +( + SELECT ID_FACTURA, NUM_RECIBOS, 0 AS NUM_REC_PAGADOS + FROM V_REC_FAC_PRO + UNION ALL + SELECT ID_FACTURA, 0 AS NUM_RECIBOS, NUM_REC_PAGADOS + FROM V_REC_FAC_PRO_PAGADOS +) +GROUP BY ID_FACTURA +; + + + +/* View: V_FACTURAS_CLIENTE */ +CREATE VIEW V_FACTURAS_CLIENTE( + ID, + ID_EMPRESA, + REFERENCIA, + TIPO, + ID_COMISION_LIQUIDADA, + FECHA_FACTURA, + SITUACION, + BASE_IMPONIBLE, + DESCUENTO, + IMPORTE_DESCUENTO, + IVA, + IMPORTE_IVA, + RE, + IMPORTE_RE, + IMPORTE_TOTAL, + OBSERVACIONES, + ID_CLIENTE, + NIF_CIF, + NOMBRE, + CALLE, + POBLACION, + PROVINCIA, + CODIGO_POSTAL, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO, + ID_FORMA_PAGO, + RECARGO_EQUIVALENCIA, + ID_TIPO_IVA, + IMPORTE_NETO, + IMPORTE_PORTE, + ID_AGENTE, + REFERENCIA_COMISION) +AS +SELECT FACTURAS_CLIENTE.ID, + FACTURAS_CLIENTE.ID_EMPRESA, + FACTURAS_CLIENTE.REFERENCIA, + CASE WHEN (FACTURAS_CLIENTE.IMPORTE_TOTAL < 0) THEN 'A' ELSE 'F' END AS TIPO, + FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA, + FACTURAS_CLIENTE.FECHA_FACTURA, + TRIM(V_FAC_CLI_SITUACION.SITUACION), + FACTURAS_CLIENTE.BASE_IMPONIBLE, + FACTURAS_CLIENTE.DESCUENTO, + FACTURAS_CLIENTE.IMPORTE_DESCUENTO, + FACTURAS_CLIENTE.IVA, + FACTURAS_CLIENTE.IMPORTE_IVA, + FACTURAS_CLIENTE.RE, + FACTURAS_CLIENTE.IMPORTE_RE, + FACTURAS_CLIENTE.IMPORTE_TOTAL, + FACTURAS_CLIENTE.OBSERVACIONES, + FACTURAS_CLIENTE.ID_CLIENTE, + FACTURAS_CLIENTE.NIF_CIF, + FACTURAS_CLIENTE.NOMBRE, + FACTURAS_CLIENTE.CALLE, + FACTURAS_CLIENTE.POBLACION, + FACTURAS_CLIENTE.PROVINCIA, + FACTURAS_CLIENTE.CODIGO_POSTAL, + FACTURAS_CLIENTE.FECHA_ALTA, + FACTURAS_CLIENTE.FECHA_MODIFICACION, + FACTURAS_CLIENTE.USUARIO, + FACTURAS_CLIENTE.ID_FORMA_PAGO, + FACTURAS_CLIENTE.RECARGO_EQUIVALENCIA, + FACTURAS_CLIENTE.ID_TIPO_IVA, + FACTURAS_CLIENTE.IMPORTE_NETO, + FACTURAS_CLIENTE.IMPORTE_PORTE, + CLIENTES_DATOS.ID_AGENTE, + COMISIONES_LIQUIDADAS.REFERENCIA + FROM V_FAC_CLI_SITUACION + LEFT JOIN FACTURAS_CLIENTE + ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA) + LEFT JOIN COMISIONES_LIQUIDADAS + ON (COMISIONES_LIQUIDADAS.ID = FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA) + LEFT JOIN CLIENTES_DATOS + ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE) +; + + + +/* View: V_FACTURAS_PROVEEDOR */ +CREATE VIEW V_FACTURAS_PROVEEDOR( + ID, + ID_EMPRESA, + REFERENCIA, + TIPO, + REFERENCIA_PROVEEDOR, + FECHA_FACTURA, + SITUACION, + BASE_IMPONIBLE, + DESCUENTO, + IMPORTE_DESCUENTO, + IVA, + IMPORTE_IVA, + RE, + IMPORTE_RE, + IMPORTE_TOTAL, + OBSERVACIONES, + ID_PROVEEDOR, + NIF_CIF, + NOMBRE, + CALLE, + POBLACION, + PROVINCIA, + CODIGO_POSTAL, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO, + ID_FORMA_PAGO, + RECARGO_EQUIVALENCIA, + ID_TIPO_IVA, + IMPORTE_NETO, + IMPORTE_PORTE) +AS +SELECT FACTURAS_PROVEEDOR.ID, + FACTURAS_PROVEEDOR.ID_EMPRESA, + FACTURAS_PROVEEDOR.REFERENCIA, + CASE WHEN (FACTURAS_PROVEEDOR.IMPORTE_TOTAL < 0) THEN 'A' ELSE 'F' END AS TIPO, + FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR, + FACTURAS_PROVEEDOR.FECHA_FACTURA, + TRIM(V_FAC_PRO_SITUACION.SITUACION), + FACTURAS_PROVEEDOR.BASE_IMPONIBLE, + FACTURAS_PROVEEDOR.DESCUENTO, + FACTURAS_PROVEEDOR.IMPORTE_DESCUENTO, + FACTURAS_PROVEEDOR.IVA, + FACTURAS_PROVEEDOR.IMPORTE_IVA, + FACTURAS_PROVEEDOR.RE, + FACTURAS_PROVEEDOR.IMPORTE_RE, + FACTURAS_PROVEEDOR.IMPORTE_TOTAL, + FACTURAS_PROVEEDOR.OBSERVACIONES, + FACTURAS_PROVEEDOR.ID_PROVEEDOR, + FACTURAS_PROVEEDOR.NIF_CIF, + FACTURAS_PROVEEDOR.NOMBRE, + FACTURAS_PROVEEDOR.CALLE, + FACTURAS_PROVEEDOR.POBLACION, + FACTURAS_PROVEEDOR.PROVINCIA, + FACTURAS_PROVEEDOR.CODIGO_POSTAL, + FACTURAS_PROVEEDOR.FECHA_ALTA, + FACTURAS_PROVEEDOR.FECHA_MODIFICACION, + FACTURAS_PROVEEDOR.USUARIO, + FACTURAS_PROVEEDOR.ID_FORMA_PAGO, + FACTURAS_PROVEEDOR.RECARGO_EQUIVALENCIA, + FACTURAS_PROVEEDOR.ID_TIPO_IVA, + FACTURAS_PROVEEDOR.IMPORTE_NETO, + FACTURAS_PROVEEDOR.IMPORTE_PORTE + FROM V_FAC_PRO_SITUACION + LEFT JOIN FACTURAS_PROVEEDOR + ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA) + LEFT JOIN PROVEEDORES_DATOS + ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR) +; + + + +/* View: V_PED_PROV_ARTICULOS_RECIBIDOS */ +CREATE VIEW V_PED_PROV_ARTICULOS_RECIBIDOS( + ID_PEDIDO, + ID_ARTICULO, + CANTIDAD) +AS +SELECT ID_PEDIDO, ID_ARTICULO, SUM(CANTIDAD) AS CANTIDAD +FROM V_ALB_PROV_DETALLES +WHERE (ID_PEDIDO is not null) +GROUP BY ID_PEDIDO, ID_ARTICULO +; + + + +/* View: V_PED_PROV_DETALLES */ +CREATE VIEW V_PED_PROV_DETALLES( + ID_PEDIDO, + ID_ALMACEN, + ID_ARTICULO, + CANTIDAD) +AS +SELECT PEDIDOS_PROVEEDOR_DETALLES.ID_PEDIDO, + PEDIDOS_PROVEEDOR.ID_ALMACEN, + COALESCE(PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO, 0), + SUM(COALESCE(PEDIDOS_PROVEEDOR_DETALLES.CANTIDAD, 0)) + +FROM PEDIDOS_PROVEEDOR_DETALLES +LEFT JOIN PEDIDOS_PROVEEDOR +ON (PEDIDOS_PROVEEDOR_DETALLES.ID_PEDIDO = PEDIDOS_PROVEEDOR.ID) + +/*Mantenemos los articulos inventariables y aquellos que no existan en nuestro catálogo con el fin de no falsear la situación de los pedidos +LEFT JOIN ARTICULOS +ON (PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID) + +WHERE (PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO is not null) +AND (ARTICULOS.INVENTARIABLE = 1) +*/ + +GROUP BY PEDIDOS_PROVEEDOR_DETALLES.ID_PEDIDO, + PEDIDOS_PROVEEDOR.ID_ALMACEN, + PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO +; + + + +/* View: V_PED_PROV_ARTICULOS_AUX */ +CREATE VIEW V_PED_PROV_ARTICULOS_AUX( + ID_PEDIDO, + ID_ARTICULO, + CANTIDAD_PEDIDA, + CANTIDAD_RECIBIDA) +AS +SELECT + V_PED_PROV_DETALLES.ID_PEDIDO, + V_PED_PROV_DETALLES.ID_ARTICULO, + V_PED_PROV_DETALLES.CANTIDAD AS CANTIDAD_PEDIDA, + 0 as CANTIDAD_RECIBIDA +FROM V_PED_PROV_DETALLES +UNION ALL +SELECT + V_PED_PROV_ARTICULOS_RECIBIDOS.ID_PEDIDO, + V_PED_PROV_ARTICULOS_RECIBIDOS.ID_ARTICULO, + NULL as CANTIDAD_PEDIDA, + V_PED_PROV_ARTICULOS_RECIBIDOS.CANTIDAD AS CANTIDAD_RECIBIDA +FROM V_PED_PROV_ARTICULOS_RECIBIDOS +; + + + +/* View: V_PED_PROV_ARTICULOS */ +CREATE VIEW V_PED_PROV_ARTICULOS( + ID_PEDIDO, + ID_ARTICULO, + CANTIDAD_PEDIDA, + CANTIDAD_RECIBIDA, + CANTIDAD_PENDIENTE) +AS +SELECT ID_PEDIDO, + /*PEDIDOS_PROVEEDOR.ID_ALMACEN,*/ + ID_ARTICULO, + SUM(CANTIDAD_PEDIDA) as CANTIDAD_PEDIDA, + SUM(CANTIDAD_RECIBIDA) as CANTIDAD_RECIBIDA, + SUM(CANTIDAD_PEDIDA) - SUM(CANTIDAD_RECIBIDA) as CANTIDAD_PENDIENTE +FROM V_PED_PROV_ARTICULOS_AUX +/* +LEFT JOIN PEDIDOS_PROVEEDOR +ON (PEDIDOS_PROVEEDOR.ID = V_PED_PROV_ARTICULOS_AUX.ID_PEDIDO) +*/ +GROUP BY ID_PEDIDO, + /*PEDIDOS_PROVEEDOR.ID_ALMACEN,*/ + ID_ARTICULO +HAVING SUM(CANTIDAD_PEDIDA) IS NOT NULL +; + + + +/* View: V_PED_PROV_SITUACION */ +CREATE VIEW V_PED_PROV_SITUACION( + ID_PEDIDO, + SITUACION) +AS +SELECT ID_PEDIDO, +CASE WHEN (SUM(CANTIDAD_PENDIENTE) > 0) AND (SUM(CANTIDAD_RECIBIDA) = 0) THEN 'PENDIENTE' + WHEN (SUM(CANTIDAD_PENDIENTE) <= 0) THEN 'RECIBIDO' + WHEN (SUM(CANTIDAD_PENDIENTE) > 0) AND (SUM(CANTIDAD_RECIBIDA) > 0) THEN 'PARCIAL' + ELSE 'N/A' +END AS SITUACION +FROM V_PED_PROV_ARTICULOS +GROUP BY V_PED_PROV_ARTICULOS.ID_PEDIDO +; + + + +/* View: V_PROVEEDORES */ +CREATE VIEW V_PROVEEDORES( + 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, + DESCUENTO, + DESCRIPCION_PROVEEDOR, + CODIGO_ASIGNADO, + GRUPO_PROVEEDOR, + REGIMEN_IVA, + ID_TIPO_IVA, + ID_FORMA_PAGO, + TIENDA_WEB, + HOMOLOGADO, + CERTIFICACION) +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, + 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 +FROM + PROVEEDORES_DATOS + INNER JOIN V_CONTACTOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = V_CONTACTOS.ID) +WHERE + V_CONTACTOS.ID_CATEGORIA = 2 +; + + + +/* View: V_PEDIDOS_PROVEEDOR */ +CREATE VIEW V_PEDIDOS_PROVEEDOR( + ID, + ID_EMPRESA, + ID_PROVEEDOR, + NOMBRE, + REFERENCIA, + SITUACION, + FECHA_ENVIO, + FECHA_PEDIDO, + FECHA_CONFIRMACION, + FECHA_ENTREGA, + ID_ALMACEN, + NOMBRE_ALMACEN, + OBSERVACIONES, + IMPORTE_TOTAL, + INCIDENCIAS, + INCIDENCIAS_ACTIVAS, + CALLE, + POBLACION, + PROVINCIA, + CODIGO_POSTAL, + PERSONA_CONTACTO, + TELEFONO, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO, + ID_PEDIDO_CLIENTE, + REF_PED_CLIENTE, + IMPORTE_NETO, + IMPORTE_PORTE, + DESCUENTO, + IMPORTE_DESCUENTO, + BASE_IMPONIBLE, + IVA, + IMPORTE_IVA, + ID_FORMA_PAGO) +AS +SELECT + PEDIDOS_PROVEEDOR.ID, + PEDIDOS_PROVEEDOR.ID_EMPRESA, + PEDIDOS_PROVEEDOR.ID_PROVEEDOR, + V_PROVEEDORES.NOMBRE, + PEDIDOS_PROVEEDOR.REFERENCIA, + TRIM(V_PED_PROV_SITUACION.SITUACION), + PEDIDOS_PROVEEDOR.FECHA_ENVIO, + PEDIDOS_PROVEEDOR.FECHA_PEDIDO, + PEDIDOS_PROVEEDOR.FECHA_CONFIRMACION, + PEDIDOS_PROVEEDOR.FECHA_ENTREGA, + PEDIDOS_PROVEEDOR.ID_ALMACEN, + ALMACENES.NOMBRE AS NOMBRE_ALMACEN, + PEDIDOS_PROVEEDOR.OBSERVACIONES, + PEDIDOS_PROVEEDOR.IMPORTE_TOTAL, + PEDIDOS_PROVEEDOR.INCIDENCIAS, + PEDIDOS_PROVEEDOR.INCIDENCIAS_ACTIVAS, + PEDIDOS_PROVEEDOR.CALLE, + PEDIDOS_PROVEEDOR.POBLACION, + PEDIDOS_PROVEEDOR.PROVINCIA, + PEDIDOS_PROVEEDOR.CODIGO_POSTAL, + PEDIDOS_PROVEEDOR.PERSONA_CONTACTO, + PEDIDOS_PROVEEDOR.TELEFONO, + PEDIDOS_PROVEEDOR.FECHA_ALTA, + PEDIDOS_PROVEEDOR.FECHA_MODIFICACION, + PEDIDOS_PROVEEDOR.USUARIO, + PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE, + PEDIDOS_CLIENTE.REFERENCIA AS REF_PED_CLIENTE, + PEDIDOS_PROVEEDOR.IMPORTE_NETO, + PEDIDOS_PROVEEDOR.IMPORTE_PORTE, + PEDIDOS_PROVEEDOR.DESCUENTO, + PEDIDOS_PROVEEDOR.IMPORTE_DESCUENTO, + PEDIDOS_PROVEEDOR.BASE_IMPONIBLE, + PEDIDOS_PROVEEDOR.IVA, + PEDIDOS_PROVEEDOR.IMPORTE_IVA, + PEDIDOS_PROVEEDOR.ID_FORMA_PAGO +FROM + PEDIDOS_PROVEEDOR + LEFT OUTER JOIN V_PROVEEDORES ON (PEDIDOS_PROVEEDOR.ID_PROVEEDOR = V_PROVEEDORES.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 V_PED_PROV_SITUACION ON (V_PED_PROV_SITUACION.ID_PEDIDO = PEDIDOS_PROVEEDOR.ID) +; + + + +/* View: V_PRESUPUESTOS_CLIENTE */ +CREATE VIEW V_PRESUPUESTOS_CLIENTE( + ID, + ID_EMPRESA, + FECHA_PRESUPUESTO, + FECHA_DECISION, + REFERENCIA, + SITUACION, + ID_CLIENTE, + NIF_CIF, + NOMBRE, + REFERENCIA_CLIENTE, + CLIENTE_FINAL, + PORTADA, + MEMORIA, + OBSERVACIONES, + INCIDENCIAS, + INCIDENCIAS_ACTIVAS, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO, + IMPORTE_NETO, + IMPORTE_PORTE, + DESCUENTO, + IMPORTE_DESCUENTO, + BASE_IMPONIBLE, + IVA, + IMPORTE_IVA, + IMPORTE_TOTAL, + ID_FORMA_PAGO) +AS +SELECT + PRESUPUESTOS_CLIENTE.ID, + PRESUPUESTOS_CLIENTE.ID_EMPRESA, + PRESUPUESTOS_CLIENTE.FECHA_PRESUPUESTO, + PRESUPUESTOS_CLIENTE.FECHA_DECISION, + PRESUPUESTOS_CLIENTE.REFERENCIA, + PRESUPUESTOS_CLIENTE.SITUACION, + PRESUPUESTOS_CLIENTE.ID_CLIENTE, + V_CLIENTES.NIF_CIF, + V_CLIENTES.NOMBRE, + PRESUPUESTOS_CLIENTE.REFERENCIA_CLIENTE, + PRESUPUESTOS_CLIENTE.CLIENTE_FINAL, + PRESUPUESTOS_CLIENTE.PORTADA, + PRESUPUESTOS_CLIENTE.MEMORIA, + PRESUPUESTOS_CLIENTE.OBSERVACIONES, + PRESUPUESTOS_CLIENTE.INCIDENCIAS, + PRESUPUESTOS_CLIENTE.INCIDENCIAS_ACTIVAS, + PRESUPUESTOS_CLIENTE.FECHA_ALTA, + PRESUPUESTOS_CLIENTE.FECHA_MODIFICACION, + PRESUPUESTOS_CLIENTE.USUARIO, + PRESUPUESTOS_CLIENTE.IMPORTE_NETO, + PRESUPUESTOS_CLIENTE.IMPORTE_PORTE, + PRESUPUESTOS_CLIENTE.DESCUENTO, + PRESUPUESTOS_CLIENTE.IMPORTE_DESCUENTO, + PRESUPUESTOS_CLIENTE.BASE_IMPONIBLE, + PRESUPUESTOS_CLIENTE.IVA, + PRESUPUESTOS_CLIENTE.IMPORTE_IVA, + PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL, + PRESUPUESTOS_CLIENTE.ID_FORMA_PAGO +FROM + PRESUPUESTOS_CLIENTE + LEFT OUTER JOIN V_CLIENTES ON (PRESUPUESTOS_CLIENTE.ID_CLIENTE = V_CLIENTES.ID) +; + + + +/* View: V_REC_CLI_COMPENSADOS */ +CREATE VIEW V_REC_CLI_COMPENSADOS( + ID_RECIBO, + IMPORTE_TOTAL_COMPENSADO) +AS +select ID_RECIBO_COMPENSADO, SUM((IMPORTE + OTROS_GASTOS)) as IMPORTE_TOTAL +from RECIBOS_CLIENTE +where ID_RECIBO_COMPENSADO is not null +group by ID_RECIBO_COMPENSADO +; + + + +/* View: V_REC_PRO_COMPENSADOS */ +CREATE VIEW V_REC_PRO_COMPENSADOS( + ID_RECIBO, + IMPORTE_TOTAL_COMPENSADO) +AS +select ID_RECIBO_COMPENSADO, SUM((IMPORTE + OTROS_GASTOS)) as IMPORTE_TOTAL +from RECIBOS_PROVEEDOR +where ID_RECIBO_COMPENSADO is not null +group by ID_RECIBO_COMPENSADO +; + + + +/* View: V_RECIBOS_CLIENTE */ +CREATE VIEW V_RECIBOS_CLIENTE( + ID, + ID_RECIBO_COMPENSADO, + REFERENCIA_REC_COMPENSADO, + REFERENCIA, + SITUACION, + ID_FACTURA, + ID_REMESA, + REFERENCIA_REMESA, + FECHA_EMISION, + FECHA_VENCIMIENTO, + DESCRIPCION, + OBSERVACIONES, + IMPORTE, + OTROS_GASTOS, + IMPORTE_TOTAL, + FECHA_FACTURA, + FORMA_PAGO_FACTURA, + IMPORTE_FACTURA, + ID_EMPRESA, + ID_CLIENTE, + NOMBRE_CLIENTE, + NIF_CIF_CLIENTE, + ENTIDAD_CLIENTE, + SUCURSAL_CLIENTE, + DC_CLIENTE, + CUENTA_CLIENTE, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO) +AS +SELECT RECIBOS_CLIENTE.ID, + RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO, + RECIBO_COMPENSADO1.REFERENCIA, + RECIBOS_CLIENTE.REFERENCIA, + CASE + WHEN RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO IS NULL + THEN TRIM(V_REC_CLI_SITUACION.SITUACION) + ELSE TRIM(RECIBO_COMPENSADO2.SITUACION) + END, + RECIBOS_CLIENTE.ID_FACTURA, + RECIBOS_CLIENTE.ID_REMESA, REMESAS_CLIENTE.REFERENCIA as REFERENCIA_REMESA, + RECIBOS_CLIENTE.FECHA_EMISION, RECIBOS_CLIENTE.FECHA_VENCIMIENTO, RECIBOS_CLIENTE.DESCRIPCION, + RECIBOS_CLIENTE.OBSERVACIONES, RECIBOS_CLIENTE.IMPORTE, RECIBOS_CLIENTE.OTROS_GASTOS, + COALESCE(RECIBOS_CLIENTE.IMPORTE, 0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS, 0) + COALESCE(V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO, 0), + + FACTURAS_CLIENTE.FECHA_FACTURA, FORMAS_PAGO.DESCRIPCION, FACTURAS_CLIENTE.IMPORTE_TOTAL, + FACTURAS_CLIENTE.ID_EMPRESA, + + CONTACTOS.ID as ID_CLIENTE, CONTACTOS.NOMBRE, CONTACTOS.NIF_CIF, CONTACTOS_DATOS_BANCO.ENTIDAD, + CONTACTOS_DATOS_BANCO.SUCURSAL, CONTACTOS_DATOS_BANCO.DC, CONTACTOS_DATOS_BANCO.CUENTA, + + RECIBOS_CLIENTE.FECHA_ALTA, + RECIBOS_CLIENTE.FECHA_MODIFICACION, + RECIBOS_CLIENTE.USUARIO + +FROM RECIBOS_CLIENTE +LEFT JOIN V_REC_CLI_SITUACION +ON (V_REC_CLI_SITUACION.ID_RECIBO = RECIBOS_CLIENTE.ID) +LEFT JOIN FACTURAS_CLIENTE +ON (FACTURAS_CLIENTE.ID = RECIBOS_CLIENTE.ID_FACTURA) +LEFT JOIN FORMAS_PAGO +ON (FORMAS_PAGO.ID = FACTURAS_CLIENTE.ID_FORMA_PAGO) +LEFT JOIN CONTACTOS +ON (CONTACTOS.ID = FACTURAS_CLIENTE.ID_CLIENTE) +LEFT JOIN CONTACTOS_DATOS_BANCO +ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = CONTACTOS.ID) +LEFT JOIN REMESAS_CLIENTE +ON (REMESAS_CLIENTE.ID = RECIBOS_CLIENTE.ID_REMESA) +LEFT JOIN V_REC_CLI_COMPENSADOS +ON (V_REC_CLI_COMPENSADOS.ID_RECIBO = RECIBOS_CLIENTE.ID) +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) +; + + + +/* View: V_RECIBOS_PROVEEDOR */ +CREATE VIEW V_RECIBOS_PROVEEDOR( + ID, + ID_RECIBO_COMPENSADO, + REFERENCIA_REC_COMPENSADO, + REFERENCIA, + REFERENCIA_PROVEEDOR, + SITUACION, + ID_FACTURA, + ID_REMESA, + REFERENCIA_REMESA, + FECHA_EMISION, + FECHA_VENCIMIENTO, + DESCRIPCION, + OBSERVACIONES, + IMPORTE, + OTROS_GASTOS, + IMPORTE_TOTAL, + REFERENCIA_FACTURA_PROV, + FECHA_FACTURA, + FORMA_PAGO_FACTURA, + IMPORTE_FACTURA, + ID_EMPRESA, + ID_PROVEEDOR, + NOMBRE_PROVEEDOR, + NIF_CIF_PROVEEDOR, + ENTIDAD_PROVEEDOR, + SUCURSAL_PROVEEDOR, + DC_PROVEEDOR, + CUENTA_PROVEEDOR, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO) +AS +SELECT RECIBOS_PROVEEDOR.ID, + RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO, + RECIBO_COMPENSADO1.REFERENCIA, + RECIBOS_PROVEEDOR.REFERENCIA, + RECIBOS_PROVEEDOR.REFERENCIA_PROVEEDOR, + CASE + WHEN RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO IS NULL + THEN TRIM(V_REC_PRO_SITUACION.SITUACION) + ELSE TRIM(RECIBO_COMPENSADO2.SITUACION) + END, + RECIBOS_PROVEEDOR.ID_FACTURA, + RECIBOS_PROVEEDOR.ID_REMESA, REMESAS_PROVEEDOR.REFERENCIA as REFERENCIA_REMESA, + RECIBOS_PROVEEDOR.FECHA_EMISION, RECIBOS_PROVEEDOR.FECHA_VENCIMIENTO, RECIBOS_PROVEEDOR.DESCRIPCION, + RECIBOS_PROVEEDOR.OBSERVACIONES, RECIBOS_PROVEEDOR.IMPORTE, RECIBOS_PROVEEDOR.OTROS_GASTOS, + COALESCE(RECIBOS_PROVEEDOR.IMPORTE, 0) + COALESCE(RECIBOS_PROVEEDOR.OTROS_GASTOS, 0) + COALESCE(V_REC_PRO_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO, 0), + + FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR, FACTURAS_PROVEEDOR.FECHA_FACTURA, + FORMAS_PAGO.DESCRIPCION, FACTURAS_PROVEEDOR.IMPORTE_TOTAL, + FACTURAS_PROVEEDOR.ID_EMPRESA, + + CONTACTOS.ID as ID_PROVEEDOR, CONTACTOS.NOMBRE, CONTACTOS.NIF_CIF, CONTACTOS_DATOS_BANCO.ENTIDAD, + CONTACTOS_DATOS_BANCO.SUCURSAL, CONTACTOS_DATOS_BANCO.DC, CONTACTOS_DATOS_BANCO.CUENTA, + + RECIBOS_PROVEEDOR.FECHA_ALTA, + RECIBOS_PROVEEDOR.FECHA_MODIFICACION, + RECIBOS_PROVEEDOR.USUARIO + +FROM RECIBOS_PROVEEDOR +LEFT JOIN V_REC_PRO_SITUACION +ON (V_REC_PRO_SITUACION.ID_RECIBO = RECIBOS_PROVEEDOR.ID) +LEFT JOIN FACTURAS_PROVEEDOR +ON (FACTURAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_FACTURA) +LEFT JOIN FORMAS_PAGO +ON (FORMAS_PAGO.ID = FACTURAS_PROVEEDOR.ID_FORMA_PAGO) +LEFT JOIN CONTACTOS +ON (CONTACTOS.ID = FACTURAS_PROVEEDOR.ID_PROVEEDOR) +LEFT JOIN CONTACTOS_DATOS_BANCO +ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = CONTACTOS.ID) +LEFT JOIN REMESAS_PROVEEDOR +ON (REMESAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_REMESA) +LEFT JOIN V_REC_PRO_COMPENSADOS +ON (V_REC_PRO_COMPENSADOS.ID_RECIBO = RECIBOS_PROVEEDOR.ID) +LEFT JOIN RECIBOS_PROVEEDOR RECIBO_COMPENSADO1 +ON (RECIBO_COMPENSADO1.ID = RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO) +LEFT JOIN V_REC_PRO_SITUACION RECIBO_COMPENSADO2 +ON (RECIBO_COMPENSADO2.ID_RECIBO = RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO) +; + + +INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, REGISTRO_MERCANTIL, IVA) VALUES (1, 'B89999999', 'Tecsitel S.L.', NULL, 'C/ Buen dia, 4, Bajo 1', 'Madrid', 'Madrid', '28950', '91600444', NULL, NULL, NULL, '919999999', NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, '', 16); +INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, REGISTRO_MERCANTIL, IVA) VALUES (2, 'B89999999', 'Tecsitel Mantenimiento S.L.', NULL, 'C/ Buen dia, 4, Bajo 1', 'Madrid', 'Madrid', '28950', '91600444', NULL, NULL, NULL, '919000000', NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, '', 16); + +COMMIT WORK; + +INSERT INTO CATEGORIAS (ID, CATEGORIA) VALUES (1, 'CLIENTE'); +INSERT INTO CATEGORIAS (ID, CATEGORIA) VALUES (2, 'PROVEEDOR'); +INSERT INTO CATEGORIAS (ID, CATEGORIA) VALUES (3, 'EMPLEADO'); + +COMMIT WORK; + +INSERT INTO EMPRESAS_USUARIOS (ID_EMPRESA, ID_USUARIO) VALUES (1, 1); +INSERT INTO EMPRESAS_USUARIOS (ID_EMPRESA, ID_USUARIO) VALUES (1, 2); +INSERT INTO EMPRESAS_USUARIOS (ID_EMPRESA, ID_USUARIO) VALUES (1, 3); +INSERT INTO EMPRESAS_USUARIOS (ID_EMPRESA, ID_USUARIO) VALUES (1, 4); +INSERT INTO EMPRESAS_USUARIOS (ID_EMPRESA, ID_USUARIO) VALUES (2, 1); +INSERT INTO EMPRESAS_USUARIOS (ID_EMPRESA, ID_USUARIO) VALUES (2, 2); +INSERT INTO EMPRESAS_USUARIOS (ID_EMPRESA, ID_USUARIO) VALUES (2, 3); +INSERT INTO EMPRESAS_USUARIOS (ID_EMPRESA, ID_USUARIO) VALUES (2, 4); + +COMMIT WORK; + +INSERT INTO FAMILIAS (DESCRIPCION) VALUES ('Familia de ejemplo'); + +COMMIT WORK; + +INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (10, 'CONTADO', 'CONTADO', NULL, NULL, NULL, NULL, NULL); +INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (11, 'A30', 'A 30 DIAS', NULL, NULL, NULL, NULL, NULL); +INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (12, 'A306090', 'A 30 60 90 DIAS', NULL, NULL, NULL, NULL, NULL); + +COMMIT WORK; + +INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (6, 10, 0, 100); +INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (11, 12, 60, 33.3300018310547); +INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (8, 11, 30, 100); +INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (9, 12, 30, 33.3300018310547); +INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (12, 12, 90, 33.3300018310547); + +COMMIT WORK; + + +SET BLOBFILE 'C:\Codigo Tecsitel\Database\ScriptSinDatos.lob'; + +INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE, VISTA) VALUES (2, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por artículo', 'Informe de ventas por artículo', NULL, 'S', :h00000000_00001EE0); +INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE, VISTA) VALUES (5, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por cliente', 'Informe de ventas por cliente y artículo', NULL, 'S', :h00001EE0_00002080); +INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE, VISTA) VALUES (7, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por agente y cliente', 'Informe de ventas por agente y cliente', NULL, 'S', :h00003F60_00002084); +INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE, VISTA) VALUES (17, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 0, 'Margen (promedio) por artículo', 'Informe de margen por artículo teniendo en cuenta el precio neto de venta promedio', NULL, 'S', :h00005FE4_0000366D); +INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE, VISTA) VALUES (15, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por proveedor', 'Informe de ventas por proveedor y artículo', NULL, 'S', :h00009651_00002081); +INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE, VISTA) VALUES (19, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 0, 'Margen (promedio) por cliente', 'Informe de margen por artículo agrupado por cliente teniendo en cuenta el precio neto de venta promedio', NULL, 'S', :h0000B6D2_00003B6B); +INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE, VISTA) VALUES (20, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 0, 'Margen (promedio) por agente y cliente', 'Informe de margen por artículo agrupado por agente y cliente teniendo en cuenta el precio neto de venta promedio', NULL, 'S', :h0000F23D_00003B71); +INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE, VISTA) VALUES (21, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 2, 'Margen (ult. venta) por artículo', 'Informe de margen por artículo teniendo en cuenta el precio neto de última venta', NULL, 'S', :h00012DAE_000038DD); +INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE, VISTA) VALUES (22, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 2, 'Margen (ult.venta) por clientes', 'Informe de margen por artículo agrupado por cliente teniendo en cuenta el precio neto de última venta', NULL, 'S', :h0001668B_00003B6B); +INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE, VISTA) VALUES (23, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 2, 'Margen (ult. venta) por agente y cliente', 'Informe de margen por artículo agrupado por agente y cliente teniendo en cuenta el precio neto de última venta', NULL, 'S', :h0001A1F6_00003B76); + +COMMIT WORK; + +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_FACTURAS_CLIENTE', '2007/0001', 1, 'Ref. facturas de cliente'); +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_PEDIDOS_CLIENTE', '00001', 1, 'Ref. pedidos de cliente'); +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_PEDIDOS_PROVEEDOR', '00001', 1, 'Ref. pedidos de proveedor'); +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_ALBARANES_CLIENTE', '00001', 1, 'Ref. albaranes de cliente'); +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_ALBARANES_PROVEEDOR', '00001', 1, 'Ref. albaranes de proveedor'); +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_REMESAS_CLIENTE', '00001', 1, 'Ref. remesas de cliente'); +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_COMISIONES', '00001', 1, 'Ref. liquidaciones de comision'); +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_FACTURAS_PROVEEDOR', '2007/0001', 1, 'Ref. facturas de proveedor'); +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_ALBARANES_DEV_CLIENTE', '00001', 1, 'Ref. ordenes de devolucion de cliente'); +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_ALBARANES_DEV_PROVEEDOR', '00001', 1, 'Ref. ordenes de devolucion de proveedor'); +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_REMESAS_PROVEEDOR', '00001', 1, 'Ref. remesas de proveedor'); +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_ABONOS_CLIENTE', '2007/0001', 1, 'Ref. abonos de cliente'); +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_ABONOS_PROVEEDOR', '2007/0001', 1, 'Ref. abonos de proveedor'); +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_PRESUPUESTOS_CLIENTE', 'PRE07/00001', 1, 'Ref. presupuestos de cliente'); +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_FACTURAS_CLIENTE', '2007/0001', 2, 'Ref. facturas de cliente'); +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_PEDIDOS_CLIENTE', '00001', 2, 'Ref. pedidos de cliente'); +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_PEDIDOS_PROVEEDOR', '00001', 2, 'Ref. pedidos de proveedor'); +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_ALBARANES_CLIENTE', '00001', 2, 'Ref. albaranes de cliente'); +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_ALBARANES_PROVEEDOR', '00001', 2, 'Ref. albaranes de proveedor'); +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_REMESAS_CLIENTE', '00001', 2, 'Ref. remesas de cliente'); +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_COMISIONES', '00001', 2, 'Ref. liquidaciones de comision'); +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_FACTURAS_PROVEEDOR', '2007/0001', 2, 'Ref. facturas de proveedor'); +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_ALBARANES_DEV_CLIENTE', '00001', 2, 'Ref. ordenes de devolucion de cliente'); +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_ALBARANES_DEV_PROVEEDOR', '00001', 2, 'Ref. ordenes de devolucion de proveedor'); +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_REMESAS_PROVEEDOR', '00001', 2, 'Ref. remesas de proveedor'); +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_ABONOS_CLIENTE', '2007/0001', 2, 'Ref. abonos de cliente'); +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_ABONOS_PROVEEDOR', '2007/0001', 2, 'Ref. abonos de proveedor'); +INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_PRESUPUESTOS_CLIENTE', 'PRE/00007', 2, 'Ref. presupuestos de cliente'); + +COMMIT WORK; + +INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (2, 'IVA16', 'IVA16', 16, 4); +INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (3, 'IVA4', 'IVA4', 4, 0.5); +INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (4, 'IVA7', 'IVA7', 7, 1); +INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (6, 'EXENTO', 'EXTRANGERO', 0, 0); + +COMMIT WORK; + +INSERT INTO USUARIOS (ID, USERNAME, LOGIN, PASS, PASSEXPIRED, BLOQUEADO, EMAIL, USERDAYSSUN, PRIVILEGED, TIPO, ID_PERFIL, CHECKSUM) VALUES (1, 'Administrador', 'admin', 'c4ca4238a0b923820dcc509a6f75849b', '2007-11-21', 0, 'admin@correo.net', 30, -1, 'U', 0, '059776624a5cd87567f5cdf37dd59d1b'); + +COMMIT WORK; + + + +/******************************************************************************/ +/**** Primary Keys ****/ +/******************************************************************************/ + +ALTER TABLE AGENTES_COMISIONES ADD CONSTRAINT PK_AGENTES_COMISIONES PRIMARY KEY (ID); +ALTER TABLE ALBARANES_CLIENTE ADD CONSTRAINT PK_ALBARAN_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); +ALTER TABLE ALBARANES_PROVEEDOR_DETALLES ADD CONSTRAINT PK_ALBARANES_PROVEEDOR_DETALLES PRIMARY KEY (ID); +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 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 COMISIONES_LIQUIDADAS ADD CONSTRAINT PK_COMISIONES_LIQUIDADAS 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 EMPLEADOS_DATOS ADD CONSTRAINT PK_EMPLEADOS_DATOS PRIMARY KEY (ID_EMPLEADO); +ALTER TABLE EMPRESAS ADD CONSTRAINT PK_EMPRESAS PRIMARY KEY (ID); +ALTER TABLE EMPRESAS_CONTACTOS ADD CONSTRAINT PK_EMPRESAS_CONTACTOS PRIMARY KEY (ID_EMPRESA, ID_CONTACTO); +ALTER TABLE EMPRESAS_DATOS_BANCO ADD CONSTRAINT PK_EMPRESAS_DATOS_BANCO PRIMARY KEY (ID); +ALTER TABLE EMPRESAS_USUARIOS ADD CONSTRAINT PK_EMPRESAS_USUARIOS PRIMARY KEY (ID_EMPRESA, ID_USUARIO); +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 FORMAS_PAGO ADD PRIMARY KEY (ID); +ALTER TABLE FORMAS_PAGO_PLAZOS ADD PRIMARY KEY (ID); +ALTER TABLE F_PERFILES_USUARIOS ADD CONSTRAINT PK_PERFILES_USUARIOS PRIMARY KEY (ID_PERFIL, ID_USUARIO); +ALTER TABLE INFORMES ADD CONSTRAINT PK_INFORMES PRIMARY KEY (ID); +ALTER TABLE MOVIMIENTOS ADD CONSTRAINT PK_MOVIMIENTOS PRIMARY KEY (ID); +ALTER TABLE PAGOS_CLIENTE ADD CONSTRAINT PK_PAGOS_CLIENTE PRIMARY KEY (ID); +ALTER TABLE PAGOS_PROVEEDOR ADD CONSTRAINT PK_PAGOS_PROVEEDOR PRIMARY KEY (ID); +ALTER TABLE PEDIDOS_CLIENTE ADD CONSTRAINT PK_PEDIDOS_CLIENTE PRIMARY KEY (ID); +ALTER TABLE PEDIDOS_CLIENTE_DETALLES ADD CONSTRAINT PK_PEDIDOS_CLIENTE_DETALLES PRIMARY KEY (ID); +ALTER TABLE PEDIDOS_PROVEEDOR ADD CONSTRAINT PK_PEDIDOS_PROVEEDOR PRIMARY KEY (ID); +ALTER TABLE PEDIDOS_PROVEEDOR_DETALLES ADD CONSTRAINT PK_PEDIDOS_PROVEEDOR_DETALLES PRIMARY KEY (ID); +ALTER TABLE PRESUPUESTOS_CLIENTE ADD CONSTRAINT PK_PRESUPUESTOS_CLIENTE PRIMARY KEY (ID); +ALTER TABLE PRESUPUESTOS_CLIENTE_DETALLES ADD CONSTRAINT PK_PRESUPUESTOS_CLIENTE_DETALLE PRIMARY KEY (ID); +ALTER TABLE PROVEEDORES_DATOS ADD CONSTRAINT PK_PROVEEDORES_DATOS PRIMARY KEY (ID_PROVEEDOR); +ALTER TABLE RECIBOS_CLIENTE ADD CONSTRAINT PK_RECIBOS_CLIENTE PRIMARY KEY (ID); +ALTER TABLE RECIBOS_PROVEEDOR ADD CONSTRAINT PK_RECIBOS_PROVEEDOR PRIMARY KEY (ID); +ALTER TABLE REMESAS_CLIENTE ADD CONSTRAINT PK_REMESAS_CLIENTE PRIMARY KEY (ID); +ALTER TABLE REMESAS_PROVEEDOR ADD CONSTRAINT PK_REMESAS_PROVEEDOR PRIMARY KEY (ID); +ALTER TABLE TIENDA_WEB ADD CONSTRAINT PK_TIENDA_WEB PRIMARY KEY (ID); +ALTER TABLE TIPOS_IVA ADD PRIMARY KEY (ID); +ALTER TABLE USUARIOS ADD CONSTRAINT PK_USUARIOS PRIMARY KEY (ID); +ALTER TABLE USUARIOS_LOGON ADD CONSTRAINT PK_USUARIOS_LOGON PRIMARY KEY (LOGONID); + + +/******************************************************************************/ +/**** Foreign Keys ****/ +/******************************************************************************/ + +ALTER TABLE ALBARANES_CLIENTE ADD CONSTRAINT FK_ALBARAN_CLIENTE1 FOREIGN KEY (ID_CLIENTE) REFERENCES CONTACTOS (ID) ON DELETE NO ACTION ON UPDATE NO ACTION; +ALTER TABLE ALBARANES_CLIENTE ADD CONSTRAINT FK_ALBARAN_CLIENTE2 FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE NO ACTION ON UPDATE NO ACTION; +ALTER TABLE ALBARANES_CLIENTE ADD CONSTRAINT FK_ALBARAN_CLIENTE3 FOREIGN KEY (ID_PEDIDO) REFERENCES PEDIDOS_CLIENTE (ID) ON DELETE NO ACTION ON UPDATE NO ACTION; +ALTER TABLE ALBARANES_CLIENTE ADD CONSTRAINT FK_ALBARAN_CLIENTE4 FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_CLIENTE (ID) ON DELETE SET NULL ON UPDATE SET NULL; +ALTER TABLE ALBARANES_PROVEEDOR ADD CONSTRAINT FK_ALBARANES_PROVEEDOR3 FOREIGN KEY (ID_PEDIDO) REFERENCES PEDIDOS_PROVEEDOR (ID) ON DELETE CASCADE ON UPDATE CASCADE; +ALTER TABLE ALBARANES_PROVEEDOR ADD CONSTRAINT FK_ALBARANES_PROVEEDOR4 FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_PROVEEDOR (ID) ON DELETE SET NULL ON UPDATE CASCADE; +ALTER TABLE ALBARANES_PROVEEDOR ADD CONSTRAINT FK_ALBARAN_PROVEEDOR1 FOREIGN KEY (ID_PROVEEDOR) REFERENCES CONTACTOS (ID) ON DELETE NO ACTION ON UPDATE NO ACTION; +ALTER TABLE ALBARANES_PROVEEDOR ADD CONSTRAINT FK_ALBARAN_PROVEEDOR2 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; +ALTER TABLE ARTICULOS ADD CONSTRAINT FK_ARTICULOS_EMPRESA FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE NO ACTION ON UPDATE NO ACTION; +ALTER TABLE COMISIONES_LIQUIDADAS ADD CONSTRAINT FK_COMISIONES_LIQUIDADAS FOREIGN KEY (ID_AGENTE) REFERENCES CONTACTOS (ID); +ALTER TABLE EMPRESAS_CONTACTOS ADD CONSTRAINT FK_EMPRESAS_CONTACTOS FOREIGN KEY (ID_CONTACTO) REFERENCES CONTACTOS (ID) ON DELETE CASCADE ON UPDATE CASCADE; +ALTER TABLE EMPRESAS_DATOS_BANCO ADD CONSTRAINT FK_EMPRESAS_DATOS_BANCO 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 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_PROVEEDOR ADD CONSTRAINT FK_PAGOS_PROVEEDOR 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 RECIBOS_CLIENTE ADD CONSTRAINT FK_RECIBOS_CLIENTE FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_CLIENTE (ID) ON DELETE CASCADE ON UPDATE CASCADE; +ALTER TABLE RECIBOS_CLIENTE ADD CONSTRAINT FK_RECIBOS_CLIENTE2 FOREIGN KEY (ID_REMESA) REFERENCES REMESAS_CLIENTE (ID) ON DELETE SET NULL ON UPDATE SET NULL; +ALTER TABLE RECIBOS_PROVEEDOR ADD CONSTRAINT FK_RECIBOS_PROVEEDOR FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_PROVEEDOR (ID) ON DELETE CASCADE ON UPDATE CASCADE; +ALTER TABLE RECIBOS_PROVEEDOR ADD CONSTRAINT FK_RECIBOS_PROVEEDOR1 FOREIGN KEY (ID_REMESA) REFERENCES REMESAS_PROVEEDOR (ID) ON DELETE SET NULL ON UPDATE SET NULL; +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; + + +/******************************************************************************/ +/**** 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_CLIENTE ON ALBARANES_CLIENTE (ID_FORMA_PAGO); +CREATE INDEX IDX_ALBARANES_CLIENTE_DETALLES ON ALBARANES_CLIENTE_DETALLES (ID_ARTICULO); +CREATE INDEX IDX_ALBARANES_CLIENTE_DETALLES1 ON ALBARANES_CLIENTE_DETALLES (ID_ALBARAN); +CREATE INDEX IDX_ALBARANES_PROVEEDOR ON ALBARANES_PROVEEDOR (ID_ALMACEN); +CREATE INDEX IDX_ALBARANES_PROVEEDOR1 ON ALBARANES_PROVEEDOR (ID_FORMA_PAGO); +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_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); +CREATE INDEX IDX_CLIENTES_DTOS_PROV_ID_CLI ON CLIENTES_DTOS_PROVEEDORES (ID_CLIENTE); +CREATE INDEX IDX_CLIENTES_DTOS_PROV_ID_PROV ON CLIENTES_DTOS_PROVEEDORES (ID_PROVEEDOR); +CREATE INDEX IDX_COMISIONES_LIQUIDADAS ON COMISIONES_LIQUIDADAS (ID_EMPRESA); +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_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); +CREATE INDEX IDX_FACTURAS_CLIENTE3 ON FACTURAS_CLIENTE (ID_CLIENTE); +CREATE INDEX IDX_FACTURAS_CLIENTE_DETALLES1 ON FACTURAS_CLIENTE_DETALLES (ID_FACTURA); +CREATE INDEX IDX_FACTURAS_CLIENTE_DETALLES2 ON FACTURAS_CLIENTE_DETALLES (ID_ARTICULO); +CREATE INDEX IDX_FACTURAS_PROVEEDOR ON FACTURAS_PROVEEDOR (ID_PROVEEDOR); +CREATE INDEX IDX_FACTURAS_PROVEEDOR1 ON FACTURAS_PROVEEDOR (ID_FORMA_PAGO); +CREATE INDEX IDX_FACTURAS_PROVEEDOR2 ON FACTURAS_PROVEEDOR (ID_TIPO_IVA); +CREATE INDEX IDX_FACTURAS_PROVEEDOR_DETALLES ON FACTURAS_PROVEEDOR_DETALLES (ID_ARTICULO); +CREATE INDEX FORMAS_PAGO_PLAZOS_IDX1 ON FORMAS_PAGO_PLAZOS (ID_FORMA_PAGO); +CREATE INDEX IDX_INFORMES ON INFORMES (ID_EMPRESA); +CREATE INDEX MOVIMIENTOS_IDX1 ON MOVIMIENTOS (TIPO); +CREATE INDEX IDX_PEDIDOS_CLIENTE ON PEDIDOS_CLIENTE (ID_FORMA_PAGO); +CREATE INDEX IDX_PEDIDOS_CLIENTE_DETALLES ON PEDIDOS_CLIENTE_DETALLES (ID_PEDIDO); +CREATE INDEX IDX_PEDIDOS_CLIENTE_DETALLES1 ON PEDIDOS_CLIENTE_DETALLES (ID_ARTICULO); +CREATE INDEX IDX_PEDIDOS_PROVEEDOR ON PEDIDOS_PROVEEDOR (ID_PEDIDO_CLIENTE); +CREATE INDEX IDX_PEDIDOS_PROVEEDOR1 ON PEDIDOS_PROVEEDOR (ID_ALMACEN); +CREATE INDEX IDX_PEDIDOS_PROVEEDOR2 ON PEDIDOS_PROVEEDOR (ID_FORMA_PAGO); +CREATE INDEX IDX_PEDIDOS_PROVEEDOR_DETALLES ON PEDIDOS_PROVEEDOR_DETALLES (ID_ARTICULO); +CREATE INDEX IDX_PROVEEDORES_DATOS ON PROVEEDORES_DATOS (ID_TIPO_IVA); +CREATE INDEX IDX_PROVEEDORES_DATOS1 ON PROVEEDORES_DATOS (ID_FORMA_PAGO); +CREATE INDEX IDX_RECIBOS_CLIENTE ON RECIBOS_CLIENTE (ID_RECIBO_COMPENSADO); +CREATE INDEX IDX_RECIBOS_PROVEEDOR ON RECIBOS_PROVEEDOR (ID_RECIBO_COMPENSADO); +CREATE INDEX IDX_REFERENCIAS ON REFERENCIAS (ID_EMPRESA); +CREATE INDEX IDX_REMESAS_CLIENTE ON REMESAS_CLIENTE (ID_DATOS_BANCO); +CREATE INDEX IDX_REMESAS_PROVEEDOR ON REMESAS_PROVEEDOR (ID_DATOS_BANCO); diff --git a/Source/ApplicationBase/uFactuGES_App.pas b/Source/ApplicationBase/uFactuGES_App.pas index fbfdc829..0461b12c 100644 --- a/Source/ApplicationBase/uFactuGES_App.pas +++ b/Source/ApplicationBase/uFactuGES_App.pas @@ -61,6 +61,8 @@ type property DoMainFormEvent : TDoMainFormEvent read GetDoMainFormEvent write SetDoMainFormEvent; property DoLoadModulesEvent : TDoLoadModulesEvent read GetLoadModulesEvent write SetLoadModulesEvent; property Terminated : Boolean read GetTerminated; + + procedure ShowCapado; end; @@ -73,7 +75,7 @@ type FAppSplashForm : IAppSplashForm; FHostManager : THostManager; FTerminated : Boolean; - + FDoMainFormEvent: TDoMainFormEvent; FDoLoadModulesEvent: TDoMainFormEvent; @@ -126,6 +128,8 @@ type property DoMainFormEvent : TDoMainFormEvent read GetDoMainFormEvent write SetDoMainFormEvent; property DoLoadModulesEvent : TDoLoadModulesEvent read GetLoadModulesEvent write SetLoadModulesEvent; property Terminated : Boolean read GetTerminated; + + procedure ShowCapado; end; var @@ -134,7 +138,7 @@ var implementation uses - Dialogs, cxControls, uUsuariosViewRegister, + Dialogs, uDialogUtils, cxControls, uUsuariosViewRegister, uEmpresasViewRegister; procedure TAppFactuGES.CambiarEmpresa(const AIDEmpresa: Integer); @@ -327,6 +331,11 @@ begin FDoLoadModulesEvent := ALoadModulesEvent; end; +procedure TAppFactuGES.ShowCapado; +begin + ShowInfoMessage('Sin Acceso', 'Funcionalidad en desarrollo, disculpen las molestias'); +end; + procedure TAppFactuGES.ShowSplashForm; begin if not Assigned(FAppSplashForm) then diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index ee72957f..d90f8768 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -44,6 +44,13 @@ Package FalseTrueFalseLibreria base de FactuGESTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + + + + + + VCL for the Web Design Package for CodeGear RAD Studio CodeGear WebSnap Components CodeGear SOAP Components @@ -60,55 +67,55 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 15c8010b..94f7a9c8 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -53,7 +53,11 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2220FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.2.2.0FactuGESFactuGES2.1.4 +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1000FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.0.0FactuGESFactuGES2.1.4 + + + + diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index 9542e8cb..3a2145a3 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico" 1 VERSIONINFO -FILEVERSION 2,2,2,0 -PRODUCTVERSION 2,2,2,0 +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,7 +13,7 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "2.2.2.0\0" + VALUE "FileVersion", "1.0.0.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" VALUE "ProductVersion", "2.1.4\0" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 19ec614f..84259cb4 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas index 41224934..c54d23d8 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas @@ -220,8 +220,11 @@ end; procedure TfEditorAlbaranCliente.ImprimirInterno; begin +AppFactuGES.ShowCapado; +{ inherited; FController.Print(FAlbaran); +} end; procedure TfEditorAlbaranCliente.OnClienteChanged(Sender: TObject); @@ -317,8 +320,11 @@ end; procedure TfEditorAlbaranCliente.PrevisualizarInterno; begin +AppFactuGES.ShowCapado; +{ inherited; FController.Preview(FAlbaran); + } end; procedure TfEditorAlbaranCliente.RecalcularPortePorUnidad; diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm index bba00f20..f37530f8 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm @@ -2,7 +2,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente Caption = 'Lista de albaranes de cliente' ClientWidth = 583 ExplicitWidth = 591 - ExplicitHeight = 240 + ExplicitHeight = 471 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas index 9b78353c..9a3661b0 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas @@ -97,6 +97,8 @@ uses } procedure TfEditorAlbaranesCliente.actCancelarEnvioExecute(Sender: TObject); begin +AppFactuGES.ShowCapado; +{ inherited; if (ShowConfirmMessage('Envío de albarán de cliente', '¿Desea cancelar el envío de este albarán de cliente?') = IDYES) then @@ -109,6 +111,7 @@ begin end; end; actRefrescar.Execute; +} end; procedure TfEditorAlbaranesCliente.actCancelarEnvioUpdate(Sender: TObject); @@ -122,6 +125,8 @@ end; procedure TfEditorAlbaranesCliente.actConfirmarRecepcionExecute(Sender: TObject); begin +AppFactuGES.ShowCapado; +{ inherited; try @@ -131,6 +136,7 @@ begin ShowErrorMessage('Error al cambiar la situación del albarán', E.Message, E); end; actRefrescar.Execute; +} end; procedure TfEditorAlbaranesCliente.actConfirmarRecepcionUpdate(Sender: TObject); @@ -152,6 +158,8 @@ end; procedure TfEditorAlbaranesCliente.actGenerarEtiquetasExecute(Sender: TObject); begin +AppFactuGES.ShowCapado; +{ inherited; //Miramos si viene de un pedido previo, si no es asi le preguntamos si desea imprimir la referencia del cliente if (FAlbaranes.ID_PEDIDO > 0) then @@ -163,6 +171,7 @@ begin else FController.EtiquetasPreview(FAlbaranes, False); end; +} end; procedure TfEditorAlbaranesCliente.actGenerarEtiquetasUpdate(Sender: TObject); @@ -175,8 +184,9 @@ end; procedure TfEditorAlbaranesCliente.actGenerarFacturaExecute(Sender: TObject); begin +AppFactuGES.ShowCapado; // GenerarFacturaCli(Albaranes.ID); - actRefrescar.Execute; +// actRefrescar.Execute; end; procedure TfEditorAlbaranesCliente.actGenerarFacturaUpdate(Sender: TObject); @@ -196,6 +206,7 @@ procedure TfEditorAlbaranesCliente.actEnviarExecute(Sender: TObject); // AFacturasController : IFacturasClienteController; // AAlbaran : IBizAlbaranCliente; begin +AppFactuGES.ShowCapado; { inherited; bCambiarEstado := False; @@ -281,6 +292,8 @@ procedure TfEditorAlbaranesCliente.DuplicarInterno; var APedido : IBizAlbaranCliente; begin +AppFactuGES.ShowCapado; +{ inherited; APedido := FController.Duplicar(Albaranes); try @@ -288,6 +301,7 @@ begin finally actRefrescar.Execute; end; +} end; procedure TfEditorAlbaranesCliente.EliminarInterno; @@ -370,6 +384,8 @@ var AllItems: Boolean; begin +AppFactuGES.ShowCapado; +{ AAlbaranes := Nil; AllItems := False; @@ -403,6 +419,7 @@ begin end; end; end; +} end; procedure TfEditorAlbaranesCliente.ModificarInterno; @@ -454,6 +471,8 @@ var AAlbaranes: IBizAlbaranCliente; AllItems: Boolean; begin +AppFactuGES.ShowCapado; +{ AAlbaranes := Nil; AllItems := False; @@ -487,6 +506,7 @@ begin end; end; end; +} end; procedure TfEditorAlbaranesCliente.SetController(const Value: IAlbaranesClienteController); diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm index bc498c73..d49f9b96 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm +++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm @@ -6,7 +6,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor ClientWidth = 765 OnClose = CustomEditorClose ExplicitWidth = 773 - ExplicitHeight = 653 + ExplicitHeight = 646 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -206,10 +206,6 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor object pagInicidencias: TTabSheet Caption = 'Incidencias' ImageIndex = 2 - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 inline frViewIncidenciasCli: TfrViewIncidencias Left = 0 Top = 0 diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas index 91c55193..67e6a6bf 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas @@ -218,8 +218,11 @@ end; procedure TfEditorAlbaranProveedor.ImprimirInterno; begin +AppFactuGES.ShowCapado; +{ inherited; FController.Print(FAlbaran); +} end; procedure TfEditorAlbaranProveedor.OnProveedorChanged(Sender: TObject); @@ -272,8 +275,11 @@ end; procedure TfEditorAlbaranProveedor.PrevisualizarInterno; begin +AppFactuGES.ShowCapado; +{ inherited; FController.Preview(FAlbaran); +} end; procedure TfEditorAlbaranProveedor.RecalcularPortePorUnidad; diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.dfm index fe07d2cd..106f2c7c 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.dfm +++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.dfm @@ -2,7 +2,7 @@ inherited fEditorAlbaranesProveedor: TfEditorAlbaranesProveedor Caption = 'Lista de albaranes de proveedor' ClientWidth = 606 ExplicitWidth = 614 - ExplicitHeight = 240 + ExplicitHeight = 471 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas index e42d6b08..4e3625fe 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas @@ -78,9 +78,12 @@ end; procedure TfEditorAlbaranesProveedor.actGenerarFacturaExecute(Sender: TObject); begin +AppFactuGES.ShowCapado; +{ inherited; // GenerarFacturaProv(Albaranes.ID); - actRefrescar.Execute; + actRefrescar.Execute; +} end; procedure TfEditorAlbaranesProveedor.actGenerarFacturaUpdate(Sender: TObject); @@ -114,6 +117,8 @@ procedure TfEditorAlbaranesProveedor.DuplicarInterno; var AAlbaran : IBizAlbaranProveedor; begin +AppFactuGES.ShowCapado; +{ inherited; AAlbaran := FController.Duplicar(Albaranes); try @@ -121,6 +126,7 @@ begin finally actRefrescar.Execute; end; +} end; procedure TfEditorAlbaranesProveedor.EliminarInterno; @@ -198,6 +204,8 @@ var AllItems: Boolean; begin +AppFactuGES.ShowCapado; +{ AAlbaranes := Nil; AllItems := False; @@ -231,6 +239,7 @@ begin end; end; end; +} end; function TfEditorAlbaranesProveedor.GetAlbaranes: IBizAlbaranProveedor; @@ -286,6 +295,8 @@ var AAlbaranes: IBizAlbaranProveedor; AllItems: Boolean; begin +AppFactuGES.ShowCapado; +{ AAlbaranes := Nil; AllItems := False; @@ -319,6 +330,7 @@ begin end; end; end; +} end; procedure TfEditorAlbaranesProveedor.SetController(const Value: IAlbaranesProveedorController); diff --git a/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas b/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas index 404890da..7eef4cb5 100644 --- a/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas +++ b/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas @@ -415,4 +415,3 @@ begin end; end. - \ No newline at end of file diff --git a/Source/Modulos/Almacenes/Data/uDataModuleAlmacenes.dfm b/Source/Modulos/Almacenes/Data/uDataModuleAlmacenes.dfm index 3465ce56..cb39501a 100644 --- a/Source/Modulos/Almacenes/Data/uDataModuleAlmacenes.dfm +++ b/Source/Modulos/Almacenes/Data/uDataModuleAlmacenes.dfm @@ -31,6 +31,7 @@ inherited DataModuleAlmacenes: TDataModuleAlmacenes DataType = datAutoInc GeneratorName = 'GEN_ALMACENES_ID' Required = True + ServerAutoRefresh = True DictionaryEntry = 'Almacenes_ID' InPrimaryKey = True end @@ -64,28 +65,28 @@ inherited DataModuleAlmacenes: TDataModuleAlmacenes Name = 'POBLACION' DataType = datString Size = 255 - DisplayLabel = 'Poblaci'#195#179'n' + DisplayLabel = 'Poblaci'#243'n' DictionaryEntry = 'Almacenes_POBLACION' end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 - DisplayLabel = 'C'#195#179'digo postal' + DisplayLabel = 'C'#243'digo postal' DictionaryEntry = 'Almacenes_CODIGO_POSTAL' end item Name = 'TELEFONO' DataType = datString Size = 25 - DisplayLabel = 'Tel'#195#169'fono' + DisplayLabel = 'Tel'#233'fono' DictionaryEntry = 'Almacenes_TELEFONO' end item Name = 'MOVIL' DataType = datString Size = 25 - DisplayLabel = 'M'#195#179'vil' + DisplayLabel = 'M'#243'vil' DictionaryEntry = 'Almacenes_MOVIL' end item diff --git a/Source/Modulos/Almacenes/Model/schAlmacenesClient_Intf.pas b/Source/Modulos/Almacenes/Model/schAlmacenesClient_Intf.pas index 599bd894..edb81b4a 100644 --- a/Source/Modulos/Almacenes/Model/schAlmacenesClient_Intf.pas +++ b/Source/Modulos/Almacenes/Model/schAlmacenesClient_Intf.pas @@ -9,7 +9,7 @@ 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_Almacenes = '{5EAFCDA6-24B0-49DF-908B-446E0E78DBA1}'; + RID_Almacenes = '{EE679D71-1729-4CD1-8CB9-1A2CE6B05493}'; { Data table names } nme_Almacenes = 'Almacenes'; @@ -51,7 +51,7 @@ const type { IAlmacenes } IAlmacenes = interface(IDAStronglyTypedDataTable) - ['{DADCBB7A-E505-4CA1-A7F0-A9E7BF58CE65}'] + ['{A51A2256-3355-4ABC-83D8-C6C5F3FB8FED}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); diff --git a/Source/Modulos/Almacenes/Model/schAlmacenesServer_Intf.pas b/Source/Modulos/Almacenes/Model/schAlmacenesServer_Intf.pas index 46395a93..802eb257 100644 --- a/Source/Modulos/Almacenes/Model/schAlmacenesServer_Intf.pas +++ b/Source/Modulos/Almacenes/Model/schAlmacenesServer_Intf.pas @@ -9,12 +9,12 @@ 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_AlmacenesDelta = '{A363FBCF-EBBA-4747-8A56-A10E5150E4FE}'; + RID_AlmacenesDelta = '{F091F4FA-70AD-40E6-9C14-082208660CFF}'; type { IAlmacenesDelta } IAlmacenesDelta = interface(IAlmacenes) - ['{A363FBCF-EBBA-4747-8A56-A10E5150E4FE}'] + ['{F091F4FA-70AD-40E6-9C14-082208660CFF}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; diff --git a/Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.dfm b/Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.dfm index a79db713..02977aca 100644 --- a/Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.dfm +++ b/Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.dfm @@ -187,6 +187,7 @@ object srvAlmacenes: TsrvAlmacenes Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_ALMACENES_ID' + ServerAutoRefresh = True DictionaryEntry = 'Almacenes_ID' InPrimaryKey = True end diff --git a/Source/Modulos/Almacenes/Views/uEditorAlmacen.dfm b/Source/Modulos/Almacenes/Views/uEditorAlmacen.dfm index 0e1de1d7..39370ccd 100644 --- a/Source/Modulos/Almacenes/Views/uEditorAlmacen.dfm +++ b/Source/Modulos/Almacenes/Views/uEditorAlmacen.dfm @@ -8,6 +8,7 @@ inherited fEditorAlmacen: TfEditorAlmacen Scaled = False OnClose = CustomEditorClose ExplicitWidth = 640 + ExplicitHeight = 488 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -44,7 +45,7 @@ inherited fEditorAlmacen: TfEditorAlmacen Width = 632 ExplicitWidth = 632 inherited tbxMain: TTBXToolbar - ExplicitWidth = 324 + ExplicitWidth = 330 inherited TBXItem2: TTBXItem Visible = False end diff --git a/Source/Modulos/Almacenes/Views/uEditorAlmacen.pas b/Source/Modulos/Almacenes/Views/uEditorAlmacen.pas index 9c7ae357..338325fc 100644 --- a/Source/Modulos/Almacenes/Views/uEditorAlmacen.pas +++ b/Source/Modulos/Almacenes/Views/uEditorAlmacen.pas @@ -13,7 +13,7 @@ uses JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase, uViewAlmacenes, uIEditorAlmacen, uAlmacenesController, JvExComCtrls, - JvStatusBar, dxLayoutLookAndFeels; + JvStatusBar, dxLayoutLookAndFeels, uDAInterfaces; type TfEditorAlmacen = class(TfEditorDBItem, IEditorAlmacen) diff --git a/Source/Modulos/Almacenes/Views/uEditorAlmacenes.dfm b/Source/Modulos/Almacenes/Views/uEditorAlmacenes.dfm index 3ef3dca5..fc7db98c 100644 --- a/Source/Modulos/Almacenes/Views/uEditorAlmacenes.dfm +++ b/Source/Modulos/Almacenes/Views/uEditorAlmacenes.dfm @@ -2,8 +2,7 @@ inherited fEditorAlmacenes: TfEditorAlmacenes Left = 489 Top = 325 Caption = 'Lista de almacenes' - ExplicitWidth = 320 - ExplicitHeight = 240 + ExplicitHeight = 471 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -91,9 +90,19 @@ inherited fEditorAlmacenes: TfEditorAlmacenes inherited dxLayoutControl1: TdxLayoutControl Width = 543 ExplicitWidth = 543 + inherited txtFiltroTodo: TcxTextEdit + ExplicitWidth = 273 + Width = 273 + end + inherited edtFechaIniFiltro: TcxDateEdit + ExplicitWidth = 121 + Width = 121 + end inherited edtFechaFinFiltro: TcxDateEdit Left = 337 ExplicitLeft = 337 + ExplicitWidth = 121 + Width = 121 end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel diff --git a/Source/Modulos/Almacenes/Views/uEditorAlmacenes.pas b/Source/Modulos/Almacenes/Views/uEditorAlmacenes.pas index 792396ea..24ed174e 100644 Binary files a/Source/Modulos/Almacenes/Views/uEditorAlmacenes.pas and b/Source/Modulos/Almacenes/Views/uEditorAlmacenes.pas differ diff --git a/Source/Modulos/Almacenes/Views/uViewAlmacen.pas b/Source/Modulos/Almacenes/Views/uViewAlmacen.pas index 95db2950..bf4d6e84 100644 --- a/Source/Modulos/Almacenes/Views/uViewAlmacen.pas +++ b/Source/Modulos/Almacenes/Views/uViewAlmacen.pas @@ -7,7 +7,7 @@ uses Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable, DBCtrls, Grids, DBGrids, uBizAlmacenes, Mask, ComCtrls, uCustomView, JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit, - cxDBEdit, dxLayoutControl; + cxDBEdit, dxLayoutControl, uDAInterfaces; type IViewAlmacen = interface(IViewBase) diff --git a/Source/Modulos/Articulos/Articulos_Group.groupproj b/Source/Modulos/Articulos/Articulos_Group.groupproj index 1c5d448e..3f402ca4 100644 --- a/Source/Modulos/Articulos/Articulos_Group.groupproj +++ b/Source/Modulos/Articulos/Articulos_Group.groupproj @@ -6,7 +6,9 @@ + + @@ -17,7 +19,7 @@ Default.Personality - + @@ -91,14 +93,32 @@ + + + + + + + + + + + + + + + + + + - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm b/Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm index 5563aa7f..7aa08b33 100644 --- a/Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm +++ b/Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm @@ -31,6 +31,7 @@ inherited DataModuleArticulos: TDataModuleArticulos DataType = datAutoInc GeneratorName = 'GEN_ARTICULOS_ID' Required = True + ServerAutoRefresh = True DictionaryEntry = 'Articulos_ID' InPrimaryKey = True end @@ -188,7 +189,7 @@ inherited DataModuleArticulos: TDataModuleArticulos end item Name = 'COMISIONABLE' - DataType = datInteger + DataType = datSmallInt end item Name = 'FECHA_ALTA' @@ -201,7 +202,7 @@ inherited DataModuleArticulos: TDataModuleArticulos item Name = 'USUARIO' DataType = datString - Size = 20 + Size = 30 end item Name = 'REFERENCIA_PROV' @@ -210,11 +211,11 @@ inherited DataModuleArticulos: TDataModuleArticulos end item Name = 'PRECIO_COSTE' - DataType = datFloat + DataType = datCurrency end item Name = 'PRECIO_PORTE' - DataType = datFloat + DataType = datCurrency end item Name = 'DESCUENTO' @@ -222,14 +223,14 @@ inherited DataModuleArticulos: TDataModuleArticulos end item Name = 'PRECIO_NETO' - DataType = datFloat - end - item - Name = 'ID_PROVEEDOR' - DataType = datInteger + DataType = datCurrency end item Name = 'INVENTARIABLE' + DataType = datSmallInt + end + item + Name = 'ID_PROVEEDOR' DataType = datInteger end item @@ -239,7 +240,7 @@ inherited DataModuleArticulos: TDataModuleArticulos end item Name = 'ELIMINADO' - DataType = datInteger + DataType = datSmallInt DisplayLabel = 'Eliminado' end> Params = < diff --git a/Source/Modulos/Articulos/Data/uDataModuleArticulos.pas b/Source/Modulos/Articulos/Data/uDataModuleArticulos.pas index 6b8428ae..b7ac930d 100644 --- a/Source/Modulos/Articulos/Data/uDataModuleArticulos.pas +++ b/Source/Modulos/Articulos/Data/uDataModuleArticulos.pas @@ -92,10 +92,10 @@ begin ShowHourglassCursor; try AArticulo := CloneDataTable(tbl_ArticulosParaCliente); - AsignarClaseNegocio(AArticulo); AArticulo.ParamByName('ID_CLIENTE').AsInteger := IdCliente; + Result := (AArticulo as IBizArticulo); finally diff --git a/Source/Modulos/Articulos/Model/Articulos_model.dproj b/Source/Modulos/Articulos/Model/Articulos_model.dproj index 1a8a11dc..de17dbaa 100644 --- a/Source/Modulos/Articulos/Model/Articulos_model.dproj +++ b/Source/Modulos/Articulos/Model/Articulos_model.dproj @@ -54,21 +54,8 @@ MainSource - - - - - - - - - - - - - - - + + diff --git a/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas b/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas index 4bae551a..f23ea174 100644 --- a/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas +++ b/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas @@ -9,8 +9,8 @@ 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_Articulos = '{A919037D-4671-4A18-914B-E81627402125}'; - RID_ArticulosParaCliente = '{F171CB2E-7FB7-442C-8E6F-DF7528462F59}'; + RID_Articulos = '{96B1BC75-3838-4481-8FAB-C5709E2A2B97}'; + RID_ArticulosParaCliente = '{1C488DD9-5F46-43A2-9440-617591319C59}'; { Data table names } nme_Articulos = 'Articulos'; @@ -74,8 +74,8 @@ const fld_ArticulosParaClientePRECIO_PORTE = 'PRECIO_PORTE'; fld_ArticulosParaClienteDESCUENTO = 'DESCUENTO'; fld_ArticulosParaClientePRECIO_NETO = 'PRECIO_NETO'; - fld_ArticulosParaClienteID_PROVEEDOR = 'ID_PROVEEDOR'; fld_ArticulosParaClienteINVENTARIABLE = 'INVENTARIABLE'; + fld_ArticulosParaClienteID_PROVEEDOR = 'ID_PROVEEDOR'; fld_ArticulosParaClienteNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR'; fld_ArticulosParaClienteELIMINADO = 'ELIMINADO'; @@ -95,15 +95,15 @@ const idx_ArticulosParaClientePRECIO_PORTE = 12; idx_ArticulosParaClienteDESCUENTO = 13; idx_ArticulosParaClientePRECIO_NETO = 14; - idx_ArticulosParaClienteID_PROVEEDOR = 15; - idx_ArticulosParaClienteINVENTARIABLE = 16; + idx_ArticulosParaClienteINVENTARIABLE = 15; + idx_ArticulosParaClienteID_PROVEEDOR = 16; idx_ArticulosParaClienteNOMBRE_PROVEEDOR = 17; idx_ArticulosParaClienteELIMINADO = 18; type { IArticulos } IArticulos = interface(IDAStronglyTypedDataTable) - ['{00CE32EE-B4B1-4C3E-872C-46245138E81E}'] + ['{E4DF8395-5D03-4DF6-8828-6CC926D541A4}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -354,7 +354,7 @@ type { IArticulosParaCliente } IArticulosParaCliente = interface(IDAStronglyTypedDataTable) - ['{DB03F743-2C22-4D94-893A-A45077AD727C}'] + ['{C30A8751-1293-43C0-AEE1-8E0C09A5671F}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -379,8 +379,8 @@ type function GetIMAGENValue: IROStream; function GetIMAGENIsNull: Boolean; procedure SetIMAGENIsNull(const aValue: Boolean); - function GetCOMISIONABLEValue: Integer; - procedure SetCOMISIONABLEValue(const aValue: Integer); + function GetCOMISIONABLEValue: SmallInt; + procedure SetCOMISIONABLEValue(const aValue: SmallInt); function GetCOMISIONABLEIsNull: Boolean; procedure SetCOMISIONABLEIsNull(const aValue: Boolean); function GetFECHA_ALTAValue: DateTime; @@ -399,36 +399,36 @@ type procedure SetREFERENCIA_PROVValue(const aValue: String); function GetREFERENCIA_PROVIsNull: Boolean; procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); - function GetPRECIO_COSTEValue: Float; - procedure SetPRECIO_COSTEValue(const aValue: Float); + function GetPRECIO_COSTEValue: Currency; + procedure SetPRECIO_COSTEValue(const aValue: Currency); function GetPRECIO_COSTEIsNull: Boolean; procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); - function GetPRECIO_PORTEValue: Float; - procedure SetPRECIO_PORTEValue(const aValue: Float); + function GetPRECIO_PORTEValue: Currency; + procedure SetPRECIO_PORTEValue(const aValue: Currency); function GetPRECIO_PORTEIsNull: Boolean; procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); function GetDESCUENTOValue: Float; procedure SetDESCUENTOValue(const aValue: Float); function GetDESCUENTOIsNull: Boolean; procedure SetDESCUENTOIsNull(const aValue: Boolean); - function GetPRECIO_NETOValue: Float; - procedure SetPRECIO_NETOValue(const aValue: Float); + function GetPRECIO_NETOValue: Currency; + procedure SetPRECIO_NETOValue(const aValue: Currency); function GetPRECIO_NETOIsNull: Boolean; procedure SetPRECIO_NETOIsNull(const aValue: Boolean); + function GetINVENTARIABLEValue: SmallInt; + procedure SetINVENTARIABLEValue(const aValue: SmallInt); + function GetINVENTARIABLEIsNull: Boolean; + procedure SetINVENTARIABLEIsNull(const aValue: Boolean); function GetID_PROVEEDORValue: Integer; procedure SetID_PROVEEDORValue(const aValue: Integer); function GetID_PROVEEDORIsNull: Boolean; procedure SetID_PROVEEDORIsNull(const aValue: Boolean); - function GetINVENTARIABLEValue: Integer; - procedure SetINVENTARIABLEValue(const aValue: Integer); - function GetINVENTARIABLEIsNull: Boolean; - procedure SetINVENTARIABLEIsNull(const aValue: Boolean); function GetNOMBRE_PROVEEDORValue: String; procedure SetNOMBRE_PROVEEDORValue(const aValue: String); function GetNOMBRE_PROVEEDORIsNull: Boolean; procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); - function GetELIMINADOValue: Integer; - procedure SetELIMINADOValue(const aValue: Integer); + function GetELIMINADOValue: SmallInt; + procedure SetELIMINADOValue(const aValue: SmallInt); function GetELIMINADOIsNull: Boolean; procedure SetELIMINADOIsNull(const aValue: Boolean); @@ -446,7 +446,7 @@ type property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull; property IMAGEN: IROStream read GetIMAGENValue; property IMAGENIsNull: Boolean read GetIMAGENIsNull write SetIMAGENIsNull; - property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue; + property COMISIONABLE: SmallInt read GetCOMISIONABLEValue write SetCOMISIONABLEValue; property COMISIONABLEIsNull: Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; @@ -456,21 +456,21 @@ type property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue; property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull; - property PRECIO_COSTE: Float read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue; + property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue; property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull; - property PRECIO_PORTE: Float read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue; + property PRECIO_PORTE: Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue; property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property PRECIO_NETO: Float read GetPRECIO_NETOValue write SetPRECIO_NETOValue; + property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue; property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull; + property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue; + property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull; property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; - property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue; - property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull; property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull; - property ELIMINADO: Integer read GetELIMINADOValue write SetELIMINADOValue; + property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue; property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull; end; @@ -504,8 +504,8 @@ type function GetIMAGENValue: IROStream; virtual; function GetIMAGENIsNull: Boolean; virtual; procedure SetIMAGENIsNull(const aValue: Boolean); virtual; - function GetCOMISIONABLEValue: Integer; virtual; - procedure SetCOMISIONABLEValue(const aValue: Integer); virtual; + function GetCOMISIONABLEValue: SmallInt; virtual; + procedure SetCOMISIONABLEValue(const aValue: SmallInt); virtual; function GetCOMISIONABLEIsNull: Boolean; virtual; procedure SetCOMISIONABLEIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; @@ -524,36 +524,36 @@ type procedure SetREFERENCIA_PROVValue(const aValue: String); virtual; function GetREFERENCIA_PROVIsNull: Boolean; virtual; procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual; - function GetPRECIO_COSTEValue: Float; virtual; - procedure SetPRECIO_COSTEValue(const aValue: Float); virtual; + function GetPRECIO_COSTEValue: Currency; virtual; + procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual; function GetPRECIO_COSTEIsNull: Boolean; virtual; procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual; - function GetPRECIO_PORTEValue: Float; virtual; - procedure SetPRECIO_PORTEValue(const aValue: Float); virtual; + function GetPRECIO_PORTEValue: Currency; virtual; + procedure SetPRECIO_PORTEValue(const aValue: Currency); virtual; function GetPRECIO_PORTEIsNull: Boolean; virtual; procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual; function GetDESCUENTOValue: Float; virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual; function GetDESCUENTOIsNull: Boolean; virtual; procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; - function GetPRECIO_NETOValue: Float; virtual; - procedure SetPRECIO_NETOValue(const aValue: Float); virtual; + function GetPRECIO_NETOValue: Currency; virtual; + procedure SetPRECIO_NETOValue(const aValue: Currency); virtual; function GetPRECIO_NETOIsNull: Boolean; virtual; procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual; + function GetINVENTARIABLEValue: SmallInt; virtual; + procedure SetINVENTARIABLEValue(const aValue: SmallInt); virtual; + function GetINVENTARIABLEIsNull: Boolean; virtual; + procedure SetINVENTARIABLEIsNull(const aValue: Boolean); virtual; function GetID_PROVEEDORValue: Integer; virtual; procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; function GetID_PROVEEDORIsNull: Boolean; virtual; procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetINVENTARIABLEValue: Integer; virtual; - procedure SetINVENTARIABLEValue(const aValue: Integer); virtual; - function GetINVENTARIABLEIsNull: Boolean; virtual; - procedure SetINVENTARIABLEIsNull(const aValue: Boolean); virtual; function GetNOMBRE_PROVEEDORValue: String; virtual; procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual; function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual; procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetELIMINADOValue: Integer; virtual; - procedure SetELIMINADOValue(const aValue: Integer); virtual; + function GetELIMINADOValue: SmallInt; virtual; + procedure SetELIMINADOValue(const aValue: SmallInt); virtual; function GetELIMINADOIsNull: Boolean; virtual; procedure SetELIMINADOIsNull(const aValue: Boolean); virtual; @@ -570,7 +570,7 @@ type property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull; property IMAGEN: IROStream read GetIMAGENValue; property IMAGENIsNull: Boolean read GetIMAGENIsNull write SetIMAGENIsNull; - property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue; + property COMISIONABLE: SmallInt read GetCOMISIONABLEValue write SetCOMISIONABLEValue; property COMISIONABLEIsNull: Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; @@ -580,21 +580,21 @@ type property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue; property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull; - property PRECIO_COSTE: Float read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue; + property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue; property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull; - property PRECIO_PORTE: Float read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue; + property PRECIO_PORTE: Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue; property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property PRECIO_NETO: Float read GetPRECIO_NETOValue write SetPRECIO_NETOValue; + property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue; property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull; + property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue; + property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull; property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; - property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue; - property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull; property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull; - property ELIMINADO: Integer read GetELIMINADOValue write SetELIMINADOValue; + property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue; property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull; public @@ -1177,14 +1177,14 @@ begin DataTable.Fields[idx_ArticulosParaClienteIMAGEN].AsVariant := Null; end; -function TArticulosParaClienteDataTableRules.GetCOMISIONABLEValue: Integer; +function TArticulosParaClienteDataTableRules.GetCOMISIONABLEValue: SmallInt; begin - result := DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].AsInteger; + result := DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].AsSmallInt; end; -procedure TArticulosParaClienteDataTableRules.SetCOMISIONABLEValue(const aValue: Integer); +procedure TArticulosParaClienteDataTableRules.SetCOMISIONABLEValue(const aValue: SmallInt); begin - DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].AsInteger := aValue; + DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].AsSmallInt := aValue; end; function TArticulosParaClienteDataTableRules.GetCOMISIONABLEIsNull: boolean; @@ -1282,14 +1282,14 @@ begin DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_PROV].AsVariant := Null; end; -function TArticulosParaClienteDataTableRules.GetPRECIO_COSTEValue: Float; +function TArticulosParaClienteDataTableRules.GetPRECIO_COSTEValue: Currency; begin - result := DataTable.Fields[idx_ArticulosParaClientePRECIO_COSTE].AsFloat; + result := DataTable.Fields[idx_ArticulosParaClientePRECIO_COSTE].AsCurrency; end; -procedure TArticulosParaClienteDataTableRules.SetPRECIO_COSTEValue(const aValue: Float); +procedure TArticulosParaClienteDataTableRules.SetPRECIO_COSTEValue(const aValue: Currency); begin - DataTable.Fields[idx_ArticulosParaClientePRECIO_COSTE].AsFloat := aValue; + DataTable.Fields[idx_ArticulosParaClientePRECIO_COSTE].AsCurrency := aValue; end; function TArticulosParaClienteDataTableRules.GetPRECIO_COSTEIsNull: boolean; @@ -1303,14 +1303,14 @@ begin DataTable.Fields[idx_ArticulosParaClientePRECIO_COSTE].AsVariant := Null; end; -function TArticulosParaClienteDataTableRules.GetPRECIO_PORTEValue: Float; +function TArticulosParaClienteDataTableRules.GetPRECIO_PORTEValue: Currency; begin - result := DataTable.Fields[idx_ArticulosParaClientePRECIO_PORTE].AsFloat; + result := DataTable.Fields[idx_ArticulosParaClientePRECIO_PORTE].AsCurrency; end; -procedure TArticulosParaClienteDataTableRules.SetPRECIO_PORTEValue(const aValue: Float); +procedure TArticulosParaClienteDataTableRules.SetPRECIO_PORTEValue(const aValue: Currency); begin - DataTable.Fields[idx_ArticulosParaClientePRECIO_PORTE].AsFloat := aValue; + DataTable.Fields[idx_ArticulosParaClientePRECIO_PORTE].AsCurrency := aValue; end; function TArticulosParaClienteDataTableRules.GetPRECIO_PORTEIsNull: boolean; @@ -1345,14 +1345,14 @@ begin DataTable.Fields[idx_ArticulosParaClienteDESCUENTO].AsVariant := Null; end; -function TArticulosParaClienteDataTableRules.GetPRECIO_NETOValue: Float; +function TArticulosParaClienteDataTableRules.GetPRECIO_NETOValue: Currency; begin - result := DataTable.Fields[idx_ArticulosParaClientePRECIO_NETO].AsFloat; + result := DataTable.Fields[idx_ArticulosParaClientePRECIO_NETO].AsCurrency; end; -procedure TArticulosParaClienteDataTableRules.SetPRECIO_NETOValue(const aValue: Float); +procedure TArticulosParaClienteDataTableRules.SetPRECIO_NETOValue(const aValue: Currency); begin - DataTable.Fields[idx_ArticulosParaClientePRECIO_NETO].AsFloat := aValue; + DataTable.Fields[idx_ArticulosParaClientePRECIO_NETO].AsCurrency := aValue; end; function TArticulosParaClienteDataTableRules.GetPRECIO_NETOIsNull: boolean; @@ -1366,6 +1366,27 @@ begin DataTable.Fields[idx_ArticulosParaClientePRECIO_NETO].AsVariant := Null; end; +function TArticulosParaClienteDataTableRules.GetINVENTARIABLEValue: SmallInt; +begin + result := DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].AsSmallInt; +end; + +procedure TArticulosParaClienteDataTableRules.SetINVENTARIABLEValue(const aValue: SmallInt); +begin + DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].AsSmallInt := aValue; +end; + +function TArticulosParaClienteDataTableRules.GetINVENTARIABLEIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].IsNull; +end; + +procedure TArticulosParaClienteDataTableRules.SetINVENTARIABLEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].AsVariant := Null; +end; + function TArticulosParaClienteDataTableRules.GetID_PROVEEDORValue: Integer; begin result := DataTable.Fields[idx_ArticulosParaClienteID_PROVEEDOR].AsInteger; @@ -1387,27 +1408,6 @@ begin DataTable.Fields[idx_ArticulosParaClienteID_PROVEEDOR].AsVariant := Null; end; -function TArticulosParaClienteDataTableRules.GetINVENTARIABLEValue: Integer; -begin - result := DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].AsInteger; -end; - -procedure TArticulosParaClienteDataTableRules.SetINVENTARIABLEValue(const aValue: Integer); -begin - DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].AsInteger := aValue; -end; - -function TArticulosParaClienteDataTableRules.GetINVENTARIABLEIsNull: boolean; -begin - result := DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].IsNull; -end; - -procedure TArticulosParaClienteDataTableRules.SetINVENTARIABLEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].AsVariant := Null; -end; - function TArticulosParaClienteDataTableRules.GetNOMBRE_PROVEEDORValue: String; begin result := DataTable.Fields[idx_ArticulosParaClienteNOMBRE_PROVEEDOR].AsString; @@ -1429,14 +1429,14 @@ begin DataTable.Fields[idx_ArticulosParaClienteNOMBRE_PROVEEDOR].AsVariant := Null; end; -function TArticulosParaClienteDataTableRules.GetELIMINADOValue: Integer; +function TArticulosParaClienteDataTableRules.GetELIMINADOValue: SmallInt; begin - result := DataTable.Fields[idx_ArticulosParaClienteELIMINADO].AsInteger; + result := DataTable.Fields[idx_ArticulosParaClienteELIMINADO].AsSmallInt; end; -procedure TArticulosParaClienteDataTableRules.SetELIMINADOValue(const aValue: Integer); +procedure TArticulosParaClienteDataTableRules.SetELIMINADOValue(const aValue: SmallInt); begin - DataTable.Fields[idx_ArticulosParaClienteELIMINADO].AsInteger := aValue; + DataTable.Fields[idx_ArticulosParaClienteELIMINADO].AsSmallInt := aValue; end; function TArticulosParaClienteDataTableRules.GetELIMINADOIsNull: boolean; diff --git a/Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas b/Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas index cf9b3d8b..a3134983 100644 --- a/Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas +++ b/Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas @@ -9,13 +9,13 @@ 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_ArticulosDelta = '{27D2DEC6-831E-4D4E-9FB6-566A6233B1DA}'; - RID_ArticulosParaClienteDelta = '{EFED0A65-D72E-4828-8980-B4DC2152E2B6}'; + RID_ArticulosDelta = '{1EF85C21-66D6-4680-A910-2679A098D282}'; + RID_ArticulosParaClienteDelta = '{CE4D74E0-1868-4D88-9483-CED9CD6BC658}'; type { IArticulosDelta } IArticulosDelta = interface(IArticulos) - ['{27D2DEC6-831E-4D4E-9FB6-566A6233B1DA}'] + ['{1EF85C21-66D6-4680-A910-2679A098D282}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -266,7 +266,7 @@ type { IArticulosParaClienteDelta } IArticulosParaClienteDelta = interface(IArticulosParaCliente) - ['{EFED0A65-D72E-4828-8980-B4DC2152E2B6}'] + ['{CE4D74E0-1868-4D88-9483-CED9CD6BC658}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -274,19 +274,19 @@ type function GetOldDESCRIPCIONValue : String; function GetOldFAMILIAValue : String; function GetOldIMAGENValue : IROStream; - function GetOldCOMISIONABLEValue : Integer; + function GetOldCOMISIONABLEValue : SmallInt; function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldUSUARIOValue : String; function GetOldREFERENCIA_PROVValue : String; - function GetOldPRECIO_COSTEValue : Float; - function GetOldPRECIO_PORTEValue : Float; + function GetOldPRECIO_COSTEValue : Currency; + function GetOldPRECIO_PORTEValue : Currency; function GetOldDESCUENTOValue : Float; - function GetOldPRECIO_NETOValue : Float; + function GetOldPRECIO_NETOValue : Currency; + function GetOldINVENTARIABLEValue : SmallInt; function GetOldID_PROVEEDORValue : Integer; - function GetOldINVENTARIABLEValue : Integer; function GetOldNOMBRE_PROVEEDORValue : String; - function GetOldELIMINADOValue : Integer; + function GetOldELIMINADOValue : SmallInt; { Properties } property OldID : Integer read GetOldIDValue; @@ -295,19 +295,19 @@ type property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldFAMILIA : String read GetOldFAMILIAValue; property OldIMAGEN : IROStream read GetOldIMAGENValue; - property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue; + property OldCOMISIONABLE : SmallInt read GetOldCOMISIONABLEValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue; - property OldPRECIO_COSTE : Float read GetOldPRECIO_COSTEValue; - property OldPRECIO_PORTE : Float read GetOldPRECIO_PORTEValue; + property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue; + property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; - property OldPRECIO_NETO : Float read GetOldPRECIO_NETOValue; + property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue; + property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; - property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue; property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; - property OldELIMINADO : Integer read GetOldELIMINADOValue; + property OldELIMINADO : SmallInt read GetOldELIMINADOValue; end; { TArticulosParaClienteBusinessProcessorRules } @@ -352,11 +352,11 @@ type function GetOldIMAGENValue: IROStream; virtual; function GetOldIMAGENIsNull: Boolean; virtual; procedure SetIMAGENIsNull(const aValue: Boolean); virtual; - function GetCOMISIONABLEValue: Integer; virtual; + function GetCOMISIONABLEValue: SmallInt; virtual; function GetCOMISIONABLEIsNull: Boolean; virtual; - function GetOldCOMISIONABLEValue: Integer; virtual; + function GetOldCOMISIONABLEValue: SmallInt; virtual; function GetOldCOMISIONABLEIsNull: Boolean; virtual; - procedure SetCOMISIONABLEValue(const aValue: Integer); virtual; + procedure SetCOMISIONABLEValue(const aValue: SmallInt); virtual; procedure SetCOMISIONABLEIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; @@ -382,17 +382,17 @@ type function GetOldREFERENCIA_PROVIsNull: Boolean; virtual; procedure SetREFERENCIA_PROVValue(const aValue: String); virtual; procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual; - function GetPRECIO_COSTEValue: Float; virtual; + function GetPRECIO_COSTEValue: Currency; virtual; function GetPRECIO_COSTEIsNull: Boolean; virtual; - function GetOldPRECIO_COSTEValue: Float; virtual; + function GetOldPRECIO_COSTEValue: Currency; virtual; function GetOldPRECIO_COSTEIsNull: Boolean; virtual; - procedure SetPRECIO_COSTEValue(const aValue: Float); virtual; + procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual; procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual; - function GetPRECIO_PORTEValue: Float; virtual; + function GetPRECIO_PORTEValue: Currency; virtual; function GetPRECIO_PORTEIsNull: Boolean; virtual; - function GetOldPRECIO_PORTEValue: Float; virtual; + function GetOldPRECIO_PORTEValue: Currency; virtual; function GetOldPRECIO_PORTEIsNull: Boolean; virtual; - procedure SetPRECIO_PORTEValue(const aValue: Float); virtual; + procedure SetPRECIO_PORTEValue(const aValue: Currency); virtual; procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual; function GetDESCUENTOValue: Float; virtual; function GetDESCUENTOIsNull: Boolean; virtual; @@ -400,35 +400,35 @@ type function GetOldDESCUENTOIsNull: Boolean; virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual; procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; - function GetPRECIO_NETOValue: Float; virtual; + function GetPRECIO_NETOValue: Currency; virtual; function GetPRECIO_NETOIsNull: Boolean; virtual; - function GetOldPRECIO_NETOValue: Float; virtual; + function GetOldPRECIO_NETOValue: Currency; virtual; function GetOldPRECIO_NETOIsNull: Boolean; virtual; - procedure SetPRECIO_NETOValue(const aValue: Float); virtual; + procedure SetPRECIO_NETOValue(const aValue: Currency); virtual; procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual; + function GetINVENTARIABLEValue: SmallInt; virtual; + function GetINVENTARIABLEIsNull: Boolean; virtual; + function GetOldINVENTARIABLEValue: SmallInt; virtual; + function GetOldINVENTARIABLEIsNull: Boolean; virtual; + procedure SetINVENTARIABLEValue(const aValue: SmallInt); virtual; + procedure SetINVENTARIABLEIsNull(const aValue: Boolean); virtual; function GetID_PROVEEDORValue: Integer; virtual; function GetID_PROVEEDORIsNull: Boolean; virtual; function GetOldID_PROVEEDORValue: Integer; virtual; function GetOldID_PROVEEDORIsNull: Boolean; virtual; procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetINVENTARIABLEValue: Integer; virtual; - function GetINVENTARIABLEIsNull: Boolean; virtual; - function GetOldINVENTARIABLEValue: Integer; virtual; - function GetOldINVENTARIABLEIsNull: Boolean; virtual; - procedure SetINVENTARIABLEValue(const aValue: Integer); virtual; - procedure SetINVENTARIABLEIsNull(const aValue: Boolean); virtual; function GetNOMBRE_PROVEEDORValue: String; virtual; function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual; function GetOldNOMBRE_PROVEEDORValue: String; virtual; function GetOldNOMBRE_PROVEEDORIsNull: Boolean; virtual; procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual; procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetELIMINADOValue: Integer; virtual; + function GetELIMINADOValue: SmallInt; virtual; function GetELIMINADOIsNull: Boolean; virtual; - function GetOldELIMINADOValue: Integer; virtual; + function GetOldELIMINADOValue: SmallInt; virtual; function GetOldELIMINADOIsNull: Boolean; virtual; - procedure SetELIMINADOValue(const aValue: Integer); virtual; + procedure SetELIMINADOValue(const aValue: SmallInt); virtual; procedure SetELIMINADOIsNull(const aValue: Boolean); virtual; { Properties } @@ -456,9 +456,9 @@ type property IMAGENIsNull : Boolean read GetIMAGENIsNull write SetIMAGENIsNull; property OldIMAGEN : IROStream read GetOldIMAGENValue; property OldIMAGENIsNull : Boolean read GetOldIMAGENIsNull; - property COMISIONABLE : Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue; + property COMISIONABLE : SmallInt read GetCOMISIONABLEValue write SetCOMISIONABLEValue; property COMISIONABLEIsNull : Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull; - property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue; + property OldCOMISIONABLE : SmallInt read GetOldCOMISIONABLEValue; property OldCOMISIONABLEIsNull : Boolean read GetOldCOMISIONABLEIsNull; property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; @@ -476,37 +476,37 @@ type property REFERENCIA_PROVIsNull : Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull; property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue; property OldREFERENCIA_PROVIsNull : Boolean read GetOldREFERENCIA_PROVIsNull; - property PRECIO_COSTE : Float read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue; + property PRECIO_COSTE : Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue; property PRECIO_COSTEIsNull : Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull; - property OldPRECIO_COSTE : Float read GetOldPRECIO_COSTEValue; + property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue; property OldPRECIO_COSTEIsNull : Boolean read GetOldPRECIO_COSTEIsNull; - property PRECIO_PORTE : Float read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue; + property PRECIO_PORTE : Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue; property PRECIO_PORTEIsNull : Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull; - property OldPRECIO_PORTE : Float read GetOldPRECIO_PORTEValue; + property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue; property OldPRECIO_PORTEIsNull : Boolean read GetOldPRECIO_PORTEIsNull; property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; - property PRECIO_NETO : Float read GetPRECIO_NETOValue write SetPRECIO_NETOValue; + property PRECIO_NETO : Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue; property PRECIO_NETOIsNull : Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull; - property OldPRECIO_NETO : Float read GetOldPRECIO_NETOValue; + property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue; property OldPRECIO_NETOIsNull : Boolean read GetOldPRECIO_NETOIsNull; + property INVENTARIABLE : SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue; + property INVENTARIABLEIsNull : Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull; + property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue; + property OldINVENTARIABLEIsNull : Boolean read GetOldINVENTARIABLEIsNull; property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull; - property INVENTARIABLE : Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue; - property INVENTARIABLEIsNull : Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull; - property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue; - property OldINVENTARIABLEIsNull : Boolean read GetOldINVENTARIABLEIsNull; property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; property NOMBRE_PROVEEDORIsNull : Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull; property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; property OldNOMBRE_PROVEEDORIsNull : Boolean read GetOldNOMBRE_PROVEEDORIsNull; - property ELIMINADO : Integer read GetELIMINADOValue write SetELIMINADOValue; + property ELIMINADO : SmallInt read GetELIMINADOValue write SetELIMINADOValue; property ELIMINADOIsNull : Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull; - property OldELIMINADO : Integer read GetOldELIMINADOValue; + property OldELIMINADO : SmallInt read GetOldELIMINADOValue; property OldELIMINADOIsNull : Boolean read GetOldELIMINADOIsNull; public @@ -1342,7 +1342,7 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteIMAGEN] := Null; end; -function TArticulosParaClienteBusinessProcessorRules.GetCOMISIONABLEValue: Integer; +function TArticulosParaClienteBusinessProcessorRules.GetCOMISIONABLEValue: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteCOMISIONABLE]; end; @@ -1352,7 +1352,7 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteCOMISIONABLE]); end; -function TArticulosParaClienteBusinessProcessorRules.GetOldCOMISIONABLEValue: Integer; +function TArticulosParaClienteBusinessProcessorRules.GetOldCOMISIONABLEValue: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteCOMISIONABLE]; end; @@ -1362,7 +1362,7 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteCOMISIONABLE]); end; -procedure TArticulosParaClienteBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: Integer); +procedure TArticulosParaClienteBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteCOMISIONABLE] := aValue; end; @@ -1497,7 +1497,7 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_PROV] := Null; end; -function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_COSTEValue: Float; +function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_COSTEValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_COSTE]; end; @@ -1507,7 +1507,7 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_COSTE]); end; -function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_COSTEValue: Float; +function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_COSTEValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_COSTE]; end; @@ -1517,7 +1517,7 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_COSTE]); end; -procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_COSTEValue(const aValue: Float); +procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_COSTEValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_COSTE] := aValue; end; @@ -1528,7 +1528,7 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_COSTE] := Null; end; -function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_PORTEValue: Float; +function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_PORTEValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PORTE]; end; @@ -1538,7 +1538,7 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PORTE]); end; -function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_PORTEValue: Float; +function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_PORTEValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_PORTE]; end; @@ -1548,7 +1548,7 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_PORTE]); end; -procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_PORTEValue(const aValue: Float); +procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_PORTEValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PORTE] := aValue; end; @@ -1590,7 +1590,7 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCUENTO] := Null; end; -function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_NETOValue: Float; +function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_NETOValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_NETO]; end; @@ -1600,7 +1600,7 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_NETO]); end; -function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_NETOValue: Float; +function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_NETOValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_NETO]; end; @@ -1610,7 +1610,7 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_NETO]); end; -procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_NETOValue(const aValue: Float); +procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_NETOValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_NETO] := aValue; end; @@ -1621,6 +1621,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_NETO] := Null; end; +function TArticulosParaClienteBusinessProcessorRules.GetINVENTARIABLEValue: SmallInt; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE]; +end; + +function TArticulosParaClienteBusinessProcessorRules.GetINVENTARIABLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE]); +end; + +function TArticulosParaClienteBusinessProcessorRules.GetOldINVENTARIABLEValue: SmallInt; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteINVENTARIABLE]; +end; + +function TArticulosParaClienteBusinessProcessorRules.GetOldINVENTARIABLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteINVENTARIABLE]); +end; + +procedure TArticulosParaClienteBusinessProcessorRules.SetINVENTARIABLEValue(const aValue: SmallInt); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE] := aValue; +end; + +procedure TArticulosParaClienteBusinessProcessorRules.SetINVENTARIABLEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE] := Null; +end; + function TArticulosParaClienteBusinessProcessorRules.GetID_PROVEEDORValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_PROVEEDOR]; @@ -1652,37 +1683,6 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_PROVEEDOR] := Null; end; -function TArticulosParaClienteBusinessProcessorRules.GetINVENTARIABLEValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE]; -end; - -function TArticulosParaClienteBusinessProcessorRules.GetINVENTARIABLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE]); -end; - -function TArticulosParaClienteBusinessProcessorRules.GetOldINVENTARIABLEValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteINVENTARIABLE]; -end; - -function TArticulosParaClienteBusinessProcessorRules.GetOldINVENTARIABLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteINVENTARIABLE]); -end; - -procedure TArticulosParaClienteBusinessProcessorRules.SetINVENTARIABLEValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE] := aValue; -end; - -procedure TArticulosParaClienteBusinessProcessorRules.SetINVENTARIABLEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE] := Null; -end; - function TArticulosParaClienteBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteNOMBRE_PROVEEDOR]; @@ -1714,7 +1714,7 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteNOMBRE_PROVEEDOR] := Null; end; -function TArticulosParaClienteBusinessProcessorRules.GetELIMINADOValue: Integer; +function TArticulosParaClienteBusinessProcessorRules.GetELIMINADOValue: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteELIMINADO]; end; @@ -1724,7 +1724,7 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteELIMINADO]); end; -function TArticulosParaClienteBusinessProcessorRules.GetOldELIMINADOValue: Integer; +function TArticulosParaClienteBusinessProcessorRules.GetOldELIMINADOValue: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteELIMINADO]; end; @@ -1734,7 +1734,7 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteELIMINADO]); end; -procedure TArticulosParaClienteBusinessProcessorRules.SetELIMINADOValue(const aValue: Integer); +procedure TArticulosParaClienteBusinessProcessorRules.SetELIMINADOValue(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteELIMINADO] := aValue; end; diff --git a/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm b/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm index 01733c7b..b2df3907 100644 --- a/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm +++ b/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm @@ -88,6 +88,7 @@ object srvArticulos: TsrvArticulos GeneratorName = 'GEN_ARTICULOS_ID' Required = True DisplayLabel = 'ID' + ServerAutoRefresh = True end item Name = 'Articulos_ID_EMPRESA' @@ -211,6 +212,7 @@ object srvArticulos: TsrvArticulos Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_ARTICULOS_ID' + ServerAutoRefresh = True DictionaryEntry = 'Articulos_ID' InPrimaryKey = True end @@ -333,7 +335,7 @@ object srvArticulos: TsrvArticulos 'CULOS.NOMBRE_PROVEEDOR,'#10' V_ARTICULOS.ELIMINADO'#10'FROM V_ARTI' + 'CULOS'#10'LEFT OUTER JOIN CLIENTES_DTOS_PROVEEDORES'#10'ON ((CLIENTES_DT' + 'OS_PROVEEDORES.ID_PROVEEDOR = V_ARTICULOS.ID_PROVEEDOR)'#10'AND (CLI' + - 'ENTES_DTOS_PROVEEDORES.ID_CLIENTE = :ID_CLIENTE))' + 'ENTES_DTOS_PROVEEDORES.ID_CLIENTE = :ID_CLIENTE))'#10'where {where}'#10 StatementType = stSQL ColumnMappings = < item @@ -396,17 +398,18 @@ object srvArticulos: TsrvArticulos DatasetField = 'PRECIO_NETO' TableField = 'PRECIO_NETO' end + item + DatasetField = 'INVENTARIABLE' + TableField = 'INVENTARIABLE' + end item DatasetField = 'ID_PROVEEDOR' TableField = 'ID_PROVEEDOR' end item DatasetField = 'NOMBRE_PROVEEDOR' - TableField = 'NOMBRE_PROVEEDOR' - end - item - DatasetField = 'INVENTARIABLE' - TableField = 'INVENTARIABLE' + TableField = '' + SQLOrigin = 'NOMBRE_PROVEEDOR' end item DatasetField = 'ELIMINADO' @@ -445,7 +448,7 @@ object srvArticulos: TsrvArticulos end item Name = 'COMISIONABLE' - DataType = datInteger + DataType = datSmallInt end item Name = 'FECHA_ALTA' @@ -458,7 +461,7 @@ object srvArticulos: TsrvArticulos item Name = 'USUARIO' DataType = datString - Size = 20 + Size = 30 end item Name = 'REFERENCIA_PROV' @@ -467,11 +470,11 @@ object srvArticulos: TsrvArticulos end item Name = 'PRECIO_COSTE' - DataType = datFloat + DataType = datCurrency end item Name = 'PRECIO_PORTE' - DataType = datFloat + DataType = datCurrency end item Name = 'DESCUENTO' @@ -479,14 +482,14 @@ object srvArticulos: TsrvArticulos end item Name = 'PRECIO_NETO' - DataType = datFloat - end - item - Name = 'ID_PROVEEDOR' - DataType = datInteger + DataType = datCurrency end item Name = 'INVENTARIABLE' + DataType = datSmallInt + end + item + Name = 'ID_PROVEEDOR' DataType = datInteger end item @@ -496,7 +499,7 @@ object srvArticulos: TsrvArticulos end item Name = 'ELIMINADO' - DataType = datInteger + DataType = datSmallInt DisplayLabel = 'Eliminado' end> end> diff --git a/Source/Modulos/Articulos/Views/uEditorArticulos.dfm b/Source/Modulos/Articulos/Views/uEditorArticulos.dfm index 2789f360..4d3a0ba5 100644 --- a/Source/Modulos/Articulos/Views/uEditorArticulos.dfm +++ b/Source/Modulos/Articulos/Views/uEditorArticulos.dfm @@ -2,8 +2,7 @@ inherited fEditorArticulos: TfEditorArticulos Left = 489 Top = 325 Caption = 'Lista de art'#237'culos' - ExplicitWidth = 320 - ExplicitHeight = 240 + ExplicitHeight = 471 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader diff --git a/Source/Modulos/Articulos/Views/uEditorArticulos.pas b/Source/Modulos/Articulos/Views/uEditorArticulos.pas index f5bc7da6..17f14d2d 100644 Binary files a/Source/Modulos/Articulos/Views/uEditorArticulos.pas and b/Source/Modulos/Articulos/Views/uEditorArticulos.pas differ diff --git a/Source/Modulos/Contactos/Views/uEditorContactos.pas b/Source/Modulos/Contactos/Views/uEditorContactos.pas index 40cf5389..921ef705 100644 --- a/Source/Modulos/Contactos/Views/uEditorContactos.pas +++ b/Source/Modulos/Contactos/Views/uEditorContactos.pas @@ -80,7 +80,10 @@ end; procedure TfEditorContactos.ImprimirInterno; begin +AppFactuGES.ShowCapado; +{ inherited; +} end; procedure TfEditorContactos.ModificarInterno; @@ -108,7 +111,10 @@ end; procedure TfEditorContactos.PrevisualizarInterno; begin +AppFactuGES.ShowCapado; +{ inherited; +} end; procedure TfEditorContactos.SetContactos(const Value: IBizContacto); @@ -146,6 +152,8 @@ procedure TfEditorContactos.DuplicarInterno; var AContacto : IBizContacto; begin +AppFactuGES.ShowCapado; +{ inherited; AContacto := FController.Duplicar(Contactos); try @@ -153,6 +161,7 @@ begin finally actRefrescar.Execute; end; +} end; procedure TfEditorContactos.EliminarInterno; diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm index 5cce671e..d226b9bf 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm @@ -128,27 +128,31 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente inherited edtlNombre: TcxDBTextEdit DataBinding.DataSource = frViewFacturaCliente1.DADataSource Properties.OnChange = frViewClienteFacturaedtlNombrePropertiesChange + ExplicitWidth = 224 + Width = 224 end inherited edtNIFCIF: TcxDBTextEdit DataBinding.DataSource = frViewFacturaCliente1.DADataSource + ExplicitWidth = 562 + Width = 562 end inherited edtCalle: TcxDBTextEdit DataBinding.DataSource = frViewFacturaCliente1.DADataSource + ExplicitWidth = 562 + Width = 562 end inherited edtPoblacion: TcxDBTextEdit DataBinding.DataSource = frViewFacturaCliente1.DADataSource + ExplicitWidth = 177 + Width = 177 end inherited edtProvincia: TcxDBTextEdit DataBinding.DataSource = frViewFacturaCliente1.DADataSource + ExplicitWidth = 327 + Width = 327 end inherited edtCodigoPostal: TcxDBTextEdit - Left = 192 DataBinding.DataSource = frViewFacturaCliente1.DADataSource - ExplicitLeft = 192 - end - inherited Button3: TBitBtn - Left = 82 - ExplicitLeft = 82 end end end diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas index 29dea340..7c6ea988 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas @@ -272,8 +272,11 @@ end; procedure TfEditorFacturaCliente.ImprimirInterno; begin +AppFactuGES.ShowCapado; +{ inherited; FController.Print(FFactura); +} end; procedure TfEditorFacturaCliente.OnClienteChanged(Sender: TObject); @@ -354,8 +357,11 @@ end; procedure TfEditorFacturaCliente.PrevisualizarInterno; begin +AppFactuGES.ShowCapado; +{ inherited; FController.Preview(FFactura); +} end; procedure TfEditorFacturaCliente.RecalcularPortePorUnidad; diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm index 709eacaa..db1ac050 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm @@ -132,8 +132,6 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente inherited edtFechaFinFiltro: TcxDateEdit Left = 351 ExplicitLeft = 351 - ExplicitWidth = 273 - Width = 273 end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas index 59311293..4b7e1c22 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas @@ -132,6 +132,8 @@ procedure TfEditorFacturasCliente.DuplicarInterno; var AFactura : IBizFacturaCliente; begin +AppFactuGES.ShowCapado; +{ inherited; AFactura := FController.Duplicar(FFacturas); try @@ -139,6 +141,7 @@ begin finally actRefrescar.Execute; end; +} end; procedure TfEditorFacturasCliente.EliminarInterno; @@ -226,6 +229,8 @@ var AFacturas: IBizFacturaCliente; AllItems: Boolean; begin +AppFactuGES.ShowCapado; +{ AFacturas := Nil; AllItems := False; @@ -259,6 +264,7 @@ begin end; end; end; +} end; procedure TfEditorFacturasCliente.ModificarInterno; @@ -326,6 +332,8 @@ var AFacturas: IBizFacturaCliente; AllItems: Boolean; begin +AppFactuGES.ShowCapado; +{ AFacturas := Nil; AllItems := False; @@ -359,6 +367,7 @@ begin end; end; end; +} end; procedure TfEditorFacturasCliente.SetController(const Value: IFacturasClienteController); diff --git a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm index 9b00d423..4ed16590 100644 --- a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm @@ -69,8 +69,9 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor item Name = 'SITUACION' DataType = datString - Size = 19 + Size = 255 DisplayLabel = 'Situaci'#243'n' + DictionaryEntry = 'FacturasProveedor_SITUACION' end item Name = 'BASE_IMPONIBLE' diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas index 5b5f1f4f..af4442ac 100644 --- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas +++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas @@ -3,15 +3,15 @@ unit schFacturasProveedorClient_Intf; interface uses - Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_DarReferencia = '{826E1F5B-DFC3-443B-805B-15E4AA3230F0}'; - RID_FacturasProveedor = '{30C7FC95-DE01-4C7E-B25E-20E5E04A22FA}'; - RID_FacturasProveedor_Detalles = '{C7D28D9D-3ADF-44EC-9DBE-0D0335BB8A68}'; + RID_DarReferencia = '{5C2671F2-30A9-40DF-85EB-DAC3E5798C81}'; + RID_FacturasProveedor = '{EB88CFA6-A4F3-44A5-99AC-CEEF636BBC0F}'; + RID_FacturasProveedor_Detalles = '{794BFE28-FCFA-451E-809D-4B3204729DB8}'; { Data table names } nme_DarReferencia = 'DarReferencia'; @@ -125,7 +125,7 @@ const type { IDarReferencia } IDarReferencia = interface(IDAStronglyTypedDataTable) - ['{B0A9E9AF-549D-4C33-B732-7EB4279EA307}'] + ['{2CD8615C-AC9E-463D-A28B-9DF7EA71C261}'] { Property getters and setters } function GetVALORValue: String; procedure SetVALORValue(const aValue: String); @@ -139,7 +139,7 @@ type end; { TDarReferenciaDataTableRules } - TDarReferenciaDataTableRules = class(TDADataTableRules, IDarReferencia) + TDarReferenciaDataTableRules = class(TIntfObjectDADataTableRules, IDarReferencia) private protected { Property getters and setters } @@ -160,7 +160,7 @@ type { IFacturasProveedor } IFacturasProveedor = interface(IDAStronglyTypedDataTable) - ['{3F3A19B3-F087-49DE-AA30-7F1FA3D42A26}'] + ['{19ADA8D8-BA53-426F-9AFA-700B29166843}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -353,7 +353,7 @@ type end; { TFacturasProveedorDataTableRules } - TFacturasProveedorDataTableRules = class(TDADataTableRules, IFacturasProveedor) + TFacturasProveedorDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor) private f_OBSERVACIONES: IROStrings; procedure OBSERVACIONES_OnChange(Sender: TObject); @@ -555,7 +555,7 @@ type { IFacturasProveedor_Detalles } IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable) - ['{EC5E7C3F-3C86-46DC-B3A4-767E65B3BC78}'] + ['{8C420A12-5489-4872-A3A6-9DE83225D778}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -647,7 +647,7 @@ type end; { TFacturasProveedor_DetallesDataTableRules } - TFacturasProveedor_DetallesDataTableRules = class(TDADataTableRules, IFacturasProveedor_Detalles) + TFacturasProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Detalles) private protected { Property getters and setters } diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas index ef86abd3..19f97ec2 100644 --- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas +++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas @@ -9,14 +9,14 @@ 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_DarReferenciaDelta = '{CFCEEBAB-2BF1-4B6A-9654-0B4C8759C4AB}'; - RID_FacturasProveedorDelta = '{B1A74B0E-6EED-46D2-A083-FB3DCE87EA6D}'; - RID_FacturasProveedor_DetallesDelta = '{DCDF70C0-FF75-44A1-9878-8B088A24A18A}'; + RID_DarReferenciaDelta = '{29799EE8-6169-4A26-9C4C-02C33D658D97}'; + RID_FacturasProveedorDelta = '{90E2FE05-93D9-4478-B54E-73618BD635BF}'; + RID_FacturasProveedor_DetallesDelta = '{9215693E-0AA6-46A8-AD7B-3EAE75F51EFE}'; type { IDarReferenciaDelta } IDarReferenciaDelta = interface(IDarReferencia) - ['{CFCEEBAB-2BF1-4B6A-9654-0B4C8759C4AB}'] + ['{29799EE8-6169-4A26-9C4C-02C33D658D97}'] { Property getters and setters } function GetOldVALORValue : String; @@ -50,7 +50,7 @@ type { IFacturasProveedorDelta } IFacturasProveedorDelta = interface(IFacturasProveedor) - ['{B1A74B0E-6EED-46D2-A083-FB3DCE87EA6D}'] + ['{90E2FE05-93D9-4478-B54E-73618BD635BF}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -445,7 +445,7 @@ type { IFacturasProveedor_DetallesDelta } IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles) - ['{DCDF70C0-FF75-44A1-9878-8B088A24A18A}'] + ['{9215693E-0AA6-46A8-AD7B-3EAE75F51EFE}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_FACTURAValue : Integer; diff --git a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm index 45b79d8b..7a90cfb2 100644 --- a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm +++ b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm @@ -225,8 +225,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor item Name = 'SITUACION' DataType = datString - Size = 19 - DisplayLabel = 'Situaci'#243'n' + Size = 255 + DictionaryEntry = 'FacturasProveedor_SITUACION' end item Name = 'BASE_IMPONIBLE' @@ -361,6 +361,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor Statements = < item Connection = 'IBX' + TargetTable = 'FACTURAS_PROVEEDOR_DETALLES' SQL = 'SELECT'#10' FACTURAS_PROVEEDOR_DETALLES.ID, FACTURAS_PROVEEDOR_DE' + 'TALLES.ID_FACTURA,'#10' FACTURAS_PROVEEDOR_DETALLES.POSICION, FAC' + @@ -426,11 +427,13 @@ object srvFacturasProveedor: TsrvFacturasProveedor end item DatasetField = 'REFERENCIA' - TableField = 'REFERENCIA' + TableField = '' + SQLOrigin = 'REFERENCIA' end item DatasetField = 'REFERENCIA_PROVEEDOR' - TableField = 'REFERENCIA_PROVEEDOR' + TableField = '' + SQLOrigin = 'REFERENCIA_PROVEEDOR' end> end> Name = 'FacturasProveedor_Detalles' diff --git a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj index 5115e2a1..8cd753e0 100644 --- a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj +++ b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj @@ -41,11 +41,6 @@ FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 - - - - - RemObjects Pascal Script - RemObjects SDK 3.0 Integration FacturasProveedor_view.dpk @@ -54,10 +49,10 @@ MainSource - - - - + + + +
fEditorElegirArticulosFacturaProveedor
TfEditorElegirArticulosFacturaProveedor diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas index 229933ff..91fcaaad 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas @@ -267,8 +267,11 @@ end; procedure TfEditorFacturaProveedor.ImprimirInterno; begin +AppFactuGES.ShowCapado; +{ inherited; FController.Print(FFactura); +} end; procedure TfEditorFacturaProveedor.OnProveedorChanged(Sender: TObject); @@ -348,8 +351,11 @@ end; procedure TfEditorFacturaProveedor.PrevisualizarInterno; begin +AppFactuGES.ShowCapado; +{ inherited; FController.Preview(FFactura); +} end; procedure TfEditorFacturaProveedor.RecalcularPortePorUnidad; diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm index cc15eb21..eaeeed0c 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm @@ -3,7 +3,7 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor ClientHeight = 666 ClientWidth = 640 ExplicitWidth = 648 - ExplicitHeight = 700 + ExplicitHeight = 693 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas index 126d167c..04b563cf 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas @@ -12,7 +12,7 @@ uses uEditorGridBase, uBizFacturasProveedor, uIEditorFacturasProveedor, uFacturasProveedorController, uCustomView, uViewBase, uViewBarraSeleccion, uViewGridBase, JvExComCtrls, JvStatusBar, JSDialog, - uViewFacturasProveedor; + uViewFacturasProveedor, uDAInterfaces; type @@ -139,6 +139,8 @@ procedure TfEditorFacturasProveedor.DuplicarInterno; var AFactura : IBizFacturaProveedor; begin +AppFactuGES.ShowCapado; +{ inherited; AFactura := FController.Duplicar(FFacturas); try @@ -146,6 +148,7 @@ begin finally actRefrescar.Execute; end; +} end; procedure TfEditorFacturasProveedor.EliminarInterno; @@ -233,6 +236,8 @@ var AFacturas: IBizFacturaProveedor; AllItems: Boolean; begin +AppFactuGES.ShowCapado; +{ AFacturas := Nil; AllItems := False; @@ -266,6 +271,7 @@ begin end; end; end; +} end; procedure TfEditorFacturasProveedor.ModificarInterno; @@ -332,6 +338,8 @@ var AFacturas: IBizFacturaProveedor; AllItems: Boolean; begin +AppFactuGES.ShowCapado; +{ AFacturas := Nil; AllItems := False; @@ -365,6 +373,7 @@ begin end; end; end; +} end; procedure TfEditorFacturasProveedor.SetController(const Value: IFacturasProveedorController); diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm index 0ade4ad2..27ca1cb6 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm @@ -10,7 +10,7 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor OnActiveTabChanged = cxGridActiveTabChanged ExplicitWidth = 531 ExplicitHeight = 304 - inherited cxGridView: TcxGridDBTableView + inherited cxGridView: TcxGridDBTableView DataController.KeyFieldNames = 'ID' DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded] DataController.Summary.DefaultGroupSummaryItems = < @@ -165,14 +165,16 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor Width = 531 ExplicitWidth = 531 inherited edtFechaFinFiltro: TcxDateEdit - ExplicitWidth = 244 - Width = 244 + ExplicitWidth = 273 + Width = 273 end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel Width = 531 + ExplicitWidth = 531 inherited tbxBotones: TTBXToolbar Width = 521 + ExplicitWidth = 521 end end end diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas index 05120c53..b2a3b6c4 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas @@ -13,7 +13,7 @@ uses cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid, cxImage, Grids, DBGrids, uBizFacturasProveedor, cxGridCustomPopupMenu, cxGridPopupMenu, cxCalendar, cxCurrencyEdit, uViewFiltroBase, TB2Item, TBX, - TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg; + TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces; type IViewFacturasProveedor = interface(IViewGrid) diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm index 3e0b61b9..454b1697 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm @@ -6,7 +6,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor ClientWidth = 765 OnClose = CustomEditorClose ExplicitWidth = 773 - ExplicitHeight = 651 + ExplicitHeight = 644 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -123,10 +123,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor object pagInicidencias: TTabSheet Caption = 'Incidencias' ImageIndex = 2 - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 inline frViewIncidenciasProv: TfrViewIncidencias Left = 0 Top = 0 diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas index fd6b7b15..b026b9b8 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas @@ -198,8 +198,11 @@ end; procedure TfEditorPedidoProveedor.ImprimirInterno; begin +AppFactuGES.ShowCapado; +{ inherited; FController.Print(FPedido); +} end; procedure TfEditorPedidoProveedor.OnProveedorChanged(Sender: TObject); @@ -243,8 +246,11 @@ end; procedure TfEditorPedidoProveedor.PrevisualizarInterno; begin +AppFactuGES.ShowCapado; +{ inherited; FController.Preview(FPedido); +} end; procedure TfEditorPedidoProveedor.RecalcularPortePorUnidad; diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm index b5dbfb78..690f9ca8 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm @@ -5,7 +5,7 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor ClientWidth = 700 Position = poDesigned ExplicitWidth = 708 - ExplicitHeight = 240 + ExplicitHeight = 471 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -128,8 +128,6 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor inherited edtFechaFinFiltro: TcxDateEdit Left = 349 ExplicitLeft = 349 - ExplicitWidth = 335 - Width = 335 end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas index 74a802ff..8709fb71 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas @@ -71,8 +71,11 @@ uses } procedure TfEditorPedidosProveedor.actCambiarSituacionExecute(Sender: TObject); begin +AppFactuGES.ShowCapado; +{ inherited; FController.CambiarSituacion(FPedidos) +} end; procedure TfEditorPedidosProveedor.actEliminarUpdate(Sender: TObject); @@ -84,9 +87,12 @@ end; procedure TfEditorPedidosProveedor.actRecibirPedidoExecute(Sender: TObject); begin +AppFactuGES.ShowCapado; +{ inherited; // RecibirPedidoProv(FPedidos); actRefrescar.Execute; +} end; procedure TfEditorPedidosProveedor.actRecibirPedidoUpdate(Sender: TObject); @@ -115,6 +121,8 @@ procedure TfEditorPedidosProveedor.DuplicarInterno; var APedido : IBizPedidoProveedor; begin +AppFactuGES.ShowCapado; +{ inherited; APedido := FController.Duplicar(Pedidos); try @@ -122,6 +130,7 @@ begin finally actRefrescar.Execute; end; +} end; procedure TfEditorPedidosProveedor.EliminarInterno; @@ -203,6 +212,8 @@ var APedidos: IBizPedidoProveedor; AllItems: Boolean; begin +AppFactuGES.ShowCapado; +{ APedidos := Nil; AllItems := False; @@ -236,6 +247,7 @@ begin end; end; end; +} end; procedure TfEditorPedidosProveedor.ModificarInterno; @@ -283,6 +295,8 @@ var APedidos: IBizPedidoProveedor; AllItems: Boolean; begin +AppFactuGES.ShowCapado; +{ APedidos := Nil; AllItems := False; @@ -316,6 +330,7 @@ begin end; end; end; +} end; procedure TfEditorPedidosProveedor.SetController(const Value: IPedidosProveedorController); diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas index b383853a..ea59e210 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas @@ -466,7 +466,7 @@ begin ShowHourglassCursor; try if not APresupuesto.DataTable.Active then - APresupuesto.DataTable.Active := True; + APresupuesto.DataTable.Active := True; if (APresupuesto.State in dsEditModes) then APresupuesto.Cancel; diff --git a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm index b4181ba4..b73ee363 100644 --- a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm @@ -30,6 +30,7 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID' + Required = True ServerAutoRefresh = True DictionaryEntry = 'PresupuestosCliente_ID' InPrimaryKey = True @@ -62,7 +63,7 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente Name = 'SITUACION' DataType = datString Size = 255 - DisplayLabel = 'Situaci'#243'n' + DisplayLabel = 'Situaci'#195#179'n' DictionaryEntry = 'PresupuestosCliente_SITUACION' end item @@ -211,14 +212,14 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'PresupuestosCliente' IndexDefs = <> - Left = 232 - Top = 104 + Left = 248 + Top = 88 end object ds_PresupuestosCliente: TDADataSource DataSet = tbl_PresupuestosCliente.Dataset DataTable = tbl_PresupuestosCliente - Left = 232 - Top = 40 + Left = 248 + Top = 32 end object tbl_PresupuestosCliente_Detalles: TDAMemDataTable RemoteUpdatesOptions = [] @@ -322,13 +323,13 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'PresupuestosCliente_Detalles' IndexDefs = <> - Left = 440 - Top = 96 + Left = 464 + Top = 88 end object ds_PresupuestosCliente_Detalles: TDADataSource DataSet = tbl_PresupuestosCliente_Detalles.Dataset DataTable = tbl_PresupuestosCliente_Detalles - Left = 440 - Top = 40 + Left = 464 + Top = 32 end end diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas index db4a8aaf..bad4852d 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas @@ -9,9 +9,9 @@ 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_DarReferencia = '{0E25C9EE-290E-48B3-A135-C7C7128DF9B8}'; - RID_PresupuestosCliente = '{632FC123-90B6-4E44-A24C-D67715FFFA86}'; - RID_PresupuestosCliente_Detalles = '{4D48AE43-3E5E-4D41-A619-4D7873065407}'; + RID_DarReferencia = '{6594B31A-A292-486E-A784-AF4659E1A953}'; + RID_PresupuestosCliente = '{13857C95-50E8-4EF5-8544-ABFCE393A83E}'; + RID_PresupuestosCliente_Detalles = '{FE4E1E48-710A-404F-B2DD-4547549B420D}'; { Data table names } nme_DarReferencia = 'DarReferencia'; @@ -119,7 +119,7 @@ const type { IDarReferencia } IDarReferencia = interface(IDAStronglyTypedDataTable) - ['{7779EF23-3D43-4609-8A92-378D0BC8126E}'] + ['{D7753D57-71A2-4C4D-A580-8D58520FCFD3}'] { Property getters and setters } function GetVALORValue: String; procedure SetVALORValue(const aValue: String); @@ -154,7 +154,7 @@ type { IPresupuestosCliente } IPresupuestosCliente = interface(IDAStronglyTypedDataTable) - ['{BA5CD1DE-F008-446F-A424-67B2F318DB01}'] + ['{4FCC9A5F-7A94-4A3A-940A-4CA0D4176EDB}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -513,7 +513,7 @@ type { IPresupuestosCliente_Detalles } IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{257BE485-4D3D-4312-ACF2-6047EFDB96D6}'] + ['{5B7F200F-3962-455D-98BB-A24DE98BD18B}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas index dd51bce6..d13a8bcd 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas @@ -9,14 +9,14 @@ 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_DarReferenciaDelta = '{FC7E5FD9-9CC1-4026-BA08-1DF06F3D1D5E}'; - RID_PresupuestosClienteDelta = '{E2147326-69DE-4FBD-8CAE-8C01530544F7}'; - RID_PresupuestosCliente_DetallesDelta = '{AD363AEF-96FD-49CE-B096-8080CE467488}'; + RID_DarReferenciaDelta = '{0B34135E-0FB6-4CBA-AF23-A26B88542C10}'; + RID_PresupuestosClienteDelta = '{847B43BF-5186-406F-92E6-2135D35EF01F}'; + RID_PresupuestosCliente_DetallesDelta = '{1DA22D38-0DB5-450C-AF43-3F7F4D2EA56E}'; type { IDarReferenciaDelta } IDarReferenciaDelta = interface(IDarReferencia) - ['{FC7E5FD9-9CC1-4026-BA08-1DF06F3D1D5E}'] + ['{0B34135E-0FB6-4CBA-AF23-A26B88542C10}'] { Property getters and setters } function GetOldVALORValue : String; @@ -50,7 +50,7 @@ type { IPresupuestosClienteDelta } IPresupuestosClienteDelta = interface(IPresupuestosCliente) - ['{E2147326-69DE-4FBD-8CAE-8C01530544F7}'] + ['{847B43BF-5186-406F-92E6-2135D35EF01F}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -412,7 +412,7 @@ type { IPresupuestosCliente_DetallesDelta } IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles) - ['{AD363AEF-96FD-49CE-B096-8080CE467488}'] + ['{1DA22D38-0DB5-450C-AF43-3F7F4D2EA56E}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PRESUPUESTOValue : Integer; diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas index badae22a..da3a4aaa 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas @@ -15,10 +15,7 @@ type TBizDetallesPresupuestoCliente = class(TPresupuestosCliente_DetallesDataTableRules, IBizDetallesPresupuestoCliente) protected - procedure OnNewRecord(Sender: TDADataTable); override; procedure BeforeInsert(Sender: TDADataTable); override; - public - constructor Create(aDataTable: TDADataTable); override; end; @@ -27,7 +24,7 @@ implementation { TBizDetallesPresupuestoCliente } uses - DB, uDataTableUtils; + DB; procedure TBizDetallesPresupuestoCliente.BeforeInsert(Sender: TDADataTable); @@ -40,16 +37,6 @@ begin AMasterTable.Post; end; -constructor TBizDetallesPresupuestoCliente.Create(aDataTable: TDADataTable); -begin - inherited Create(aDataTable); -end; - -procedure TBizDetallesPresupuestoCliente.OnNewRecord(Sender: TDADataTable); -begin - inherited; -end; - initialization RegisterDataTableRules(BIZ_CLIENT_DETALLES_PRESUPUESTO_CLIENTE, TBizDetallesPresupuestoCliente); diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm index 99be8b2d..2133b44e 100644 --- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm +++ b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm @@ -30,6 +30,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Connection = 'IBX' ConnectionType = 'Interbase' Default = True + TargetTable = 'REFERENCIAS' Name = 'IBX' SQL = 'SELECT VALOR'#10'FROM REFERENCIAS'#10'WHERE CODIGO = :CODIGO'#10'AND ID_EMPR' + @@ -1030,6 +1031,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Name = 'PresupuestosCliente_ID' DataType = datAutoInc GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID' + Required = True DisplayLabel = 'ID' ServerAutoRefresh = True end diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm index 82faf099..e026904e 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm @@ -12,7 +12,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente inherited JvNavPanelHeader: TJvNavPanelHeader Width = 674 Caption = 'Nuevo pedido de cliente' - ExplicitWidth = 632 + ExplicitWidth = 674 inherited Image1: TImage Left = 647 Picture.Data = { @@ -127,7 +127,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente end inherited TBXDock: TTBXDock Width = 674 - ExplicitWidth = 632 + ExplicitWidth = 674 inherited tbxMain: TTBXToolbar ExplicitWidth = 488 inherited TBXItem2: TTBXItem @@ -147,22 +147,19 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente inherited pgPaginas: TPageControl Width = 674 Height = 465 - ActivePage = pagPortada TabOrder = 1 OnChanging = pgPaginasChanging - ExplicitWidth = 632 - ExplicitHeight = 442 + ExplicitWidth = 674 + ExplicitHeight = 465 inherited pagGeneral: TTabSheet ExplicitLeft = 4 ExplicitTop = 24 - ExplicitWidth = 624 - ExplicitHeight = 414 + ExplicitWidth = 666 + ExplicitHeight = 437 end object pagContenido: TTabSheet Caption = 'Contenido' ImageIndex = 1 - ExplicitWidth = 624 - ExplicitHeight = 414 inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente Left = 0 Top = 0 @@ -179,11 +176,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 624 - ExplicitHeight = 414 + ExplicitWidth = 666 + ExplicitHeight = 437 inherited ToolBar1: TToolBar Width = 666 - ExplicitWidth = 624 + ExplicitWidth = 666 inherited FontSize: TEdit Width = 57 ExplicitWidth = 57 @@ -228,8 +225,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente inherited cxGrid: TcxGrid Width = 666 Height = 365 - ExplicitWidth = 624 - ExplicitHeight = 342 + ExplicitWidth = 666 + ExplicitHeight = 365 end inherited TBXDock1: TTBXDock Width = 666 @@ -243,8 +240,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente object pagInicidencias: TTabSheet Caption = 'Incidencias' ImageIndex = 2 - ExplicitWidth = 624 - ExplicitHeight = 414 inline frViewIncidenciasCli: TfrViewIncidencias Left = 0 Top = 0 @@ -259,8 +254,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 624 - ExplicitHeight = 414 + ExplicitWidth = 666 + ExplicitHeight = 437 inherited pnlSup: TPanel Width = 666 ExplicitWidth = 624 @@ -271,11 +266,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente inherited GroupBox1: TGroupBox Width = 666 Height = 409 - ExplicitWidth = 624 - ExplicitHeight = 386 + ExplicitWidth = 666 + ExplicitHeight = 409 inherited eIncidencias: TcxDBMemo - ExplicitWidth = 601 - ExplicitHeight = 353 + ExplicitWidth = 643 + ExplicitHeight = 376 Height = 376 Width = 643 end @@ -285,8 +280,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente object pagPortada: TTabSheet Caption = 'Portada' ImageIndex = 3 - ExplicitWidth = 624 - ExplicitHeight = 414 object edtPortada: TcxDBRichEdit Left = 0 Top = 0 @@ -294,10 +287,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente DataBinding.DataField = 'PORTADA' DataBinding.DataSource = dsDataTable TabOrder = 0 - ExplicitLeft = 304 - ExplicitTop = 288 - ExplicitWidth = 185 - ExplicitHeight = 89 Height = 437 Width = 666 end @@ -305,8 +294,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente object pagMemoria: TTabSheet Caption = 'Memoria' ImageIndex = 4 - ExplicitWidth = 624 - ExplicitHeight = 414 + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object cxDBMemo1: TcxDBMemo Left = 0 Top = 0 @@ -314,8 +305,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente DataBinding.DataField = 'MEMORIA' DataBinding.DataSource = dsDataTable TabOrder = 0 - ExplicitWidth = 624 - ExplicitHeight = 414 Height = 437 Width = 666 end @@ -328,8 +317,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente item Width = 200 end> - ExplicitTop = 589 - ExplicitWidth = 632 + ExplicitTop = 612 + ExplicitWidth = 674 end inline frViewTotales1: TfrViewTotales [4] Left = 0 @@ -345,14 +334,14 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente ParentFont = False TabOrder = 4 ReadOnly = False - ExplicitTop = 518 - ExplicitWidth = 632 + ExplicitTop = 541 + ExplicitWidth = 674 ExplicitHeight = 71 inherited dxLayoutControl1: TdxLayoutControl Width = 674 Height = 171 LookAndFeel = dxLayoutOfficeLookAndFeel1 - ExplicitWidth = 632 + ExplicitWidth = 674 ExplicitHeight = 171 inherited Bevel1: TBevel Left = 93 diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas index d502b747..328bfc3d 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas @@ -201,9 +201,12 @@ end; procedure TfEditorPresupuestoCliente.ImprimirInterno; begin +AppFactuGES.ShowCapado; +{ inherited; if not Modified then FController.Print(FPresupuesto); +} end; procedure TfEditorPresupuestoCliente.OnClienteChanged(Sender: TObject); @@ -287,9 +290,12 @@ end; procedure TfEditorPresupuestoCliente.PrevisualizarInterno; begin +AppFactuGES.ShowCapado; +{ inherited; if not Modified then FController.Preview(FPresupuesto); +} end; procedure TfEditorPresupuestoCliente.RecalcularPortePorUnidad; diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm index 4e1f003e..a3347799 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm @@ -1,5 +1,5 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente - Caption = 'Lista de pedidos de cliente' + Caption = 'Lista de presupuestos de cliente' ClientWidth = 674 ExplicitWidth = 682 ExplicitHeight = 471 @@ -7,7 +7,7 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader Width = 674 - Caption = 'Lista de pedidos de cliente' + Caption = 'Lista de presupuestos de cliente' ExplicitWidth = 674 inherited Image1: TImage Left = 647 diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas index f71f585f..824097fa 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas @@ -104,6 +104,8 @@ procedure TfEditorPresupuestosCliente.actGenerarExecute(Sender: TObject); var Respuesta : Integer; begin +AppFactuGES.ShowCapado; +{ inherited; Respuesta := JsGenerarDialog.Execute; @@ -120,6 +122,7 @@ begin end; actRefrescar.Execute; end; +} end; procedure TfEditorPresupuestosCliente.actGenerarFacturaExecute(Sender: TObject); @@ -189,6 +192,8 @@ procedure TfEditorPresupuestosCliente.DuplicarInterno; var APresupuesto : IBizPresupuestoCliente; begin +AppFactuGES.ShowCapado; +{ inherited; APresupuesto := FController.Duplicar(Presupuestos); try @@ -196,6 +201,7 @@ begin finally actRefrescar.Execute; end; +} end; procedure TfEditorPresupuestosCliente.EliminarInterno; @@ -277,6 +283,8 @@ var APresupuestos: IBizPresupuestoCliente; AllItems: Boolean; begin +AppFactuGES.ShowCapado; +{ APresupuestos := Nil; AllItems := False; @@ -310,6 +318,7 @@ begin end; end; end; +} end; procedure TfEditorPresupuestosCliente.ModificarInterno; @@ -339,6 +348,8 @@ var APresupuestos: IBizPresupuestoCliente; AllItems: Boolean; begin +AppFactuGES.ShowCapado; +{ APresupuestos := Nil; AllItems := False; @@ -373,6 +384,7 @@ begin end; end; APresupuestos := Nil; +} end; procedure TfEditorPresupuestosCliente.SetController(const Value: IPresupuestosClienteController); diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas index 1af39a13..0dcc524e 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas +++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas @@ -71,7 +71,7 @@ type implementation -uses schRecibosClienteClient_Intf, uEditorFechaPago, uEditorBase; +uses schRecibosClienteClient_Intf, uEditorFechaPago, uEditorBase, uFactuGES_App; {$R *.dfm} @@ -264,8 +264,11 @@ end; procedure TfEditorReciboCliente.ImprimirInterno; begin +AppFactuGES.ShowCapado; +{ inherited; FController.Print(FRecibo); +} end; procedure TfEditorReciboCliente.JvFormStorageRestorePlacement(Sender: TObject); @@ -303,8 +306,11 @@ end; procedure TfEditorReciboCliente.PrevisualizarInterno; begin +AppFactuGES.ShowCapado; +{ inherited; FController.Preview(FRecibo); +} end; procedure TfEditorReciboCliente.SetController(const Value: IRecibosClienteController); diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm index 0594d9d0..b290cecb 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm @@ -3,7 +3,7 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente ClientHeight = 561 ClientWidth = 645 ExplicitWidth = 653 - ExplicitHeight = 595 + ExplicitHeight = 588 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -116,19 +116,16 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente ExplicitWidth = 645 inherited txtFiltroTodo: TcxTextEdit ExplicitWidth = 273 - ExplicitHeight = 24 Width = 273 end inherited edtFechaIniFiltro: TcxDateEdit ExplicitWidth = 121 - ExplicitHeight = 24 Width = 121 end inherited edtFechaFinFiltro: TcxDateEdit Left = 298 ExplicitLeft = 298 ExplicitWidth = 244 - ExplicitHeight = 24 Width = 244 end end diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas index f78adf1d..7df295c4 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas +++ b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas @@ -136,6 +136,8 @@ var ARecibosCliente: IBizRecibosCliente; AllItems: Boolean; begin +AppFactuGES.ShowCapado; +{ ARecibosCliente := Nil; AllItems := False; @@ -169,6 +171,7 @@ begin end; end; end; +} end; procedure TfEditorRecibosCliente.ModificarInterno; @@ -198,6 +201,8 @@ var ARecibosCliente: IBizRecibosCliente; AllItems: Boolean; begin +AppFactuGES.ShowCapado; +{ ARecibosCliente := Nil; AllItems := False; @@ -231,6 +236,7 @@ begin end; end; end; +} end; procedure TfEditorRecibosCliente.SetController(const Value: IRecibosClienteController); @@ -247,4 +253,3 @@ begin end; end. - \ No newline at end of file diff --git a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas index 54f064e6..f4a77f76 100644 --- a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas +++ b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas @@ -3,15 +3,15 @@ unit schRecibosProveedorClient_Intf; interface uses - Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_RecibosCompensadosProv = '{C20FA67E-00AF-431D-B1C2-15B709411BFB}'; - RID_RecibosProveedor = '{FDD5DFD3-6416-4A13-98F9-66BDA473A4ED}'; - RID_PagosProveedor = '{E9D1C3DE-3EF4-417E-AD98-EBCB898DA155}'; + RID_RecibosCompensadosProv = '{038EB6D0-2F4B-45EA-9008-1869EF2AD2A7}'; + RID_RecibosProveedor = '{520783CC-3FA1-47AD-9EB5-8864F919B8B5}'; + RID_PagosProveedor = '{5C9C9069-2E1F-4CD6-ACAC-B12F74426DB4}'; { Data table names } nme_RecibosCompensadosProv = 'RecibosCompensadosProv'; @@ -181,7 +181,7 @@ const type { IRecibosCompensadosProv } IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable) - ['{425DC91D-22EB-4D8C-9EFB-6CCCEC303DCE}'] + ['{61E35D46-8AB4-49CA-A4EF-F940AB11A43D}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -375,7 +375,7 @@ type end; { TRecibosCompensadosProvDataTableRules } - TRecibosCompensadosProvDataTableRules = class(TDADataTableRules, IRecibosCompensadosProv) + TRecibosCompensadosProvDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosProv) private protected { Property getters and setters } @@ -576,7 +576,7 @@ type { IRecibosProveedor } IRecibosProveedor = interface(IDAStronglyTypedDataTable) - ['{9F702C65-C284-46AB-A30E-C253173CFBCE}'] + ['{DCA30451-7CE9-4A08-991B-213799064ED6}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -770,7 +770,7 @@ type end; { TRecibosProveedorDataTableRules } - TRecibosProveedorDataTableRules = class(TDADataTableRules, IRecibosProveedor) + TRecibosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IRecibosProveedor) private protected { Property getters and setters } @@ -971,7 +971,7 @@ type { IPagosProveedor } IPagosProveedor = interface(IDAStronglyTypedDataTable) - ['{D148FD3F-8593-481D-B8D2-27FDFA246E7B}'] + ['{16059EDF-B6FC-4A68-8505-CA9173A8EB5C}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1051,7 +1051,7 @@ type end; { TPagosProveedorDataTableRules } - TPagosProveedorDataTableRules = class(TDADataTableRules, IPagosProveedor) + TPagosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPagosProveedor) private protected { Property getters and setters } diff --git a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas index d449a3cf..e75934ee 100644 --- a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas +++ b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas @@ -9,14 +9,14 @@ 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_RecibosCompensadosProvDelta = '{70FD873D-B8A4-48FF-91B4-78E5A8061DB7}'; - RID_RecibosProveedorDelta = '{960F5E67-31CD-44FB-A6DD-0FC4610157EC}'; - RID_PagosProveedorDelta = '{3955ECBE-60F2-47AB-AD32-7B878B1CA0C7}'; + RID_RecibosCompensadosProvDelta = '{7D64E436-4A62-4815-9B17-18188D7EB661}'; + RID_RecibosProveedorDelta = '{8CC4F287-B555-4CB1-B413-10F941E621CF}'; + RID_PagosProveedorDelta = '{C62DC80C-8A6A-4FC1-899E-4A97895130AC}'; type { IRecibosCompensadosProvDelta } IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv) - ['{70FD873D-B8A4-48FF-91B4-78E5A8061DB7}'] + ['{7D64E436-4A62-4815-9B17-18188D7EB661}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; @@ -410,7 +410,7 @@ type { IRecibosProveedorDelta } IRecibosProveedorDelta = interface(IRecibosProveedor) - ['{960F5E67-31CD-44FB-A6DD-0FC4610157EC}'] + ['{8CC4F287-B555-4CB1-B413-10F941E621CF}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; @@ -804,7 +804,7 @@ type { IPagosProveedorDelta } IPagosProveedorDelta = interface(IPagosProveedor) - ['{3955ECBE-60F2-47AB-AD32-7B878B1CA0C7}'] + ['{C62DC80C-8A6A-4FC1-899E-4A97895130AC}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBOValue : Integer; diff --git a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm index 2fc9cd0e..9a2049dd 100644 --- a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm +++ b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm @@ -460,7 +460,7 @@ object srvRecibosProveedor: TsrvRecibosProveedor item Name = 'SITUACION' DataType = datString - Size = 255 + Size = 9 DictionaryEntry = 'RecibosProveedor_SITUACION' end item @@ -1384,7 +1384,7 @@ object srvRecibosProveedor: TsrvRecibosProveedor item Name = 'RecibosProveedor_SITUACION' DataType = datString - Size = 255 + Size = 9 DisplayLabel = 'SITUACION' end item @@ -1470,45 +1470,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor Size = 20 DisplayLabel = 'USUARIO' end - item - Name = 'RecibosProveedor_Refresh_FECHA_EMISION' - DataType = datDateTime - DisplayLabel = 'FECHA_EMISION' - end - item - Name = 'RecibosProveedor_Refresh_ID_PROVEEDOR' - DataType = datInteger - end - item - Name = 'RecibosProveedor_Refresh_NOMBRE_PROVEEDOR' - DataType = datString - Size = 255 - end - item - Name = 'RecibosProveedor_Refresh_NIF_CIF_PROVEEDOR' - DataType = datString - Size = 15 - end - item - Name = 'RecibosProveedor_Refresh_ENTIDAD_PROVEEDOR' - DataType = datString - Size = 15 - end - item - Name = 'RecibosProveedor_Refresh_SUCURSAL_PROVEEDOR' - DataType = datString - Size = 15 - end - item - Name = 'RecibosProveedor_Refresh_DC_PROVEEDOR' - DataType = datString - Size = 15 - end - item - Name = 'RecibosProveedor_Refresh_CUENTA_PROVEEDOR' - DataType = datString - Size = 15 - end item Name = 'RecibosProveedor_USUARIO' DataType = datString diff --git a/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dproj b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dproj index df609a85..a4a5b43e 100644 --- a/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dproj +++ b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dproj @@ -39,57 +39,17 @@ Delphi.Personality Package - - False - True - False - - - True - False - False - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - - RecibosProveedor_view.dpk - - +FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0RecibosProveedor_view.dpk MainSource - - - - + + + +
fEditorElegirRecibosProveedor
TfEditorElegirRecibosProveedor @@ -132,7 +92,6 @@ -