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
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@170 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
27bb8897ae
commit
e56234c002
@ -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)"
|
||||
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 Name="BuildReplicador"
|
||||
|
||||
@ -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 NAMES ISO8859_1;
|
||||
|
||||
CREATE DATABASE 'C:\Codigo Acana\Output\Debug\Database\FACTUGES.FDB'
|
||||
USER 'SYSDBA' PASSWORD 'masterkey'
|
||||
CREATE DATABASE 'FACTUGES.FDB'
|
||||
PAGE_SIZE 4096
|
||||
DEFAULT CHARACTER SET ISO8859_1;
|
||||
|
||||
@ -87,10 +86,10 @@ CREATE GENERATOR GEN_AGENTES_COMISIONES_ID;
|
||||
SET GENERATOR GEN_AGENTES_COMISIONES_ID TO 1;
|
||||
|
||||
CREATE GENERATOR GEN_ALBARANES_CLI_DETALLES_ID;
|
||||
SET GENERATOR GEN_ALBARANES_CLI_DETALLES_ID TO 19;
|
||||
SET GENERATOR GEN_ALBARANES_CLI_DETALLES_ID TO 1;
|
||||
|
||||
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;
|
||||
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;
|
||||
|
||||
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;
|
||||
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;
|
||||
|
||||
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;
|
||||
SET GENERATOR GEN_CONT_APUNTES_ID TO 226;
|
||||
SET GENERATOR GEN_CONT_APUNTES_ID TO 65;
|
||||
|
||||
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;
|
||||
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;
|
||||
|
||||
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;
|
||||
SET GENERATOR GEN_CONT_EJERCICIOS_ID TO 2;
|
||||
SET GENERATOR GEN_CONT_EJERCICIOS_ID TO 3;
|
||||
|
||||
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;
|
||||
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;
|
||||
SET GENERATOR GEN_EMPLEADOS_GRUPOS_ID TO 1;
|
||||
|
||||
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;
|
||||
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;
|
||||
|
||||
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;
|
||||
SET GENERATOR GEN_FACTURAS_PROVEEDOR_ID TO 1;
|
||||
SET GENERATOR GEN_FACTURAS_PROVEEDOR_ID TO 11;
|
||||
|
||||
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;
|
||||
SET GENERATOR GEN_FACTURA_PROV_DETALLES_ID TO 1;
|
||||
SET GENERATOR GEN_FACTURA_PROV_DETALLES_ID TO 26;
|
||||
|
||||
CREATE GENERATOR GEN_FAMILIAS_ID;
|
||||
SET GENERATOR GEN_FAMILIAS_ID TO 1;
|
||||
|
||||
CREATE GENERATOR GEN_FORMAS_PAGO_ID;
|
||||
SET GENERATOR GEN_FORMAS_PAGO_ID TO 4;
|
||||
SET GENERATOR GEN_FORMAS_PAGO_ID TO 7;
|
||||
|
||||
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;
|
||||
SET GENERATOR GEN_INFORMES_ID TO 11;
|
||||
@ -204,7 +206,7 @@ CREATE GENERATOR GEN_MOVIMIENTOS_ID;
|
||||
SET GENERATOR GEN_MOVIMIENTOS_ID TO 1;
|
||||
|
||||
CREATE GENERATOR GEN_PAGOS_CLIENTE_ID;
|
||||
SET GENERATOR GEN_PAGOS_CLIENTE_ID TO 35;
|
||||
SET GENERATOR GEN_PAGOS_CLIENTE_ID TO 2;
|
||||
|
||||
CREATE GENERATOR GEN_PAGOS_PROVEEDOR_ID;
|
||||
SET GENERATOR GEN_PAGOS_PROVEEDOR_ID TO 1;
|
||||
@ -228,22 +230,22 @@ CREATE GENERATOR GEN_PERMISOS_ID;
|
||||
SET GENERATOR GEN_PERMISOS_ID TO 1;
|
||||
|
||||
CREATE GENERATOR GEN_PRESUPUESTOS_CLI_DETALLE_ID;
|
||||
SET GENERATOR GEN_PRESUPUESTOS_CLI_DETALLE_ID TO 3;
|
||||
SET GENERATOR GEN_PRESUPUESTOS_CLI_DETALLE_ID TO 1;
|
||||
|
||||
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;
|
||||
SET GENERATOR GEN_PROVEEDORES_GRUPOS_ID TO 1;
|
||||
|
||||
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;
|
||||
SET GENERATOR GEN_RECIBOS_PROVEEDOR_ID TO 1;
|
||||
SET GENERATOR GEN_RECIBOS_PROVEEDOR_ID TO 10;
|
||||
|
||||
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;
|
||||
SET GENERATOR GEN_REMESAS_PROVEEDOR_ID TO 1;
|
||||
@ -301,7 +303,8 @@ END^
|
||||
|
||||
|
||||
CREATE PROCEDURE PROC_NEW_ASIENTO_FACTURA_PROV (
|
||||
IDFACTURA INTEGER)
|
||||
IDFACTURA INTEGER,
|
||||
ID_SUBCUENTA_COMPRA INTEGER)
|
||||
AS
|
||||
BEGIN
|
||||
EXIT;
|
||||
@ -864,8 +867,7 @@ CREATE TABLE FACTURAS_CLIENTE (
|
||||
RECARGO_EQUIVALENCIA TIPO_BOOLEANO,
|
||||
ID_COMISION_LIQUIDADA TIPO_ID,
|
||||
IGNORAR_CONTABILIDAD SMALLINT,
|
||||
ID_TIENDA TIPO_ID,
|
||||
ID_TIPOVENTA TIPO_ID
|
||||
ID_TIENDA TIPO_ID
|
||||
);
|
||||
|
||||
CREATE TABLE FACTURAS_CLIENTE_DETALLES (
|
||||
@ -1223,6 +1225,8 @@ CREATE TABLE RECIBOS_CLIENTE (
|
||||
|
||||
CREATE TABLE RECIBOS_PROVEEDOR (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_EMPRESA TIPO_ID,
|
||||
ID_PROVEEDOR TIPO_ID,
|
||||
ID_FACTURA TIPO_ID,
|
||||
REFERENCIA VARCHAR(255),
|
||||
REFERENCIA_PROVEEDOR VARCHAR(255),
|
||||
@ -1236,7 +1240,8 @@ CREATE TABLE RECIBOS_PROVEEDOR (
|
||||
FECHA_MODIFICACION DATE,
|
||||
USUARIO TIPO_USUARIO,
|
||||
ID_REMESA TIPO_ID,
|
||||
ID_RECIBO_COMPENSADO INTEGER
|
||||
ID_RECIBO_COMPENSADO INTEGER,
|
||||
ID_TIENDA TIPO_ID
|
||||
);
|
||||
|
||||
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 */
|
||||
CREATE VIEW V_CONT_SUBCUENTAS_SALDO(
|
||||
ID_SUBCUENTA,
|
||||
@ -2316,49 +2342,55 @@ CREATE VIEW V_FACTURAS_PROVEEDOR(
|
||||
IMPORTE_PORTE,
|
||||
IGNORAR_CONTABILIDAD,
|
||||
ID_TIENDA,
|
||||
TIENDA)
|
||||
TIENDA,
|
||||
ID_SUBCUENTA,
|
||||
SUBCUENTA)
|
||||
AS
|
||||
SELECT FACTURAS_PROVEEDOR.ID,
|
||||
FACTURAS_PROVEEDOR.ID_EMPRESA,
|
||||
FACTURAS_PROVEEDOR.REFERENCIA,
|
||||
CASE WHEN (FACTURAS_PROVEEDOR.IMPORTE_TOTAL < 0) THEN 'A' ELSE 'F' END AS TIPO,
|
||||
FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR,
|
||||
FACTURAS_PROVEEDOR.FECHA_FACTURA,
|
||||
TRIM(V_FAC_PRO_SITUACION.SITUACION),
|
||||
FACTURAS_PROVEEDOR.BASE_IMPONIBLE,
|
||||
FACTURAS_PROVEEDOR.DESCUENTO,
|
||||
FACTURAS_PROVEEDOR.IMPORTE_DESCUENTO,
|
||||
FACTURAS_PROVEEDOR.IVA,
|
||||
FACTURAS_PROVEEDOR.IMPORTE_IVA,
|
||||
FACTURAS_PROVEEDOR.RE,
|
||||
FACTURAS_PROVEEDOR.IMPORTE_RE,
|
||||
FACTURAS_PROVEEDOR.IMPORTE_TOTAL,
|
||||
FACTURAS_PROVEEDOR.OBSERVACIONES,
|
||||
FACTURAS_PROVEEDOR.ID_PROVEEDOR,
|
||||
FACTURAS_PROVEEDOR.NIF_CIF,
|
||||
FACTURAS_PROVEEDOR.NOMBRE,
|
||||
FACTURAS_PROVEEDOR.CALLE,
|
||||
FACTURAS_PROVEEDOR.POBLACION,
|
||||
FACTURAS_PROVEEDOR.PROVINCIA,
|
||||
FACTURAS_PROVEEDOR.CODIGO_POSTAL,
|
||||
FACTURAS_PROVEEDOR.FECHA_ALTA,
|
||||
FACTURAS_PROVEEDOR.FECHA_MODIFICACION,
|
||||
FACTURAS_PROVEEDOR.USUARIO,
|
||||
FACTURAS_PROVEEDOR.ID_FORMA_PAGO,
|
||||
FACTURAS_PROVEEDOR.RECARGO_EQUIVALENCIA,
|
||||
FACTURAS_PROVEEDOR.ID_TIPO_IVA,
|
||||
FACTURAS_PROVEEDOR.IMPORTE_NETO,
|
||||
FACTURAS_PROVEEDOR.IMPORTE_PORTE,
|
||||
FACTURAS_PROVEEDOR.IGNORAR_CONTABILIDAD,
|
||||
FACTURAS_PROVEEDOR.ID_TIENDA,
|
||||
EMPRESAS_TIENDAS.NOMBRE AS TIENDA
|
||||
FROM V_FAC_PRO_SITUACION
|
||||
LEFT JOIN FACTURAS_PROVEEDOR
|
||||
ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA)
|
||||
LEFT JOIN PROVEEDORES_DATOS
|
||||
ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR)
|
||||
LEFT JOIN EMPRESAS_TIENDAS
|
||||
SELECT FACTURAS_PROVEEDOR.ID,
|
||||
FACTURAS_PROVEEDOR.ID_EMPRESA,
|
||||
FACTURAS_PROVEEDOR.REFERENCIA,
|
||||
CASE WHEN (FACTURAS_PROVEEDOR.IMPORTE_TOTAL < 0) THEN 'A' ELSE 'F' END AS TIPO,
|
||||
FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR,
|
||||
FACTURAS_PROVEEDOR.FECHA_FACTURA,
|
||||
TRIM(V_FAC_PRO_SITUACION.SITUACION),
|
||||
FACTURAS_PROVEEDOR.BASE_IMPONIBLE,
|
||||
FACTURAS_PROVEEDOR.DESCUENTO,
|
||||
FACTURAS_PROVEEDOR.IMPORTE_DESCUENTO,
|
||||
FACTURAS_PROVEEDOR.IVA,
|
||||
FACTURAS_PROVEEDOR.IMPORTE_IVA,
|
||||
FACTURAS_PROVEEDOR.RE,
|
||||
FACTURAS_PROVEEDOR.IMPORTE_RE,
|
||||
FACTURAS_PROVEEDOR.IMPORTE_TOTAL,
|
||||
FACTURAS_PROVEEDOR.OBSERVACIONES,
|
||||
FACTURAS_PROVEEDOR.ID_PROVEEDOR,
|
||||
FACTURAS_PROVEEDOR.NIF_CIF,
|
||||
FACTURAS_PROVEEDOR.NOMBRE,
|
||||
FACTURAS_PROVEEDOR.CALLE,
|
||||
FACTURAS_PROVEEDOR.POBLACION,
|
||||
FACTURAS_PROVEEDOR.PROVINCIA,
|
||||
FACTURAS_PROVEEDOR.CODIGO_POSTAL,
|
||||
FACTURAS_PROVEEDOR.FECHA_ALTA,
|
||||
FACTURAS_PROVEEDOR.FECHA_MODIFICACION,
|
||||
FACTURAS_PROVEEDOR.USUARIO,
|
||||
FACTURAS_PROVEEDOR.ID_FORMA_PAGO,
|
||||
FACTURAS_PROVEEDOR.RECARGO_EQUIVALENCIA,
|
||||
FACTURAS_PROVEEDOR.ID_TIPO_IVA,
|
||||
FACTURAS_PROVEEDOR.IMPORTE_NETO,
|
||||
FACTURAS_PROVEEDOR.IMPORTE_PORTE,
|
||||
FACTURAS_PROVEEDOR.IGNORAR_CONTABILIDAD,
|
||||
FACTURAS_PROVEEDOR.ID_TIENDA,
|
||||
COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA,
|
||||
V_CONT_FAC_PRO_COMPRAS.ID_SUBCUENTA,
|
||||
V_CONT_FAC_PRO_COMPRAS.SUBCUENTA
|
||||
|
||||
FROM V_FAC_PRO_SITUACION
|
||||
LEFT JOIN FACTURAS_PROVEEDOR
|
||||
ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA)
|
||||
LEFT JOIN PROVEEDORES_DATOS
|
||||
ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR)
|
||||
LEFT JOIN EMPRESAS_TIENDAS
|
||||
ON (EMPRESAS_TIENDAS.ID = FACTURAS_PROVEEDOR.ID_TIENDA)
|
||||
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,
|
||||
FECHA_ALTA,
|
||||
FECHA_MODIFICACION,
|
||||
USUARIO)
|
||||
USUARIO,
|
||||
ID_TIENDA,
|
||||
TIENDA,
|
||||
CALLE_PROVEEDOR,
|
||||
POBLACION_PROVEEDOR,
|
||||
CODIGO_POSTAL_PROVEEDOR,
|
||||
PROVINCIA_PROVEEDOR)
|
||||
AS
|
||||
SELECT RECIBOS_PROVEEDOR.ID,
|
||||
RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO,
|
||||
RECIBO_COMPENSADO1.REFERENCIA,
|
||||
RECIBOS_PROVEEDOR.REFERENCIA,
|
||||
RECIBOS_PROVEEDOR.REFERENCIA_PROVEEDOR,
|
||||
CASE
|
||||
WHEN RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO IS NULL
|
||||
THEN TRIM(V_REC_PRO_SITUACION.SITUACION)
|
||||
ELSE TRIM(RECIBO_COMPENSADO2.SITUACION)
|
||||
END,
|
||||
RECIBOS_PROVEEDOR.ID_FACTURA,
|
||||
RECIBOS_PROVEEDOR.ID_REMESA, REMESAS_PROVEEDOR.REFERENCIA as REFERENCIA_REMESA,
|
||||
RECIBOS_PROVEEDOR.FECHA_EMISION, RECIBOS_PROVEEDOR.FECHA_VENCIMIENTO, RECIBOS_PROVEEDOR.DESCRIPCION,
|
||||
RECIBOS_PROVEEDOR.OBSERVACIONES, RECIBOS_PROVEEDOR.IMPORTE, RECIBOS_PROVEEDOR.OTROS_GASTOS,
|
||||
COALESCE(RECIBOS_PROVEEDOR.IMPORTE, 0) + COALESCE(RECIBOS_PROVEEDOR.OTROS_GASTOS, 0) + COALESCE(V_REC_PRO_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO, 0),
|
||||
|
||||
FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR, FACTURAS_PROVEEDOR.FECHA_FACTURA,
|
||||
FORMAS_PAGO.DESCRIPCION, FACTURAS_PROVEEDOR.IMPORTE_TOTAL,
|
||||
FACTURAS_PROVEEDOR.ID_EMPRESA,
|
||||
|
||||
CONTACTOS.ID as ID_PROVEEDOR, CONTACTOS.NOMBRE, CONTACTOS.NIF_CIF, CONTACTOS_DATOS_BANCO.ENTIDAD,
|
||||
CONTACTOS_DATOS_BANCO.SUCURSAL, CONTACTOS_DATOS_BANCO.DC, CONTACTOS_DATOS_BANCO.CUENTA,
|
||||
|
||||
RECIBOS_PROVEEDOR.FECHA_ALTA,
|
||||
RECIBOS_PROVEEDOR.FECHA_MODIFICACION,
|
||||
RECIBOS_PROVEEDOR.USUARIO
|
||||
|
||||
FROM RECIBOS_PROVEEDOR
|
||||
LEFT JOIN V_REC_PRO_SITUACION
|
||||
ON (V_REC_PRO_SITUACION.ID_RECIBO = RECIBOS_PROVEEDOR.ID)
|
||||
LEFT JOIN FACTURAS_PROVEEDOR
|
||||
ON (FACTURAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_FACTURA)
|
||||
LEFT JOIN FORMAS_PAGO
|
||||
ON (FORMAS_PAGO.ID = FACTURAS_PROVEEDOR.ID_FORMA_PAGO)
|
||||
LEFT JOIN CONTACTOS
|
||||
ON (CONTACTOS.ID = FACTURAS_PROVEEDOR.ID_PROVEEDOR)
|
||||
LEFT JOIN CONTACTOS_DATOS_BANCO
|
||||
ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = CONTACTOS.ID)
|
||||
LEFT JOIN REMESAS_PROVEEDOR
|
||||
ON (REMESAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_REMESA)
|
||||
LEFT JOIN V_REC_PRO_COMPENSADOS
|
||||
ON (V_REC_PRO_COMPENSADOS.ID_RECIBO = RECIBOS_PROVEEDOR.ID)
|
||||
LEFT JOIN RECIBOS_PROVEEDOR RECIBO_COMPENSADO1
|
||||
ON (RECIBO_COMPENSADO1.ID = RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO)
|
||||
LEFT JOIN V_REC_PRO_SITUACION RECIBO_COMPENSADO2
|
||||
SELECT RECIBOS_PROVEEDOR.ID,
|
||||
RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO,
|
||||
RECIBO_COMPENSADO1.REFERENCIA,
|
||||
RECIBOS_PROVEEDOR.REFERENCIA,
|
||||
RECIBOS_PROVEEDOR.REFERENCIA_PROVEEDOR,
|
||||
CASE
|
||||
WHEN RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO IS NULL
|
||||
THEN TRIM(V_REC_PRO_SITUACION.SITUACION)
|
||||
ELSE TRIM(RECIBO_COMPENSADO2.SITUACION)
|
||||
END,
|
||||
RECIBOS_PROVEEDOR.ID_FACTURA,
|
||||
RECIBOS_PROVEEDOR.ID_REMESA, REMESAS_PROVEEDOR.REFERENCIA as REFERENCIA_REMESA,
|
||||
RECIBOS_PROVEEDOR.FECHA_EMISION, RECIBOS_PROVEEDOR.FECHA_VENCIMIENTO, RECIBOS_PROVEEDOR.DESCRIPCION,
|
||||
RECIBOS_PROVEEDOR.OBSERVACIONES, RECIBOS_PROVEEDOR.IMPORTE, RECIBOS_PROVEEDOR.OTROS_GASTOS,
|
||||
COALESCE(RECIBOS_PROVEEDOR.IMPORTE, 0) + COALESCE(RECIBOS_PROVEEDOR.OTROS_GASTOS, 0) + COALESCE(V_REC_PRO_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO, 0),
|
||||
|
||||
FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR, FACTURAS_PROVEEDOR.FECHA_FACTURA,
|
||||
FORMAS_PAGO.DESCRIPCION, FACTURAS_PROVEEDOR.IMPORTE_TOTAL,
|
||||
RECIBOS_PROVEEDOR.ID_EMPRESA,
|
||||
|
||||
CONTACTOS.ID as ID_PROVEEDOR, CONTACTOS.NOMBRE, CONTACTOS.NIF_CIF, CONTACTOS_DATOS_BANCO.ENTIDAD,
|
||||
CONTACTOS_DATOS_BANCO.SUCURSAL, CONTACTOS_DATOS_BANCO.DC, CONTACTOS_DATOS_BANCO.CUENTA,
|
||||
|
||||
RECIBOS_PROVEEDOR.FECHA_ALTA,
|
||||
RECIBOS_PROVEEDOR.FECHA_MODIFICACION,
|
||||
RECIBOS_PROVEEDOR.USUARIO,
|
||||
RECIBOS_PROVEEDOR.ID_TIENDA,
|
||||
COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA,
|
||||
CONTACTOS.CALLE,
|
||||
CONTACTOS.POBLACION,
|
||||
CONTACTOS.CODIGO_POSTAL,
|
||||
CONTACTOS.PROVINCIA
|
||||
|
||||
|
||||
FROM RECIBOS_PROVEEDOR
|
||||
LEFT JOIN V_REC_PRO_SITUACION
|
||||
ON (V_REC_PRO_SITUACION.ID_RECIBO = RECIBOS_PROVEEDOR.ID)
|
||||
LEFT JOIN FACTURAS_PROVEEDOR
|
||||
ON (FACTURAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_FACTURA)
|
||||
LEFT JOIN FORMAS_PAGO
|
||||
ON (FORMAS_PAGO.ID = FACTURAS_PROVEEDOR.ID_FORMA_PAGO)
|
||||
LEFT JOIN CONTACTOS
|
||||
ON (CONTACTOS.ID = RECIBOS_PROVEEDOR.ID_PROVEEDOR)
|
||||
LEFT JOIN CONTACTOS_DATOS_BANCO
|
||||
ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = CONTACTOS.ID)
|
||||
LEFT JOIN REMESAS_PROVEEDOR
|
||||
ON (REMESAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_REMESA)
|
||||
LEFT JOIN V_REC_PRO_COMPENSADOS
|
||||
ON (V_REC_PRO_COMPENSADOS.ID_RECIBO = RECIBOS_PROVEEDOR.ID)
|
||||
LEFT JOIN RECIBOS_PROVEEDOR RECIBO_COMPENSADO1
|
||||
ON (RECIBO_COMPENSADO1.ID = RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO)
|
||||
LEFT JOIN V_REC_PRO_SITUACION RECIBO_COMPENSADO2
|
||||
ON (RECIBO_COMPENSADO2.ID_RECIBO = RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO)
|
||||
LEFT JOIN EMPRESAS_TIENDAS
|
||||
ON (EMPRESAS_TIENDAS.ID = RECIBOS_PROVEEDOR.ID_TIENDA)
|
||||
;
|
||||
|
||||
|
||||
@ -3598,9 +3645,6 @@ FROM
|
||||
ORDER BY USERNAME
|
||||
;
|
||||
|
||||
|
||||
|
||||
|
||||
/******************************************************************************/
|
||||
/**** Primary Keys ****/
|
||||
/******************************************************************************/
|
||||
@ -3940,13 +3984,6 @@ begin
|
||||
|
||||
IF (BASEIMPONIBLE <> 0) THEN
|
||||
BEGIN
|
||||
/*
|
||||
SELECT CONT_SUBCUENTAS.ID FROM CONT_SUBCUENTAS
|
||||
LEFT JOIN CONT_CUENTAS ON (CONT_CUENTAS.ID = CONT_SUBCUENTAS.ID_CUENTA)
|
||||
WHERE CONT_CUENTAS.REF_CUENTA = '700'
|
||||
AND CONT_SUBCUENTAS.ID_EJERCICIO = :IDEJERCICIO
|
||||
INTO :IDSUBCUENTA;
|
||||
*/
|
||||
IF (IMPORTETOTAL < 0) THEN
|
||||
BEGIN
|
||||
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 (
|
||||
IDFACTURA INTEGER)
|
||||
IDFACTURA INTEGER,
|
||||
ID_SUBCUENTA_COMPRA INTEGER)
|
||||
AS
|
||||
declare variable ignorarcontabilidad integer;
|
||||
declare variable referenciafactura varchar(255);
|
||||
@ -4025,50 +4063,80 @@ begin
|
||||
VALUES (:IDASIENTO, :FECHAFACTURA, :ORDEN, :IDFACTURA, 'p');
|
||||
END
|
||||
|
||||
/*INSERTAMOS LOS APUNTES*/
|
||||
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
|
||||
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, 'FACTURA DE PROVEEDOR',
|
||||
:REFERENCIAFACTURA, NULL, :IMPORTETOTAL);
|
||||
IF (IMPORTETOTAL < 0) THEN
|
||||
BEGIN
|
||||
/*INSERTAMOS LOS APUNTES DEL ABONO*/
|
||||
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
|
||||
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, 'Abono de 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
|
||||
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 = '472'
|
||||
WHERE CONT_CUENTAS.REF_CUENTA = 472
|
||||
AND CONT_SUBCUENTAS.ID_EJERCICIO = :IDEJERCICIO
|
||||
INTO :IDSUBCUENTA;
|
||||
|
||||
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
|
||||
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 2, 'IVA FACTURA DE PROVEEDOR',
|
||||
:REFERENCIAFACTURA, :IMPORTEIVA, NULL);
|
||||
IF (IMPORTETOTAL < 0) THEN
|
||||
BEGIN
|
||||
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
|
||||
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 2, 'Abono de 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
|
||||
|
||||
IF (IMPORTERE <> 0) THEN
|
||||
BEGIN
|
||||
SELECT CONT_SUBCUENTAS.ID FROM CONT_SUBCUENTAS
|
||||
LEFT JOIN CONT_CUENTAS ON (CONT_CUENTAS.ID = CONT_SUBCUENTAS.ID_CUENTA)
|
||||
WHERE CONT_CUENTAS.REF_CUENTA = '470'
|
||||
WHERE CONT_CUENTAS.REF_CUENTA = 470
|
||||
AND CONT_SUBCUENTAS.ID_EJERCICIO = :IDEJERCICIO
|
||||
INTO :IDSUBCUENTA;
|
||||
|
||||
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
|
||||
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 3, 'RE FACTURA DE PROVEEDOR',
|
||||
:REFERENCIAFACTURA, :IMPORTERE, NULL);
|
||||
IF (IMPORTETOTAL < 0) THEN
|
||||
BEGIN
|
||||
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
|
||||
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 3, 'Abono de 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
|
||||
|
||||
IF (BASEIMPONIBLE <> 0) THEN
|
||||
BEGIN
|
||||
SELECT CONT_SUBCUENTAS.ID FROM CONT_SUBCUENTAS
|
||||
LEFT JOIN CONT_CUENTAS ON (CONT_CUENTAS.ID = CONT_SUBCUENTAS.ID_CUENTA)
|
||||
WHERE CONT_CUENTAS.REF_CUENTA = '600'
|
||||
AND CONT_SUBCUENTAS.ID_EJERCICIO = :IDEJERCICIO
|
||||
INTO :IDSUBCUENTA;
|
||||
|
||||
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
|
||||
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 4, 'BASE IMPONIBLE FACTURA DE PROVEEDOR',
|
||||
:REFERENCIAFACTURA, :BASEIMPONIBLE, NULL);
|
||||
IF (IMPORTETOTAL < 0) THEN
|
||||
BEGIN
|
||||
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
|
||||
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :ID_SUBCUENTA_COMPRA, 4, 'Abono de proveedor: ' || :REFERENCIAFACTURA || ' (Base imponible)',
|
||||
:REFERENCIAFACTURA, NULL, -1*(:BASEIMPONIBLE));
|
||||
END
|
||||
ELSE
|
||||
BEGIN
|
||||
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER)
|
||||
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :ID_SUBCUENTA_COMPRA, 4, 'Factura de proveedor: ' || :REFERENCIAFACTURA || ' (Base imponible)',
|
||||
:REFERENCIAFACTURA, :BASEIMPONIBLE, NULL);
|
||||
END
|
||||
END
|
||||
|
||||
END
|
||||
suspend;
|
||||
end
|
||||
@ -4432,16 +4500,6 @@ end
|
||||
SET TERM ; ^
|
||||
|
||||
|
||||
/******************************************************************************/
|
||||
/**** Descriptions ****/
|
||||
/******************************************************************************/
|
||||
|
||||
|
||||
|
||||
/* Fields descriptions */
|
||||
|
||||
DESCRIBE FIELD TIPO TABLE CONT_ASIENTOS
|
||||
'Tipo de asiento
|
||||
''c'' cliente
|
||||
''p'' proveedor';
|
||||
|
||||
|
||||
@ -2,6 +2,16 @@ SET SQL DIALECT 3;
|
||||
|
||||
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 (2, 'PROVEEDOR');
|
||||
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;
|
||||
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 (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');
|
||||
@ -36,32 +45,44 @@ INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESC
|
||||
SET GENERATOR GEN_INFORMES_ID TO 11;
|
||||
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;
|
||||
|
||||
|
||||
|
||||
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 (3, 'IVA7', 'IVA7', 7, 1);
|
||||
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;
|
||||
COMMIT WORK;
|
||||
|
||||
@ -78,13 +99,6 @@ INSERT INTO UNIDADES_MEDIDA (ID, DESCRIPCION) VALUES (10, 'PAQUETE');
|
||||
SET GENERATOR GEN_UNIDADES_MEDIDA_ID TO 11;
|
||||
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 (2, 'Baño', '02');
|
||||
INSERT INTO TIPOS_VENTA (ID, DESCRIPCION, CODIGO_CONTABLE) VALUES (3, 'Armarios', '03');
|
||||
|
||||
1282
Database/scripts/factuges_sysdata_plan_general_contable_acana.sql
Normal file
1282
Database/scripts/factuges_sysdata_plan_general_contable_acana.sql
Normal file
File diff suppressed because it is too large
Load Diff
@ -44,13 +44,6 @@
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<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>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<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\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
||||
@ -65,48 +58,48 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</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="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">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
@ -77,17 +77,6 @@ begin
|
||||
try
|
||||
AClientesController := TClientesController.Create;
|
||||
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);
|
||||
finally
|
||||
AClientes := Nil;
|
||||
|
||||
@ -7,7 +7,6 @@ inherited fEditorContacto: TfEditorContacto
|
||||
ClientWidth = 632
|
||||
Scaled = False
|
||||
ExplicitWidth = 640
|
||||
ExplicitHeight = 488
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
@ -78,12 +77,12 @@ inherited fEditorContacto: TfEditorContacto
|
||||
ExplicitLeft = 3
|
||||
ExplicitTop = 79
|
||||
ExplicitWidth = 626
|
||||
ExplicitHeight = 360
|
||||
ExplicitHeight = 358
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 618
|
||||
ExplicitHeight = 332
|
||||
ExplicitHeight = 330
|
||||
end
|
||||
object pagDatosBancarios: TTabSheet
|
||||
Caption = 'Datos bancarios'
|
||||
@ -92,7 +91,7 @@ inherited fEditorContacto: TfEditorContacto
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 618
|
||||
Height = 332
|
||||
Height = 330
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -103,7 +102,7 @@ inherited fEditorContacto: TfEditorContacto
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 618
|
||||
ExplicitHeight = 332
|
||||
ExplicitHeight = 330
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 618
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||
|
||||
@ -64,13 +64,7 @@ begin
|
||||
if not Assigned(Contactos) then
|
||||
raise Exception.Create('No hay ningún contacto asignado');
|
||||
|
||||
// ViewGrid._Grid.BeginUpdate;
|
||||
// Contactos.DataTable.DisableControls;
|
||||
//Contactos.DataTable.DisableEventHandlers;
|
||||
// Contactos.DataTable.Active := True;
|
||||
//Contactos.DataTable.EnableEventHandlers;
|
||||
// Contactos.DataTable.EnableControls;
|
||||
// ViewGrid._Grid.EndUpdate;
|
||||
Contactos.DataTable.Active := True;
|
||||
ViewGrid.GotoFirst;
|
||||
end;
|
||||
|
||||
|
||||
@ -15,6 +15,7 @@
|
||||
<Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
|
||||
<Projects Include="..\Contactos\Controller\Contactos_controller.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\Model\TiposVenta_model.dproj" />
|
||||
<Projects Include="..\Tipos de venta\Views\TiposVenta_view.dproj" />
|
||||
@ -201,14 +202,23 @@
|
||||
<Target Name="Contabilidad_view:Make">
|
||||
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" />
|
||||
</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">
|
||||
<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 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 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>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -98,7 +98,7 @@ begin
|
||||
|
||||
with TsrvReferencias.Create(NIL) do
|
||||
try
|
||||
Result := DarNuevaReferencia(ATipo, ID_EMPRESA)
|
||||
Result := DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
|
||||
@ -170,8 +170,6 @@ begin
|
||||
end;
|
||||
|
||||
function TRecibosClienteController.AnadirPago(ARecibosCliente: IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad: Integer = 1; ASubCuenta: Integer = 0): Boolean;
|
||||
var
|
||||
AEditor : IEditorFechaPago;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
|
||||
@ -482,6 +482,35 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
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>
|
||||
Params = <>
|
||||
MasterMappingMode = mmWhere
|
||||
|
||||
@ -9,9 +9,9 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_RecibosCliente = '{91CA9E3C-BE22-44DB-A0E9-AE7277D5F2C3}';
|
||||
RID_PagosCliente = '{48EEDB2E-4FAD-4E9D-8894-1C4FB7AFEAF7}';
|
||||
RID_RecibosCompensadosCli = '{2C3B8C04-214A-4671-BC94-B23432C7C64A}';
|
||||
RID_RecibosCliente = '{9D876D5E-A906-4836-9CD6-7F2790A82FFE}';
|
||||
RID_PagosCliente = '{8C1E660A-951D-4529-A191-A7FD95238D8D}';
|
||||
RID_RecibosCompensadosCli = '{C04A1186-43EC-42DC-BAF7-8FA8DBBD503E}';
|
||||
|
||||
{ Data table names }
|
||||
nme_RecibosCliente = 'RecibosCliente';
|
||||
@ -152,6 +152,12 @@ const
|
||||
fld_RecibosCompensadosCliFECHA_ALTA = 'FECHA_ALTA';
|
||||
fld_RecibosCompensadosCliFECHA_MODIFICACION = 'FECHA_MODIFICACION';
|
||||
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 }
|
||||
idx_RecibosCompensadosCliID = 0;
|
||||
@ -183,11 +189,17 @@ const
|
||||
idx_RecibosCompensadosCliFECHA_ALTA = 26;
|
||||
idx_RecibosCompensadosCliFECHA_MODIFICACION = 27;
|
||||
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
|
||||
{ IRecibosCliente }
|
||||
IRecibosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{25116AB8-EA3C-435E-9B0A-FC5ED921649F}']
|
||||
['{CDD4FB91-F7FE-4197-9573-C8BFF711A1E5}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -630,7 +642,7 @@ type
|
||||
|
||||
{ IPagosCliente }
|
||||
IPagosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{8AF523A8-91F6-4D75-B589-B3BCCA79EA44}']
|
||||
['{FAD77A47-7E68-40C4-932C-9ACB417BE572}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -809,7 +821,7 @@ type
|
||||
|
||||
{ IRecibosCompensadosCli }
|
||||
IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
|
||||
['{7CECD5C0-F95A-489B-9C0C-26CD6BC05208}']
|
||||
['{5CD2C006-BC87-45F8-A501-F59FC5ABB7A6}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -927,6 +939,30 @@ type
|
||||
procedure SetUSUARIOValue(const aValue: String);
|
||||
function GetUSUARIOIsNull: 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 }
|
||||
@ -988,6 +1024,18 @@ type
|
||||
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
|
||||
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
||||
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;
|
||||
|
||||
{ TRecibosCompensadosCliDataTableRules }
|
||||
@ -1111,6 +1159,30 @@ type
|
||||
procedure SetUSUARIOValue(const aValue: String); virtual;
|
||||
function GetUSUARIOIsNull: 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 }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -1171,6 +1243,18 @@ type
|
||||
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
|
||||
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
||||
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
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -2834,6 +2918,132 @@ begin
|
||||
DataTable.Fields[idx_RecibosCompensadosCliUSUARIO].AsVariant := Null;
|
||||
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
|
||||
RegisterDataTableRules(RID_RecibosCliente, TRecibosClienteDataTableRules);
|
||||
|
||||
@ -9,14 +9,14 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_RecibosClienteDelta = '{D1DBED73-ADE4-40B1-A9A0-91CD4EC447F8}';
|
||||
RID_PagosClienteDelta = '{DF4CEE8D-E9A4-44D7-9932-177455BDC2E1}';
|
||||
RID_RecibosCompensadosCliDelta = '{A88C5F91-7C18-4D89-90BE-196929D75E71}';
|
||||
RID_RecibosClienteDelta = '{3B5E6810-7B21-4881-A614-7F6875FDF51E}';
|
||||
RID_PagosClienteDelta = '{0176E856-FFB0-45DB-B513-08CC489BBD1A}';
|
||||
RID_RecibosCompensadosCliDelta = '{0EB879D1-ECF1-41EF-8A76-5C738183AB40}';
|
||||
|
||||
type
|
||||
{ IRecibosClienteDelta }
|
||||
IRecibosClienteDelta = interface(IRecibosCliente)
|
||||
['{D1DBED73-ADE4-40B1-A9A0-91CD4EC447F8}']
|
||||
['{3B5E6810-7B21-4881-A614-7F6875FDF51E}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_RECIBO_COMPENSADOValue : Integer;
|
||||
@ -458,7 +458,7 @@ type
|
||||
|
||||
{ IPagosClienteDelta }
|
||||
IPagosClienteDelta = interface(IPagosCliente)
|
||||
['{DF4CEE8D-E9A4-44D7-9932-177455BDC2E1}']
|
||||
['{0176E856-FFB0-45DB-B513-08CC489BBD1A}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_RECIBOValue : Integer;
|
||||
@ -636,7 +636,7 @@ type
|
||||
|
||||
{ IRecibosCompensadosCliDelta }
|
||||
IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
|
||||
['{A88C5F91-7C18-4D89-90BE-196929D75E71}']
|
||||
['{0EB879D1-ECF1-41EF-8A76-5C738183AB40}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_RECIBO_COMPENSADOValue : Integer;
|
||||
@ -667,6 +667,12 @@ type
|
||||
function GetOldFECHA_ALTAValue : DateTime;
|
||||
function GetOldFECHA_MODIFICACIONValue : DateTime;
|
||||
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 }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -698,6 +704,12 @@ type
|
||||
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
||||
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
||||
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;
|
||||
|
||||
{ TRecibosCompensadosCliBusinessProcessorRules }
|
||||
@ -879,6 +891,42 @@ type
|
||||
function GetOldUSUARIOIsNull: Boolean; virtual;
|
||||
procedure SetUSUARIOValue(const aValue: String); 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 }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -997,6 +1045,30 @@ type
|
||||
property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
|
||||
property OldUSUARIO : String read GetOldUSUARIOValue;
|
||||
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
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -3431,6 +3503,192 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliUSUARIO] := Null;
|
||||
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
|
||||
RegisterBusinessProcessorRules(RID_RecibosClienteDelta, TRecibosClienteBusinessProcessorRules);
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -244,7 +244,6 @@ begin
|
||||
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
|
||||
USUARIO := AppFactuGES.UsuarioActivo.UserName;
|
||||
ID_TIENDA := CTE_ID_TODAS;
|
||||
// TIENDA := CTE_TODAS;
|
||||
end;
|
||||
|
||||
procedure TBizRecibosCliente.OnNewRecord(Sender: TDADataTable);
|
||||
|
||||
@ -77,7 +77,7 @@ begin
|
||||
|
||||
with TsrvReferencias.Create(NIL) do
|
||||
try
|
||||
Result := DarNuevaReferencia(ATipo, ID_EMPRESA)
|
||||
Result := DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
@ -91,8 +91,7 @@ begin
|
||||
|
||||
with TsrvReferencias.Create(NIL) do
|
||||
try
|
||||
Result := IncrementarValorReferencia(ATipo,
|
||||
Self.REFERENCIA, ID_EMPRESA)
|
||||
Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
|
||||
@ -617,6 +617,30 @@ object srvRecibosCliente: TsrvRecibosCliente
|
||||
item
|
||||
DatasetField = '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>
|
||||
Name = 'RecibosCompensadosCli'
|
||||
@ -751,6 +775,35 @@ object srvRecibosCliente: TsrvRecibosCliente
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
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>
|
||||
JoinDataTables = <>
|
||||
|
||||
@ -10,7 +10,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 689
|
||||
Caption = 'Recibo de cliente'
|
||||
ExplicitWidth = 691
|
||||
ExplicitWidth = 689
|
||||
inherited Image1: TImage
|
||||
Left = 662
|
||||
Picture.Data = {
|
||||
@ -40,7 +40,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 689
|
||||
ExplicitWidth = 691
|
||||
ExplicitWidth = 689
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 425
|
||||
end
|
||||
@ -54,13 +54,13 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
OnChanging = pgPaginasChanging
|
||||
ExplicitLeft = 3
|
||||
ExplicitTop = 79
|
||||
ExplicitWidth = 685
|
||||
ExplicitHeight = 329
|
||||
ExplicitWidth = 683
|
||||
ExplicitHeight = 327
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 677
|
||||
ExplicitHeight = 301
|
||||
ExplicitWidth = 675
|
||||
ExplicitHeight = 299
|
||||
inline frViewReciboCliente1: TfrViewReciboCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -75,12 +75,12 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 677
|
||||
ExplicitWidth = 675
|
||||
ExplicitHeight = 335
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 675
|
||||
Height = 335
|
||||
ExplicitWidth = 677
|
||||
ExplicitWidth = 675
|
||||
ExplicitHeight = 335
|
||||
DesignSize = (
|
||||
675
|
||||
@ -104,43 +104,57 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
Width = 293
|
||||
end
|
||||
inherited eFechaEmision: TcxDBTextEdit
|
||||
Left = 468
|
||||
ExplicitLeft = 468
|
||||
ExplicitWidth = 253
|
||||
Width = 253
|
||||
end
|
||||
inherited eFormaPago: TcxDBTextEdit
|
||||
Left = 468
|
||||
ExplicitLeft = 468
|
||||
ExplicitWidth = 253
|
||||
Width = 253
|
||||
end
|
||||
inherited eImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 468
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 468
|
||||
ExplicitWidth = 253
|
||||
Width = 253
|
||||
end
|
||||
inherited eNombreCliente: TcxDBTextEdit
|
||||
Left = 468
|
||||
ExplicitLeft = 468
|
||||
ExplicitWidth = 286
|
||||
Width = 286
|
||||
end
|
||||
inherited eNifCif: TcxDBTextEdit
|
||||
Left = 468
|
||||
ExplicitLeft = 468
|
||||
ExplicitWidth = 286
|
||||
Width = 286
|
||||
end
|
||||
inherited eEntidad: TcxDBTextEdit
|
||||
Left = 468
|
||||
ExplicitLeft = 468
|
||||
ExplicitWidth = 84
|
||||
Width = 84
|
||||
end
|
||||
inherited eSucursal: TcxDBTextEdit
|
||||
Left = 736
|
||||
ExplicitLeft = 736
|
||||
Left = 543
|
||||
ExplicitLeft = 543
|
||||
ExplicitWidth = 81
|
||||
Width = 81
|
||||
end
|
||||
inherited eDC: TcxDBTextEdit
|
||||
Left = 785
|
||||
ExplicitLeft = 785
|
||||
Left = 599
|
||||
ExplicitLeft = 599
|
||||
ExplicitWidth = 37
|
||||
Width = 37
|
||||
end
|
||||
inherited eCuenta: TcxDBTextEdit
|
||||
Left = 468
|
||||
ExplicitLeft = 468
|
||||
ExplicitWidth = 286
|
||||
Width = 286
|
||||
end
|
||||
@ -154,31 +168,33 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
Width = 217
|
||||
end
|
||||
inherited frViewClienteRecibo: TfrViewDatosYSeleccionCliente
|
||||
Left = 392
|
||||
Top = 272
|
||||
Width = 350
|
||||
ExplicitLeft = 392
|
||||
ExplicitTop = 272
|
||||
ExplicitWidth = 350
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 350
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
ExplicitWidth = 224
|
||||
Width = 224
|
||||
ExplicitWidth = 276
|
||||
Width = 276
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
ExplicitWidth = 562
|
||||
Width = 562
|
||||
ExplicitWidth = 276
|
||||
Width = 276
|
||||
end
|
||||
inherited edtCalle: TcxDBTextEdit
|
||||
ExplicitWidth = 562
|
||||
Width = 562
|
||||
ExplicitWidth = 276
|
||||
Width = 276
|
||||
end
|
||||
inherited edtPoblacion: TcxDBTextEdit
|
||||
ExplicitWidth = 177
|
||||
Width = 177
|
||||
ExplicitWidth = 158
|
||||
Width = 158
|
||||
end
|
||||
inherited edtProvincia: TcxDBTextEdit
|
||||
ExplicitWidth = 327
|
||||
Width = 327
|
||||
ExplicitWidth = 276
|
||||
Width = 276
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 192
|
||||
@ -196,8 +212,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
object pagPagos: TTabSheet
|
||||
Caption = 'Pagos'
|
||||
ImageIndex = 2
|
||||
ExplicitWidth = 677
|
||||
ExplicitHeight = 301
|
||||
inline frViewPagosCliente1: TfrViewPagosCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -212,20 +226,28 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 677
|
||||
ExplicitHeight = 301
|
||||
ExplicitWidth = 675
|
||||
ExplicitHeight = 299
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 675
|
||||
Height = 299
|
||||
ExplicitWidth = 677
|
||||
ExplicitHeight = 301
|
||||
ExplicitWidth = 675
|
||||
ExplicitHeight = 299
|
||||
end
|
||||
inherited dxLayoutControl2: TdxLayoutControl
|
||||
Width = 675
|
||||
Height = 299
|
||||
ExplicitWidth = 677
|
||||
ExplicitHeight = 301
|
||||
ExplicitWidth = 675
|
||||
ExplicitHeight = 299
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 666
|
||||
ExplicitWidth = 666
|
||||
end
|
||||
inherited ListaPagosCliente: TcxGrid
|
||||
Width = 605
|
||||
Height = 262
|
||||
ExplicitWidth = 605
|
||||
ExplicitHeight = 262
|
||||
inherited ListaPagosClienteDBTableView1: TcxGridDBTableView
|
||||
inherited ListaPagosClienteDBTableView1TIPO: TcxGridDBColumn
|
||||
IsCaptionAssigned = True
|
||||
@ -252,8 +274,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
object pagCompensados: TTabSheet
|
||||
Caption = 'Recibos compensados'
|
||||
ImageIndex = 1
|
||||
ExplicitWidth = 677
|
||||
ExplicitHeight = 301
|
||||
inline frViewRecibosCliCompensados1: TfrViewRecibosCliCompensados
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -268,13 +288,13 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 677
|
||||
ExplicitHeight = 301
|
||||
ExplicitWidth = 675
|
||||
ExplicitHeight = 299
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 675
|
||||
Height = 274
|
||||
ExplicitWidth = 677
|
||||
ExplicitHeight = 276
|
||||
ExplicitWidth = 675
|
||||
ExplicitHeight = 274
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
@ -317,8 +337,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
item
|
||||
Width = 200
|
||||
end>
|
||||
ExplicitTop = 511
|
||||
ExplicitWidth = 691
|
||||
ExplicitTop = 509
|
||||
ExplicitWidth = 689
|
||||
end
|
||||
inline frViewReciboCliImportes1: TfrViewReciboCliImportes [4]
|
||||
Left = 0
|
||||
@ -334,14 +354,16 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
ReadOnly = False
|
||||
ExplicitTop = 411
|
||||
ExplicitWidth = 691
|
||||
ExplicitTop = 409
|
||||
ExplicitWidth = 689
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 689
|
||||
ExplicitWidth = 691
|
||||
ExplicitWidth = 689
|
||||
inherited eImporte: TcxDBCurrencyEdit
|
||||
DataBinding.DataSource = dsDataTable
|
||||
Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged
|
||||
ExplicitWidth = 150
|
||||
Width = 150
|
||||
end
|
||||
inherited eOtrosGastos: TcxDBCurrencyEdit
|
||||
DataBinding.DataSource = dsDataTable
|
||||
|
||||
@ -94,9 +94,9 @@ begin
|
||||
inherited;
|
||||
FImporteRestante := 0;
|
||||
pgPaginas.ActivePageIndex := 0;
|
||||
|
||||
//RECIBOS COMPENSADOS DESHABILITADOS
|
||||
pagCompensados.TabVisible := False;
|
||||
|
||||
ViewRecibo := frViewReciboCliente1;
|
||||
end;
|
||||
|
||||
@ -384,8 +384,10 @@ procedure TfEditorReciboCliente.SetController(const Value: IRecibosClienteContro
|
||||
begin
|
||||
FController := Value;
|
||||
if Assigned(FController) then
|
||||
begin
|
||||
frViewRecibosCliCompensados1.Controller := FController;
|
||||
(ViewRecibo as IViewReciboCliente).Controller := (FController as IRecibosClienteController);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorReciboCliente.SetRecibo(const Value: IBizRecibosCliente);
|
||||
|
||||
@ -13,7 +13,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
TabOrder = 0
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||
ExplicitWidth = 899
|
||||
DesignSize = (
|
||||
905
|
||||
509)
|
||||
@ -428,7 +427,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
end
|
||||
inline frViewClienteRecibo: TfrViewDatosYSeleccionCliente
|
||||
Left = 555
|
||||
Top = 281
|
||||
Top = 275
|
||||
Width = 350
|
||||
Height = 212
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -440,7 +439,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
TabOrder = 18
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 555
|
||||
ExplicitTop = 281
|
||||
ExplicitTop = 275
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
ExplicitWidth = 224
|
||||
@ -693,6 +692,8 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
end
|
||||
end
|
||||
object dxLayoutControlClienteModif: TdxLayoutGroup
|
||||
AutoAligns = [aaHorizontal]
|
||||
AlignVert = avClient
|
||||
Caption = 'Datos del cliente'
|
||||
object dxLayoutControl1Item6: TdxLayoutItem
|
||||
Control = frViewClienteRecibo
|
||||
|
||||
@ -110,8 +110,7 @@ begin
|
||||
Result := FRecibo;
|
||||
end;
|
||||
|
||||
procedure TfrViewReciboCliente.SetController(
|
||||
const Value: IRecibosClienteController);
|
||||
procedure TfrViewReciboCliente.SetController(const Value: IRecibosClienteController);
|
||||
begin
|
||||
FController := Value;
|
||||
|
||||
|
||||
@ -33,7 +33,7 @@ type
|
||||
IPagosProveedorController = interface(ISujeto)
|
||||
['{4F907D80-B184-4557-BAB7-9FDA23260E64}']
|
||||
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 EliminarTodo(APagossCliente : IBizPagosProveedor): Boolean;
|
||||
end;
|
||||
@ -47,7 +47,7 @@ type
|
||||
constructor Create; virtual;
|
||||
destructor Destroy; override;
|
||||
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 EliminarTodo(APagosProveedor : IBizPagosProveedor): Boolean;
|
||||
end;
|
||||
@ -137,11 +137,12 @@ begin
|
||||
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
|
||||
APagosProveedor.DataTable.Edit;
|
||||
APagosProveedor.FECHA_PAGO := StrToDate(Fecha);
|
||||
APagosProveedor.IGNORAR_CONTABILIDAD := IgnorarContabilidad;
|
||||
APagosProveedor.CUENTA := IntToStr(IdSubCuenta);
|
||||
APagosProveedor.DataTable.Post;
|
||||
end;
|
||||
|
||||
|
||||
@ -33,22 +33,25 @@ uses
|
||||
type
|
||||
IRecibosProveedorController = interface(IObservador)
|
||||
['{763DF610-3540-42BE-A09A-35AABFAF2DA1}']
|
||||
function GetProveedorController: IProveedoresController;
|
||||
procedure SetProveedorController(const Value: IProveedoresController);
|
||||
property ProveedorController: IProveedoresController read GetProveedorController write SetProveedorController;
|
||||
|
||||
function GetPagosController: IPagosProveedorController;
|
||||
procedure SetPagosController(const Value: IPagosProveedorController);
|
||||
property PagosController: IPagosProveedorController read GetPagosController write SetPagosController;
|
||||
|
||||
procedure Anadir(ARecibosProveedor : IBizRecibosProveedor);
|
||||
function AnadirPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''): Boolean;
|
||||
procedure ModificarPago(ARecibosProveedor : IBizRecibosProveedor);
|
||||
function Eliminar(ARecibosProveedor : IBizRecibosProveedor): Boolean;
|
||||
function AnadirPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad: Integer = 1; ASubCuenta: Integer = 0): Boolean;
|
||||
procedure ModificarPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0);
|
||||
function Eliminar(ARecibosProveedor : IBizRecibosProveedor; AllItems: Boolean = false): Boolean;
|
||||
function EliminarPago(ARecibosProveedor : IBizRecibosProveedor): Boolean;
|
||||
function EliminarTodo(ARecibosProveedor : IBizRecibosProveedor): Boolean;
|
||||
function Guardar(ARecibosProveedor : IBizRecibosProveedor): Boolean;
|
||||
procedure DescartarCambios(ARecibosProveedor : IBizRecibosProveedor);
|
||||
function Duplicar(ARecibosProveedor: IBizRecibosProveedor): IBizRecibosProveedor;
|
||||
function Nuevo : IBizRecibosProveedor;
|
||||
procedure RecuperarCliente(AReciboProveedor : IBizRecibosProveedor);
|
||||
procedure RecuperarProveedor(AReciboProveedor : IBizRecibosProveedor);
|
||||
function Buscar(const ID: Integer): IBizRecibosProveedor;
|
||||
function BuscarTodos: IBizRecibosProveedor;
|
||||
|
||||
@ -68,6 +71,7 @@ type
|
||||
|
||||
function ElegirRecibosCompensados(ARecibo : IBizRecibosProveedor): Boolean;
|
||||
procedure QuitarReciboCompensado(ARecibo : IBizRecibosProveedor);
|
||||
function EsEliminable(ARecibo : IBizRecibosProveedor): Boolean;
|
||||
|
||||
procedure Preview(ARecibosProveedor : IBizRecibosProveedor);
|
||||
procedure Print(ARecibosProveedor : IBizRecibosProveedor);
|
||||
@ -83,7 +87,10 @@ type
|
||||
protected
|
||||
FDataModule : IDataModuleRecibosProveedor;
|
||||
FPagosController : IPagosProveedorController;
|
||||
FClienteController : IProveedoresController;
|
||||
FProveedorController : IProveedoresController;
|
||||
|
||||
function GetProveedorController: IProveedoresController;
|
||||
procedure SetProveedorController(const Value: IProveedoresController);
|
||||
|
||||
function GetPagosController: IPagosProveedorController;
|
||||
procedure SetPagosController(const Value: IPagosProveedorController);
|
||||
@ -95,15 +102,16 @@ type
|
||||
function DarNuevaReferencia(ID_FACTURA : Integer; REFERENCIA: String): String;
|
||||
|
||||
public
|
||||
property ProveedorController: IProveedoresController read GetProveedorController write SetProveedorController;
|
||||
property PagosController: IPagosProveedorController read GetPagosController write SetPagosController;
|
||||
constructor Create; override;
|
||||
destructor Destroy; override;
|
||||
|
||||
procedure RecuperarCliente(AReciboProveedor : IBizRecibosProveedor);
|
||||
procedure RecuperarProveedor(AReciboProveedor : IBizRecibosProveedor);
|
||||
procedure Anadir(ARecibosProveedor : IBizRecibosProveedor);
|
||||
function AnadirPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''): Boolean;
|
||||
procedure ModificarPago(ARecibosProveedor : IBizRecibosProveedor);
|
||||
function Eliminar(ARecibosProveedor : IBizRecibosProveedor): Boolean;
|
||||
function AnadirPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad: Integer = 1; ASubCuenta: Integer = 0): Boolean;
|
||||
procedure ModificarPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0);
|
||||
function Eliminar(ARecibosProveedor : IBizRecibosProveedor; AllItems: Boolean = false): Boolean;
|
||||
function EliminarPago(ARecibosProveedor : IBizRecibosProveedor): Boolean;
|
||||
function EliminarTodo(ARecibosProveedor : IBizRecibosProveedor): Boolean;
|
||||
function Guardar(ARecibosProveedor : IBizRecibosProveedor): Boolean;
|
||||
@ -131,6 +139,7 @@ type
|
||||
procedure QuitarReciboCompensado(ARecibo : IBizRecibosProveedor);
|
||||
|
||||
procedure SetSituacionCobrados(ARecibos : IBizRecibosProveedor; WithDeltas: Boolean=False);
|
||||
function EsEliminable(ARecibo : IBizRecibosProveedor): Boolean;
|
||||
|
||||
procedure Preview(ARecibosProveedor : IBizRecibosProveedor);
|
||||
procedure Print(ARecibosProveedor : IBizRecibosProveedor);
|
||||
@ -153,36 +162,22 @@ begin
|
||||
ARecibosProveedor.Insert;
|
||||
end;
|
||||
|
||||
function TRecibosProveedorController.AnadirPago(ARecibosProveedor: IBizRecibosProveedor; FechaPago: String =''): Boolean;
|
||||
var
|
||||
AEditor : IEditorFechaPagoProveedor;
|
||||
AIgnorarContabilidad : Integer;
|
||||
ASubCuenta: Integer;
|
||||
|
||||
function TRecibosProveedorController.AnadirPago(ARecibosProveedor: IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad: Integer = 1; ASubCuenta: Integer = 0): Boolean;
|
||||
begin
|
||||
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
|
||||
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)
|
||||
if PagosController.Anadir(ARecibosProveedor.Pagos, FechaPago, AIgnorarContabilidad, ASubCuenta) then
|
||||
@ -239,7 +234,7 @@ begin
|
||||
inherited;
|
||||
AsignarDataModule;
|
||||
FPagosController := TPagosProveedorController.Create;
|
||||
FClienteController := TProveedoresController.Create;
|
||||
FProveedorController := TProveedoresController.Create;
|
||||
// FPagosController.addObservador(Self); //PETA NO SE PORQUE
|
||||
end;
|
||||
|
||||
@ -432,7 +427,7 @@ destructor TRecibosProveedorController.Destroy;
|
||||
begin
|
||||
FDataModule := NIL;
|
||||
FPagosController := NIL;
|
||||
FClienteController := NIL;
|
||||
FProveedorController := NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
@ -511,7 +506,7 @@ begin
|
||||
AEditor := NIL;
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
RecuperarCliente(ARecibosProveedor);
|
||||
RecuperarProveedor(ARecibosProveedor);
|
||||
CreateEditor('EditorReciboProveedor', IEditorReciboProveedor, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
with AEditor do
|
||||
@ -592,22 +587,58 @@ begin
|
||||
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
|
||||
Result := False;
|
||||
bEliminado := False;
|
||||
|
||||
if not Assigned(ARecibosProveedor) then
|
||||
raise Exception.Create ('IBizRecibosProveedor no asignado');
|
||||
raise Exception.Create ('ARecibosProveedor no asignado');
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
if not ARecibosProveedor.DataTable.Active then
|
||||
ARecibosProveedor.DataTable.Active := True;
|
||||
|
||||
if (ARecibosProveedor.State in dsEditModes) then
|
||||
ARecibosProveedor.Cancel;
|
||||
|
||||
ARecibosProveedor.Delete;
|
||||
ARecibosProveedor.DataTable.ApplyUpdates;
|
||||
HideHourglassCursor;
|
||||
Result := True;
|
||||
//Siempre eliminaremos el seleccionado
|
||||
if EsEliminable(ARecibosProveedor) then
|
||||
begin
|
||||
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
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
@ -629,10 +660,17 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TRecibosProveedorController.RecuperarCliente(
|
||||
AReciboProveedor: IBizRecibosProveedor);
|
||||
function TRecibosProveedorController.EsEliminable(ARecibo: IBizRecibosProveedor): Boolean;
|
||||
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;
|
||||
|
||||
function TRecibosProveedorController.GetPagosController: IPagosProveedorController;
|
||||
@ -640,11 +678,21 @@ begin
|
||||
Result := FPagosController;
|
||||
end;
|
||||
|
||||
function TRecibosProveedorController.GetProveedorController: IProveedoresController;
|
||||
begin
|
||||
Result := FProveedorController;
|
||||
end;
|
||||
|
||||
procedure TRecibosProveedorController.SetPagosController(const Value: IPagosProveedorController);
|
||||
begin
|
||||
FPagosController := Value;
|
||||
end;
|
||||
|
||||
procedure TRecibosProveedorController.SetProveedorController(const Value: IProveedoresController);
|
||||
begin
|
||||
FProveedorController := Value;
|
||||
end;
|
||||
|
||||
procedure TRecibosProveedorController.SetSituacionCobrados(ARecibos: IBizRecibosProveedor; WithDeltas: Boolean);
|
||||
begin
|
||||
if Assigned(ARecibos) then
|
||||
@ -726,29 +774,10 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TRecibosProveedorController.ModificarPago(ARecibosProveedor: IBizRecibosProveedor);
|
||||
var
|
||||
AEditor : IEditorFechaPagoProveedor;
|
||||
FechaPago: String;
|
||||
IgnorarContabilidad: Integer;
|
||||
procedure TRecibosProveedorController.ModificarPago(ARecibosProveedor: IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0);
|
||||
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
|
||||
PagosController.Modificar(ARecibosProveedor.Pagos, FechaPago, IgnorarContabilidad);
|
||||
PagosController.Modificar(ARecibosProveedor.Pagos, FechaPago, AIgnorarContabilidad, ASubCuenta);
|
||||
end;
|
||||
|
||||
function TRecibosProveedorController.Nuevo: IBizRecibosProveedor;
|
||||
|
||||
@ -276,6 +276,35 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
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>
|
||||
Params = <>
|
||||
MasterMappingMode = mmWhere
|
||||
@ -489,6 +518,35 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
|
||||
DataType = datString
|
||||
Size = 20
|
||||
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>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -9,9 +9,9 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_RecibosCompensadosProv = '{79E4C792-FBE0-4991-AEEB-C0EE4E1F8183}';
|
||||
RID_RecibosProveedor = '{9C35F5D6-0E7E-4C46-BE0E-BACD1FFDB567}';
|
||||
RID_PagosProveedor = '{ED4FAA5F-C675-494A-BA70-40FA218DBE18}';
|
||||
RID_RecibosCompensadosProv = '{362F2794-809B-43D0-90F9-7FE72E40A77A}';
|
||||
RID_RecibosProveedor = '{DDB0A83D-84A4-4660-9764-9F8C1360CD1C}';
|
||||
RID_PagosProveedor = '{E23DEA9F-5274-4F6A-BB81-20EC4D7ABD9A}';
|
||||
|
||||
{ Data table names }
|
||||
nme_RecibosCompensadosProv = 'RecibosCompensadosProv';
|
||||
@ -50,6 +50,12 @@ const
|
||||
fld_RecibosCompensadosProvFECHA_ALTA = 'FECHA_ALTA';
|
||||
fld_RecibosCompensadosProvFECHA_MODIFICACION = 'FECHA_MODIFICACION';
|
||||
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 }
|
||||
idx_RecibosCompensadosProvID = 0;
|
||||
@ -83,6 +89,12 @@ const
|
||||
idx_RecibosCompensadosProvFECHA_ALTA = 28;
|
||||
idx_RecibosCompensadosProvFECHA_MODIFICACION = 29;
|
||||
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 }
|
||||
fld_RecibosProveedorID = 'ID';
|
||||
@ -116,6 +128,12 @@ const
|
||||
fld_RecibosProveedorFECHA_ALTA = 'FECHA_ALTA';
|
||||
fld_RecibosProveedorFECHA_MODIFICACION = 'FECHA_MODIFICACION';
|
||||
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 }
|
||||
idx_RecibosProveedorID = 0;
|
||||
@ -149,6 +167,12 @@ const
|
||||
idx_RecibosProveedorFECHA_ALTA = 28;
|
||||
idx_RecibosProveedorFECHA_MODIFICACION = 29;
|
||||
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 }
|
||||
fld_PagosProveedorID = 'ID';
|
||||
@ -183,7 +207,7 @@ const
|
||||
type
|
||||
{ IRecibosCompensadosProv }
|
||||
IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable)
|
||||
['{B2ADA390-B323-420E-8064-59A0D7BAD647}']
|
||||
['{2D6D983B-A8D2-4403-A3B3-61EFCF0F042D}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -309,6 +333,30 @@ type
|
||||
procedure SetUSUARIOValue(const aValue: String);
|
||||
function GetUSUARIOIsNull: 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 }
|
||||
@ -374,6 +422,18 @@ type
|
||||
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
|
||||
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
||||
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;
|
||||
|
||||
{ TRecibosCompensadosProvDataTableRules }
|
||||
@ -505,6 +565,30 @@ type
|
||||
procedure SetUSUARIOValue(const aValue: String); virtual;
|
||||
function GetUSUARIOIsNull: 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 }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -569,6 +653,18 @@ type
|
||||
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
|
||||
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
||||
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
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -578,7 +674,7 @@ type
|
||||
|
||||
{ IRecibosProveedor }
|
||||
IRecibosProveedor = interface(IDAStronglyTypedDataTable)
|
||||
['{D109DF21-A3FE-4397-A781-51007D94BC32}']
|
||||
['{976CC618-6A45-422A-A629-C8950DADCB5A}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -704,6 +800,30 @@ type
|
||||
procedure SetUSUARIOValue(const aValue: String);
|
||||
function GetUSUARIOIsNull: 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 }
|
||||
@ -769,6 +889,18 @@ type
|
||||
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
|
||||
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
||||
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;
|
||||
|
||||
{ TRecibosProveedorDataTableRules }
|
||||
@ -900,6 +1032,30 @@ type
|
||||
procedure SetUSUARIOValue(const aValue: String); virtual;
|
||||
function GetUSUARIOIsNull: 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 }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -964,6 +1120,18 @@ type
|
||||
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
|
||||
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
||||
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
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -973,7 +1141,7 @@ type
|
||||
|
||||
{ IPagosProveedor }
|
||||
IPagosProveedor = interface(IDAStronglyTypedDataTable)
|
||||
['{08F0D078-9A5D-4F40-958F-E28C7A1A21F5}']
|
||||
['{CB465AC1-DF0E-43AC-89B6-3AD01EFE5DD2}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1816,6 +1984,132 @@ begin
|
||||
DataTable.Fields[idx_RecibosCompensadosProvUSUARIO].AsVariant := Null;
|
||||
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 }
|
||||
constructor TRecibosProveedorDataTableRules.Create(aDataTable: TDADataTable);
|
||||
@ -2479,6 +2773,132 @@ begin
|
||||
DataTable.Fields[idx_RecibosProveedorUSUARIO].AsVariant := Null;
|
||||
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 }
|
||||
constructor TPagosProveedorDataTableRules.Create(aDataTable: TDADataTable);
|
||||
|
||||
@ -9,14 +9,14 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_RecibosCompensadosProvDelta = '{9107E928-5D10-4B51-A676-BFA549256A77}';
|
||||
RID_RecibosProveedorDelta = '{9084E9BD-0A41-47E3-B3E2-7203D2766160}';
|
||||
RID_PagosProveedorDelta = '{0855D721-33C1-4937-B581-332046D7D4A3}';
|
||||
RID_RecibosCompensadosProvDelta = '{BC31F43C-6FA7-4B92-8E36-FDA10B7C944E}';
|
||||
RID_RecibosProveedorDelta = '{AC23DD73-5C9C-4C92-8637-D50386E731AE}';
|
||||
RID_PagosProveedorDelta = '{BF21E199-2B2A-41D2-BA3B-FB5A7E5EBC03}';
|
||||
|
||||
type
|
||||
{ IRecibosCompensadosProvDelta }
|
||||
IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv)
|
||||
['{9107E928-5D10-4B51-A676-BFA549256A77}']
|
||||
['{BC31F43C-6FA7-4B92-8E36-FDA10B7C944E}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_RECIBO_COMPENSADOValue : Integer;
|
||||
@ -49,6 +49,12 @@ type
|
||||
function GetOldFECHA_ALTAValue : DateTime;
|
||||
function GetOldFECHA_MODIFICACIONValue : DateTime;
|
||||
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 }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -82,6 +88,12 @@ type
|
||||
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
||||
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
||||
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;
|
||||
|
||||
{ TRecibosCompensadosProvBusinessProcessorRules }
|
||||
@ -275,6 +287,42 @@ type
|
||||
function GetOldUSUARIOIsNull: Boolean; virtual;
|
||||
procedure SetUSUARIOValue(const aValue: String); 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 }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -401,6 +449,30 @@ type
|
||||
property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
|
||||
property OldUSUARIO : String read GetOldUSUARIOValue;
|
||||
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
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -410,7 +482,7 @@ type
|
||||
|
||||
{ IRecibosProveedorDelta }
|
||||
IRecibosProveedorDelta = interface(IRecibosProveedor)
|
||||
['{9084E9BD-0A41-47E3-B3E2-7203D2766160}']
|
||||
['{AC23DD73-5C9C-4C92-8637-D50386E731AE}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_RECIBO_COMPENSADOValue : Integer;
|
||||
@ -443,6 +515,12 @@ type
|
||||
function GetOldFECHA_ALTAValue : DateTime;
|
||||
function GetOldFECHA_MODIFICACIONValue : DateTime;
|
||||
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 }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -476,6 +554,12 @@ type
|
||||
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
||||
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
||||
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;
|
||||
|
||||
{ TRecibosProveedorBusinessProcessorRules }
|
||||
@ -669,6 +753,42 @@ type
|
||||
function GetOldUSUARIOIsNull: Boolean; virtual;
|
||||
procedure SetUSUARIOValue(const aValue: String); 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 }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -795,6 +915,30 @@ type
|
||||
property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
|
||||
property OldUSUARIO : String read GetOldUSUARIOValue;
|
||||
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
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -804,7 +948,7 @@ type
|
||||
|
||||
{ IPagosProveedorDelta }
|
||||
IPagosProveedorDelta = interface(IPagosProveedor)
|
||||
['{0855D721-33C1-4937-B581-332046D7D4A3}']
|
||||
['{BF21E199-2B2A-41D2-BA3B-FB5A7E5EBC03}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_RECIBOValue : Integer;
|
||||
@ -1957,6 +2101,192 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvUSUARIO] := Null;
|
||||
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 }
|
||||
constructor TRecibosProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
@ -2930,6 +3260,192 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorUSUARIO] := Null;
|
||||
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 }
|
||||
constructor TPagosProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
|
||||
@ -41,10 +41,13 @@ type
|
||||
IBizRecibosProveedor = interface(IRecibosProveedor)
|
||||
['{FEE753DF-0471-4754-A86C-58BF615929CF}']
|
||||
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;
|
||||
property Proveedor : IBizProveedor read GetProveedor;
|
||||
property Proveedor : IBizProveedor read GetProveedor write SetProveedor;
|
||||
|
||||
|
||||
// Esta propidad es para que el controlador pueda acceder directamente
|
||||
// a la propiedad Proveedor
|
||||
@ -71,15 +74,14 @@ type
|
||||
FProveedor : IBizProveedor;
|
||||
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;
|
||||
property Proveedor : IBizProveedor read GetProveedor;
|
||||
|
||||
// Esta propidad es para que el controlador pueda acceder directamente
|
||||
// a la propiedad Proveedor
|
||||
procedure _SetProveedor(AValue : IBizProveedor);
|
||||
function _GetProveedor : IBizProveedor;
|
||||
property _Proveedor : IBizProveedor read _GetProveedor write _SetProveedor;
|
||||
|
||||
procedure SetPagos(AValue : IBizPagosProveedor);
|
||||
function GetPagos : IBizPagosProveedor;
|
||||
@ -88,9 +90,13 @@ type
|
||||
function GetRecibosCompensados: IBizRecibosCompensadosProv;
|
||||
procedure SetRecibosCompensados(const Value: IBizRecibosCompensadosProv);
|
||||
|
||||
function GetSITUACIONValue: String; override;
|
||||
procedure SetID_REMESAValue(const aValue: Integer); override;
|
||||
|
||||
public
|
||||
property Proveedor : IBizProveedor read GetProveedor write SetProveedor;
|
||||
property _Proveedor : IBizProveedor read _GetProveedor write _SetProveedor;
|
||||
|
||||
property RecibosCompensados: IBizRecibosCompensadosProv read GetRecibosCompensados write SetRecibosCompensados;
|
||||
property Pagos : IBizPagosProveedor read GetPagos write SetPagos;
|
||||
property SeleccionableInterface : ISeleccionable read FSeleccionableInterface
|
||||
@ -99,6 +105,8 @@ type
|
||||
|
||||
procedure IniciarValoresIBizRecibosProveedorNuevo;
|
||||
function EsNuevo : Boolean;
|
||||
function SinFactura : Boolean;
|
||||
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
@ -108,7 +116,7 @@ implementation
|
||||
{ TBizRecibosProveedor }
|
||||
|
||||
uses
|
||||
SysUtils, uDataTableUtils, schContactosClient_Intf;
|
||||
SysUtils, DB, uDataTableUtils, schContactosClient_Intf, uFactuGES_App, uBizEmpresasTiendas;
|
||||
|
||||
function TBizRecibosProveedor.GetProveedor: IBizProveedor;
|
||||
begin
|
||||
@ -120,6 +128,11 @@ begin
|
||||
Result := FRecibosCompensados;
|
||||
end;
|
||||
|
||||
function TBizRecibosProveedor.GetSITUACIONValue: String;
|
||||
begin
|
||||
result := Trim(DataTable.Fields[idx_RecibosProveedorSITUACION].AsString);
|
||||
end;
|
||||
|
||||
function TBizRecibosProveedor.GetPagos: IBizPagosProveedor;
|
||||
begin
|
||||
Result := FPagos;
|
||||
@ -139,6 +152,37 @@ procedure TBizRecibosProveedor.SetPagos(AValue: IBizPagosProveedor);
|
||||
EnlazarMaestroDetalle(FPagosLink, FPagos);
|
||||
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);
|
||||
begin
|
||||
FRecibosCompensados := Value;
|
||||
@ -149,6 +193,11 @@ begin
|
||||
FRecibosCompensados.DataTable.Active := True;
|
||||
end;
|
||||
|
||||
function TBizRecibosProveedor.SinFactura: Boolean;
|
||||
begin
|
||||
Result := ID_FACTURAIsNull;
|
||||
end;
|
||||
|
||||
function TBizRecibosProveedor._GetProveedor: IBizProveedor;
|
||||
begin
|
||||
Result := FProveedor;
|
||||
@ -194,6 +243,9 @@ begin
|
||||
FECHA_EMISION := Date;
|
||||
IMPORTE := 0;
|
||||
OTROS_GASTOS := 0;
|
||||
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
|
||||
USUARIO := AppFactuGES.UsuarioActivo.UserName;
|
||||
ID_TIENDA := CTE_ID_TODAS;
|
||||
end;
|
||||
|
||||
procedure TBizRecibosProveedor.OnNewRecord(Sender: TDADataTable);
|
||||
|
||||
@ -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.
|
||||
@ -9,7 +9,10 @@
|
||||
<Projects Include="..\..\Cliente\FactuGES.dproj" />
|
||||
<Projects Include="..\..\GUIBase\GUIBase.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\Views\RecibosCliente_view.dproj" />
|
||||
<Projects Include="Controller\RecibosProveedor_controller.dproj" />
|
||||
<Projects Include="Data\RecibosProveedor_data.dproj" />
|
||||
<Projects Include="Model\RecibosProveedor_model.dproj" />
|
||||
@ -121,14 +124,41 @@
|
||||
<Target Name="RecibosCliente_data:Make">
|
||||
<MSBuild Projects="..\Recibos de cliente\Data\RecibosCliente_data.dproj" Targets="Make" />
|
||||
</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">
|
||||
<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 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 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>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -144,6 +144,30 @@ object srvRecibosProveedor: TsrvRecibosProveedor
|
||||
item
|
||||
DatasetField = '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>
|
||||
Name = 'RecibosCompensadosProv'
|
||||
@ -290,6 +314,35 @@ object srvRecibosProveedor: TsrvRecibosProveedor
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
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
|
||||
item
|
||||
@ -423,6 +476,30 @@ object srvRecibosProveedor: TsrvRecibosProveedor
|
||||
item
|
||||
DatasetField = '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>
|
||||
Name = 'RecibosProveedor'
|
||||
@ -599,6 +676,35 @@ object srvRecibosProveedor: TsrvRecibosProveedor
|
||||
DataType = datString
|
||||
Size = 20
|
||||
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
|
||||
item
|
||||
@ -794,84 +900,72 @@ object srvRecibosProveedor: TsrvRecibosProveedor
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_RECIBOS_PROVEEDOR_ID'
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_PROVEEDOR'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_FACTURA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_EMISION'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_VENCIMIENTO'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'OBSERVACIONES'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE'
|
||||
DataType = datFloat
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'OTROS_GASTOS'
|
||||
DataType = datFloat
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'ID_TIENDA'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'RECIBOS_PROVEEDOR'
|
||||
SQL =
|
||||
'INSERT'#10' INTO RECIBOS_PROVEEDOR'#10' (ID, ID_FACTURA, REFERENCIA,' +
|
||||
' REFERENCIA_PROVEEDOR, FECHA_EMISION, FECHA_VENCIMIENTO, DESCRIP' +
|
||||
'CION, OBSERVACIONES,'#10' IMPORTE, OTROS_GASTOS, USUARIO)'#10' VALUE' +
|
||||
'S'#10' (:ID, :ID_FACTURA, :REFERENCIA, :REFERENCIA_PROVEEDOR, :FE' +
|
||||
'CHA_EMISION, :FECHA_VENCIMIENTO, :DESCRIPCION, :OBSERVACIONES,'#10' ' +
|
||||
' :IMPORTE, :OTROS_GASTOS, :USUARIO)'
|
||||
'INSERT'#10' INTO RECIBOS_PROVEEDOR'#10' (ID, ID_EMPRESA, ID_PROVEEDO' +
|
||||
'R, ID_FACTURA, REFERENCIA, REFERENCIA_PROVEEDOR, FECHA_EMISION, ' +
|
||||
'FECHA_VENCIMIENTO, DESCRIPCION, OBSERVACIONES,'#10' IMPORTE, OTRO' +
|
||||
'S_GASTOS, USUARIO, ID_TIENDA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :I' +
|
||||
'D_PROVEEDOR, :ID_FACTURA, :REFERENCIA, :REFERENCIA_PROVEEDOR, :F' +
|
||||
'ECHA_EMISION, :FECHA_VENCIMIENTO, :DESCRIPCION, :OBSERVACIONES,'#10 +
|
||||
' :IMPORTE, :OTROS_GASTOS, :USUARIO, :ID_TIENDA)'#10' '#10' '#10' ' +
|
||||
' '#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -899,67 +993,47 @@ object srvRecibosProveedor: TsrvRecibosProveedor
|
||||
Params = <
|
||||
item
|
||||
Name = 'REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_EMISION'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_VENCIMIENTO'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'OBSERVACIONES'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'ID_REMESA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE'
|
||||
DataType = datFloat
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'OTROS_GASTOS'
|
||||
DataType = datFloat
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'ID_TIENDA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -967,11 +1041,13 @@ object srvRecibosProveedor: TsrvRecibosProveedor
|
||||
TargetTable = 'RECIBOS_PROVEEDOR'
|
||||
SQL =
|
||||
'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' +
|
||||
','#10' OBSERVACIONES = :OBSERVACIONES,'#10' ID_REMESA = :ID_REMESA' +
|
||||
','#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
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -10,7 +10,7 @@ unit srvRecibosProveedor_Impl;
|
||||
interface
|
||||
|
||||
uses
|
||||
{vcl:} Classes, SysUtils,
|
||||
{vcl:} Classes, SysUtils,
|
||||
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
||||
{Ancestor Implementation:} DataAbstractService_Impl,
|
||||
{Used RODLs:} DataAbstract4_Intf,
|
||||
@ -43,8 +43,8 @@ uses
|
||||
Dialogs,
|
||||
{Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils,
|
||||
schRecibosProveedorClient_Intf, uRestriccionesUsuarioUtils,
|
||||
uBizPagosProveedorServer;
|
||||
// uRptRecibosProveedor_Server; //, uBizRecibosProveedorServer;
|
||||
uBizPagosProveedorServer, uBizRecibosProveedorServer;
|
||||
// uRptRecibosProveedor_Server;
|
||||
|
||||
procedure Create_srvRecibosProveedor(out anInstance : IUnknown);
|
||||
begin
|
||||
@ -69,6 +69,7 @@ end;
|
||||
procedure TsrvRecibosProveedor.DARemoteServiceCreate(Sender: TObject);
|
||||
begin
|
||||
SessionManager := dmServer.SessionManager;
|
||||
bpRecibosProveedor.BusinessRulesID := BIZ_SERVER_RECIBOS_PROVEEDOR;
|
||||
bpPagosProveedor.BusinessRulesID := BIZ_SERVER_PAGOS_PROVEEDOR;
|
||||
end;
|
||||
|
||||
|
||||
@ -28,7 +28,8 @@ requires
|
||||
GUIBase,
|
||||
RecibosProveedor_controller,
|
||||
RecibosProveedor_model,
|
||||
JvGlobusD11R;
|
||||
JvGlobusD11R,
|
||||
Contactos_view;
|
||||
|
||||
contains
|
||||
uEditorRecibosProveedor in 'uEditorRecibosProveedor.pas' {fEditorRecibosProveedor: TfEditorRecibosCliente},
|
||||
|
||||
@ -46,10 +46,11 @@
|
||||
<DelphiCompile Include="RecibosProveedor_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\GUIBase.dcp" />
|
||||
<DCCReference Include="..\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\RecibosProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\RecibosProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contactos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\..\Lib\RecibosProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\RecibosProveedor_model.dcp" />
|
||||
<DCCReference Include="uEditorElegirRecibosProveedor.pas">
|
||||
<Form>fEditorElegirRecibosProveedor</Form>
|
||||
<DesignClass>TfEditorElegirRecibosProveedor</DesignClass>
|
||||
|
||||
@ -4,7 +4,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
|
||||
ClientWidth = 691
|
||||
OnClose = CustomEditorClose
|
||||
ExplicitWidth = 699
|
||||
ExplicitHeight = 581
|
||||
ExplicitHeight = 588
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
@ -51,7 +51,6 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 685
|
||||
Height = 353
|
||||
ActivePage = pagPagos
|
||||
ExplicitLeft = 3
|
||||
ExplicitTop = 79
|
||||
ExplicitWidth = 685
|
||||
@ -85,78 +84,48 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
|
||||
DesignSize = (
|
||||
677
|
||||
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
|
||||
ExplicitWidth = 274
|
||||
Width = 274
|
||||
end
|
||||
inherited eFechaEmision: TcxDBTextEdit
|
||||
Left = 428
|
||||
ExplicitLeft = 428
|
||||
ExplicitWidth = 20
|
||||
Width = 20
|
||||
Left = 481
|
||||
ExplicitLeft = 481
|
||||
end
|
||||
inherited eFormaPago: TcxDBTextEdit
|
||||
Left = 428
|
||||
ExplicitLeft = 428
|
||||
ExplicitWidth = 42
|
||||
Width = 42
|
||||
Left = 481
|
||||
ExplicitLeft = 481
|
||||
end
|
||||
inherited eImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 428
|
||||
Left = 481
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 428
|
||||
ExplicitWidth = 182
|
||||
Width = 182
|
||||
ExplicitLeft = 481
|
||||
end
|
||||
inherited eNombreCliente: TcxDBTextEdit
|
||||
Left = 428
|
||||
ExplicitLeft = 428
|
||||
ExplicitWidth = 171
|
||||
Width = 171
|
||||
Left = 481
|
||||
ExplicitLeft = 481
|
||||
end
|
||||
inherited eNifCif: TcxDBTextEdit
|
||||
Left = 428
|
||||
ExplicitLeft = 428
|
||||
Left = 481
|
||||
ExplicitLeft = 481
|
||||
ExplicitWidth = 255
|
||||
Width = 255
|
||||
end
|
||||
inherited eEntidad: TcxDBTextEdit
|
||||
Left = 428
|
||||
ExplicitLeft = 428
|
||||
ExplicitWidth = 90
|
||||
Width = 90
|
||||
Left = 481
|
||||
ExplicitLeft = 481
|
||||
end
|
||||
inherited eSucursal: TcxDBTextEdit
|
||||
Left = 540
|
||||
ExplicitLeft = 540
|
||||
ExplicitWidth = 75
|
||||
Width = 75
|
||||
Left = 556
|
||||
ExplicitLeft = 556
|
||||
end
|
||||
inherited eDC: TcxDBTextEdit
|
||||
Left = 622
|
||||
ExplicitLeft = 622
|
||||
Left = 605
|
||||
ExplicitLeft = 605
|
||||
end
|
||||
inherited eCuenta: TcxDBTextEdit
|
||||
Left = 428
|
||||
ExplicitLeft = 428
|
||||
ExplicitWidth = 83
|
||||
Width = 83
|
||||
end
|
||||
inherited eRemesa: TcxDBTextEdit
|
||||
ExplicitWidth = 113
|
||||
Width = 113
|
||||
Left = 481
|
||||
ExplicitLeft = 481
|
||||
end
|
||||
inherited edtFechaEmision: TcxDBDateEdit
|
||||
ExplicitWidth = 97
|
||||
@ -167,12 +136,24 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
|
||||
Width = 129
|
||||
end
|
||||
inherited rReferenciaFacturaProv: TcxDBTextEdit
|
||||
Left = 428
|
||||
ExplicitLeft = 428
|
||||
Left = 481
|
||||
ExplicitLeft = 481
|
||||
end
|
||||
inherited rRefReciboCompensado: TcxDBTextEdit
|
||||
ExplicitWidth = 216
|
||||
Width = 216
|
||||
inherited frViewProveedorRecibo: TfrViewDatosYSeleccionProveedor
|
||||
Left = 384
|
||||
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
|
||||
@ -274,28 +255,16 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
|
||||
Width = 677
|
||||
ExplicitWidth = 677
|
||||
inherited ToolButton1: TToolButton
|
||||
Top = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
Top = 0
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton5: TToolButton
|
||||
Top = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton2: TToolButton
|
||||
Top = 0
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
Top = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Top = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton3: TToolButton
|
||||
Top = 0
|
||||
@ -343,8 +312,6 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
|
||||
inherited eImporte: TcxDBCurrencyEdit
|
||||
DataBinding.DataSource = dsDataTable
|
||||
Properties.OnEditValueChanged = frViewReciboProvImportes1eImportePropertiesEditValueChanged
|
||||
ExplicitWidth = 150
|
||||
Width = 150
|
||||
end
|
||||
inherited eOtrosGastos: TcxDBCurrencyEdit
|
||||
DataBinding.DataSource = dsDataTable
|
||||
|
||||
@ -62,6 +62,7 @@ type
|
||||
procedure GuardarInterno; override;
|
||||
|
||||
procedure PonerTitulos(const ATitulo: string = ''); override;
|
||||
procedure OnProveedorChanged(Sender: TObject);
|
||||
|
||||
public
|
||||
property Recibo: IBizRecibosProveedor read GetRecibo write SetRecibo;
|
||||
@ -91,6 +92,9 @@ begin
|
||||
inherited;
|
||||
FImporteRestante := 0;
|
||||
pgPaginas.ActivePageIndex := 0;
|
||||
|
||||
//RECIBOS COMPENSADOS DESHABILITADOS
|
||||
pagCompensados.TabVisible := False;
|
||||
ViewRecibo := frViewReciboProveedor1;
|
||||
end;
|
||||
|
||||
@ -134,13 +138,40 @@ begin
|
||||
end;
|
||||
|
||||
procedure TfEditorReciboProveedor.frViewPagosProveedor1actAnadirExecute(Sender: TObject);
|
||||
var
|
||||
AFechaPago: String;
|
||||
AIgnorarContabilidad: Integer;
|
||||
ASubCuenta: Integer;
|
||||
|
||||
begin
|
||||
inherited;
|
||||
|
||||
//En el caso de haber añadido el pago del recibo ya no podremos modificarlo
|
||||
if FController.AnadirPago(Recibo) then
|
||||
if (Length(Recibo.REFERENCIA_REMESA) = 0) or
|
||||
(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
|
||||
//Podremos modificar si anulamos el pago mediante una devolución
|
||||
else
|
||||
HabilitarRecibo;
|
||||
end;
|
||||
@ -174,9 +205,35 @@ begin
|
||||
end;
|
||||
|
||||
procedure TfEditorReciboProveedor.frViewPagosProveedor1actModificarExecute(Sender: TObject);
|
||||
var
|
||||
AFechaPago: String;
|
||||
AIgnorarContabilidad: Integer;
|
||||
ASubCuenta: Integer;
|
||||
|
||||
begin
|
||||
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;
|
||||
|
||||
procedure TfEditorReciboProveedor.frViewPagosProveedor1actModificarUpdate(Sender: TObject);
|
||||
@ -265,6 +322,11 @@ begin
|
||||
frViewPagosProveedor1.ListaPagosProveedor.ActiveView.StoreToRegistry(JvAppRegistryStorage.Root);
|
||||
end;
|
||||
|
||||
procedure TfEditorReciboProveedor.OnProveedorChanged(Sender: TObject);
|
||||
begin
|
||||
FRecibo.Proveedor := frViewReciboProveedor1.frViewProveedorRecibo.Proveedor;
|
||||
end;
|
||||
|
||||
procedure TfEditorReciboProveedor.PonerTitulos(const ATitulo: string);
|
||||
var
|
||||
FTitulo : String;
|
||||
@ -299,9 +361,10 @@ procedure TfEditorReciboProveedor.SetController(const Value: IRecibosProveedorCo
|
||||
begin
|
||||
FController := Value;
|
||||
if Assigned(FController) then
|
||||
begin
|
||||
frViewRecibosProvCompensados1.Controller := FController;
|
||||
|
||||
// (ViewRecibo as IViewReciboProveedor).Controller := (FController as IRecibosProveedorController);
|
||||
(ViewRecibo as IViewReciboProveedor).Controller := (FController as IRecibosProveedorController);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorReciboProveedor.SetRecibo(const Value: IBizRecibosProveedor);
|
||||
@ -312,6 +375,9 @@ begin
|
||||
if Assigned(FViewRecibo) and Assigned(Recibo) then
|
||||
begin
|
||||
FViewRecibo.Recibo := Recibo;
|
||||
frViewReciboProveedor1.frViewProveedorRecibo.Proveedor := FRecibo.Proveedor;
|
||||
frViewReciboProveedor1.frViewProveedorRecibo.OnProveedorChanged := OnProveedorChanged;
|
||||
|
||||
frViewPagosProveedor1.Pagos := Recibo.Pagos;
|
||||
frViewRecibosProvCompensados1.ReciboProveedor := FRecibo;
|
||||
|
||||
|
||||
@ -2,9 +2,8 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
|
||||
Caption = 'Lista de recibos de proveedor'
|
||||
ClientHeight = 664
|
||||
ClientWidth = 638
|
||||
ExplicitTop = -134
|
||||
ExplicitWidth = 646
|
||||
ExplicitHeight = 691
|
||||
ExplicitHeight = 698
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
@ -42,7 +41,7 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
|
||||
Width = 638
|
||||
ExplicitWidth = 638
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 276
|
||||
ExplicitWidth = 403
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 638
|
||||
@ -175,13 +174,7 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
|
||||
Left = 136
|
||||
Top = 176
|
||||
inherited actNuevo: TAction
|
||||
Enabled = False
|
||||
ImageIndex = 22
|
||||
Visible = False
|
||||
end
|
||||
inherited actEliminar: TAction
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
inherited actPrevisualizar: TAction
|
||||
Enabled = False
|
||||
|
||||
Binary file not shown.
@ -1,21 +1,21 @@
|
||||
inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
Width = 618
|
||||
Height = 342
|
||||
ExplicitWidth = 618
|
||||
ExplicitHeight = 342
|
||||
Width = 985
|
||||
Height = 553
|
||||
ExplicitWidth = 985
|
||||
ExplicitHeight = 553
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 618
|
||||
Height = 342
|
||||
Width = 985
|
||||
Height = 553
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||
DesignSize = (
|
||||
618
|
||||
342)
|
||||
985
|
||||
553)
|
||||
object eReferencia: TcxDBTextEdit
|
||||
Left = 136
|
||||
Top = 30
|
||||
@ -92,7 +92,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
end
|
||||
object memObservaciones: TcxDBMemo
|
||||
Left = 22
|
||||
Top = 267
|
||||
Top = 365
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
DataBinding.DataField = 'OBSERVACIONES'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -104,12 +104,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 7
|
||||
TabOrder = 9
|
||||
Height = 49
|
||||
Width = 274
|
||||
Width = 300
|
||||
end
|
||||
object eFechaEmision: TcxDBTextEdit
|
||||
Left = 439
|
||||
Left = 764
|
||||
Top = 57
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_FACTURA'
|
||||
@ -131,11 +131,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 9
|
||||
TabOrder = 11
|
||||
Width = 20
|
||||
end
|
||||
object eFormaPago: TcxDBTextEdit
|
||||
Left = 439
|
||||
Left = 764
|
||||
Top = 84
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FORMA_PAGO_FACTURA'
|
||||
@ -157,11 +157,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 10
|
||||
TabOrder = 12
|
||||
Width = 42
|
||||
end
|
||||
object eImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 439
|
||||
Left = 764
|
||||
Top = 111
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'IMPORTE_FACTURA'
|
||||
@ -188,12 +188,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 11
|
||||
TabOrder = 13
|
||||
Height = 21
|
||||
Width = 182
|
||||
end
|
||||
object eNombreCliente: TcxDBTextEdit
|
||||
Left = 439
|
||||
Left = 764
|
||||
Top = 194
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'NOMBRE_PROVEEDOR'
|
||||
@ -215,11 +215,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 13
|
||||
TabOrder = 15
|
||||
Width = 171
|
||||
end
|
||||
object eNifCif: TcxDBTextEdit
|
||||
Left = 439
|
||||
Left = 764
|
||||
Top = 167
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'NIF_CIF_PROVEEDOR'
|
||||
@ -241,11 +241,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 12
|
||||
TabOrder = 14
|
||||
Width = 147
|
||||
end
|
||||
object eEntidad: TcxDBTextEdit
|
||||
Left = 439
|
||||
Left = 764
|
||||
Top = 221
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'ENTIDAD_PROVEEDOR'
|
||||
@ -267,11 +267,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 14
|
||||
TabOrder = 16
|
||||
Width = 90
|
||||
end
|
||||
object eSucursal: TcxDBTextEdit
|
||||
Left = 514
|
||||
Left = 859
|
||||
Top = 221
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'SUCURSAL_PROVEEDOR'
|
||||
@ -293,11 +293,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 15
|
||||
TabOrder = 17
|
||||
Width = 75
|
||||
end
|
||||
object eDC: TcxDBTextEdit
|
||||
Left = 563
|
||||
Left = 930
|
||||
Top = 221
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'DC_PROVEEDOR'
|
||||
@ -319,11 +319,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 16
|
||||
TabOrder = 18
|
||||
Width = 33
|
||||
end
|
||||
object eCuenta: TcxDBTextEdit
|
||||
Left = 439
|
||||
Left = 764
|
||||
Top = 248
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'CUENTA_PROVEEDOR'
|
||||
@ -345,7 +345,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 17
|
||||
TabOrder = 19
|
||||
Width = 83
|
||||
end
|
||||
object eRemesa: TcxDBTextEdit
|
||||
@ -424,7 +424,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
Width = 287
|
||||
end
|
||||
object rReferenciaFacturaProv: TcxDBTextEdit
|
||||
Left = 439
|
||||
Left = 764
|
||||
Top = 30
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'REFERENCIA_FACTURA_PROV'
|
||||
@ -446,12 +446,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 8
|
||||
TabOrder = 10
|
||||
Width = 157
|
||||
end
|
||||
object rRefReciboCompensado: TcxDBTextEdit
|
||||
Left = 136
|
||||
Top = 216
|
||||
Top = 243
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'REFERENCIA_REC_COMPENSADO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -472,9 +472,108 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 6
|
||||
TabOrder = 7
|
||||
Width = 216
|
||||
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
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
@ -527,15 +626,30 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
Control = eRemesa
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item18: TdxLayoutItem
|
||||
Caption = 'Descripcion:'
|
||||
Control = eDescripcion
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group9: TdxLayoutGroup
|
||||
Caption = 'Compensado en recibo'
|
||||
Visible = False
|
||||
object dxLayoutControl1Item4: TdxLayoutItem
|
||||
Caption = 'Ref. recibo:'
|
||||
Control = rRefReciboCompensado
|
||||
ControlOptions.ShowBorder = False
|
||||
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
|
||||
Caption = 'Observaciones'
|
||||
object dxLayoutControl1Item5: TdxLayoutItem
|
||||
@ -554,7 +668,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
Caption = 'New Group'
|
||||
ShowCaption = False
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Group5: TdxLayoutGroup
|
||||
object dxLayoutControlFactura: TdxLayoutGroup
|
||||
Caption = 'Datos de la factura'
|
||||
object dxLayoutControl1Item21: TdxLayoutItem
|
||||
Caption = 'Ref. factura prov.:'
|
||||
@ -581,7 +695,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group6: TdxLayoutGroup
|
||||
object dxLayoutControlProveedor: TdxLayoutGroup
|
||||
AutoAligns = [aaHorizontal]
|
||||
AlignVert = avClient
|
||||
Caption = 'Datos del proveedor'
|
||||
@ -636,6 +750,16 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
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
|
||||
|
||||
@ -7,11 +7,15 @@ uses
|
||||
Dialogs, uViewBase, uBizRecibosProveedor, DB, uDADataTable, dxLayoutControl,
|
||||
cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit,
|
||||
cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls,
|
||||
uDAInterfaces;
|
||||
uDAInterfaces, uCustomView, uViewDatosYSeleccionProveedor, uRecibosProveedorController, uViewTienda;
|
||||
|
||||
type
|
||||
IViewReciboProveedor = interface(IViewBase)
|
||||
['{3EDDAF2C-2A99-43AE-8DBB-3AC300660D94}']
|
||||
function GetController : IRecibosProveedorController;
|
||||
procedure SetController (const Value : IRecibosProveedorController);
|
||||
property Controller : IRecibosProveedorController read GetController write SetController;
|
||||
|
||||
function GetRecibo: IBizRecibosProveedor;
|
||||
procedure SetRecibo(const Value: IBizRecibosProveedor);
|
||||
property Recibo: IBizRecibosProveedor read GetRecibo write SetRecibo;
|
||||
@ -37,7 +41,7 @@ type
|
||||
eFormaPago: TcxDBTextEdit;
|
||||
dxLayoutControl1Item9: TdxLayoutItem;
|
||||
eImporteTotal: TcxDBCurrencyEdit;
|
||||
dxLayoutControl1Group5: TdxLayoutGroup;
|
||||
dxLayoutControlFactura: TdxLayoutGroup;
|
||||
dxLayoutControl1Item10: TdxLayoutItem;
|
||||
eNombreCliente: TcxDBTextEdit;
|
||||
dxLayoutControl1Item11: TdxLayoutItem;
|
||||
@ -50,7 +54,7 @@ type
|
||||
eDC: TcxDBTextEdit;
|
||||
dxLayoutControl1Item15: TdxLayoutItem;
|
||||
eCuenta: TcxDBTextEdit;
|
||||
dxLayoutControl1Group6: TdxLayoutGroup;
|
||||
dxLayoutControlProveedor: TdxLayoutGroup;
|
||||
dxLayoutControl1Group8: TdxLayoutGroup;
|
||||
dxLayoutControl1Item16: TdxLayoutItem;
|
||||
eRemesa: TcxDBTextEdit;
|
||||
@ -69,12 +73,25 @@ type
|
||||
rReferenciaFacturaProv: TcxDBTextEdit;
|
||||
dxLayoutControl1Item4: TdxLayoutItem;
|
||||
rRefReciboCompensado: TcxDBTextEdit;
|
||||
dxLayoutControl1Item6: TdxLayoutItem;
|
||||
frViewProveedorRecibo: TfrViewDatosYSeleccionProveedor;
|
||||
dxLayoutControlProveedorModif: TdxLayoutGroup;
|
||||
dxLayoutControl1Item17: TdxLayoutItem;
|
||||
frViewTienda1: TfrViewTienda;
|
||||
dxLayoutControl1Group3: TdxLayoutGroup;
|
||||
dxLayoutControl1Item18: TdxLayoutItem;
|
||||
eDescripcion: TcxDBTextEdit;
|
||||
private
|
||||
FRecibo : IBizRecibosProveedor;
|
||||
FController : IRecibosProveedorController;
|
||||
function GetRecibo: IBizRecibosProveedor;
|
||||
procedure SetRecibo(const Value: IBizRecibosProveedor);
|
||||
function GetController : IRecibosProveedorController;
|
||||
procedure SetController (const Value : IRecibosProveedorController);
|
||||
|
||||
public
|
||||
property Recibo: IBizRecibosProveedor read GetRecibo write SetRecibo;
|
||||
property Controller : IRecibosProveedorController read GetController write SetController;
|
||||
end;
|
||||
|
||||
var
|
||||
@ -86,16 +103,47 @@ implementation
|
||||
|
||||
{ TfrViewReciboProveedor }
|
||||
|
||||
function TfrViewReciboProveedor.GetController: IRecibosProveedorController;
|
||||
begin
|
||||
Result := FController;
|
||||
end;
|
||||
|
||||
function TfrViewReciboProveedor.GetRecibo: IBizRecibosProveedor;
|
||||
begin
|
||||
Result := FRecibo;
|
||||
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);
|
||||
begin
|
||||
FRecibo := Value;
|
||||
|
||||
//Por defecto
|
||||
dxLayoutControlFactura.Visible := true;
|
||||
dxLayoutControlProveedor.Visible := true;
|
||||
dxLayoutControlProveedorModif.Visible := false;
|
||||
eDescripcion.Enabled := False;
|
||||
|
||||
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
|
||||
DADataSource.DataTable := NIL;
|
||||
end;
|
||||
|
||||
@ -51,11 +51,15 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
|
||||
object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn
|
||||
Caption = 'Compensado'
|
||||
DataBinding.FieldName = 'ID_RECIBO_COMPENSADO'
|
||||
Visible = False
|
||||
OnCustomDrawCell = cxGridViewID_RECIBO_COMPENSADOCustomDrawCell
|
||||
VisibleForCustomization = False
|
||||
end
|
||||
object cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn
|
||||
Caption = 'Ref. recibo compensado'
|
||||
DataBinding.FieldName = 'REFERENCIA_REC_COMPENSADO'
|
||||
Visible = False
|
||||
VisibleForCustomization = False
|
||||
end
|
||||
object cxGridViewREFERENCIA_FACTURA_PROV: TcxGridDBColumn
|
||||
Caption = 'Ref. factura prov.'
|
||||
@ -160,7 +164,17 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 531
|
||||
ExplicitWidth = 531
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
ExplicitWidth = 273
|
||||
Width = 273
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 234
|
||||
ExplicitLeft = 234
|
||||
ExplicitWidth = 273
|
||||
Width = 273
|
||||
end
|
||||
|
||||
Binary file not shown.
@ -87,8 +87,6 @@ uses
|
||||
schUnidadesMedidaClient_Intf in '..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas',
|
||||
schUnidadesMedidaServer_Intf in '..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas',
|
||||
uBizPagosProveedorServer in '..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas',
|
||||
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
|
||||
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
|
||||
uRptFichasEmpleado_Server in '..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas' {RptFichasEmpleado: 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},
|
||||
@ -106,8 +104,6 @@ uses
|
||||
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
|
||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.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',
|
||||
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
|
||||
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',
|
||||
schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_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 ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -169,6 +169,7 @@
|
||||
<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\uBizPagosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
|
||||
@ -14,7 +14,7 @@ BEGIN
|
||||
BEGIN
|
||||
VALUE "FileVersion", "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
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user