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

Fin de repaso para que no se puedan modificar pagos de recibos cuyos asientos esten punteados o el ejercicio este cerrado

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@396 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2009-02-16 18:40:40 +00:00
parent 8ab05f7040
commit 2b126aa73c
30 changed files with 948 additions and 871 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

120
Database/scripts/factuges.sql
View File

@ -449,22 +449,22 @@ begin
if (diferencia > 0) then if (diferencia > 0) then
begin begin
/*APUNTE DE CIERRE*/ /*APUNTE DE CIERRE*/
insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, HABER) insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, HABER)
values (:id_apunte_cierre, :id_asiento_cierre, :id_subcuenta_cierre, :num_orden, 'Asiento de cierre ' || :nombre_ejercicio_cierre, :diferencia); values (:id_apunte_cierre, :id_asiento_cierre, :id_subcuenta_cierre, :num_orden, -1, 'Asiento de cierre ' || :nombre_ejercicio_cierre, :diferencia);
/*APUNTE DE APERTURA*/ /*APUNTE DE APERTURA*/
insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DEBE) insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DEBE)
values (:id_apunte_apertura, :id_asiento_apertura, :id_subcuenta_apertura, :num_orden, 'Asiento de apertura ' || :nombre_ejercicio_apertura, :diferencia); values (:id_apunte_apertura, :id_asiento_apertura, :id_subcuenta_apertura, :num_orden, -1, 'Asiento de apertura ' || :nombre_ejercicio_apertura, :diferencia);
end end
else else
begin begin
/*APUNTE DE CIERRE*/ /*APUNTE DE CIERRE*/
insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DEBE) insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DEBE)
values (:id_apunte_cierre, :id_asiento_cierre, :id_subcuenta_cierre, :num_orden, 'Asiento de cierre ' || :nombre_ejercicio_cierre, (:diferencia)*-1); values (:id_apunte_cierre, :id_asiento_cierre, :id_subcuenta_cierre, :num_orden, -1, 'Asiento de cierre ' || :nombre_ejercicio_cierre, (:diferencia)*-1);
/*APUNTE DE APERTURA*/ /*APUNTE DE APERTURA*/
insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, HABER) insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, HABER)
values (:id_apunte_apertura, :id_asiento_apertura, :id_subcuenta_apertura, :num_orden, 'Asiento de apertura ' || :nombre_ejercicio_apertura, (:diferencia)*-1); values (:id_apunte_apertura, :id_asiento_apertura, :id_subcuenta_apertura, :num_orden, -1, 'Asiento de apertura ' || :nombre_ejercicio_apertura, (:diferencia)*-1);
end end
num_orden = num_orden + 1; num_orden = num_orden + 1;
end end
@ -4283,15 +4283,15 @@ begin
IF (IMPORTETOTAL < 0) THEN IF (IMPORTETOTAL < 0) THEN
BEGIN BEGIN
/*INSERTAMOS LOS APUNTES DEL ABONO*/ /*INSERTAMOS LOS APUNTES DEL ABONO*/
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, 'Abono de cliente: ' || :RAZON, VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, -1, 'Abono de cliente: ' || :RAZON,
:REFERENCIAFACTURA, NULL, -1*(:IMPORTETOTAL)); :REFERENCIAFACTURA, NULL, -1*(:IMPORTETOTAL));
END END
ELSE ELSE
BEGIN BEGIN
/*INSERTAMOS LOS APUNTES DE LA FACTURA*/ /*INSERTAMOS LOS APUNTES DE LA FACTURA*/
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, 'Factura de cliente: ' || :RAZON, VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, -1, 'Factura de cliente: ' || :RAZON,
:REFERENCIAFACTURA, :IMPORTETOTAL, NULL); :REFERENCIAFACTURA, :IMPORTETOTAL, NULL);
END END
@ -4305,14 +4305,14 @@ begin
IF (IMPORTETOTAL < 0) THEN IF (IMPORTETOTAL < 0) THEN
BEGIN BEGIN
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 2, 'Abono de cliente: ' || :RAZON, VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 2, -1, 'Abono de cliente: ' || :RAZON,
:REFERENCIAFACTURA || ' (IVA)', -1*(:IMPORTEIVA), NULL); :REFERENCIAFACTURA || ' (IVA)', -1*(:IMPORTEIVA), NULL);
END END
ELSE ELSE
BEGIN BEGIN
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 2, 'Factura de cliente: ' || :RAZON, VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 2, -1, 'Factura de cliente: ' || :RAZON,
:REFERENCIAFACTURA || ' (IVA)', NULL, :IMPORTEIVA); :REFERENCIAFACTURA || ' (IVA)', NULL, :IMPORTEIVA);
END END
END END
@ -4327,14 +4327,14 @@ begin
IF (IMPORTETOTAL < 0) THEN IF (IMPORTETOTAL < 0) THEN
BEGIN BEGIN
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 3, 'Abono de cliente: ' || :RAZON, VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 3, -1, 'Abono de cliente: ' || :RAZON,
:REFERENCIAFACTURA || ' (RE)', -1*(:IMPORTERE), NULL); :REFERENCIAFACTURA || ' (RE)', -1*(:IMPORTERE), NULL);
END END
ELSE ELSE
BEGIN BEGIN
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 3, 'Factura de cliente: ' || :RAZON, VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 3, -1, 'Factura de cliente: ' || :RAZON,
:REFERENCIAFACTURA || ' (RE)', NULL, :IMPORTERE); :REFERENCIAFACTURA || ' (RE)', NULL, :IMPORTERE);
END END
END END
@ -4343,14 +4343,14 @@ begin
BEGIN BEGIN
IF (IMPORTETOTAL < 0) THEN IF (IMPORTETOTAL < 0) THEN
BEGIN BEGIN
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :ID_SUBCUENTA_VENTA, 4, 'Abono de cliente: ' || :RAZON, VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :ID_SUBCUENTA_VENTA, 4, -1, 'Abono de cliente: ' || :RAZON,
:REFERENCIAFACTURA || ' (Base imponible)', -1*(:BASEIMPONIBLE), NULL); :REFERENCIAFACTURA || ' (Base imponible)', -1*(:BASEIMPONIBLE), NULL);
END END
ELSE ELSE
BEGIN BEGIN
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :ID_SUBCUENTA_VENTA, 4, 'Factura de cliente: ' || :RAZON, VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :ID_SUBCUENTA_VENTA, 4, -1, 'Factura de cliente: ' || :RAZON,
:REFERENCIAFACTURA || ' (Base imponible)', NULL, :BASEIMPONIBLE); :REFERENCIAFACTURA || ' (Base imponible)', NULL, :BASEIMPONIBLE);
END END
END END
@ -4439,15 +4439,15 @@ begin
IF (IMPORTETOTAL < 0) THEN IF (IMPORTETOTAL < 0) THEN
BEGIN BEGIN
/*INSERTAMOS LOS APUNTES DEL ABONO*/ /*INSERTAMOS LOS APUNTES DEL ABONO*/
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, 'Abono de proveedor: ' || :RAZON, VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, -1, 'Abono de proveedor: ' || :RAZON,
:REFERENCIAFACTURA, -1*(:IMPORTETOTAL), NULL); :REFERENCIAFACTURA, -1*(:IMPORTETOTAL), NULL);
END END
ELSE ELSE
BEGIN BEGIN
/*INSERTAMOS LOS APUNTES DE LA FACTURA*/ /*INSERTAMOS LOS APUNTES DE LA FACTURA*/
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, 'Factura de proveedor: ' || :RAZON, VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, -1, 'Factura de proveedor: ' || :RAZON,
:REFERENCIAFACTURA, NULL, :IMPORTETOTAL); :REFERENCIAFACTURA, NULL, :IMPORTETOTAL);
END END
@ -4461,14 +4461,14 @@ begin
IF (IMPORTETOTAL < 0) THEN IF (IMPORTETOTAL < 0) THEN
BEGIN BEGIN
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 2, 'Abono de proveedor: ' || :RAZON, VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 2, -1, 'Abono de proveedor: ' || :RAZON,
:REFERENCIAFACTURA || ' (IVA)', NULL, -1*(:IMPORTEIVA)); :REFERENCIAFACTURA || ' (IVA)', NULL, -1*(:IMPORTEIVA));
END END
ELSE ELSE
BEGIN BEGIN
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 2, 'Factura de proveedor: ' || :RAZON, VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 2, -1, 'Factura de proveedor: ' || :RAZON,
:REFERENCIAFACTURA || ' (IVA)', :IMPORTEIVA, NULL); :REFERENCIAFACTURA || ' (IVA)', :IMPORTEIVA, NULL);
END END
END END
@ -4483,14 +4483,14 @@ begin
IF (IMPORTETOTAL < 0) THEN IF (IMPORTETOTAL < 0) THEN
BEGIN BEGIN
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 3, 'Abono de proveedor: ' || :RAZON, VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 3, -1, 'Abono de proveedor: ' || :RAZON,
:REFERENCIAFACTURA || ' (RE)', NULL, -1*(:IMPORTERE)); :REFERENCIAFACTURA || ' (RE)', NULL, -1*(:IMPORTERE));
END END
ELSE ELSE
BEGIN BEGIN
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 3, 'Factura de proveedor: ' || :RAZON, VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 3, -1, 'Factura de proveedor: ' || :RAZON,
:REFERENCIAFACTURA || ' (RE)', :IMPORTERE, NULL); :REFERENCIAFACTURA || ' (RE)', :IMPORTERE, NULL);
END END
END END
@ -4499,14 +4499,14 @@ begin
BEGIN BEGIN
IF (IMPORTETOTAL < 0) THEN IF (IMPORTETOTAL < 0) THEN
BEGIN BEGIN
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :ID_SUBCUENTA_COMPRA, 4, 'Abono de proveedor: ' || :RAZON, VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :ID_SUBCUENTA_COMPRA, 4, -1, 'Abono de proveedor: ' || :RAZON,
:REFERENCIAFACTURA || ' (Base imponible)', NULL, -1*(:BASEIMPONIBLE)); :REFERENCIAFACTURA || ' (Base imponible)', NULL, -1*(:BASEIMPONIBLE));
END END
ELSE ELSE
BEGIN BEGIN
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, CONCEPTO, DOCUMENTO, DEBE, HABER) INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :ID_SUBCUENTA_COMPRA, 4, 'Factura de proveedor: ' || :RAZON, VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :ID_SUBCUENTA_COMPRA, 4, -1, 'Factura de proveedor: ' || :RAZON,
:REFERENCIAFACTURA || ' (Base imponible)', :BASEIMPONIBLE, NULL); :REFERENCIAFACTURA || ' (Base imponible)', :BASEIMPONIBLE, NULL);
END END
END END
@ -4532,17 +4532,18 @@ declare variable debe numeric(11,2);
declare variable haber numeric(11,2); declare variable haber numeric(11,2);
declare variable idempresa integer; declare variable idempresa integer;
declare variable idcontacto integer; declare variable idcontacto integer;
declare variable concepto varchar(2000);
begin begin
/*BUSCAMOS EL PAGO PARA COMPROBAR SI HACER ASIENTO*/ /*BUSCAMOS EL PAGO PARA COMPROBAR SI HACER ASIENTO*/
SELECT PAGOS_CLIENTE.IGNORAR_CONTABILIDAD, RECIBOS_CLIENTE.ID_EMPRESA, RECIBOS_CLIENTE.ID_CLIENTE, SELECT PAGOS_CLIENTE.IGNORAR_CONTABILIDAD, RECIBOS_CLIENTE.ID_EMPRESA, RECIBOS_CLIENTE.ID_CLIENTE,
RECIBOS_CLIENTE.REFERENCIA || ': ' || RECIBOS_CLIENTE.NOMBRE, RECIBOS_CLIENTE.REFERENCIA || ': ' || RECIBOS_CLIENTE.NOMBRE,
PAGOS_CLIENTE.FECHA_PAGO, PAGOS_CLIENTE.FECHA_PAGO, PAGOS_CLIENTE.TIPO,
PAGOS_CLIENTE.TIPO || ': ' || RECIBOS_CLIENTE.DESCRIPCION, PAGOS_CLIENTE.TIPO || ': ' || RECIBOS_CLIENTE.DESCRIPCION,
RECIBOS_CLIENTE.IMPORTE RECIBOS_CLIENTE.IMPORTE
FROM PAGOS_CLIENTE FROM PAGOS_CLIENTE
LEFT JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID = PAGOS_CLIENTE.ID_RECIBO) LEFT JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID = PAGOS_CLIENTE.ID_RECIBO)
WHERE PAGOS_CLIENTE.ID = :IDPAGO WHERE PAGOS_CLIENTE.ID = :IDPAGO
INTO :IGNORARCONTABILIDAD, :IDEMPRESA, :IDCONTACTO, :REFERENCIARECIBO, :FECHAPAGO, :TIPOPAGO, :IMPORTE; INTO :IGNORARCONTABILIDAD, :IDEMPRESA, :IDCONTACTO, :REFERENCIARECIBO, :FECHAPAGO, :TIPOPAGO, :CONCEPTO, :IMPORTE;
/*BUSCAMOS EL EJERCICIO ACTIVO PARA LA EMPRESA DE LA FACTURA*/ /*BUSCAMOS EL EJERCICIO ACTIVO PARA LA EMPRESA DE LA FACTURA*/
SELECT ID SELECT ID
@ -4597,22 +4598,22 @@ begin
/*INSERTAMOS LOS APUNTES*/ /*INSERTAMOS LOS APUNTES*/
if (TIPOPAGO = 'Pago') then if (TIPOPAGO = 'Pago') then
begin
DEBE = :IMPORTE;
HABER = NULL;
end
else
begin begin
DEBE = NULL; DEBE = NULL;
HABER = :IMPORTE; HABER = :IMPORTE;
end end
else
begin
DEBE = :IMPORTE;
HABER = NULL;
end
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER) INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, -1, :TIPOPAGO, VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, -1, :CONCEPTO,
:REFERENCIARECIBO, :DEBE, :HABER); :REFERENCIARECIBO, :DEBE, :HABER);
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER) INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTAPAGO, 2, -1, :TIPOPAGO, VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTAPAGO, 2, -1, :CONCEPTO,
:REFERENCIARECIBO, :HABER, :DEBE); :REFERENCIARECIBO, :HABER, :DEBE);
END END
@ -4637,17 +4638,18 @@ declare variable debe numeric(11,2);
declare variable haber numeric(11,2); declare variable haber numeric(11,2);
declare variable idempresa integer; declare variable idempresa integer;
declare variable idcontacto integer; declare variable idcontacto integer;
declare variable concepto varchar(2000);
begin begin
/*BUSCAMOS EL PAGO PARA COMPROBAR SI HACER ASIENTO*/ /*BUSCAMOS EL PAGO PARA COMPROBAR SI HACER ASIENTO*/
SELECT PAGOS_PROVEEDOR.IGNORAR_CONTABILIDAD, RECIBOS_PROVEEDOR.ID_EMPRESA, RECIBOS_PROVEEDOR.ID_PROVEEDOR, SELECT PAGOS_PROVEEDOR.IGNORAR_CONTABILIDAD, RECIBOS_PROVEEDOR.ID_EMPRESA, RECIBOS_PROVEEDOR.ID_PROVEEDOR,
RECIBOS_PROVEEDOR.REFERENCIA || ': ' || RECIBOS_PROVEEDOR.NOMBRE, RECIBOS_PROVEEDOR.REFERENCIA || ': ' || RECIBOS_PROVEEDOR.NOMBRE,
PAGOS_PROVEEDOR.FECHA_PAGO, PAGOS_PROVEEDOR.FECHA_PAGO, PAGOS_PROVEEDOR.TIPO,
PAGOS_PROVEEDOR.TIPO || ': ' || RECIBOS_PROVEEDOR.DESCRIPCION, PAGOS_PROVEEDOR.TIPO || ': ' || RECIBOS_PROVEEDOR.DESCRIPCION,
RECIBOS_PROVEEDOR.IMPORTE RECIBOS_PROVEEDOR.IMPORTE
FROM PAGOS_PROVEEDOR FROM PAGOS_PROVEEDOR
LEFT JOIN RECIBOS_PROVEEDOR ON (RECIBOS_PROVEEDOR.ID = PAGOS_PROVEEDOR.ID_RECIBO) LEFT JOIN RECIBOS_PROVEEDOR ON (RECIBOS_PROVEEDOR.ID = PAGOS_PROVEEDOR.ID_RECIBO)
WHERE PAGOS_PROVEEDOR.ID = :IDPAGO WHERE PAGOS_PROVEEDOR.ID = :IDPAGO
INTO :IGNORARCONTABILIDAD, :IDEMPRESA, :IDCONTACTO, :REFERENCIARECIBO, :FECHAPAGO, :TIPOPAGO, :IMPORTE; INTO :IGNORARCONTABILIDAD, :IDEMPRESA, :IDCONTACTO, :REFERENCIARECIBO, :FECHAPAGO, :TIPOPAGO, :CONCEPTO, :IMPORTE;
/*BUSCAMOS EL EJERCICIO ACTIVO PARA LA EMPRESA DE LA FACTURA*/ /*BUSCAMOS EL EJERCICIO ACTIVO PARA LA EMPRESA DE LA FACTURA*/
SELECT ID SELECT ID
@ -4699,24 +4701,24 @@ begin
VALUES (:IDASIENTO, :FECHAPAGO, :ORDEN, :IDPAGO, 'p'); VALUES (:IDASIENTO, :FECHAPAGO, :ORDEN, :IDPAGO, 'p');
END END
/*INSERTAMOS LOS APUNTES*/ /*INSERTAMOS LOS APUNTES*/
if (TIPOPAGO = 'Pago') then if (TIPOPAGO = 'Pago') then
begin
DEBE = NULL;
HABER = :IMPORTE;
end
else
begin begin
DEBE = :IMPORTE; DEBE = :IMPORTE;
HABER = NULL; HABER = NULL;
end end
else
begin
DEBE = NULL;
HABER = :IMPORTE;
end
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER) INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, -1, :TIPOPAGO, VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, -1, :CONCEPTO,
:REFERENCIARECIBO, :DEBE, :HABER); :REFERENCIARECIBO, :DEBE, :HABER);
INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER) INSERT INTO CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DOCUMENTO, DEBE, HABER)
VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTAPAGO, 2, -1, :TIPOPAGO, VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTAPAGO, 2, -1, :CONCEPTO,
:REFERENCIARECIBO, :HABER, :DEBE); :REFERENCIARECIBO, :HABER, :DEBE);
END END

90
Source/Base/Base.dproj
View File

@ -66,52 +66,52 @@
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxDockingD11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\dxDockingD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\adortl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\designide.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dsnap.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxNavBarD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Jcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\PluginSDK_D10R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\rtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vcldb.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vclx.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.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\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxNavBarD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D10R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

BIN
Source/Base/Base.res
View File

Binary file not shown.

62
Source/GUIBase/GUIBase.dproj
View File

@ -58,37 +58,37 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\Base.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\cxDataD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\cxEditorsD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\cxExportD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\cxLibraryD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\cxTreeListD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\dbrtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\dxBarD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\dxBarExtItemsD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\dxGDIPlusD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\dxLayoutControlD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\dxPScxCommonD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\dxPsPrVwAdvD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\dxThemeD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\frx11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\frxe11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\fs11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\JvAppFrmD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\JvCtrlsD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\JvGlobusD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\PngComponentsD10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\PNG_D10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\rtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\tb2k_d10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\tbx_d10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\vcl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\vclactnband.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\vcldb.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\vcljpg.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Controller\vclx.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

8
Source/GUIBase/uEditorDBItem.dfm
View File

@ -87,6 +87,9 @@ inherited fEditorDBItem: TfEditorDBItem
ExplicitHeight = 320 ExplicitHeight = 320
object pagGeneral: TTabSheet object pagGeneral: TTabSheet
Caption = 'General' Caption = 'General'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 292 ExplicitHeight = 292
end end
end end
@ -106,13 +109,12 @@ inherited fEditorDBItem: TfEditorDBItem
AlignWithMargins = True AlignWithMargins = True
Left = 6 Left = 6
Top = 4 Top = 4
Width = 640 Width = 55
Height = 25 Height = 13
Margins.Left = 5 Margins.Left = 5
Align = alClient Align = alClient
Caption = 'Comentario' Caption = 'Comentario'
WordWrap = True WordWrap = True
ExplicitHeight = 30
end end
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList

3
Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.pas
View File

@ -37,6 +37,7 @@ type
function getIDCajaBanco: Integer; function getIDCajaBanco: Integer;
function GetTipoSubCuenta: TEnumTipoSubCuenta; function GetTipoSubCuenta: TEnumTipoSubCuenta;
procedure SetTipoSubCuenta(const Value: TEnumTipoSubCuenta); procedure SetTipoSubCuenta(const Value: TEnumTipoSubCuenta);
public public
property TipoSubCuenta: TEnumTipoSubCuenta read GetTipoSubCuenta write SetTipoSubCuenta; property TipoSubCuenta: TEnumTipoSubCuenta read GetTipoSubCuenta write SetTipoSubCuenta;
property IdSubCuenta: Integer read getIDCajaBanco; property IdSubCuenta: Integer read getIDCajaBanco;
@ -76,7 +77,7 @@ end;
procedure TfrViewListaSubcuentas.CustomViewShow(Sender: TObject); procedure TfrViewListaSubcuentas.CustomViewShow(Sender: TObject);
begin begin
inherited; inherited;
if Assigned(AppFactuGES.EjercicioActivo) then if (not ReadOnly) and Assigned(AppFactuGES.EjercicioActivo) then
begin begin
cbSubCuentas.Enabled := True; cbSubCuentas.Enabled := True;
eContabilizar.Enabled := True; eContabilizar.Enabled := True;

12
Source/Modulos/Recibos de cliente/Controller/uPagosClienteController.pas
View File

@ -56,7 +56,7 @@ type
implementation implementation
uses uses
cxControls, DB, uEditorRegistryUtils,Dialogs, cxControls, DB, uEditorRegistryUtils,Dialogs, uFactuGES_App, uBizEjercicios,
uDAInterfaces, uDataTableUtils, uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDataModuleUsuarios,
uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants, uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants,
schRecibosClienteClient_Intf, uDataModuleRecibosCliente; schRecibosClienteClient_Intf, uDataModuleRecibosCliente;
@ -82,6 +82,9 @@ begin
APagosCliente.IGNORAR_CONTABILIDAD := IgnorarContabilidad; APagosCliente.IGNORAR_CONTABILIDAD := IgnorarContabilidad;
APagosCliente.CUENTA := IntToStr(IdSubCuenta); APagosCliente.CUENTA := IntToStr(IdSubCuenta);
APagosCliente.ESTADO_EJERCICIO := AppFactuGES.EjercicioActivo.ESTADO;
APagosCliente.ASIENTO_PUNTEADO := -1;
Result := (APagosCliente.TIPO = CTE_PAGO); Result := (APagosCliente.TIPO = CTE_PAGO);
APagosCliente.Post; APagosCliente.Post;
end; end;
@ -118,6 +121,13 @@ begin
APagoCliente.Last; APagoCliente.Last;
Result := (APagoCliente.TIPO = CTE_PAGO); Result := (APagoCliente.TIPO = CTE_PAGO);
if APagoCliente.ASIENTO_PUNTEADO > 0 then
raise Exception.Create('El asiento asociado al cobro esta punteado por lo que no puede ser borrado.');
if APagoCliente.ESTADO_EJERCICIO = CTE_CERRADO then
raise Exception.Create('El asiento asociado al cobro tiene el ejercicio cerrado por lo que no puede ser borrado.');
APagoCliente.Delete; APagoCliente.Delete;
//Todo lo haremos en memoria ya que los pagos no tienen entidad propia //Todo lo haremos en memoria ya que los pagos no tienen entidad propia
//APagosCliente.DataTable.ApplyUpdates; //APagosCliente.DataTable.ApplyUpdates;

164
Source/Modulos/Recibos de cliente/RecibosCliente_Group.groupproj
View File

@ -9,22 +9,8 @@
<Projects Include="..\..\Cliente\FactuGES.dproj" /> <Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" /> <Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" /> <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contabilidad\Controller\Contabilidad_controller.dproj" />
<Projects Include="..\Contabilidad\Data\Contabilidad_data.dproj" />
<Projects Include="..\Contabilidad\Model\Contabilidad_model.dproj" />
<Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" /> <Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
<Projects Include="..\Contactos\Data\Contactos_data.dproj" />
<Projects Include="..\Contactos\Model\Contactos_model.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" />
<Projects Include="..\Facturas de cliente\Data\FacturasCliente_data.dproj" />
<Projects Include="..\Facturas de cliente\Model\FacturasCliente_model.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" />
<Projects Include="..\Recibos de proveedor\Data\RecibosProveedor_data.dproj" />
<Projects Include="..\Recibos de proveedor\Model\RecibosProveedor_model.dproj" />
<Projects Include="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" /> <Projects Include="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" />
<Projects Include="Controller\RecibosCliente_controller.dproj" /> <Projects Include="Controller\RecibosCliente_controller.dproj" />
<Projects Include="Data\RecibosCliente_data.dproj" /> <Projects Include="Data\RecibosCliente_data.dproj" />
@ -74,6 +60,15 @@
<Target Name="Contactos_view:Make"> <Target Name="Contactos_view:Make">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" /> <MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Contabilidad_view">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="" />
</Target>
<Target Name="Contabilidad_view:Clean">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Clean" />
</Target>
<Target Name="Contabilidad_view:Make">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" />
</Target>
<Target Name="RecibosCliente_model"> <Target Name="RecibosCliente_model">
<MSBuild Projects="Model\RecibosCliente_model.dproj" Targets="" /> <MSBuild Projects="Model\RecibosCliente_model.dproj" Targets="" />
</Target> </Target>
@ -137,141 +132,6 @@
<Target Name="FactuGES_Server:Make"> <Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" /> <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FacturasCliente_view">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_view:Clean">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_view:Make">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Articulos_view">
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="" />
</Target>
<Target Name="Articulos_view:Clean">
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="Clean" />
</Target>
<Target Name="Articulos_view:Make">
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="Make" />
</Target>
<Target Name="Contabilidad_model">
<MSBuild Projects="..\Contabilidad\Model\Contabilidad_model.dproj" Targets="" />
</Target>
<Target Name="Contabilidad_model:Clean">
<MSBuild Projects="..\Contabilidad\Model\Contabilidad_model.dproj" Targets="Clean" />
</Target>
<Target Name="Contabilidad_model:Make">
<MSBuild Projects="..\Contabilidad\Model\Contabilidad_model.dproj" Targets="Make" />
</Target>
<Target Name="Contabilidad_data">
<MSBuild Projects="..\Contabilidad\Data\Contabilidad_data.dproj" Targets="" />
</Target>
<Target Name="Contabilidad_data:Clean">
<MSBuild Projects="..\Contabilidad\Data\Contabilidad_data.dproj" Targets="Clean" />
</Target>
<Target Name="Contabilidad_data:Make">
<MSBuild Projects="..\Contabilidad\Data\Contabilidad_data.dproj" Targets="Make" />
</Target>
<Target Name="Contabilidad_controller">
<MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="" />
</Target>
<Target Name="Contabilidad_controller:Clean">
<MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="Clean" />
</Target>
<Target Name="Contabilidad_controller:Make">
<MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="Make" />
</Target>
<Target Name="Contabilidad_view">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="" />
</Target>
<Target Name="Contabilidad_view:Clean">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Clean" />
</Target>
<Target Name="Contabilidad_view:Make">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_model">
<MSBuild Projects="..\Facturas de cliente\Model\FacturasCliente_model.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_model:Clean">
<MSBuild Projects="..\Facturas de cliente\Model\FacturasCliente_model.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_model:Make">
<MSBuild Projects="..\Facturas de cliente\Model\FacturasCliente_model.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_controller">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_controller:Clean">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_controller:Make">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_data">
<MSBuild Projects="..\Facturas de cliente\Data\FacturasCliente_data.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_data:Clean">
<MSBuild Projects="..\Facturas de cliente\Data\FacturasCliente_data.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_data:Make">
<MSBuild Projects="..\Facturas de cliente\Data\FacturasCliente_data.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_controller">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="" />
</Target>
<Target Name="Contactos_controller:Clean">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_controller:Make">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Make" />
</Target>
<Target Name="RecibosProveedor_model">
<MSBuild Projects="..\Recibos de proveedor\Model\RecibosProveedor_model.dproj" Targets="" />
</Target>
<Target Name="RecibosProveedor_model:Clean">
<MSBuild Projects="..\Recibos de proveedor\Model\RecibosProveedor_model.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosProveedor_model:Make">
<MSBuild Projects="..\Recibos de proveedor\Model\RecibosProveedor_model.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_model">
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="" />
</Target>
<Target Name="Contactos_model:Clean">
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_model:Make">
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="Make" />
</Target>
<Target Name="RecibosProveedor_data">
<MSBuild Projects="..\Recibos de proveedor\Data\RecibosProveedor_data.dproj" Targets="" />
</Target>
<Target Name="RecibosProveedor_data:Clean">
<MSBuild Projects="..\Recibos de proveedor\Data\RecibosProveedor_data.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosProveedor_data:Make">
<MSBuild Projects="..\Recibos de proveedor\Data\RecibosProveedor_data.dproj" Targets="Make" />
</Target>
<Target Name="RecibosProveedor_controller">
<MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="" />
</Target>
<Target Name="RecibosProveedor_controller:Clean">
<MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosProveedor_controller:Make">
<MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_data">
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="" />
</Target>
<Target Name="Contactos_data:Clean">
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_data:Make">
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Make" />
</Target>
<Target Name="RecibosProveedor_view"> <Target Name="RecibosProveedor_view">
<MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="" /> <MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="" />
</Target> </Target>
@ -282,13 +142,13 @@
<MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Make" /> <MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;RecibosCliente_model;RecibosCliente_data;RecibosCliente_controller;RecibosCliente_view;RecibosCliente_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;Articulos_view;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contabilidad_view;FacturasCliente_model;FacturasCliente_controller;FacturasCliente_data;Contactos_controller;RecibosProveedor_model;Contactos_model;RecibosProveedor_data;RecibosProveedor_controller;Contactos_data;RecibosProveedor_view" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Contabilidad_view;RecibosCliente_model;RecibosCliente_data;RecibosCliente_controller;RecibosCliente_view;RecibosCliente_plugin;FactuGES;FactuGES_Server;RecibosProveedor_view" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;RecibosCliente_model:Clean;RecibosCliente_data:Clean;RecibosCliente_controller:Clean;RecibosCliente_view:Clean;RecibosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;Articulos_view:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean;FacturasCliente_model:Clean;FacturasCliente_controller:Clean;FacturasCliente_data:Clean;Contactos_controller:Clean;RecibosProveedor_model:Clean;Contactos_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;Contactos_data:Clean;RecibosProveedor_view:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Contabilidad_view:Clean;RecibosCliente_model:Clean;RecibosCliente_data:Clean;RecibosCliente_controller:Clean;RecibosCliente_view:Clean;RecibosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosProveedor_view:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;RecibosCliente_model:Make;RecibosCliente_data:Make;RecibosCliente_controller:Make;RecibosCliente_view:Make;RecibosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;Articulos_view:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contabilidad_view:Make;FacturasCliente_model:Make;FacturasCliente_controller:Make;FacturasCliente_data:Make;Contactos_controller:Make;RecibosProveedor_model:Make;Contactos_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;Contactos_data:Make;RecibosProveedor_view:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Contabilidad_view:Make;RecibosCliente_model:Make;RecibosCliente_data:Make;RecibosCliente_controller:Make;RecibosCliente_view:Make;RecibosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosProveedor_view:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

58
Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dproj
View File

@ -47,35 +47,35 @@
<DelphiCompile Include="RecibosCliente_view.dpk"> <DelphiCompile Include="RecibosCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\adortl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="..\..\Lib\Contabilidad_view.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contabilidad_view.dcp" />
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
<DCCReference Include="..\..\Lib\Contactos_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
<DCCReference Include="..\..\Lib\Contactos_view.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" />
<DCCReference Include="..\..\Lib\cxDataD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="..\..\Lib\cxEditorsD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\dbrtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="..\..\Lib\dsnap.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="..\..\Lib\dxComnD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GestorInformes_controller.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\JvGlobusD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
<DCCReference Include="..\..\Lib\PngComponentsD10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Lib\PNG_D10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="..\..\Lib\RecibosCliente_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\RecibosCliente_controller.dcp" />
<DCCReference Include="..\..\Lib\RecibosCliente_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\RecibosCliente_model.dcp" />
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="..\..\Lib\vclactnband.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="..\..\Lib\vcldb.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="..\..\Lib\vcljpg.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="..\..\Lib\vclx.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="uEditorElegirRecibosCliente.pas"> <DCCReference Include="uEditorElegirRecibosCliente.pas">
<Form>fEditorElegirRecibosCliente</Form> <Form>fEditorElegirRecibosCliente</Form>
<DesignClass>TfEditorElegirRecibosCliente</DesignClass> <DesignClass>TfEditorElegirRecibosCliente</DesignClass>

BIN
Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.res
View File

Binary file not shown.

142
Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm
View File

@ -3,8 +3,8 @@ object fEditorFechaPago: TfEditorFechaPago
Top = 0 Top = 0
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Fecha del cobro / devoluci'#243'n' Caption = 'Fecha del cobro / devoluci'#243'n'
ClientHeight = 184 ClientHeight = 234
ClientWidth = 535 ClientWidth = 560
Color = clWindow Color = clWindow
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -19,8 +19,8 @@ object fEditorFechaPago: TfEditorFechaPago
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object Label1: TLabel object Label1: TLabel
Left = 39 Left = 38
Top = 15 Top = 64
Width = 362 Width = 362
Height = 13 Height = 13
Caption = Caption =
@ -28,17 +28,24 @@ object fEditorFechaPago: TfEditorFechaPago
' devoluci'#243'n:' ' devoluci'#243'n:'
end end
object Label2: TLabel object Label2: TLabel
Left = 39 Left = 38
Top = 50 Top = 87
Width = 77 Width = 77
Height = 13 Height = 13
Alignment = taRightJustify Alignment = taRightJustify
Caption = 'Fecha del pago:' Caption = 'Fecha del pago:'
FocusControl = eFechaPago FocusControl = eFechaPago
end end
object Label3: TLabel
Left = 38
Top = 127
Width = 306
Height = 13
Caption = 'Seleccione el banco o caja donde se hace el cobro o devoluci'#243'n:'
end
object eFechaPago: TcxDateEdit object eFechaPago: TcxDateEdit
Left = 122 Left = 121
Top = 47 Top = 84
Properties.OnChange = eFechaPagoPropertiesChange Properties.OnChange = eFechaPagoPropertiesChange
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
@ -49,17 +56,90 @@ object fEditorFechaPago: TfEditorFechaPago
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0 TabOrder = 0
Width = 132 Width = 267
end
inline frViewListaSubcuentas1: TfrViewListaSubcuentas
Left = 0
Top = 143
Width = 560
Height = 50
Align = alBottom
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 1
ReadOnly = False
ExplicitTop = 143
ExplicitWidth = 560
ExplicitHeight = 50
inherited dxLayoutControl1: TdxLayoutControl
Width = 560
ExplicitWidth = 560
inherited cbSubCuentas: TcxComboBox
Left = 122
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 122
ExplicitWidth = 376
Width = 376
end
inherited eContabilizar: TcxCheckBox
Left = 393
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 393
ExplicitWidth = 203
Width = 203
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Item1: TdxLayoutItem
Caption = ' Caja/Banco: '
end
end
end
end
object PnlComentario: TPanel
Left = 0
Top = 0
Width = 560
Height = 45
Align = alTop
Alignment = taLeftJustify
AutoSize = True
Color = 13499902
ParentBackground = False
TabOrder = 2
VerticalAlignment = taAlignTop
object lbComentario: TLabel
AlignWithMargins = True
Left = 6
Top = 4
Width = 550
Height = 40
Margins.Left = 5
Align = alClient
Caption = 'Comentario'
WordWrap = True
ExplicitWidth = 55
ExplicitHeight = 13
end
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 143 Top = 193
Width = 535 Width = 560
Height = 41 Height = 41
Align = alBottom Align = alBottom
TabOrder = 1 TabOrder = 3
object bAceptar: TButton object bAceptar: TButton
Left = 39 Left = 347
Top = 8 Top = 8
Width = 75 Width = 75
Height = 25 Height = 25
@ -68,7 +148,7 @@ object fEditorFechaPago: TfEditorFechaPago
TabOrder = 0 TabOrder = 0
end end
object bCancelar: TButton object bCancelar: TButton
Left = 120 Left = 445
Top = 8 Top = 8
Width = 75 Width = 75
Height = 25 Height = 25
@ -77,38 +157,4 @@ object fEditorFechaPago: TfEditorFechaPago
TabOrder = 1 TabOrder = 1
end end
end end
inline frViewListaSubcuentas1: TfrViewListaSubcuentas
Left = 30
Top = 80
Width = 453
Height = 69
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 2
ReadOnly = False
ExplicitLeft = 30
ExplicitTop = 80
inherited dxLayoutControl1: TdxLayoutControl
inherited cbSubCuentas: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 376
Width = 376
end
inherited eContabilizar: TcxCheckBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 203
Width = 203
end
end
end
end end

62
Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas
View File

@ -7,17 +7,21 @@ uses
Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, uIEditorFechaPago, cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, uIEditorFechaPago,
cxCheckBox, uSubCuentasController, Buttons, cxDBEdit, cxGraphics, uCustomView, cxCheckBox, uSubCuentasController, Buttons, cxDBEdit, cxGraphics, uCustomView,
uViewBase, uViewListaSubCuentas; uViewBase, uViewListaSubCuentas, JvExStdCtrls, JvButton, JvCtrls, JvFooter,
JvExExtCtrls, JvExtComponent;
type type
TfEditorFechaPago = class(TfEditorBasico, IEditorFechaPago) TfEditorFechaPago = class(TfEditorBasico, IEditorFechaPago)
Label1: TLabel; Label1: TLabel;
eFechaPago: TcxDateEdit; eFechaPago: TcxDateEdit;
Label2: TLabel;
frViewListaSubcuentas1: TfrViewListaSubcuentas;
Label3: TLabel;
PnlComentario: TPanel;
lbComentario: TLabel;
Panel1: TPanel;
bAceptar: TButton; bAceptar: TButton;
bCancelar: TButton; bCancelar: TButton;
Label2: TLabel;
Panel1: TPanel;
frViewListaSubcuentas1: TfrViewListaSubcuentas;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure eFechaPagoPropertiesChange(Sender: TObject); procedure eFechaPagoPropertiesChange(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
@ -25,22 +29,28 @@ type
private private
FFechaPago : TDateTime; FFechaPago : TDateTime;
FComentario: Variant;
FSoloLectura: Boolean;
function GetFechaPago: TDateTime; function GetFechaPago: TDateTime;
procedure SetFechaPago(const Value: TDateTime); procedure SetFechaPago(const Value: TDateTime);
function GetIgnorarContabilidad: Integer; function GetIgnorarContabilidad: Integer;
procedure SetIgnorarContabilidad(const Value: Integer); procedure SetIgnorarContabilidad(const Value: Integer);
function GetIdSubCuenta: Integer; function GetIdSubCuenta: Integer;
procedure SetIdSubCuenta(const Value: Integer); procedure SetIdSubCuenta(const Value: Integer);
function GetComentario: Variant;
procedure SetComentario(const Value: Variant);
function GetSoloLectura: Boolean;
procedure SetSoloLectura(const Value: Boolean);
public public
property FechaPago: TDateTime Read GetFechaPago write SetFechaPago; property FechaPago: TDateTime Read GetFechaPago write SetFechaPago;
property IgnorarContabilidad: Integer Read GetIgnorarContabilidad write SetIgnorarContabilidad; property IgnorarContabilidad: Integer Read GetIgnorarContabilidad write SetIgnorarContabilidad;
property IdSubCuenta: Integer Read GetIdSubCuenta write SetIdSubCuenta; property IdSubCuenta: Integer Read GetIdSubCuenta write SetIdSubCuenta;
property Comentario: Variant read GetComentario write SetComentario;
property SoloLectura: Boolean read GetSoloLectura write SetSoloLectura;
procedure DeshabilitarContabilidad; procedure DeshabilitarContabilidad;
end; end;
var
fEditorFechaPago: TfEditorFechaPago;
implementation implementation
{$R *.dfm} {$R *.dfm}
@ -91,6 +101,9 @@ begin
{$IFDEF CONTABILIDAD} {$IFDEF CONTABILIDAD}
frViewListaSubCuentas1.TipoSubCuenta := tCajas; frViewListaSubCuentas1.TipoSubCuenta := tCajas;
{$ENDIF} {$ENDIF}
Comentario := Null;
FSoloLectura := False;
end; end;
procedure TfEditorFechaPago.FormShow(Sender: TObject); procedure TfEditorFechaPago.FormShow(Sender: TObject);
@ -115,6 +128,11 @@ begin
end; end;
end; end;
function TfEditorFechaPago.GetComentario: Variant;
begin
Result := FComentario;
end;
function TfEditorFechaPago.GetFechaPago: TDateTime; function TfEditorFechaPago.GetFechaPago: TDateTime;
begin begin
Result := FFechaPago; Result := FFechaPago;
@ -130,6 +148,23 @@ begin
Result := frViewListaSubCuentas1.eContabilizar.EditValue; Result := frViewListaSubCuentas1.eContabilizar.EditValue;
end; end;
function TfEditorFechaPago.GetSoloLectura: Boolean;
begin
Result := FSoloLectura;
end;
procedure TfEditorFechaPago.SetComentario(const Value: Variant);
begin
FComentario := Value;
lbComentario.Caption := '';
lbComentario.Caption := VarToStr(FComentario);
if VarIsNull(FComentario) then
PnlComentario.Visible := False
else
PnlComentario.Visible := True;
end;
procedure TfEditorFechaPago.SetFechaPago(const Value: TDateTime); procedure TfEditorFechaPago.SetFechaPago(const Value: TDateTime);
begin begin
FFechaPago := Value; FFechaPago := Value;
@ -147,4 +182,19 @@ begin
frViewListaSubCuentas1.Refrescar; frViewListaSubCuentas1.Refrescar;
end; end;
procedure TfEditorFechaPago.SetSoloLectura(const Value: Boolean);
begin
FSoloLectura := Value;
if FSoloLectura then
begin
eFechaPago.Enabled := False;
frViewListaSubcuentas1.ReadOnly := True;
end
else
begin
eFechaPago.Enabled := True;
frViewListaSubcuentas1.ReadOnly := False;
end;
end;
end. end.

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

@ -48,25 +48,34 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ExplicitWidth = 885 ExplicitWidth = 885
end end
end end
inherited StatusBar: TJvStatusBar
Top = 543
Width = 885
Panels = <
item
Width = 200
end>
ExplicitTop = 543
ExplicitWidth = 885
end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 879 Width = 879
Height = 361 Height = 331
ActivePage = pagPagos ActivePage = pagPagos
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitLeft = 3 ExplicitTop = 109
ExplicitTop = 79
ExplicitWidth = 879 ExplicitWidth = 879
ExplicitHeight = 361 ExplicitHeight = 331
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 871 ExplicitWidth = 871
ExplicitHeight = 333 ExplicitHeight = 303
inline frViewReciboCliente1: TfrViewReciboCliente inline frViewReciboCliente1: TfrViewReciboCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 871 Width = 871
Height = 333 Height = 303
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -77,15 +86,15 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 871 ExplicitWidth = 871
ExplicitHeight = 333 ExplicitHeight = 303
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 871 Width = 871
Height = 333 Height = 303
ExplicitWidth = 871 ExplicitWidth = 871
ExplicitHeight = 333 ExplicitHeight = 303
DesignSize = ( DesignSize = (
871 871
333) 303)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -302,7 +311,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 871 Width = 871
Height = 333 Height = 303
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -313,18 +322,18 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 871 ExplicitWidth = 871
ExplicitHeight = 333 ExplicitHeight = 303
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 871 Width = 871
Height = 333 Height = 303
ExplicitWidth = 871 ExplicitWidth = 871
ExplicitHeight = 333 ExplicitHeight = 303
end end
inherited dxLayoutControl2: TdxLayoutControl inherited dxLayoutControl2: TdxLayoutControl
Width = 871 Width = 871
Height = 333 Height = 303
ExplicitWidth = 871 ExplicitWidth = 871
ExplicitHeight = 333 ExplicitHeight = 303
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 684 Width = 684
ExplicitWidth = 684 ExplicitWidth = 684
@ -364,7 +373,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 871 Width = 871
Height = 333 Height = 303
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -375,10 +384,10 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 871 ExplicitWidth = 871
ExplicitHeight = 333 ExplicitHeight = 303
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 871 Width = 871
Height = 308 Height = 278
ExplicitWidth = 871 ExplicitWidth = 871
ExplicitHeight = 308 ExplicitHeight = 308
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
@ -416,16 +425,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end end
end end
end end
inherited StatusBar: TJvStatusBar
Top = 543
Width = 885
Panels = <
item
Width = 200
end>
ExplicitTop = 543
ExplicitWidth = 885
end
inline frViewReciboCliImportes1: TfrViewReciboCliImportes [4] inline frViewReciboCliImportes1: TfrViewReciboCliImportes [4]
Left = 0 Left = 0
Top = 443 Top = 443
@ -438,7 +437,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 5
ReadOnly = False ReadOnly = False
ExplicitTop = 443 ExplicitTop = 443
ExplicitWidth = 885 ExplicitWidth = 885
@ -472,7 +471,23 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end end
end end
end end
inherited EditorActionList: TActionList [5] inherited PnlComentario: TPanel [5]
Width = 885
ExplicitWidth = 885
inherited lbComentario: TLabel
Width = 875
Height = 25
end
end
inherited JvFormStorage: TJvFormStorage
OnSavePlacement = JvFormStorageSavePlacement
OnRestorePlacement = JvFormStorageRestorePlacement
end
inherited dsDataTable: TDADataSource
Left = 16
Top = 200
end
inherited EditorActionList: TActionList [11]
Top = 96 Top = 96
inherited actNuevo: TAction inherited actNuevo: TAction
Enabled = False Enabled = False
@ -487,20 +502,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Visible = False Visible = False
end end
end end
inherited SmallImages: TPngImageList [6]
end
inherited LargeImages: TPngImageList [7]
end
inherited JvFormStorage: TJvFormStorage [8]
OnSavePlacement = JvFormStorageSavePlacement
OnRestorePlacement = JvFormStorageRestorePlacement
end
inherited dsDataTable: TDADataSource [9]
Left = 16
Top = 200
end
inherited JvAppRegistryStorage: TJvAppRegistryStorage [10]
end
object DADataSource1: TDADataSource object DADataSource1: TDADataSource
OnDataChange = dsDataTableDataChange OnDataChange = dsDataTableDataChange
Left = 80 Left = 80

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

@ -11,7 +11,7 @@ uses
uCustomView, uViewBase, uViewReciboCliente, uRecibosClienteController, uCustomView, uViewBase, uViewReciboCliente, uRecibosClienteController,
uBizRecibosCliente, uViewPagosCliente, dxLayoutLookAndFeels, cxCustomData, uBizRecibosCliente, uViewPagosCliente, dxLayoutLookAndFeels, cxCustomData,
uViewDetallesGenerico, uViewReciboCliImportes, uViewRecibosCliCompensados, uViewDetallesGenerico, uViewReciboCliImportes, uViewRecibosCliCompensados,
uDAInterfaces; uDAInterfaces, StdCtrls;
type type
TfEditorReciboCliente = class(TfEditorDBItem, IEditorReciboCliente) TfEditorReciboCliente = class(TfEditorDBItem, IEditorReciboCliente)
@ -138,6 +138,7 @@ begin
raise Exception.Create('No hay ningún almacén asignado'); raise Exception.Create('No hay ningún almacén asignado');
Recibo.DataTable.Active := True; Recibo.DataTable.Active := True;
Recibo.Pagos.Last; //Nos posicionamos siempre en el último pago
CalcularTotal; CalcularTotal;
end; end;
@ -186,6 +187,8 @@ begin
DeshabilitarRecibo DeshabilitarRecibo
else else
HabilitarRecibo; HabilitarRecibo;
frViewPagosCliente1.ListaPagosClienteDBTableView1.DataController.GotoLast;
end; end;
procedure TfEditorReciboCliente.frViewPagosCliente1actAnadirUpdate(Sender: TObject); procedure TfEditorReciboCliente.frViewPagosCliente1actAnadirUpdate(Sender: TObject);
@ -214,6 +217,8 @@ begin
FRecibo.SITUACION := CTE_COBRADO; FRecibo.SITUACION := CTE_COBRADO;
DeshabilitarRecibo; DeshabilitarRecibo;
end; end;
frViewPagosCliente1.ListaPagosClienteDBTableView1.DataController.GotoLast;
end; end;
procedure TfEditorReciboCliente.frViewPagosCliente1actEliminarUpdate(Sender: TObject); procedure TfEditorReciboCliente.frViewPagosCliente1actEliminarUpdate(Sender: TObject);
@ -223,7 +228,6 @@ begin
//Si el recibo tiene una remesa asociada, el cobro generado por la remesa no se podrá eliminar //Si el recibo tiene una remesa asociada, el cobro generado por la remesa no se podrá eliminar
if (Length(FRecibo.REFERENCIA_REMESA) = 0) then if (Length(FRecibo.REFERENCIA_REMESA) = 0) then
frViewPagosCliente1.actEliminar.Enabled := (FRecibo.Pagos.DataTable.RecordCount > 0) frViewPagosCliente1.actEliminar.Enabled := (FRecibo.Pagos.DataTable.RecordCount > 0)
// and (FRecibo.Pagos.ESTADO <> CTE_CERRADO)
else else
//En el caso de que el recibo este remesado no se podrán eliminar pagos, //En el caso de que el recibo este remesado no se podrán eliminar pagos,
//solo será posible en el caso de ser un recibo libre de remesa //solo será posible en el caso de ser un recibo libre de remesa
@ -254,22 +258,32 @@ begin
DeshabilitarContabilidad; DeshabilitarContabilidad;
end; end;
//En el caso de que el ejercicio asociado al asiento del pago este cerrado o el asiento punteado
//se podrá o no modificar el pago.
if (Recibo.Pagos.ESTADO_EJERCICIO = CTE_CERRADO) then
begin
Comentario := 'El asiento asociado a este pago tiene el ejercicio cerrado, por lo que no se puede modificar';
SoloLectura := true;
end
else if (Recibo.Pagos.ASIENTO_PUNTEADO > 0) then
begin
Comentario := 'El asiento asociado a este pago esta punteado, por lo que no se puede modificar';
SoloLectura := true;
end;
if (ShowModal = mrOk) then if (ShowModal = mrOk) then
begin begin
AFechaPago := DateToStr(FechaPago); AFechaPago := DateToStr(FechaPago);
AIgnorarContabilidad := IgnorarContabilidad; AIgnorarContabilidad := IgnorarContabilidad;
ASubCuenta := IdSubcuenta; ASubCuenta := IdSubcuenta;
Release; if not SoloLectura then
end FController.ModificarPago(Recibo, AFechaPago, AIgnorarContabilidad, ASubCuenta);
else
begin
//Operación cancelada
Release;
exit;
end; end;
Release;
end; end;
FController.ModificarPago(Recibo, AFechaPago, AIgnorarContabilidad, ASubCuenta);
end; end;
procedure TfEditorReciboCliente.frViewPagosCliente1actModificarUpdate(Sender: TObject); procedure TfEditorReciboCliente.frViewPagosCliente1actModificarUpdate(Sender: TObject);
@ -278,7 +292,6 @@ begin
//Si el ejercicio al que pertenece la factura esta cerrado no se podrá modificar //Si el ejercicio al que pertenece la factura esta cerrado no se podrá modificar
if Assigned(FRecibo) and Assigned(FRecibo.Pagos) then if Assigned(FRecibo) and Assigned(FRecibo.Pagos) then
frViewPagosCliente1.actModificar.Enabled := (FRecibo.Pagos.DataTable.RecordCount > 0) frViewPagosCliente1.actModificar.Enabled := (FRecibo.Pagos.DataTable.RecordCount > 0)
// and (FRecibo.Pagos.ESTADO <> CTE_CERRADO);
end; end;
procedure TfEditorReciboCliente.frViewReciboCliente1eImportePropertiesValidate( procedure TfEditorReciboCliente.frViewReciboCliente1eImportePropertiesValidate(

1
Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm
View File

@ -1,6 +1,7 @@
inherited frViewPagosCliente: TfrViewPagosCliente inherited frViewPagosCliente: TfrViewPagosCliente
Width = 666 Width = 666
Height = 401 Height = 401
OnShow = CustomViewShow
ExplicitWidth = 666 ExplicitWidth = 666
ExplicitHeight = 401 ExplicitHeight = 401
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl

7
Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas
View File

@ -63,6 +63,7 @@ type
Sender: TcxCustomGridTableView; Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean); AShift: TShiftState; var AHandled: Boolean);
procedure CustomViewShow(Sender: TObject);
private private
FPagos : IBizPagosCliente; FPagos : IBizPagosCliente;
function GetPagos: IBizPagosCliente; function GetPagos: IBizPagosCliente;
@ -76,6 +77,12 @@ implementation
{ TfrViewPagosCliente } { TfrViewPagosCliente }
procedure TfrViewPagosCliente.CustomViewShow(Sender: TObject);
begin
inherited;
ListaPagosClienteDBTableView1.DataController.GotoLast;
end;
function TfrViewPagosCliente.GetPagos: IBizPagosCliente; function TfrViewPagosCliente.GetPagos: IBizPagosCliente;
begin begin
Result := FPagos; Result := FPagos;

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

@ -117,6 +117,13 @@ begin
APagoCliente.Last; APagoCliente.Last;
Result := (APagoCliente.TIPO = CTE_PAGO); Result := (APagoCliente.TIPO = CTE_PAGO);
if APagoCliente.ASIENTO_PUNTEADO > 0 then
raise Exception.Create('El asiento asociado al pago esta punteado por lo que no puede ser borrado.');
if APagoCliente.ESTADO_EJERCICIO = CTE_CERRADO then
raise Exception.Create('El asiento asociado al pago tiene el ejercicio cerrado por lo que no puede ser borrado.');
APagoCliente.Delete; APagoCliente.Delete;
//Todo lo haremos en memoria ya que los pagos no tienen entidad propia //Todo lo haremos en memoria ya que los pagos no tienen entidad propia
//APagosProveedor.DataTable.ApplyUpdates; //APagosProveedor.DataTable.ApplyUpdates;

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

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

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

@ -47,34 +47,34 @@
<DelphiCompile Include="RecibosProveedor_view.dpk"> <DelphiCompile Include="RecibosProveedor_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\adortl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="..\..\Lib\Contabilidad_view.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contabilidad_view.dcp" />
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
<DCCReference Include="..\..\Lib\Contactos_view.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" />
<DCCReference Include="..\..\Lib\cxDataD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="..\..\Lib\cxEditorsD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\dbrtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="..\..\Lib\dsnap.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="..\..\Lib\dxComnD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GestorInformes_controller.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\JvGlobusD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
<DCCReference Include="..\..\Lib\PngComponentsD10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Lib\PNG_D10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="..\..\Lib\RecibosProveedor_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\RecibosProveedor_controller.dcp" />
<DCCReference Include="..\..\Lib\RecibosProveedor_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\RecibosProveedor_model.dcp" />
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="..\..\Lib\vclactnband.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="..\..\Lib\vcldb.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="..\..\Lib\vcljpg.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="..\..\Lib\vclx.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="uEditorElegirRecibosProveedor.pas"> <DCCReference Include="uEditorElegirRecibosProveedor.pas">
<Form>fEditorElegirRecibosProveedor</Form> <Form>fEditorElegirRecibosProveedor</Form>
<DesignClass>TfEditorElegirRecibosProveedor</DesignClass> <DesignClass>TfEditorElegirRecibosProveedor</DesignClass>

BIN
Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.res
View File

Binary file not shown.

94
Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm
View File

@ -3,8 +3,8 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
Top = 0 Top = 0
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Fecha del cobro / devoluci'#243'n' Caption = 'Fecha del cobro / devoluci'#243'n'
ClientHeight = 193 ClientHeight = 217
ClientWidth = 510 ClientWidth = 563
Color = clWindow Color = clWindow
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -19,8 +19,8 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object Label1: TLabel object Label1: TLabel
Left = 38 Left = 42
Top = 8 Top = 61
Width = 362 Width = 362
Height = 13 Height = 13
Caption = Caption =
@ -28,17 +28,24 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
' devoluci'#243'n:' ' devoluci'#243'n:'
end end
object Label2: TLabel object Label2: TLabel
Left = 39 Left = 42
Top = 43 Top = 83
Width = 80 Width = 80
Height = 13 Height = 13
Alignment = taRightJustify Alignment = taRightJustify
Caption = 'Fecha del cobro:' Caption = 'Fecha del cobro:'
FocusControl = eFechaPago FocusControl = eFechaPago
end end
object Label3: TLabel
Left = 42
Top = 124
Width = 306
Height = 13
Caption = 'Seleccione el banco o caja donde se hace el cobro o devoluci'#243'n:'
end
object eFechaPago: TcxDateEdit object eFechaPago: TcxDateEdit
Left = 125 Left = 129
Top = 40 Top = 80
Properties.OnChange = eFechaPagoPropertiesChange Properties.OnChange = eFechaPagoPropertiesChange
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
@ -49,18 +56,20 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0 TabOrder = 0
Width = 132 Width = 275
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 152 Top = 176
Width = 510 Width = 563
Height = 41 Height = 41
Align = alBottom Align = alBottom
TabOrder = 1 TabOrder = 1
ExplicitTop = 152
ExplicitWidth = 510
object bAceptar: TButton object bAceptar: TButton
Left = 38 Left = 368
Top = 8 Top = 6
Width = 75 Width = 75
Height = 25 Height = 25
Caption = 'Aceptar' Caption = 'Aceptar'
@ -68,8 +77,8 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
TabOrder = 0 TabOrder = 0
end end
object bCancelar: TButton object bCancelar: TButton
Left = 119 Left = 459
Top = 8 Top = 6
Width = 75 Width = 75
Height = 25 Height = 25
Caption = 'Cancelar' Caption = 'Cancelar'
@ -78,10 +87,11 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
end end
end end
inline frViewListaSubcuentas1: TfrViewListaSubcuentas inline frViewListaSubcuentas1: TfrViewListaSubcuentas
Left = 30 Left = 0
Top = 80 Top = 136
Width = 453 Width = 563
Height = 69 Height = 40
Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
@ -90,25 +100,63 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
ParentFont = False ParentFont = False
TabOrder = 2 TabOrder = 2
ReadOnly = False ReadOnly = False
ExplicitLeft = 30 ExplicitTop = 166
ExplicitTop = 80 ExplicitWidth = 563
ExplicitHeight = 40
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 563
inherited cbSubCuentas: TcxComboBox inherited cbSubCuentas: TcxComboBox
Left = 128
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 376 ExplicitLeft = 128
Width = 376 ExplicitWidth = 440
Width = 440
end end
inherited eContabilizar: TcxCheckBox inherited eContabilizar: TcxCheckBox
Left = 410
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 410
ExplicitWidth = 203 ExplicitWidth = 203
Width = 203 Width = 203
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Item1: TdxLayoutItem
Caption = ' Caja/Banco: '
end
end
end
end
object PnlComentario: TPanel
Left = 0
Top = 0
Width = 563
Height = 45
Align = alTop
Alignment = taLeftJustify
AutoSize = True
Color = 13499902
ParentBackground = False
TabOrder = 3
VerticalAlignment = taAlignTop
ExplicitWidth = 560
object lbComentario: TLabel
AlignWithMargins = True
Left = 6
Top = 4
Width = 553
Height = 40
Margins.Left = 5
Align = alClient
Caption = 'Comentario'
WordWrap = True
ExplicitWidth = 55
ExplicitHeight = 13
end end
end end
end end

51
Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.pas
View File

@ -18,6 +18,9 @@ type
Label2: TLabel; Label2: TLabel;
Panel1: TPanel; Panel1: TPanel;
frViewListaSubcuentas1: TfrViewListaSubcuentas; frViewListaSubcuentas1: TfrViewListaSubcuentas;
PnlComentario: TPanel;
lbComentario: TLabel;
Label3: TLabel;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure eFechaPagoPropertiesChange(Sender: TObject); procedure eFechaPagoPropertiesChange(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
@ -25,17 +28,25 @@ type
private private
FFechaPago : TDateTime; FFechaPago : TDateTime;
FComentario: Variant;
FSoloLectura: Boolean;
function GetFechaPago: TDateTime; function GetFechaPago: TDateTime;
procedure SetFechaPago(const Value: TDateTime); procedure SetFechaPago(const Value: TDateTime);
function GetIgnorarContabilidad: Integer; function GetIgnorarContabilidad: Integer;
procedure SetIgnorarContabilidad(const Value: Integer); procedure SetIgnorarContabilidad(const Value: Integer);
function GetIdSubCuenta: Integer; function GetIdSubCuenta: Integer;
procedure SetIdSubCuenta(const Value: Integer); procedure SetIdSubCuenta(const Value: Integer);
function GetComentario: Variant;
procedure SetComentario(const Value: Variant);
function GetSoloLectura: Boolean;
procedure SetSoloLectura(const Value: Boolean);
public public
property FechaPago: TDateTime Read GetFechaPago write SetFechaPago; property FechaPago: TDateTime Read GetFechaPago write SetFechaPago;
property IgnorarContabilidad: Integer Read GetIgnorarContabilidad write SetIgnorarContabilidad; property IgnorarContabilidad: Integer Read GetIgnorarContabilidad write SetIgnorarContabilidad;
property IdSubCuenta: Integer Read GetIdSubCuenta write SetIdSubCuenta; property IdSubCuenta: Integer Read GetIdSubCuenta write SetIdSubCuenta;
property Comentario: Variant read GetComentario write SetComentario;
property SoloLectura: Boolean read GetSoloLectura write SetSoloLectura;
procedure DeshabilitarContabilidad; procedure DeshabilitarContabilidad;
end; end;
@ -88,6 +99,9 @@ begin
{$IFDEF CONTABILIDAD} {$IFDEF CONTABILIDAD}
frViewListaSubCuentas1.TipoSubCuenta := tCajas; frViewListaSubCuentas1.TipoSubCuenta := tCajas;
{$ENDIF} {$ENDIF}
Comentario := Null;
FSoloLectura := False;
end; end;
procedure TfEditorFechaPagoProveedor.FormShow(Sender: TObject); procedure TfEditorFechaPagoProveedor.FormShow(Sender: TObject);
@ -112,6 +126,11 @@ begin
end; end;
end; end;
function TfEditorFechaPagoProveedor.GetComentario: Variant;
begin
Result := FComentario;
end;
function TfEditorFechaPagoProveedor.GetFechaPago: TDateTime; function TfEditorFechaPagoProveedor.GetFechaPago: TDateTime;
begin begin
Result := FFechaPago; Result := FFechaPago;
@ -127,6 +146,23 @@ begin
Result := frViewListaSubCuentas1.eContabilizar.EditValue; Result := frViewListaSubCuentas1.eContabilizar.EditValue;
end; end;
function TfEditorFechaPagoProveedor.GetSoloLectura: Boolean;
begin
Result := FSoloLectura;
end;
procedure TfEditorFechaPagoProveedor.SetComentario(const Value: Variant);
begin
FComentario := Value;
lbComentario.Caption := '';
lbComentario.Caption := VarToStr(FComentario);
if VarIsNull(FComentario) then
PnlComentario.Visible := False
else
PnlComentario.Visible := True;
end;
procedure TfEditorFechaPagoProveedor.SetFechaPago(const Value: TDateTime); procedure TfEditorFechaPagoProveedor.SetFechaPago(const Value: TDateTime);
begin begin
FFechaPago := Value; FFechaPago := Value;
@ -144,4 +180,19 @@ begin
frViewListaSubCuentas1.Refrescar; frViewListaSubCuentas1.Refrescar;
end; end;
procedure TfEditorFechaPagoProveedor.SetSoloLectura(const Value: Boolean);
begin
FSoloLectura := Value;
if FSoloLectura then
begin
eFechaPago.Enabled := False;
frViewListaSubcuentas1.ReadOnly := True;
end
else
begin
eFechaPago.Enabled := True;
frViewListaSubcuentas1.ReadOnly := False;
end;
end;
end. end.

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

@ -48,24 +48,33 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
ExplicitWidth = 691 ExplicitWidth = 691
end end
end end
inherited StatusBar: TJvStatusBar
Top = 535
Width = 691
Panels = <
item
Width = 200
end>
ExplicitTop = 535
ExplicitWidth = 691
end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 685 Width = 685
Height = 353 Height = 323
ActivePage = pagPagos ActivePage = pagPagos
ExplicitLeft = 3 ExplicitTop = 109
ExplicitTop = 79
ExplicitWidth = 685 ExplicitWidth = 685
ExplicitHeight = 353 ExplicitHeight = 323
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 677 ExplicitWidth = 677
ExplicitHeight = 325 ExplicitHeight = 295
inline frViewReciboProveedor1: TfrViewReciboProveedor inline frViewReciboProveedor1: TfrViewReciboProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 677 Width = 677
Height = 325 Height = 295
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -76,15 +85,15 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 677 ExplicitWidth = 677
ExplicitHeight = 325 ExplicitHeight = 295
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 677 Width = 677
Height = 325 Height = 295
ExplicitWidth = 677 ExplicitWidth = 677
ExplicitHeight = 325 ExplicitHeight = 295
DesignSize = ( DesignSize = (
677 677
325) 295)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -318,7 +327,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 677 Width = 677
Height = 325 Height = 295
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -329,15 +338,16 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 677 ExplicitWidth = 677
ExplicitHeight = 325 ExplicitHeight = 295
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 677 Width = 677
Height = 325 Height = 295
ExplicitWidth = 677 ExplicitWidth = 677
ExplicitHeight = 325 ExplicitHeight = 295
inherited ListaPagosProveedor: TcxGrid inherited ListaPagosProveedor: TcxGrid
Width = 633 Width = 633
Height = 248 Height = 248
Enabled = False
ExplicitWidth = 633 ExplicitWidth = 633
ExplicitHeight = 248 ExplicitHeight = 248
inherited ListaPagosProveedorDBTableView1: TcxGridDBTableView inherited ListaPagosProveedorDBTableView1: TcxGridDBTableView
@ -378,7 +388,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 677 Width = 677
Height = 325 Height = 295
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -389,10 +399,10 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 677 ExplicitWidth = 677
ExplicitHeight = 325 ExplicitHeight = 295
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 677 Width = 677
Height = 300 Height = 270
ExplicitWidth = 677 ExplicitWidth = 677
ExplicitHeight = 300 ExplicitHeight = 300
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
@ -434,16 +444,6 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
end end
end end
end end
inherited StatusBar: TJvStatusBar
Top = 535
Width = 691
Panels = <
item
Width = 200
end>
ExplicitTop = 535
ExplicitWidth = 691
end
inline frViewReciboProvImportes1: TfrViewReciboProvImportes [4] inline frViewReciboProvImportes1: TfrViewReciboProvImportes [4]
Left = 0 Left = 0
Top = 435 Top = 435
@ -456,7 +456,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 5
ReadOnly = False ReadOnly = False
ExplicitTop = 435 ExplicitTop = 435
ExplicitWidth = 691 ExplicitWidth = 691
@ -490,7 +490,23 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
end end
end end
end end
inherited EditorActionList: TActionList [5] inherited PnlComentario: TPanel [5]
Width = 691
ExplicitWidth = 691
inherited lbComentario: TLabel
Width = 681
Height = 25
end
end
inherited JvFormStorage: TJvFormStorage
OnSavePlacement = JvFormStorageSavePlacement
OnRestorePlacement = JvFormStorageRestorePlacement
end
inherited dsDataTable: TDADataSource
Left = 8
Top = 136
end
inherited EditorActionList: TActionList [11]
Left = 56 Left = 56
Top = 144 Top = 144
inherited actNuevo: TAction inherited actNuevo: TAction
@ -514,20 +530,6 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
Visible = False Visible = False
end end
end end
inherited SmallImages: TPngImageList [6]
end
inherited LargeImages: TPngImageList [7]
end
inherited JvFormStorage: TJvFormStorage [8]
OnSavePlacement = JvFormStorageSavePlacement
OnRestorePlacement = JvFormStorageRestorePlacement
end
inherited dsDataTable: TDADataSource [9]
Left = 8
Top = 136
end
inherited JvAppRegistryStorage: TJvAppRegistryStorage [10]
end
object DADataSource1: TDADataSource object DADataSource1: TDADataSource
OnDataChange = dsDataTableDataChange OnDataChange = dsDataTableDataChange
Left = 80 Left = 80

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

@ -11,7 +11,7 @@ uses
uCustomView, uViewBase, uViewReciboProveedor, uRecibosProveedorController, uCustomView, uViewBase, uViewReciboProveedor, uRecibosProveedorController,
uBizRecibosProveedor, uViewPagosProveedor, dxLayoutLookAndFeels, cxCustomData, uBizRecibosProveedor, uViewPagosProveedor, dxLayoutLookAndFeels, cxCustomData,
uViewDetallesGenerico, uViewRecibosProvCompensados, uViewReciboProvImportes, uViewDetallesGenerico, uViewRecibosProvCompensados, uViewReciboProvImportes,
uDAInterfaces; uDAInterfaces, StdCtrls;
type type
TfEditorReciboProveedor = class(TfEditorDBItem, IEditorReciboProveedor) TfEditorReciboProveedor = class(TfEditorDBItem, IEditorReciboProveedor)
@ -183,6 +183,8 @@ begin
DeshabilitarRecibo DeshabilitarRecibo
else else
HabilitarRecibo; HabilitarRecibo;
frViewPagosProveedor1.ListaPagosProveedorDBTableView1.DataController.GotoLast;
end; end;
procedure TfEditorReciboProveedor.frViewPagosProveedor1actEliminarExecute(Sender: TObject); procedure TfEditorReciboProveedor.frViewPagosProveedor1actEliminarExecute(Sender: TObject);
@ -205,6 +207,8 @@ begin
FRecibo.SITUACION := CTE_PAGADO; FRecibo.SITUACION := CTE_PAGADO;
DeshabilitarRecibo; DeshabilitarRecibo;
end; end;
frViewPagosProveedor1.ListaPagosProveedorDBTableView1.DataController.GotoLast;
end; end;
procedure TfEditorReciboProveedor.frViewPagosProveedor1actEliminarUpdate(Sender: TObject); procedure TfEditorReciboProveedor.frViewPagosProveedor1actEliminarUpdate(Sender: TObject);
@ -212,7 +216,6 @@ begin
//Si el ejercicio al que pertenece la factura esta cerrado no se podrá eliminar //Si el ejercicio al que pertenece la factura esta cerrado no se podrá eliminar
if Assigned(FRecibo) and Assigned(FRecibo.Pagos) then if Assigned(FRecibo) and Assigned(FRecibo.Pagos) then
frViewPagosProveedor1.actEliminar.Enabled := (FRecibo.Pagos.DataTable.RecordCount > 0) frViewPagosProveedor1.actEliminar.Enabled := (FRecibo.Pagos.DataTable.RecordCount > 0)
// and (FRecibo.Pagos.ESTADO <> CTE_CERRADO);
end; end;
procedure TfEditorReciboProveedor.frViewPagosProveedor1actModificarExecute(Sender: TObject); procedure TfEditorReciboProveedor.frViewPagosProveedor1actModificarExecute(Sender: TObject);
@ -231,22 +234,37 @@ begin
if IgnorarContabilidad = 0 then if IgnorarContabilidad = 0 then
IdSubCuenta := StrToInt(Recibo.Pagos.CUENTA); IdSubCuenta := StrToInt(Recibo.Pagos.CUENTA);
//En el caso de que el proveedor del recibo no tenga aignada subcuenta contable el pago no podrá contabilizarse
if (Recibo.Proveedor.SubCuentas.ID < 1) then
begin
IgnorarContabilidad := 1;
DeshabilitarContabilidad;
end;
//En el caso de que el ejercicio asociado al asiento del pago este cerrado o el asiento punteado
//se podrá o no modificar el pago.
if (Recibo.Pagos.ESTADO_EJERCICIO = CTE_CERRADO) then
begin
Comentario := 'El asiento asociado a este pago tiene el ejercicio cerrado, por lo que no se puede modificar';
SoloLectura := true;
end
else if (Recibo.Pagos.ASIENTO_PUNTEADO > 0) then
begin
Comentario := 'El asiento asociado a este pago esta punteado, por lo que no se puede modificar';
SoloLectura := true;
end;
if (ShowModal = mrOk) then if (ShowModal = mrOk) then
begin begin
AFechaPago := DateToStr(FechaPago); AFechaPago := DateToStr(FechaPago);
AIgnorarContabilidad := IgnorarContabilidad; AIgnorarContabilidad := IgnorarContabilidad;
ASubCuenta := IdSubcuenta; ASubCuenta := IdSubcuenta;
Release; if not SoloLectura then
end FController.ModificarPago(Recibo, AFechaPago, AIgnorarContabilidad, ASubCuenta);
else
begin
//Operación cancelada
Release;
exit;
end; end;
end;
FController.ModificarPago(Recibo, AFechaPago, AIgnorarContabilidad, ASubCuenta); Release;
end;
end; end;
procedure TfEditorReciboProveedor.frViewPagosProveedor1actModificarUpdate(Sender: TObject); procedure TfEditorReciboProveedor.frViewPagosProveedor1actModificarUpdate(Sender: TObject);
@ -255,7 +273,6 @@ begin
//Si el ejercicio al que pertenece la factura esta cerrado no se podrá eliminar //Si el ejercicio al que pertenece la factura esta cerrado no se podrá eliminar
if Assigned(FRecibo) and Assigned(FRecibo.Pagos) then if Assigned(FRecibo) and Assigned(FRecibo.Pagos) then
frViewPagosProveedor1.actModificar.Enabled := (FRecibo.Pagos.DataTable.RecordCount > 0) frViewPagosProveedor1.actModificar.Enabled := (FRecibo.Pagos.DataTable.RecordCount > 0)
// and (FRecibo.Pagos.ESTADO <> CTE_CERRADO);
end; end;
procedure TfEditorReciboProveedor.frViewReciboProvImportes1eImportePropertiesEditValueChanged( procedure TfEditorReciboProveedor.frViewReciboProvImportes1eImportePropertiesEditValueChanged(

1
Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm
View File

@ -1,6 +1,7 @@
inherited frViewPagosProveedor: TfrViewPagosProveedor inherited frViewPagosProveedor: TfrViewPagosProveedor
Width = 664 Width = 664
Height = 355 Height = 355
OnShow = CustomViewShow
ExplicitWidth = 664 ExplicitWidth = 664
ExplicitHeight = 355 ExplicitHeight = 355
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl

7
Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.pas
View File

@ -61,6 +61,7 @@ type
Sender: TcxCustomGridTableView; Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean); AShift: TShiftState; var AHandled: Boolean);
procedure CustomViewShow(Sender: TObject);
private private
FPagos : IBizPagosProveedor; FPagos : IBizPagosProveedor;
function GetPagos: IBizPagosProveedor; function GetPagos: IBizPagosProveedor;
@ -74,6 +75,12 @@ implementation
{ TfrViewPagosProveedor } { TfrViewPagosProveedor }
procedure TfrViewPagosProveedor.CustomViewShow(Sender: TObject);
begin
inherited;
ListaPagosProveedorDBTableView1.DataController.GotoLast;
end;
function TfrViewPagosProveedor.GetPagos: IBizPagosProveedor; function TfrViewPagosProveedor.GetPagos: IBizPagosProveedor;
begin begin
Result := FPagos; Result := FPagos;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

561
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,284 +1,285 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType />
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">8</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.2.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 08 de enero de 2009 20:14</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">8</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.2.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 08 de enero de 2009 20:14</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</ProjectExtensions> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/> </ProjectExtensions>
<ItemGroup> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<DelphiCompile Include="FactuGES_Server.dpr"> <ItemGroup>
<MainSource>MainSource</MainSource> <DelphiCompile Include="FactuGES_Server.dpr">
</DelphiCompile> <MainSource>MainSource</MainSource>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/> </DelphiCompile>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas"> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
<Form>srvEjercicios</Form> <DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvEjercicios</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<Form>srvEmpresas</Form> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>srvEmpresas</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas"> </DCCReference>
<Form>srvProvinciasPoblaciones</Form> <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<DesignClass>TRORemoteDataModule</DesignClass> <Form>srvProvinciasPoblaciones</Form>
</DCCReference> <DesignClass>TRORemoteDataModule</DesignClass>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\Base\schBase_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/> <DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/> <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/> <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" />
<Form>srvAlbaranesCliente</Form> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvAlbaranesCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<Form>srvAlbaranesProveedor</Form> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvAlbaranesProveedor</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<Form>srvAlmacenes</Form> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>srvAlmacenes</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/> <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas"> <DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
<Form>RptComisiones</Form> <DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptComisiones</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas"> </DCCReference>
<Form>srvComisiones</Form> <DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvComisiones</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas"/> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas"> <DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas" />
<Form>srvContabilidad</Form> <DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvContabilidad</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
<Form>RptEtiquetasContacto</Form> <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptEtiquetasContacto</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> </DCCReference>
<Form>srvContactos</Form> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>srvContactos</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<Form>RptFacturasCliente</Form> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptFacturasCliente</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> </DCCReference>
<Form>srvFacturasCliente</Form> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvFacturasCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<Form>RptFacturasProveedor</Form> <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptFacturasProveedor</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> </DCCReference>
<Form>srvFacturasProveedor</Form> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvFacturasProveedor</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas"> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<Form>srvGestorDocumentos</Form> <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvGestorDocumentos</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas"> </DCCReference>
<Form>srvGestorInformes</Form> <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvGestorInformes</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<Form>srvHistoricoMovimientos</Form> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvHistoricoMovimientos</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<Form>srvInventario</Form> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvInventario</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<Form>srvPedidosProveedor</Form> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvPedidosProveedor</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<Form>RptPresupuestosCliente</Form> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
</DCCReference> <Form>RptPresupuestosCliente</Form>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> </DCCReference>
<Form>srvPresupuestosCliente</Form> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvPresupuestosCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
<Form>RptRecibosCliente</Form> <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptRecibosCliente</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> </DCCReference>
<Form>srvRecibosCliente</Form> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRecibosCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
<Form>RptRecibosProveedor</Form> <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptRecibosProveedor</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> </DCCReference>
<Form>srvRecibosProveedor</Form> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRecibosProveedor</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas"> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<Form>srvReferencias</Form> <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvReferencias</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<Form>srvRemesasCliente</Form> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRemesasCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<Form>srvRemesasProveedor</Form> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRemesasProveedor</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
<Form>srvUnidadesMedida</Form> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvUnidadesMedida</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<Form>srvConfiguracion</Form> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvConfiguracion</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="Configuracion\uConexionBD.pas"> </DCCReference>
<Form>frConexionBD</Form> <DCCReference Include="Configuracion\uConexionBD.pas">
<DesignClass>TFrame</DesignClass> <Form>frConexionBD</Form>
</DCCReference> <DesignClass>TFrame</DesignClass>
<DCCReference Include="Configuracion\uConfGeneral.pas"> </DCCReference>
<Form>frConfGeneral</Form> <DCCReference Include="Configuracion\uConfGeneral.pas">
<DesignClass>TFrame</DesignClass> <Form>frConfGeneral</Form>
</DCCReference> <DesignClass>TFrame</DesignClass>
<DCCReference Include="Configuracion\uConfiguracion.pas"> </DCCReference>
<Form>fConfiguracion</Form> <DCCReference Include="Configuracion\uConfiguracion.pas">
<DesignClass>TForm</DesignClass> <Form>fConfiguracion</Form>
</DCCReference> <DesignClass>TForm</DesignClass>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> </DCCReference>
<Form>FrameConfiguracion</Form> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<DesignClass>TFrame</DesignClass> <Form>FrameConfiguracion</Form>
</DCCReference> <DesignClass>TFrame</DesignClass>
<DCCReference Include="srvLogin_Impl.pas"> </DCCReference>
<Form>srvLogin</Form> <DCCReference Include="srvLogin_Impl.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>srvLogin</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="uAcercaDe.pas"> </DCCReference>
<Form>fAcercaDe</Form> <DCCReference Include="uAcercaDe.pas">
</DCCReference> <Form>fAcercaDe</Form>
<DCCReference Include="uDataModuleServer.pas"> </DCCReference>
<Form>dmServer</Form> <DCCReference Include="uDataModuleServer.pas">
<DesignClass>TDataModule</DesignClass> <Form>dmServer</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="uServerMainForm.pas"> </DCCReference>
<Form>fServerForm</Form> <DCCReference Include="uServerMainForm.pas">
</DCCReference> <Form>fServerForm</Form>
<DCCReference Include="Utiles\RegExpr.pas"/> </DCCReference>
<DCCReference Include="Utiles\uBusinessUtils.pas"/> <DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas"/> <DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas"/> <DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/> <DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas"/> <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas"/> <DCCReference Include="Utiles\uServerAppUtils.pas" />
</ItemGroup> <DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.2.8.0\0" VALUE "FileVersion", "2.2.8.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.2.8.0\0" VALUE "ProductVersion", "2.2.8.0\0"
VALUE "CompileDate", "viernes, 13 de febrero de 2009 18:39\0" VALUE "CompileDate", "lunes, 16 de febrero de 2009 14:14\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"