Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cambio en recibos de proveedor para poder añadir y eliminar, y facturas de proveedor se añade la gestion contable igual que en facturas de cliente

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@170 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-03-14 10:44:36 +00:00
parent 27bb8897ae
commit e56234c002
45 changed files with 7226 additions and 618 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Database/RodaxSoftware.FactuGES.Database.proj
View File

@ -50,6 +50,10 @@
<Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -i $(DOUBLE_QUOTES)$(SqlScriptsFolder)\factuges_sysdata_plan_general_contable.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q $(DOUBLE_QUOTES)$(OutputPath)\factuges.fdb$(DOUBLE_QUOTES)" <Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -i $(DOUBLE_QUOTES)$(SqlScriptsFolder)\factuges_sysdata_plan_general_contable.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q $(DOUBLE_QUOTES)$(OutputPath)\factuges.fdb$(DOUBLE_QUOTES)"
WorkingDirectory="$(OutputPath)" /> WorkingDirectory="$(OutputPath)" />
<Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -i $(DOUBLE_QUOTES)$(SqlScriptsFolder)\factuges_sysdata_plan_general_contable_acana.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q $(DOUBLE_QUOTES)$(OutputPath)\factuges.fdb$(DOUBLE_QUOTES)"
WorkingDirectory="$(OutputPath)" />
</Target> </Target>
<Target Name="BuildReplicador" <Target Name="BuildReplicador"

378
Database/scripts/factuges.sql
View File

@ -1,13 +1,12 @@
/******************************************************************************/ /******************************************************************************/
/**** Generated by IBExpert 2007.05.03 06/03/2008 17:42:38 ****/ /**** Generated by IBExpert 2007.05.03 14/03/2008 10:23:14 ****/
/******************************************************************************/ /******************************************************************************/
SET SQL DIALECT 3; SET SQL DIALECT 3;
SET NAMES ISO8859_1; SET NAMES ISO8859_1;
CREATE DATABASE 'C:\Codigo Acana\Output\Debug\Database\FACTUGES.FDB' CREATE DATABASE 'FACTUGES.FDB'
USER 'SYSDBA' PASSWORD 'masterkey'
PAGE_SIZE 4096 PAGE_SIZE 4096
DEFAULT CHARACTER SET ISO8859_1; DEFAULT CHARACTER SET ISO8859_1;
@ -87,10 +86,10 @@ CREATE GENERATOR GEN_AGENTES_COMISIONES_ID;
SET GENERATOR GEN_AGENTES_COMISIONES_ID TO 1; SET GENERATOR GEN_AGENTES_COMISIONES_ID TO 1;
CREATE GENERATOR GEN_ALBARANES_CLI_DETALLES_ID; CREATE GENERATOR GEN_ALBARANES_CLI_DETALLES_ID;
SET GENERATOR GEN_ALBARANES_CLI_DETALLES_ID TO 19; SET GENERATOR GEN_ALBARANES_CLI_DETALLES_ID TO 1;
CREATE GENERATOR GEN_ALBARANES_CLI_ID; CREATE GENERATOR GEN_ALBARANES_CLI_ID;
SET GENERATOR GEN_ALBARANES_CLI_ID TO 16; SET GENERATOR GEN_ALBARANES_CLI_ID TO 1;
CREATE GENERATOR GEN_ALBARANES_PRO_DETALLES_ID; CREATE GENERATOR GEN_ALBARANES_PRO_DETALLES_ID;
SET GENERATOR GEN_ALBARANES_PRO_DETALLES_ID TO 1; SET GENERATOR GEN_ALBARANES_PRO_DETALLES_ID TO 1;
@ -117,7 +116,7 @@ CREATE GENERATOR GEN_CLIENTES_GRUPOS_ID;
SET GENERATOR GEN_CLIENTES_GRUPOS_ID TO 1; SET GENERATOR GEN_CLIENTES_GRUPOS_ID TO 1;
CREATE GENERATOR GEN_CLIENTES_PROCEDENCIAS_ID; CREATE GENERATOR GEN_CLIENTES_PROCEDENCIAS_ID;
SET GENERATOR GEN_CLIENTES_PROCEDENCIAS_ID TO 1; SET GENERATOR GEN_CLIENTES_PROCEDENCIAS_ID TO 358;
CREATE GENERATOR GEN_COMISIONES_LIQUID_ID; CREATE GENERATOR GEN_COMISIONES_LIQUID_ID;
SET GENERATOR GEN_COMISIONES_LIQUID_ID TO 1; SET GENERATOR GEN_COMISIONES_LIQUID_ID TO 1;
@ -132,13 +131,13 @@ CREATE GENERATOR GEN_CONTACTOS_DIR_ID;
SET GENERATOR GEN_CONTACTOS_DIR_ID TO 1; SET GENERATOR GEN_CONTACTOS_DIR_ID TO 1;
CREATE GENERATOR GEN_CONTACTOS_ID; CREATE GENERATOR GEN_CONTACTOS_ID;
SET GENERATOR GEN_CONTACTOS_ID TO 72; SET GENERATOR GEN_CONTACTOS_ID TO 18428;
CREATE GENERATOR GEN_CONT_APUNTES_ID; CREATE GENERATOR GEN_CONT_APUNTES_ID;
SET GENERATOR GEN_CONT_APUNTES_ID TO 226; SET GENERATOR GEN_CONT_APUNTES_ID TO 65;
CREATE GENERATOR GEN_CONT_ASIENTOS_ID; CREATE GENERATOR GEN_CONT_ASIENTOS_ID;
SET GENERATOR GEN_CONT_ASIENTOS_ID TO 80; SET GENERATOR GEN_CONT_ASIENTOS_ID TO 12;
CREATE GENERATOR GEN_CONT_BALANCES_ID; CREATE GENERATOR GEN_CONT_BALANCES_ID;
SET GENERATOR GEN_CONT_BALANCES_ID TO 220; SET GENERATOR GEN_CONT_BALANCES_ID TO 220;
@ -147,22 +146,25 @@ CREATE GENERATOR GEN_CONT_CUENTAS_ESP_ID;
SET GENERATOR GEN_CONT_CUENTAS_ESP_ID TO 21; SET GENERATOR GEN_CONT_CUENTAS_ESP_ID TO 21;
CREATE GENERATOR GEN_CONT_CUENTAS_ID; CREATE GENERATOR GEN_CONT_CUENTAS_ID;
SET GENERATOR GEN_CONT_CUENTAS_ID TO 1226; SET GENERATOR GEN_CONT_CUENTAS_ID TO 1838;
CREATE GENERATOR GEN_CONT_EJERCICIOS_ID; CREATE GENERATOR GEN_CONT_EJERCICIOS_ID;
SET GENERATOR GEN_CONT_EJERCICIOS_ID TO 2; SET GENERATOR GEN_CONT_EJERCICIOS_ID TO 3;
CREATE GENERATOR GEN_CONT_EPIGRAFES_ID; CREATE GENERATOR GEN_CONT_EPIGRAFES_ID;
SET GENERATOR GEN_CONT_EPIGRAFES_ID TO 143; SET GENERATOR GEN_CONT_EPIGRAFES_ID TO 214;
CREATE GENERATOR GEN_CONT_SUBCUENTAS_ID; CREATE GENERATOR GEN_CONT_SUBCUENTAS_ID;
SET GENERATOR GEN_CONT_SUBCUENTAS_ID TO 2478; SET GENERATOR GEN_CONT_SUBCUENTAS_ID TO 3112;
CREATE GENERATOR GEN_EJERCICIOS_ID;
SET GENERATOR GEN_EJERCICIOS_ID TO 1;
CREATE GENERATOR GEN_EMPLEADOS_GRUPOS_ID; CREATE GENERATOR GEN_EMPLEADOS_GRUPOS_ID;
SET GENERATOR GEN_EMPLEADOS_GRUPOS_ID TO 1; SET GENERATOR GEN_EMPLEADOS_GRUPOS_ID TO 1;
CREATE GENERATOR GEN_EMPRESAS_CONTACTOS_ID; CREATE GENERATOR GEN_EMPRESAS_CONTACTOS_ID;
SET GENERATOR GEN_EMPRESAS_CONTACTOS_ID TO 72; SET GENERATOR GEN_EMPRESAS_CONTACTOS_ID TO 3;
CREATE GENERATOR GEN_EMPRESAS_DATOS_BANCO_ID; CREATE GENERATOR GEN_EMPRESAS_DATOS_BANCO_ID;
SET GENERATOR GEN_EMPRESAS_DATOS_BANCO_ID TO 2; SET GENERATOR GEN_EMPRESAS_DATOS_BANCO_ID TO 2;
@ -177,25 +179,25 @@ CREATE GENERATOR GEN_EMPRESAS_USUARIOS_ID;
SET GENERATOR GEN_EMPRESAS_USUARIOS_ID TO 1; SET GENERATOR GEN_EMPRESAS_USUARIOS_ID TO 1;
CREATE GENERATOR GEN_FACTURAS_CLIENTE_ID; CREATE GENERATOR GEN_FACTURAS_CLIENTE_ID;
SET GENERATOR GEN_FACTURAS_CLIENTE_ID TO 42; SET GENERATOR GEN_FACTURAS_CLIENTE_ID TO 4;
CREATE GENERATOR GEN_FACTURAS_PROVEEDOR_ID; CREATE GENERATOR GEN_FACTURAS_PROVEEDOR_ID;
SET GENERATOR GEN_FACTURAS_PROVEEDOR_ID TO 1; SET GENERATOR GEN_FACTURAS_PROVEEDOR_ID TO 11;
CREATE GENERATOR GEN_FACTURA_CLIENTE_DETALLES_ID; CREATE GENERATOR GEN_FACTURA_CLIENTE_DETALLES_ID;
SET GENERATOR GEN_FACTURA_CLIENTE_DETALLES_ID TO 127; SET GENERATOR GEN_FACTURA_CLIENTE_DETALLES_ID TO 11;
CREATE GENERATOR GEN_FACTURA_PROV_DETALLES_ID; CREATE GENERATOR GEN_FACTURA_PROV_DETALLES_ID;
SET GENERATOR GEN_FACTURA_PROV_DETALLES_ID TO 1; SET GENERATOR GEN_FACTURA_PROV_DETALLES_ID TO 26;
CREATE GENERATOR GEN_FAMILIAS_ID; CREATE GENERATOR GEN_FAMILIAS_ID;
SET GENERATOR GEN_FAMILIAS_ID TO 1; SET GENERATOR GEN_FAMILIAS_ID TO 1;
CREATE GENERATOR GEN_FORMAS_PAGO_ID; CREATE GENERATOR GEN_FORMAS_PAGO_ID;
SET GENERATOR GEN_FORMAS_PAGO_ID TO 4; SET GENERATOR GEN_FORMAS_PAGO_ID TO 7;
CREATE GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID; CREATE GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID;
SET GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID TO 6; SET GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID TO 10;
CREATE GENERATOR GEN_INFORMES_ID; CREATE GENERATOR GEN_INFORMES_ID;
SET GENERATOR GEN_INFORMES_ID TO 11; SET GENERATOR GEN_INFORMES_ID TO 11;
@ -204,7 +206,7 @@ CREATE GENERATOR GEN_MOVIMIENTOS_ID;
SET GENERATOR GEN_MOVIMIENTOS_ID TO 1; SET GENERATOR GEN_MOVIMIENTOS_ID TO 1;
CREATE GENERATOR GEN_PAGOS_CLIENTE_ID; CREATE GENERATOR GEN_PAGOS_CLIENTE_ID;
SET GENERATOR GEN_PAGOS_CLIENTE_ID TO 35; SET GENERATOR GEN_PAGOS_CLIENTE_ID TO 2;
CREATE GENERATOR GEN_PAGOS_PROVEEDOR_ID; CREATE GENERATOR GEN_PAGOS_PROVEEDOR_ID;
SET GENERATOR GEN_PAGOS_PROVEEDOR_ID TO 1; SET GENERATOR GEN_PAGOS_PROVEEDOR_ID TO 1;
@ -228,22 +230,22 @@ CREATE GENERATOR GEN_PERMISOS_ID;
SET GENERATOR GEN_PERMISOS_ID TO 1; SET GENERATOR GEN_PERMISOS_ID TO 1;
CREATE GENERATOR GEN_PRESUPUESTOS_CLI_DETALLE_ID; CREATE GENERATOR GEN_PRESUPUESTOS_CLI_DETALLE_ID;
SET GENERATOR GEN_PRESUPUESTOS_CLI_DETALLE_ID TO 3; SET GENERATOR GEN_PRESUPUESTOS_CLI_DETALLE_ID TO 1;
CREATE GENERATOR GEN_PRESUPUESTOS_CLI_ID; CREATE GENERATOR GEN_PRESUPUESTOS_CLI_ID;
SET GENERATOR GEN_PRESUPUESTOS_CLI_ID TO 2; SET GENERATOR GEN_PRESUPUESTOS_CLI_ID TO 1;
CREATE GENERATOR GEN_PROVEEDORES_GRUPOS_ID; CREATE GENERATOR GEN_PROVEEDORES_GRUPOS_ID;
SET GENERATOR GEN_PROVEEDORES_GRUPOS_ID TO 1; SET GENERATOR GEN_PROVEEDORES_GRUPOS_ID TO 1;
CREATE GENERATOR GEN_RECIBOS_CLIENTE_ID; CREATE GENERATOR GEN_RECIBOS_CLIENTE_ID;
SET GENERATOR GEN_RECIBOS_CLIENTE_ID TO 33; SET GENERATOR GEN_RECIBOS_CLIENTE_ID TO 3;
CREATE GENERATOR GEN_RECIBOS_PROVEEDOR_ID; CREATE GENERATOR GEN_RECIBOS_PROVEEDOR_ID;
SET GENERATOR GEN_RECIBOS_PROVEEDOR_ID TO 1; SET GENERATOR GEN_RECIBOS_PROVEEDOR_ID TO 10;
CREATE GENERATOR GEN_REMESAS_CLIENTE_ID; CREATE GENERATOR GEN_REMESAS_CLIENTE_ID;
SET GENERATOR GEN_REMESAS_CLIENTE_ID TO 5; SET GENERATOR GEN_REMESAS_CLIENTE_ID TO 2;
CREATE GENERATOR GEN_REMESAS_PROVEEDOR_ID; CREATE GENERATOR GEN_REMESAS_PROVEEDOR_ID;
SET GENERATOR GEN_REMESAS_PROVEEDOR_ID TO 1; SET GENERATOR GEN_REMESAS_PROVEEDOR_ID TO 1;
@ -301,7 +303,8 @@ END^
CREATE PROCEDURE PROC_NEW_ASIENTO_FACTURA_PROV ( CREATE PROCEDURE PROC_NEW_ASIENTO_FACTURA_PROV (
IDFACTURA INTEGER) IDFACTURA INTEGER,
ID_SUBCUENTA_COMPRA INTEGER)
AS AS
BEGIN BEGIN
EXIT; EXIT;
@ -864,8 +867,7 @@ CREATE TABLE FACTURAS_CLIENTE (
RECARGO_EQUIVALENCIA TIPO_BOOLEANO, RECARGO_EQUIVALENCIA TIPO_BOOLEANO,
ID_COMISION_LIQUIDADA TIPO_ID, ID_COMISION_LIQUIDADA TIPO_ID,
IGNORAR_CONTABILIDAD SMALLINT, IGNORAR_CONTABILIDAD SMALLINT,
ID_TIENDA TIPO_ID, ID_TIENDA TIPO_ID
ID_TIPOVENTA TIPO_ID
); );
CREATE TABLE FACTURAS_CLIENTE_DETALLES ( CREATE TABLE FACTURAS_CLIENTE_DETALLES (
@ -1223,6 +1225,8 @@ CREATE TABLE RECIBOS_CLIENTE (
CREATE TABLE RECIBOS_PROVEEDOR ( CREATE TABLE RECIBOS_PROVEEDOR (
ID TIPO_ID NOT NULL, ID TIPO_ID NOT NULL,
ID_EMPRESA TIPO_ID,
ID_PROVEEDOR TIPO_ID,
ID_FACTURA TIPO_ID, ID_FACTURA TIPO_ID,
REFERENCIA VARCHAR(255), REFERENCIA VARCHAR(255),
REFERENCIA_PROVEEDOR VARCHAR(255), REFERENCIA_PROVEEDOR VARCHAR(255),
@ -1236,7 +1240,8 @@ CREATE TABLE RECIBOS_PROVEEDOR (
FECHA_MODIFICACION DATE, FECHA_MODIFICACION DATE,
USUARIO TIPO_USUARIO, USUARIO TIPO_USUARIO,
ID_REMESA TIPO_ID, ID_REMESA TIPO_ID,
ID_RECIBO_COMPENSADO INTEGER ID_RECIBO_COMPENSADO INTEGER,
ID_TIENDA TIPO_ID
); );
CREATE TABLE REFERENCIAS ( CREATE TABLE REFERENCIAS (
@ -1927,6 +1932,27 @@ from CONT_ASIENTOS
/* View: V_CONT_FAC_PRO_COMPRAS */
CREATE VIEW V_CONT_FAC_PRO_COMPRAS(
ID_FACTURA,
ID_SUBCUENTA,
SUBCUENTA)
AS
select
CONT_ASIENTOS.ID_FACTURA,
CONT_SUBCUENTAS.ID as ID_SUBCUENTA,
CONT_SUBCUENTAS.DESCRIPCION as SUBCUENTA
from CONT_ASIENTOS
LEFT JOIN CONT_APUNTES ON (CONT_APUNTES.ID_ASIENTO = CONT_ASIENTOS.ID)
LEFT JOIN CONT_SUBCUENTAS ON (CONT_SUBCUENTAS.ID = CONT_APUNTES.ID_SUBCUENTA)
LEFT JOIN CONT_CUENTAS ON (CONT_CUENTAS.ID = CONT_SUBCUENTAS.ID_CUENTA)
/* Solo sacaremos aquellas tuplas de apuntes cuya subcuenta contable pertenezca compras*/
where (CONT_ASIENTOS.ID_FACTURA is not null) and (CONT_CUENTAS.ref_cuenta = 600)
;
/* View: V_CONT_SUBCUENTAS_SALDO */ /* View: V_CONT_SUBCUENTAS_SALDO */
CREATE VIEW V_CONT_SUBCUENTAS_SALDO( CREATE VIEW V_CONT_SUBCUENTAS_SALDO(
ID_SUBCUENTA, ID_SUBCUENTA,
@ -2316,49 +2342,55 @@ CREATE VIEW V_FACTURAS_PROVEEDOR(
IMPORTE_PORTE, IMPORTE_PORTE,
IGNORAR_CONTABILIDAD, IGNORAR_CONTABILIDAD,
ID_TIENDA, ID_TIENDA,
TIENDA) TIENDA,
ID_SUBCUENTA,
SUBCUENTA)
AS AS
SELECT FACTURAS_PROVEEDOR.ID, SELECT FACTURAS_PROVEEDOR.ID,
FACTURAS_PROVEEDOR.ID_EMPRESA, FACTURAS_PROVEEDOR.ID_EMPRESA,
FACTURAS_PROVEEDOR.REFERENCIA, FACTURAS_PROVEEDOR.REFERENCIA,
CASE WHEN (FACTURAS_PROVEEDOR.IMPORTE_TOTAL < 0) THEN 'A' ELSE 'F' END AS TIPO, CASE WHEN (FACTURAS_PROVEEDOR.IMPORTE_TOTAL < 0) THEN 'A' ELSE 'F' END AS TIPO,
FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR, FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR,
FACTURAS_PROVEEDOR.FECHA_FACTURA, FACTURAS_PROVEEDOR.FECHA_FACTURA,
TRIM(V_FAC_PRO_SITUACION.SITUACION), TRIM(V_FAC_PRO_SITUACION.SITUACION),
FACTURAS_PROVEEDOR.BASE_IMPONIBLE, FACTURAS_PROVEEDOR.BASE_IMPONIBLE,
FACTURAS_PROVEEDOR.DESCUENTO, FACTURAS_PROVEEDOR.DESCUENTO,
FACTURAS_PROVEEDOR.IMPORTE_DESCUENTO, FACTURAS_PROVEEDOR.IMPORTE_DESCUENTO,
FACTURAS_PROVEEDOR.IVA, FACTURAS_PROVEEDOR.IVA,
FACTURAS_PROVEEDOR.IMPORTE_IVA, FACTURAS_PROVEEDOR.IMPORTE_IVA,
FACTURAS_PROVEEDOR.RE, FACTURAS_PROVEEDOR.RE,
FACTURAS_PROVEEDOR.IMPORTE_RE, FACTURAS_PROVEEDOR.IMPORTE_RE,
FACTURAS_PROVEEDOR.IMPORTE_TOTAL, FACTURAS_PROVEEDOR.IMPORTE_TOTAL,
FACTURAS_PROVEEDOR.OBSERVACIONES, FACTURAS_PROVEEDOR.OBSERVACIONES,
FACTURAS_PROVEEDOR.ID_PROVEEDOR, FACTURAS_PROVEEDOR.ID_PROVEEDOR,
FACTURAS_PROVEEDOR.NIF_CIF, FACTURAS_PROVEEDOR.NIF_CIF,
FACTURAS_PROVEEDOR.NOMBRE, FACTURAS_PROVEEDOR.NOMBRE,
FACTURAS_PROVEEDOR.CALLE, FACTURAS_PROVEEDOR.CALLE,
FACTURAS_PROVEEDOR.POBLACION, FACTURAS_PROVEEDOR.POBLACION,
FACTURAS_PROVEEDOR.PROVINCIA, FACTURAS_PROVEEDOR.PROVINCIA,
FACTURAS_PROVEEDOR.CODIGO_POSTAL, FACTURAS_PROVEEDOR.CODIGO_POSTAL,
FACTURAS_PROVEEDOR.FECHA_ALTA, FACTURAS_PROVEEDOR.FECHA_ALTA,
FACTURAS_PROVEEDOR.FECHA_MODIFICACION, FACTURAS_PROVEEDOR.FECHA_MODIFICACION,
FACTURAS_PROVEEDOR.USUARIO, FACTURAS_PROVEEDOR.USUARIO,
FACTURAS_PROVEEDOR.ID_FORMA_PAGO, FACTURAS_PROVEEDOR.ID_FORMA_PAGO,
FACTURAS_PROVEEDOR.RECARGO_EQUIVALENCIA, FACTURAS_PROVEEDOR.RECARGO_EQUIVALENCIA,
FACTURAS_PROVEEDOR.ID_TIPO_IVA, FACTURAS_PROVEEDOR.ID_TIPO_IVA,
FACTURAS_PROVEEDOR.IMPORTE_NETO, FACTURAS_PROVEEDOR.IMPORTE_NETO,
FACTURAS_PROVEEDOR.IMPORTE_PORTE, FACTURAS_PROVEEDOR.IMPORTE_PORTE,
FACTURAS_PROVEEDOR.IGNORAR_CONTABILIDAD, FACTURAS_PROVEEDOR.IGNORAR_CONTABILIDAD,
FACTURAS_PROVEEDOR.ID_TIENDA, FACTURAS_PROVEEDOR.ID_TIENDA,
EMPRESAS_TIENDAS.NOMBRE AS TIENDA COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA,
FROM V_FAC_PRO_SITUACION V_CONT_FAC_PRO_COMPRAS.ID_SUBCUENTA,
LEFT JOIN FACTURAS_PROVEEDOR V_CONT_FAC_PRO_COMPRAS.SUBCUENTA
ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA)
LEFT JOIN PROVEEDORES_DATOS FROM V_FAC_PRO_SITUACION
ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR) LEFT JOIN FACTURAS_PROVEEDOR
LEFT JOIN EMPRESAS_TIENDAS ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA)
LEFT JOIN PROVEEDORES_DATOS
ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR)
LEFT JOIN EMPRESAS_TIENDAS
ON (EMPRESAS_TIENDAS.ID = FACTURAS_PROVEEDOR.ID_TIENDA) ON (EMPRESAS_TIENDAS.ID = FACTURAS_PROVEEDOR.ID_TIENDA)
LEFT JOIN V_CONT_FAC_PRO_COMPRAS ON (V_CONT_FAC_PRO_COMPRAS.ID_FACTURA = FACTURAS_PROVEEDOR.ID)
; ;
@ -3414,54 +3446,69 @@ CREATE VIEW V_RECIBOS_PROVEEDOR(
CUENTA_PROVEEDOR, CUENTA_PROVEEDOR,
FECHA_ALTA, FECHA_ALTA,
FECHA_MODIFICACION, FECHA_MODIFICACION,
USUARIO) USUARIO,
ID_TIENDA,
TIENDA,
CALLE_PROVEEDOR,
POBLACION_PROVEEDOR,
CODIGO_POSTAL_PROVEEDOR,
PROVINCIA_PROVEEDOR)
AS AS
SELECT RECIBOS_PROVEEDOR.ID, SELECT RECIBOS_PROVEEDOR.ID,
RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO, RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO,
RECIBO_COMPENSADO1.REFERENCIA, RECIBO_COMPENSADO1.REFERENCIA,
RECIBOS_PROVEEDOR.REFERENCIA, RECIBOS_PROVEEDOR.REFERENCIA,
RECIBOS_PROVEEDOR.REFERENCIA_PROVEEDOR, RECIBOS_PROVEEDOR.REFERENCIA_PROVEEDOR,
CASE CASE
WHEN RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO IS NULL WHEN RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO IS NULL
THEN TRIM(V_REC_PRO_SITUACION.SITUACION) THEN TRIM(V_REC_PRO_SITUACION.SITUACION)
ELSE TRIM(RECIBO_COMPENSADO2.SITUACION) ELSE TRIM(RECIBO_COMPENSADO2.SITUACION)
END, END,
RECIBOS_PROVEEDOR.ID_FACTURA, RECIBOS_PROVEEDOR.ID_FACTURA,
RECIBOS_PROVEEDOR.ID_REMESA, REMESAS_PROVEEDOR.REFERENCIA as REFERENCIA_REMESA, RECIBOS_PROVEEDOR.ID_REMESA, REMESAS_PROVEEDOR.REFERENCIA as REFERENCIA_REMESA,
RECIBOS_PROVEEDOR.FECHA_EMISION, RECIBOS_PROVEEDOR.FECHA_VENCIMIENTO, RECIBOS_PROVEEDOR.DESCRIPCION, RECIBOS_PROVEEDOR.FECHA_EMISION, RECIBOS_PROVEEDOR.FECHA_VENCIMIENTO, RECIBOS_PROVEEDOR.DESCRIPCION,
RECIBOS_PROVEEDOR.OBSERVACIONES, RECIBOS_PROVEEDOR.IMPORTE, RECIBOS_PROVEEDOR.OTROS_GASTOS, 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), 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, FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR, FACTURAS_PROVEEDOR.FECHA_FACTURA,
FORMAS_PAGO.DESCRIPCION, FACTURAS_PROVEEDOR.IMPORTE_TOTAL, FORMAS_PAGO.DESCRIPCION, FACTURAS_PROVEEDOR.IMPORTE_TOTAL,
FACTURAS_PROVEEDOR.ID_EMPRESA, RECIBOS_PROVEEDOR.ID_EMPRESA,
CONTACTOS.ID as ID_PROVEEDOR, CONTACTOS.NOMBRE, CONTACTOS.NIF_CIF, CONTACTOS_DATOS_BANCO.ENTIDAD, 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, CONTACTOS_DATOS_BANCO.SUCURSAL, CONTACTOS_DATOS_BANCO.DC, CONTACTOS_DATOS_BANCO.CUENTA,
RECIBOS_PROVEEDOR.FECHA_ALTA, RECIBOS_PROVEEDOR.FECHA_ALTA,
RECIBOS_PROVEEDOR.FECHA_MODIFICACION, RECIBOS_PROVEEDOR.FECHA_MODIFICACION,
RECIBOS_PROVEEDOR.USUARIO RECIBOS_PROVEEDOR.USUARIO,
RECIBOS_PROVEEDOR.ID_TIENDA,
FROM RECIBOS_PROVEEDOR COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA,
LEFT JOIN V_REC_PRO_SITUACION CONTACTOS.CALLE,
ON (V_REC_PRO_SITUACION.ID_RECIBO = RECIBOS_PROVEEDOR.ID) CONTACTOS.POBLACION,
LEFT JOIN FACTURAS_PROVEEDOR CONTACTOS.CODIGO_POSTAL,
ON (FACTURAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_FACTURA) CONTACTOS.PROVINCIA
LEFT JOIN FORMAS_PAGO
ON (FORMAS_PAGO.ID = FACTURAS_PROVEEDOR.ID_FORMA_PAGO)
LEFT JOIN CONTACTOS FROM RECIBOS_PROVEEDOR
ON (CONTACTOS.ID = FACTURAS_PROVEEDOR.ID_PROVEEDOR) LEFT JOIN V_REC_PRO_SITUACION
LEFT JOIN CONTACTOS_DATOS_BANCO ON (V_REC_PRO_SITUACION.ID_RECIBO = RECIBOS_PROVEEDOR.ID)
ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = CONTACTOS.ID) LEFT JOIN FACTURAS_PROVEEDOR
LEFT JOIN REMESAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_FACTURA)
ON (REMESAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_REMESA) LEFT JOIN FORMAS_PAGO
LEFT JOIN V_REC_PRO_COMPENSADOS ON (FORMAS_PAGO.ID = FACTURAS_PROVEEDOR.ID_FORMA_PAGO)
ON (V_REC_PRO_COMPENSADOS.ID_RECIBO = RECIBOS_PROVEEDOR.ID) LEFT JOIN CONTACTOS
LEFT JOIN RECIBOS_PROVEEDOR RECIBO_COMPENSADO1 ON (CONTACTOS.ID = RECIBOS_PROVEEDOR.ID_PROVEEDOR)
ON (RECIBO_COMPENSADO1.ID = RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO) LEFT JOIN CONTACTOS_DATOS_BANCO
LEFT JOIN V_REC_PRO_SITUACION RECIBO_COMPENSADO2 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) ON (RECIBO_COMPENSADO2.ID_RECIBO = RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO)
LEFT JOIN EMPRESAS_TIENDAS
ON (EMPRESAS_TIENDAS.ID = RECIBOS_PROVEEDOR.ID_TIENDA)
; ;
@ -3598,9 +3645,6 @@ FROM
ORDER BY USERNAME ORDER BY USERNAME
; ;
/******************************************************************************/ /******************************************************************************/
/**** Primary Keys ****/ /**** Primary Keys ****/
/******************************************************************************/ /******************************************************************************/
@ -3940,13 +3984,6 @@ begin
IF (BASEIMPONIBLE <> 0) THEN IF (BASEIMPONIBLE <> 0) THEN
BEGIN BEGIN
/*
SELECT CONT_SUBCUENTAS.ID FROM CONT_SUBCUENTAS
LEFT JOIN CONT_CUENTAS ON (CONT_CUENTAS.ID = CONT_SUBCUENTAS.ID_CUENTA)
WHERE CONT_CUENTAS.REF_CUENTA = '700'
AND CONT_SUBCUENTAS.ID_EJERCICIO = :IDEJERCICIO
INTO :IDSUBCUENTA;
*/
IF (IMPORTETOTAL < 0) THEN IF (IMPORTETOTAL < 0) THEN
BEGIN BEGIN
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
@ -3966,7 +4003,8 @@ end
^ ^
ALTER PROCEDURE PROC_NEW_ASIENTO_FACTURA_PROV ( ALTER PROCEDURE PROC_NEW_ASIENTO_FACTURA_PROV (
IDFACTURA INTEGER) IDFACTURA INTEGER,
ID_SUBCUENTA_COMPRA INTEGER)
AS AS
declare variable ignorarcontabilidad integer; declare variable ignorarcontabilidad integer;
declare variable referenciafactura varchar(255); declare variable referenciafactura varchar(255);
@ -4025,50 +4063,80 @@ begin
VALUES (:IDASIENTO, :FECHAFACTURA, :ORDEN, :IDFACTURA, 'p'); VALUES (:IDASIENTO, :FECHAFACTURA, :ORDEN, :IDFACTURA, 'p');
END END
/*INSERTAMOS LOS APUNTES*/ IF (IMPORTETOTAL < 0) THEN
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) BEGIN
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, 'FACTURA DE PROVEEDOR', /*INSERTAMOS LOS APUNTES DEL ABONO*/
:REFERENCIAFACTURA, NULL, :IMPORTETOTAL); INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, 'Abono de proveedor: ' || :REFERENCIAFACTURA,
:REFERENCIAFACTURA, -1*(:IMPORTETOTAL), NULL);
END
ELSE
BEGIN
/*INSERTAMOS LOS APUNTES DE LA FACTURA*/
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, 'Factura de proveedor: ' || :REFERENCIAFACTURA,
:REFERENCIAFACTURA, NULL, :IMPORTETOTAL);
END
IF (IMPORTEIVA <> 0) THEN IF (IMPORTEIVA <> 0) THEN
BEGIN BEGIN
SELECT CONT_SUBCUENTAS.ID FROM CONT_SUBCUENTAS SELECT CONT_SUBCUENTAS.ID FROM CONT_SUBCUENTAS
LEFT JOIN CONT_CUENTAS ON (CONT_CUENTAS.ID = CONT_SUBCUENTAS.ID_CUENTA) LEFT JOIN CONT_CUENTAS ON (CONT_CUENTAS.ID = CONT_SUBCUENTAS.ID_CUENTA)
WHERE CONT_CUENTAS.REF_CUENTA = '472' WHERE CONT_CUENTAS.REF_CUENTA = 472
AND CONT_SUBCUENTAS.ID_EJERCICIO = :IDEJERCICIO AND CONT_SUBCUENTAS.ID_EJERCICIO = :IDEJERCICIO
INTO :IDSUBCUENTA; INTO :IDSUBCUENTA;
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) IF (IMPORTETOTAL < 0) THEN
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 2, 'IVA FACTURA DE PROVEEDOR', BEGIN
:REFERENCIAFACTURA, :IMPORTEIVA, NULL); INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 2, 'Abono de proveedor: ' || :REFERENCIAFACTURA || ' (IVA)',
:REFERENCIAFACTURA, NULL, -1*(:IMPORTEIVA));
END
ELSE
BEGIN
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 2, 'Factura de proveedor: ' || :REFERENCIAFACTURA || ' (IVA)',
:REFERENCIAFACTURA, :IMPORTEIVA, NULL);
END
END END
IF (IMPORTERE <> 0) THEN IF (IMPORTERE <> 0) THEN
BEGIN BEGIN
SELECT CONT_SUBCUENTAS.ID FROM CONT_SUBCUENTAS SELECT CONT_SUBCUENTAS.ID FROM CONT_SUBCUENTAS
LEFT JOIN CONT_CUENTAS ON (CONT_CUENTAS.ID = CONT_SUBCUENTAS.ID_CUENTA) LEFT JOIN CONT_CUENTAS ON (CONT_CUENTAS.ID = CONT_SUBCUENTAS.ID_CUENTA)
WHERE CONT_CUENTAS.REF_CUENTA = '470' WHERE CONT_CUENTAS.REF_CUENTA = 470
AND CONT_SUBCUENTAS.ID_EJERCICIO = :IDEJERCICIO AND CONT_SUBCUENTAS.ID_EJERCICIO = :IDEJERCICIO
INTO :IDSUBCUENTA; INTO :IDSUBCUENTA;
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) IF (IMPORTETOTAL < 0) THEN
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 3, 'RE FACTURA DE PROVEEDOR', BEGIN
:REFERENCIAFACTURA, :IMPORTERE, NULL); INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 3, 'Abono de proveedor: ' || :REFERENCIAFACTURA || ' (RE)',
:REFERENCIAFACTURA, NULL, -1*(:IMPORTERE));
END
ELSE
BEGIN
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 3, 'Factura de proveedor: ' || :REFERENCIAFACTURA || ' (RE)',
:REFERENCIAFACTURA, :IMPORTERE, NULL);
END
END END
IF (BASEIMPONIBLE <> 0) THEN IF (BASEIMPONIBLE <> 0) THEN
BEGIN BEGIN
SELECT CONT_SUBCUENTAS.ID FROM CONT_SUBCUENTAS IF (IMPORTETOTAL < 0) THEN
LEFT JOIN CONT_CUENTAS ON (CONT_CUENTAS.ID = CONT_SUBCUENTAS.ID_CUENTA) BEGIN
WHERE CONT_CUENTAS.REF_CUENTA = '600' INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
AND CONT_SUBCUENTAS.ID_EJERCICIO = :IDEJERCICIO VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :ID_SUBCUENTA_COMPRA, 4, 'Abono de proveedor: ' || :REFERENCIAFACTURA || ' (Base imponible)',
INTO :IDSUBCUENTA; :REFERENCIAFACTURA, NULL, -1*(:BASEIMPONIBLE));
END
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) ELSE
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 4, 'BASE IMPONIBLE FACTURA DE PROVEEDOR', BEGIN
:REFERENCIAFACTURA, :BASEIMPONIBLE, NULL); INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :ID_SUBCUENTA_COMPRA, 4, 'Factura de proveedor: ' || :REFERENCIAFACTURA || ' (Base imponible)',
:REFERENCIAFACTURA, :BASEIMPONIBLE, NULL);
END
END END
END END
suspend; suspend;
end end
@ -4432,16 +4500,6 @@ end
SET TERM ; ^ SET TERM ; ^
/******************************************************************************/
/**** Descriptions ****/
/******************************************************************************/
/* Fields descriptions */
DESCRIBE FIELD TIPO TABLE CONT_ASIENTOS
'Tipo de asiento
''c'' cliente
''p'' proveedor';

68
Database/scripts/factuges_sysdata.sql
View File

@ -2,6 +2,16 @@ SET SQL DIALECT 3;
SET NAMES ISO8859_1; SET NAMES ISO8859_1;
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, 'B85274322', 'Acana Home S.L.', 'Acana Home S.L.', 'C/Alcalá, 295', 'Madrid', 'Madrid', '28027', '91 4054951', NULL, NULL, NULL, '91 4055163', 'info@acanahome.com', NULL, 'www.acanahome.com', NULL, NULL, NULL, 'Administrador', NULL, '', 16);
SET GENERATOR GEN_EMPRESAS_ID TO 1;
COMMIT WORK;
INSERT INTO EMPRESAS_TIENDAS (ID, ID_EMPRESA, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, PERSONA_CONTACTO, NOMBRE, TELEFONO, MOVIL, FAX, EMAIL, NOTAS, FECHA_ALTA, FECHA_MODIFICACION, CODIGO_CONTABLE) VALUES (1, 1, 'C/ Alcalá, 295', 'Madrid', 'Madrid', '28027', 'Cristina Puerta', 'Alcalá', '91 405 49 51', '667 60 57 11', '91 405 51 63', NULL, NULL, NULL, NULL, '01');
INSERT INTO EMPRESAS_TIENDAS (ID, ID_EMPRESA, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, PERSONA_CONTACTO, NOMBRE, TELEFONO, MOVIL, FAX, EMAIL, NOTAS, FECHA_ALTA, FECHA_MODIFICACION, CODIGO_CONTABLE) VALUES (2, 1, 'Bulevar Indalecio Prieto Ed. 14', 'Madrid', 'Madrid', '28032', 'José Luis Puerta', 'Valdebernardo', '91 301 65 57', '618 31 09 40', '91 301 65 58', NULL, NULL, NULL, NULL, '02');
INSERT INTO EMPRESAS_TIENDAS (ID, ID_EMPRESA, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, PERSONA_CONTACTO, NOMBRE, TELEFONO, MOVIL, FAX, EMAIL, NOTAS, FECHA_ALTA, FECHA_MODIFICACION, CODIGO_CONTABLE) VALUES (3, 1, NULL, NULL, NULL, NULL, NULL, 'Abeto', NULL, NULL, NULL, NULL, NULL, NULL, NULL, '03');
SET GENERATOR GEN_EMPRESAS_TIENDAS_ID TO 4;
COMMIT WORK;
INSERT INTO CATEGORIAS (ID, CATEGORIA) VALUES (1, 'CLIENTE'); INSERT INTO CATEGORIAS (ID, CATEGORIA) VALUES (1, 'CLIENTE');
INSERT INTO CATEGORIAS (ID, CATEGORIA) VALUES (2, 'PROVEEDOR'); INSERT INTO CATEGORIAS (ID, CATEGORIA) VALUES (2, 'PROVEEDOR');
INSERT INTO CATEGORIAS (ID, CATEGORIA) VALUES (3, 'EMPLEADO'); INSERT INTO CATEGORIAS (ID, CATEGORIA) VALUES (3, 'EMPLEADO');
@ -22,7 +32,6 @@ INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES
SET GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID TO 6; SET GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID TO 6;
COMMIT WORK; COMMIT WORK;
INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (1, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por artículo', 'Informe de ventas por artículo', NULL, 'S'); INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (1, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por artículo', 'Informe de ventas por artículo', NULL, 'S');
INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (2, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por cliente', 'Informe de ventas por cliente y artículo', NULL, 'S'); INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (2, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por cliente', 'Informe de ventas por cliente y artículo', NULL, 'S');
INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (3, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por agente y cliente', 'Informe de ventas por agente y cliente', NULL, 'S'); INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (3, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por agente y cliente', 'Informe de ventas por agente y cliente', NULL, 'S');
@ -36,32 +45,44 @@ INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESC
SET GENERATOR GEN_INFORMES_ID TO 11; SET GENERATOR GEN_INFORMES_ID TO 11;
COMMIT WORK; COMMIT WORK;
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (1, 1, 1, 'REF_FACTURAS_CLIENTE', 'FAL/00003', 'Ref. facturas de cliente Alcalá');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (2, 1, NULL, 'REF_PEDIDOS_CLIENTE', '00001', 'Ref. pedidos de cliente');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (3, 1, NULL, 'REF_PEDIDOS_PROVEEDOR', '00001', 'Ref. pedidos de proveedor');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (4, 1, NULL, 'REF_ALBARANES_CLIENTE', '00011', 'Ref. albaranes de cliente');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (5, 1, NULL, 'REF_ALBARANES_PROVEEDOR', '00001', 'Ref. albaranes de proveedor');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (6, 1, NULL, 'REF_REMESAS_CLIENTE', '00006', 'Ref. remesas de cliente');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (7, 1, NULL, 'REF_COMISIONES', '00001', 'Ref. liquidaciones de comision');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (8, 1, 0, 'REF_FACTURAS_PROVEEDOR', 'FPAC/00002', 'Ref. facturas de proveedor');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (9, 1, NULL, 'REF_ALBARANES_DEV_CLIENTE', '00001', 'Ref. ordenes de devolucion de cliente');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (10, 1, NULL, 'REF_ALBARANES_DEV_PROVEEDOR', '00001', 'Ref. ordenes de devolucion de proveedor');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (11, 1, NULL, 'REF_REMESAS_PROVEEDOR', '00001', 'Ref. remesas de proveedor');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (12, 1, 1, 'REF_ABONOS_CLIENTE', '00001', 'Ref. abonos de cliente Alcalá');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (13, 1, NULL, 'REF_ABONOS_PROVEEDOR', '00001', 'Ref. abonos de proveedor');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (14, 1, NULL, 'REF_PRESUPUESTOS_CLIENTE', '000002', 'Ref. presupuestos de cliente');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (15, 1, 1, 'REF_RECIBOS_CLIENTE', 'RAL/00012', 'Ref. recibos de cliente Alcalá');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (16, 1, 0, 'REF_RECIBOS_PROVEEDOR', 'RPAC/00001', 'Ref. recibos de proveedor General');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (17, 1, 2, 'REF_FACTURAS_CLIENTE', 'FVA/00006', 'Ref. facturas de cliente Valdebernardo');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (18, 1, 3, 'REF_FACTURAS_CLIENTE', 'FAB/00002', 'Ref. facturas de cliente Abeto');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (20, 1, 0, 'REF_ABONOS_CLIENTE', 'xx2', 'Ref. abonos de cliente General');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (23, 1, 1, 'REF_FACTURAS_PROVEEDOR', 'FPAL/00002', 'Ref. facturas de proveedor Alcalá');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (21, 1, 2, 'REF_ABONOS_CLIENTE', 'xcc', 'Ref. abonos de cliente Valdebernardo');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (19, 1, 0, 'REF_FACTURAS_CLIENTE', 'FAC/00014', 'Ref. facturas de cliente General');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (24, 1, 2, 'REF_FACTURAS_PROVEEDOR', 'FPVA/00003', 'Ref. facturas de proveedor Valdebernardo ');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (25, 1, 3, 'REF_FACTURAS_PROVEEDOR', 'FPAC/00003', 'Ref. facturas de proveedor Abeto');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (22, 1, 3, 'REF_ABONOS_CLIENTE', 'dd', 'Ref. abonos de cliente Abeto');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (26, 1, 0, 'REF_RECIBOS_CLIENTE', 'RAC/00001', 'Ref. recibos de cliente General');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (27, 1, 2, 'REF_RECIBOS_CLIENTE', 'RVA/00003', 'Ref. recibos de cliente Valdebernardo');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (28, 1, 3, 'REF_RECIBOS_CLIENTE', 'RAB/00001', 'Ref. recibos de cliente Abeto');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (29, 1, 1, 'REF_RECIBOS_PROVEEDOR', 'RPAL/00001', 'Ref. recibos de proveedor Alcalá');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (30, 1, 2, 'REF_RECIBOS_PROVEEDOR', 'RPVA/00001', 'Ref. recibos de proveedor Valdebernardo');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (31, 1, 3, 'REF_RECIBOS_PROVEEDOR', 'RPAB/00001', 'Ref. recibos de proveedor Valdebernardo');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (1, 'REF_FACTURAS_CLIENTE', '00001', 1, 'Ref. facturas de cliente');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (2, 'REF_PEDIDOS_CLIENTE', '00001', 1, 'Ref. pedidos de cliente');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (3, 'REF_PEDIDOS_PROVEEDOR', '00001', 1, 'Ref. pedidos de proveedor');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (4, 'REF_ALBARANES_CLIENTE', '00001', 1, 'Ref. albaranes de cliente');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (5, 'REF_ALBARANES_PROVEEDOR', '00001', 1, 'Ref. albaranes de proveedor');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (6, 'REF_REMESAS_CLIENTE', '00001', 1, 'Ref. remesas de cliente');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (7, 'REF_COMISIONES', '00001', 1, 'Ref. liquidaciones de comision');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (8, 'REF_FACTURAS_PROVEEDOR', '00001', 1, 'Ref. facturas de proveedor');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (9, 'REF_ALBARANES_DEV_CLIENTE', '00001', 1, 'Ref. ordenes de devolucion de cliente');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (10, 'REF_ALBARANES_DEV_PROVEEDOR', '00001', 1, 'Ref. ordenes de devolucion de proveedor');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (11, 'REF_REMESAS_PROVEEDOR', '00001', 1, 'Ref. remesas de proveedor');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (12, 'REF_ABONOS_CLIENTE', '00001', 1, 'Ref. abonos de cliente');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (13, 'REF_ABONOS_PROVEEDOR', '00001', 1, 'Ref. abonos de proveedor');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (14, 'REF_PRESUPUESTOS_CLIENTE', '000001', 1, 'Ref. presupuestos de cliente');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (15, 'REF_RECIBOS_CLIENTE', '000001', 1, 'Ref. recibos de cliente');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (16, 'REF_RECIBOS_PROVEEDOR', '000001', 1, 'Ref. recibos de proveedor');
COMMIT WORK; COMMIT WORK;
INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (1, 'IVA16', 'IVA16', 16, 4); INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (1, 'IVA16', 'IVA16', 16, 4);
INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (2, 'IVA4', 'IVA4', 4, 0.5); INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (2, 'IVA4', 'IVA4', 4, 0.5);
INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (3, 'IVA7', 'IVA7', 7, 1); INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (3, 'IVA7', 'IVA7', 7, 1);
INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (4, 'EXENTO', 'EXTRANJERO', 0, 0); INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (4, 'EXENTO', 'EXTRANJERO', 0, 0);
COMMIT WORK;
SET GENERATOR GEN_TIPOS_IVA_ID TO 5; SET GENERATOR GEN_TIPOS_IVA_ID TO 5;
COMMIT WORK; COMMIT WORK;
@ -78,13 +99,6 @@ INSERT INTO UNIDADES_MEDIDA (ID, DESCRIPCION) VALUES (10, 'PAQUETE');
SET GENERATOR GEN_UNIDADES_MEDIDA_ID TO 11; SET GENERATOR GEN_UNIDADES_MEDIDA_ID TO 11;
COMMIT WORK; COMMIT WORK;
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, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL, IVA) VALUES (1, 'B85274322', 'Acana Home S.L.', 'Acana Home S.L.', 'C/Alcalá, 295', 'Madrid', 'Madrid', '28027', '91 4054951', NULL, NULL, NULL, '91 4055163', 'info@acanahome.com', NULL, 'www.acanahome.com', NULL, NULL, 'Administrador', '', 16);
COMMIT WORK;
INSERT INTO EMPRESAS_TIENDAS (ID, ID_EMPRESA, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, PERSONA_CONTACTO, NOMBRE, TELEFONO, MOVIL, FAX, EMAIL, FECHA_ALTA, FECHA_MODIFICACION) VALUES (1, 1, 'C/ Alcalá, 295', 'Madrid', 'Madrid', '28027', 'Cristina Puerta', 'Alcalá', '91 405 49 51', '667 60 57 11', '91 405 51 63', NULL, NULL, NULL);
INSERT INTO EMPRESAS_TIENDAS (ID, ID_EMPRESA, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, PERSONA_CONTACTO, NOMBRE, TELEFONO, MOVIL, FAX, EMAIL, FECHA_ALTA, FECHA_MODIFICACION) VALUES (2, 1, 'Bulevar Indalecio Prieto Ed. 14', 'Madrid', 'Madrid', '28032', 'José Luis Puerta', 'Valdebernardo', '91 301 65 57', '618 31 09 40', '91 301 65 58', NULL, NULL, NULL);
COMMIT WORK;
INSERT INTO TIPOS_VENTA (ID, DESCRIPCION, CODIGO_CONTABLE) VALUES (1, 'Cocina', '01'); INSERT INTO TIPOS_VENTA (ID, DESCRIPCION, CODIGO_CONTABLE) VALUES (1, 'Cocina', '01');
INSERT INTO TIPOS_VENTA (ID, DESCRIPCION, CODIGO_CONTABLE) VALUES (2, 'Baño', '02'); INSERT INTO TIPOS_VENTA (ID, DESCRIPCION, CODIGO_CONTABLE) VALUES (2, 'Baño', '02');
INSERT INTO TIPOS_VENTA (ID, DESCRIPCION, CODIGO_CONTABLE) VALUES (3, 'Armarios', '03'); INSERT INTO TIPOS_VENTA (ID, DESCRIPCION, CODIGO_CONTABLE) VALUES (3, 'Armarios', '03');

1282
Database/scripts/factuges_sysdata_plan_general_contable_acana.sql Normal file
View File

File diff suppressed because it is too large Load Diff

89
Source/Base/Base.dproj
View File

@ -44,13 +44,6 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages> <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -65,48 +58,48 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Facturas de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PluginSDK_D10R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D10R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

11
Source/Modulos/Contactos/Plugin/uPluginContactos.pas
View File

@ -77,17 +77,6 @@ begin
try try
AClientesController := TClientesController.Create; AClientesController := TClientesController.Create;
AClientes := (AClientesController.BuscarTodos as IBizCliente); AClientes := (AClientesController.BuscarTodos as IBizCliente);
showmessage('hola1');
AClientes.DataTable.DisableConstraints;
AClientes.DataTable.DisableEventHandlers;
AClientes.DataTable.DisableControls;
AClientes.DataTable.Active := True;
AClientes.DataTable.EnableControls;
AClientes.DataTable.EnableEventHandlers;
AClientes.DataTable.EnableConstraints;
showmessage('hola2');
AClientesController.VerTodos(AClientes); AClientesController.VerTodos(AClientes);
finally finally
AClientes := Nil; AClientes := Nil;

9
Source/Modulos/Contactos/Views/uEditorContacto.dfm
View File

@ -7,7 +7,6 @@ inherited fEditorContacto: TfEditorContacto
ClientWidth = 632 ClientWidth = 632
Scaled = False Scaled = False
ExplicitWidth = 640 ExplicitWidth = 640
ExplicitHeight = 488
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -78,12 +77,12 @@ inherited fEditorContacto: TfEditorContacto
ExplicitLeft = 3 ExplicitLeft = 3
ExplicitTop = 79 ExplicitTop = 79
ExplicitWidth = 626 ExplicitWidth = 626
ExplicitHeight = 360 ExplicitHeight = 358
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 618 ExplicitWidth = 618
ExplicitHeight = 332 ExplicitHeight = 330
end end
object pagDatosBancarios: TTabSheet object pagDatosBancarios: TTabSheet
Caption = 'Datos bancarios' Caption = 'Datos bancarios'
@ -92,7 +91,7 @@ inherited fEditorContacto: TfEditorContacto
Left = 0 Left = 0
Top = 0 Top = 0
Width = 618 Width = 618
Height = 332 Height = 330
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -103,7 +102,7 @@ inherited fEditorContacto: TfEditorContacto
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 618 ExplicitWidth = 618
ExplicitHeight = 332 ExplicitHeight = 330
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 618 Width = 618
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel

8
Source/Modulos/Contactos/Views/uEditorContactos.pas
View File

@ -64,13 +64,7 @@ begin
if not Assigned(Contactos) then if not Assigned(Contactos) then
raise Exception.Create('No hay ningún contacto asignado'); raise Exception.Create('No hay ningún contacto asignado');
// ViewGrid._Grid.BeginUpdate; Contactos.DataTable.Active := True;
// Contactos.DataTable.DisableControls;
//Contactos.DataTable.DisableEventHandlers;
// Contactos.DataTable.Active := True;
//Contactos.DataTable.EnableEventHandlers;
// Contactos.DataTable.EnableControls;
// ViewGrid._Grid.EndUpdate;
ViewGrid.GotoFirst; ViewGrid.GotoFirst;
end; end;

16
Source/Modulos/Facturas de cliente/FacturasCliente_Group.groupproj
View File

@ -15,6 +15,7 @@
<Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" /> <Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" /> <Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
<Projects Include="..\Tipos de venta\Controller\TiposVenta_controller.dproj" /> <Projects Include="..\Tipos de venta\Controller\TiposVenta_controller.dproj" />
<Projects Include="..\Tipos de venta\Model\TiposVenta_model.dproj" /> <Projects Include="..\Tipos de venta\Model\TiposVenta_model.dproj" />
<Projects Include="..\Tipos de venta\Views\TiposVenta_view.dproj" /> <Projects Include="..\Tipos de venta\Views\TiposVenta_view.dproj" />
@ -201,14 +202,23 @@
<Target Name="Contabilidad_view:Make"> <Target Name="Contabilidad_view:Make">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" /> <MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FacturasProveedor_view">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="" />
</Target>
<Target Name="FacturasProveedor_view:Clean">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasProveedor_view:Make">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;TiposVenta_model;TiposVenta_controller;TiposVenta_view;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;FacturasCliente_view;FacturasCliente_plugin;FactuGES;FactuGES_Server;Contabilidad_controller;Contabilidad_view" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;TiposVenta_model;TiposVenta_controller;TiposVenta_view;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;FacturasCliente_view;FacturasCliente_plugin;FactuGES;FactuGES_Server;Contabilidad_controller;Contabilidad_view;FacturasProveedor_view" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;TiposVenta_model:Clean;TiposVenta_controller:Clean;TiposVenta_view:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;TiposVenta_model:Clean;TiposVenta_controller:Clean;TiposVenta_view:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean;FacturasProveedor_view:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;TiposVenta_model:Make;TiposVenta_controller:Make;TiposVenta_view:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_controller:Make;Contabilidad_view:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;TiposVenta_model:Make;TiposVenta_controller:Make;TiposVenta_view:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_controller:Make;Contabilidad_view:Make;FacturasProveedor_view:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

2
Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas
View File

@ -98,7 +98,7 @@ begin
with TsrvReferencias.Create(NIL) do with TsrvReferencias.Create(NIL) do
try try
Result := DarNuevaReferencia(ATipo, ID_EMPRESA) Result := DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
finally finally
Free; Free;
end; end;

2
Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
View File

@ -170,8 +170,6 @@ begin
end; end;
function TRecibosClienteController.AnadirPago(ARecibosCliente: IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad: Integer = 1; ASubCuenta: Integer = 0): Boolean; function TRecibosClienteController.AnadirPago(ARecibosCliente: IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad: Integer = 1; ASubCuenta: Integer = 0): Boolean;
var
AEditor : IEditorFechaPago;
begin begin
Result := False; Result := False;

29
Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm
View File

@ -482,6 +482,35 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString DataType = datString
Size = 30 Size = 30
end
item
Name = 'ID_TIENDA'
DataType = datInteger
end
item
Name = 'TIENDA'
DataType = datString
Size = 255
end
item
Name = 'CALLE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_CLIENTE'
DataType = datString
Size = 10
end
item
Name = 'PROVINCIA_CLIENTE'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
MasterMappingMode = mmWhere MasterMappingMode = mmWhere

222
Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
View File

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_RecibosCliente = '{91CA9E3C-BE22-44DB-A0E9-AE7277D5F2C3}'; RID_RecibosCliente = '{9D876D5E-A906-4836-9CD6-7F2790A82FFE}';
RID_PagosCliente = '{48EEDB2E-4FAD-4E9D-8894-1C4FB7AFEAF7}'; RID_PagosCliente = '{8C1E660A-951D-4529-A191-A7FD95238D8D}';
RID_RecibosCompensadosCli = '{2C3B8C04-214A-4671-BC94-B23432C7C64A}'; RID_RecibosCompensadosCli = '{C04A1186-43EC-42DC-BAF7-8FA8DBBD503E}';
{ Data table names } { Data table names }
nme_RecibosCliente = 'RecibosCliente'; nme_RecibosCliente = 'RecibosCliente';
@ -152,6 +152,12 @@ const
fld_RecibosCompensadosCliFECHA_ALTA = 'FECHA_ALTA'; fld_RecibosCompensadosCliFECHA_ALTA = 'FECHA_ALTA';
fld_RecibosCompensadosCliFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_RecibosCompensadosCliFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_RecibosCompensadosCliUSUARIO = 'USUARIO'; fld_RecibosCompensadosCliUSUARIO = 'USUARIO';
fld_RecibosCompensadosCliID_TIENDA = 'ID_TIENDA';
fld_RecibosCompensadosCliTIENDA = 'TIENDA';
fld_RecibosCompensadosCliCALLE_CLIENTE = 'CALLE_CLIENTE';
fld_RecibosCompensadosCliPOBLACION_CLIENTE = 'POBLACION_CLIENTE';
fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE = 'CODIGO_POSTAL_CLIENTE';
fld_RecibosCompensadosCliPROVINCIA_CLIENTE = 'PROVINCIA_CLIENTE';
{ RecibosCompensadosCli field indexes } { RecibosCompensadosCli field indexes }
idx_RecibosCompensadosCliID = 0; idx_RecibosCompensadosCliID = 0;
@ -183,11 +189,17 @@ const
idx_RecibosCompensadosCliFECHA_ALTA = 26; idx_RecibosCompensadosCliFECHA_ALTA = 26;
idx_RecibosCompensadosCliFECHA_MODIFICACION = 27; idx_RecibosCompensadosCliFECHA_MODIFICACION = 27;
idx_RecibosCompensadosCliUSUARIO = 28; idx_RecibosCompensadosCliUSUARIO = 28;
idx_RecibosCompensadosCliID_TIENDA = 29;
idx_RecibosCompensadosCliTIENDA = 30;
idx_RecibosCompensadosCliCALLE_CLIENTE = 31;
idx_RecibosCompensadosCliPOBLACION_CLIENTE = 32;
idx_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE = 33;
idx_RecibosCompensadosCliPROVINCIA_CLIENTE = 34;
type type
{ IRecibosCliente } { IRecibosCliente }
IRecibosCliente = interface(IDAStronglyTypedDataTable) IRecibosCliente = interface(IDAStronglyTypedDataTable)
['{25116AB8-EA3C-435E-9B0A-FC5ED921649F}'] ['{CDD4FB91-F7FE-4197-9573-C8BFF711A1E5}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -630,7 +642,7 @@ type
{ IPagosCliente } { IPagosCliente }
IPagosCliente = interface(IDAStronglyTypedDataTable) IPagosCliente = interface(IDAStronglyTypedDataTable)
['{8AF523A8-91F6-4D75-B589-B3BCCA79EA44}'] ['{FAD77A47-7E68-40C4-932C-9ACB417BE572}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -809,7 +821,7 @@ type
{ IRecibosCompensadosCli } { IRecibosCompensadosCli }
IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable) IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
['{7CECD5C0-F95A-489B-9C0C-26CD6BC05208}'] ['{5CD2C006-BC87-45F8-A501-F59FC5ABB7A6}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -927,6 +939,30 @@ type
procedure SetUSUARIOValue(const aValue: String); procedure SetUSUARIOValue(const aValue: String);
function GetUSUARIOIsNull: Boolean; function GetUSUARIOIsNull: Boolean;
procedure SetUSUARIOIsNull(const aValue: Boolean); procedure SetUSUARIOIsNull(const aValue: Boolean);
function GetID_TIENDAValue: Integer;
procedure SetID_TIENDAValue(const aValue: Integer);
function GetID_TIENDAIsNull: Boolean;
procedure SetID_TIENDAIsNull(const aValue: Boolean);
function GetTIENDAValue: String;
procedure SetTIENDAValue(const aValue: String);
function GetTIENDAIsNull: Boolean;
procedure SetTIENDAIsNull(const aValue: Boolean);
function GetCALLE_CLIENTEValue: String;
procedure SetCALLE_CLIENTEValue(const aValue: String);
function GetCALLE_CLIENTEIsNull: Boolean;
procedure SetCALLE_CLIENTEIsNull(const aValue: Boolean);
function GetPOBLACION_CLIENTEValue: String;
procedure SetPOBLACION_CLIENTEValue(const aValue: String);
function GetPOBLACION_CLIENTEIsNull: Boolean;
procedure SetPOBLACION_CLIENTEIsNull(const aValue: Boolean);
function GetCODIGO_POSTAL_CLIENTEValue: String;
procedure SetCODIGO_POSTAL_CLIENTEValue(const aValue: String);
function GetCODIGO_POSTAL_CLIENTEIsNull: Boolean;
procedure SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean);
function GetPROVINCIA_CLIENTEValue: String;
procedure SetPROVINCIA_CLIENTEValue(const aValue: String);
function GetPROVINCIA_CLIENTEIsNull: Boolean;
procedure SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -988,6 +1024,18 @@ type
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property CALLE_CLIENTE: String read GetCALLE_CLIENTEValue write SetCALLE_CLIENTEValue;
property CALLE_CLIENTEIsNull: Boolean read GetCALLE_CLIENTEIsNull write SetCALLE_CLIENTEIsNull;
property POBLACION_CLIENTE: String read GetPOBLACION_CLIENTEValue write SetPOBLACION_CLIENTEValue;
property POBLACION_CLIENTEIsNull: Boolean read GetPOBLACION_CLIENTEIsNull write SetPOBLACION_CLIENTEIsNull;
property CODIGO_POSTAL_CLIENTE: String read GetCODIGO_POSTAL_CLIENTEValue write SetCODIGO_POSTAL_CLIENTEValue;
property CODIGO_POSTAL_CLIENTEIsNull: Boolean read GetCODIGO_POSTAL_CLIENTEIsNull write SetCODIGO_POSTAL_CLIENTEIsNull;
property PROVINCIA_CLIENTE: String read GetPROVINCIA_CLIENTEValue write SetPROVINCIA_CLIENTEValue;
property PROVINCIA_CLIENTEIsNull: Boolean read GetPROVINCIA_CLIENTEIsNull write SetPROVINCIA_CLIENTEIsNull;
end; end;
{ TRecibosCompensadosCliDataTableRules } { TRecibosCompensadosCliDataTableRules }
@ -1111,6 +1159,30 @@ type
procedure SetUSUARIOValue(const aValue: String); virtual; procedure SetUSUARIOValue(const aValue: String); virtual;
function GetUSUARIOIsNull: Boolean; virtual; function GetUSUARIOIsNull: Boolean; virtual;
procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
function GetID_TIENDAValue: Integer; virtual;
procedure SetID_TIENDAValue(const aValue: Integer); virtual;
function GetID_TIENDAIsNull: Boolean; virtual;
procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
function GetTIENDAValue: String; virtual;
procedure SetTIENDAValue(const aValue: String); virtual;
function GetTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
function GetCALLE_CLIENTEValue: String; virtual;
procedure SetCALLE_CLIENTEValue(const aValue: String); virtual;
function GetCALLE_CLIENTEIsNull: Boolean; virtual;
procedure SetCALLE_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetPOBLACION_CLIENTEValue: String; virtual;
procedure SetPOBLACION_CLIENTEValue(const aValue: String); virtual;
function GetPOBLACION_CLIENTEIsNull: Boolean; virtual;
procedure SetPOBLACION_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetCODIGO_POSTAL_CLIENTEValue: String; virtual;
procedure SetCODIGO_POSTAL_CLIENTEValue(const aValue: String); virtual;
function GetCODIGO_POSTAL_CLIENTEIsNull: Boolean; virtual;
procedure SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetPROVINCIA_CLIENTEValue: String; virtual;
procedure SetPROVINCIA_CLIENTEValue(const aValue: String); virtual;
function GetPROVINCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -1171,6 +1243,18 @@ type
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property CALLE_CLIENTE: String read GetCALLE_CLIENTEValue write SetCALLE_CLIENTEValue;
property CALLE_CLIENTEIsNull: Boolean read GetCALLE_CLIENTEIsNull write SetCALLE_CLIENTEIsNull;
property POBLACION_CLIENTE: String read GetPOBLACION_CLIENTEValue write SetPOBLACION_CLIENTEValue;
property POBLACION_CLIENTEIsNull: Boolean read GetPOBLACION_CLIENTEIsNull write SetPOBLACION_CLIENTEIsNull;
property CODIGO_POSTAL_CLIENTE: String read GetCODIGO_POSTAL_CLIENTEValue write SetCODIGO_POSTAL_CLIENTEValue;
property CODIGO_POSTAL_CLIENTEIsNull: Boolean read GetCODIGO_POSTAL_CLIENTEIsNull write SetCODIGO_POSTAL_CLIENTEIsNull;
property PROVINCIA_CLIENTE: String read GetPROVINCIA_CLIENTEValue write SetPROVINCIA_CLIENTEValue;
property PROVINCIA_CLIENTEIsNull: Boolean read GetPROVINCIA_CLIENTEIsNull write SetPROVINCIA_CLIENTEIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -2834,6 +2918,132 @@ begin
DataTable.Fields[idx_RecibosCompensadosCliUSUARIO].AsVariant := Null; DataTable.Fields[idx_RecibosCompensadosCliUSUARIO].AsVariant := Null;
end; end;
function TRecibosCompensadosCliDataTableRules.GetID_TIENDAValue: Integer;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliID_TIENDA].AsInteger;
end;
procedure TRecibosCompensadosCliDataTableRules.SetID_TIENDAValue(const aValue: Integer);
begin
DataTable.Fields[idx_RecibosCompensadosCliID_TIENDA].AsInteger := aValue;
end;
function TRecibosCompensadosCliDataTableRules.GetID_TIENDAIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliID_TIENDA].IsNull;
end;
procedure TRecibosCompensadosCliDataTableRules.SetID_TIENDAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosCliID_TIENDA].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetTIENDAValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliTIENDA].AsString;
end;
procedure TRecibosCompensadosCliDataTableRules.SetTIENDAValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosCliTIENDA].AsString := aValue;
end;
function TRecibosCompensadosCliDataTableRules.GetTIENDAIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliTIENDA].IsNull;
end;
procedure TRecibosCompensadosCliDataTableRules.SetTIENDAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosCliTIENDA].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetCALLE_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliCALLE_CLIENTE].AsString;
end;
procedure TRecibosCompensadosCliDataTableRules.SetCALLE_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosCliCALLE_CLIENTE].AsString := aValue;
end;
function TRecibosCompensadosCliDataTableRules.GetCALLE_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliCALLE_CLIENTE].IsNull;
end;
procedure TRecibosCompensadosCliDataTableRules.SetCALLE_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosCliCALLE_CLIENTE].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetPOBLACION_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliPOBLACION_CLIENTE].AsString;
end;
procedure TRecibosCompensadosCliDataTableRules.SetPOBLACION_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosCliPOBLACION_CLIENTE].AsString := aValue;
end;
function TRecibosCompensadosCliDataTableRules.GetPOBLACION_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliPOBLACION_CLIENTE].IsNull;
end;
procedure TRecibosCompensadosCliDataTableRules.SetPOBLACION_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosCliPOBLACION_CLIENTE].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetCODIGO_POSTAL_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE].AsString;
end;
procedure TRecibosCompensadosCliDataTableRules.SetCODIGO_POSTAL_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE].AsString := aValue;
end;
function TRecibosCompensadosCliDataTableRules.GetCODIGO_POSTAL_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE].IsNull;
end;
procedure TRecibosCompensadosCliDataTableRules.SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetPROVINCIA_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliPROVINCIA_CLIENTE].AsString;
end;
procedure TRecibosCompensadosCliDataTableRules.SetPROVINCIA_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosCliPROVINCIA_CLIENTE].AsString := aValue;
end;
function TRecibosCompensadosCliDataTableRules.GetPROVINCIA_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliPROVINCIA_CLIENTE].IsNull;
end;
procedure TRecibosCompensadosCliDataTableRules.SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosCliPROVINCIA_CLIENTE].AsVariant := Null;
end;
initialization initialization
RegisterDataTableRules(RID_RecibosCliente, TRecibosClienteDataTableRules); RegisterDataTableRules(RID_RecibosCliente, TRecibosClienteDataTableRules);

270
Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_RecibosClienteDelta = '{D1DBED73-ADE4-40B1-A9A0-91CD4EC447F8}'; RID_RecibosClienteDelta = '{3B5E6810-7B21-4881-A614-7F6875FDF51E}';
RID_PagosClienteDelta = '{DF4CEE8D-E9A4-44D7-9932-177455BDC2E1}'; RID_PagosClienteDelta = '{0176E856-FFB0-45DB-B513-08CC489BBD1A}';
RID_RecibosCompensadosCliDelta = '{A88C5F91-7C18-4D89-90BE-196929D75E71}'; RID_RecibosCompensadosCliDelta = '{0EB879D1-ECF1-41EF-8A76-5C738183AB40}';
type type
{ IRecibosClienteDelta } { IRecibosClienteDelta }
IRecibosClienteDelta = interface(IRecibosCliente) IRecibosClienteDelta = interface(IRecibosCliente)
['{D1DBED73-ADE4-40B1-A9A0-91CD4EC447F8}'] ['{3B5E6810-7B21-4881-A614-7F6875FDF51E}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -458,7 +458,7 @@ type
{ IPagosClienteDelta } { IPagosClienteDelta }
IPagosClienteDelta = interface(IPagosCliente) IPagosClienteDelta = interface(IPagosCliente)
['{DF4CEE8D-E9A4-44D7-9932-177455BDC2E1}'] ['{0176E856-FFB0-45DB-B513-08CC489BBD1A}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer; function GetOldID_RECIBOValue : Integer;
@ -636,7 +636,7 @@ type
{ IRecibosCompensadosCliDelta } { IRecibosCompensadosCliDelta }
IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli) IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
['{A88C5F91-7C18-4D89-90BE-196929D75E71}'] ['{0EB879D1-ECF1-41EF-8A76-5C738183AB40}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -667,6 +667,12 @@ type
function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
function GetOldID_TIENDAValue : Integer;
function GetOldTIENDAValue : String;
function GetOldCALLE_CLIENTEValue : String;
function GetOldPOBLACION_CLIENTEValue : String;
function GetOldCODIGO_POSTAL_CLIENTEValue : String;
function GetOldPROVINCIA_CLIENTEValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -698,6 +704,12 @@ type
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldTIENDA : String read GetOldTIENDAValue;
property OldCALLE_CLIENTE : String read GetOldCALLE_CLIENTEValue;
property OldPOBLACION_CLIENTE : String read GetOldPOBLACION_CLIENTEValue;
property OldCODIGO_POSTAL_CLIENTE : String read GetOldCODIGO_POSTAL_CLIENTEValue;
property OldPROVINCIA_CLIENTE : String read GetOldPROVINCIA_CLIENTEValue;
end; end;
{ TRecibosCompensadosCliBusinessProcessorRules } { TRecibosCompensadosCliBusinessProcessorRules }
@ -879,6 +891,42 @@ type
function GetOldUSUARIOIsNull: Boolean; virtual; function GetOldUSUARIOIsNull: Boolean; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual; procedure SetUSUARIOValue(const aValue: String); virtual;
procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
function GetID_TIENDAValue: Integer; virtual;
function GetID_TIENDAIsNull: Boolean; virtual;
function GetOldID_TIENDAValue: Integer; virtual;
function GetOldID_TIENDAIsNull: Boolean; virtual;
procedure SetID_TIENDAValue(const aValue: Integer); virtual;
procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
function GetTIENDAValue: String; virtual;
function GetTIENDAIsNull: Boolean; virtual;
function GetOldTIENDAValue: String; virtual;
function GetOldTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAValue(const aValue: String); virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
function GetCALLE_CLIENTEValue: String; virtual;
function GetCALLE_CLIENTEIsNull: Boolean; virtual;
function GetOldCALLE_CLIENTEValue: String; virtual;
function GetOldCALLE_CLIENTEIsNull: Boolean; virtual;
procedure SetCALLE_CLIENTEValue(const aValue: String); virtual;
procedure SetCALLE_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetPOBLACION_CLIENTEValue: String; virtual;
function GetPOBLACION_CLIENTEIsNull: Boolean; virtual;
function GetOldPOBLACION_CLIENTEValue: String; virtual;
function GetOldPOBLACION_CLIENTEIsNull: Boolean; virtual;
procedure SetPOBLACION_CLIENTEValue(const aValue: String); virtual;
procedure SetPOBLACION_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetCODIGO_POSTAL_CLIENTEValue: String; virtual;
function GetCODIGO_POSTAL_CLIENTEIsNull: Boolean; virtual;
function GetOldCODIGO_POSTAL_CLIENTEValue: String; virtual;
function GetOldCODIGO_POSTAL_CLIENTEIsNull: Boolean; virtual;
procedure SetCODIGO_POSTAL_CLIENTEValue(const aValue: String); virtual;
procedure SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetPROVINCIA_CLIENTEValue: String; virtual;
function GetPROVINCIA_CLIENTEIsNull: Boolean; virtual;
function GetOldPROVINCIA_CLIENTEValue: String; virtual;
function GetOldPROVINCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetPROVINCIA_CLIENTEValue(const aValue: String); virtual;
procedure SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -997,6 +1045,30 @@ type
property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
property ID_TIENDA : Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull : Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldID_TIENDAIsNull : Boolean read GetOldID_TIENDAIsNull;
property TIENDA : String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property OldTIENDA : String read GetOldTIENDAValue;
property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull;
property CALLE_CLIENTE : String read GetCALLE_CLIENTEValue write SetCALLE_CLIENTEValue;
property CALLE_CLIENTEIsNull : Boolean read GetCALLE_CLIENTEIsNull write SetCALLE_CLIENTEIsNull;
property OldCALLE_CLIENTE : String read GetOldCALLE_CLIENTEValue;
property OldCALLE_CLIENTEIsNull : Boolean read GetOldCALLE_CLIENTEIsNull;
property POBLACION_CLIENTE : String read GetPOBLACION_CLIENTEValue write SetPOBLACION_CLIENTEValue;
property POBLACION_CLIENTEIsNull : Boolean read GetPOBLACION_CLIENTEIsNull write SetPOBLACION_CLIENTEIsNull;
property OldPOBLACION_CLIENTE : String read GetOldPOBLACION_CLIENTEValue;
property OldPOBLACION_CLIENTEIsNull : Boolean read GetOldPOBLACION_CLIENTEIsNull;
property CODIGO_POSTAL_CLIENTE : String read GetCODIGO_POSTAL_CLIENTEValue write SetCODIGO_POSTAL_CLIENTEValue;
property CODIGO_POSTAL_CLIENTEIsNull : Boolean read GetCODIGO_POSTAL_CLIENTEIsNull write SetCODIGO_POSTAL_CLIENTEIsNull;
property OldCODIGO_POSTAL_CLIENTE : String read GetOldCODIGO_POSTAL_CLIENTEValue;
property OldCODIGO_POSTAL_CLIENTEIsNull : Boolean read GetOldCODIGO_POSTAL_CLIENTEIsNull;
property PROVINCIA_CLIENTE : String read GetPROVINCIA_CLIENTEValue write SetPROVINCIA_CLIENTEValue;
property PROVINCIA_CLIENTEIsNull : Boolean read GetPROVINCIA_CLIENTEIsNull write SetPROVINCIA_CLIENTEIsNull;
property OldPROVINCIA_CLIENTE : String read GetOldPROVINCIA_CLIENTEValue;
property OldPROVINCIA_CLIENTEIsNull : Boolean read GetOldPROVINCIA_CLIENTEIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -3431,6 +3503,192 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliUSUARIO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliUSUARIO] := Null;
end; end;
function TRecibosCompensadosCliBusinessProcessorRules.GetID_TIENDAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_TIENDA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetID_TIENDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_TIENDA]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_TIENDAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_TIENDA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_TIENDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_TIENDA]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_TIENDAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_TIENDA] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_TIENDAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_TIENDA] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetTIENDAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliTIENDA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetTIENDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliTIENDA]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldTIENDAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliTIENDA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldTIENDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliTIENDA]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetTIENDAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliTIENDA] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetTIENDAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliTIENDA] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetCALLE_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetCALLE_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldCALLE_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldCALLE_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetCALLE_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetCALLE_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCALLE_CLIENTE] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetPOBLACION_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetPOBLACION_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldPOBLACION_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldPOBLACION_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetPOBLACION_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetPOBLACION_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPOBLACION_CLIENTE] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetCODIGO_POSTAL_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetCODIGO_POSTAL_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldCODIGO_POSTAL_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldCODIGO_POSTAL_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetCODIGO_POSTAL_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL_CLIENTE] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetPROVINCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetPROVINCIA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldPROVINCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldPROVINCIA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetPROVINCIA_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPROVINCIA_CLIENTE] := Null;
end;
initialization initialization
RegisterBusinessProcessorRules(RID_RecibosClienteDelta, TRecibosClienteBusinessProcessorRules); RegisterBusinessProcessorRules(RID_RecibosClienteDelta, TRecibosClienteBusinessProcessorRules);

3193
Source/Modulos/Recibos de cliente/Model/schRecibosProveedorClient_Intf.pas Normal file
View File

File diff suppressed because it is too large Load Diff

1
Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas
View File

@ -244,7 +244,6 @@ begin
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
USUARIO := AppFactuGES.UsuarioActivo.UserName; USUARIO := AppFactuGES.UsuarioActivo.UserName;
ID_TIENDA := CTE_ID_TODAS; ID_TIENDA := CTE_ID_TODAS;
// TIENDA := CTE_TODAS;
end; end;
procedure TBizRecibosCliente.OnNewRecord(Sender: TDADataTable); procedure TBizRecibosCliente.OnNewRecord(Sender: TDADataTable);

5
Source/Modulos/Recibos de cliente/Model/uBizRecibosClienteServer.pas
View File

@ -77,7 +77,7 @@ begin
with TsrvReferencias.Create(NIL) do with TsrvReferencias.Create(NIL) do
try try
Result := DarNuevaReferencia(ATipo, ID_EMPRESA) Result := DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
finally finally
Free; Free;
end; end;
@ -91,8 +91,7 @@ begin
with TsrvReferencias.Create(NIL) do with TsrvReferencias.Create(NIL) do
try try
Result := IncrementarValorReferencia(ATipo, Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
Self.REFERENCIA, ID_EMPRESA)
finally finally
Free; Free;
end; end;

53
Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
View File

@ -617,6 +617,30 @@ object srvRecibosCliente: TsrvRecibosCliente
item item
DatasetField = 'USUARIO' DatasetField = 'USUARIO'
TableField = 'USUARIO' TableField = 'USUARIO'
end
item
DatasetField = 'ID_TIENDA'
TableField = 'ID_TIENDA'
end
item
DatasetField = 'TIENDA'
TableField = 'TIENDA'
end
item
DatasetField = 'CALLE_CLIENTE'
TableField = 'CALLE_CLIENTE'
end
item
DatasetField = 'POBLACION_CLIENTE'
TableField = 'POBLACION_CLIENTE'
end
item
DatasetField = 'CODIGO_POSTAL_CLIENTE'
TableField = 'CODIGO_POSTAL_CLIENTE'
end
item
DatasetField = 'PROVINCIA_CLIENTE'
TableField = 'PROVINCIA_CLIENTE'
end> end>
end> end>
Name = 'RecibosCompensadosCli' Name = 'RecibosCompensadosCli'
@ -751,6 +775,35 @@ object srvRecibosCliente: TsrvRecibosCliente
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString DataType = datString
Size = 30 Size = 30
end
item
Name = 'ID_TIENDA'
DataType = datInteger
end
item
Name = 'TIENDA'
DataType = datString
Size = 255
end
item
Name = 'CALLE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_CLIENTE'
DataType = datString
Size = 10
end
item
Name = 'PROVINCIA_CLIENTE'
DataType = datString
Size = 255
end> end>
end> end>
JoinDataTables = <> JoinDataTables = <>

104
Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
View File

@ -10,7 +10,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 689 Width = 689
Caption = 'Recibo de cliente' Caption = 'Recibo de cliente'
ExplicitWidth = 691 ExplicitWidth = 689
inherited Image1: TImage inherited Image1: TImage
Left = 662 Left = 662
Picture.Data = { Picture.Data = {
@ -40,7 +40,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 689 Width = 689
ExplicitWidth = 691 ExplicitWidth = 689
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 425 ExplicitWidth = 425
end end
@ -54,13 +54,13 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitLeft = 3 ExplicitLeft = 3
ExplicitTop = 79 ExplicitTop = 79
ExplicitWidth = 685 ExplicitWidth = 683
ExplicitHeight = 329 ExplicitHeight = 327
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 677 ExplicitWidth = 675
ExplicitHeight = 301 ExplicitHeight = 299
inline frViewReciboCliente1: TfrViewReciboCliente inline frViewReciboCliente1: TfrViewReciboCliente
Left = 0 Left = 0
Top = 0 Top = 0
@ -75,12 +75,12 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 677 ExplicitWidth = 675
ExplicitHeight = 335 ExplicitHeight = 335
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 675 Width = 675
Height = 335 Height = 335
ExplicitWidth = 677 ExplicitWidth = 675
ExplicitHeight = 335 ExplicitHeight = 335
DesignSize = ( DesignSize = (
675 675
@ -104,43 +104,57 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Width = 293 Width = 293
end end
inherited eFechaEmision: TcxDBTextEdit inherited eFechaEmision: TcxDBTextEdit
Left = 468
ExplicitLeft = 468
ExplicitWidth = 253 ExplicitWidth = 253
Width = 253 Width = 253
end end
inherited eFormaPago: TcxDBTextEdit inherited eFormaPago: TcxDBTextEdit
Left = 468
ExplicitLeft = 468
ExplicitWidth = 253 ExplicitWidth = 253
Width = 253 Width = 253
end end
inherited eImporteTotal: TcxDBCurrencyEdit inherited eImporteTotal: TcxDBCurrencyEdit
Left = 468
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 468
ExplicitWidth = 253 ExplicitWidth = 253
Width = 253 Width = 253
end end
inherited eNombreCliente: TcxDBTextEdit inherited eNombreCliente: TcxDBTextEdit
Left = 468
ExplicitLeft = 468
ExplicitWidth = 286 ExplicitWidth = 286
Width = 286 Width = 286
end end
inherited eNifCif: TcxDBTextEdit inherited eNifCif: TcxDBTextEdit
Left = 468
ExplicitLeft = 468
ExplicitWidth = 286 ExplicitWidth = 286
Width = 286 Width = 286
end end
inherited eEntidad: TcxDBTextEdit inherited eEntidad: TcxDBTextEdit
Left = 468
ExplicitLeft = 468
ExplicitWidth = 84 ExplicitWidth = 84
Width = 84 Width = 84
end end
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
Left = 736 Left = 543
ExplicitLeft = 736 ExplicitLeft = 543
ExplicitWidth = 81 ExplicitWidth = 81
Width = 81 Width = 81
end end
inherited eDC: TcxDBTextEdit inherited eDC: TcxDBTextEdit
Left = 785 Left = 599
ExplicitLeft = 785 ExplicitLeft = 599
ExplicitWidth = 37 ExplicitWidth = 37
Width = 37 Width = 37
end end
inherited eCuenta: TcxDBTextEdit inherited eCuenta: TcxDBTextEdit
Left = 468
ExplicitLeft = 468
ExplicitWidth = 286 ExplicitWidth = 286
Width = 286 Width = 286
end end
@ -154,31 +168,33 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Width = 217 Width = 217
end end
inherited frViewClienteRecibo: TfrViewDatosYSeleccionCliente inherited frViewClienteRecibo: TfrViewDatosYSeleccionCliente
Left = 392
Top = 272 Top = 272
Width = 350 Width = 350
ExplicitLeft = 392
ExplicitTop = 272 ExplicitTop = 272
ExplicitWidth = 350 ExplicitWidth = 350
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 350 Width = 350
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224 ExplicitWidth = 276
Width = 224 Width = 276
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 562 ExplicitWidth = 276
Width = 562 Width = 276
end end
inherited edtCalle: TcxDBTextEdit inherited edtCalle: TcxDBTextEdit
ExplicitWidth = 562 ExplicitWidth = 276
Width = 562 Width = 276
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 177 ExplicitWidth = 158
Width = 177 Width = 158
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 327 ExplicitWidth = 276
Width = 327 Width = 276
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 192 Left = 192
@ -196,8 +212,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
object pagPagos: TTabSheet object pagPagos: TTabSheet
Caption = 'Pagos' Caption = 'Pagos'
ImageIndex = 2 ImageIndex = 2
ExplicitWidth = 677
ExplicitHeight = 301
inline frViewPagosCliente1: TfrViewPagosCliente inline frViewPagosCliente1: TfrViewPagosCliente
Left = 0 Left = 0
Top = 0 Top = 0
@ -212,20 +226,28 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 677 ExplicitWidth = 675
ExplicitHeight = 301 ExplicitHeight = 299
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 675 Width = 675
Height = 299 Height = 299
ExplicitWidth = 677 ExplicitWidth = 675
ExplicitHeight = 301 ExplicitHeight = 299
end end
inherited dxLayoutControl2: TdxLayoutControl inherited dxLayoutControl2: TdxLayoutControl
Width = 675 Width = 675
Height = 299 Height = 299
ExplicitWidth = 677 ExplicitWidth = 675
ExplicitHeight = 301 ExplicitHeight = 299
inherited ToolBar1: TToolBar
Width = 666
ExplicitWidth = 666
end
inherited ListaPagosCliente: TcxGrid inherited ListaPagosCliente: TcxGrid
Width = 605
Height = 262
ExplicitWidth = 605
ExplicitHeight = 262
inherited ListaPagosClienteDBTableView1: TcxGridDBTableView inherited ListaPagosClienteDBTableView1: TcxGridDBTableView
inherited ListaPagosClienteDBTableView1TIPO: TcxGridDBColumn inherited ListaPagosClienteDBTableView1TIPO: TcxGridDBColumn
IsCaptionAssigned = True IsCaptionAssigned = True
@ -252,8 +274,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
object pagCompensados: TTabSheet object pagCompensados: TTabSheet
Caption = 'Recibos compensados' Caption = 'Recibos compensados'
ImageIndex = 1 ImageIndex = 1
ExplicitWidth = 677
ExplicitHeight = 301
inline frViewRecibosCliCompensados1: TfrViewRecibosCliCompensados inline frViewRecibosCliCompensados1: TfrViewRecibosCliCompensados
Left = 0 Left = 0
Top = 0 Top = 0
@ -268,13 +288,13 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 677 ExplicitWidth = 675
ExplicitHeight = 301 ExplicitHeight = 299
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 675 Width = 675
Height = 274 Height = 274
ExplicitWidth = 677 ExplicitWidth = 675
ExplicitHeight = 276 ExplicitHeight = 274
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -317,8 +337,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
item item
Width = 200 Width = 200
end> end>
ExplicitTop = 511 ExplicitTop = 509
ExplicitWidth = 691 ExplicitWidth = 689
end end
inline frViewReciboCliImportes1: TfrViewReciboCliImportes [4] inline frViewReciboCliImportes1: TfrViewReciboCliImportes [4]
Left = 0 Left = 0
@ -334,14 +354,16 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 4
ReadOnly = False ReadOnly = False
ExplicitTop = 411 ExplicitTop = 409
ExplicitWidth = 691 ExplicitWidth = 689
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 689 Width = 689
ExplicitWidth = 691 ExplicitWidth = 689
inherited eImporte: TcxDBCurrencyEdit inherited eImporte: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged
ExplicitWidth = 150
Width = 150
end end
inherited eOtrosGastos: TcxDBCurrencyEdit inherited eOtrosGastos: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable

4
Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas
View File

@ -94,9 +94,9 @@ begin
inherited; inherited;
FImporteRestante := 0; FImporteRestante := 0;
pgPaginas.ActivePageIndex := 0; pgPaginas.ActivePageIndex := 0;
//RECIBOS COMPENSADOS DESHABILITADOS //RECIBOS COMPENSADOS DESHABILITADOS
pagCompensados.TabVisible := False; pagCompensados.TabVisible := False;
ViewRecibo := frViewReciboCliente1; ViewRecibo := frViewReciboCliente1;
end; end;
@ -384,8 +384,10 @@ procedure TfEditorReciboCliente.SetController(const Value: IRecibosClienteContro
begin begin
FController := Value; FController := Value;
if Assigned(FController) then if Assigned(FController) then
begin
frViewRecibosCliCompensados1.Controller := FController; frViewRecibosCliCompensados1.Controller := FController;
(ViewRecibo as IViewReciboCliente).Controller := (FController as IRecibosClienteController); (ViewRecibo as IViewReciboCliente).Controller := (FController as IRecibosClienteController);
end;
end; end;
procedure TfEditorReciboCliente.SetRecibo(const Value: IBizRecibosCliente); procedure TfEditorReciboCliente.SetRecibo(const Value: IBizRecibosCliente);

7
Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm
View File

@ -13,7 +13,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 899
DesignSize = ( DesignSize = (
905 905
509) 509)
@ -428,7 +427,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
end end
inline frViewClienteRecibo: TfrViewDatosYSeleccionCliente inline frViewClienteRecibo: TfrViewDatosYSeleccionCliente
Left = 555 Left = 555
Top = 281 Top = 275
Width = 350 Width = 350
Height = 212 Height = 212
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -440,7 +439,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
TabOrder = 18 TabOrder = 18
ReadOnly = False ReadOnly = False
ExplicitLeft = 555 ExplicitLeft = 555
ExplicitTop = 281 ExplicitTop = 275
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224 ExplicitWidth = 224
@ -693,6 +692,8 @@ inherited frViewReciboCliente: TfrViewReciboCliente
end end
end end
object dxLayoutControlClienteModif: TdxLayoutGroup object dxLayoutControlClienteModif: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient
Caption = 'Datos del cliente' Caption = 'Datos del cliente'
object dxLayoutControl1Item6: TdxLayoutItem object dxLayoutControl1Item6: TdxLayoutItem
Control = frViewClienteRecibo Control = frViewClienteRecibo

3
Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas
View File

@ -110,8 +110,7 @@ begin
Result := FRecibo; Result := FRecibo;
end; end;
procedure TfrViewReciboCliente.SetController( procedure TfrViewReciboCliente.SetController(const Value: IRecibosClienteController);
const Value: IRecibosClienteController);
begin begin
FController := Value; FController := Value;

7
Source/Modulos/Recibos de proveedor/Controller/uPagosProveedorController.pas
View File

@ -33,7 +33,7 @@ type
IPagosProveedorController = interface(ISujeto) IPagosProveedorController = interface(ISujeto)
['{4F907D80-B184-4557-BAB7-9FDA23260E64}'] ['{4F907D80-B184-4557-BAB7-9FDA23260E64}']
function Anadir(APagosProveedor: IBizPagosProveedor; Const Fecha: String = ''; Const IgnorarContabilidad: Integer = 0; Const IdSubCuenta: Integer = 0): Boolean; function Anadir(APagosProveedor: IBizPagosProveedor; Const Fecha: String = ''; Const IgnorarContabilidad: Integer = 0; Const IdSubCuenta: Integer = 0): Boolean;
procedure Modificar(APagosProveedor: IBizPagosProveedor; Const Fecha: String; Const IgnorarContabilidad: Integer); procedure Modificar(APagosProveedor: IBizPagosProveedor; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer);
function Eliminar(APagoCliente : IBizPagosProveedor): Boolean; function Eliminar(APagoCliente : IBizPagosProveedor): Boolean;
function EliminarTodo(APagossCliente : IBizPagosProveedor): Boolean; function EliminarTodo(APagossCliente : IBizPagosProveedor): Boolean;
end; end;
@ -47,7 +47,7 @@ type
constructor Create; virtual; constructor Create; virtual;
destructor Destroy; override; destructor Destroy; override;
function Anadir(APagosProveedor: IBizPagosProveedor; Const Fecha: String = ''; Const IgnorarContabilidad: Integer = 0; Const IdSubCuenta: Integer = 0): Boolean; function Anadir(APagosProveedor: IBizPagosProveedor; Const Fecha: String = ''; Const IgnorarContabilidad: Integer = 0; Const IdSubCuenta: Integer = 0): Boolean;
procedure Modificar(APagosProveedor: IBizPagosProveedor; Const Fecha: String; Const IgnorarContabilidad: Integer); procedure Modificar(APagosProveedor: IBizPagosProveedor; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer);
function Eliminar(APagoCliente : IBizPagosProveedor): Boolean; function Eliminar(APagoCliente : IBizPagosProveedor): Boolean;
function EliminarTodo(APagosProveedor : IBizPagosProveedor): Boolean; function EliminarTodo(APagosProveedor : IBizPagosProveedor): Boolean;
end; end;
@ -137,11 +137,12 @@ begin
end; end;
end; end;
procedure TPagosProveedorController.Modificar(APagosProveedor: IBizPagosProveedor; const Fecha: String; Const IgnorarContabilidad: Integer); procedure TPagosProveedorController.Modificar(APagosProveedor: IBizPagosProveedor; const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer);
begin begin
APagosProveedor.DataTable.Edit; APagosProveedor.DataTable.Edit;
APagosProveedor.FECHA_PAGO := StrToDate(Fecha); APagosProveedor.FECHA_PAGO := StrToDate(Fecha);
APagosProveedor.IGNORAR_CONTABILIDAD := IgnorarContabilidad; APagosProveedor.IGNORAR_CONTABILIDAD := IgnorarContabilidad;
APagosProveedor.CUENTA := IntToStr(IdSubCuenta);
APagosProveedor.DataTable.Post; APagosProveedor.DataTable.Post;
end; end;

165
Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
View File

@ -33,22 +33,25 @@ uses
type type
IRecibosProveedorController = interface(IObservador) IRecibosProveedorController = interface(IObservador)
['{763DF610-3540-42BE-A09A-35AABFAF2DA1}'] ['{763DF610-3540-42BE-A09A-35AABFAF2DA1}']
function GetProveedorController: IProveedoresController;
procedure SetProveedorController(const Value: IProveedoresController);
property ProveedorController: IProveedoresController read GetProveedorController write SetProveedorController;
function GetPagosController: IPagosProveedorController; function GetPagosController: IPagosProveedorController;
procedure SetPagosController(const Value: IPagosProveedorController); procedure SetPagosController(const Value: IPagosProveedorController);
property PagosController: IPagosProveedorController read GetPagosController write SetPagosController; property PagosController: IPagosProveedorController read GetPagosController write SetPagosController;
procedure Anadir(ARecibosProveedor : IBizRecibosProveedor); procedure Anadir(ARecibosProveedor : IBizRecibosProveedor);
function AnadirPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''): Boolean; function AnadirPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad: Integer = 1; ASubCuenta: Integer = 0): Boolean;
procedure ModificarPago(ARecibosProveedor : IBizRecibosProveedor); procedure ModificarPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0);
function Eliminar(ARecibosProveedor : IBizRecibosProveedor): Boolean; function Eliminar(ARecibosProveedor : IBizRecibosProveedor; AllItems: Boolean = false): Boolean;
function EliminarPago(ARecibosProveedor : IBizRecibosProveedor): Boolean; function EliminarPago(ARecibosProveedor : IBizRecibosProveedor): Boolean;
function EliminarTodo(ARecibosProveedor : IBizRecibosProveedor): Boolean; function EliminarTodo(ARecibosProveedor : IBizRecibosProveedor): Boolean;
function Guardar(ARecibosProveedor : IBizRecibosProveedor): Boolean; function Guardar(ARecibosProveedor : IBizRecibosProveedor): Boolean;
procedure DescartarCambios(ARecibosProveedor : IBizRecibosProveedor); procedure DescartarCambios(ARecibosProveedor : IBizRecibosProveedor);
function Duplicar(ARecibosProveedor: IBizRecibosProveedor): IBizRecibosProveedor; function Duplicar(ARecibosProveedor: IBizRecibosProveedor): IBizRecibosProveedor;
function Nuevo : IBizRecibosProveedor; function Nuevo : IBizRecibosProveedor;
procedure RecuperarCliente(AReciboProveedor : IBizRecibosProveedor); procedure RecuperarProveedor(AReciboProveedor : IBizRecibosProveedor);
function Buscar(const ID: Integer): IBizRecibosProveedor; function Buscar(const ID: Integer): IBizRecibosProveedor;
function BuscarTodos: IBizRecibosProveedor; function BuscarTodos: IBizRecibosProveedor;
@ -68,6 +71,7 @@ type
function ElegirRecibosCompensados(ARecibo : IBizRecibosProveedor): Boolean; function ElegirRecibosCompensados(ARecibo : IBizRecibosProveedor): Boolean;
procedure QuitarReciboCompensado(ARecibo : IBizRecibosProveedor); procedure QuitarReciboCompensado(ARecibo : IBizRecibosProveedor);
function EsEliminable(ARecibo : IBizRecibosProveedor): Boolean;
procedure Preview(ARecibosProveedor : IBizRecibosProveedor); procedure Preview(ARecibosProveedor : IBizRecibosProveedor);
procedure Print(ARecibosProveedor : IBizRecibosProveedor); procedure Print(ARecibosProveedor : IBizRecibosProveedor);
@ -83,7 +87,10 @@ type
protected protected
FDataModule : IDataModuleRecibosProveedor; FDataModule : IDataModuleRecibosProveedor;
FPagosController : IPagosProveedorController; FPagosController : IPagosProveedorController;
FClienteController : IProveedoresController; FProveedorController : IProveedoresController;
function GetProveedorController: IProveedoresController;
procedure SetProveedorController(const Value: IProveedoresController);
function GetPagosController: IPagosProveedorController; function GetPagosController: IPagosProveedorController;
procedure SetPagosController(const Value: IPagosProveedorController); procedure SetPagosController(const Value: IPagosProveedorController);
@ -95,15 +102,16 @@ type
function DarNuevaReferencia(ID_FACTURA : Integer; REFERENCIA: String): String; function DarNuevaReferencia(ID_FACTURA : Integer; REFERENCIA: String): String;
public public
property ProveedorController: IProveedoresController read GetProveedorController write SetProveedorController;
property PagosController: IPagosProveedorController read GetPagosController write SetPagosController; property PagosController: IPagosProveedorController read GetPagosController write SetPagosController;
constructor Create; override; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
procedure RecuperarCliente(AReciboProveedor : IBizRecibosProveedor); procedure RecuperarProveedor(AReciboProveedor : IBizRecibosProveedor);
procedure Anadir(ARecibosProveedor : IBizRecibosProveedor); procedure Anadir(ARecibosProveedor : IBizRecibosProveedor);
function AnadirPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''): Boolean; function AnadirPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad: Integer = 1; ASubCuenta: Integer = 0): Boolean;
procedure ModificarPago(ARecibosProveedor : IBizRecibosProveedor); procedure ModificarPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0);
function Eliminar(ARecibosProveedor : IBizRecibosProveedor): Boolean; function Eliminar(ARecibosProveedor : IBizRecibosProveedor; AllItems: Boolean = false): Boolean;
function EliminarPago(ARecibosProveedor : IBizRecibosProveedor): Boolean; function EliminarPago(ARecibosProveedor : IBizRecibosProveedor): Boolean;
function EliminarTodo(ARecibosProveedor : IBizRecibosProveedor): Boolean; function EliminarTodo(ARecibosProveedor : IBizRecibosProveedor): Boolean;
function Guardar(ARecibosProveedor : IBizRecibosProveedor): Boolean; function Guardar(ARecibosProveedor : IBizRecibosProveedor): Boolean;
@ -131,6 +139,7 @@ type
procedure QuitarReciboCompensado(ARecibo : IBizRecibosProveedor); procedure QuitarReciboCompensado(ARecibo : IBizRecibosProveedor);
procedure SetSituacionCobrados(ARecibos : IBizRecibosProveedor; WithDeltas: Boolean=False); procedure SetSituacionCobrados(ARecibos : IBizRecibosProveedor; WithDeltas: Boolean=False);
function EsEliminable(ARecibo : IBizRecibosProveedor): Boolean;
procedure Preview(ARecibosProveedor : IBizRecibosProveedor); procedure Preview(ARecibosProveedor : IBizRecibosProveedor);
procedure Print(ARecibosProveedor : IBizRecibosProveedor); procedure Print(ARecibosProveedor : IBizRecibosProveedor);
@ -153,36 +162,22 @@ begin
ARecibosProveedor.Insert; ARecibosProveedor.Insert;
end; end;
function TRecibosProveedorController.AnadirPago(ARecibosProveedor: IBizRecibosProveedor; FechaPago: String =''): Boolean; function TRecibosProveedorController.AnadirPago(ARecibosProveedor: IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad: Integer = 1; ASubCuenta: Integer = 0): Boolean;
var
AEditor : IEditorFechaPagoProveedor;
AIgnorarContabilidad : Integer;
ASubCuenta: Integer;
begin begin
Result := False; Result := False;
//Pedimos la fecha del pago
if (Length(FechaPago) = 0) then
begin
try
CreateEditor('EditorFechaPagoProveedor', IEditorFechaPagoProveedor, AEditor);
if Assigned(AEditor) then
if (AEditor.ShowModal = mrOk) then
begin
FechaPago := DateToStr(AEditor.FechaPago);
AIgnorarContabilidad := AEditor.IgnorarContabilidad;
ASubCuenta := AEditor.IdSubcuenta;
end;
AEditor.Release;
finally
AEditor := NIL;
end;
end;
// Se cancela la operación // Se cancela la operación
if Length(FechaPago) = 0 then if Length(FechaPago) = 0 then
Exit; raise Exception.Create('Debe indicar la fecha del pago.');
//Liberamos el recibo aunque ya este libre
if not ARecibosProveedor.DataTable.Editing then
ARecibosProveedor.DataTable.Edit;
ARecibosProveedor.ID_REMESA := 0;
ARecibosProveedor.REFERENCIA_REMESA := '';
ARecibosProveedor.DataTable.Post;
//Finalmente añadimos el pago (pago o devolucion) //Finalmente añadimos el pago (pago o devolucion)
if PagosController.Anadir(ARecibosProveedor.Pagos, FechaPago, AIgnorarContabilidad, ASubCuenta) then if PagosController.Anadir(ARecibosProveedor.Pagos, FechaPago, AIgnorarContabilidad, ASubCuenta) then
@ -239,7 +234,7 @@ begin
inherited; inherited;
AsignarDataModule; AsignarDataModule;
FPagosController := TPagosProveedorController.Create; FPagosController := TPagosProveedorController.Create;
FClienteController := TProveedoresController.Create; FProveedorController := TProveedoresController.Create;
// FPagosController.addObservador(Self); //PETA NO SE PORQUE // FPagosController.addObservador(Self); //PETA NO SE PORQUE
end; end;
@ -432,7 +427,7 @@ destructor TRecibosProveedorController.Destroy;
begin begin
FDataModule := NIL; FDataModule := NIL;
FPagosController := NIL; FPagosController := NIL;
FClienteController := NIL; FProveedorController := NIL;
inherited; inherited;
end; end;
@ -511,7 +506,7 @@ begin
AEditor := NIL; AEditor := NIL;
ShowHourglassCursor; ShowHourglassCursor;
try try
RecuperarCliente(ARecibosProveedor); RecuperarProveedor(ARecibosProveedor);
CreateEditor('EditorReciboProveedor', IEditorReciboProveedor, AEditor); CreateEditor('EditorReciboProveedor', IEditorReciboProveedor, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do with AEditor do
@ -592,22 +587,58 @@ begin
end; end;
end; end;
function TRecibosProveedorController.Eliminar(ARecibosProveedor: IBizRecibosProveedor): Boolean; function TRecibosProveedorController.Eliminar(ARecibosProveedor: IBizRecibosProveedor; AllItems: Boolean = false): Boolean;
//En el caso de eliminar almenos un elemento del conjunto se devuelve true
var
bEliminado: Boolean;
begin begin
Result := False; bEliminado := False;
if not Assigned(ARecibosProveedor) then if not Assigned(ARecibosProveedor) then
raise Exception.Create ('IBizRecibosProveedor no asignado'); raise Exception.Create ('ARecibosProveedor no asignado');
ShowHourglassCursor; ShowHourglassCursor;
try try
if not ARecibosProveedor.DataTable.Active then
ARecibosProveedor.DataTable.Active := True;
if (ARecibosProveedor.State in dsEditModes) then if (ARecibosProveedor.State in dsEditModes) then
ARecibosProveedor.Cancel; ARecibosProveedor.Cancel;
ARecibosProveedor.Delete; //Siempre eliminaremos el seleccionado
ARecibosProveedor.DataTable.ApplyUpdates; if EsEliminable(ARecibosProveedor) then
HideHourglassCursor; begin
Result := True; ARecibosProveedor.Delete;
bEliminado := True;
end;
//En el caso de querer eliminar todos los items del objeto ARecibosProveedor
if AllItems then
begin
with ARecibosProveedor.DataTable do
begin
First;
while not EOF do
begin
if EsEliminable(ARecibosProveedor) then
begin
ARecibosProveedor.Delete;
bEliminado := True
end
else Next;
end;
end;
end;
if bEliminado then
begin
ARecibosProveedor.DataTable.ApplyUpdates;
Result := True;
end
else
Result := False;
finally finally
HideHourglassCursor; HideHourglassCursor;
end; end;
@ -629,10 +660,17 @@ begin
end; end;
end; end;
procedure TRecibosProveedorController.RecuperarCliente( function TRecibosProveedorController.EsEliminable(ARecibo: IBizRecibosProveedor): Boolean;
AReciboProveedor: IBizRecibosProveedor);
begin begin
AReciboProveedor._Proveedor := (FClienteController.Buscar(AReciboProveedor.ID_PROVEEDOR) as IBizProveedor); if not Assigned(ARecibo) then
raise Exception.Create ('Recibo no asignado: EsEliminable');
Result := (ARecibo.SITUACION = CTE_PENDIENTE) AND (ARecibo.ID_FACTURA < 1);
end;
procedure TRecibosProveedorController.RecuperarProveedor(AReciboProveedor: IBizRecibosProveedor);
begin
AReciboProveedor._Proveedor := (FProveedorController.Buscar(AReciboProveedor.ID_PROVEEDOR) as IBizProveedor);
end; end;
function TRecibosProveedorController.GetPagosController: IPagosProveedorController; function TRecibosProveedorController.GetPagosController: IPagosProveedorController;
@ -640,11 +678,21 @@ begin
Result := FPagosController; Result := FPagosController;
end; end;
function TRecibosProveedorController.GetProveedorController: IProveedoresController;
begin
Result := FProveedorController;
end;
procedure TRecibosProveedorController.SetPagosController(const Value: IPagosProveedorController); procedure TRecibosProveedorController.SetPagosController(const Value: IPagosProveedorController);
begin begin
FPagosController := Value; FPagosController := Value;
end; end;
procedure TRecibosProveedorController.SetProveedorController(const Value: IProveedoresController);
begin
FProveedorController := Value;
end;
procedure TRecibosProveedorController.SetSituacionCobrados(ARecibos: IBizRecibosProveedor; WithDeltas: Boolean); procedure TRecibosProveedorController.SetSituacionCobrados(ARecibos: IBizRecibosProveedor; WithDeltas: Boolean);
begin begin
if Assigned(ARecibos) then if Assigned(ARecibos) then
@ -726,29 +774,10 @@ begin
end; end;
end; end;
procedure TRecibosProveedorController.ModificarPago(ARecibosProveedor: IBizRecibosProveedor); procedure TRecibosProveedorController.ModificarPago(ARecibosProveedor: IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0);
var
AEditor : IEditorFechaPagoProveedor;
FechaPago: String;
IgnorarContabilidad: Integer;
begin begin
try
//Pedimos la fecha del pago
CreateEditor('EditorFechaPagoProveedor', IEditorFechaPagoProveedor, AEditor);
if Assigned(AEditor) then
FechaPago:= '';
if (AEditor.ShowModal = mrOk) then
begin
FechaPago := DateToStr(AEditor.FechaPago);
IgnorarContabilidad := AEditor.IgnorarContabilidad;
end;
AEditor.Release;
finally
AEditor := NIL;
end;
if Length(FechaPago) > 0 then if Length(FechaPago) > 0 then
PagosController.Modificar(ARecibosProveedor.Pagos, FechaPago, IgnorarContabilidad); PagosController.Modificar(ARecibosProveedor.Pagos, FechaPago, AIgnorarContabilidad, ASubCuenta);
end; end;
function TRecibosProveedorController.Nuevo: IBizRecibosProveedor; function TRecibosProveedorController.Nuevo: IBizRecibosProveedor;

58
Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm
View File

@ -276,6 +276,35 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString DataType = datString
Size = 30 Size = 30
end
item
Name = 'ID_TIENDA'
DataType = datInteger
end
item
Name = 'TIENDA'
DataType = datString
Size = 255
end
item
Name = 'CALLE_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_PROVEEDOR'
DataType = datString
Size = 10
end
item
Name = 'PROVINCIA_PROVEEDOR'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
MasterMappingMode = mmWhere MasterMappingMode = mmWhere
@ -489,6 +518,35 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
DataType = datString DataType = datString
Size = 20 Size = 20
DictionaryEntry = 'RecibosCliente_USUARIO' DictionaryEntry = 'RecibosCliente_USUARIO'
end
item
Name = 'ID_TIENDA'
DataType = datInteger
end
item
Name = 'TIENDA'
DataType = datString
Size = 255
end
item
Name = 'CALLE_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_PROVEEDOR'
DataType = datString
Size = 10
end
item
Name = 'PROVINCIA_PROVEEDOR'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

432
Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas
View File

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_RecibosCompensadosProv = '{79E4C792-FBE0-4991-AEEB-C0EE4E1F8183}'; RID_RecibosCompensadosProv = '{362F2794-809B-43D0-90F9-7FE72E40A77A}';
RID_RecibosProveedor = '{9C35F5D6-0E7E-4C46-BE0E-BACD1FFDB567}'; RID_RecibosProveedor = '{DDB0A83D-84A4-4660-9764-9F8C1360CD1C}';
RID_PagosProveedor = '{ED4FAA5F-C675-494A-BA70-40FA218DBE18}'; RID_PagosProveedor = '{E23DEA9F-5274-4F6A-BB81-20EC4D7ABD9A}';
{ Data table names } { Data table names }
nme_RecibosCompensadosProv = 'RecibosCompensadosProv'; nme_RecibosCompensadosProv = 'RecibosCompensadosProv';
@ -50,6 +50,12 @@ const
fld_RecibosCompensadosProvFECHA_ALTA = 'FECHA_ALTA'; fld_RecibosCompensadosProvFECHA_ALTA = 'FECHA_ALTA';
fld_RecibosCompensadosProvFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_RecibosCompensadosProvFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_RecibosCompensadosProvUSUARIO = 'USUARIO'; fld_RecibosCompensadosProvUSUARIO = 'USUARIO';
fld_RecibosCompensadosProvID_TIENDA = 'ID_TIENDA';
fld_RecibosCompensadosProvTIENDA = 'TIENDA';
fld_RecibosCompensadosProvCALLE_PROVEEDOR = 'CALLE_PROVEEDOR';
fld_RecibosCompensadosProvPOBLACION_PROVEEDOR = 'POBLACION_PROVEEDOR';
fld_RecibosCompensadosProvCODIGO_POSTAL_PROVEEDOR = 'CODIGO_POSTAL_PROVEEDOR';
fld_RecibosCompensadosProvPROVINCIA_PROVEEDOR = 'PROVINCIA_PROVEEDOR';
{ RecibosCompensadosProv field indexes } { RecibosCompensadosProv field indexes }
idx_RecibosCompensadosProvID = 0; idx_RecibosCompensadosProvID = 0;
@ -83,6 +89,12 @@ const
idx_RecibosCompensadosProvFECHA_ALTA = 28; idx_RecibosCompensadosProvFECHA_ALTA = 28;
idx_RecibosCompensadosProvFECHA_MODIFICACION = 29; idx_RecibosCompensadosProvFECHA_MODIFICACION = 29;
idx_RecibosCompensadosProvUSUARIO = 30; idx_RecibosCompensadosProvUSUARIO = 30;
idx_RecibosCompensadosProvID_TIENDA = 31;
idx_RecibosCompensadosProvTIENDA = 32;
idx_RecibosCompensadosProvCALLE_PROVEEDOR = 33;
idx_RecibosCompensadosProvPOBLACION_PROVEEDOR = 34;
idx_RecibosCompensadosProvCODIGO_POSTAL_PROVEEDOR = 35;
idx_RecibosCompensadosProvPROVINCIA_PROVEEDOR = 36;
{ RecibosProveedor fields } { RecibosProveedor fields }
fld_RecibosProveedorID = 'ID'; fld_RecibosProveedorID = 'ID';
@ -116,6 +128,12 @@ const
fld_RecibosProveedorFECHA_ALTA = 'FECHA_ALTA'; fld_RecibosProveedorFECHA_ALTA = 'FECHA_ALTA';
fld_RecibosProveedorFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_RecibosProveedorFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_RecibosProveedorUSUARIO = 'USUARIO'; fld_RecibosProveedorUSUARIO = 'USUARIO';
fld_RecibosProveedorID_TIENDA = 'ID_TIENDA';
fld_RecibosProveedorTIENDA = 'TIENDA';
fld_RecibosProveedorCALLE_PROVEEDOR = 'CALLE_PROVEEDOR';
fld_RecibosProveedorPOBLACION_PROVEEDOR = 'POBLACION_PROVEEDOR';
fld_RecibosProveedorCODIGO_POSTAL_PROVEEDOR = 'CODIGO_POSTAL_PROVEEDOR';
fld_RecibosProveedorPROVINCIA_PROVEEDOR = 'PROVINCIA_PROVEEDOR';
{ RecibosProveedor field indexes } { RecibosProveedor field indexes }
idx_RecibosProveedorID = 0; idx_RecibosProveedorID = 0;
@ -149,6 +167,12 @@ const
idx_RecibosProveedorFECHA_ALTA = 28; idx_RecibosProveedorFECHA_ALTA = 28;
idx_RecibosProveedorFECHA_MODIFICACION = 29; idx_RecibosProveedorFECHA_MODIFICACION = 29;
idx_RecibosProveedorUSUARIO = 30; idx_RecibosProveedorUSUARIO = 30;
idx_RecibosProveedorID_TIENDA = 31;
idx_RecibosProveedorTIENDA = 32;
idx_RecibosProveedorCALLE_PROVEEDOR = 33;
idx_RecibosProveedorPOBLACION_PROVEEDOR = 34;
idx_RecibosProveedorCODIGO_POSTAL_PROVEEDOR = 35;
idx_RecibosProveedorPROVINCIA_PROVEEDOR = 36;
{ PagosProveedor fields } { PagosProveedor fields }
fld_PagosProveedorID = 'ID'; fld_PagosProveedorID = 'ID';
@ -183,7 +207,7 @@ const
type type
{ IRecibosCompensadosProv } { IRecibosCompensadosProv }
IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable) IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable)
['{B2ADA390-B323-420E-8064-59A0D7BAD647}'] ['{2D6D983B-A8D2-4403-A3B3-61EFCF0F042D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -309,6 +333,30 @@ type
procedure SetUSUARIOValue(const aValue: String); procedure SetUSUARIOValue(const aValue: String);
function GetUSUARIOIsNull: Boolean; function GetUSUARIOIsNull: Boolean;
procedure SetUSUARIOIsNull(const aValue: Boolean); procedure SetUSUARIOIsNull(const aValue: Boolean);
function GetID_TIENDAValue: Integer;
procedure SetID_TIENDAValue(const aValue: Integer);
function GetID_TIENDAIsNull: Boolean;
procedure SetID_TIENDAIsNull(const aValue: Boolean);
function GetTIENDAValue: String;
procedure SetTIENDAValue(const aValue: String);
function GetTIENDAIsNull: Boolean;
procedure SetTIENDAIsNull(const aValue: Boolean);
function GetCALLE_PROVEEDORValue: String;
procedure SetCALLE_PROVEEDORValue(const aValue: String);
function GetCALLE_PROVEEDORIsNull: Boolean;
procedure SetCALLE_PROVEEDORIsNull(const aValue: Boolean);
function GetPOBLACION_PROVEEDORValue: String;
procedure SetPOBLACION_PROVEEDORValue(const aValue: String);
function GetPOBLACION_PROVEEDORIsNull: Boolean;
procedure SetPOBLACION_PROVEEDORIsNull(const aValue: Boolean);
function GetCODIGO_POSTAL_PROVEEDORValue: String;
procedure SetCODIGO_POSTAL_PROVEEDORValue(const aValue: String);
function GetCODIGO_POSTAL_PROVEEDORIsNull: Boolean;
procedure SetCODIGO_POSTAL_PROVEEDORIsNull(const aValue: Boolean);
function GetPROVINCIA_PROVEEDORValue: String;
procedure SetPROVINCIA_PROVEEDORValue(const aValue: String);
function GetPROVINCIA_PROVEEDORIsNull: Boolean;
procedure SetPROVINCIA_PROVEEDORIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -374,6 +422,18 @@ type
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property CALLE_PROVEEDOR: String read GetCALLE_PROVEEDORValue write SetCALLE_PROVEEDORValue;
property CALLE_PROVEEDORIsNull: Boolean read GetCALLE_PROVEEDORIsNull write SetCALLE_PROVEEDORIsNull;
property POBLACION_PROVEEDOR: String read GetPOBLACION_PROVEEDORValue write SetPOBLACION_PROVEEDORValue;
property POBLACION_PROVEEDORIsNull: Boolean read GetPOBLACION_PROVEEDORIsNull write SetPOBLACION_PROVEEDORIsNull;
property CODIGO_POSTAL_PROVEEDOR: String read GetCODIGO_POSTAL_PROVEEDORValue write SetCODIGO_POSTAL_PROVEEDORValue;
property CODIGO_POSTAL_PROVEEDORIsNull: Boolean read GetCODIGO_POSTAL_PROVEEDORIsNull write SetCODIGO_POSTAL_PROVEEDORIsNull;
property PROVINCIA_PROVEEDOR: String read GetPROVINCIA_PROVEEDORValue write SetPROVINCIA_PROVEEDORValue;
property PROVINCIA_PROVEEDORIsNull: Boolean read GetPROVINCIA_PROVEEDORIsNull write SetPROVINCIA_PROVEEDORIsNull;
end; end;
{ TRecibosCompensadosProvDataTableRules } { TRecibosCompensadosProvDataTableRules }
@ -505,6 +565,30 @@ type
procedure SetUSUARIOValue(const aValue: String); virtual; procedure SetUSUARIOValue(const aValue: String); virtual;
function GetUSUARIOIsNull: Boolean; virtual; function GetUSUARIOIsNull: Boolean; virtual;
procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
function GetID_TIENDAValue: Integer; virtual;
procedure SetID_TIENDAValue(const aValue: Integer); virtual;
function GetID_TIENDAIsNull: Boolean; virtual;
procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
function GetTIENDAValue: String; virtual;
procedure SetTIENDAValue(const aValue: String); virtual;
function GetTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
function GetCALLE_PROVEEDORValue: String; virtual;
procedure SetCALLE_PROVEEDORValue(const aValue: String); virtual;
function GetCALLE_PROVEEDORIsNull: Boolean; virtual;
procedure SetCALLE_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetPOBLACION_PROVEEDORValue: String; virtual;
procedure SetPOBLACION_PROVEEDORValue(const aValue: String); virtual;
function GetPOBLACION_PROVEEDORIsNull: Boolean; virtual;
procedure SetPOBLACION_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetCODIGO_POSTAL_PROVEEDORValue: String; virtual;
procedure SetCODIGO_POSTAL_PROVEEDORValue(const aValue: String); virtual;
function GetCODIGO_POSTAL_PROVEEDORIsNull: Boolean; virtual;
procedure SetCODIGO_POSTAL_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetPROVINCIA_PROVEEDORValue: String; virtual;
procedure SetPROVINCIA_PROVEEDORValue(const aValue: String); virtual;
function GetPROVINCIA_PROVEEDORIsNull: Boolean; virtual;
procedure SetPROVINCIA_PROVEEDORIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -569,6 +653,18 @@ type
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property CALLE_PROVEEDOR: String read GetCALLE_PROVEEDORValue write SetCALLE_PROVEEDORValue;
property CALLE_PROVEEDORIsNull: Boolean read GetCALLE_PROVEEDORIsNull write SetCALLE_PROVEEDORIsNull;
property POBLACION_PROVEEDOR: String read GetPOBLACION_PROVEEDORValue write SetPOBLACION_PROVEEDORValue;
property POBLACION_PROVEEDORIsNull: Boolean read GetPOBLACION_PROVEEDORIsNull write SetPOBLACION_PROVEEDORIsNull;
property CODIGO_POSTAL_PROVEEDOR: String read GetCODIGO_POSTAL_PROVEEDORValue write SetCODIGO_POSTAL_PROVEEDORValue;
property CODIGO_POSTAL_PROVEEDORIsNull: Boolean read GetCODIGO_POSTAL_PROVEEDORIsNull write SetCODIGO_POSTAL_PROVEEDORIsNull;
property PROVINCIA_PROVEEDOR: String read GetPROVINCIA_PROVEEDORValue write SetPROVINCIA_PROVEEDORValue;
property PROVINCIA_PROVEEDORIsNull: Boolean read GetPROVINCIA_PROVEEDORIsNull write SetPROVINCIA_PROVEEDORIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -578,7 +674,7 @@ type
{ IRecibosProveedor } { IRecibosProveedor }
IRecibosProveedor = interface(IDAStronglyTypedDataTable) IRecibosProveedor = interface(IDAStronglyTypedDataTable)
['{D109DF21-A3FE-4397-A781-51007D94BC32}'] ['{976CC618-6A45-422A-A629-C8950DADCB5A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -704,6 +800,30 @@ type
procedure SetUSUARIOValue(const aValue: String); procedure SetUSUARIOValue(const aValue: String);
function GetUSUARIOIsNull: Boolean; function GetUSUARIOIsNull: Boolean;
procedure SetUSUARIOIsNull(const aValue: Boolean); procedure SetUSUARIOIsNull(const aValue: Boolean);
function GetID_TIENDAValue: Integer;
procedure SetID_TIENDAValue(const aValue: Integer);
function GetID_TIENDAIsNull: Boolean;
procedure SetID_TIENDAIsNull(const aValue: Boolean);
function GetTIENDAValue: String;
procedure SetTIENDAValue(const aValue: String);
function GetTIENDAIsNull: Boolean;
procedure SetTIENDAIsNull(const aValue: Boolean);
function GetCALLE_PROVEEDORValue: String;
procedure SetCALLE_PROVEEDORValue(const aValue: String);
function GetCALLE_PROVEEDORIsNull: Boolean;
procedure SetCALLE_PROVEEDORIsNull(const aValue: Boolean);
function GetPOBLACION_PROVEEDORValue: String;
procedure SetPOBLACION_PROVEEDORValue(const aValue: String);
function GetPOBLACION_PROVEEDORIsNull: Boolean;
procedure SetPOBLACION_PROVEEDORIsNull(const aValue: Boolean);
function GetCODIGO_POSTAL_PROVEEDORValue: String;
procedure SetCODIGO_POSTAL_PROVEEDORValue(const aValue: String);
function GetCODIGO_POSTAL_PROVEEDORIsNull: Boolean;
procedure SetCODIGO_POSTAL_PROVEEDORIsNull(const aValue: Boolean);
function GetPROVINCIA_PROVEEDORValue: String;
procedure SetPROVINCIA_PROVEEDORValue(const aValue: String);
function GetPROVINCIA_PROVEEDORIsNull: Boolean;
procedure SetPROVINCIA_PROVEEDORIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -769,6 +889,18 @@ type
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property CALLE_PROVEEDOR: String read GetCALLE_PROVEEDORValue write SetCALLE_PROVEEDORValue;
property CALLE_PROVEEDORIsNull: Boolean read GetCALLE_PROVEEDORIsNull write SetCALLE_PROVEEDORIsNull;
property POBLACION_PROVEEDOR: String read GetPOBLACION_PROVEEDORValue write SetPOBLACION_PROVEEDORValue;
property POBLACION_PROVEEDORIsNull: Boolean read GetPOBLACION_PROVEEDORIsNull write SetPOBLACION_PROVEEDORIsNull;
property CODIGO_POSTAL_PROVEEDOR: String read GetCODIGO_POSTAL_PROVEEDORValue write SetCODIGO_POSTAL_PROVEEDORValue;
property CODIGO_POSTAL_PROVEEDORIsNull: Boolean read GetCODIGO_POSTAL_PROVEEDORIsNull write SetCODIGO_POSTAL_PROVEEDORIsNull;
property PROVINCIA_PROVEEDOR: String read GetPROVINCIA_PROVEEDORValue write SetPROVINCIA_PROVEEDORValue;
property PROVINCIA_PROVEEDORIsNull: Boolean read GetPROVINCIA_PROVEEDORIsNull write SetPROVINCIA_PROVEEDORIsNull;
end; end;
{ TRecibosProveedorDataTableRules } { TRecibosProveedorDataTableRules }
@ -900,6 +1032,30 @@ type
procedure SetUSUARIOValue(const aValue: String); virtual; procedure SetUSUARIOValue(const aValue: String); virtual;
function GetUSUARIOIsNull: Boolean; virtual; function GetUSUARIOIsNull: Boolean; virtual;
procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
function GetID_TIENDAValue: Integer; virtual;
procedure SetID_TIENDAValue(const aValue: Integer); virtual;
function GetID_TIENDAIsNull: Boolean; virtual;
procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
function GetTIENDAValue: String; virtual;
procedure SetTIENDAValue(const aValue: String); virtual;
function GetTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
function GetCALLE_PROVEEDORValue: String; virtual;
procedure SetCALLE_PROVEEDORValue(const aValue: String); virtual;
function GetCALLE_PROVEEDORIsNull: Boolean; virtual;
procedure SetCALLE_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetPOBLACION_PROVEEDORValue: String; virtual;
procedure SetPOBLACION_PROVEEDORValue(const aValue: String); virtual;
function GetPOBLACION_PROVEEDORIsNull: Boolean; virtual;
procedure SetPOBLACION_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetCODIGO_POSTAL_PROVEEDORValue: String; virtual;
procedure SetCODIGO_POSTAL_PROVEEDORValue(const aValue: String); virtual;
function GetCODIGO_POSTAL_PROVEEDORIsNull: Boolean; virtual;
procedure SetCODIGO_POSTAL_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetPROVINCIA_PROVEEDORValue: String; virtual;
procedure SetPROVINCIA_PROVEEDORValue(const aValue: String); virtual;
function GetPROVINCIA_PROVEEDORIsNull: Boolean; virtual;
procedure SetPROVINCIA_PROVEEDORIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -964,6 +1120,18 @@ type
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property CALLE_PROVEEDOR: String read GetCALLE_PROVEEDORValue write SetCALLE_PROVEEDORValue;
property CALLE_PROVEEDORIsNull: Boolean read GetCALLE_PROVEEDORIsNull write SetCALLE_PROVEEDORIsNull;
property POBLACION_PROVEEDOR: String read GetPOBLACION_PROVEEDORValue write SetPOBLACION_PROVEEDORValue;
property POBLACION_PROVEEDORIsNull: Boolean read GetPOBLACION_PROVEEDORIsNull write SetPOBLACION_PROVEEDORIsNull;
property CODIGO_POSTAL_PROVEEDOR: String read GetCODIGO_POSTAL_PROVEEDORValue write SetCODIGO_POSTAL_PROVEEDORValue;
property CODIGO_POSTAL_PROVEEDORIsNull: Boolean read GetCODIGO_POSTAL_PROVEEDORIsNull write SetCODIGO_POSTAL_PROVEEDORIsNull;
property PROVINCIA_PROVEEDOR: String read GetPROVINCIA_PROVEEDORValue write SetPROVINCIA_PROVEEDORValue;
property PROVINCIA_PROVEEDORIsNull: Boolean read GetPROVINCIA_PROVEEDORIsNull write SetPROVINCIA_PROVEEDORIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -973,7 +1141,7 @@ type
{ IPagosProveedor } { IPagosProveedor }
IPagosProveedor = interface(IDAStronglyTypedDataTable) IPagosProveedor = interface(IDAStronglyTypedDataTable)
['{08F0D078-9A5D-4F40-958F-E28C7A1A21F5}'] ['{CB465AC1-DF0E-43AC-89B6-3AD01EFE5DD2}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1816,6 +1984,132 @@ begin
DataTable.Fields[idx_RecibosCompensadosProvUSUARIO].AsVariant := Null; DataTable.Fields[idx_RecibosCompensadosProvUSUARIO].AsVariant := Null;
end; end;
function TRecibosCompensadosProvDataTableRules.GetID_TIENDAValue: Integer;
begin
result := DataTable.Fields[idx_RecibosCompensadosProvID_TIENDA].AsInteger;
end;
procedure TRecibosCompensadosProvDataTableRules.SetID_TIENDAValue(const aValue: Integer);
begin
DataTable.Fields[idx_RecibosCompensadosProvID_TIENDA].AsInteger := aValue;
end;
function TRecibosCompensadosProvDataTableRules.GetID_TIENDAIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosProvID_TIENDA].IsNull;
end;
procedure TRecibosCompensadosProvDataTableRules.SetID_TIENDAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosProvID_TIENDA].AsVariant := Null;
end;
function TRecibosCompensadosProvDataTableRules.GetTIENDAValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosProvTIENDA].AsString;
end;
procedure TRecibosCompensadosProvDataTableRules.SetTIENDAValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosProvTIENDA].AsString := aValue;
end;
function TRecibosCompensadosProvDataTableRules.GetTIENDAIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosProvTIENDA].IsNull;
end;
procedure TRecibosCompensadosProvDataTableRules.SetTIENDAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosProvTIENDA].AsVariant := Null;
end;
function TRecibosCompensadosProvDataTableRules.GetCALLE_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosProvCALLE_PROVEEDOR].AsString;
end;
procedure TRecibosCompensadosProvDataTableRules.SetCALLE_PROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosProvCALLE_PROVEEDOR].AsString := aValue;
end;
function TRecibosCompensadosProvDataTableRules.GetCALLE_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosProvCALLE_PROVEEDOR].IsNull;
end;
procedure TRecibosCompensadosProvDataTableRules.SetCALLE_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosProvCALLE_PROVEEDOR].AsVariant := Null;
end;
function TRecibosCompensadosProvDataTableRules.GetPOBLACION_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosProvPOBLACION_PROVEEDOR].AsString;
end;
procedure TRecibosCompensadosProvDataTableRules.SetPOBLACION_PROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosProvPOBLACION_PROVEEDOR].AsString := aValue;
end;
function TRecibosCompensadosProvDataTableRules.GetPOBLACION_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosProvPOBLACION_PROVEEDOR].IsNull;
end;
procedure TRecibosCompensadosProvDataTableRules.SetPOBLACION_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosProvPOBLACION_PROVEEDOR].AsVariant := Null;
end;
function TRecibosCompensadosProvDataTableRules.GetCODIGO_POSTAL_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosProvCODIGO_POSTAL_PROVEEDOR].AsString;
end;
procedure TRecibosCompensadosProvDataTableRules.SetCODIGO_POSTAL_PROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosProvCODIGO_POSTAL_PROVEEDOR].AsString := aValue;
end;
function TRecibosCompensadosProvDataTableRules.GetCODIGO_POSTAL_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosProvCODIGO_POSTAL_PROVEEDOR].IsNull;
end;
procedure TRecibosCompensadosProvDataTableRules.SetCODIGO_POSTAL_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosProvCODIGO_POSTAL_PROVEEDOR].AsVariant := Null;
end;
function TRecibosCompensadosProvDataTableRules.GetPROVINCIA_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosProvPROVINCIA_PROVEEDOR].AsString;
end;
procedure TRecibosCompensadosProvDataTableRules.SetPROVINCIA_PROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosProvPROVINCIA_PROVEEDOR].AsString := aValue;
end;
function TRecibosCompensadosProvDataTableRules.GetPROVINCIA_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosProvPROVINCIA_PROVEEDOR].IsNull;
end;
procedure TRecibosCompensadosProvDataTableRules.SetPROVINCIA_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosProvPROVINCIA_PROVEEDOR].AsVariant := Null;
end;
{ TRecibosProveedorDataTableRules } { TRecibosProveedorDataTableRules }
constructor TRecibosProveedorDataTableRules.Create(aDataTable: TDADataTable); constructor TRecibosProveedorDataTableRules.Create(aDataTable: TDADataTable);
@ -2479,6 +2773,132 @@ begin
DataTable.Fields[idx_RecibosProveedorUSUARIO].AsVariant := Null; DataTable.Fields[idx_RecibosProveedorUSUARIO].AsVariant := Null;
end; end;
function TRecibosProveedorDataTableRules.GetID_TIENDAValue: Integer;
begin
result := DataTable.Fields[idx_RecibosProveedorID_TIENDA].AsInteger;
end;
procedure TRecibosProveedorDataTableRules.SetID_TIENDAValue(const aValue: Integer);
begin
DataTable.Fields[idx_RecibosProveedorID_TIENDA].AsInteger := aValue;
end;
function TRecibosProveedorDataTableRules.GetID_TIENDAIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosProveedorID_TIENDA].IsNull;
end;
procedure TRecibosProveedorDataTableRules.SetID_TIENDAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosProveedorID_TIENDA].AsVariant := Null;
end;
function TRecibosProveedorDataTableRules.GetTIENDAValue: String;
begin
result := DataTable.Fields[idx_RecibosProveedorTIENDA].AsString;
end;
procedure TRecibosProveedorDataTableRules.SetTIENDAValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosProveedorTIENDA].AsString := aValue;
end;
function TRecibosProveedorDataTableRules.GetTIENDAIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosProveedorTIENDA].IsNull;
end;
procedure TRecibosProveedorDataTableRules.SetTIENDAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosProveedorTIENDA].AsVariant := Null;
end;
function TRecibosProveedorDataTableRules.GetCALLE_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_RecibosProveedorCALLE_PROVEEDOR].AsString;
end;
procedure TRecibosProveedorDataTableRules.SetCALLE_PROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosProveedorCALLE_PROVEEDOR].AsString := aValue;
end;
function TRecibosProveedorDataTableRules.GetCALLE_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosProveedorCALLE_PROVEEDOR].IsNull;
end;
procedure TRecibosProveedorDataTableRules.SetCALLE_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosProveedorCALLE_PROVEEDOR].AsVariant := Null;
end;
function TRecibosProveedorDataTableRules.GetPOBLACION_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_RecibosProveedorPOBLACION_PROVEEDOR].AsString;
end;
procedure TRecibosProveedorDataTableRules.SetPOBLACION_PROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosProveedorPOBLACION_PROVEEDOR].AsString := aValue;
end;
function TRecibosProveedorDataTableRules.GetPOBLACION_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosProveedorPOBLACION_PROVEEDOR].IsNull;
end;
procedure TRecibosProveedorDataTableRules.SetPOBLACION_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosProveedorPOBLACION_PROVEEDOR].AsVariant := Null;
end;
function TRecibosProveedorDataTableRules.GetCODIGO_POSTAL_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_RecibosProveedorCODIGO_POSTAL_PROVEEDOR].AsString;
end;
procedure TRecibosProveedorDataTableRules.SetCODIGO_POSTAL_PROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosProveedorCODIGO_POSTAL_PROVEEDOR].AsString := aValue;
end;
function TRecibosProveedorDataTableRules.GetCODIGO_POSTAL_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosProveedorCODIGO_POSTAL_PROVEEDOR].IsNull;
end;
procedure TRecibosProveedorDataTableRules.SetCODIGO_POSTAL_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosProveedorCODIGO_POSTAL_PROVEEDOR].AsVariant := Null;
end;
function TRecibosProveedorDataTableRules.GetPROVINCIA_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_RecibosProveedorPROVINCIA_PROVEEDOR].AsString;
end;
procedure TRecibosProveedorDataTableRules.SetPROVINCIA_PROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosProveedorPROVINCIA_PROVEEDOR].AsString := aValue;
end;
function TRecibosProveedorDataTableRules.GetPROVINCIA_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosProveedorPROVINCIA_PROVEEDOR].IsNull;
end;
procedure TRecibosProveedorDataTableRules.SetPROVINCIA_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosProveedorPROVINCIA_PROVEEDOR].AsVariant := Null;
end;
{ TPagosProveedorDataTableRules } { TPagosProveedorDataTableRules }
constructor TPagosProveedorDataTableRules.Create(aDataTable: TDADataTable); constructor TPagosProveedorDataTableRules.Create(aDataTable: TDADataTable);

528
Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_RecibosCompensadosProvDelta = '{9107E928-5D10-4B51-A676-BFA549256A77}'; RID_RecibosCompensadosProvDelta = '{BC31F43C-6FA7-4B92-8E36-FDA10B7C944E}';
RID_RecibosProveedorDelta = '{9084E9BD-0A41-47E3-B3E2-7203D2766160}'; RID_RecibosProveedorDelta = '{AC23DD73-5C9C-4C92-8637-D50386E731AE}';
RID_PagosProveedorDelta = '{0855D721-33C1-4937-B581-332046D7D4A3}'; RID_PagosProveedorDelta = '{BF21E199-2B2A-41D2-BA3B-FB5A7E5EBC03}';
type type
{ IRecibosCompensadosProvDelta } { IRecibosCompensadosProvDelta }
IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv) IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv)
['{9107E928-5D10-4B51-A676-BFA549256A77}'] ['{BC31F43C-6FA7-4B92-8E36-FDA10B7C944E}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -49,6 +49,12 @@ type
function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
function GetOldID_TIENDAValue : Integer;
function GetOldTIENDAValue : String;
function GetOldCALLE_PROVEEDORValue : String;
function GetOldPOBLACION_PROVEEDORValue : String;
function GetOldCODIGO_POSTAL_PROVEEDORValue : String;
function GetOldPROVINCIA_PROVEEDORValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -82,6 +88,12 @@ type
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldTIENDA : String read GetOldTIENDAValue;
property OldCALLE_PROVEEDOR : String read GetOldCALLE_PROVEEDORValue;
property OldPOBLACION_PROVEEDOR : String read GetOldPOBLACION_PROVEEDORValue;
property OldCODIGO_POSTAL_PROVEEDOR : String read GetOldCODIGO_POSTAL_PROVEEDORValue;
property OldPROVINCIA_PROVEEDOR : String read GetOldPROVINCIA_PROVEEDORValue;
end; end;
{ TRecibosCompensadosProvBusinessProcessorRules } { TRecibosCompensadosProvBusinessProcessorRules }
@ -275,6 +287,42 @@ type
function GetOldUSUARIOIsNull: Boolean; virtual; function GetOldUSUARIOIsNull: Boolean; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual; procedure SetUSUARIOValue(const aValue: String); virtual;
procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
function GetID_TIENDAValue: Integer; virtual;
function GetID_TIENDAIsNull: Boolean; virtual;
function GetOldID_TIENDAValue: Integer; virtual;
function GetOldID_TIENDAIsNull: Boolean; virtual;
procedure SetID_TIENDAValue(const aValue: Integer); virtual;
procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
function GetTIENDAValue: String; virtual;
function GetTIENDAIsNull: Boolean; virtual;
function GetOldTIENDAValue: String; virtual;
function GetOldTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAValue(const aValue: String); virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
function GetCALLE_PROVEEDORValue: String; virtual;
function GetCALLE_PROVEEDORIsNull: Boolean; virtual;
function GetOldCALLE_PROVEEDORValue: String; virtual;
function GetOldCALLE_PROVEEDORIsNull: Boolean; virtual;
procedure SetCALLE_PROVEEDORValue(const aValue: String); virtual;
procedure SetCALLE_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetPOBLACION_PROVEEDORValue: String; virtual;
function GetPOBLACION_PROVEEDORIsNull: Boolean; virtual;
function GetOldPOBLACION_PROVEEDORValue: String; virtual;
function GetOldPOBLACION_PROVEEDORIsNull: Boolean; virtual;
procedure SetPOBLACION_PROVEEDORValue(const aValue: String); virtual;
procedure SetPOBLACION_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetCODIGO_POSTAL_PROVEEDORValue: String; virtual;
function GetCODIGO_POSTAL_PROVEEDORIsNull: Boolean; virtual;
function GetOldCODIGO_POSTAL_PROVEEDORValue: String; virtual;
function GetOldCODIGO_POSTAL_PROVEEDORIsNull: Boolean; virtual;
procedure SetCODIGO_POSTAL_PROVEEDORValue(const aValue: String); virtual;
procedure SetCODIGO_POSTAL_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetPROVINCIA_PROVEEDORValue: String; virtual;
function GetPROVINCIA_PROVEEDORIsNull: Boolean; virtual;
function GetOldPROVINCIA_PROVEEDORValue: String; virtual;
function GetOldPROVINCIA_PROVEEDORIsNull: Boolean; virtual;
procedure SetPROVINCIA_PROVEEDORValue(const aValue: String); virtual;
procedure SetPROVINCIA_PROVEEDORIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -401,6 +449,30 @@ type
property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
property ID_TIENDA : Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull : Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldID_TIENDAIsNull : Boolean read GetOldID_TIENDAIsNull;
property TIENDA : String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property OldTIENDA : String read GetOldTIENDAValue;
property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull;
property CALLE_PROVEEDOR : String read GetCALLE_PROVEEDORValue write SetCALLE_PROVEEDORValue;
property CALLE_PROVEEDORIsNull : Boolean read GetCALLE_PROVEEDORIsNull write SetCALLE_PROVEEDORIsNull;
property OldCALLE_PROVEEDOR : String read GetOldCALLE_PROVEEDORValue;
property OldCALLE_PROVEEDORIsNull : Boolean read GetOldCALLE_PROVEEDORIsNull;
property POBLACION_PROVEEDOR : String read GetPOBLACION_PROVEEDORValue write SetPOBLACION_PROVEEDORValue;
property POBLACION_PROVEEDORIsNull : Boolean read GetPOBLACION_PROVEEDORIsNull write SetPOBLACION_PROVEEDORIsNull;
property OldPOBLACION_PROVEEDOR : String read GetOldPOBLACION_PROVEEDORValue;
property OldPOBLACION_PROVEEDORIsNull : Boolean read GetOldPOBLACION_PROVEEDORIsNull;
property CODIGO_POSTAL_PROVEEDOR : String read GetCODIGO_POSTAL_PROVEEDORValue write SetCODIGO_POSTAL_PROVEEDORValue;
property CODIGO_POSTAL_PROVEEDORIsNull : Boolean read GetCODIGO_POSTAL_PROVEEDORIsNull write SetCODIGO_POSTAL_PROVEEDORIsNull;
property OldCODIGO_POSTAL_PROVEEDOR : String read GetOldCODIGO_POSTAL_PROVEEDORValue;
property OldCODIGO_POSTAL_PROVEEDORIsNull : Boolean read GetOldCODIGO_POSTAL_PROVEEDORIsNull;
property PROVINCIA_PROVEEDOR : String read GetPROVINCIA_PROVEEDORValue write SetPROVINCIA_PROVEEDORValue;
property PROVINCIA_PROVEEDORIsNull : Boolean read GetPROVINCIA_PROVEEDORIsNull write SetPROVINCIA_PROVEEDORIsNull;
property OldPROVINCIA_PROVEEDOR : String read GetOldPROVINCIA_PROVEEDORValue;
property OldPROVINCIA_PROVEEDORIsNull : Boolean read GetOldPROVINCIA_PROVEEDORIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -410,7 +482,7 @@ type
{ IRecibosProveedorDelta } { IRecibosProveedorDelta }
IRecibosProveedorDelta = interface(IRecibosProveedor) IRecibosProveedorDelta = interface(IRecibosProveedor)
['{9084E9BD-0A41-47E3-B3E2-7203D2766160}'] ['{AC23DD73-5C9C-4C92-8637-D50386E731AE}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -443,6 +515,12 @@ type
function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
function GetOldID_TIENDAValue : Integer;
function GetOldTIENDAValue : String;
function GetOldCALLE_PROVEEDORValue : String;
function GetOldPOBLACION_PROVEEDORValue : String;
function GetOldCODIGO_POSTAL_PROVEEDORValue : String;
function GetOldPROVINCIA_PROVEEDORValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -476,6 +554,12 @@ type
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldTIENDA : String read GetOldTIENDAValue;
property OldCALLE_PROVEEDOR : String read GetOldCALLE_PROVEEDORValue;
property OldPOBLACION_PROVEEDOR : String read GetOldPOBLACION_PROVEEDORValue;
property OldCODIGO_POSTAL_PROVEEDOR : String read GetOldCODIGO_POSTAL_PROVEEDORValue;
property OldPROVINCIA_PROVEEDOR : String read GetOldPROVINCIA_PROVEEDORValue;
end; end;
{ TRecibosProveedorBusinessProcessorRules } { TRecibosProveedorBusinessProcessorRules }
@ -669,6 +753,42 @@ type
function GetOldUSUARIOIsNull: Boolean; virtual; function GetOldUSUARIOIsNull: Boolean; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual; procedure SetUSUARIOValue(const aValue: String); virtual;
procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
function GetID_TIENDAValue: Integer; virtual;
function GetID_TIENDAIsNull: Boolean; virtual;
function GetOldID_TIENDAValue: Integer; virtual;
function GetOldID_TIENDAIsNull: Boolean; virtual;
procedure SetID_TIENDAValue(const aValue: Integer); virtual;
procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
function GetTIENDAValue: String; virtual;
function GetTIENDAIsNull: Boolean; virtual;
function GetOldTIENDAValue: String; virtual;
function GetOldTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAValue(const aValue: String); virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
function GetCALLE_PROVEEDORValue: String; virtual;
function GetCALLE_PROVEEDORIsNull: Boolean; virtual;
function GetOldCALLE_PROVEEDORValue: String; virtual;
function GetOldCALLE_PROVEEDORIsNull: Boolean; virtual;
procedure SetCALLE_PROVEEDORValue(const aValue: String); virtual;
procedure SetCALLE_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetPOBLACION_PROVEEDORValue: String; virtual;
function GetPOBLACION_PROVEEDORIsNull: Boolean; virtual;
function GetOldPOBLACION_PROVEEDORValue: String; virtual;
function GetOldPOBLACION_PROVEEDORIsNull: Boolean; virtual;
procedure SetPOBLACION_PROVEEDORValue(const aValue: String); virtual;
procedure SetPOBLACION_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetCODIGO_POSTAL_PROVEEDORValue: String; virtual;
function GetCODIGO_POSTAL_PROVEEDORIsNull: Boolean; virtual;
function GetOldCODIGO_POSTAL_PROVEEDORValue: String; virtual;
function GetOldCODIGO_POSTAL_PROVEEDORIsNull: Boolean; virtual;
procedure SetCODIGO_POSTAL_PROVEEDORValue(const aValue: String); virtual;
procedure SetCODIGO_POSTAL_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetPROVINCIA_PROVEEDORValue: String; virtual;
function GetPROVINCIA_PROVEEDORIsNull: Boolean; virtual;
function GetOldPROVINCIA_PROVEEDORValue: String; virtual;
function GetOldPROVINCIA_PROVEEDORIsNull: Boolean; virtual;
procedure SetPROVINCIA_PROVEEDORValue(const aValue: String); virtual;
procedure SetPROVINCIA_PROVEEDORIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -795,6 +915,30 @@ type
property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
property ID_TIENDA : Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull : Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldID_TIENDAIsNull : Boolean read GetOldID_TIENDAIsNull;
property TIENDA : String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property OldTIENDA : String read GetOldTIENDAValue;
property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull;
property CALLE_PROVEEDOR : String read GetCALLE_PROVEEDORValue write SetCALLE_PROVEEDORValue;
property CALLE_PROVEEDORIsNull : Boolean read GetCALLE_PROVEEDORIsNull write SetCALLE_PROVEEDORIsNull;
property OldCALLE_PROVEEDOR : String read GetOldCALLE_PROVEEDORValue;
property OldCALLE_PROVEEDORIsNull : Boolean read GetOldCALLE_PROVEEDORIsNull;
property POBLACION_PROVEEDOR : String read GetPOBLACION_PROVEEDORValue write SetPOBLACION_PROVEEDORValue;
property POBLACION_PROVEEDORIsNull : Boolean read GetPOBLACION_PROVEEDORIsNull write SetPOBLACION_PROVEEDORIsNull;
property OldPOBLACION_PROVEEDOR : String read GetOldPOBLACION_PROVEEDORValue;
property OldPOBLACION_PROVEEDORIsNull : Boolean read GetOldPOBLACION_PROVEEDORIsNull;
property CODIGO_POSTAL_PROVEEDOR : String read GetCODIGO_POSTAL_PROVEEDORValue write SetCODIGO_POSTAL_PROVEEDORValue;
property CODIGO_POSTAL_PROVEEDORIsNull : Boolean read GetCODIGO_POSTAL_PROVEEDORIsNull write SetCODIGO_POSTAL_PROVEEDORIsNull;
property OldCODIGO_POSTAL_PROVEEDOR : String read GetOldCODIGO_POSTAL_PROVEEDORValue;
property OldCODIGO_POSTAL_PROVEEDORIsNull : Boolean read GetOldCODIGO_POSTAL_PROVEEDORIsNull;
property PROVINCIA_PROVEEDOR : String read GetPROVINCIA_PROVEEDORValue write SetPROVINCIA_PROVEEDORValue;
property PROVINCIA_PROVEEDORIsNull : Boolean read GetPROVINCIA_PROVEEDORIsNull write SetPROVINCIA_PROVEEDORIsNull;
property OldPROVINCIA_PROVEEDOR : String read GetOldPROVINCIA_PROVEEDORValue;
property OldPROVINCIA_PROVEEDORIsNull : Boolean read GetOldPROVINCIA_PROVEEDORIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -804,7 +948,7 @@ type
{ IPagosProveedorDelta } { IPagosProveedorDelta }
IPagosProveedorDelta = interface(IPagosProveedor) IPagosProveedorDelta = interface(IPagosProveedor)
['{0855D721-33C1-4937-B581-332046D7D4A3}'] ['{BF21E199-2B2A-41D2-BA3B-FB5A7E5EBC03}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer; function GetOldID_RECIBOValue : Integer;
@ -1957,6 +2101,192 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvUSUARIO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvUSUARIO] := Null;
end; end;
function TRecibosCompensadosProvBusinessProcessorRules.GetID_TIENDAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_TIENDA];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetID_TIENDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_TIENDA]);
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_TIENDAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_TIENDA];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_TIENDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_TIENDA]);
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_TIENDAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_TIENDA] := aValue;
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_TIENDAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_TIENDA] := Null;
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetTIENDAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvTIENDA];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetTIENDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvTIENDA]);
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldTIENDAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvTIENDA];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldTIENDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvTIENDA]);
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetTIENDAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvTIENDA] := aValue;
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetTIENDAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvTIENDA] := Null;
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetCALLE_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCALLE_PROVEEDOR];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetCALLE_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCALLE_PROVEEDOR]);
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldCALLE_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvCALLE_PROVEEDOR];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldCALLE_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvCALLE_PROVEEDOR]);
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetCALLE_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCALLE_PROVEEDOR] := aValue;
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetCALLE_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCALLE_PROVEEDOR] := Null;
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetPOBLACION_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvPOBLACION_PROVEEDOR];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetPOBLACION_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvPOBLACION_PROVEEDOR]);
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldPOBLACION_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvPOBLACION_PROVEEDOR];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldPOBLACION_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvPOBLACION_PROVEEDOR]);
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetPOBLACION_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvPOBLACION_PROVEEDOR] := aValue;
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetPOBLACION_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvPOBLACION_PROVEEDOR] := Null;
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetCODIGO_POSTAL_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCODIGO_POSTAL_PROVEEDOR];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetCODIGO_POSTAL_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCODIGO_POSTAL_PROVEEDOR]);
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldCODIGO_POSTAL_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvCODIGO_POSTAL_PROVEEDOR];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldCODIGO_POSTAL_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvCODIGO_POSTAL_PROVEEDOR]);
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetCODIGO_POSTAL_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCODIGO_POSTAL_PROVEEDOR] := aValue;
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetCODIGO_POSTAL_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCODIGO_POSTAL_PROVEEDOR] := Null;
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetPROVINCIA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvPROVINCIA_PROVEEDOR];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetPROVINCIA_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvPROVINCIA_PROVEEDOR]);
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldPROVINCIA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvPROVINCIA_PROVEEDOR];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldPROVINCIA_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvPROVINCIA_PROVEEDOR]);
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetPROVINCIA_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvPROVINCIA_PROVEEDOR] := aValue;
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetPROVINCIA_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvPROVINCIA_PROVEEDOR] := Null;
end;
{ TRecibosProveedorBusinessProcessorRules } { TRecibosProveedorBusinessProcessorRules }
constructor TRecibosProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TRecibosProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -2930,6 +3260,192 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorUSUARIO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorUSUARIO] := Null;
end; end;
function TRecibosProveedorBusinessProcessorRules.GetID_TIENDAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_TIENDA];
end;
function TRecibosProveedorBusinessProcessorRules.GetID_TIENDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_TIENDA]);
end;
function TRecibosProveedorBusinessProcessorRules.GetOldID_TIENDAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_TIENDA];
end;
function TRecibosProveedorBusinessProcessorRules.GetOldID_TIENDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_TIENDA]);
end;
procedure TRecibosProveedorBusinessProcessorRules.SetID_TIENDAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_TIENDA] := aValue;
end;
procedure TRecibosProveedorBusinessProcessorRules.SetID_TIENDAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_TIENDA] := Null;
end;
function TRecibosProveedorBusinessProcessorRules.GetTIENDAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorTIENDA];
end;
function TRecibosProveedorBusinessProcessorRules.GetTIENDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorTIENDA]);
end;
function TRecibosProveedorBusinessProcessorRules.GetOldTIENDAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorTIENDA];
end;
function TRecibosProveedorBusinessProcessorRules.GetOldTIENDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorTIENDA]);
end;
procedure TRecibosProveedorBusinessProcessorRules.SetTIENDAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorTIENDA] := aValue;
end;
procedure TRecibosProveedorBusinessProcessorRules.SetTIENDAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorTIENDA] := Null;
end;
function TRecibosProveedorBusinessProcessorRules.GetCALLE_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCALLE_PROVEEDOR];
end;
function TRecibosProveedorBusinessProcessorRules.GetCALLE_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCALLE_PROVEEDOR]);
end;
function TRecibosProveedorBusinessProcessorRules.GetOldCALLE_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorCALLE_PROVEEDOR];
end;
function TRecibosProveedorBusinessProcessorRules.GetOldCALLE_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorCALLE_PROVEEDOR]);
end;
procedure TRecibosProveedorBusinessProcessorRules.SetCALLE_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCALLE_PROVEEDOR] := aValue;
end;
procedure TRecibosProveedorBusinessProcessorRules.SetCALLE_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCALLE_PROVEEDOR] := Null;
end;
function TRecibosProveedorBusinessProcessorRules.GetPOBLACION_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorPOBLACION_PROVEEDOR];
end;
function TRecibosProveedorBusinessProcessorRules.GetPOBLACION_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorPOBLACION_PROVEEDOR]);
end;
function TRecibosProveedorBusinessProcessorRules.GetOldPOBLACION_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorPOBLACION_PROVEEDOR];
end;
function TRecibosProveedorBusinessProcessorRules.GetOldPOBLACION_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorPOBLACION_PROVEEDOR]);
end;
procedure TRecibosProveedorBusinessProcessorRules.SetPOBLACION_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorPOBLACION_PROVEEDOR] := aValue;
end;
procedure TRecibosProveedorBusinessProcessorRules.SetPOBLACION_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorPOBLACION_PROVEEDOR] := Null;
end;
function TRecibosProveedorBusinessProcessorRules.GetCODIGO_POSTAL_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCODIGO_POSTAL_PROVEEDOR];
end;
function TRecibosProveedorBusinessProcessorRules.GetCODIGO_POSTAL_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCODIGO_POSTAL_PROVEEDOR]);
end;
function TRecibosProveedorBusinessProcessorRules.GetOldCODIGO_POSTAL_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorCODIGO_POSTAL_PROVEEDOR];
end;
function TRecibosProveedorBusinessProcessorRules.GetOldCODIGO_POSTAL_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorCODIGO_POSTAL_PROVEEDOR]);
end;
procedure TRecibosProveedorBusinessProcessorRules.SetCODIGO_POSTAL_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCODIGO_POSTAL_PROVEEDOR] := aValue;
end;
procedure TRecibosProveedorBusinessProcessorRules.SetCODIGO_POSTAL_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCODIGO_POSTAL_PROVEEDOR] := Null;
end;
function TRecibosProveedorBusinessProcessorRules.GetPROVINCIA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorPROVINCIA_PROVEEDOR];
end;
function TRecibosProveedorBusinessProcessorRules.GetPROVINCIA_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorPROVINCIA_PROVEEDOR]);
end;
function TRecibosProveedorBusinessProcessorRules.GetOldPROVINCIA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorPROVINCIA_PROVEEDOR];
end;
function TRecibosProveedorBusinessProcessorRules.GetOldPROVINCIA_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorPROVINCIA_PROVEEDOR]);
end;
procedure TRecibosProveedorBusinessProcessorRules.SetPROVINCIA_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorPROVINCIA_PROVEEDOR] := aValue;
end;
procedure TRecibosProveedorBusinessProcessorRules.SetPROVINCIA_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorPROVINCIA_PROVEEDOR] := Null;
end;
{ TPagosProveedorBusinessProcessorRules } { TPagosProveedorBusinessProcessorRules }
constructor TPagosProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TPagosProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

64
Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.pas
View File

@ -41,10 +41,13 @@ type
IBizRecibosProveedor = interface(IRecibosProveedor) IBizRecibosProveedor = interface(IRecibosProveedor)
['{FEE753DF-0471-4754-A86C-58BF615929CF}'] ['{FEE753DF-0471-4754-A86C-58BF615929CF}']
function EsNuevo : Boolean; function EsNuevo : Boolean;
function SinFactura : Boolean;
// No se puede cambiar el Proveedor por que depende de la factura // En Acana se puede cambiar el cliente por que un recibo puede corresponder o no a una factura
procedure SetProveedor(AValue : IBizProveedor);
function GetProveedor : IBizProveedor; function GetProveedor : IBizProveedor;
property Proveedor : IBizProveedor read GetProveedor; property Proveedor : IBizProveedor read GetProveedor write SetProveedor;
// Esta propidad es para que el controlador pueda acceder directamente // Esta propidad es para que el controlador pueda acceder directamente
// a la propiedad Proveedor // a la propiedad Proveedor
@ -71,15 +74,14 @@ type
FProveedor : IBizProveedor; FProveedor : IBizProveedor;
FSeleccionableInterface : ISeleccionable; FSeleccionableInterface : ISeleccionable;
// No se puede cambiar el Proveedor por que depende de la factura // En Acana se puede cambiar el cliente por que un recibo puede corresponder o no a una factura
procedure SetProveedor(AValue : IBizProveedor);
function GetProveedor : IBizProveedor; function GetProveedor : IBizProveedor;
property Proveedor : IBizProveedor read GetProveedor;
// Esta propidad es para que el controlador pueda acceder directamente // Esta propidad es para que el controlador pueda acceder directamente
// a la propiedad Proveedor // a la propiedad Proveedor
procedure _SetProveedor(AValue : IBizProveedor); procedure _SetProveedor(AValue : IBizProveedor);
function _GetProveedor : IBizProveedor; function _GetProveedor : IBizProveedor;
property _Proveedor : IBizProveedor read _GetProveedor write _SetProveedor;
procedure SetPagos(AValue : IBizPagosProveedor); procedure SetPagos(AValue : IBizPagosProveedor);
function GetPagos : IBizPagosProveedor; function GetPagos : IBizPagosProveedor;
@ -88,9 +90,13 @@ type
function GetRecibosCompensados: IBizRecibosCompensadosProv; function GetRecibosCompensados: IBizRecibosCompensadosProv;
procedure SetRecibosCompensados(const Value: IBizRecibosCompensadosProv); procedure SetRecibosCompensados(const Value: IBizRecibosCompensadosProv);
function GetSITUACIONValue: String; override;
procedure SetID_REMESAValue(const aValue: Integer); override; procedure SetID_REMESAValue(const aValue: Integer); override;
public public
property Proveedor : IBizProveedor read GetProveedor write SetProveedor;
property _Proveedor : IBizProveedor read _GetProveedor write _SetProveedor;
property RecibosCompensados: IBizRecibosCompensadosProv read GetRecibosCompensados write SetRecibosCompensados; property RecibosCompensados: IBizRecibosCompensadosProv read GetRecibosCompensados write SetRecibosCompensados;
property Pagos : IBizPagosProveedor read GetPagos write SetPagos; property Pagos : IBizPagosProveedor read GetPagos write SetPagos;
property SeleccionableInterface : ISeleccionable read FSeleccionableInterface property SeleccionableInterface : ISeleccionable read FSeleccionableInterface
@ -99,6 +105,8 @@ type
procedure IniciarValoresIBizRecibosProveedorNuevo; procedure IniciarValoresIBizRecibosProveedorNuevo;
function EsNuevo : Boolean; function EsNuevo : Boolean;
function SinFactura : Boolean;
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override; destructor Destroy; override;
end; end;
@ -108,7 +116,7 @@ implementation
{ TBizRecibosProveedor } { TBizRecibosProveedor }
uses uses
SysUtils, uDataTableUtils, schContactosClient_Intf; SysUtils, DB, uDataTableUtils, schContactosClient_Intf, uFactuGES_App, uBizEmpresasTiendas;
function TBizRecibosProveedor.GetProveedor: IBizProveedor; function TBizRecibosProveedor.GetProveedor: IBizProveedor;
begin begin
@ -120,6 +128,11 @@ begin
Result := FRecibosCompensados; Result := FRecibosCompensados;
end; end;
function TBizRecibosProveedor.GetSITUACIONValue: String;
begin
result := Trim(DataTable.Fields[idx_RecibosProveedorSITUACION].AsString);
end;
function TBizRecibosProveedor.GetPagos: IBizPagosProveedor; function TBizRecibosProveedor.GetPagos: IBizPagosProveedor;
begin begin
Result := FPagos; Result := FPagos;
@ -139,6 +152,37 @@ procedure TBizRecibosProveedor.SetPagos(AValue: IBizPagosProveedor);
EnlazarMaestroDetalle(FPagosLink, FPagos); EnlazarMaestroDetalle(FPagosLink, FPagos);
end; end;
procedure TBizRecibosProveedor.SetProveedor(AValue: IBizProveedor);
var
bEnEdicion : Boolean;
begin
FProveedor := AValue;
bEnEdicion := (DataTable.State in dsEditModes);
if not bEnEdicion then
Edit;
if Assigned(FProveedor) then
begin
if not FProveedor.DataTable.Active then
FProveedor.DataTable.Active := True;
ID_PROVEEDOR := FProveedor.ID;
NOMBRE_PROVEEDOR := FProveedor.NOMBRE;
NIF_CIF_PROVEEDOR := FProveedor.NIF_CIF;
{ CALLE := FCliente.CALLE;
CODIGO_POSTAL := FCliente.CODIGO_POSTAL;
PROVINCIA := FCliente.PROVINCIA;
POBLACION := FCliente.POBLACION;
}
Post;
if bEnEdicion then
Edit;
end
end;
procedure TBizRecibosProveedor.SetRecibosCompensados(const Value: IBizRecibosCompensadosProv); procedure TBizRecibosProveedor.SetRecibosCompensados(const Value: IBizRecibosCompensadosProv);
begin begin
FRecibosCompensados := Value; FRecibosCompensados := Value;
@ -149,6 +193,11 @@ begin
FRecibosCompensados.DataTable.Active := True; FRecibosCompensados.DataTable.Active := True;
end; end;
function TBizRecibosProveedor.SinFactura: Boolean;
begin
Result := ID_FACTURAIsNull;
end;
function TBizRecibosProveedor._GetProveedor: IBizProveedor; function TBizRecibosProveedor._GetProveedor: IBizProveedor;
begin begin
Result := FProveedor; Result := FProveedor;
@ -194,6 +243,9 @@ begin
FECHA_EMISION := Date; FECHA_EMISION := Date;
IMPORTE := 0; IMPORTE := 0;
OTROS_GASTOS := 0; OTROS_GASTOS := 0;
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
USUARIO := AppFactuGES.UsuarioActivo.UserName;
ID_TIENDA := CTE_ID_TODAS;
end; end;
procedure TBizRecibosProveedor.OnNewRecord(Sender: TDADataTable); procedure TBizRecibosProveedor.OnNewRecord(Sender: TDADataTable);

103
Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedorServer.pas Normal file
View File

@ -0,0 +1,103 @@
unit uBizRecibosProveedorServer;
interface
uses
uDAInterfaces, uDADelta, uDABusinessProcessor,
schRecibosProveedorServer_Intf;
const
BIZ_SERVER_RECIBOS_PROVEEDOR = 'Server.RecibosProveedor';
type
TBizRecibosProveedorServer = class(TRecibosProveedorBusinessProcessorRules)
private
FReferenciaAutomatica : Boolean;
function DarReferencia : String;
function IncrementarReferencia : Boolean;
protected
procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override;
procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean); override;
end;
implementation
uses
Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses, uDataModuleServer,
schRecibosProveedorClient_Intf, srvReferencias_Impl;
const
REF_RECIBOS_PROVEEDOR = 'REF_RECIBOS_Proveedor';
{ TBizRecibosProveedorServer }
procedure TBizRecibosProveedorServer.AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean;
var CanRemoveFromDelta: Boolean);
begin
// No hay que quitar los deltas para que los datos del contacto se
// mantengan por si alguna tabla detalle lo necesita
// (por ejemplo, DireccionesContacto)
CanRemoveFromDelta := False;
// Actualizamos el contador de referencias.
case aChange.ChangeType of
ctInsert, ctUpdate: begin
if FReferenciaAutomatica then
begin
IncrementarReferencia;
FReferenciaAutomatica := False;
end;
end;
end;
end;
procedure TBizRecibosProveedorServer.BeforeProcessDelta(
Sender: TDABusinessProcessor; const aDelta: IDADelta);
begin
FReferenciaAutomatica := False;
case Sender.CurrentChange.ChangeType of
ctInsert, ctUpdate: begin
//Si la referencia no ha sido asignada le asignamos una nosotros
if REFERENCIAIsNull or (Length(REFERENCIA) = 0) then
begin
FReferenciaAutomatica := True;
REFERENCIA := DarReferencia;
end;
end;
end;
end;
function TBizRecibosProveedorServer.DarReferencia: String;
var
ATipo : String;
begin
ATipo := REF_RECIBOS_Proveedor;
with TsrvReferencias.Create(NIL) do
try
Result := DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
finally
Free;
end;
end;
function TBizRecibosProveedorServer.IncrementarReferencia: Boolean;
var
ATipo : String;
begin
ATipo := REF_RECIBOS_Proveedor;
with TsrvReferencias.Create(NIL) do
try
Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
finally
Free;
end;
end;
initialization
RegisterBusinessProcessorRules(BIZ_SERVER_RECIBOS_PROVEEDOR, TBizRecibosProveedorServer);
end.

36
Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj
View File

@ -9,7 +9,10 @@
<Projects Include="..\..\Cliente\FactuGES.dproj" /> <Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" /> <Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" /> <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" />
<Projects Include="..\Recibos de cliente\Data\RecibosCliente_data.dproj" /> <Projects Include="..\Recibos de cliente\Data\RecibosCliente_data.dproj" />
<Projects Include="..\Recibos de cliente\Views\RecibosCliente_view.dproj" />
<Projects Include="Controller\RecibosProveedor_controller.dproj" /> <Projects Include="Controller\RecibosProveedor_controller.dproj" />
<Projects Include="Data\RecibosProveedor_data.dproj" /> <Projects Include="Data\RecibosProveedor_data.dproj" />
<Projects Include="Model\RecibosProveedor_model.dproj" /> <Projects Include="Model\RecibosProveedor_model.dproj" />
@ -121,14 +124,41 @@
<Target Name="RecibosCliente_data:Make"> <Target Name="RecibosCliente_data:Make">
<MSBuild Projects="..\Recibos de cliente\Data\RecibosCliente_data.dproj" Targets="Make" /> <MSBuild Projects="..\Recibos de cliente\Data\RecibosCliente_data.dproj" Targets="Make" />
</Target> </Target>
<Target Name="RecibosCliente_view">
<MSBuild Projects="..\Recibos de cliente\Views\RecibosCliente_view.dproj" Targets="" />
</Target>
<Target Name="RecibosCliente_view:Clean">
<MSBuild Projects="..\Recibos de cliente\Views\RecibosCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosCliente_view:Make">
<MSBuild Projects="..\Recibos de cliente\Views\RecibosCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_view">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="" />
</Target>
<Target Name="Contactos_view:Clean">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_view:Make">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" />
</Target>
<Target Name="RecibosCliente_controller">
<MSBuild Projects="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" Targets="" />
</Target>
<Target Name="RecibosCliente_controller:Clean">
<MSBuild Projects="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosCliente_controller:Make">
<MSBuild Projects="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view;RecibosProveedor_plugin;FactuGES;FactuGES_Server;RecibosCliente_data" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view;RecibosProveedor_plugin;FactuGES;FactuGES_Server;RecibosCliente_data;RecibosCliente_view;Contactos_view;RecibosCliente_controller" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean;RecibosProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosCliente_data:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean;RecibosProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosCliente_data:Clean;RecibosCliente_view:Clean;Contactos_view:Clean;RecibosCliente_controller:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make;RecibosProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosCliente_data:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make;RecibosProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosCliente_data:Make;RecibosCliente_view:Make;Contactos_view:Make;RecibosCliente_controller:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

192
Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm
View File

@ -144,6 +144,30 @@ object srvRecibosProveedor: TsrvRecibosProveedor
item item
DatasetField = 'USUARIO' DatasetField = 'USUARIO'
TableField = 'USUARIO' TableField = 'USUARIO'
end
item
DatasetField = 'ID_TIENDA'
TableField = 'ID_TIENDA'
end
item
DatasetField = 'TIENDA'
TableField = 'TIENDA'
end
item
DatasetField = 'CALLE_PROVEEDOR'
TableField = 'CALLE_PROVEEDOR'
end
item
DatasetField = 'POBLACION_PROVEEDOR'
TableField = 'POBLACION_PROVEEDOR'
end
item
DatasetField = 'CODIGO_POSTAL_PROVEEDOR'
TableField = 'CODIGO_POSTAL_PROVEEDOR'
end
item
DatasetField = 'PROVINCIA_PROVEEDOR'
TableField = 'PROVINCIA_PROVEEDOR'
end> end>
end> end>
Name = 'RecibosCompensadosProv' Name = 'RecibosCompensadosProv'
@ -290,6 +314,35 @@ object srvRecibosProveedor: TsrvRecibosProveedor
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString DataType = datString
Size = 30 Size = 30
end
item
Name = 'ID_TIENDA'
DataType = datInteger
end
item
Name = 'TIENDA'
DataType = datString
Size = 255
end
item
Name = 'CALLE_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_PROVEEDOR'
DataType = datString
Size = 10
end
item
Name = 'PROVINCIA_PROVEEDOR'
DataType = datString
Size = 255
end> end>
end end
item item
@ -423,6 +476,30 @@ object srvRecibosProveedor: TsrvRecibosProveedor
item item
DatasetField = 'USUARIO' DatasetField = 'USUARIO'
TableField = 'USUARIO' TableField = 'USUARIO'
end
item
DatasetField = 'ID_TIENDA'
TableField = 'ID_TIENDA'
end
item
DatasetField = 'TIENDA'
TableField = 'TIENDA'
end
item
DatasetField = 'CALLE_PROVEEDOR'
TableField = 'CALLE_PROVEEDOR'
end
item
DatasetField = 'POBLACION_PROVEEDOR'
TableField = 'POBLACION_PROVEEDOR'
end
item
DatasetField = 'CODIGO_POSTAL_PROVEEDOR'
TableField = 'CODIGO_POSTAL_PROVEEDOR'
end
item
DatasetField = 'PROVINCIA_PROVEEDOR'
TableField = 'PROVINCIA_PROVEEDOR'
end> end>
end> end>
Name = 'RecibosProveedor' Name = 'RecibosProveedor'
@ -599,6 +676,35 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DataType = datString DataType = datString
Size = 20 Size = 20
DictionaryEntry = 'RecibosCliente_USUARIO' DictionaryEntry = 'RecibosCliente_USUARIO'
end
item
Name = 'ID_TIENDA'
DataType = datInteger
end
item
Name = 'TIENDA'
DataType = datString
Size = 255
end
item
Name = 'CALLE_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_PROVEEDOR'
DataType = datString
Size = 10
end
item
Name = 'PROVINCIA_PROVEEDOR'
DataType = datString
Size = 255
end> end>
end end
item item
@ -794,84 +900,72 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_RECIBOS_PROVEEDOR_ID' GeneratorName = 'GEN_RECIBOS_PROVEEDOR_ID'
Value = '' Value = ''
ParamType = daptInput end
item
Name = 'ID_EMPRESA'
Value = ''
end
item
Name = 'ID_PROVEEDOR'
Value = ''
end end
item item
Name = 'ID_FACTURA' Name = 'ID_FACTURA'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'REFERENCIA_PROVEEDOR' Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FECHA_EMISION' Name = 'FECHA_EMISION'
DataType = datDateTime
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FECHA_VENCIMIENTO' Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'DESCRIPCION' Name = 'DESCRIPCION'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE' Name = 'IMPORTE'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'OTROS_GASTOS' Name = 'OTROS_GASTOS'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString
Size = 20
Value = '' Value = ''
ParamType = daptInput end
item
Name = 'ID_TIENDA'
Value = ''
end> end>
Statements = < Statements = <
item item
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'RECIBOS_PROVEEDOR' TargetTable = 'RECIBOS_PROVEEDOR'
SQL = SQL =
'INSERT'#10' INTO RECIBOS_PROVEEDOR'#10' (ID, ID_FACTURA, REFERENCIA,' + 'INSERT'#10' INTO RECIBOS_PROVEEDOR'#10' (ID, ID_EMPRESA, ID_PROVEEDO' +
' REFERENCIA_PROVEEDOR, FECHA_EMISION, FECHA_VENCIMIENTO, DESCRIP' + 'R, ID_FACTURA, REFERENCIA, REFERENCIA_PROVEEDOR, FECHA_EMISION, ' +
'CION, OBSERVACIONES,'#10' IMPORTE, OTROS_GASTOS, USUARIO)'#10' VALUE' + 'FECHA_VENCIMIENTO, DESCRIPCION, OBSERVACIONES,'#10' IMPORTE, OTRO' +
'S'#10' (:ID, :ID_FACTURA, :REFERENCIA, :REFERENCIA_PROVEEDOR, :FE' + 'S_GASTOS, USUARIO, ID_TIENDA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :I' +
'CHA_EMISION, :FECHA_VENCIMIENTO, :DESCRIPCION, :OBSERVACIONES,'#10' ' + 'D_PROVEEDOR, :ID_FACTURA, :REFERENCIA, :REFERENCIA_PROVEEDOR, :F' +
' :IMPORTE, :OTROS_GASTOS, :USUARIO)' 'ECHA_EMISION, :FECHA_VENCIMIENTO, :DESCRIPCION, :OBSERVACIONES,'#10 +
' :IMPORTE, :OTROS_GASTOS, :USUARIO, :ID_TIENDA)'#10' '#10' '#10' ' +
' '#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -899,67 +993,47 @@ object srvRecibosProveedor: TsrvRecibosProveedor
Params = < Params = <
item item
Name = 'REFERENCIA_PROVEEDOR' Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FECHA_EMISION' Name = 'FECHA_EMISION'
DataType = datDateTime
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FECHA_VENCIMIENTO' Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'DESCRIPCION' Name = 'DESCRIPCION'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_REMESA' Name = 'ID_REMESA'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE' Name = 'IMPORTE'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'OTROS_GASTOS' Name = 'OTROS_GASTOS'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString
Size = 20
Value = '' Value = ''
ParamType = daptInput end
item
Name = 'ID_TIENDA'
Value = ''
end end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end> end>
Statements = < Statements = <
item item
@ -967,11 +1041,13 @@ object srvRecibosProveedor: TsrvRecibosProveedor
TargetTable = 'RECIBOS_PROVEEDOR' TargetTable = 'RECIBOS_PROVEEDOR'
SQL = SQL =
'UPDATE RECIBOS_PROVEEDOR'#10' SET '#10' REFERENCIA_PROVEEDOR = :REFE' + 'UPDATE RECIBOS_PROVEEDOR'#10' SET '#10' REFERENCIA_PROVEEDOR = :REFE' +
'RENCIA_PROVEEDOR,'#10' FECHA_EMISION = :FECHA_EMISION,'#10' FECHA_' + 'RENCIA_PROVEEDOR,'#10' ID_EMPRESA = :ID_EMPRESA,'#10' ID_PROVEEDOR' +
' = :ID_PROVEEDOR,'#10' FECHA_EMISION = :FECHA_EMISION,'#10' FECHA_' +
'VENCIMIENTO = :FECHA_VENCIMIENTO,'#10' DESCRIPCION = :DESCRIPCION' + 'VENCIMIENTO = :FECHA_VENCIMIENTO,'#10' DESCRIPCION = :DESCRIPCION' +
','#10' OBSERVACIONES = :OBSERVACIONES,'#10' ID_REMESA = :ID_REMESA' + ','#10' OBSERVACIONES = :OBSERVACIONES,'#10' ID_REMESA = :ID_REMESA' +
','#10' IMPORTE = :IMPORTE,'#10' OTROS_GASTOS = :OTROS_GASTOS,'#10' ' + ','#10' IMPORTE = :IMPORTE,'#10' OTROS_GASTOS = :OTROS_GASTOS,'#10' ' +
'USUARIO = :USUARIO'#10' WHERE'#10' (ID = :OLD_ID)' 'USUARIO = :USUARIO,'#10' ID_TIENDA = :ID_TIENDA'#10' WHERE'#10' (ID =' +
' :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

7
Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.pas
View File

@ -10,7 +10,7 @@ unit srvRecibosProveedor_Impl;
interface interface
uses uses
{vcl:} Classes, SysUtils, {vcl:} Classes, SysUtils,
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
{Ancestor Implementation:} DataAbstractService_Impl, {Ancestor Implementation:} DataAbstractService_Impl,
{Used RODLs:} DataAbstract4_Intf, {Used RODLs:} DataAbstract4_Intf,
@ -43,8 +43,8 @@ uses
Dialogs, Dialogs,
{Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils,
schRecibosProveedorClient_Intf, uRestriccionesUsuarioUtils, schRecibosProveedorClient_Intf, uRestriccionesUsuarioUtils,
uBizPagosProveedorServer; uBizPagosProveedorServer, uBizRecibosProveedorServer;
// uRptRecibosProveedor_Server; //, uBizRecibosProveedorServer; // uRptRecibosProveedor_Server;
procedure Create_srvRecibosProveedor(out anInstance : IUnknown); procedure Create_srvRecibosProveedor(out anInstance : IUnknown);
begin begin
@ -69,6 +69,7 @@ end;
procedure TsrvRecibosProveedor.DARemoteServiceCreate(Sender: TObject); procedure TsrvRecibosProveedor.DARemoteServiceCreate(Sender: TObject);
begin begin
SessionManager := dmServer.SessionManager; SessionManager := dmServer.SessionManager;
bpRecibosProveedor.BusinessRulesID := BIZ_SERVER_RECIBOS_PROVEEDOR;
bpPagosProveedor.BusinessRulesID := BIZ_SERVER_PAGOS_PROVEEDOR; bpPagosProveedor.BusinessRulesID := BIZ_SERVER_PAGOS_PROVEEDOR;
end; end;

3
Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dpk
View File

@ -28,7 +28,8 @@ requires
GUIBase, GUIBase,
RecibosProveedor_controller, RecibosProveedor_controller,
RecibosProveedor_model, RecibosProveedor_model,
JvGlobusD11R; JvGlobusD11R,
Contactos_view;
contains contains
uEditorRecibosProveedor in 'uEditorRecibosProveedor.pas' {fEditorRecibosProveedor: TfEditorRecibosCliente}, uEditorRecibosProveedor in 'uEditorRecibosProveedor.pas' {fEditorRecibosProveedor: TfEditorRecibosCliente},

9
Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dproj
View File

@ -46,10 +46,11 @@
<DelphiCompile Include="RecibosProveedor_view.dpk"> <DelphiCompile Include="RecibosProveedor_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\GUIBase.dcp" /> <DCCReference Include="..\..\Lib\Contactos_view.dcp" />
<DCCReference Include="..\JvGlobusD11R.dcp" /> <DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\RecibosProveedor_controller.dcp" /> <DCCReference Include="..\..\Lib\JvGlobusD11R.dcp" />
<DCCReference Include="..\RecibosProveedor_model.dcp" /> <DCCReference Include="..\..\Lib\RecibosProveedor_controller.dcp" />
<DCCReference Include="..\..\Lib\RecibosProveedor_model.dcp" />
<DCCReference Include="uEditorElegirRecibosProveedor.pas"> <DCCReference Include="uEditorElegirRecibosProveedor.pas">
<Form>fEditorElegirRecibosProveedor</Form> <Form>fEditorElegirRecibosProveedor</Form>
<DesignClass>TfEditorElegirRecibosProveedor</DesignClass> <DesignClass>TfEditorElegirRecibosProveedor</DesignClass>

113
Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm
View File

@ -4,7 +4,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
ClientWidth = 691 ClientWidth = 691
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 699 ExplicitWidth = 699
ExplicitHeight = 581 ExplicitHeight = 588
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -51,7 +51,6 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 685 Width = 685
Height = 353 Height = 353
ActivePage = pagPagos
ExplicitLeft = 3 ExplicitLeft = 3
ExplicitTop = 79 ExplicitTop = 79
ExplicitWidth = 685 ExplicitWidth = 685
@ -85,78 +84,48 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
DesignSize = ( DesignSize = (
677 677
350) 350)
inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 50
Width = 50
end
inherited eSituacion: TcxDBTextEdit
ExplicitWidth = 216
Width = 216
end
inherited edtFechaVencimiento: TcxDBDateEdit
ExplicitWidth = 216
Width = 216
end
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
ExplicitWidth = 274 ExplicitWidth = 274
Width = 274 Width = 274
end end
inherited eFechaEmision: TcxDBTextEdit inherited eFechaEmision: TcxDBTextEdit
Left = 428 Left = 481
ExplicitLeft = 428 ExplicitLeft = 481
ExplicitWidth = 20
Width = 20
end end
inherited eFormaPago: TcxDBTextEdit inherited eFormaPago: TcxDBTextEdit
Left = 428 Left = 481
ExplicitLeft = 428 ExplicitLeft = 481
ExplicitWidth = 42
Width = 42
end end
inherited eImporteTotal: TcxDBCurrencyEdit inherited eImporteTotal: TcxDBCurrencyEdit
Left = 428 Left = 481
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 428 ExplicitLeft = 481
ExplicitWidth = 182
Width = 182
end end
inherited eNombreCliente: TcxDBTextEdit inherited eNombreCliente: TcxDBTextEdit
Left = 428 Left = 481
ExplicitLeft = 428 ExplicitLeft = 481
ExplicitWidth = 171
Width = 171
end end
inherited eNifCif: TcxDBTextEdit inherited eNifCif: TcxDBTextEdit
Left = 428 Left = 481
ExplicitLeft = 428 ExplicitLeft = 481
ExplicitWidth = 255 ExplicitWidth = 255
Width = 255 Width = 255
end end
inherited eEntidad: TcxDBTextEdit inherited eEntidad: TcxDBTextEdit
Left = 428 Left = 481
ExplicitLeft = 428 ExplicitLeft = 481
ExplicitWidth = 90
Width = 90
end end
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
Left = 540 Left = 556
ExplicitLeft = 540 ExplicitLeft = 556
ExplicitWidth = 75
Width = 75
end end
inherited eDC: TcxDBTextEdit inherited eDC: TcxDBTextEdit
Left = 622 Left = 605
ExplicitLeft = 622 ExplicitLeft = 605
end end
inherited eCuenta: TcxDBTextEdit inherited eCuenta: TcxDBTextEdit
Left = 428 Left = 481
ExplicitLeft = 428 ExplicitLeft = 481
ExplicitWidth = 83
Width = 83
end
inherited eRemesa: TcxDBTextEdit
ExplicitWidth = 113
Width = 113
end end
inherited edtFechaEmision: TcxDBDateEdit inherited edtFechaEmision: TcxDBDateEdit
ExplicitWidth = 97 ExplicitWidth = 97
@ -167,12 +136,24 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
Width = 129 Width = 129
end end
inherited rReferenciaFacturaProv: TcxDBTextEdit inherited rReferenciaFacturaProv: TcxDBTextEdit
Left = 428 Left = 481
ExplicitLeft = 428 ExplicitLeft = 481
end end
inherited rRefReciboCompensado: TcxDBTextEdit inherited frViewProveedorRecibo: TfrViewDatosYSeleccionProveedor
ExplicitWidth = 216 Left = 384
Width = 216 Top = 299
ExplicitLeft = 384
ExplicitTop = 299
inherited dxLayoutControl1: TdxLayoutControl
inherited edtCodigoPostal: TcxDBTextEdit
Left = 203
ExplicitLeft = 203
end
inherited Button3: TBitBtn
Left = 87
ExplicitLeft = 87
end
end
end end
end end
end end
@ -274,28 +255,16 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
Width = 677 Width = 677
ExplicitWidth = 677 ExplicitWidth = 677
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
Top = 0 ExplicitWidth = 113
ExplicitTop = 0
end end
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
Top = 0 ExplicitWidth = 113
ExplicitTop = 0
end
inherited ToolButton5: TToolButton
Top = 0
ExplicitTop = 0
end end
inherited ToolButton2: TToolButton inherited ToolButton2: TToolButton
Top = 0 ExplicitWidth = 113
ExplicitTop = 0
end
inherited ToolButton6: TToolButton
Top = 0
ExplicitTop = 0
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Top = 0 ExplicitWidth = 113
ExplicitTop = 0
end end
inherited ToolButton3: TToolButton inherited ToolButton3: TToolButton
Top = 0 Top = 0
@ -343,8 +312,6 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
inherited eImporte: TcxDBCurrencyEdit inherited eImporte: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Properties.OnEditValueChanged = frViewReciboProvImportes1eImportePropertiesEditValueChanged Properties.OnEditValueChanged = frViewReciboProvImportes1eImportePropertiesEditValueChanged
ExplicitWidth = 150
Width = 150
end end
inherited eOtrosGastos: TcxDBCurrencyEdit inherited eOtrosGastos: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable

78
Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas
View File

@ -62,6 +62,7 @@ type
procedure GuardarInterno; override; procedure GuardarInterno; override;
procedure PonerTitulos(const ATitulo: string = ''); override; procedure PonerTitulos(const ATitulo: string = ''); override;
procedure OnProveedorChanged(Sender: TObject);
public public
property Recibo: IBizRecibosProveedor read GetRecibo write SetRecibo; property Recibo: IBizRecibosProveedor read GetRecibo write SetRecibo;
@ -91,6 +92,9 @@ begin
inherited; inherited;
FImporteRestante := 0; FImporteRestante := 0;
pgPaginas.ActivePageIndex := 0; pgPaginas.ActivePageIndex := 0;
//RECIBOS COMPENSADOS DESHABILITADOS
pagCompensados.TabVisible := False;
ViewRecibo := frViewReciboProveedor1; ViewRecibo := frViewReciboProveedor1;
end; end;
@ -134,13 +138,40 @@ begin
end; end;
procedure TfEditorReciboProveedor.frViewPagosProveedor1actAnadirExecute(Sender: TObject); procedure TfEditorReciboProveedor.frViewPagosProveedor1actAnadirExecute(Sender: TObject);
var
AFechaPago: String;
AIgnorarContabilidad: Integer;
ASubCuenta: Integer;
begin begin
inherited; inherited;
//En el caso de haber añadido el pago del recibo ya no podremos modificarlo if (Length(Recibo.REFERENCIA_REMESA) = 0) or
if FController.AnadirPago(Recibo) then (Application.MessageBox(PChar('Este recibo está remesado en la remesa de referencia ' + Recibo.REFERENCIA_REMESA + '.' + #10#13 + 'Si añade una devolución, el recibo quedará libre y podrá ser incluido en otra remesa diferente.' + #10#13 + '¿Desea continuar?'), 'Atención', MB_YESNO) = IDYES) then
begin
with TfEditorFechaPagoProveedor.Create(Nil) do
begin
if (ShowModal = mrOk) then
begin
AFechaPago := DateToStr(FechaPago);
AIgnorarContabilidad := IgnorarContabilidad;
ASubCuenta := IdSubcuenta;
Release;
end
else
begin
//Operación cancelada
Release;
exit;
end;
end;
end;
FController.AnadirPago(Recibo, AFechaPago, AIgnorarContabilidad, ASubCuenta);
//Solo podremos modificar el recibo si esta pendiente o devuelto
if (Recibo.SITUACION = CTE_PAGADO) then
DeshabilitarRecibo DeshabilitarRecibo
//Podremos modificar si anulamos el pago mediante una devolución
else else
HabilitarRecibo; HabilitarRecibo;
end; end;
@ -174,9 +205,35 @@ begin
end; end;
procedure TfEditorReciboProveedor.frViewPagosProveedor1actModificarExecute(Sender: TObject); procedure TfEditorReciboProveedor.frViewPagosProveedor1actModificarExecute(Sender: TObject);
var
AFechaPago: String;
AIgnorarContabilidad: Integer;
ASubCuenta: Integer;
begin begin
inherited; inherited;
FController.ModificarPago(Recibo);
with TfEditorFechaPagoProveedor.Create(Nil) do
begin
FechaPago := Recibo.Pagos.FECHA_PAGO;
IgnorarContabilidad := Recibo.Pagos.IGNORAR_CONTABILIDAD;
if (ShowModal = mrOk) then
begin
AFechaPago := DateToStr(FechaPago);
AIgnorarContabilidad := IgnorarContabilidad;
ASubCuenta := IdSubcuenta;
Release;
end
else
begin
//Operación cancelada
Release;
exit;
end;
end;
FController.ModificarPago(Recibo, AFechaPago, AIgnorarContabilidad, ASubCuenta);
end; end;
procedure TfEditorReciboProveedor.frViewPagosProveedor1actModificarUpdate(Sender: TObject); procedure TfEditorReciboProveedor.frViewPagosProveedor1actModificarUpdate(Sender: TObject);
@ -265,6 +322,11 @@ begin
frViewPagosProveedor1.ListaPagosProveedor.ActiveView.StoreToRegistry(JvAppRegistryStorage.Root); frViewPagosProveedor1.ListaPagosProveedor.ActiveView.StoreToRegistry(JvAppRegistryStorage.Root);
end; end;
procedure TfEditorReciboProveedor.OnProveedorChanged(Sender: TObject);
begin
FRecibo.Proveedor := frViewReciboProveedor1.frViewProveedorRecibo.Proveedor;
end;
procedure TfEditorReciboProveedor.PonerTitulos(const ATitulo: string); procedure TfEditorReciboProveedor.PonerTitulos(const ATitulo: string);
var var
FTitulo : String; FTitulo : String;
@ -299,9 +361,10 @@ procedure TfEditorReciboProveedor.SetController(const Value: IRecibosProveedorCo
begin begin
FController := Value; FController := Value;
if Assigned(FController) then if Assigned(FController) then
begin
frViewRecibosProvCompensados1.Controller := FController; frViewRecibosProvCompensados1.Controller := FController;
(ViewRecibo as IViewReciboProveedor).Controller := (FController as IRecibosProveedorController);
// (ViewRecibo as IViewReciboProveedor).Controller := (FController as IRecibosProveedorController); end;
end; end;
procedure TfEditorReciboProveedor.SetRecibo(const Value: IBizRecibosProveedor); procedure TfEditorReciboProveedor.SetRecibo(const Value: IBizRecibosProveedor);
@ -312,6 +375,9 @@ begin
if Assigned(FViewRecibo) and Assigned(Recibo) then if Assigned(FViewRecibo) and Assigned(Recibo) then
begin begin
FViewRecibo.Recibo := Recibo; FViewRecibo.Recibo := Recibo;
frViewReciboProveedor1.frViewProveedorRecibo.Proveedor := FRecibo.Proveedor;
frViewReciboProveedor1.frViewProveedorRecibo.OnProveedorChanged := OnProveedorChanged;
frViewPagosProveedor1.Pagos := Recibo.Pagos; frViewPagosProveedor1.Pagos := Recibo.Pagos;
frViewRecibosProvCompensados1.ReciboProveedor := FRecibo; frViewRecibosProvCompensados1.ReciboProveedor := FRecibo;

11
Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm
View File

@ -2,9 +2,8 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
Caption = 'Lista de recibos de proveedor' Caption = 'Lista de recibos de proveedor'
ClientHeight = 664 ClientHeight = 664
ClientWidth = 638 ClientWidth = 638
ExplicitTop = -134
ExplicitWidth = 646 ExplicitWidth = 646
ExplicitHeight = 691 ExplicitHeight = 698
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -42,7 +41,7 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
Width = 638 Width = 638
ExplicitWidth = 638 ExplicitWidth = 638
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 276 ExplicitWidth = 403
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 638 ExplicitWidth = 638
@ -175,13 +174,7 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
Left = 136 Left = 136
Top = 176 Top = 176
inherited actNuevo: TAction inherited actNuevo: TAction
Enabled = False
ImageIndex = 22 ImageIndex = 22
Visible = False
end
inherited actEliminar: TAction
Enabled = False
Visible = False
end end
inherited actPrevisualizar: TAction inherited actPrevisualizar: TAction
Enabled = False Enabled = False

BIN
Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.pas
View File

Binary file not shown.

194
Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm
View File

@ -1,21 +1,21 @@
inherited frViewReciboProveedor: TfrViewReciboProveedor inherited frViewReciboProveedor: TfrViewReciboProveedor
Width = 618 Width = 985
Height = 342 Height = 553
ExplicitWidth = 618 ExplicitWidth = 985
ExplicitHeight = 342 ExplicitHeight = 553
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 618 Width = 985
Height = 342 Height = 553
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
DesignSize = ( DesignSize = (
618 985
342) 553)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 136 Left = 136
Top = 30 Top = 30
@ -92,7 +92,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 22 Left = 22
Top = 267 Top = 365
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -104,12 +104,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7 TabOrder = 9
Height = 49 Height = 49
Width = 274 Width = 300
end end
object eFechaEmision: TcxDBTextEdit object eFechaEmision: TcxDBTextEdit
Left = 439 Left = 764
Top = 57 Top = 57
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_FACTURA' DataBinding.DataField = 'FECHA_FACTURA'
@ -131,11 +131,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9 TabOrder = 11
Width = 20 Width = 20
end end
object eFormaPago: TcxDBTextEdit object eFormaPago: TcxDBTextEdit
Left = 439 Left = 764
Top = 84 Top = 84
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FORMA_PAGO_FACTURA' DataBinding.DataField = 'FORMA_PAGO_FACTURA'
@ -157,11 +157,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10 TabOrder = 12
Width = 42 Width = 42
end end
object eImporteTotal: TcxDBCurrencyEdit object eImporteTotal: TcxDBCurrencyEdit
Left = 439 Left = 764
Top = 111 Top = 111
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_FACTURA' DataBinding.DataField = 'IMPORTE_FACTURA'
@ -188,12 +188,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11 TabOrder = 13
Height = 21 Height = 21
Width = 182 Width = 182
end end
object eNombreCliente: TcxDBTextEdit object eNombreCliente: TcxDBTextEdit
Left = 439 Left = 764
Top = 194 Top = 194
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NOMBRE_PROVEEDOR' DataBinding.DataField = 'NOMBRE_PROVEEDOR'
@ -215,11 +215,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 13 TabOrder = 15
Width = 171 Width = 171
end end
object eNifCif: TcxDBTextEdit object eNifCif: TcxDBTextEdit
Left = 439 Left = 764
Top = 167 Top = 167
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NIF_CIF_PROVEEDOR' DataBinding.DataField = 'NIF_CIF_PROVEEDOR'
@ -241,11 +241,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12 TabOrder = 14
Width = 147 Width = 147
end end
object eEntidad: TcxDBTextEdit object eEntidad: TcxDBTextEdit
Left = 439 Left = 764
Top = 221 Top = 221
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'ENTIDAD_PROVEEDOR' DataBinding.DataField = 'ENTIDAD_PROVEEDOR'
@ -267,11 +267,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 14 TabOrder = 16
Width = 90 Width = 90
end end
object eSucursal: TcxDBTextEdit object eSucursal: TcxDBTextEdit
Left = 514 Left = 859
Top = 221 Top = 221
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'SUCURSAL_PROVEEDOR' DataBinding.DataField = 'SUCURSAL_PROVEEDOR'
@ -293,11 +293,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 15 TabOrder = 17
Width = 75 Width = 75
end end
object eDC: TcxDBTextEdit object eDC: TcxDBTextEdit
Left = 563 Left = 930
Top = 221 Top = 221
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'DC_PROVEEDOR' DataBinding.DataField = 'DC_PROVEEDOR'
@ -319,11 +319,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 16 TabOrder = 18
Width = 33 Width = 33
end end
object eCuenta: TcxDBTextEdit object eCuenta: TcxDBTextEdit
Left = 439 Left = 764
Top = 248 Top = 248
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'CUENTA_PROVEEDOR' DataBinding.DataField = 'CUENTA_PROVEEDOR'
@ -345,7 +345,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 17 TabOrder = 19
Width = 83 Width = 83
end end
object eRemesa: TcxDBTextEdit object eRemesa: TcxDBTextEdit
@ -424,7 +424,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Width = 287 Width = 287
end end
object rReferenciaFacturaProv: TcxDBTextEdit object rReferenciaFacturaProv: TcxDBTextEdit
Left = 439 Left = 764
Top = 30 Top = 30
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_FACTURA_PROV' DataBinding.DataField = 'REFERENCIA_FACTURA_PROV'
@ -446,12 +446,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8 TabOrder = 10
Width = 157 Width = 157
end end
object rRefReciboCompensado: TcxDBTextEdit object rRefReciboCompensado: TcxDBTextEdit
Left = 136 Left = 136
Top = 216 Top = 243
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_REC_COMPENSADO' DataBinding.DataField = 'REFERENCIA_REC_COMPENSADO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -472,9 +472,108 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6 TabOrder = 7
Width = 216 Width = 216
end end
inline frViewProveedorRecibo: TfrViewDatosYSeleccionProveedor
Left = 667
Top = 312
Width = 350
Height = 202
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 20
ReadOnly = False
ExplicitLeft = 667
ExplicitTop = 312
inherited dxLayoutControl1: TdxLayoutControl
ExplicitWidth = 296
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
end
inherited edtCalle: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
end
inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 177
Width = 177
end
inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 327
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 204
ExplicitLeft = 204
end
inherited Button3: TBitBtn
Left = 88
ExplicitLeft = 88
end
end
end
inline frViewTienda1: TfrViewTienda
Left = 136
Top = 294
Width = 451
Height = 41
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 8
ReadOnly = False
ExplicitLeft = 136
ExplicitTop = 294
inherited dxLayoutControl1: TdxLayoutControl
ExplicitWidth = 503
inherited cbTienda: TcxComboBox
Left = 10
ExplicitLeft = 10
ExplicitWidth = 376
Width = 376
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Item1: TdxLayoutItem
Caption = ''
end
end
end
end
object eDescripcion: TcxDBTextEdit
Left = 136
Top = 192
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'DESCRIPCION'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
Width = 407
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -527,15 +626,30 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Control = eRemesa Control = eRemesa
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item18: TdxLayoutItem
Caption = 'Descripcion:'
Control = eDescripcion
ControlOptions.ShowBorder = False
end
end end
object dxLayoutControl1Group9: TdxLayoutGroup object dxLayoutControl1Group9: TdxLayoutGroup
Caption = 'Compensado en recibo' Caption = 'Compensado en recibo'
Visible = False
object dxLayoutControl1Item4: TdxLayoutItem object dxLayoutControl1Item4: TdxLayoutItem
Caption = 'Ref. recibo:' Caption = 'Ref. recibo:'
Control = rRefReciboCompensado Control = rRefReciboCompensado
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Group3: TdxLayoutGroup
Caption = 'El recibo pertenece a la tienda'
object dxLayoutControl1Item17: TdxLayoutItem
Caption = 'Tienda:'
Control = frViewTienda1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group7: TdxLayoutGroup object dxLayoutControl1Group7: TdxLayoutGroup
Caption = 'Observaciones' Caption = 'Observaciones'
object dxLayoutControl1Item5: TdxLayoutItem object dxLayoutControl1Item5: TdxLayoutItem
@ -554,7 +668,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Caption = 'New Group' Caption = 'New Group'
ShowCaption = False ShowCaption = False
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group5: TdxLayoutGroup object dxLayoutControlFactura: TdxLayoutGroup
Caption = 'Datos de la factura' Caption = 'Datos de la factura'
object dxLayoutControl1Item21: TdxLayoutItem object dxLayoutControl1Item21: TdxLayoutItem
Caption = 'Ref. factura prov.:' Caption = 'Ref. factura prov.:'
@ -581,7 +695,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Group6: TdxLayoutGroup object dxLayoutControlProveedor: TdxLayoutGroup
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
Caption = 'Datos del proveedor' Caption = 'Datos del proveedor'
@ -636,6 +750,16 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
end end
end end
end end
object dxLayoutControlProveedorModif: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient
Caption = 'Datos del proveedor'
object dxLayoutControl1Item6: TdxLayoutItem
Control = frViewProveedorRecibo
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
end end
end end
end end

56
Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas
View File

@ -7,11 +7,15 @@ uses
Dialogs, uViewBase, uBizRecibosProveedor, DB, uDADataTable, dxLayoutControl, Dialogs, uViewBase, uBizRecibosProveedor, DB, uDADataTable, dxLayoutControl,
cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit, cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit,
cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls, cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls,
uDAInterfaces; uDAInterfaces, uCustomView, uViewDatosYSeleccionProveedor, uRecibosProveedorController, uViewTienda;
type type
IViewReciboProveedor = interface(IViewBase) IViewReciboProveedor = interface(IViewBase)
['{3EDDAF2C-2A99-43AE-8DBB-3AC300660D94}'] ['{3EDDAF2C-2A99-43AE-8DBB-3AC300660D94}']
function GetController : IRecibosProveedorController;
procedure SetController (const Value : IRecibosProveedorController);
property Controller : IRecibosProveedorController read GetController write SetController;
function GetRecibo: IBizRecibosProveedor; function GetRecibo: IBizRecibosProveedor;
procedure SetRecibo(const Value: IBizRecibosProveedor); procedure SetRecibo(const Value: IBizRecibosProveedor);
property Recibo: IBizRecibosProveedor read GetRecibo write SetRecibo; property Recibo: IBizRecibosProveedor read GetRecibo write SetRecibo;
@ -37,7 +41,7 @@ type
eFormaPago: TcxDBTextEdit; eFormaPago: TcxDBTextEdit;
dxLayoutControl1Item9: TdxLayoutItem; dxLayoutControl1Item9: TdxLayoutItem;
eImporteTotal: TcxDBCurrencyEdit; eImporteTotal: TcxDBCurrencyEdit;
dxLayoutControl1Group5: TdxLayoutGroup; dxLayoutControlFactura: TdxLayoutGroup;
dxLayoutControl1Item10: TdxLayoutItem; dxLayoutControl1Item10: TdxLayoutItem;
eNombreCliente: TcxDBTextEdit; eNombreCliente: TcxDBTextEdit;
dxLayoutControl1Item11: TdxLayoutItem; dxLayoutControl1Item11: TdxLayoutItem;
@ -50,7 +54,7 @@ type
eDC: TcxDBTextEdit; eDC: TcxDBTextEdit;
dxLayoutControl1Item15: TdxLayoutItem; dxLayoutControl1Item15: TdxLayoutItem;
eCuenta: TcxDBTextEdit; eCuenta: TcxDBTextEdit;
dxLayoutControl1Group6: TdxLayoutGroup; dxLayoutControlProveedor: TdxLayoutGroup;
dxLayoutControl1Group8: TdxLayoutGroup; dxLayoutControl1Group8: TdxLayoutGroup;
dxLayoutControl1Item16: TdxLayoutItem; dxLayoutControl1Item16: TdxLayoutItem;
eRemesa: TcxDBTextEdit; eRemesa: TcxDBTextEdit;
@ -69,12 +73,25 @@ type
rReferenciaFacturaProv: TcxDBTextEdit; rReferenciaFacturaProv: TcxDBTextEdit;
dxLayoutControl1Item4: TdxLayoutItem; dxLayoutControl1Item4: TdxLayoutItem;
rRefReciboCompensado: TcxDBTextEdit; rRefReciboCompensado: TcxDBTextEdit;
dxLayoutControl1Item6: TdxLayoutItem;
frViewProveedorRecibo: TfrViewDatosYSeleccionProveedor;
dxLayoutControlProveedorModif: TdxLayoutGroup;
dxLayoutControl1Item17: TdxLayoutItem;
frViewTienda1: TfrViewTienda;
dxLayoutControl1Group3: TdxLayoutGroup;
dxLayoutControl1Item18: TdxLayoutItem;
eDescripcion: TcxDBTextEdit;
private private
FRecibo : IBizRecibosProveedor; FRecibo : IBizRecibosProveedor;
FController : IRecibosProveedorController;
function GetRecibo: IBizRecibosProveedor; function GetRecibo: IBizRecibosProveedor;
procedure SetRecibo(const Value: IBizRecibosProveedor); procedure SetRecibo(const Value: IBizRecibosProveedor);
function GetController : IRecibosProveedorController;
procedure SetController (const Value : IRecibosProveedorController);
public public
property Recibo: IBizRecibosProveedor read GetRecibo write SetRecibo; property Recibo: IBizRecibosProveedor read GetRecibo write SetRecibo;
property Controller : IRecibosProveedorController read GetController write SetController;
end; end;
var var
@ -86,16 +103,47 @@ implementation
{ TfrViewReciboProveedor } { TfrViewReciboProveedor }
function TfrViewReciboProveedor.GetController: IRecibosProveedorController;
begin
Result := FController;
end;
function TfrViewReciboProveedor.GetRecibo: IBizRecibosProveedor; function TfrViewReciboProveedor.GetRecibo: IBizRecibosProveedor;
begin begin
Result := FRecibo; Result := FRecibo;
end; end;
procedure TfrViewReciboProveedor.SetController(const Value: IRecibosProveedorController);
begin
FController := Value;
if Assigned(FController) then
frViewProveedorRecibo.Controller := FController.ProveedorController;
end;
procedure TfrViewReciboProveedor.SetRecibo(const Value: IBizRecibosProveedor); procedure TfrViewReciboProveedor.SetRecibo(const Value: IBizRecibosProveedor);
begin begin
FRecibo := Value; FRecibo := Value;
//Por defecto
dxLayoutControlFactura.Visible := true;
dxLayoutControlProveedor.Visible := true;
dxLayoutControlProveedorModif.Visible := false;
eDescripcion.Enabled := False;
if Assigned(FRecibo) then if Assigned(FRecibo) then
DADataSource.DataTable := FRecibo.DataTable begin
DADataSource.DataTable := FRecibo.DataTable;
frViewTienda1.DataItem := FRecibo.DataTable;
if FRecibo.SinFactura then
begin
dxLayoutControlFactura.Visible := false;
dxLayoutControlProveedor.Visible := false;
dxLayoutControlProveedorModif.Visible := true;
eDescripcion.Enabled := True;
end;
end
else else
DADataSource.DataTable := NIL; DADataSource.DataTable := NIL;
end; end;

14
Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm
View File

@ -51,11 +51,15 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn
Caption = 'Compensado' Caption = 'Compensado'
DataBinding.FieldName = 'ID_RECIBO_COMPENSADO' DataBinding.FieldName = 'ID_RECIBO_COMPENSADO'
Visible = False
OnCustomDrawCell = cxGridViewID_RECIBO_COMPENSADOCustomDrawCell OnCustomDrawCell = cxGridViewID_RECIBO_COMPENSADOCustomDrawCell
VisibleForCustomization = False
end end
object cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn object cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn
Caption = 'Ref. recibo compensado' Caption = 'Ref. recibo compensado'
DataBinding.FieldName = 'REFERENCIA_REC_COMPENSADO' DataBinding.FieldName = 'REFERENCIA_REC_COMPENSADO'
Visible = False
VisibleForCustomization = False
end end
object cxGridViewREFERENCIA_FACTURA_PROV: TcxGridDBColumn object cxGridViewREFERENCIA_FACTURA_PROV: TcxGridDBColumn
Caption = 'Ref. factura prov.' Caption = 'Ref. factura prov.'
@ -160,7 +164,17 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 531 Width = 531
ExplicitWidth = 531 ExplicitWidth = 531
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 234
ExplicitLeft = 234
ExplicitWidth = 273 ExplicitWidth = 273
Width = 273 Width = 273
end end

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

11
Source/Servidor/FactuGES_Server.dpr
View File

@ -87,8 +87,6 @@ uses
schUnidadesMedidaClient_Intf in '..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas', schUnidadesMedidaClient_Intf in '..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas',
schUnidadesMedidaServer_Intf in '..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas', schUnidadesMedidaServer_Intf in '..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas',
uBizPagosProveedorServer in '..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas', uBizPagosProveedorServer in '..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
uRptFichasEmpleado_Server in '..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas' {RptFichasEmpleado: TDataModule}, uRptFichasEmpleado_Server in '..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas' {RptFichasEmpleado: TDataModule},
uRptEtiquetasContacto_Server in '..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas' {RptEtiquetasContacto: TDataModule}, uRptEtiquetasContacto_Server in '..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas' {RptEtiquetasContacto: TDataModule},
uRptFacturasCliente_Server in '..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas' {RptFacturasCliente: TDataModule}, uRptFacturasCliente_Server in '..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas' {RptFacturasCliente: TDataModule},
@ -106,8 +104,6 @@ uses
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
uBizRecibosClienteServer in '..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas', uBizRecibosClienteServer in '..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas', schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas', schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
srvTiposVenta_Impl in '..\Modulos\Tipos de venta\Servidor\srvTiposVenta_Impl.pas' {srvTiposVenta: TDataAbstractService}, srvTiposVenta_Impl in '..\Modulos\Tipos de venta\Servidor\srvTiposVenta_Impl.pas' {srvTiposVenta: TDataAbstractService},
@ -118,7 +114,12 @@ uses
schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas', schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas',
schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas', schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas'; schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
uBizRecibosProveedorServer in '..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

1
Source/Servidor/FactuGES_Server.dproj
View File

@ -169,6 +169,7 @@
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form> <Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.0.0.0\0" VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0" VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "miércoles, 12 de marzo de 2008 18:59\0" VALUE "CompileDate", "viernes, 14 de marzo de 2008 11:32\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"