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

Se cambia el eliminar de los controller de facturas de cliente y proveedor y el editor para sacar mensaje de porque no se pude eliminar o modificar

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@395 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2009-02-13 17:50:42 +00:00
parent 4888227b75
commit 8ab05f7040
85 changed files with 2892 additions and 704 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

227
Database/scripts/factuges.sql
View File

@ -416,13 +416,18 @@ begin
/*Si los ejercicios no estan abiertos no hacemos nada*/ /*Si los ejercicios no estan abiertos no hacemos nada*/
if ((estado_ejercicio_cierre = 'ABIERTO') and (estado_ejercicio_apertura = 'ABIERTO')) then if ((estado_ejercicio_cierre = 'ABIERTO') and (estado_ejercicio_apertura = 'ABIERTO')) then
begin begin
/* Añadimos asiento de cierre*/ select COALESCE(max(V_CONT_DIARIO.ORDEN_ASIENTO),0) + 1
insert into CONT_ASIENTOS (ID, FECHA_ASIENTO, TIPO) from V_CONT_DIARIO
values (:id_asiento_cierre, current_date, 'x'); into :num_orden;
/* Añadimos asiento de cierre*/
insert into CONT_ASIENTOS (ID, FECHA_ASIENTO, ORDEN, TIPO)
values (:id_asiento_cierre, current_date, :num_orden, 'x');
num_orden = num_orden + 1;
/* Añadimos asiento de apertura*/ /* Añadimos asiento de apertura*/
insert into CONT_ASIENTOS (ID, FECHA_ASIENTO, TIPO) insert into CONT_ASIENTOS (ID, FECHA_ASIENTO, ORDEN, TIPO)
values (:id_asiento_apertura, current_date, 'a'); values (:id_asiento_apertura, current_date, :num_orden, 'a');
num_orden = 1; num_orden = 1;
@ -2158,25 +2163,55 @@ CREATE VIEW V_CONT_FAC_CLI_VENTAS(
ID_SUBCUENTA, ID_SUBCUENTA,
SUBCUENTA, SUBCUENTA,
ID_EJERCICIO, ID_EJERCICIO,
ESTADO) ESTADO_EJERCICIO,
ASIENTO_PUNTEADO)
AS AS
select select
CONT_ASIENTOS.ID_FACTURA, CONT_ASIENTOS.ID_FACTURA,
CONT_SUBCUENTAS.ID as ID_SUBCUENTA, CONT_SUBCUENTAS.ID as ID_SUBCUENTA,
CONT_SUBCUENTAS.DESCRIPCION as SUBCUENTA, CONT_SUBCUENTAS.DESCRIPCION as SUBCUENTA,
CONT_SUBCUENTAS.ID_EJERCICIO, CONT_SUBCUENTAS.ID_EJERCICIO,
CONT_EJERCICIOS.ESTADO CONT_EJERCICIOS.ESTADO,
CONT_APUNTES.PUNTEADO
from CONT_ASIENTOS from CONT_ASIENTOS
LEFT JOIN CONT_APUNTES ON (CONT_APUNTES.ID_ASIENTO = CONT_ASIENTOS.ID) LEFT JOIN CONT_APUNTES ON (CONT_APUNTES.ID_ASIENTO = CONT_ASIENTOS.ID)
LEFT JOIN CONT_SUBCUENTAS ON (CONT_SUBCUENTAS.ID = CONT_APUNTES.ID_SUBCUENTA) LEFT JOIN CONT_SUBCUENTAS ON (CONT_SUBCUENTAS.ID = CONT_APUNTES.ID_SUBCUENTA)
LEFT JOIN CONT_CUENTAS ON (CONT_CUENTAS.ID = CONT_SUBCUENTAS.ID_CUENTA) LEFT JOIN CONT_CUENTAS ON (CONT_CUENTAS.ID = CONT_SUBCUENTAS.ID_CUENTA)
LEFT JOIN CONT_EJERCICIOS ON (CONT_EJERCICIOS.ID = CONT_SUBCUENTAS.ID_EJERCICIO) LEFT JOIN CONT_EJERCICIOS ON (CONT_EJERCICIOS.ID = CONT_SUBCUENTAS.ID_EJERCICIO)
left join CONT_EPIGRAFES CONT_EPI1 on (CONT_EPI1.ID = CONT_CUENTAS.ID_EPIGRAFE)
left join CONT_EPIGRAFES CONT_EPI2 on (CONT_EPI2.ID = CONT_EPI1.ID_PADRE)
/* Solo sacaremos aquellas tuplas de apuntes cuya subcuenta contable pertenezca ventas*/ /* Solo sacaremos aquellas tuplas de apuntes cuya subcuenta contable pertenezca ventas*/
where (CONT_ASIENTOS.ID_FACTURA is not null) and (CONT_CUENTAS.ref_cuenta = 700) where (CONT_ASIENTOS.ID_FACTURA is not null) and (CONT_ASIENTOS.TIPO = 'c')
and (COALESCE(CONT_EPI2.REF_EPIGRAFE, CONT_EPI1.REF_EPIGRAFE) = 7)
; ;
CREATE VIEW V_CONT_PAGOS_CLI_VENTAS(
ID_PAGO,
ID_SUBCUENTA,
SUBCUENTA,
ID_EJERCICIO,
ESTADO_EJERCICIO,
ASIENTO_PUNTEADO)
AS
select
CONT_ASIENTOS.ID_PAGO,
CONT_SUBCUENTAS.ID as ID_SUBCUENTA,
CONT_SUBCUENTAS.DESCRIPCION as SUBCUENTA,
CONT_SUBCUENTAS.ID_EJERCICIO,
CONT_EJERCICIOS.ESTADO,
CONT_APUNTES.PUNTEADO
from CONT_ASIENTOS
LEFT JOIN CONT_APUNTES ON (CONT_APUNTES.ID_ASIENTO = CONT_ASIENTOS.ID)
LEFT JOIN CONT_SUBCUENTAS ON (CONT_SUBCUENTAS.ID = CONT_APUNTES.ID_SUBCUENTA)
LEFT JOIN CONT_CUENTAS ON (CONT_CUENTAS.ID = CONT_SUBCUENTAS.ID_CUENTA)
LEFT JOIN CONT_EJERCICIOS ON (CONT_EJERCICIOS.ID = CONT_SUBCUENTAS.ID_EJERCICIO)
left join CONT_EPIGRAFES CONT_EPI1 on (CONT_EPI1.ID = CONT_CUENTAS.ID_EPIGRAFE)
left join CONT_EPIGRAFES CONT_EPI2 on (CONT_EPI2.ID = CONT_EPI1.ID_PADRE)
/* Solo sacaremos aquellas tuplas de apuntes cuya subcuenta contable pertenezca ventas*/
where (CONT_ASIENTOS.ID_PAGO is not null) and (CONT_ASIENTOS.TIPO = 'c')
and (COALESCE(CONT_EPI2.REF_EPIGRAFE, CONT_EPI1.REF_EPIGRAFE) = 5);
/* View: V_CONT_FAC_PRO_COMPRAS */ /* View: V_CONT_FAC_PRO_COMPRAS */
CREATE VIEW V_CONT_FAC_PRO_COMPRAS( CREATE VIEW V_CONT_FAC_PRO_COMPRAS(
@ -2184,22 +2219,143 @@ CREATE VIEW V_CONT_FAC_PRO_COMPRAS(
ID_SUBCUENTA, ID_SUBCUENTA,
SUBCUENTA, SUBCUENTA,
ID_EJERCICIO, ID_EJERCICIO,
ESTADO) ESTADO_EJERCICIO,
ASIENTO_PUNTEADO)
AS AS
select select
CONT_ASIENTOS.ID_FACTURA, CONT_ASIENTOS.ID_FACTURA,
CONT_SUBCUENTAS.ID as ID_SUBCUENTA, CONT_SUBCUENTAS.ID as ID_SUBCUENTA,
CONT_SUBCUENTAS.DESCRIPCION as SUBCUENTA, CONT_SUBCUENTAS.DESCRIPCION as SUBCUENTA,
CONT_SUBCUENTAS.ID_EJERCICIO, CONT_SUBCUENTAS.ID_EJERCICIO,
CONT_EJERCICIOS.ESTADO CONT_EJERCICIOS.ESTADO,
CONT_APUNTES.PUNTEADO
from CONT_ASIENTOS from CONT_ASIENTOS
LEFT JOIN CONT_APUNTES ON (CONT_APUNTES.ID_ASIENTO = CONT_ASIENTOS.ID) LEFT JOIN CONT_APUNTES ON (CONT_APUNTES.ID_ASIENTO = CONT_ASIENTOS.ID)
LEFT JOIN CONT_SUBCUENTAS ON (CONT_SUBCUENTAS.ID = CONT_APUNTES.ID_SUBCUENTA) LEFT JOIN CONT_SUBCUENTAS ON (CONT_SUBCUENTAS.ID = CONT_APUNTES.ID_SUBCUENTA)
LEFT JOIN CONT_CUENTAS ON (CONT_CUENTAS.ID = CONT_SUBCUENTAS.ID_CUENTA) LEFT JOIN CONT_CUENTAS ON (CONT_CUENTAS.ID = CONT_SUBCUENTAS.ID_CUENTA)
LEFT JOIN CONT_EJERCICIOS ON (CONT_EJERCICIOS.ID = CONT_SUBCUENTAS.ID_EJERCICIO) LEFT JOIN CONT_EJERCICIOS ON (CONT_EJERCICIOS.ID = CONT_SUBCUENTAS.ID_EJERCICIO)
left join CONT_EPIGRAFES CONT_EPI1 on (CONT_EPI1.ID = CONT_CUENTAS.ID_EPIGRAFE)
left join CONT_EPIGRAFES CONT_EPI2 on (CONT_EPI2.ID = CONT_EPI1.ID_PADRE)
/* Solo sacaremos aquellas tuplas de apuntes cuya subcuenta contable pertenezca compras*/ /* Solo sacaremos aquellas tuplas de apuntes cuya subcuenta contable pertenezca compras*/
where (CONT_ASIENTOS.ID_FACTURA is not null) and (CONT_CUENTAS.ref_cuenta = 600); where (CONT_ASIENTOS.ID_FACTURA is not null) and (CONT_ASIENTOS.TIPO = 'p')
and (COALESCE(CONT_EPI2.REF_EPIGRAFE, CONT_EPI1.REF_EPIGRAFE) = 6);
CREATE VIEW V_CONT_PAGOS_PRO_COMPRAS(
ID_PAGO,
ID_SUBCUENTA,
SUBCUENTA,
ID_EJERCICIO,
ESTADO_EJERCICIO,
ASIENTO_PUNTEADO)
AS
select
CONT_ASIENTOS.ID_PAGO,
CONT_SUBCUENTAS.ID as ID_SUBCUENTA,
CONT_SUBCUENTAS.DESCRIPCION as SUBCUENTA,
CONT_SUBCUENTAS.ID_EJERCICIO,
CONT_EJERCICIOS.ESTADO,
CONT_APUNTES.PUNTEADO
from CONT_ASIENTOS
LEFT JOIN CONT_APUNTES ON (CONT_APUNTES.ID_ASIENTO = CONT_ASIENTOS.ID)
LEFT JOIN CONT_SUBCUENTAS ON (CONT_SUBCUENTAS.ID = CONT_APUNTES.ID_SUBCUENTA)
LEFT JOIN CONT_CUENTAS ON (CONT_CUENTAS.ID = CONT_SUBCUENTAS.ID_CUENTA)
LEFT JOIN CONT_EJERCICIOS ON (CONT_EJERCICIOS.ID = CONT_SUBCUENTAS.ID_EJERCICIO)
left join CONT_EPIGRAFES CONT_EPI1 on (CONT_EPI1.ID = CONT_CUENTAS.ID_EPIGRAFE)
left join CONT_EPIGRAFES CONT_EPI2 on (CONT_EPI2.ID = CONT_EPI1.ID_PADRE)
/* Solo sacaremos aquellas tuplas de apuntes cuya subcuenta contable pertenezca compras*/
where (CONT_ASIENTOS.ID_PAGO is not null) and (CONT_ASIENTOS.TIPO = 'p')
and (COALESCE(CONT_EPI2.REF_EPIGRAFE, CONT_EPI1.REF_EPIGRAFE) = 5);
CREATE VIEW V_PAGOS_PROVEEDOR(
ID,
ID_RECIBO,
TIPO,
FECHA_PAGO,
TITULAR,
ENTIDAD,
SUCURSAL,
DC,
CUENTA,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
IGNORAR_CONTABILIDAD,
ID_SUBCUENTA,
SUBCUENTA,
ID_EJERCICIO,
ESTADO_EJERCICIO,
ASIENTO_PUNTEADO)
AS
SELECT PAGOS_PROVEEDOR.ID,
PAGOS_PROVEEDOR.ID_RECIBO,
PAGOS_PROVEEDOR.TIPO,
PAGOS_PROVEEDOR.FECHA_PAGO,
PAGOS_PROVEEDOR.TITULAR,
PAGOS_PROVEEDOR.ENTIDAD,
PAGOS_PROVEEDOR.SUCURSAL,
PAGOS_PROVEEDOR.DC,
PAGOS_PROVEEDOR.CUENTA,
PAGOS_PROVEEDOR.FECHA_ALTA,
PAGOS_PROVEEDOR.FECHA_MODIFICACION,
PAGOS_PROVEEDOR.USUARIO,
PAGOS_PROVEEDOR.IGNORAR_CONTABILIDAD,
V_CONT_PAGOS_PRO_COMPRAS.ID_SUBCUENTA,
V_CONT_PAGOS_PRO_COMPRAS.SUBCUENTA,
V_CONT_PAGOS_PRO_COMPRAS.ID_EJERCICIO,
V_CONT_PAGOS_PRO_COMPRAS.ESTADO_EJERCICIO,
V_CONT_PAGOS_PRO_COMPRAS.ASIENTO_PUNTEADO
FROM PAGOS_PROVEEDOR
LEFT JOIN V_CONT_PAGOS_PRO_COMPRAS ON (V_CONT_PAGOS_PRO_COMPRAS.ID_PAGO = PAGOS_PROVEEDOR.ID)
;
CREATE VIEW V_PAGOS_CLIENTE(
ID,
ID_RECIBO,
TIPO,
FECHA_PAGO,
TITULAR,
ENTIDAD,
SUCURSAL,
DC,
CUENTA,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
IGNORAR_CONTABILIDAD,
ID_SUBCUENTA,
SUBCUENTA,
ID_EJERCICIO,
ESTADO_EJERCICIO,
ASIENTO_PUNTEADO)
AS
SELECT PAGOS_CLIENTE.ID,
PAGOS_CLIENTE.ID_RECIBO,
PAGOS_CLIENTE.TIPO,
PAGOS_CLIENTE.FECHA_PAGO,
PAGOS_CLIENTE.TITULAR,
PAGOS_CLIENTE.ENTIDAD,
PAGOS_CLIENTE.SUCURSAL,
PAGOS_CLIENTE.DC,
PAGOS_CLIENTE.CUENTA,
PAGOS_CLIENTE.FECHA_ALTA,
PAGOS_CLIENTE.FECHA_MODIFICACION,
PAGOS_CLIENTE.USUARIO,
PAGOS_CLIENTE.IGNORAR_CONTABILIDAD,
V_CONT_PAGOS_CLI_VENTAS.ID_SUBCUENTA,
V_CONT_PAGOS_CLI_VENTAS.SUBCUENTA,
V_CONT_PAGOS_CLI_VENTAS.ID_EJERCICIO,
V_CONT_PAGOS_CLI_VENTAS.ESTADO_EJERCICIO,
V_CONT_PAGOS_CLI_VENTAS.ASIENTO_PUNTEADO
FROM PAGOS_CLIENTE
LEFT JOIN V_CONT_PAGOS_CLI_VENTAS ON (V_CONT_PAGOS_CLI_VENTAS.ID_PAGO = PAGOS_CLIENTE.ID)
;
/* View: V_CONT_SUBCUENTAS_SALDO */ /* View: V_CONT_SUBCUENTAS_SALDO */
@ -2347,6 +2503,7 @@ SELECT RECIBOS_CLIENTE.ID_FACTURA, COUNT(V_REC_CLI_SITUACION.ID_RECIBO)
FROM V_REC_CLI_SITUACION LEFT JOIN RECIBOS_CLIENTE ON FROM V_REC_CLI_SITUACION LEFT JOIN RECIBOS_CLIENTE ON
(RECIBOS_CLIENTE.ID = V_REC_CLI_SITUACION.ID_RECIBO) (RECIBOS_CLIENTE.ID = V_REC_CLI_SITUACION.ID_RECIBO)
WHERE (TRIM(V_REC_CLI_SITUACION.SITUACION) = 'COBRADO') WHERE (TRIM(V_REC_CLI_SITUACION.SITUACION) = 'COBRADO')
AND (RECIBOS_CLIENTE.ID_FACTURA IS NOT NULL)
GROUP BY RECIBOS_CLIENTE.ID_FACTURA; GROUP BY RECIBOS_CLIENTE.ID_FACTURA;
; ;
@ -2409,6 +2566,7 @@ SELECT RECIBOS_PROVEEDOR.ID_FACTURA, COUNT(V_REC_PRO_SITUACION.ID_RECIBO)
FROM V_REC_PRO_SITUACION LEFT JOIN RECIBOS_PROVEEDOR ON FROM V_REC_PRO_SITUACION LEFT JOIN RECIBOS_PROVEEDOR ON
(RECIBOS_PROVEEDOR.ID = V_REC_PRO_SITUACION.ID_RECIBO) (RECIBOS_PROVEEDOR.ID = V_REC_PRO_SITUACION.ID_RECIBO)
WHERE (TRIM(V_REC_PRO_SITUACION.SITUACION) = 'PAGADO') WHERE (TRIM(V_REC_PRO_SITUACION.SITUACION) = 'PAGADO')
AND (RECIBOS_PROVEEDOR.ID_FACTURA IS NOT NULL)
GROUP BY RECIBOS_PROVEEDOR.ID_FACTURA; GROUP BY RECIBOS_PROVEEDOR.ID_FACTURA;
@ -2480,7 +2638,8 @@ CREATE VIEW V_FACTURAS_CLIENTE(
ID_SUBCUENTA, ID_SUBCUENTA,
SUBCUENTA, SUBCUENTA,
ID_EJERCICIO, ID_EJERCICIO,
ESTADO) ESTADO_EJERCICIO,
ASIENTO_PUNTEADO)
AS AS
SELECT FACTURAS_CLIENTE.ID, SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.ID_EMPRESA, FACTURAS_CLIENTE.ID_EMPRESA,
@ -2524,7 +2683,8 @@ SELECT FACTURAS_CLIENTE.ID,
V_CONT_FAC_CLI_VENTAS.ID_SUBCUENTA, V_CONT_FAC_CLI_VENTAS.ID_SUBCUENTA,
V_CONT_FAC_CLI_VENTAS.SUBCUENTA, V_CONT_FAC_CLI_VENTAS.SUBCUENTA,
V_CONT_FAC_CLI_VENTAS.ID_EJERCICIO, V_CONT_FAC_CLI_VENTAS.ID_EJERCICIO,
V_CONT_FAC_CLI_VENTAS.ESTADO V_CONT_FAC_CLI_VENTAS.ESTADO_EJERCICIO,
V_CONT_FAC_CLI_VENTAS.ASIENTO_PUNTEADO
FROM V_FAC_CLI_SITUACION FROM V_FAC_CLI_SITUACION
LEFT JOIN FACTURAS_CLIENTE LEFT JOIN FACTURAS_CLIENTE
@ -2580,7 +2740,8 @@ CREATE VIEW V_FACTURAS_PROVEEDOR(
ID_SUBCUENTA, ID_SUBCUENTA,
SUBCUENTA, SUBCUENTA,
ID_EJERCICIO, ID_EJERCICIO,
ESTADO) ESTADO_EJERCICIO,
ASIENTO_PUNTEADO)
AS AS
SELECT FACTURAS_PROVEEDOR.ID, SELECT FACTURAS_PROVEEDOR.ID,
FACTURAS_PROVEEDOR.ID_EMPRESA, FACTURAS_PROVEEDOR.ID_EMPRESA,
@ -2622,7 +2783,8 @@ SELECT FACTURAS_PROVEEDOR.ID,
V_CONT_FAC_PRO_COMPRAS.ID_SUBCUENTA, V_CONT_FAC_PRO_COMPRAS.ID_SUBCUENTA,
V_CONT_FAC_PRO_COMPRAS.SUBCUENTA, V_CONT_FAC_PRO_COMPRAS.SUBCUENTA,
V_CONT_FAC_PRO_COMPRAS.ID_EJERCICIO, V_CONT_FAC_PRO_COMPRAS.ID_EJERCICIO,
V_CONT_FAC_PRO_COMPRAS.ESTADO V_CONT_FAC_PRO_COMPRAS.ESTADO_EJERCICIO,
V_CONT_FAC_PRO_COMPRAS.ASIENTO_PUNTEADO
FROM V_FAC_PRO_SITUACION FROM V_FAC_PRO_SITUACION
LEFT JOIN FACTURAS_PROVEEDOR LEFT JOIN FACTURAS_PROVEEDOR
@ -4445,12 +4607,12 @@ begin
HABER = :IMPORTE; HABER = :IMPORTE;
end end
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, :TIPOPAGO, VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, -1, :TIPOPAGO,
:REFERENCIARECIBO, :DEBE, :HABER); :REFERENCIARECIBO, :DEBE, :HABER);
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, :IDSUBCUENTAPAGO, 1, :TIPOPAGO, VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTAPAGO, 2, -1, :TIPOPAGO,
:REFERENCIARECIBO, :HABER, :DEBE); :REFERENCIARECIBO, :HABER, :DEBE);
END END
@ -4549,12 +4711,12 @@ begin
HABER = NULL; HABER = NULL;
end end
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, :TIPOPAGO, VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTA, 1, -1, :TIPOPAGO,
:REFERENCIARECIBO, :DEBE, :HABER); :REFERENCIARECIBO, :DEBE, :HABER);
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, :IDSUBCUENTAPAGO, 1, :TIPOPAGO, VALUES (GEN_ID(GEN_CONT_APUNTES_ID, 1), :IDASIENTO, :IDSUBCUENTAPAGO, 2, -1, :TIPOPAGO,
:REFERENCIARECIBO, :HABER, :DEBE); :REFERENCIARECIBO, :HABER, :DEBE);
END END
@ -4693,14 +4855,15 @@ end
^ ^
ALTER PROCEDURE PROC_NEW_SUBCUENTAS ( ALTER PROCEDURE PROC_NEW_SUBCUENTAS (
ID_EJERCICIO_COPIA INTEGER, id_ejercicio_copia integer,
ID_EJERCICIO INTEGER, id_ejercicio integer,
ID_CUENTA_COPIA INTEGER, id_cuenta_copia integer,
ID_CUENTA INTEGER) id_cuenta integer)
AS as
declare variable descripcion varchar(255); declare variable descripcion varchar(255);
declare variable ref_subcuenta varchar(15); declare variable ref_subcuenta varchar(15);
declare variable id_subcuenta integer; declare variable id_subcuenta integer;
declare variable id_contacto integer;
begin begin
if (id_ejercicio_copia = 0) then if (id_ejercicio_copia = 0) then
begin begin
@ -4716,14 +4879,14 @@ begin
end end
else else
begin begin
for select GEN_ID(gen_cont_subcuentas_id, 1), REF_SUBCUENTA, DESCRIPCION for select GEN_ID(gen_cont_subcuentas_id, 1), REF_SUBCUENTA, DESCRIPCION, ID_CONTACTO
from CONT_SUBCUENTAS from CONT_SUBCUENTAS
where (ID_EJERCICIO = :id_ejercicio_copia) and (ID_CUENTA = :id_cuenta_copia) where (ID_EJERCICIO = :id_ejercicio_copia) and (ID_CUENTA = :id_cuenta_copia)
order by ID order by ID
into :id_subcuenta, :ref_subcuenta, :descripcion do into :id_subcuenta, :ref_subcuenta, :descripcion, :id_contacto do
begin begin
insert into CONT_SUBCUENTAS (ID, REF_SUBCUENTA, DESCRIPCION, ID_EJERCICIO, ID_CUENTA) insert into CONT_SUBCUENTAS (ID, REF_SUBCUENTA, DESCRIPCION, ID_EJERCICIO, ID_CUENTA, ID_CONTACTO)
values (:id_subcuenta, :ref_subcuenta, :descripcion, :id_ejercicio, :id_cuenta); values (:id_subcuenta, :ref_subcuenta, :descripcion, :id_ejercicio, :id_cuenta, :id_contacto);
end end
end end
suspend; suspend;

97
Source/Base/Base.dproj
View File

@ -51,13 +51,6 @@
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages> <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -72,52 +65,52 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Contabilidad\adortl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\designide.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\dsnap.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\dxNavBarD11.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\Jcl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\PluginSDK_D10R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\rtl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\vcl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\vclx.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\xmlrtl.dcp" />
<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="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>

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 proveedor\Base.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\Base.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\cxDataD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\cxEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\cxExportD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\cxTreeListD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxBarD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxBarExtItemsD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxPsPrVwAdvD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\frx11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\frx11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\frxe11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\frxe11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\fs11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\fs11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvAppFrmD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvGlobusD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\rtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\rtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\tb2k_d10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vcl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\vcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vcldb.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\vcldb.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vclx.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Controller\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.

6
Source/GUIBase/uEditorDBBase.dfm
View File

@ -10,9 +10,9 @@ inherited fEditorDBBase: TfEditorDBBase
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 646 Width = 646
ExplicitWidth = 648 ExplicitWidth = 646
inherited Image1: TImage inherited Image1: TImage
Left = 621 Left = 619
ExplicitLeft = 625 ExplicitLeft = 625
end end
end end
@ -30,7 +30,7 @@ inherited fEditorDBBase: TfEditorDBBase
Top = 435 Top = 435
Width = 646 Width = 646
ExplicitTop = 435 ExplicitTop = 435
ExplicitWidth = 648 ExplicitWidth = 646
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
inherited actPrevisualizar: TAction inherited actPrevisualizar: TAction

2
Source/GUIBase/uEditorDBBase.pas
View File

@ -10,7 +10,7 @@ uses
uDAScriptingProvider, uDACDSDataTable, AppEvnts, uCustomView, uViewBase, uDAScriptingProvider, uDACDSDataTable, AppEvnts, uCustomView, uViewBase,
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvAppStorage, JvAppRegistryStorage, JvFormPlacement,
pngimage, ExtCtrls, dxLayoutLookAndFeels, JvComponentBase, TBXStatusBars, pngimage, ExtCtrls, dxLayoutLookAndFeels, JvComponentBase, TBXStatusBars,
JvExComCtrls, JvStatusBar, uDAInterfaces; JvExComCtrls, JvStatusBar, uDAInterfaces, JvgWizardHeader;
type type
IEditorDBBase = interface(IEditorBase) IEditorDBBase = interface(IEditorBase)

66
Source/GUIBase/uEditorDBItem.dfm
View File

@ -10,9 +10,9 @@ inherited fEditorDBItem: TfEditorDBItem
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 650 Width = 650
ExplicitWidth = 652 ExplicitWidth = 650
inherited Image1: TImage inherited Image1: TImage
Left = 625 Left = 623
ExplicitLeft = 627 ExplicitLeft = 627
ExplicitHeight = 19 ExplicitHeight = 19
end end
@ -36,27 +36,6 @@ inherited fEditorDBItem: TfEditorDBItem
end end
end end
end end
object pgPaginas: TPageControl [2]
AlignWithMargins = True
Left = 3
Top = 79
Width = 644
Height = 358
ActivePage = pagGeneral
Align = alClient
TabOrder = 2
ExplicitLeft = 0
ExplicitTop = 76
ExplicitWidth = 652
ExplicitHeight = 366
object pagGeneral: TTabSheet
Caption = 'General'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 644
ExplicitHeight = 338
end
end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 440 Top = 440
Width = 650 Width = 650
@ -95,6 +74,47 @@ inherited fEditorDBItem: TfEditorDBItem
Transparent = True Transparent = True
end end
end end
object pgPaginas: TPageControl [3]
AlignWithMargins = True
Left = 3
Top = 109
Width = 644
Height = 328
ActivePage = pagGeneral
Align = alClient
TabOrder = 2
ExplicitTop = 117
ExplicitHeight = 320
object pagGeneral: TTabSheet
Caption = 'General'
ExplicitHeight = 292
end
end
object PnlComentario: TPanel [4]
Left = 0
Top = 76
Width = 650
Height = 30
Align = alTop
Alignment = taLeftJustify
AutoSize = True
Color = 13499902
ParentBackground = False
TabOrder = 4
VerticalAlignment = taAlignTop
object lbComentario: TLabel
AlignWithMargins = True
Left = 6
Top = 4
Width = 640
Height = 25
Margins.Left = 5
Align = alClient
Caption = 'Comentario'
WordWrap = True
ExplicitHeight = 30
end
end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
Top = 112 Top = 112
inherited actEliminar: TAction inherited actEliminar: TAction

39
Source/GUIBase/uEditorDBItem.pas
View File

@ -10,22 +10,36 @@ uses
StdCtrls, uDAScriptingProvider, uDACDSDataTable, AppEvnts, uCustomView, StdCtrls, uDAScriptingProvider, uDACDSDataTable, AppEvnts, uCustomView,
uViewBase, JvAppStorage, JvAppRegistryStorage, uViewBase, JvAppStorage, JvAppRegistryStorage,
JvFormPlacement, pngimage, ExtCtrls, JvComponentBase, dxLayoutLookAndFeels, JvFormPlacement, pngimage, ExtCtrls, JvComponentBase, dxLayoutLookAndFeels,
JvExComCtrls, JvStatusBar, uDAInterfaces; JvExComCtrls, JvStatusBar, uDAInterfaces, JvgWizardHeader;
type type
IEditorDBItem = interface(IEditorDBBase) IEditorDBItem = interface(IEditorDBBase)
['{497AE4CE-D061-4F75-A29A-320F8565FF54}'] ['{497AE4CE-D061-4F75-A29A-320F8565FF54}']
function GetComentario: Variant;
procedure SetComentario(const Value: Variant);
property Comentario: Variant read GetComentario write SetComentario;
end; end;
TfEditorDBItem = class(TfEditorDBBase, IEditorDBItem) TfEditorDBItem = class(TfEditorDBBase, IEditorDBItem)
pgPaginas: TPageControl; pgPaginas: TPageControl;
pagGeneral: TTabSheet; pagGeneral: TTabSheet;
imgStatus: TImage; imgStatus: TImage;
PnlComentario: TPanel;
lbComentario: TLabel;
protected protected
FComentario: Variant;
function GetComentario: Variant;
procedure SetComentario(const Value: Variant);
procedure EliminarInterno; override; procedure EliminarInterno; override;
procedure PrevisualizarInterno; override; procedure PrevisualizarInterno; override;
procedure ImprimirInterno; override; procedure ImprimirInterno; override;
procedure ActualizarEstadoEditor; override; procedure ActualizarEstadoEditor; override;
public
property Comentario: Variant read GetComentario write SetComentario;
constructor Create(AOwner: TComponent); override;
end; end;
implementation implementation
@ -52,12 +66,23 @@ begin
end; end;
end; end;
constructor TfEditorDBItem.Create(AOwner: TComponent);
begin
inherited;
Comentario := Null;
end;
procedure TfEditorDBItem.EliminarInterno; procedure TfEditorDBItem.EliminarInterno;
begin begin
inherited; inherited;
actCerrar.Execute; actCerrar.Execute;
end; end;
function TfEditorDBItem.GetComentario: Variant;
begin
Result := FComentario;
end;
procedure TfEditorDBItem.ImprimirInterno; procedure TfEditorDBItem.ImprimirInterno;
begin begin
inherited; inherited;
@ -84,6 +109,18 @@ begin
end; end;
end; end;
procedure TfEditorDBItem.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;
initialization initialization
RegisterClass(TfEditorDBItem); RegisterClass(TfEditorDBItem);

6
Source/GUIBase/uEditorItem.dfm
View File

@ -26,14 +26,8 @@ inherited fEditorItem: TfEditorItem
ActivePage = pagGeneral ActivePage = pagGeneral
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitLeft = 0
ExplicitTop = 70
ExplicitWidth = 678
ExplicitHeight = 406
object pagGeneral: TTabSheet object pagGeneral: TTabSheet
Caption = 'General' Caption = 'General'
ExplicitWidth = 670
ExplicitHeight = 378
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock

12
Source/GUIBase/uViewFiltroBase.dfm
View File

@ -42,12 +42,16 @@ object frViewFiltroBase: TfrViewFiltroBase
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0 TabOrder = 0
Width = 273 Width = 273
end end
@ -60,14 +64,18 @@ object frViewFiltroBase: TfrViewFiltroBase
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1 TabOrder = 1
Width = 121 Width = 121
end end
@ -80,14 +88,18 @@ object frViewFiltroBase: TfrViewFiltroBase
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2 TabOrder = 2
Width = 121 Width = 121
end end

3
Source/GUIBase/uViewGrid.dfm
View File

@ -128,6 +128,7 @@ inherited frViewGrid: TfrViewGrid
SupportedDocks = [dkStandardDock, dkMultiDock] SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 2 TabOrder = 2
Visible = False Visible = False
ExplicitWidth = 128
object TBXAlignmentPanel1: TTBXAlignmentPanel object TBXAlignmentPanel1: TTBXAlignmentPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -175,7 +176,7 @@ inherited frViewGrid: TfrViewGrid
PrinterPage.ScaleMode = smFit PrinterPage.ScaleMode = smFit
PrinterPage._dxMeasurementUnits_ = 0 PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2 PrinterPage._dxLastMU_ = 2
ReportDocument.CreationDate = 39764.713522488430000000 ReportDocument.CreationDate = 39855.714797442130000000
StyleManager = dmBase.dxPrintStyleManager1 StyleManager = dmBase.dxPrintStyleManager1
OptionsCards.Shadow.Depth = 0 OptionsCards.Shadow.Depth = 0
OptionsExpanding.ExpandGroupRows = True OptionsExpanding.ExpandGroupRows = True

10
Source/Modulos/Articulos/Views/Articulos_view.dproj
View File

@ -54,11 +54,11 @@
<DelphiCompile Include="Articulos_view.dpk"> <DelphiCompile Include="Articulos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\Articulos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_model.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\Articulos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\Contactos_view.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Familias_controller.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\Familias_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\GUIBase.dcp" />
<DCCReference Include="uArticulosViewRegister.pas" /> <DCCReference Include="uArticulosViewRegister.pas" />
<DCCReference Include="uEditorArticulo.pas"> <DCCReference Include="uEditorArticulo.pas">
<Form>fEditorArticulo</Form> <Form>fEditorArticulo</Form>

51
Source/Modulos/Contabilidad/Controller/uAsientosController.pas
View File

@ -21,6 +21,7 @@ type
function Eliminar(AAsiento : IBizAsiento): Boolean; overload; function Eliminar(AAsiento : IBizAsiento): Boolean; overload;
function Guardar(AAsiento : IBizAsiento): Boolean; function Guardar(AAsiento : IBizAsiento): Boolean;
procedure DescartarCambios(AAsiento : IBizAsiento); procedure DescartarCambios(AAsiento : IBizAsiento);
procedure Puntear(ADiario: IBizDiario);
end; end;
TAsientosController = class(TControllerBase, IAsientosController) TAsientosController = class(TControllerBase, IAsientosController)
@ -49,12 +50,13 @@ type
procedure DescartarCambios(AAsiento : IBizAsiento); virtual; procedure DescartarCambios(AAsiento : IBizAsiento); virtual;
function Anadir: IBizAsiento; overload; function Anadir: IBizAsiento; overload;
function Anadir(IdSubcuenta:Integer): IBizAsiento; overload; function Anadir(IdSubcuenta:Integer): IBizAsiento; overload;
function CerrarCajaBanco(IdSubcuenta:Integer): Boolean;
function Buscar(const ID: Integer): IBizAsiento; function Buscar(const ID: Integer): IBizAsiento;
procedure VerDiario(ADiario: IBizDiario); procedure VerDiario(ADiario: IBizDiario);
procedure VerExtracto; procedure VerExtracto;
procedure Ver(AAsiento: IBizAsiento); procedure Ver(AAsiento: IBizAsiento);
procedure Puntear(ADiario: IBizDiario);
function CerrarCajaBanco(IdSubcuenta:Integer): Boolean;
end; end;
implementation implementation
@ -153,6 +155,7 @@ begin
end; end;
Guardar(AAsiento); Guardar(AAsiento);
FDataModule.PuntearSubCuenta(IdSubcuenta);
Result := True; Result := True;
finally finally
@ -386,4 +389,50 @@ begin
end; end;
end; end;
procedure TAsientosController.Puntear(ADiario: IBizDiario);
//Este procedimiento se encargará de mandar al servidor que se puntee el asiento seleccionado y
//puntear en el objeto ADiario los elementos del asiento seleccionado para no tener que refrescar la tabla.
var
ABookmark: Pointer;
IdAsiento: Integer;
begin
if Assigned(ADiario) then
begin
ShowHourglassCursor;
try
//Mandamos al servidor modificar todos los apuntes del asiento a punteados
IdAsiento := ADiario.ID_ASIENTO;
FDataModule.PuntearAsiento(IdAsiento);
ABookmark := NIL;
with ADiario.DataTable do
begin
DisableControls;
DisableEventHandlers;
try
ABookmark := GetBookMark;
First;
Locate(fld_DiarioID_ASIENTO, IdAsiento, []);
while (not EOF) and (ADiario.ID_ASIENTO = IdAsiento) do
begin
Edit;
ADiario.PUNTEADO := -1 * ADiario.PUNTEADO;
Post;
Next;
end;
finally
GotoBookmark(Abookmark);
FreeBookmark(ABookmark);
EnableControls;
EnableEventHandlers;
end;
end;
finally
HideHourglassCursor;
end;
end;
end;
end. end.

12
Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.pas
View File

@ -48,6 +48,8 @@ type
function GetAsientoItem(const ID : Integer): IBizAsiento; function GetAsientoItem(const ID : Integer): IBizAsiento;
function GetCuentaEspecialItems: IBizCuentaEspecial; function GetCuentaEspecialItems: IBizCuentaEspecial;
function GetBalanceItems: IBizBalance; function GetBalanceItems: IBizBalance;
procedure PuntearAsiento(IDAsiento: Integer);
procedure PuntearSubCuenta(IDSubcuenta: Integer);
end; end;
implementation implementation
@ -234,6 +236,16 @@ begin
Result := GetSubCuentaItem(ID_NULO) Result := GetSubCuentaItem(ID_NULO)
end; end;
procedure TDataModuleContabilidad.PuntearAsiento(IDAsiento: Integer);
begin
(RORemoteService as IsrvContabilidad).PuntearAsiento(IdAsiento);
end;
procedure TDataModuleContabilidad.PuntearSubCuenta(IDSubcuenta: Integer);
begin
(RORemoteService as IsrvContabilidad).PuntearSubCuenta(IdSubCuenta);
end;
function TDataModuleContabilidad._GetApuntes: IBizApunte; function TDataModuleContabilidad._GetApuntes: IBizApunte;
var var
AApuntes : TDAMemDataTable; AApuntes : TDAMemDataTable;

2
Source/Modulos/Contabilidad/Model/Data/uIDataModuleContabilidad.pas
View File

@ -19,6 +19,8 @@ type
function GetAsientosDiarioItems: IBizDiario; function GetAsientosDiarioItems: IBizDiario;
function GetExtractoMovimientosItems: IBizExtractoMovimiento; function GetExtractoMovimientosItems: IBizExtractoMovimiento;
function GetAsientoItem(const ID : Integer): IBizAsiento; function GetAsientoItem(const ID : Integer): IBizAsiento;
procedure PuntearAsiento(IDAsiento: Integer);
procedure PuntearSubCuenta(IDSubcuenta: Integer);
end; end;
implementation implementation

3
Source/Modulos/Contabilidad/Model/uBizApuntes.pas
View File

@ -6,6 +6,8 @@ uses
uDAInterfaces, uDADataTable, schContabilidadClient_Intf; uDAInterfaces, uDADataTable, schContabilidadClient_Intf;
const const
CTE_PUNTEADO = 1;
CTE_NO_PUNTEADO = -1;
BIZ_CLIENT_Apunte = 'Client.Apunte'; BIZ_CLIENT_Apunte = 'Client.Apunte';
type type
@ -59,6 +61,7 @@ procedure TBizApunte.IniciarValoresApunteNueva;
begin begin
NUM_ORDEN := FNumOrden; NUM_ORDEN := FNumOrden;
Inc(FNumOrden); Inc(FNumOrden);
PUNTEADO := CTE_NO_PUNTEADO;
end; end;
procedure TBizApunte.OnNewRecord(Sender: TDADataTable); procedure TBizApunte.OnNewRecord(Sender: TDADataTable);

34
Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.dfm
View File

@ -2046,6 +2046,40 @@ object srvContabilidad: TsrvContabilidad
ColumnMappings = <> ColumnMappings = <>
end> end>
Name = 'Update_Apuntes' Name = 'Update_Apuntes'
end
item
Params = <
item
Name = 'ID_ASIENTO'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
SQL =
'update CONT_APUNTES'#10'SET PUNTEADO = -1 * PUNTEADO'#10'WHERE ID_ASIENT' +
'O = :ID_ASIENTO'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'PuntearAsiento'
end
item
Params = <
item
Name = 'ID_SUBCUENTA'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
SQL =
'update CONT_APUNTES'#10'SET PUNTEADO = 1'#10'WHERE ID_SUBCUENTA = :ID_SU' +
'BCUENTA'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'PuntearSubCuenta'
end> end>
RelationShips = < RelationShips = <
item item

52
Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.pas
View File

@ -45,6 +45,8 @@ type
function AnadirSubCuentaCliente(const ID_CONTACTO: Integer; const ID_TIENDA: Integer; const ID_EMPRESA: Integer; const CLIENTE: String): Boolean; function AnadirSubCuentaCliente(const ID_CONTACTO: Integer; const ID_TIENDA: Integer; const ID_EMPRESA: Integer; const CLIENTE: String): Boolean;
function AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ES_ACREEDOR: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean; function AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ES_ACREEDOR: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean;
function DarNumOrdenAsiento : Integer; function DarNumOrdenAsiento : Integer;
procedure PuntearAsiento(const ID_ASIENTO: Integer);
procedure PuntearSubCuenta(const ID_SUBCUENTA: Integer);
end; end;
implementation implementation
@ -268,6 +270,56 @@ begin
ConnectionName := dmServer.ConnectionName; ConnectionName := dmServer.ConnectionName;
end; end;
procedure TsrvContabilidad.PuntearAsiento(const ID_ASIENTO: Integer);
var
AConn : IDAConnection;
dsCommand: IDASQLCommand;
begin
AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
try
try
dsCommand := schContabilidad.NewCommand(AConn, 'PuntearAsiento');
with dsCommand do
begin
ParamByName('ID_ASIENTO').AsInteger := ID_ASIENTO;
end;
dsCommand.Execute;
AConn.CommitTransaction;
except
RaiseError('Error al puntear los apuntes del asiento');
AConn.RollbackTransaction;
end;
finally
dsCommand := NIL;
end;
end;
procedure TsrvContabilidad.PuntearSubCuenta(const ID_SUBCUENTA: Integer);
var
AConn : IDAConnection;
dsCommand: IDASQLCommand;
begin
AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
try
try
dsCommand := schContabilidad.NewCommand(AConn, 'PuntearSubCuenta');
with dsCommand do
begin
ParamByName('ID_SUBCUENTA').AsInteger := ID_SUBCUENTA;
end;
dsCommand.Execute;
AConn.CommitTransaction;
except
RaiseError('Error al puntear los apuntes de la subcuenta');
AConn.RollbackTransaction;
end;
finally
dsCommand := NIL;
end;
end;
function TsrvContabilidad.TieneCuentaAsociada(const ID_CONTACTO: Integer; const ID_EMPRESA: Integer): Boolean; function TsrvContabilidad.TieneCuentaAsociada(const ID_CONTACTO: Integer; const ID_EMPRESA: Integer): Boolean;
var var
AConn : IDAConnection; AConn : IDAConnection;

4
Source/Modulos/Contabilidad/Views/uEditorApunte.pas
View File

@ -105,9 +105,9 @@ begin
if Assigned(Apunte) then if Assigned(Apunte) then
begin begin
if Apunte.EsNuevo then if Apunte.EsNuevo then
FTitulo := 'Nuevo apunte - ' + AppFactuGES.EjercicioActivo.NOMBRE FTitulo := 'Nuevo apunte - ' + AppFactuGES.EjercicioActivo.NOMBRE + ' (' + AppFactuGES.EjercicioActivo.ESTADO + ')'
else else
FTitulo := 'Apunte' + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE; // + ' - ' + Apunte.DESCRIPCION; FTitulo := 'Apunte' + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE + ' (' + AppFactuGES.EjercicioActivo.ESTADO + ')';
end; end;
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);

23
Source/Modulos/Contabilidad/Views/uEditorAsiento.dfm
View File

@ -116,6 +116,7 @@ inherited fEditorAsiento: TfEditorAsiento
Height = 466 Height = 466
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
DesignSize = ( DesignSize = (
855 855
@ -141,12 +142,16 @@ inherited fEditorAsiento: TfEditorAsiento
Style.Font.Style = [] Style.Font.Style = []
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText Style.TextColor = clWindowText
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1 TabOrder = 1
Height = 21 Height = 21
Width = 100 Width = 100
@ -163,13 +168,17 @@ inherited fEditorAsiento: TfEditorAsiento
Style.Color = clInfoBk Style.Color = clInfoBk
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.Shadow = False Style.Shadow = False
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0 TabOrder = 0
Width = 200 Width = 200
end end
@ -215,6 +224,20 @@ inherited fEditorAsiento: TfEditorAsiento
end> end>
end end
end end
inherited ToolBar1: TToolBar
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False

4
Source/Modulos/Contabilidad/Views/uEditorAsiento.pas
View File

@ -117,9 +117,9 @@ begin
if Assigned(Asiento) then if Assigned(Asiento) then
begin begin
if Asiento.EsNuevo then if Asiento.EsNuevo then
FTitulo := 'Nuevo asiento - ' + AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE FTitulo := 'Nuevo asiento - ' + AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE + ' (' + AppFactuGES.EjercicioActivo.ESTADO + ')'
else else
FTitulo := 'Asiento' + ' ' + IntToStr(Asiento.ORDEN) + ' - ' + AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE; FTitulo := 'Asiento' + ' ' + IntToStr(Asiento.ORDEN) + ' - ' + AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE + ' (' + AppFactuGES.EjercicioActivo.ESTADO + ')';
end; end;
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);

1
Source/Modulos/Contabilidad/Views/uEditorCuenta.dfm
View File

@ -8,6 +8,7 @@ inherited fEditorCuenta: TfEditorCuenta
Scaled = False Scaled = False
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 640 ExplicitWidth = 640
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader

4
Source/Modulos/Contabilidad/Views/uEditorCuenta.pas
View File

@ -103,9 +103,9 @@ begin
if Assigned(Cuenta) then if Assigned(Cuenta) then
begin begin
if Cuenta.EsNuevo then if Cuenta.EsNuevo then
FTitulo := 'Nueva cuenta - ' + AppFactuGES.EjercicioActivo.NOMBRE FTitulo := 'Nueva cuenta - ' + AppFactuGES.EjercicioActivo.NOMBRE + ' (' + AppFactuGES.EjercicioActivo.ESTADO + ')'
else else
FTitulo := 'Cuenta' + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE + ' - ' + Cuenta.DESCRIPCION; FTitulo := 'Cuenta' + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE + ' (' + AppFactuGES.EjercicioActivo.ESTADO + ')' + ' - ' + Cuenta.DESCRIPCION;
end; end;
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);

2
Source/Modulos/Contabilidad/Views/uEditorCuentas.dfm
View File

@ -2,6 +2,8 @@ inherited fEditorCuentas: TfEditorCuentas
Left = 489 Left = 489
Top = 325 Top = 325
Caption = 'Lista de cuentas' Caption = 'Lista de cuentas'
ExplicitWidth = 320
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader

2
Source/Modulos/Contabilidad/Views/uEditorCuentas.pas
View File

@ -99,7 +99,7 @@ procedure TfEditorCuentas.PonerTitulos(const ATitulo: string);
var var
FTitulo : String; FTitulo : String;
begin begin
FTitulo := 'Lista de Cuentas - ' + AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE; FTitulo := 'Lista de Cuentas - ' + AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE + ' (' + AppFactuGES.EjercicioActivo.ESTADO + ')';
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);
end; end;

47
Source/Modulos/Contabilidad/Views/uEditorDiario.dfm
View File

@ -2,6 +2,8 @@ inherited fEditorDiario: TfEditorDiario
Left = 489 Left = 489
Top = 325 Top = 325
Caption = 'Libro de diario' Caption = 'Libro de diario'
ExplicitWidth = 320
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -43,7 +45,13 @@ inherited fEditorDiario: TfEditorDiario
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Left = 275 Left = 275
DockPos = 275 DockPos = 275
Visible = True
ExplicitLeft = 275 ExplicitLeft = 275
ExplicitWidth = 176
object TBXItem38: TTBXItem
Action = actPuntear
DisplayMode = nbdmImageAndText
end
end end
end end
inline frViewDiario1: TfrViewDiario [3] inline frViewDiario1: TfrViewDiario [3]
@ -85,6 +93,9 @@ inherited fEditorDiario: TfEditorDiario
Kind = skCount Kind = skCount
Column = frViewDiario1.cxGridViewCONCEPTO Column = frViewDiario1.cxGridViewCONCEPTO
end> end>
inherited cxGridViewPUNTEADO: TcxGridDBColumn
IsCaptionAssigned = True
end
inherited cxGridViewID_ASIENTO: TcxGridDBColumn inherited cxGridViewID_ASIENTO: TcxGridDBColumn
IsCaptionAssigned = True IsCaptionAssigned = True
end end
@ -103,16 +114,12 @@ inherited fEditorDiario: TfEditorDiario
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273
Width = 273
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
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 = 121
Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 337 Left = 337
@ -121,8 +128,6 @@ inherited fEditorDiario: TfEditorDiario
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 337 ExplicitLeft = 337
ExplicitWidth = 121
Width = 121
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -177,6 +182,13 @@ inherited fEditorDiario: TfEditorDiario
Enabled = False Enabled = False
Visible = False Visible = False
end end
object actPuntear: TAction
Category = 'OperacionesEspeciales'
Caption = 'Puntear/Despuntear asiento'
ImageIndex = 24
OnExecute = actPuntearExecute
OnUpdate = actPuntearUpdate
end
end end
inherited SmallImages: TPngImageList [5] inherited SmallImages: TPngImageList [5]
PngImages = < PngImages = <
@ -721,6 +733,29 @@ inherited fEditorDiario: TfEditorDiario
49454E44AE426082} 49454E44AE426082}
Name = 'PngImage23' Name = 'PngImage23'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000AEB00000AEB01828B0D5A000001DA4944415478DA
63FCFFFF3F032580912C5DF2F33964B539E3DF7DF8F1956403380CE7C85B5929
CFFAF99ED7FCFCED9BE124192060B7D8D6CE5279E99B876C42674FFC0CFEF9C0
7A27D10628FBAF0FB030915F74E7EA6FE6F387FF87FD7A6AB195E83090F55915
EEE7A23BE7FCD9CFAC170EFF4EFDF6C07A31D18128E1BE3CC8DB597BE1A3BBBF
B98EECFA91FBFDBEF574A0F07FA20C10B09B67EBE366B8E3CDF37F9C47F77CED
FC7CD3AE125D0DC400B3897C9CCCBCEADFD9182F331C4CFC010E6DCB39F29E0E
3A07599939E477AE7FBFFBE3CF4BBE0C77F27F621820EAB848DFDC447931372B
9FE68E5DF7577F3C73368E414588D9C6496BB3AA92B8CBDECD9FDEBC7CF9D3F2
E71DE7BBD85CC928EAB438C4C7556F3A0B1B8BC8B1BD9FFFDE7B753F4C41994B
C3CA48B1E5F09ECFFFEF3F7D19F3FB5AD0725CDE047B41276243A09D85FAAAA7
CFBFB11CDEFBEA8EA79F98E4C3FBBFB8CF9F7BBDE5EB453F3FE440C31E060CF5
4C4ED9F63B6565845D5EBEFEF29F11287AE9C4AF2FAFBF3D32FF753EFE3ABE80
86C7028FF5429B101F83FDCF5F7F66797697E1FFCDDB6FA7FFBAE69F4D289A91
A2B19EC539C7E1C49BC7EC46F71EBDD9FFF9DFD338868B994F4930808181D76E
413EF33F56D90F0F5ED4323C29FE4E4833080000904EC47A3EA3126900000000
49454E44AE426082}
Name = 'PngImage24'
Background = clWindow
end> end>
Bitmap = {} Bitmap = {}
end end

39
Source/Modulos/Contabilidad/Views/uEditorDiario.pas
View File

@ -17,10 +17,14 @@ uses
type type
TfEditorDiario = class(TfEditorGridBase, IEditorDiario) TfEditorDiario = class(TfEditorGridBase, IEditorDiario)
frViewDiario1: TfrViewDiario; frViewDiario1: TfrViewDiario;
actPuntear: TAction;
TBXItem38: TTBXItem;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actModificarUpdate(Sender: TObject); procedure actModificarUpdate(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject); procedure actEliminarUpdate(Sender: TObject);
procedure actNuevoUpdate(Sender: TObject); procedure actNuevoUpdate(Sender: TObject);
procedure actPuntearExecute(Sender: TObject);
procedure actPuntearUpdate(Sender: TObject);
private private
FDiario: IBizDiario; FDiario: IBizDiario;
FController : IAsientosController; FController : IAsientosController;
@ -48,7 +52,7 @@ type
implementation implementation
uses uses
uCustomEditor, uDataModuleUsuarios, uBizEjercicios, uCustomEditor, uDataModuleUsuarios, uBizEjercicios, uBizApuntes,
uEditorDBBase, uFactuGES_App, uEditorDBBase, uFactuGES_App,
cxGrid, cxGridCustomTableView; cxGrid, cxGridCustomTableView;
@ -112,7 +116,7 @@ procedure TfEditorDiario.PonerTitulos(const ATitulo: string);
var var
FTitulo : String; FTitulo : String;
begin begin
FTitulo := 'Libro de diario - ' + AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE; FTitulo := 'Libro de diario - ' + AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE + ' (' + AppFactuGES.EjercicioActivo.ESTADO + ')';
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);
end; end;
@ -169,17 +173,23 @@ end;
procedure TfEditorDiario.actEliminarUpdate(Sender: TObject); procedure TfEditorDiario.actEliminarUpdate(Sender: TObject);
begin begin
inherited; inherited;
//No se podrá eliminar un asiento si es automático por factura, si el ejercicio esta cerrado o el asiento esta punteado
if (Sender as TAction).Enabled then if (Sender as TAction).Enabled then
if Assigned(Diario) then if Assigned(Diario) then
(Sender as TAction).Enabled := Diario.ID_FACTURAIsNull and Diario.ID_PAGOIsNull and (Diario.ESTADO = CTE_ABIERTO); (Sender as TAction).Enabled := Diario.ID_FACTURAIsNull and Diario.ID_PAGOIsNull
and (Diario.ESTADO = CTE_ABIERTO)
and (Diario.PUNTEADO = CTE_NO_PUNTEADO);
end; end;
procedure TfEditorDiario.actModificarUpdate(Sender: TObject); procedure TfEditorDiario.actModificarUpdate(Sender: TObject);
begin begin
inherited; inherited;
//No se podrá modificar un asiento si es automático por factura, si el ejercicio esta cerrado o el asiento esta punteado
if (Sender as TAction).Enabled then if (Sender as TAction).Enabled then
if Assigned(Diario) then if Assigned(Diario) then
(Sender as TAction).Enabled := Diario.ID_FACTURAIsNull and Diario.ID_PAGOIsNull and (Diario.ESTADO = CTE_ABIERTO); (Sender as TAction).Enabled := Diario.ID_FACTURAIsNull and Diario.ID_PAGOIsNull
and (Diario.ESTADO = CTE_ABIERTO)
and (Diario.PUNTEADO = CTE_NO_PUNTEADO);
end; end;
procedure TfEditorDiario.actNuevoUpdate(Sender: TObject); procedure TfEditorDiario.actNuevoUpdate(Sender: TObject);
@ -189,6 +199,27 @@ begin
(Sender as TAction).Enabled := (AppFactuGES.EjercicioActivo.ESTADO = CTE_ABIERTO); (Sender as TAction).Enabled := (AppFactuGES.EjercicioActivo.ESTADO = CTE_ABIERTO);
end; end;
procedure TfEditorDiario.actPuntearExecute(Sender: TObject);
begin
inherited;
FController.Puntear(Diario);
// actRefrescar.Execute;
end;
procedure TfEditorDiario.actPuntearUpdate(Sender: TObject);
begin
inherited;
if HayDatos and Assigned(ViewGrid) then
(Sender as TAction).Enabled := not (dsDataTable.DataTable.State in dsEditModes)
and not ViewGrid.IsEmpty
and ViewGrid.esSeleccionCeldaDatos
else
(Sender as TAction).Enabled := False;
if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := (AppFactuGES.EjercicioActivo.ESTADO = CTE_ABIERTO);
end;
constructor TfEditorDiario.Create(AOwner: TComponent); constructor TfEditorDiario.Create(AOwner: TComponent);
begin begin
inherited; inherited;

4
Source/Modulos/Contabilidad/Views/uEditorEpigrafe.pas
View File

@ -103,9 +103,9 @@ begin
if Assigned(Epigrafe) then if Assigned(Epigrafe) then
begin begin
if Epigrafe.EsNuevo then if Epigrafe.EsNuevo then
FTitulo := 'Nuevo epígrafe - ' + AppFactuGES.EjercicioActivo.NOMBRE FTitulo := 'Nuevo epígrafe - ' + AppFactuGES.EjercicioActivo.NOMBRE + ' (' + AppFactuGES.EjercicioActivo.ESTADO + ')'
else else
FTitulo := 'Epígrafe' + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE + ' - ' + Epigrafe.DESCRIPCION; FTitulo := 'Epígrafe' + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE + ' (' + AppFactuGES.EjercicioActivo.ESTADO + ')' + ' - ' + Epigrafe.DESCRIPCION;
end; end;
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);

2
Source/Modulos/Contabilidad/Views/uEditorEpigrafes.dfm
View File

@ -2,6 +2,8 @@ inherited fEditorEpigrafes: TfEditorEpigrafes
Left = 489 Left = 489
Top = 325 Top = 325
Caption = 'Lista de epigrafes' Caption = 'Lista de epigrafes'
ExplicitWidth = 320
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader

2
Source/Modulos/Contabilidad/Views/uEditorEpigrafes.pas
View File

@ -99,7 +99,7 @@ procedure TfEditorEpigrafes.PonerTitulos(const ATitulo: string);
var var
FTitulo : String; FTitulo : String;
begin begin
FTitulo := 'Lista de Epigrafes - ' + AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE; FTitulo := 'Lista de Epigrafes - ' + AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE + ' (' + AppFactuGES.EjercicioActivo.ESTADO + ')';
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);
end; end;

32
Source/Modulos/Contabilidad/Views/uEditorExtractoMovimientos.dfm
View File

@ -55,11 +55,14 @@ inherited fEditorExtractoMovimientos: TfEditorExtractoMovimientos
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
DockPos = 275 DockPos = 275
Visible = True Visible = True
ExplicitWidth = 129 ExplicitWidth = 240
object TBXItem38: TTBXItem object TBXItem38: TTBXItem
Action = actCerrarCaja Action = actPuntear
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
end end
object TBXItem39: TTBXItem
Action = actCerrarCaja
end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -91,6 +94,13 @@ inherited fEditorExtractoMovimientos: TfEditorExtractoMovimientos
ExplicitWidth = 774 ExplicitWidth = 774
ExplicitHeight = 248 ExplicitHeight = 248
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0 movimientos'
Kind = skCount
Position = spFooter
Column = frViewExtractoMovimientos1.cxGridViewCONCEPTO
end>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Format = ',0.00 '#8364';-,0.00 '#8364 Format = ',0.00 '#8364';-,0.00 '#8364
@ -106,7 +116,15 @@ inherited fEditorExtractoMovimientos: TfEditorExtractoMovimientos
Format = #218'ltimo orden 0' Format = #218'ltimo orden 0'
Kind = skMax Kind = skMax
Column = frViewExtractoMovimientos1.cxGridViewORDEN Column = frViewExtractoMovimientos1.cxGridViewORDEN
end
item
Format = '0 movimientos'
Kind = skCount
Column = frViewExtractoMovimientos1.cxGridViewCONCEPTO
end> end>
inherited cxGridViewPUNTEADO: TcxGridDBColumn
IsCaptionAssigned = True
end
inherited cxGridViewID_ASIENTO: TcxGridDBColumn inherited cxGridViewID_ASIENTO: TcxGridDBColumn
IsCaptionAssigned = True IsCaptionAssigned = True
end end
@ -199,11 +217,15 @@ inherited fEditorExtractoMovimientos: TfEditorExtractoMovimientos
Enabled = False Enabled = False
Visible = False Visible = False
end end
object actCerrarCaja: TAction object actPuntear: TAction
Caption = 'Cerrar Caja/Banco' Caption = 'Puntear/Despuntear asiento'
ImageIndex = 24 ImageIndex = 24
OnExecute = actPuntearExecute
OnUpdate = actPuntearUpdate
end
object actCerrarCaja: TAction
Caption = 'Cerrar caja'
OnExecute = actCerrarCajaExecute OnExecute = actCerrarCajaExecute
OnUpdate = actCerrarCajaUpdate
end end
end end
inherited SmallImages: TPngImageList [5] inherited SmallImages: TPngImageList [5]

55
Source/Modulos/Contabilidad/Views/uEditorExtractoMovimientos.pas
View File

@ -17,14 +17,17 @@ uses
type type
TfEditorExtractoMovimientos = class(TfEditorGridBase, IEditorExtractoMovimientos) TfEditorExtractoMovimientos = class(TfEditorGridBase, IEditorExtractoMovimientos)
frViewExtractoMovimientos1: TfrViewExtractoMovimientos; frViewExtractoMovimientos1: TfrViewExtractoMovimientos;
actCerrarCaja: TAction; actPuntear: TAction;
TBXItem38: TTBXItem; TBXItem38: TTBXItem;
actCerrarCaja: TAction;
TBXItem39: TTBXItem;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actModificarUpdate(Sender: TObject); procedure actModificarUpdate(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject); procedure actEliminarUpdate(Sender: TObject);
procedure actCerrarCajaExecute(Sender: TObject); procedure actPuntearExecute(Sender: TObject);
procedure actCerrarCajaUpdate(Sender: TObject); procedure actPuntearUpdate(Sender: TObject);
procedure actNuevoUpdate(Sender: TObject); procedure actNuevoUpdate(Sender: TObject);
procedure actCerrarCajaExecute(Sender: TObject);
private private
FDiario: IBizDiario; FDiario: IBizDiario;
@ -55,7 +58,7 @@ type
implementation implementation
uses uses
uFactuGES_App, uBizEjercicios; uFactuGES_App, uBizEjercicios, uBizApuntes;
{$R *.dfm} {$R *.dfm}
@ -114,7 +117,7 @@ procedure TfEditorExtractoMovimientos.PonerTitulos(const ATitulo: string);
var var
FTitulo : String; FTitulo : String;
begin begin
FTitulo := 'Cajas / Bancos - ' + AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE; FTitulo := 'Cajas / Bancos - ' + AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE + ' (' + AppFactuGES.EjercicioActivo.ESTADO + ')';
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);
end; end;
@ -154,37 +157,55 @@ begin
end; end;
end; end;
procedure TfEditorExtractoMovimientos.actPuntearExecute(Sender: TObject);
begin
inherited;
FController.Puntear(Diario);
end;
procedure TfEditorExtractoMovimientos.actPuntearUpdate(Sender: TObject);
begin
if HayDatos and Assigned(ViewGrid) then
(Sender as TAction).Enabled := not (dsDataTable.DataTable.State in dsEditModes)
and not ViewGrid.IsEmpty
and ViewGrid.esSeleccionCeldaDatos
else
(Sender as TAction).Enabled := False;
if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := (AppFactuGES.EjercicioActivo.ESTADO = CTE_ABIERTO);
end;
procedure TfEditorExtractoMovimientos.actCerrarCajaExecute(Sender: TObject); procedure TfEditorExtractoMovimientos.actCerrarCajaExecute(Sender: TObject);
begin begin
inherited; inherited;
showmessage(IntToStr(Diario.ID_SUBCUENTA));
showmessage(IntToStr(frViewExtractoMovimientos1.cxGrid.ActiveLevel.Tag));
if FController.CerrarCajaBanco(frViewExtractoMovimientos1.cxGrid.ActiveLevel.Tag) then if FController.CerrarCajaBanco(frViewExtractoMovimientos1.cxGrid.ActiveLevel.Tag) then
actRefrescar.Execute; actRefrescar.Execute;
end;
procedure TfEditorExtractoMovimientos.actCerrarCajaUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled := (actNuevo as TAction).Enabled;
end; end;
procedure TfEditorExtractoMovimientos.actEliminarUpdate(Sender: TObject); procedure TfEditorExtractoMovimientos.actEliminarUpdate(Sender: TObject);
begin begin
inherited; inherited;
//No se podrá eliminar un asiento si es automático por factura, si el ejercicio esta cerrado o el asiento esta punteado
if (Sender as TAction).Enabled then if (Sender as TAction).Enabled then
if Assigned(Diario) then if Assigned(Diario) then
(Sender as TAction).Enabled := Diario.ID_FACTURAIsNull (Sender as TAction).Enabled := Diario.ID_FACTURAIsNull and Diario.ID_PAGOIsNull
and Diario.ID_PAGOIsNull and (Diario.ESTADO = CTE_ABIERTO)
and (Diario.ESTADO = CTE_ABIERTO); and (Diario.PUNTEADO = CTE_NO_PUNTEADO);
end; end;
procedure TfEditorExtractoMovimientos.actModificarUpdate(Sender: TObject); procedure TfEditorExtractoMovimientos.actModificarUpdate(Sender: TObject);
begin begin
inherited; inherited;
//No se podrá modificar un asiento si es automático por factura, si el ejercicio esta cerrado o el asiento esta punteado
if (Sender as TAction).Enabled then if (Sender as TAction).Enabled then
if Assigned(Diario) then if Assigned(Diario) then
(Sender as TAction).Enabled := Diario.ID_FACTURAIsNull (Sender as TAction).Enabled := Diario.ID_FACTURAIsNull and Diario.ID_PAGOIsNull
and Diario.ID_PAGOIsNull and (Diario.ESTADO = CTE_ABIERTO)
and (Diario.ESTADO = CTE_ABIERTO); and (Diario.PUNTEADO = CTE_NO_PUNTEADO);
end; end;
procedure TfEditorExtractoMovimientos.actNuevoUpdate(Sender: TObject); procedure TfEditorExtractoMovimientos.actNuevoUpdate(Sender: TObject);

2
Source/Modulos/Contabilidad/Views/uEditorSubCuenta.pas
View File

@ -105,7 +105,7 @@ begin
if SubCuenta.EsNuevo then if SubCuenta.EsNuevo then
FTitulo := 'Nueva subcuenta - ' + AppFactuGES.EjercicioActivo.NOMBRE FTitulo := 'Nueva subcuenta - ' + AppFactuGES.EjercicioActivo.NOMBRE
else else
FTitulo := 'Cuenta' + ' - ' + SubCuenta.DESCRIPCION + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE; FTitulo := 'Cuenta' + ' - ' + SubCuenta.DESCRIPCION + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE + ' (' + AppFactuGES.EjercicioActivo.ESTADO + ')';
end; end;
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);

2
Source/Modulos/Contabilidad/Views/uEditorSubCuentas.dfm
View File

@ -2,6 +2,8 @@ inherited fEditorSubCuentas: TfEditorSubCuentas
Left = 489 Left = 489
Top = 325 Top = 325
Caption = 'Lista de epigrafes' Caption = 'Lista de epigrafes'
ExplicitWidth = 320
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader

2
Source/Modulos/Contabilidad/Views/uEditorSubCuentas.pas
View File

@ -99,7 +99,7 @@ procedure TfEditorSubCuentas.PonerTitulos(const ATitulo: string);
var var
FTitulo : String; FTitulo : String;
begin begin
FTitulo := 'Lista de SubCuentas - ' + AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE; FTitulo := 'Lista de SubCuentas - ' + AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE + ' (' + AppFactuGES.EjercicioActivo.ESTADO + ')';
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);
end; end;

138
Source/Modulos/Contabilidad/Views/uViewDiario.dfm
View File

@ -19,6 +19,21 @@ inherited frViewDiario: TfrViewDiario
Column = cxGridViewCONCEPTO Column = cxGridViewCONCEPTO
end> end>
OptionsBehavior.PullFocusing = True OptionsBehavior.PullFocusing = True
object cxGridViewPUNTEADO: TcxGridDBColumn
DataBinding.FieldName = 'PUNTEADO'
PropertiesClassName = 'TcxImageComboBoxProperties'
Properties.Images = GridPNGImageList
Properties.Items = <
item
Value = -1
end
item
Description = 'Punteado'
ImageIndex = 1
Value = 1
end>
IsCaptionAssigned = True
end
object cxGridViewID_ASIENTO: TcxGridDBColumn object cxGridViewID_ASIENTO: TcxGridDBColumn
DataBinding.FieldName = 'ID_ASIENTO' DataBinding.FieldName = 'ID_ASIENTO'
Visible = False Visible = False
@ -128,12 +143,135 @@ inherited frViewDiario: TfrViewDiario
end end
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel
ExplicitWidth = 554
end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 38673.842406053240000000 ReportDocument.CreationDate = 38673.842406053240000000
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited GridPNGImageList: TPngImageList
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000B1300000B1301009A9C1800000A4F694343505068
6F746F73686F70204943432070726F66696C65000078DA9D53675453E9163DF7
DEF4424B8880944B6F5215082052428B801491262A2109104A8821A1D91551C1
114545041BC8A088038E8E808C15512C0C8A0AD807E421A28E83A3888ACAFBE1
7BA36BD6BCF7E6CDFEB5D73EE7ACF39DB3CF07C0080C9648335135800CA9421E
11E083C7C4C6E1E42E40810A2470001008B3642173FD230100F87E3C3C2B22C0
07BE000178D30B0800C04D9BC0301C87FF0FEA42995C01808401C07491384B08
801400407A8E42A600404601809D98265300A0040060CB6362E300502D006027
7FE6D300809DF8997B01005B94211501A09100201365884400683B00ACCF568A
450058300014664BC43900D82D00304957664800B0B700C0CE100BB200080C00
305188852900047B0060C8232378008499001446F2573CF12BAE10E72A000078
99B23CB9243945815B082D710757572E1E28CE49172B14366102619A402EC279
99193281340FE0F3CC0000A0911511E083F3FD78CE0EAECECE368EB60E5F2DEA
BF06FF226262E3FEE5CFAB70400000E1747ED1FE2C2FB31A803B06806DFEA225
EE04685E0BA075F78B66B20F40B500A0E9DA57F370F87E3C3C45A190B9D9D9E5
E4E4D84AC4425B61CA577DFE67C25FC057FD6CF97E3CFCF7F5E0BEE22481325D
814704F8E0C2CCF44CA51CCF92098462DCE68F47FCB70BFFFC1DD322C44962B9
582A14E35112718E449A8CF332A52289429229C525D2FF64E2DF2CFB033EDF35
00B06A3E017B912DA85D6303F64B27105874C0E2F70000F2BB6FC1D428080380
6883E1CF77FFEF3FFD47A02500806649927100005E44242E54CAB33FC7080000
44A0812AB0411BF4C1182CC0061CC105DCC10BFC6036844224C4C24210420A64
801C726029AC82422886CDB01D2A602FD4401D34C051688693700E2EC255B80E
3D700FFA61089EC128BC81090441C808136121DA8801628A58238E08179985F8
21C14804128B2420C9881451224B91354831528A542055481DF23D720239875C
46BA913BC8003282FC86BC47319481B2513DD40CB543B9A8371A8446A20BD064
74319A8F16A09BD072B41A3D8C36A1E7D0AB680FDA8F3E43C730C0E8180733C4
6C302EC6C342B1382C099363CBB122AC0CABC61AB056AC03BB89F563CFB17704
128145C0093604774220611E4148584C584ED848A8201C243411DA0937090384
51C2272293A84BB426BA11F9C4186232318758482C23D6128F132F107B8843C4
37241289433227B9900249B1A454D212D246D26E5223E92CA99B34481A2393C9
DA646BB20739942C202BC885E49DE4C3E433E41BE421F25B0A9D624071A4F853
E22852CA6A4A19E510E534E5066598324155A39A52DDA8A15411358F5A42ADA1
B652AF5187A81334759A39CD8316494BA5ADA295D31A681768F769AFE874BA11
DD951E4E97D057D2CBE947E897E803F4770C0D861583C7886728199B18071867
197718AF984CA619D38B19C754303731EB98E7990F996F55582AB62A7C1591CA
0A954A9526951B2A2F54A9AAA6AADEAA0B55F355CB548FA95E537DAE46553353
E3A909D496AB55AA9D50EB531B5367A93BA887AA67A86F543FA47E59FD890659
C34CC34F43A451A0B15FE3BCC6200B6319B3782C216B0DAB86758135C426B1CD
D97C762ABB98FD1DBB8B3DAAA9A13943334A3357B352F394663F07E39871F89C
744E09E728A797F37E8ADE14EF29E2291BA6344CB931655C6BAA96979658AB48
AB51AB47EBBD36AEEDA79DA6BD45BB59FB810E41C74A275C2747678FCE059DE7
53D953DDA70AA7164D3D3AF5AE2EAA6BA51BA1BB4477BF6EA7EE989EBE5E809E
4C6FA7DE79BDE7FA1C7D2FFD54FD6DFAA7F5470C5806B30C2406DB0CCE183CC5
35716F3C1D2FC7DBF151435DC34043A561956197E18491B9D13CA3D5468D460F
8C69C65CE324E36DC66DC6A326062621264B4DEA4DEE9A524DB9A629A63B4C3B
4CC7CDCCCDA2CDD699359B3D31D732E79BE79BD79BDFB7605A785A2CB6A8B6B8
6549B2E45AA659EEB6BC6E855A3959A558555A5DB346AD9DAD25D6BBADBBA711
A7B94E934EAB9ED667C3B0F1B6C9B6A9B719B0E5D806DBAEB66DB67D61676217
67B7C5AEC3EE93BD937DBA7D8DFD3D070D87D90EAB1D5A1D7E73B472143A563A
DE9ACE9CEE3F7DC5F496E92F6758CF10CFD833E3B613CB29C4699D539BD34767
1767B97383F3888B894B82CB2E973E2E9B1BC6DDC8BDE44A74F5715DE17AD2F5
9D9BB39BC2EDA8DBAFEE36EE69EE87DC9FCC349F299E593373D0C3C843E051E5
D13F0B9F95306BDFAC7E4F434F8167B5E7232F632F9157ADD7B0B7A577AAF761
EF173EF63E729FE33EE33C37DE32DE595FCC37C0B7C8B7CB4FC36F9E5F85DF43
7F23FF64FF7AFFD100A78025016703898141815B02FBF87A7C21BF8E3F3ADB65
F6B2D9ED418CA0B94115418F82AD82E5C1AD2168C8EC90AD21F7E798CE91CE69
0E85507EE8D6D00761E6618BC37E0C2785878557863F8E7088581AD131973577
D1DC4373DF44FA449644DE9B67314F39AF2D4A352A3EAA2E6A3CDA37BA34BA3F
C62E6659CCD5589D58496C4B1C392E2AAE366E6CBEDFFCEDF387E29DE20BE37B
17982FC85D7079A1CEC2F485A716A92E122C3A96404C884E3894F041102AA816
8C25F21377258E0A79C21DC267222FD136D188D8435C2A1E4EF2482A4D7A92EC
91BC357924C533A52CE5B98427A990BC4C0D4CDD9B3A9E169A76206D323D3ABD
31839291907142AA214D93B667EA67E66676CBAC6585B2FEC56E8BB72F1E9507
C96BB390AC05592D0AB642A6E8545A28D72A07B267655766BFCD89CA3996AB9E
2BCDEDCCB3CADB90379CEF9FFFED12C212E192B6A5864B572D1D58E6BDAC6A39
B23C7179DB0AE315052B865606AC3CB88AB62A6DD54FABED5797AE7EBD267A4D
6B815EC1CA82C1B5016BEB0B550AE5857DEBDCD7ED5D4F582F59DFB561FA869D
1B3E15898AAE14DB1797157FD828DC78E51B876FCABF99DC94B4A9ABC4B964CF
66D266E9E6DE2D9E5B0E96AA97E6970E6E0DD9DAB40DDF56B4EDF5F645DB2F97
CD28DBBB83B643B9A3BF3CB8BC65A7C9CECD3B3F54A454F454FA5436EED2DDB5
61D7F86ED1EE1B7BBCF634ECD5DB5BBCF7FD3EC9BEDB5501554DD566D565FB49
FBB3F73FAE89AAE9F896FB6D5DAD4E6D71EDC703D203FD07230EB6D7B9D4D51D
D23D54528FD62BEB470EC71FBEFE9DEF772D0D360D558D9CC6E223704479E4E9
F709DFF71E0D3ADA768C7BACE107D31F761D671D2F6A429AF29A469B539AFB5B
625BBA4FCC3ED1D6EADE7AFC47DB1F0F9C343C59794AF354C969DAE982D39367
F2CF8C9D959D7D7E2EF9DC60DBA2B67BE763CEDF6A0F6FEFBA1074E1D245FF8B
E73BBC3BCE5CF2B874F2B2DBE51357B8579AAF3A5F6DEA74EA3CFE93D34FC7BB
9CBB9AAEB95C6BB9EE7ABDB57B66F7E91B9E37CEDDF4BD79F116FFD6D59E393D
DDBDF37A6FF7C5F7F5DF16DD7E7227FDCECBBBD97727EEADBC4FBC5FF440ED41
D943DD87D53F5BFEDCD8EFDC7F6AC077A0F3D1DC47F7068583CFFE91F58F0F43
058F998FCB860D86EB9E383E3939E23F72FDE9FCA743CF64CF269E17FEA2FECB
AE17162F7EF8D5EBD7CED198D1A197F29793BF6D7CA5FDEAC0EB19AFDBC6C2C6
1EBEC97833315EF456FBEDC177DC771DEFA3DF0F4FE47C207F28FF68F9B1F553
D0A7FB93199393FF040398F3FC63332DDB000000434944415478DA63FCFFFF3F
03258011D900464646ACA601D530126D00BA6298A1B80C21CA0090183639925C
80CB3B040DC0E69A510306BD010C04005E03C801036F00008D248BE16F9028BA
0000000049454E44AE426082}
Name = 'Icono_header'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000AEB00000AEB01828B0D5A000001DA4944415478DA
63FCFFFF3F032580912C5DF2F33964B539E3DF7DF8F1956403380CE7C85B5929
CFFAF99ED7FCFCED9BE124192060B7D8D6CE5279E99B876C42674FFC0CFEF9C0
7A27D10628FBAF0FB030915F74E7EA6FE6F387FF87FD7A6AB195E83090F55915
EEE7A23BE7FCD9CFAC170EFF4EFDF6C07A31D18128E1BE3CC8DB597BE1A3BBBF
B98EECFA91FBFDBEF574A0F07FA20C10B09B67EBE366B8E3CDF37F9C47F77CED
FC7CD3AE125D0DC400B3897C9CCCBCEADFD9182F331C4CFC010E6DCB39F29E0E
3A07599939E477AE7FBFFBE3CF4BBE0C77F27F621820EAB848DFDC447931372B
9FE68E5DF7577F3C73368E414588D9C6496BB3AA92B8CBDECD9FDEBC7CF9D3F2
E71DE7BBD85CC928EAB438C4C7556F3A0B1B8BC8B1BD9FFFDE7B753F4C41994B
C3CA48B1E5F09ECFFFEF3F7D19F3FB5AD0725CDE047B41276243A09D85FAAAA7
CFBFB11CDEFBEA8EA79F98E4C3FBBFB8CF9F7BBDE5EB453F3FE440C31E060CF5
4C4ED9F63B6565845D5EBEFEF29F11287AE9C4AF2FAFBF3D32FF753EFE3ABE80
86C7028FF5429B101F83FDCF5F7F66797697E1FFCDDB6FA7FFBAE69F4D289A91
A2B19EC539C7E1C49BC7EC46F71EBDD9FFF9DFD338868B994F4930808181D76E
413EF33F56D90F0F5ED4323C29FE4E4833080000904EC47A3EA3126900000000
49454E44AE426082}
Name = 'PngImage1'
Background = clWindow
end>
Bitmap = {}
end
object PngImageList: TPngImageList object PngImageList: TPngImageList
PngImages = < PngImages = <
item item

BIN
Source/Modulos/Contabilidad/Views/uViewDiario.pas
View File

Binary file not shown.

150
Source/Modulos/Contabilidad/Views/uViewExtractoMovimientos.dfm
View File

@ -20,6 +20,21 @@ inherited frViewExtractoMovimientos: TfrViewExtractoMovimientos
OptionsBehavior.PullFocusing = True OptionsBehavior.PullFocusing = True
OptionsCustomize.ColumnMoving = False OptionsCustomize.ColumnMoving = False
OptionsCustomize.ColumnSorting = False OptionsCustomize.ColumnSorting = False
object cxGridViewPUNTEADO: TcxGridDBColumn
DataBinding.FieldName = 'PUNTEADO'
PropertiesClassName = 'TcxImageComboBoxProperties'
Properties.Images = GridPNGImageList
Properties.Items = <
item
Value = -1
end
item
Description = 'Punteado'
ImageIndex = 1
Value = 1
end>
IsCaptionAssigned = True
end
object cxGridViewID_ASIENTO: TcxGridDBColumn object cxGridViewID_ASIENTO: TcxGridDBColumn
DataBinding.FieldName = 'ID_ASIENTO' DataBinding.FieldName = 'ID_ASIENTO'
Visible = False Visible = False
@ -112,15 +127,27 @@ inherited frViewExtractoMovimientos: TfrViewExtractoMovimientos
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273 ExplicitWidth = 273
Width = 273 Width = 273
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 242 ExplicitWidth = 242
Width = 242 Width = 242
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 346 Left = 346
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 346 ExplicitLeft = 346
ExplicitWidth = 198 ExplicitWidth = 198
Width = 198 Width = 198
@ -128,12 +155,135 @@ inherited frViewExtractoMovimientos: TfrViewExtractoMovimientos
end end
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel
ExplicitWidth = 554
end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 38673.842406053240000000 ReportDocument.CreationDate = 38673.842406053240000000
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited GridPNGImageList: TPngImageList
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000B1300000B1301009A9C1800000A4F694343505068
6F746F73686F70204943432070726F66696C65000078DA9D53675453E9163DF7
DEF4424B8880944B6F5215082052428B801491262A2109104A8821A1D91551C1
114545041BC8A088038E8E808C15512C0C8A0AD807E421A28E83A3888ACAFBE1
7BA36BD6BCF7E6CDFEB5D73EE7ACF39DB3CF07C0080C9648335135800CA9421E
11E083C7C4C6E1E42E40810A2470001008B3642173FD230100F87E3C3C2B22C0
07BE000178D30B0800C04D9BC0301C87FF0FEA42995C01808401C07491384B08
801400407A8E42A600404601809D98265300A0040060CB6362E300502D006027
7FE6D300809DF8997B01005B94211501A09100201365884400683B00ACCF568A
450058300014664BC43900D82D00304957664800B0B700C0CE100BB200080C00
305188852900047B0060C8232378008499001446F2573CF12BAE10E72A000078
99B23CB9243945815B082D710757572E1E28CE49172B14366102619A402EC279
99193281340FE0F3CC0000A0911511E083F3FD78CE0EAECECE368EB60E5F2DEA
BF06FF226262E3FEE5CFAB70400000E1747ED1FE2C2FB31A803B06806DFEA225
EE04685E0BA075F78B66B20F40B500A0E9DA57F370F87E3C3C45A190B9D9D9E5
E4E4D84AC4425B61CA577DFE67C25FC057FD6CF97E3CFCF7F5E0BEE22481325D
814704F8E0C2CCF44CA51CCF92098462DCE68F47FCB70BFFFC1DD322C44962B9
582A14E35112718E449A8CF332A52289429229C525D2FF64E2DF2CFB033EDF35
00B06A3E017B912DA85D6303F64B27105874C0E2F70000F2BB6FC1D428080380
6883E1CF77FFEF3FFD47A02500806649927100005E44242E54CAB33FC7080000
44A0812AB0411BF4C1182CC0061CC105DCC10BFC6036844224C4C24210420A64
801C726029AC82422886CDB01D2A602FD4401D34C051688693700E2EC255B80E
3D700FFA61089EC128BC81090441C808136121DA8801628A58238E08179985F8
21C14804128B2420C9881451224B91354831528A542055481DF23D720239875C
46BA913BC8003282FC86BC47319481B2513DD40CB543B9A8371A8446A20BD064
74319A8F16A09BD072B41A3D8C36A1E7D0AB680FDA8F3E43C730C0E8180733C4
6C302EC6C342B1382C099363CBB122AC0CABC61AB056AC03BB89F563CFB17704
128145C0093604774220611E4148584C584ED848A8201C243411DA0937090384
51C2272293A84BB426BA11F9C4186232318758482C23D6128F132F107B8843C4
37241289433227B9900249B1A454D212D246D26E5223E92CA99B34481A2393C9
DA646BB20739942C202BC885E49DE4C3E433E41BE421F25B0A9D624071A4F853
E22852CA6A4A19E510E534E5066598324155A39A52DDA8A15411358F5A42ADA1
B652AF5187A81334759A39CD8316494BA5ADA295D31A681768F769AFE874BA11
DD951E4E97D057D2CBE947E897E803F4770C0D861583C7886728199B18071867
197718AF984CA619D38B19C754303731EB98E7990F996F55582AB62A7C1591CA
0A954A9526951B2A2F54A9AAA6AADEAA0B55F355CB548FA95E537DAE46553353
E3A909D496AB55AA9D50EB531B5367A93BA887AA67A86F543FA47E59FD890659
C34CC34F43A451A0B15FE3BCC6200B6319B3782C216B0DAB86758135C426B1CD
D97C762ABB98FD1DBB8B3DAAA9A13943334A3357B352F394663F07E39871F89C
744E09E728A797F37E8ADE14EF29E2291BA6344CB931655C6BAA96979658AB48
AB51AB47EBBD36AEEDA79DA6BD45BB59FB810E41C74A275C2747678FCE059DE7
53D953DDA70AA7164D3D3AF5AE2EAA6BA51BA1BB4477BF6EA7EE989EBE5E809E
4C6FA7DE79BDE7FA1C7D2FFD54FD6DFAA7F5470C5806B30C2406DB0CCE183CC5
35716F3C1D2FC7DBF151435DC34043A561956197E18491B9D13CA3D5468D460F
8C69C65CE324E36DC66DC6A326062621264B4DEA4DEE9A524DB9A629A63B4C3B
4CC7CDCCCDA2CDD699359B3D31D732E79BE79BD79BDFB7605A785A2CB6A8B6B8
6549B2E45AA659EEB6BC6E855A3959A558555A5DB346AD9DAD25D6BBADBBA711
A7B94E934EAB9ED667C3B0F1B6C9B6A9B719B0E5D806DBAEB66DB67D61676217
67B7C5AEC3EE93BD937DBA7D8DFD3D070D87D90EAB1D5A1D7E73B472143A563A
DE9ACE9CEE3F7DC5F496E92F6758CF10CFD833E3B613CB29C4699D539BD34767
1767B97383F3888B894B82CB2E973E2E9B1BC6DDC8BDE44A74F5715DE17AD2F5
9D9BB39BC2EDA8DBAFEE36EE69EE87DC9FCC349F299E593373D0C3C843E051E5
D13F0B9F95306BDFAC7E4F434F8167B5E7232F632F9157ADD7B0B7A577AAF761
EF173EF63E729FE33EE33C37DE32DE595FCC37C0B7C8B7CB4FC36F9E5F85DF43
7F23FF64FF7AFFD100A78025016703898141815B02FBF87A7C21BF8E3F3ADB65
F6B2D9ED418CA0B94115418F82AD82E5C1AD2168C8EC90AD21F7E798CE91CE69
0E85507EE8D6D00761E6618BC37E0C2785878557863F8E7088581AD131973577
D1DC4373DF44FA449644DE9B67314F39AF2D4A352A3EAA2E6A3CDA37BA34BA3F
C62E6659CCD5589D58496C4B1C392E2AAE366E6CBEDFFCEDF387E29DE20BE37B
17982FC85D7079A1CEC2F485A716A92E122C3A96404C884E3894F041102AA816
8C25F21377258E0A79C21DC267222FD136D188D8435C2A1E4EF2482A4D7A92EC
91BC357924C533A52CE5B98427A990BC4C0D4CDD9B3A9E169A76206D323D3ABD
31839291907142AA214D93B667EA67E66676CBAC6585B2FEC56E8BB72F1E9507
C96BB390AC05592D0AB642A6E8545A28D72A07B267655766BFCD89CA3996AB9E
2BCDEDCCB3CADB90379CEF9FFFED12C212E192B6A5864B572D1D58E6BDAC6A39
B23C7179DB0AE315052B865606AC3CB88AB62A6DD54FABED5797AE7EBD267A4D
6B815EC1CA82C1B5016BEB0B550AE5857DEBDCD7ED5D4F582F59DFB561FA869D
1B3E15898AAE14DB1797157FD828DC78E51B876FCABF99DC94B4A9ABC4B964CF
66D266E9E6DE2D9E5B0E96AA97E6970E6E0DD9DAB40DDF56B4EDF5F645DB2F97
CD28DBBB83B643B9A3BF3CB8BC65A7C9CECD3B3F54A454F454FA5436EED2DDB5
61D7F86ED1EE1B7BBCF634ECD5DB5BBCF7FD3EC9BEDB5501554DD566D565FB49
FBB3F73FAE89AAE9F896FB6D5DAD4E6D71EDC703D203FD07230EB6D7B9D4D51D
D23D54528FD62BEB470EC71FBEFE9DEF772D0D360D558D9CC6E223704479E4E9
F709DFF71E0D3ADA768C7BACE107D31F761D671D2F6A429AF29A469B539AFB5B
625BBA4FCC3ED1D6EADE7AFC47DB1F0F9C343C59794AF354C969DAE982D39367
F2CF8C9D959D7D7E2EF9DC60DBA2B67BE763CEDF6A0F6FEFBA1074E1D245FF8B
E73BBC3BCE5CF2B874F2B2DBE51357B8579AAF3A5F6DEA74EA3CFE93D34FC7BB
9CBB9AAEB95C6BB9EE7ABDB57B66F7E91B9E37CEDDF4BD79F116FFD6D59E393D
DDBDF37A6FF7C5F7F5DF16DD7E7227FDCECBBBD97727EEADBC4FBC5FF440ED41
D943DD87D53F5BFEDCD8EFDC7F6AC077A0F3D1DC47F7068583CFFE91F58F0F43
058F998FCB860D86EB9E383E3939E23F72FDE9FCA743CF64CF269E17FEA2FECB
AE17162F7EF8D5EBD7CED198D1A197F29793BF6D7CA5FDEAC0EB19AFDBC6C2C6
1EBEC97833315EF456FBEDC177DC771DEFA3DF0F4FE47C207F28FF68F9B1F553
D0A7FB93199393FF040398F3FC63332DDB000000434944415478DA63FCFFFF3F
03258011D900464646ACA601D530126D00BA6298A1B80C21CA0090183639925C
80CB3B040DC0E69A510306BD010C04005E03C801036F00008D248BE16F9028BA
0000000049454E44AE426082}
Name = 'Icono_header'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000AEB00000AEB01828B0D5A000001DA4944415478DA
63FCFFFF3F032580912C5DF2F33964B539E3DF7DF8F1956403380CE7C85B5929
CFFAF99ED7FCFCED9BE124192060B7D8D6CE5279E99B876C42674FFC0CFEF9C0
7A27D10628FBAF0FB030915F74E7EA6FE6F387FF87FD7A6AB195E83090F55915
EEE7A23BE7FCD9CFAC170EFF4EFDF6C07A31D18128E1BE3CC8DB597BE1A3BBBF
B98EECFA91FBFDBEF574A0F07FA20C10B09B67EBE366B8E3CDF37F9C47F77CED
FC7CD3AE125D0DC400B3897C9CCCBCEADFD9182F331C4CFC010E6DCB39F29E0E
3A07599939E477AE7FBFFBE3CF4BBE0C77F27F621820EAB848DFDC447931372B
9FE68E5DF7577F3C73368E414588D9C6496BB3AA92B8CBDECD9FDEBC7CF9D3F2
E71DE7BBD85CC928EAB438C4C7556F3A0B1B8BC8B1BD9FFFDE7B753F4C41994B
C3CA48B1E5F09ECFFFEF3F7D19F3FB5AD0725CDE047B41276243A09D85FAAAA7
CFBFB11CDEFBEA8EA79F98E4C3FBBFB8CF9F7BBDE5EB453F3FE440C31E060CF5
4C4ED9F63B6565845D5EBEFEF29F11287AE9C4AF2FAFBF3D32FF753EFE3ABE80
86C7028FF5429B101F83FDCF5F7F66797697E1FFCDDB6FA7FFBAE69F4D289A91
A2B19EC539C7E1C49BC7EC46F71EBDD9FFF9DFD338868B994F4930808181D76E
413EF33F56D90F0F5ED4323C29FE4E4833080000904EC47A3EA3126900000000
49454E44AE426082}
Name = 'PngImage1'
Background = clWindow
end>
Bitmap = {}
end
inherited cxStyleRepository1: TcxStyleRepository inherited cxStyleRepository1: TcxStyleRepository
object cxStyleCierre: TcxStyle object cxStyleCierre: TcxStyle
AssignedValues = [svColor, svFont, svTextColor] AssignedValues = [svColor, svFont, svTextColor]

11
Source/Modulos/Contabilidad/Views/uViewExtractoMovimientos.pas
View File

@ -50,8 +50,7 @@ type
cxGridViewSaldo: TcxGridDBColumn; cxGridViewSaldo: TcxGridDBColumn;
cxGridViewTIPO: TcxGridDBColumn; cxGridViewTIPO: TcxGridDBColumn;
cxStyleCierre: TcxStyle; cxStyleCierre: TcxStyle;
procedure cxGridViewID_AsientoCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; cxGridViewPUNTEADO: TcxGridDBColumn;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel); procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
procedure CustomViewShow(Sender: TObject); procedure CustomViewShow(Sender: TObject);
@ -59,6 +58,9 @@ type
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle); out AStyle: TcxStyle);
procedure cxGridViewICONOCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
private private
FOnExtractoChange: TNotifyEvent; FOnExtractoChange: TNotifyEvent;
@ -258,16 +260,17 @@ begin
Screen.Cursor := ACursor; Screen.Cursor := ACursor;
end; end;
procedure TfrViewExtractoMovimientos.cxGridViewID_ASIENTOCustomDrawCell( procedure TfrViewExtractoMovimientos.cxGridViewICONOCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var var
R : TRect; R : TRect;
begin begin
inherited; inherited;
R := AViewInfo.ContentBounds; R := AViewInfo.ContentBounds;
ACanvas.FillRect(R); ACanvas.FillRect(R);
ACanvas.DrawImage(PngImageList, R.Left, R.Top, 0); ACanvas.DrawImage(GridPNGImageList, R.Left, R.Top, 0);
ADone := True; ADone := True;
end; end;

125
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -4,7 +4,7 @@ interface
uses uses
Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleFacturasCliente, Classes, SysUtils, Variants, uDADataTable, uControllerBase, uIDataModuleFacturasCliente,
uClientesController, uDetallesFacturaClienteController, uBizAlbaranesCliente, uClientesController, uDetallesFacturaClienteController, uBizAlbaranesCliente,
uBizFacturasCliente, uBizDireccionesContacto; uBizFacturasCliente, uBizDireccionesContacto;
@ -28,10 +28,9 @@ type
function Anadir(AFactura : IBizFacturaCliente) : Boolean; overload; function Anadir(AFactura : IBizFacturaCliente) : Boolean; overload;
function AnadirAbono(AFactura : IBizFacturaCliente) : Boolean; function AnadirAbono(AFactura : IBizFacturaCliente) : Boolean;
function Anadir(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente): Boolean; overload; function Anadir(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente): Boolean; overload;
// function Anadir(AFactura : IBizFacturaCliente; const IDPedido : Integer): Boolean; overload;
function Eliminar(const ID : Integer): Boolean; overload; function Eliminar(const ID : Integer): Boolean; overload;
function Eliminar(AFactura : IBizFacturaCliente; AllItems: Boolean = false): Boolean; overload; function Eliminar(AFactura : IBizFacturaCliente; AllItems: Boolean = false; AListaCausas: TStringList = nil): Boolean; overload;
function Guardar(AFactura : IBizFacturaCliente): Boolean; function Guardar(AFactura : IBizFacturaCliente): Boolean;
procedure DescartarCambios(AFactura : IBizFacturaCliente); procedure DescartarCambios(AFactura : IBizFacturaCliente);
function Existe(const ID: Integer) : Boolean; function Existe(const ID: Integer) : Boolean;
@ -43,8 +42,6 @@ type
procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false); procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false);
procedure RecalcularImportes(AFactura: IBizFacturaCliente); procedure RecalcularImportes(AFactura: IBizFacturaCliente);
function EsModificable(AFactura: IBizFacturaCliente): Boolean;
function EsEliminable(AFactura: IBizFacturaCliente): Boolean;
function ElegirFacturas(AFacturas : IBizFacturaCliente; AMensaje: String; AMultiSelect: Boolean): IBizFacturaCliente; function ElegirFacturas(AFacturas : IBizFacturaCliente; AMensaje: String; AMultiSelect: Boolean): IBizFacturaCliente;
function ExtraerSeleccionados(ARecibosCliente: IBizFacturaCliente) : IBizFacturaCliente; function ExtraerSeleccionados(ARecibosCliente: IBizFacturaCliente) : IBizFacturaCliente;
@ -75,6 +72,7 @@ type
protected protected
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override; procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
public public
property ClienteController: IClientesController read GetClienteController write SetClienteController; property ClienteController: IClientesController read GetClienteController write SetClienteController;
property DetallesController: IDetallesFacturaClienteController read GetDetallesController write SetDetallesController; property DetallesController: IDetallesFacturaClienteController read GetDetallesController write SetDetallesController;
@ -83,7 +81,7 @@ type
destructor Destroy; override; destructor Destroy; override;
function Eliminar(const ID : Integer): Boolean; overload; function Eliminar(const ID : Integer): Boolean; overload;
function Eliminar(AFactura : IBizFacturaCliente; AllItems: Boolean = false): Boolean; overload; function Eliminar(AFactura : IBizFacturaCliente; AllItems: Boolean = false; AListaCausas: TStringList = nil): Boolean; overload;
function Guardar(AFactura : IBizFacturaCliente): Boolean; function Guardar(AFactura : IBizFacturaCliente): Boolean;
procedure DescartarCambios(AFactura : IBizFacturaCliente); virtual; procedure DescartarCambios(AFactura : IBizFacturaCliente); virtual;
function Existe(const ID: Integer) : Boolean; virtual; function Existe(const ID: Integer) : Boolean; virtual;
@ -104,8 +102,8 @@ type
procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false); procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false);
procedure RecalcularImportes(AFactura: IBizFacturaCliente); procedure RecalcularImportes(AFactura: IBizFacturaCliente);
function EsModificable(AFactura: IBizFacturaCliente): Boolean; function EsModificable(AFactura: IBizFacturaCliente; var AComentario: Variant): Boolean;
function EsEliminable(AFactura: IBizFacturaCliente): Boolean; function EsEliminable(AFactura: IBizFacturaCliente; var AComentario: Variant): Boolean;
function ElegirFacturas(AFacturas : IBizFacturaCliente; AMensaje: String; AMultiSelect: Boolean): IBizFacturaCliente; function ElegirFacturas(AFacturas : IBizFacturaCliente; AMensaje: String; AMultiSelect: Boolean): IBizFacturaCliente;
function ExtraerSeleccionados(AFacturasCliente: IBizFacturaCliente) : IBizFacturaCliente; function ExtraerSeleccionados(AFacturasCliente: IBizFacturaCliente) : IBizFacturaCliente;
@ -121,12 +119,10 @@ uses
Windows, uDateUtils, uNumUtils, Controls, cxControls, DB, uEditorRegistryUtils, schFacturasClienteClient_Intf, Windows, uDateUtils, uNumUtils, Controls, cxControls, DB, uEditorRegistryUtils, schFacturasClienteClient_Intf,
uBizContactos, uIEditorFacturasCliente, uIEditorFacturaCliente, uFactuGES_App, uBizContactos, uIEditorFacturasCliente, uIEditorFacturaCliente, uFactuGES_App,
uDataModuleFacturasCliente, uBizDetallesFacturaCliente, uControllerDetallesBase, uDataModuleFacturasCliente, uBizDetallesFacturaCliente, uControllerDetallesBase,
uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uAlbaranesClienteController,
uAlbaranesClienteController, schAlbaranesClienteClient_Intf, uROTypes, uDetallesAlbaranClienteController, schAlbaranesClienteClient_Intf, uROTypes, uDetallesAlbaranClienteController,
uBizDetallesAlbaranCliente, uFacturasClienteReportController, uBizDetallesAlbaranCliente, uFacturasClienteReportController, DateUtils, Forms,
DateUtils, Forms, Dialogs, Variants, uIntegerListUtils, Dialogs, uIntegerListUtils, uFormasPagoController, uBizFormasPago, uIEditorElegirFacturasCliente,
uFormasPagoController, uBizFormasPago, uIEditorElegirFacturasCliente,
uBizEjercicios, uRecibosClienteController, uBizRecibosCliente; uBizEjercicios, uRecibosClienteController, uBizRecibosCliente;
@ -564,12 +560,13 @@ begin
//CONTABILIDAD //CONTABILIDAD
ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID; ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID;
ESTADO := AppFactuGES.EjercicioActivo.ESTADO; ESTADO_EJERCICIO := AppFactuGES.EjercicioActivo.ESTADO;
ASIENTO_PUNTEADO := -1;
//En el caso de que el ejercicio este cerrado dejamos duplicar factura sin asociar a contabilidad. //En el caso de que el ejercicio este cerrado dejamos duplicar factura sin asociar a contabilidad.
if ESTADO = CTE_CERRADO then if ESTADO_EJERCICIO = CTE_CERRADO then
begin begin
IGNORAR_CONTABILIDAD := 1; IGNORAR_CONTABILIDAD := 1;
ESTADO := ''; ESTADO_EJERCICIO := '';
end; end;
end; end;
@ -670,6 +667,7 @@ end;
procedure TFacturasClienteController.Ver(AFactura: IBizFacturaCliente); procedure TFacturasClienteController.Ver(AFactura: IBizFacturaCliente);
var var
AEditor : IEditorFacturaCliente; AEditor : IEditorFacturaCliente;
AComentario : Variant;
begin begin
AEditor := NIL; AEditor := NIL;
@ -682,10 +680,11 @@ begin
AEditor.Factura := AFactura; AEditor.Factura := AFactura;
//MODO CONSULTAR //MODO CONSULTAR
if not EsModificable(AFactura) then if not EsModificable(AFactura, AComentario) then
begin begin
SetDataTableReadOnly(AFactura.DataTable, True); SetDataTableReadOnly(AFactura.DataTable, True);
AEditor.ReadOnly := True; AEditor.ReadOnly := True;
AEditor.Comentario := AComentario;
end; end;
AEditor.ShowModal; AEditor.ShowModal;
@ -756,13 +755,14 @@ begin
end; end;
end; end;
function TFacturasClienteController.Eliminar(AFactura: IBizFacturaCliente; AllItems: Boolean = false): Boolean; function TFacturasClienteController.Eliminar(AFactura: IBizFacturaCliente; AllItems: Boolean = false; AListaCausas: TStringList = nil): Boolean;
//En el caso de eliminar almenos un elemento del conjunto se devuelve true //Solo devolverá true en el caso de eliminar todos y cada uno de los elementos a eliminar
var var
bEliminado: Boolean; bEliminado: Boolean;
ACausa: Variant;
begin begin
bEliminado := False; bEliminado := True;
if not Assigned(AFactura) then if not Assigned(AFactura) then
raise Exception.Create ('Factura no asignada'); raise Exception.Create ('Factura no asignada');
@ -775,12 +775,15 @@ begin
if (AFactura.State in dsEditModes) then if (AFactura.State in dsEditModes) then
AFactura.Cancel; AFactura.Cancel;
//Siempre eliminaremos el seleccionado //Siempre eliminaremos el seleccionado tanto si es una lista de facturas a eliminar como si es la propia lista del editor.
if EsEliminable(AFactura) then if not EsEliminable(AFactura, ACausa) then
begin begin
if Assigned(AListaCausas) then
AListaCausas.Add(Format('%d=%s', [AFactura.ID, ACausa]));
bEliminado := False;
end
else
AFactura.Delete; AFactura.Delete;
bEliminado := True;
end;
//En el caso de querer eliminar todos los items del objeto AAlbaran //En el caso de querer eliminar todos los items del objeto AAlbaran
if AllItems then if AllItems then
@ -790,48 +793,76 @@ begin
First; First;
while not EOF do while not EOF do
begin begin
if EsEliminable(AFactura) then if not EsEliminable(AFactura, ACausa) then
begin begin
AFactura.Delete; if Assigned(AListaCausas) then
bEliminado := True AListaCausas.Add(Format('%d=%s', [AFactura.ID, ACausa]));
bEliminado := False;
Next;
end end
else Next; else
AFactura.Delete;
end; end;
end; end;
end; end;
if bEliminado then try
begin
try
AFactura.DataTable.ApplyUpdates; AFactura.DataTable.ApplyUpdates;
Result := True except
except //En el caso de una factura que tiene recibos con devoluciones hechas no se puede borrar aunque la factura este en situacion de pendiente
//En el caso de una factura que tiene recibos con devoluciones hechas no se puede borrar aunque la factura este en situacion de pendiente AFactura.DataTable.CancelUpdates;
AFactura.DataTable.CancelUpdates; Result := False;
Result := False; end;
end;
end
else
Result := False;
finally finally
HideHourglassCursor; HideHourglassCursor;
end; end;
end; end;
function TFacturasClienteController.EsEliminable(AFactura: IBizFacturaCliente): Boolean; function TFacturasClienteController.EsEliminable(AFactura: IBizFacturaCliente; var AComentario: Variant): Boolean;
begin begin
Result := EsModificable(AFactura); if not Assigned(AFactura) then
raise Exception.Create ('Factura no asignado: EsEliminable');
if (AFactura.SITUACION <> CTE_PENDIENTE) then
begin
Result := False;
AComentario := 'La factura esta parcial o totalmente pagada, por lo que no puede ser eliminada';
end
else if (AFactura.ESTADO_EJERCICIO = CTE_CERRADO) then
begin
Result := False;
AComentario := 'La factura tiene un asiento asociado en la parte contable cuyo ejercicio esta cerrado, por lo que no puede ser eliminada';
end
else if (AFactura.ASIENTO_PUNTEADO > 0) then
begin
Result := False;
AComentario := 'La factura tiene un asiento asociado en la parte contable y está punteado, por lo que no puede ser eliminada';
end;
end; end;
function TFacturasClienteController.EsModificable(AFactura: IBizFacturaCliente): Boolean; function TFacturasClienteController.EsModificable(AFactura: IBizFacturaCliente; var AComentario: Variant): Boolean;
begin begin
AComentario := Null;
if not Assigned(AFactura) then if not Assigned(AFactura) then
raise Exception.Create ('Factura no asignado: EsModificable'); raise Exception.Create ('Factura no asignado: EsModificable');
Result := (AFactura.SITUACION = CTE_PENDIENTE) if (AFactura.SITUACION <> CTE_PENDIENTE) then
//Si el ejercicio al que pertenece la factura esta cerrado no se podrá eliminar begin
and (AFactura.ESTADO <> CTE_CERRADO); Result := False;
AComentario := 'La factura esta parcial o totalmente pagada, por lo que no puede ser modificada';
end
else if (AFactura.ESTADO_EJERCICIO = CTE_CERRADO) then
begin
Result := False;
AComentario := 'La factura tiene un asiento asociado en la parte contable cuyo ejercicio esta cerrado, por lo que no puede ser modificada';
end
else if (AFactura.ASIENTO_PUNTEADO > 0) then
begin
Result := False;
AComentario := 'La factura tiene un asiento asociado en la parte contable y está punteado, por lo que no puede ser modificada';
end;
end; end;
procedure TFacturasClienteController.RecalcularImportes( procedure TFacturasClienteController.RecalcularImportes(

6
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
View File

@ -284,9 +284,13 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
DataType = datInteger DataType = datInteger
end end
item item
Name = 'ESTADO' Name = 'ESTADO_EJERCICIO'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'ASIENTO_PUNTEADO'
DataType = datSmallInt
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -23,6 +23,7 @@
<Projects Include="..\Gestor de informes\Model\GestorInformes_model.dproj" /> <Projects Include="..\Gestor de informes\Model\GestorInformes_model.dproj" />
<Projects Include="..\Gestor de informes\Plugin\GestorInformes_plugin.dproj" /> <Projects Include="..\Gestor de informes\Plugin\GestorInformes_plugin.dproj" />
<Projects Include="..\Gestor de informes\Views\GestorInformes_view.dproj" /> <Projects Include="..\Gestor de informes\Views\GestorInformes_view.dproj" />
<Projects Include="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" />
<Projects Include="Controller\FacturasCliente_controller.dproj" /> <Projects Include="Controller\FacturasCliente_controller.dproj" />
<Projects Include="Data\FacturasCliente_data.dproj" /> <Projects Include="Data\FacturasCliente_data.dproj" />
<Projects Include="Model\FacturasCliente_model.dproj" /> <Projects Include="Model\FacturasCliente_model.dproj" />
@ -251,14 +252,23 @@
<Target Name="FacturasProveedor_view:Make"> <Target Name="FacturasProveedor_view:Make">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Make" /> <MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="AlbCli_FacCli_relation">
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="" />
</Target>
<Target Name="AlbCli_FacCli_relation:Clean">
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="Clean" />
</Target>
<Target Name="AlbCli_FacCli_relation:Make">
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;GestorInformes_model;GestorInformes_data;GestorInformes_controller;GestorInformes_view;GestorInformes_plugin;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;FacturasCliente_view;FacturasCliente_plugin;FactuGES;FactuGES_Server;Contabilidad_controller;Contabilidad_view;FacturasProveedor_view" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;GestorInformes_model;GestorInformes_data;GestorInformes_controller;GestorInformes_view;GestorInformes_plugin;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;FacturasCliente_view;FacturasCliente_plugin;FactuGES;FactuGES_Server;Contabilidad_controller;Contabilidad_view;FacturasProveedor_view;AlbCli_FacCli_relation" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;GestorInformes_view:Clean;GestorInformes_plugin:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean;FacturasProveedor_view:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;GestorInformes_view:Clean;GestorInformes_plugin:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean;FacturasProveedor_view:Clean;AlbCli_FacCli_relation:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;GestorInformes_view:Make;GestorInformes_plugin:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_controller:Make;Contabilidad_view:Make;FacturasProveedor_view:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;GestorInformes_view:Make;GestorInformes_plugin:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_controller:Make;Contabilidad_view:Make;FacturasProveedor_view:Make;AlbCli_FacCli_relation: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>

87
Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
View File

@ -9,8 +9,8 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_FacturasCliente = '{661D7B8C-D928-4EE5-B87B-F3C5664D69D4}'; RID_FacturasCliente = '{02DBD50A-E80C-4275-BFEE-BF157514D41F}';
RID_FacturasCliente_Detalles = '{A636830F-78D4-401D-9CD0-9A0BF195A8D9}'; RID_FacturasCliente_Detalles = '{642F747B-097F-4C29-B2A4-DCD4D2C33824}';
{ Data table names } { Data table names }
nme_FacturasCliente = 'FacturasCliente'; nme_FacturasCliente = 'FacturasCliente';
@ -59,7 +59,8 @@ const
fld_FacturasClienteID_SUBCUENTA = 'ID_SUBCUENTA'; fld_FacturasClienteID_SUBCUENTA = 'ID_SUBCUENTA';
fld_FacturasClienteSUBCUENTA = 'SUBCUENTA'; fld_FacturasClienteSUBCUENTA = 'SUBCUENTA';
fld_FacturasClienteID_EJERCICIO = 'ID_EJERCICIO'; fld_FacturasClienteID_EJERCICIO = 'ID_EJERCICIO';
fld_FacturasClienteESTADO = 'ESTADO'; fld_FacturasClienteESTADO_EJERCICIO = 'ESTADO_EJERCICIO';
fld_FacturasClienteASIENTO_PUNTEADO = 'ASIENTO_PUNTEADO';
{ FacturasCliente field indexes } { FacturasCliente field indexes }
idx_FacturasClienteID = 0; idx_FacturasClienteID = 0;
@ -104,7 +105,8 @@ const
idx_FacturasClienteID_SUBCUENTA = 39; idx_FacturasClienteID_SUBCUENTA = 39;
idx_FacturasClienteSUBCUENTA = 40; idx_FacturasClienteSUBCUENTA = 40;
idx_FacturasClienteID_EJERCICIO = 41; idx_FacturasClienteID_EJERCICIO = 41;
idx_FacturasClienteESTADO = 42; idx_FacturasClienteESTADO_EJERCICIO = 42;
idx_FacturasClienteASIENTO_PUNTEADO = 43;
{ FacturasCliente_Detalles fields } { FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID'; fld_FacturasCliente_DetallesID = 'ID';
@ -141,7 +143,7 @@ const
type type
{ IFacturasCliente } { IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable) IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{93BE0E4C-8290-40F7-8644-B8914B454F0E}'] ['{6C1D0551-0751-4021-9476-820DA8DFDEC2}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -310,10 +312,14 @@ type
procedure SetID_EJERCICIOValue(const aValue: Integer); procedure SetID_EJERCICIOValue(const aValue: Integer);
function GetID_EJERCICIOIsNull: Boolean; function GetID_EJERCICIOIsNull: Boolean;
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); procedure SetID_EJERCICIOIsNull(const aValue: Boolean);
function GetESTADOValue: String; function GetESTADO_EJERCICIOValue: String;
procedure SetESTADOValue(const aValue: String); procedure SetESTADO_EJERCICIOValue(const aValue: String);
function GetESTADOIsNull: Boolean; function GetESTADO_EJERCICIOIsNull: Boolean;
procedure SetESTADOIsNull(const aValue: Boolean); procedure SetESTADO_EJERCICIOIsNull(const aValue: Boolean);
function GetASIENTO_PUNTEADOValue: SmallInt;
procedure SetASIENTO_PUNTEADOValue(const aValue: SmallInt);
function GetASIENTO_PUNTEADOIsNull: Boolean;
procedure SetASIENTO_PUNTEADOIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -401,8 +407,10 @@ type
property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull; property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue; property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull; property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property ESTADO: String read GetESTADOValue write SetESTADOValue; property ESTADO_EJERCICIO: String read GetESTADO_EJERCICIOValue write SetESTADO_EJERCICIOValue;
property ESTADOIsNull: Boolean read GetESTADOIsNull write SetESTADOIsNull; property ESTADO_EJERCICIOIsNull: Boolean read GetESTADO_EJERCICIOIsNull write SetESTADO_EJERCICIOIsNull;
property ASIENTO_PUNTEADO: SmallInt read GetASIENTO_PUNTEADOValue write SetASIENTO_PUNTEADOValue;
property ASIENTO_PUNTEADOIsNull: Boolean read GetASIENTO_PUNTEADOIsNull write SetASIENTO_PUNTEADOIsNull;
end; end;
{ TFacturasClienteDataTableRules } { TFacturasClienteDataTableRules }
@ -579,10 +587,14 @@ type
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual; procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
function GetID_EJERCICIOIsNull: Boolean; virtual; function GetID_EJERCICIOIsNull: Boolean; virtual;
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual; procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
function GetESTADOValue: String; virtual; function GetESTADO_EJERCICIOValue: String; virtual;
procedure SetESTADOValue(const aValue: String); virtual; procedure SetESTADO_EJERCICIOValue(const aValue: String); virtual;
function GetESTADOIsNull: Boolean; virtual; function GetESTADO_EJERCICIOIsNull: Boolean; virtual;
procedure SetESTADOIsNull(const aValue: Boolean); virtual; procedure SetESTADO_EJERCICIOIsNull(const aValue: Boolean); virtual;
function GetASIENTO_PUNTEADOValue: SmallInt; virtual;
procedure SetASIENTO_PUNTEADOValue(const aValue: SmallInt); virtual;
function GetASIENTO_PUNTEADOIsNull: Boolean; virtual;
procedure SetASIENTO_PUNTEADOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -669,8 +681,10 @@ type
property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull; property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue; property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull; property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property ESTADO: String read GetESTADOValue write SetESTADOValue; property ESTADO_EJERCICIO: String read GetESTADO_EJERCICIOValue write SetESTADO_EJERCICIOValue;
property ESTADOIsNull: Boolean read GetESTADOIsNull write SetESTADOIsNull; property ESTADO_EJERCICIOIsNull: Boolean read GetESTADO_EJERCICIOIsNull write SetESTADO_EJERCICIOIsNull;
property ASIENTO_PUNTEADO: SmallInt read GetASIENTO_PUNTEADOValue write SetASIENTO_PUNTEADOValue;
property ASIENTO_PUNTEADOIsNull: Boolean read GetASIENTO_PUNTEADOIsNull write SetASIENTO_PUNTEADOIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -680,7 +694,7 @@ type
{ IFacturasCliente_Detalles } { IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{525EA5EE-4D61-4002-B935-03B3F4DC16BF}'] ['{010E516F-BB41-4392-8DDC-D0C2CE7144CF}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1773,25 +1787,46 @@ begin
DataTable.Fields[idx_FacturasClienteID_EJERCICIO].AsVariant := Null; DataTable.Fields[idx_FacturasClienteID_EJERCICIO].AsVariant := Null;
end; end;
function TFacturasClienteDataTableRules.GetESTADOValue: String; function TFacturasClienteDataTableRules.GetESTADO_EJERCICIOValue: String;
begin begin
result := DataTable.Fields[idx_FacturasClienteESTADO].AsString; result := DataTable.Fields[idx_FacturasClienteESTADO_EJERCICIO].AsString;
end; end;
procedure TFacturasClienteDataTableRules.SetESTADOValue(const aValue: String); procedure TFacturasClienteDataTableRules.SetESTADO_EJERCICIOValue(const aValue: String);
begin begin
DataTable.Fields[idx_FacturasClienteESTADO].AsString := aValue; DataTable.Fields[idx_FacturasClienteESTADO_EJERCICIO].AsString := aValue;
end; end;
function TFacturasClienteDataTableRules.GetESTADOIsNull: boolean; function TFacturasClienteDataTableRules.GetESTADO_EJERCICIOIsNull: boolean;
begin begin
result := DataTable.Fields[idx_FacturasClienteESTADO].IsNull; result := DataTable.Fields[idx_FacturasClienteESTADO_EJERCICIO].IsNull;
end; end;
procedure TFacturasClienteDataTableRules.SetESTADOIsNull(const aValue: Boolean); procedure TFacturasClienteDataTableRules.SetESTADO_EJERCICIOIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_FacturasClienteESTADO].AsVariant := Null; DataTable.Fields[idx_FacturasClienteESTADO_EJERCICIO].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetASIENTO_PUNTEADOValue: SmallInt;
begin
result := DataTable.Fields[idx_FacturasClienteASIENTO_PUNTEADO].AsSmallInt;
end;
procedure TFacturasClienteDataTableRules.SetASIENTO_PUNTEADOValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_FacturasClienteASIENTO_PUNTEADO].AsSmallInt := aValue;
end;
function TFacturasClienteDataTableRules.GetASIENTO_PUNTEADOIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClienteASIENTO_PUNTEADO].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetASIENTO_PUNTEADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClienteASIENTO_PUNTEADO].AsVariant := Null;
end; end;

99
Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_FacturasClienteDelta = '{889543CF-FBB1-4940-BA74-3ECB5DB8D2A6}'; RID_FacturasClienteDelta = '{77786E5C-76FA-4B31-A625-81EEDB4F0EF5}';
RID_FacturasCliente_DetallesDelta = '{883635DC-21EB-4728-8B22-A7C7D916ED6F}'; RID_FacturasCliente_DetallesDelta = '{172DCD31-566D-43AD-B3BD-79D70B765BD3}';
type type
{ IFacturasClienteDelta } { IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente) IFacturasClienteDelta = interface(IFacturasCliente)
['{889543CF-FBB1-4940-BA74-3ECB5DB8D2A6}'] ['{77786E5C-76FA-4B31-A625-81EEDB4F0EF5}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -59,7 +59,8 @@ type
function GetOldID_SUBCUENTAValue : Integer; function GetOldID_SUBCUENTAValue : Integer;
function GetOldSUBCUENTAValue : String; function GetOldSUBCUENTAValue : String;
function GetOldID_EJERCICIOValue : Integer; function GetOldID_EJERCICIOValue : Integer;
function GetOldESTADOValue : String; function GetOldESTADO_EJERCICIOValue : String;
function GetOldASIENTO_PUNTEADOValue : SmallInt;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -104,7 +105,8 @@ type
property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue; property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
property OldSUBCUENTA : String read GetOldSUBCUENTAValue; property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue; property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldESTADO : String read GetOldESTADOValue; property OldESTADO_EJERCICIO : String read GetOldESTADO_EJERCICIOValue;
property OldASIENTO_PUNTEADO : SmallInt read GetOldASIENTO_PUNTEADOValue;
end; end;
{ TFacturasClienteBusinessProcessorRules } { TFacturasClienteBusinessProcessorRules }
@ -365,12 +367,18 @@ type
function GetOldID_EJERCICIOIsNull: Boolean; virtual; function GetOldID_EJERCICIOIsNull: Boolean; virtual;
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual; procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual; procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
function GetESTADOValue: String; virtual; function GetESTADO_EJERCICIOValue: String; virtual;
function GetESTADOIsNull: Boolean; virtual; function GetESTADO_EJERCICIOIsNull: Boolean; virtual;
function GetOldESTADOValue: String; virtual; function GetOldESTADO_EJERCICIOValue: String; virtual;
function GetOldESTADOIsNull: Boolean; virtual; function GetOldESTADO_EJERCICIOIsNull: Boolean; virtual;
procedure SetESTADOValue(const aValue: String); virtual; procedure SetESTADO_EJERCICIOValue(const aValue: String); virtual;
procedure SetESTADOIsNull(const aValue: Boolean); virtual; procedure SetESTADO_EJERCICIOIsNull(const aValue: Boolean); virtual;
function GetASIENTO_PUNTEADOValue: SmallInt; virtual;
function GetASIENTO_PUNTEADOIsNull: Boolean; virtual;
function GetOldASIENTO_PUNTEADOValue: SmallInt; virtual;
function GetOldASIENTO_PUNTEADOIsNull: Boolean; virtual;
procedure SetASIENTO_PUNTEADOValue(const aValue: SmallInt); virtual;
procedure SetASIENTO_PUNTEADOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -541,10 +549,14 @@ type
property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull; property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue; property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull; property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull;
property ESTADO : String read GetESTADOValue write SetESTADOValue; property ESTADO_EJERCICIO : String read GetESTADO_EJERCICIOValue write SetESTADO_EJERCICIOValue;
property ESTADOIsNull : Boolean read GetESTADOIsNull write SetESTADOIsNull; property ESTADO_EJERCICIOIsNull : Boolean read GetESTADO_EJERCICIOIsNull write SetESTADO_EJERCICIOIsNull;
property OldESTADO : String read GetOldESTADOValue; property OldESTADO_EJERCICIO : String read GetOldESTADO_EJERCICIOValue;
property OldESTADOIsNull : Boolean read GetOldESTADOIsNull; property OldESTADO_EJERCICIOIsNull : Boolean read GetOldESTADO_EJERCICIOIsNull;
property ASIENTO_PUNTEADO : SmallInt read GetASIENTO_PUNTEADOValue write SetASIENTO_PUNTEADOValue;
property ASIENTO_PUNTEADOIsNull : Boolean read GetASIENTO_PUNTEADOIsNull write SetASIENTO_PUNTEADOIsNull;
property OldASIENTO_PUNTEADO : SmallInt read GetOldASIENTO_PUNTEADOValue;
property OldASIENTO_PUNTEADOIsNull : Boolean read GetOldASIENTO_PUNTEADOIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -554,7 +566,7 @@ type
{ IFacturasCliente_DetallesDelta } { IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{883635DC-21EB-4728-8B22-A7C7D916ED6F}'] ['{172DCD31-566D-43AD-B3BD-79D70B765BD3}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -2068,35 +2080,66 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_EJERCICIO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_EJERCICIO] := Null;
end; end;
function TFacturasClienteBusinessProcessorRules.GetESTADOValue: String; function TFacturasClienteBusinessProcessorRules.GetESTADO_EJERCICIOValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteESTADO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteESTADO_EJERCICIO];
end; end;
function TFacturasClienteBusinessProcessorRules.GetESTADOIsNull: Boolean; function TFacturasClienteBusinessProcessorRules.GetESTADO_EJERCICIOIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteESTADO]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteESTADO_EJERCICIO]);
end; end;
function TFacturasClienteBusinessProcessorRules.GetOldESTADOValue: String; function TFacturasClienteBusinessProcessorRules.GetOldESTADO_EJERCICIOValue: String;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteESTADO]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteESTADO_EJERCICIO];
end; end;
function TFacturasClienteBusinessProcessorRules.GetOldESTADOIsNull: Boolean; function TFacturasClienteBusinessProcessorRules.GetOldESTADO_EJERCICIOIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteESTADO]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteESTADO_EJERCICIO]);
end; end;
procedure TFacturasClienteBusinessProcessorRules.SetESTADOValue(const aValue: String); procedure TFacturasClienteBusinessProcessorRules.SetESTADO_EJERCICIOValue(const aValue: String);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteESTADO] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteESTADO_EJERCICIO] := aValue;
end; end;
procedure TFacturasClienteBusinessProcessorRules.SetESTADOIsNull(const aValue: Boolean); procedure TFacturasClienteBusinessProcessorRules.SetESTADO_EJERCICIOIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteESTADO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteESTADO_EJERCICIO] := Null;
end;
function TFacturasClienteBusinessProcessorRules.GetASIENTO_PUNTEADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteASIENTO_PUNTEADO];
end;
function TFacturasClienteBusinessProcessorRules.GetASIENTO_PUNTEADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteASIENTO_PUNTEADO]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldASIENTO_PUNTEADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteASIENTO_PUNTEADO];
end;
function TFacturasClienteBusinessProcessorRules.GetOldASIENTO_PUNTEADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteASIENTO_PUNTEADO]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetASIENTO_PUNTEADOValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteASIENTO_PUNTEADO] := aValue;
end;
procedure TFacturasClienteBusinessProcessorRules.SetASIENTO_PUNTEADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteASIENTO_PUNTEADO] := Null;
end; end;

14
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

@ -192,8 +192,12 @@ object srvFacturasCliente: TsrvFacturasCliente
TableField = 'ID_EJERCICIO' TableField = 'ID_EJERCICIO'
end end
item item
DatasetField = 'ESTADO' DatasetField = 'ESTADO_EJERCICIO'
TableField = 'ESTADO' TableField = 'ESTADO_EJERCICIO'
end
item
DatasetField = 'ASIENTO_PUNTEADO'
TableField = 'ASIENTO_PUNTEADO'
end> end>
end> end>
Name = 'FacturasCliente' Name = 'FacturasCliente'
@ -423,9 +427,13 @@ object srvFacturasCliente: TsrvFacturasCliente
DataType = datInteger DataType = datInteger
end end
item item
Name = 'ESTADO' Name = 'ESTADO_EJERCICIO'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'ASIENTO_PUNTEADO'
DataType = datSmallInt
end> end>
end end
item item

58
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj
View File

@ -49,35 +49,35 @@
<DelphiCompile Include="FacturasCliente_view.dpk"> <DelphiCompile Include="FacturasCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\adortl.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\adortl.dcp" />
<DCCReference Include="..\AlbCli_FacCli_relation.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="..\Articulos_view.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\Articulos_view.dcp" />
<DCCReference Include="..\Contabilidad_controller.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\Contabilidad_controller.dcp" />
<DCCReference Include="..\Contabilidad_view.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\Contabilidad_view.dcp" />
<DCCReference Include="..\Contactos_view.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\Contactos_view.dcp" />
<DCCReference Include="..\cxDataD11.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\cxDataD11.dcp" />
<DCCReference Include="..\cxEditorsD11.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\cxEditorsD11.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\dbrtl.dcp" />
<DCCReference Include="..\dsnap.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\dsnap.dcp" />
<DCCReference Include="..\dxComnD11.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\dxComnD11.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxLayoutControlD11.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\dxLayoutControlD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\FacturasCliente_controller.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\FacturasCliente_controller.dcp" />
<DCCReference Include="..\FacturasCliente_model.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\FacturasCliente_model.dcp" />
<DCCReference Include="..\GestorInformes_controller.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\GestorInformes_controller.dcp" />
<DCCReference Include="..\GUIBase.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\GUIBase.dcp" />
<DCCReference Include="..\PngComponentsD10.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\PngComponentsD10.dcp" />
<DCCReference Include="..\PNG_D10.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\PNG_D10.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\vcldb.dcp" />
<DCCReference Include="..\vcljpg.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\vcljpg.dcp" />
<DCCReference Include="..\vclx.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\vclx.dcp" />
<DCCReference Include="uEditorElegirArticulosFacturaCliente.pas"> <DCCReference Include="uEditorElegirArticulosFacturaCliente.pas">
<Form>fEditorElegirArticulosFacturaCliente</Form> <Form>fEditorElegirArticulosFacturaCliente</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

41
Source/Modulos/Facturas de cliente/Views/uEditorElegirFacturasCliente.dfm
View File

@ -54,10 +54,12 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Top = 87 Top = 87
Width = 654 Width = 654
Height = 72
ExplicitTop = 87 ExplicitTop = 87
ExplicitWidth = 654 ExplicitWidth = 654
ExplicitHeight = 72
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 126 ExplicitWidth = 269
inherited TBXSubmenuItem2: TTBXSubmenuItem inherited TBXSubmenuItem2: TTBXSubmenuItem
Visible = False Visible = False
end end
@ -72,12 +74,12 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
end end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
Left = 126 Left = 269
Top = 23 Top = 23
DockPos = 104 DockPos = 104
DockRow = 1 DockRow = 1
Visible = False Visible = False
ExplicitLeft = 126 ExplicitLeft = 269
ExplicitTop = 23 ExplicitTop = 23
inherited TBXItem34: TTBXItem inherited TBXItem34: TTBXItem
Action = actQuitarFiltro2 Action = actQuitarFiltro2
@ -89,6 +91,7 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Left = 334 Left = 334
ExplicitLeft = 334 ExplicitLeft = 334
ExplicitHeight = 23
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -141,18 +144,18 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
end end
end end
inherited frViewFacturasCliente1: TfrViewFacturasCliente [5] inherited frViewFacturasCliente1: TfrViewFacturasCliente [5]
Top = 162 Top = 159
Width = 654 Width = 654
Height = 449 Height = 452
ExplicitTop = 162 ExplicitTop = 159
ExplicitWidth = 654 ExplicitWidth = 654
ExplicitHeight = 449 ExplicitHeight = 452
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 654 Width = 654
Height = 321 Height = 324
RootLevelOptions.DetailTabsPosition = dtpNone RootLevelOptions.DetailTabsPosition = dtpNone
ExplicitWidth = 654 ExplicitWidth = 654
ExplicitHeight = 321 ExplicitHeight = 324
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -184,29 +187,43 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
Width = 654 Width = 654
ExplicitWidth = 654 ExplicitWidth = 654
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273 ExplicitWidth = 273
Width = 273 Width = 273
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 343 ExplicitWidth = 343
Width = 343 Width = 343
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 654 Width = 654
ExplicitWidth = 654
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 644 Width = 644
ExplicitWidth = 644
end end
end end
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 423 Top = 426
ExplicitTop = 423 ExplicitTop = 426
ExplicitWidth = 654 ExplicitWidth = 654
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 654 Width = 654
@ -270,6 +287,8 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
end end
inherited JsNuevoAbonoDialog: TJSDialog [18] inherited JsNuevoAbonoDialog: TJSDialog [18]
end end
inherited JsListaFacturasNoEliminadas: TJSDialog [19]
end
object EditorSeleccionActionList: TActionList object EditorSeleccionActionList: TActionList
Images = SmallImages Images = SmallImages
Left = 152 Left = 152

4
Source/Modulos/Facturas de cliente/Views/uEditorElegirFacturasCliente.pas
View File

@ -1,4 +1,4 @@
{ {
=============================================================================== ===============================================================================
Copyright (©) 2007. Rodax Software. Copyright (©) 2007. Rodax Software.
=============================================================================== ===============================================================================
@ -37,7 +37,7 @@ uses
uViewFacturasCliente, uEditorFacturasCliente, uBizFacturasCliente, uIEditorElegirFacturasCliente, uViewFacturasCliente, uEditorFacturasCliente, uBizFacturasCliente, uIEditorElegirFacturasCliente,
Buttons, cxRadioGroup, cxMaskEdit, cxDropDownEdit, cxCalendar, cxControls, Buttons, cxRadioGroup, cxMaskEdit, cxDropDownEdit, cxCalendar, cxControls,
cxContainer, cxEdit, cxTextEdit, TBXDkPanels, JSDialog; cxContainer, cxEdit, cxTextEdit, TBXDkPanels, JSDialog, uDAInterfaces;
type type

109
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
View File

@ -68,25 +68,30 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
end end
inherited StatusBar: TJvStatusBar
Top = 643
Width = 860
Panels = <
item
Width = 200
end>
ExplicitTop = 643
ExplicitWidth = 860
end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 854 Width = 854
Height = 398 Height = 360
ActivePage = pagContabilidad ActivePage = pagContabilidad
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitLeft = 3
ExplicitTop = 79
ExplicitWidth = 854 ExplicitWidth = 854
ExplicitHeight = 398 ExplicitHeight = 360
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 846 ExplicitWidth = 846
ExplicitHeight = 370
inline frViewFacturaCliente1: TfrViewFacturaCliente inline frViewFacturaCliente1: TfrViewFacturaCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 846 Width = 846
Height = 370 Height = 332
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -97,12 +102,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 846 ExplicitWidth = 846
ExplicitHeight = 370 ExplicitHeight = 332
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 846 Width = 846
Height = 370 Height = 332
ExplicitWidth = 846 ExplicitWidth = 846
ExplicitHeight = 370 ExplicitHeight = 332
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -138,8 +143,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 78 Width = 78
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 289 Left = 280
ExplicitLeft = 289 ExplicitLeft = 280
end end
inherited frViewTienda1: TfrViewTienda inherited frViewTienda1: TfrViewTienda
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
@ -154,9 +159,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
inherited frViewClienteFactura1: TfrViewClienteFactura inherited frViewClienteFactura1: TfrViewClienteFactura
Left = 449 Left = 440
Width = 398 Width = 398
ExplicitLeft = 449 ExplicitLeft = 440
ExplicitWidth = 398 ExplicitWidth = 398
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 398 Width = 398
@ -205,16 +210,16 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 276 Width = 276
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 283 Left = 275
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 = 283 ExplicitLeft = 275
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 173 Left = 165
ExplicitLeft = 173 ExplicitLeft = 165
end end
inherited cxDBTextEdit1: TcxDBTextEdit inherited cxDBTextEdit1: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -244,7 +249,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 846 Width = 846
Height = 370 Height = 332
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -257,7 +262,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 846 ExplicitWidth = 846
ExplicitHeight = 370 ExplicitHeight = 332
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 846 Width = 846
Height = 24 Height = 24
@ -287,67 +292,67 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 57 ExplicitWidth = 57
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown
Left = 570 Left = 586
Top = 0 Top = 0
ExplicitLeft = 570 ExplicitLeft = 586
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 587 Left = 603
Top = 0 Top = 0
ExplicitLeft = 587 ExplicitLeft = 603
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton6: TToolButton inherited ToolButton6: TToolButton
Left = 595 Left = 611
Top = 0 Top = 0
ExplicitLeft = 595 ExplicitLeft = 611
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 629 Left = 645
Top = 0 Top = 0
ExplicitLeft = 629 ExplicitLeft = 645
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 663 Left = 679
Top = 0 Top = 0
ExplicitLeft = 663 ExplicitLeft = 679
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton
Left = 697 Left = 713
Top = 0 Top = 0
ExplicitLeft = 697 ExplicitLeft = 713
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 705 Left = 721
Top = 0 Top = 0
ExplicitLeft = 705 ExplicitLeft = 721
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 739 Left = 755
Top = 0 Top = 0
ExplicitLeft = 739 ExplicitLeft = 755
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 773 Left = 789
Top = 0 Top = 0
ExplicitLeft = 773 ExplicitLeft = 789
ExplicitTop = 0 ExplicitTop = 0
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 50 Top = 50
Width = 846 Width = 846
Height = 320 Height = 282
ExplicitTop = 50 ExplicitTop = 50
ExplicitWidth = 846 ExplicitWidth = 846
ExplicitHeight = 320 ExplicitHeight = 282
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 24 Top = 24
@ -411,17 +416,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
end end
inherited StatusBar: TJvStatusBar inherited PnlComentario: TPanel
Top = 643
Width = 860
Panels = <
item
Width = 200
end>
ExplicitTop = 643
ExplicitWidth = 860
end end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotales1: TfrViewTotales [5]
Left = 0 Left = 0
Top = 480 Top = 480
Width = 860 Width = 860
@ -631,17 +628,17 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
end end
inherited EditorActionList: TActionList [5] inherited EditorActionList: TActionList [6]
Left = 8 Left = 8
Top = 144 Top = 144
end end
inherited SmallImages: TPngImageList [6] inherited SmallImages: TPngImageList [7]
end end
inherited LargeImages: TPngImageList [7] inherited LargeImages: TPngImageList [8]
end end
inherited JvFormStorage: TJvFormStorage [8] inherited JvFormStorage: TJvFormStorage [9]
end end
inherited dsDataTable: TDADataSource [10] inherited dsDataTable: TDADataSource [11]
Top = 144 Top = 144
end end
end end

2
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
View File

@ -17,7 +17,7 @@ uses
uViewDetallesFacturaCliente, dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewDetallesFacturaCliente, dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar,
uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController, uDAInterfaces, uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController, uDAInterfaces,
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, Grids, DBGrids, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, Grids, DBGrids,
cxCheckBox, uViewListaSubCuentas; cxCheckBox, uViewListaSubCuentas, JvgWizardHeader;
type type

96
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm
View File

@ -62,9 +62,10 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Visible = True Visible = True
ExplicitWidth = 66 ExplicitWidth = 83
object TBXItem40: TTBXItem object TBXItem40: TTBXItem
Action = actInformes Action = actInformes
DisplayMode = nbdmImageAndText
end end
end end
end end
@ -267,6 +268,7 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
object actInformes: TAction object actInformes: TAction
Category = 'Archivo' Category = 'Archivo'
Caption = 'Informes' Caption = 'Informes'
ImageIndex = 25
OnExecute = actInformesExecute OnExecute = actInformesExecute
end end
end end
@ -993,6 +995,27 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
064200A70120096201BA0100A6C62916A56F74520000000049454E44AE426082} 064200A70120096201BA0100A6C62916A56F74520000000049454E44AE426082}
Name = 'PngImage24' Name = 'PngImage24'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000001A24944415478DA
63FC61C0F09F71F72C86FFAE690C307A76D176065C2037CE9311C6FEFFFF3F03
E3CFD7B3FEFFEF5DC7C0D0B003883D18188B8318D84452E11AFE0115FDFDFB0F
8CE7ACDACB306FE92686F33BA733C20D00B980E10403031BDB6F865FBF581918
2C1818D8CFFF47D1FC076AC082B5FB1974D455188AEAFAC086E07481FB5A3B0C
A7AF8F926358B2E12043B0A70DC3CD7B2FC0869CDB318D91115B18B09E45D8FA
F71F82BD7CF361B01760006C008C3379D1F6FF39B11E0C5316EF6020047C9CCC
1882926B300DC88C766330F5CA6138B26102D04654FF835C02A237EE39C9E061
67C210965E8769405A840B83856F1E5EDB93A2FD189CAD0D19A2B31A310D480A
7542B11542FF87DAFE1FC8FFCBF0E70F443C3EAF19D380B8400706FFA50F0986
419F2D374372511BA601D17E76105BFFC1FCFD1FC287DAFA1BC90519A51D9806
847BDB30ACDC7A84A00B8C74D419722ABB310D08F6B062F08EAD60583FAF151E
06C8FE06D1A72E5E63D0D3546528A8E9C53420C0D582C12FA18A602CC0923386
01BECEE6509BFE426D4762435D014AFF2080D500E4644A0C00190000D63E5BF0
41A130430000000049454E44AE426082}
Name = 'PngImage25'
Background = clWindow
end> end>
Left = 395 Left = 395
Bitmap = {} Bitmap = {}
@ -3383,37 +3406,44 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
end end
object JsListaFacturasNoEliminadas: TJSDialog object JsListaFacturasNoEliminadas: TJSDialog
Glyph.Data = { Glyph.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00 0B546478504E47496D61676589504E470D0A1A0A0000000D4948445200000018
00001C0806000000720DDF940000000970485973000017120000171201679FD2 000000180806000000E0773DF8000000017352474200AECE1CE9000000046741
520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14 4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD 80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2 0AE900000AE901FD75CED3000003F049444154484BBD557B6C53651C3D7DAD7B
3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD B0ADADC0363ADDA0834D2DDA6E5904A24C17E64864BAF8484C348E104940FD47
B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010 128D31121213134DD4C4F8644F794C6413188E81A003B3A15B8AC87C4CA39D9A
60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3 685013515B36D8B3F7E7F9AEDCDAB9760F62BCC94D9ADEEF3BE7FCCE777EBFCF
21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045 2422F8DF9ED781A56D0EFB730D56945D0EA9BE3F2F676F3D70DF36C01C15FF0A
A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8 30AF333BB9E9E74ADF68E4A12A19A8F0851BADB869B6242F00292DD9AE6DBD2B
225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281 BD43273D4E79371D5A1DB05527B807B0BCE7C0FEC1EB20A3373A447B60B5688F
081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87 544BF0567FA8113393D45970F3C9E265FD7D371448E77C93746442DB6945B322
A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F D5099ACCD8F8DBD5D0467C90E1EB21178A6D3276979F247748B0A2385C6FC5EA
70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B 789550A1EBD02247DD57AB964DF4E4A7C9072E487B06B426139E55A2D51E9DE0
EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F 656051201B030A7C885584BC9073D740C2E55789B6799D0C54964CB1EB0D6065
286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8 4F81EBC76FFDD9F2E17CE8E0B465BCC18C4763C544CF603B5074C68D5FFFBC16
6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10 C26AE49742C84F4B21677D193252532EC1B5A521E34C76D9CD0FF67B175CFCCC
81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8 931A056F4BC3700370FFBF2B9D94D02660455F2E060DF01F3C90E062C8371E8B
CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF FC5EE593606569B8353D69F7803F2B12C8B546C10F109CA9B92D9E8D535A6087
469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32 05EBFADC1835C0BFCE837C7125E44C2EC94A72E4F4E264F928CB2427AE80BCEF
F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF 841C9C8771567F6FA2B4C5EDB15D366CF8D48D8928B81B722A07D29305E95E80
86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165 28383D8FD0F387A78B72C2266E4EC29304D5782E71C10F5D4ACB4C7D92904075
4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF E1DE64040254FE319577C5283F9209A1EF5A1DE34802D39C2BA0A7B6B7D3936A
673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2 BFBC65B966801FA7E7C7E8F96182D31AD99F06D9930CAD16786A4E04044F6D77
ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312 BB0E9CDB52239F143A75E5F1C05B52206FD9216F5A75922DB33A6482671E5B92
FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312 73E2E2E335F25DA57F0A382DFB638F1DE70DF09D3648A305B2DD840936DEA669
82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA 634ACFAD47721D1D639BAA24B47EAD742D344D52DE9A82610A287B0D286C34A3
1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082} 7B87F56FF05A1384E0C2293AC66F35091BAD25DDF6F460758936B1A1424E79D2
Instruction.Text = A593AD7FD401E9C880EC4B458436AC3736B770CE10F431FE7741811BEF25128E
'Las siguientes facturas no han podido ser eliminadas, porque tie' + A17F1E3D4554527E7655FEB8DCE993EF4BDD93C0555AEA4D783E5EF954EC2568
'nen recibos con pagos o devoluciones emitidas' 2F5F2D8668E455A0CA58AF139C2E5AD82FD5CBE5FC9A0239CE716B2867970A3B
BB4BA52AD121D2DA24126D25C9704C2543DCB3263A4DBBF39DAD91DBBD12C84B
9904DE6CC7A0BAA1666A26F59D80C524E88BA924AC26AE5E418305777F5EE414
5E3AC20E95362A6752D48DB47936E0C69A97003B053DA3CE82E0115A55A613A8
32391A7ADBD9400AFC9D5426C48CA3AA9BE74260ACA5652BF8BE18B548FDE0F5
E662F40E2BE5CC77880B965C0EF8B4F7818A1F6D7982F1DBF85F801B15FC059E
6028BEE22B69170000000049454E44AE426082}
Instruction.Text = 'Las siguientes facturas no han podido ser eliminadas:'
Instruction.Glyph.Data = { Instruction.Glyph.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
00001C0806000000720DDF940000000970485973000017120000171201679FD2 00001C0806000000720DDF940000000970485973000017120000171201679FD2
@ -3679,7 +3709,7 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000 0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
0007C0000007C000000700000007000000070000000700000007C000000FC000 0007C0000007C000000700000007000000070000000700000007C000000FC000
001F8000003F800000FFF8FFFFFF} 001F8000003F800000FFF8FFFFFF}
Width = 450 Width = 600
Left = 184 Left = 184
Top = 112 Top = 112
end end

28
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
View File

@ -12,7 +12,8 @@ uses
uEditorGridBase, uEditorGridBase,
uBizFacturasCliente, uIEditorFacturasCliente, uFacturasClienteController, uBizFacturasCliente, uIEditorFacturasCliente, uFacturasClienteController,
uCustomView, uViewBase, uViewBarraSeleccion, uViewGridBase, uCustomView, uViewBase, uViewBarraSeleccion, uViewGridBase,
uViewFacturasCliente, JvExComCtrls, JvStatusBar, JSDialog, uDAInterfaces; uViewFacturasCliente, JvExComCtrls, JvStatusBar, JSDialog, uDAInterfaces,
dxGDIPlusClasses;
type type
@ -80,9 +81,7 @@ procedure TfEditorFacturasCliente.actEliminarUpdate(Sender: TObject);
begin begin
inherited; inherited;
if (Sender as TAction).Enabled then if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := (FFacturas.SITUACION = 'PENDIENTE') (Sender as TAction).Enabled := (FFacturas.SITUACION = 'PENDIENTE');
//Si el ejercicio al que pertenece la factura esta cerrado no se podrá eliminar
and (FFacturas.ESTADO <> CTE_CERRADO);
end; end;
procedure TfEditorFacturasCliente.actInformesExecute(Sender: TObject); procedure TfEditorFacturasCliente.actInformesExecute(Sender: TObject);
@ -183,9 +182,12 @@ var
ACadena : String; ACadena : String;
AFacturas: IBizFacturaCliente; AFacturas: IBizFacturaCliente;
AllItems: Boolean; AllItems: Boolean;
AListaCausas: TStringList;
begin begin
AFacturas := Nil; AFacturas := Nil;
AllItems := False; AllItems := False;
AListaCausas := TStringList.Create;
if MultiSelect and Assigned(ViewGrid) then if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1); AllItems := (ViewGrid.NumSeleccionados > 1);
@ -210,14 +212,20 @@ begin
if Assigned(AFacturas) then if Assigned(AFacturas) then
begin begin
if (not FController.Eliminar(AFacturas, AllItems)) if (not FController.Eliminar(AFacturas, AllItems, AListaCausas))
and (not AllItems) then //Es el caso de querer borrar una factura pendiente cuyos recibos tienen devoluciones //En el caso de querer borrar una factura pendiente cuyos recibos tienen devoluciones
and (not AllItems) then
begin begin
JsListaFacturasNoEliminadas.Content.Clear; JsListaFacturasNoEliminadas.Content.Clear;
JsListaFacturasNoEliminadas.Content.Add('Ref. factura: ' + AFacturas.REFERENCIA + ' ' + AFacturas.NOMBRE); JsListaFacturasNoEliminadas.Content.Add('Ref. factura: ' + AFacturas.REFERENCIA + ' ' + AFacturas.NOMBRE);
if Length(VarToStr(AListaCausas.Values[IntToStr(AFacturas.ID)])) > 0 then
JsListaFacturasNoEliminadas.Content.Add(VarToStr(AListaCausas.Values[IntToStr(AFacturas.ID)]))
else
JsListaFacturasNoEliminadas.Content.Add('La factura puede tener algún recibo devuelto y no puede ser eliminada');
JsListaFacturasNoEliminadas.Execute; JsListaFacturasNoEliminadas.Execute;
end; end;
if AllItems then if AllItems then
begin begin
if (AFacturas.DataTable.RecordCount > 0) then if (AFacturas.DataTable.RecordCount > 0) then
@ -229,15 +237,21 @@ begin
while not EOF do while not EOF do
begin begin
JsListaFacturasNoEliminadas.Content.Add('Ref. factura: ' + AFacturas.REFERENCIA + ' ' + AFacturas.NOMBRE); JsListaFacturasNoEliminadas.Content.Add('Ref. factura: ' + AFacturas.REFERENCIA + ' ' + AFacturas.NOMBRE);
if Length(AListaCausas.Values[IntToStr(AFacturas.ID)]) > 0 then
JsListaFacturasNoEliminadas.Content.Add(VarToStr(AListaCausas.Values[IntToStr(AFacturas.ID)]))
else
JsListaFacturasNoEliminadas.Content.Add('La factura puede tener algún recibo devuelto y no puede ser eliminada');
JsListaFacturasNoEliminadas.Content.Add('');
Next; Next;
end; end;
end; end;
JsListaFacturasNoEliminadas.Execute; JsListaFacturasNoEliminadas.Execute;
end; end;
actRefrescar.Execute; actRefrescar.Execute;
end; end
end; end;
AListaCausas.Free;
ViewGrid.GotoFirst; ViewGrid.GotoFirst;
end; end;

110
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -30,7 +30,7 @@ type
function Anadir(AFactura : IBizFacturaProveedor; const IDPedido : Integer): Boolean; overload; function Anadir(AFactura : IBizFacturaProveedor; const IDPedido : Integer): Boolean; overload;
function Eliminar(const ID : Integer): Boolean; overload; function Eliminar(const ID : Integer): Boolean; overload;
function Eliminar(AFactura : IBizFacturaProveedor; AllItems: Boolean = false): Boolean; overload; function Eliminar(AFactura : IBizFacturaProveedor; AllItems: Boolean = false; AListaCausas: TStringList = nil): Boolean; overload;
function Guardar(AFactura : IBizFacturaProveedor): Boolean; function Guardar(AFactura : IBizFacturaProveedor): Boolean;
procedure DescartarCambios(AFactura : IBizFacturaProveedor); procedure DescartarCambios(AFactura : IBizFacturaProveedor);
function Existe(const ID: Integer) : Boolean; function Existe(const ID: Integer) : Boolean;
@ -42,8 +42,6 @@ type
procedure Print(AFactura : IBizFacturaProveedor; AllItems: Boolean = false); procedure Print(AFactura : IBizFacturaProveedor; AllItems: Boolean = false);
procedure RecalcularImportes(FFactura: IBizFacturaProveedor); procedure RecalcularImportes(FFactura: IBizFacturaProveedor);
function EsModificable(AFactura: IBizFacturaProveedor): Boolean;
function EsEliminable(AFactura: IBizFacturaProveedor): Boolean;
function ElegirFacturas(AFacturas : IBizFacturaProveedor; AMensaje: String; AMultiSelect: Boolean): IBizFacturaProveedor; function ElegirFacturas(AFacturas : IBizFacturaProveedor; AMensaje: String; AMultiSelect: Boolean): IBizFacturaProveedor;
function ExtraerSeleccionados(ARecibosProveedor: IBizFacturaProveedor) : IBizFacturaProveedor; function ExtraerSeleccionados(ARecibosProveedor: IBizFacturaProveedor) : IBizFacturaProveedor;
@ -84,7 +82,7 @@ type
destructor Destroy; override; destructor Destroy; override;
function Eliminar(const ID : Integer): Boolean; overload; function Eliminar(const ID : Integer): Boolean; overload;
function Eliminar(AFactura : IBizFacturaProveedor; AllItems: Boolean = false): Boolean; overload; function Eliminar(AFactura : IBizFacturaProveedor; AllItems: Boolean = false; AListaCausas: TStringList = nil): Boolean; overload;
function Guardar(AFactura : IBizFacturaProveedor): Boolean; function Guardar(AFactura : IBizFacturaProveedor): Boolean;
procedure DescartarCambios(AFactura : IBizFacturaProveedor); virtual; procedure DescartarCambios(AFactura : IBizFacturaProveedor); virtual;
function Existe(const ID: Integer) : Boolean; virtual; function Existe(const ID: Integer) : Boolean; virtual;
@ -106,8 +104,8 @@ type
procedure Print(AFactura : IBizFacturaProveedor; AllItems: Boolean = false); procedure Print(AFactura : IBizFacturaProveedor; AllItems: Boolean = false);
procedure RecalcularImportes(FFactura: IBizFacturaProveedor); procedure RecalcularImportes(FFactura: IBizFacturaProveedor);
function EsModificable(AFactura: IBizFacturaProveedor): Boolean; function EsModificable(AFactura: IBizFacturaProveedor; var AComentario: Variant): Boolean;
function EsEliminable(AFactura: IBizFacturaProveedor): Boolean; function EsEliminable(AFactura: IBizFacturaProveedor; var AComentario: Variant): Boolean;
function ElegirFacturas(AFacturas : IBizFacturaProveedor; AMensaje: String; AMultiSelect: Boolean): IBizFacturaProveedor; function ElegirFacturas(AFacturas : IBizFacturaProveedor; AMensaje: String; AMultiSelect: Boolean): IBizFacturaProveedor;
function ExtraerSeleccionados(AFacturasProveedor: IBizFacturaProveedor) : IBizFacturaProveedor; function ExtraerSeleccionados(AFacturasProveedor: IBizFacturaProveedor) : IBizFacturaProveedor;
@ -603,12 +601,13 @@ begin
//CONTABILIDAD //CONTABILIDAD
ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID; ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID;
ESTADO := AppFactuGES.EjercicioActivo.ESTADO; ESTADO_EJERCICIO := AppFactuGES.EjercicioActivo.ESTADO;
ASIENTO_PUNTEADO := -1;
//En el caso de que el ejercicio este cerrado dejamos duplicar factura sin asociar a contabilidad. //En el caso de que el ejercicio este cerrado dejamos duplicar factura sin asociar a contabilidad.
if ESTADO = CTE_CERRADO then if ESTADO_EJERCICIO = CTE_CERRADO then
begin begin
IGNORAR_CONTABILIDAD := 1; IGNORAR_CONTABILIDAD := 1;
ESTADO := ''; ESTADO_EJERCICIO := '';
end; end;
end; end;
@ -704,6 +703,7 @@ end;
procedure TFacturasProveedorController.Ver(AFactura: IBizFacturaProveedor); procedure TFacturasProveedorController.Ver(AFactura: IBizFacturaProveedor);
var var
AEditor : IEditorFacturaProveedor; AEditor : IEditorFacturaProveedor;
AComentario : Variant;
begin begin
AEditor := NIL; AEditor := NIL;
@ -718,10 +718,11 @@ begin
Factura := AFactura; Factura := AFactura;
//MODO CONSULTAR //MODO CONSULTAR
if not EsModificable(AFactura) then if not EsModificable(AFactura, AComentario) then
begin begin
SetDataTableReadOnly(AFactura.DataTable, True); SetDataTableReadOnly(AFactura.DataTable, True);
ReadOnly := True; ReadOnly := True;
AEditor.Comentario := AComentario;
end; end;
ShowModal; ShowModal;
@ -796,13 +797,14 @@ begin
} }
end; end;
function TFacturasProveedorController.Eliminar(AFactura: IBizFacturaProveedor; AllItems: Boolean = false): Boolean; function TFacturasProveedorController.Eliminar(AFactura: IBizFacturaProveedor; AllItems: Boolean = false; AListaCausas: TStringList = nil): Boolean;
//En el caso de eliminar almenos un elemento del conjunto se devuelve true //Solo devolverá true en el caso de eliminar todos y cada uno de los elementos a eliminar
var var
bEliminado: Boolean; bEliminado: Boolean;
ACausa: Variant;
begin begin
bEliminado := False; bEliminado := True;
if not Assigned(AFactura) then if not Assigned(AFactura) then
raise Exception.Create ('Factura no asignada'); raise Exception.Create ('Factura no asignada');
@ -816,11 +818,14 @@ begin
AFactura.Cancel; AFactura.Cancel;
//Siempre eliminaremos el seleccionado //Siempre eliminaremos el seleccionado
if EsEliminable(AFactura) then if not EsEliminable(AFactura, ACausa) then
begin begin
if Assigned(AListaCausas) then
AListaCausas.Add(Format('%d=%s', [AFactura.ID, ACausa]));
bEliminado := False;
end
else
AFactura.Delete; AFactura.Delete;
bEliminado := True;
end;
//En el caso de querer eliminar todos los items del objeto AAlbaran //En el caso de querer eliminar todos los items del objeto AAlbaran
if AllItems then if AllItems then
@ -830,48 +835,77 @@ begin
First; First;
while not EOF do while not EOF do
begin begin
if EsEliminable(AFactura) then if not EsEliminable(AFactura, ACausa) then
begin begin
AFactura.Delete; if Assigned(AListaCausas) then
bEliminado := True AListaCausas.Add(Format('%d=%s', [AFactura.ID, ACausa]));
bEliminado := False;
Next;
end end
else Next; else
AFactura.Delete;
end; end;
end; end;
end; end;
if bEliminado then try
begin
try
AFactura.DataTable.ApplyUpdates; AFactura.DataTable.ApplyUpdates;
Result := True except
except //En el caso de una factura que tiene recibos con devoluciones hechas no se
//En el caso de una factura que tiene recibos con devoluciones hechas no se puede borrar aunque la factura este en situacion de pendiente //puede borrar aunque la factura este en situacion de pendiente
AFactura.DataTable.CancelUpdates; AFactura.DataTable.CancelUpdates;
Result := False; Result := False;
end; end;
end
else
Result := False;
finally finally
HideHourglassCursor; HideHourglassCursor;
end; end;
end; end;
function TFacturasProveedorController.EsEliminable(AFactura: IBizFacturaProveedor): Boolean; function TFacturasProveedorController.EsEliminable(AFactura: IBizFacturaProveedor; var AComentario: Variant): Boolean;
begin begin
Result := EsModificable(AFactura); if not Assigned(AFactura) then
raise Exception.Create ('Factura no asignado: EsEliminable');
if (AFactura.SITUACION <> CTE_PENDIENTE) then
begin
Result := False;
AComentario := 'La factura esta parcial o totalmente pagada, por lo que no puede ser eliminada';
end
else if (AFactura.ESTADO_EJERCICIO = CTE_CERRADO) then
begin
Result := False;
AComentario := 'La factura tiene un asiento asociado en la parte contable cuyo ejercicio esta cerrado, por lo que no puede ser eliminada';
end
else if (AFactura.ASIENTO_PUNTEADO > 0) then
begin
Result := False;
AComentario := 'La factura tiene un asiento asociado en la parte contable y está punteado, por lo que no puede ser eliminada';
end;
end; end;
function TFacturasProveedorController.EsModificable(AFactura: IBizFacturaProveedor): Boolean; function TFacturasProveedorController.EsModificable(AFactura: IBizFacturaProveedor; var AComentario: Variant): Boolean;
begin begin
AComentario := Null;
if not Assigned(AFactura) then if not Assigned(AFactura) then
raise Exception.Create ('Factura no asignado: EsModificable'); raise Exception.Create ('Factura no asignado: EsModificable');
Result := (AFactura.SITUACION = CTE_PENDIENTE) if (AFactura.SITUACION <> CTE_PENDIENTE) then
//Si el ejercicio al que pertenece la factura esta cerrado no se podrá eliminar begin
and (AFactura.ESTADO <> CTE_CERRADO); Result := False;
AComentario := 'La factura esta parcial o totalmente pagada, por lo que no puede ser modificada';
end
else if (AFactura.ESTADO_EJERCICIO = CTE_CERRADO) then
begin
Result := False;
AComentario := 'La factura tiene un asiento asociado en la parte contable cuyo ejercicio esta cerrado, por lo que no puede ser modificada';
end
else if (AFactura.ASIENTO_PUNTEADO > 0) then
begin
Result := False;
AComentario := 'La factura tiene un asiento asociado en la parte contable y está punteado, por lo que no puede ser modificada';
end;
end; end;
procedure TFacturasProveedorController.RecalcularImportes(FFactura: IBizFacturaProveedor); procedure TFacturasProveedorController.RecalcularImportes(FFactura: IBizFacturaProveedor);

6
Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
View File

@ -272,9 +272,13 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
DataType = datInteger DataType = datInteger
end end
item item
Name = 'ESTADO' Name = 'ESTADO_EJERCICIO'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'ASIENTO_PUNTEADO'
DataType = datSmallInt
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

87
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
View File

@ -9,8 +9,8 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_FacturasProveedor = '{C464B4AA-6A1C-4808-BDA7-3FE27191FA2D}'; RID_FacturasProveedor = '{65925C03-CA37-4D4C-A571-E55853C26BA9}';
RID_FacturasProveedor_Detalles = '{B4F5B47A-FAF2-4B14-A8D8-15041FC8CE5C}'; RID_FacturasProveedor_Detalles = '{10E36F34-C565-4C28-B800-2E679843DCED}';
{ Data table names } { Data table names }
nme_FacturasProveedor = 'FacturasProveedor'; nme_FacturasProveedor = 'FacturasProveedor';
@ -57,7 +57,8 @@ const
fld_FacturasProveedorID_SUBCUENTA = 'ID_SUBCUENTA'; fld_FacturasProveedorID_SUBCUENTA = 'ID_SUBCUENTA';
fld_FacturasProveedorSUBCUENTA = 'SUBCUENTA'; fld_FacturasProveedorSUBCUENTA = 'SUBCUENTA';
fld_FacturasProveedorID_EJERCICIO = 'ID_EJERCICIO'; fld_FacturasProveedorID_EJERCICIO = 'ID_EJERCICIO';
fld_FacturasProveedorESTADO = 'ESTADO'; fld_FacturasProveedorESTADO_EJERCICIO = 'ESTADO_EJERCICIO';
fld_FacturasProveedorASIENTO_PUNTEADO = 'ASIENTO_PUNTEADO';
{ FacturasProveedor field indexes } { FacturasProveedor field indexes }
idx_FacturasProveedorID = 0; idx_FacturasProveedorID = 0;
@ -100,7 +101,8 @@ const
idx_FacturasProveedorID_SUBCUENTA = 37; idx_FacturasProveedorID_SUBCUENTA = 37;
idx_FacturasProveedorSUBCUENTA = 38; idx_FacturasProveedorSUBCUENTA = 38;
idx_FacturasProveedorID_EJERCICIO = 39; idx_FacturasProveedorID_EJERCICIO = 39;
idx_FacturasProveedorESTADO = 40; idx_FacturasProveedorESTADO_EJERCICIO = 40;
idx_FacturasProveedorASIENTO_PUNTEADO = 41;
{ FacturasProveedor_Detalles fields } { FacturasProveedor_Detalles fields }
fld_FacturasProveedor_DetallesID = 'ID'; fld_FacturasProveedor_DetallesID = 'ID';
@ -137,7 +139,7 @@ const
type type
{ IFacturasProveedor } { IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable) IFacturasProveedor = interface(IDAStronglyTypedDataTable)
['{E97B9FEC-9473-41EC-B567-C1130AFB9389}'] ['{F2F30017-EDDC-4294-8A13-93D1B4D70D0C}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -298,10 +300,14 @@ type
procedure SetID_EJERCICIOValue(const aValue: Integer); procedure SetID_EJERCICIOValue(const aValue: Integer);
function GetID_EJERCICIOIsNull: Boolean; function GetID_EJERCICIOIsNull: Boolean;
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); procedure SetID_EJERCICIOIsNull(const aValue: Boolean);
function GetESTADOValue: String; function GetESTADO_EJERCICIOValue: String;
procedure SetESTADOValue(const aValue: String); procedure SetESTADO_EJERCICIOValue(const aValue: String);
function GetESTADOIsNull: Boolean; function GetESTADO_EJERCICIOIsNull: Boolean;
procedure SetESTADOIsNull(const aValue: Boolean); procedure SetESTADO_EJERCICIOIsNull(const aValue: Boolean);
function GetASIENTO_PUNTEADOValue: SmallInt;
procedure SetASIENTO_PUNTEADOValue(const aValue: SmallInt);
function GetASIENTO_PUNTEADOIsNull: Boolean;
procedure SetASIENTO_PUNTEADOIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -385,8 +391,10 @@ type
property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull; property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue; property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull; property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property ESTADO: String read GetESTADOValue write SetESTADOValue; property ESTADO_EJERCICIO: String read GetESTADO_EJERCICIOValue write SetESTADO_EJERCICIOValue;
property ESTADOIsNull: Boolean read GetESTADOIsNull write SetESTADOIsNull; property ESTADO_EJERCICIOIsNull: Boolean read GetESTADO_EJERCICIOIsNull write SetESTADO_EJERCICIOIsNull;
property ASIENTO_PUNTEADO: SmallInt read GetASIENTO_PUNTEADOValue write SetASIENTO_PUNTEADOValue;
property ASIENTO_PUNTEADOIsNull: Boolean read GetASIENTO_PUNTEADOIsNull write SetASIENTO_PUNTEADOIsNull;
end; end;
{ TFacturasProveedorDataTableRules } { TFacturasProveedorDataTableRules }
@ -555,10 +563,14 @@ type
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual; procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
function GetID_EJERCICIOIsNull: Boolean; virtual; function GetID_EJERCICIOIsNull: Boolean; virtual;
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual; procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
function GetESTADOValue: String; virtual; function GetESTADO_EJERCICIOValue: String; virtual;
procedure SetESTADOValue(const aValue: String); virtual; procedure SetESTADO_EJERCICIOValue(const aValue: String); virtual;
function GetESTADOIsNull: Boolean; virtual; function GetESTADO_EJERCICIOIsNull: Boolean; virtual;
procedure SetESTADOIsNull(const aValue: Boolean); virtual; procedure SetESTADO_EJERCICIOIsNull(const aValue: Boolean); virtual;
function GetASIENTO_PUNTEADOValue: SmallInt; virtual;
procedure SetASIENTO_PUNTEADOValue(const aValue: SmallInt); virtual;
function GetASIENTO_PUNTEADOIsNull: Boolean; virtual;
procedure SetASIENTO_PUNTEADOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -641,8 +653,10 @@ type
property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull; property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue; property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull; property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property ESTADO: String read GetESTADOValue write SetESTADOValue; property ESTADO_EJERCICIO: String read GetESTADO_EJERCICIOValue write SetESTADO_EJERCICIOValue;
property ESTADOIsNull: Boolean read GetESTADOIsNull write SetESTADOIsNull; property ESTADO_EJERCICIOIsNull: Boolean read GetESTADO_EJERCICIOIsNull write SetESTADO_EJERCICIOIsNull;
property ASIENTO_PUNTEADO: SmallInt read GetASIENTO_PUNTEADOValue write SetASIENTO_PUNTEADOValue;
property ASIENTO_PUNTEADOIsNull: Boolean read GetASIENTO_PUNTEADOIsNull write SetASIENTO_PUNTEADOIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -652,7 +666,7 @@ type
{ IFacturasProveedor_Detalles } { IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable) IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{3D36CBEE-5B8B-47BA-A5DA-54E5E4F98D32}'] ['{FB8F2FD1-E2A2-42EE-8027-9B399F363BB6}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1703,25 +1717,46 @@ begin
DataTable.Fields[idx_FacturasProveedorID_EJERCICIO].AsVariant := Null; DataTable.Fields[idx_FacturasProveedorID_EJERCICIO].AsVariant := Null;
end; end;
function TFacturasProveedorDataTableRules.GetESTADOValue: String; function TFacturasProveedorDataTableRules.GetESTADO_EJERCICIOValue: String;
begin begin
result := DataTable.Fields[idx_FacturasProveedorESTADO].AsString; result := DataTable.Fields[idx_FacturasProveedorESTADO_EJERCICIO].AsString;
end; end;
procedure TFacturasProveedorDataTableRules.SetESTADOValue(const aValue: String); procedure TFacturasProveedorDataTableRules.SetESTADO_EJERCICIOValue(const aValue: String);
begin begin
DataTable.Fields[idx_FacturasProveedorESTADO].AsString := aValue; DataTable.Fields[idx_FacturasProveedorESTADO_EJERCICIO].AsString := aValue;
end; end;
function TFacturasProveedorDataTableRules.GetESTADOIsNull: boolean; function TFacturasProveedorDataTableRules.GetESTADO_EJERCICIOIsNull: boolean;
begin begin
result := DataTable.Fields[idx_FacturasProveedorESTADO].IsNull; result := DataTable.Fields[idx_FacturasProveedorESTADO_EJERCICIO].IsNull;
end; end;
procedure TFacturasProveedorDataTableRules.SetESTADOIsNull(const aValue: Boolean); procedure TFacturasProveedorDataTableRules.SetESTADO_EJERCICIOIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_FacturasProveedorESTADO].AsVariant := Null; DataTable.Fields[idx_FacturasProveedorESTADO_EJERCICIO].AsVariant := Null;
end;
function TFacturasProveedorDataTableRules.GetASIENTO_PUNTEADOValue: SmallInt;
begin
result := DataTable.Fields[idx_FacturasProveedorASIENTO_PUNTEADO].AsSmallInt;
end;
procedure TFacturasProveedorDataTableRules.SetASIENTO_PUNTEADOValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_FacturasProveedorASIENTO_PUNTEADO].AsSmallInt := aValue;
end;
function TFacturasProveedorDataTableRules.GetASIENTO_PUNTEADOIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProveedorASIENTO_PUNTEADO].IsNull;
end;
procedure TFacturasProveedorDataTableRules.SetASIENTO_PUNTEADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProveedorASIENTO_PUNTEADO].AsVariant := Null;
end; end;

99
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_FacturasProveedorDelta = '{D146A338-C0C9-4B53-9F54-E217054D207D}'; RID_FacturasProveedorDelta = '{8A815C19-322F-46C9-BAD5-3A2696BF133E}';
RID_FacturasProveedor_DetallesDelta = '{69B9422B-A4B5-43D5-A992-EFB3F0FB5231}'; RID_FacturasProveedor_DetallesDelta = '{49E22119-767F-4CB5-A74E-87923CDA4BD6}';
type type
{ IFacturasProveedorDelta } { IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor) IFacturasProveedorDelta = interface(IFacturasProveedor)
['{D146A338-C0C9-4B53-9F54-E217054D207D}'] ['{8A815C19-322F-46C9-BAD5-3A2696BF133E}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -57,7 +57,8 @@ type
function GetOldID_SUBCUENTAValue : Integer; function GetOldID_SUBCUENTAValue : Integer;
function GetOldSUBCUENTAValue : String; function GetOldSUBCUENTAValue : String;
function GetOldID_EJERCICIOValue : Integer; function GetOldID_EJERCICIOValue : Integer;
function GetOldESTADOValue : String; function GetOldESTADO_EJERCICIOValue : String;
function GetOldASIENTO_PUNTEADOValue : SmallInt;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -100,7 +101,8 @@ type
property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue; property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
property OldSUBCUENTA : String read GetOldSUBCUENTAValue; property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue; property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldESTADO : String read GetOldESTADOValue; property OldESTADO_EJERCICIO : String read GetOldESTADO_EJERCICIOValue;
property OldASIENTO_PUNTEADO : SmallInt read GetOldASIENTO_PUNTEADOValue;
end; end;
{ TFacturasProveedorBusinessProcessorRules } { TFacturasProveedorBusinessProcessorRules }
@ -349,12 +351,18 @@ type
function GetOldID_EJERCICIOIsNull: Boolean; virtual; function GetOldID_EJERCICIOIsNull: Boolean; virtual;
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual; procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual; procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
function GetESTADOValue: String; virtual; function GetESTADO_EJERCICIOValue: String; virtual;
function GetESTADOIsNull: Boolean; virtual; function GetESTADO_EJERCICIOIsNull: Boolean; virtual;
function GetOldESTADOValue: String; virtual; function GetOldESTADO_EJERCICIOValue: String; virtual;
function GetOldESTADOIsNull: Boolean; virtual; function GetOldESTADO_EJERCICIOIsNull: Boolean; virtual;
procedure SetESTADOValue(const aValue: String); virtual; procedure SetESTADO_EJERCICIOValue(const aValue: String); virtual;
procedure SetESTADOIsNull(const aValue: Boolean); virtual; procedure SetESTADO_EJERCICIOIsNull(const aValue: Boolean); virtual;
function GetASIENTO_PUNTEADOValue: SmallInt; virtual;
function GetASIENTO_PUNTEADOIsNull: Boolean; virtual;
function GetOldASIENTO_PUNTEADOValue: SmallInt; virtual;
function GetOldASIENTO_PUNTEADOIsNull: Boolean; virtual;
procedure SetASIENTO_PUNTEADOValue(const aValue: SmallInt); virtual;
procedure SetASIENTO_PUNTEADOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -517,10 +525,14 @@ type
property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull; property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue; property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull; property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull;
property ESTADO : String read GetESTADOValue write SetESTADOValue; property ESTADO_EJERCICIO : String read GetESTADO_EJERCICIOValue write SetESTADO_EJERCICIOValue;
property ESTADOIsNull : Boolean read GetESTADOIsNull write SetESTADOIsNull; property ESTADO_EJERCICIOIsNull : Boolean read GetESTADO_EJERCICIOIsNull write SetESTADO_EJERCICIOIsNull;
property OldESTADO : String read GetOldESTADOValue; property OldESTADO_EJERCICIO : String read GetOldESTADO_EJERCICIOValue;
property OldESTADOIsNull : Boolean read GetOldESTADOIsNull; property OldESTADO_EJERCICIOIsNull : Boolean read GetOldESTADO_EJERCICIOIsNull;
property ASIENTO_PUNTEADO : SmallInt read GetASIENTO_PUNTEADOValue write SetASIENTO_PUNTEADOValue;
property ASIENTO_PUNTEADOIsNull : Boolean read GetASIENTO_PUNTEADOIsNull write SetASIENTO_PUNTEADOIsNull;
property OldASIENTO_PUNTEADO : SmallInt read GetOldASIENTO_PUNTEADOValue;
property OldASIENTO_PUNTEADOIsNull : Boolean read GetOldASIENTO_PUNTEADOIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -530,7 +542,7 @@ type
{ IFacturasProveedor_DetallesDelta } { IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles) IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
['{69B9422B-A4B5-43D5-A992-EFB3F0FB5231}'] ['{49E22119-767F-4CB5-A74E-87923CDA4BD6}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -1982,35 +1994,66 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_EJERCICIO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_EJERCICIO] := Null;
end; end;
function TFacturasProveedorBusinessProcessorRules.GetESTADOValue: String; function TFacturasProveedorBusinessProcessorRules.GetESTADO_EJERCICIOValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorESTADO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorESTADO_EJERCICIO];
end; end;
function TFacturasProveedorBusinessProcessorRules.GetESTADOIsNull: Boolean; function TFacturasProveedorBusinessProcessorRules.GetESTADO_EJERCICIOIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorESTADO]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorESTADO_EJERCICIO]);
end; end;
function TFacturasProveedorBusinessProcessorRules.GetOldESTADOValue: String; function TFacturasProveedorBusinessProcessorRules.GetOldESTADO_EJERCICIOValue: String;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorESTADO]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorESTADO_EJERCICIO];
end; end;
function TFacturasProveedorBusinessProcessorRules.GetOldESTADOIsNull: Boolean; function TFacturasProveedorBusinessProcessorRules.GetOldESTADO_EJERCICIOIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorESTADO]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorESTADO_EJERCICIO]);
end; end;
procedure TFacturasProveedorBusinessProcessorRules.SetESTADOValue(const aValue: String); procedure TFacturasProveedorBusinessProcessorRules.SetESTADO_EJERCICIOValue(const aValue: String);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorESTADO] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorESTADO_EJERCICIO] := aValue;
end; end;
procedure TFacturasProveedorBusinessProcessorRules.SetESTADOIsNull(const aValue: Boolean); procedure TFacturasProveedorBusinessProcessorRules.SetESTADO_EJERCICIOIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorESTADO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorESTADO_EJERCICIO] := Null;
end;
function TFacturasProveedorBusinessProcessorRules.GetASIENTO_PUNTEADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorASIENTO_PUNTEADO];
end;
function TFacturasProveedorBusinessProcessorRules.GetASIENTO_PUNTEADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorASIENTO_PUNTEADO]);
end;
function TFacturasProveedorBusinessProcessorRules.GetOldASIENTO_PUNTEADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorASIENTO_PUNTEADO];
end;
function TFacturasProveedorBusinessProcessorRules.GetOldASIENTO_PUNTEADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorASIENTO_PUNTEADO]);
end;
procedure TFacturasProveedorBusinessProcessorRules.SetASIENTO_PUNTEADOValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorASIENTO_PUNTEADO] := aValue;
end;
procedure TFacturasProveedorBusinessProcessorRules.SetASIENTO_PUNTEADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorASIENTO_PUNTEADO] := Null;
end; end;

14
Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
View File

@ -184,8 +184,12 @@ object srvFacturasProveedor: TsrvFacturasProveedor
TableField = 'ID_EJERCICIO' TableField = 'ID_EJERCICIO'
end end
item item
DatasetField = 'ESTADO' DatasetField = 'ESTADO_EJERCICIO'
TableField = 'ESTADO' TableField = 'ESTADO_EJERCICIO'
end
item
DatasetField = 'ASIENTO_PUNTEADO'
TableField = 'ASIENTO_PUNTEADO'
end> end>
end> end>
Name = 'FacturasProveedor' Name = 'FacturasProveedor'
@ -403,9 +407,13 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DataType = datInteger DataType = datInteger
end end
item item
Name = 'ESTADO' Name = 'ESTADO_EJERCICIO'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'ASIENTO_PUNTEADO'
DataType = datSmallInt
end> end>
end end
item item

59
Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj
View File

@ -41,7 +41,6 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></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 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">FacturasProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FacturasProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
@ -50,35 +49,35 @@
<DelphiCompile Include="FacturasProveedor_view.dpk"> <DelphiCompile Include="FacturasProveedor_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\adortl.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\adortl.dcp" />
<DCCReference Include="..\..\Lib\Articulos_view.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\Articulos_view.dcp" />
<DCCReference Include="..\..\Lib\Contabilidad_controller.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\Contabilidad_controller.dcp" />
<DCCReference Include="..\..\Lib\Contabilidad_view.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\Contabilidad_view.dcp" />
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\Contactos_controller.dcp" />
<DCCReference Include="..\..\Lib\Contactos_model.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\Contactos_model.dcp" />
<DCCReference Include="..\..\Lib\cxDataD11.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\cxDataD11.dcp" />
<DCCReference Include="..\..\Lib\cxEditorsD11.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\dbrtl.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\dbrtl.dcp" />
<DCCReference Include="..\..\Lib\dsnap.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\dsnap.dcp" />
<DCCReference Include="..\..\Lib\dxComnD11.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\dxComnD11.dcp" />
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\..\Lib\FacturasProveedor_controller.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\FacturasProveedor_controller.dcp" />
<DCCReference Include="..\..\Lib\FacturasProveedor_model.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\FacturasProveedor_model.dcp" />
<DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\GestorInformes_controller.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\PngComponentsD10.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Lib\PNG_D10.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\PNG_D10.dcp" />
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\rtl.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\vcl.dcp" />
<DCCReference Include="..\..\Lib\vclactnband.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\vclactnband.dcp" />
<DCCReference Include="..\..\Lib\vcldb.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\vcldb.dcp" />
<DCCReference Include="..\..\Lib\vcljpg.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\vcljpg.dcp" />
<DCCReference Include="..\..\Lib\vclx.dcp" /> <DCCReference Include="..\..\..\..\Output\Debug\Servidor\vclx.dcp" />
<DCCReference Include="uEditorElegirArticulosFacturaProveedor.pas"> <DCCReference Include="uEditorElegirArticulosFacturaProveedor.pas">
<Form>fEditorElegirArticulosFacturaProveedor</Form> <Form>fEditorElegirArticulosFacturaProveedor</Form>
<DesignClass>TfEditorElegirArticulosFacturaProveedor</DesignClass> <DesignClass>TfEditorElegirArticulosFacturaProveedor</DesignClass>

97
Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm
View File

@ -2,7 +2,6 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
Caption = 'Lista de facturas de proveedor' Caption = 'Lista de facturas de proveedor'
ClientHeight = 666 ClientHeight = 666
ClientWidth = 640 ClientWidth = 640
ExplicitTop = -43
ExplicitWidth = 648 ExplicitWidth = 648
ExplicitHeight = 700 ExplicitHeight = 700
PixelsPerInch = 96 PixelsPerInch = 96
@ -64,9 +63,10 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Visible = True Visible = True
ExplicitWidth = 66 ExplicitWidth = 83
object TBXItem40: TTBXItem object TBXItem40: TTBXItem
Action = actInformes Action = actInformes
DisplayMode = nbdmImageAndText
end end
end end
end end
@ -255,6 +255,7 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
object actInformes: TAction object actInformes: TAction
Category = 'Archivo' Category = 'Archivo'
Caption = 'Informes' Caption = 'Informes'
ImageIndex = 25
OnExecute = actInformesExecute OnExecute = actInformesExecute
end end
end end
@ -981,6 +982,27 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
064200A70120096201BA0100A6C62916A56F74520000000049454E44AE426082} 064200A70120096201BA0100A6C62916A56F74520000000049454E44AE426082}
Name = 'PngImage24' Name = 'PngImage24'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000001A24944415478DA
63FC61C0F09F71F72C86FFAE690C307A76D176065C2037CE9311C6FEFFFF3F03
E3CFD7B3FEFFEF5DC7C0D0B003883D18188B8318D84452E11AFE0115FDFDFB0F
8CE7ACDACB306FE92686F33BA733C20D00B980E10403031BDB6F865FBF581918
2C1818D8CFFF47D1FC076AC082B5FB1974D455188AEAFAC086E07481FB5A3B0C
A7AF8F926358B2E12043B0A70DC3CD7B2FC0869CDB318D91115B18B09E45D8FA
F71F82BD7CF361B01760006C008C3379D1F6FF39B11E0C5316EF6020047C9CCC
1882926B300DC88C766330F5CA6138B26102D04654FF835C02A237EE39C9E061
67C210965E8769405A840B83856F1E5EDB93A2FD189CAD0D19A2B31A310D480A
7542B11542FF87DAFE1FC8FFCBF0E70F443C3EAF19D380B8400706FFA50F0986
419F2D374372511BA601D17E76105BFFC1FCFD1FC287DAFA1BC90519A51D9806
847BDB30ACDC7A84A00B8C74D419722ABB310D08F6B062F08EAD60583FAF151E
06C8FE06D1A72E5E63D0D3546528A8E9C53420C0D582C12FA18A602CC0923386
01BECEE6509BFE426D4762435D014AFF2080D500E4644A0C00190000D63E5BF0
41A130430000000049454E44AE426082}
Name = 'PngImage25'
Background = clWindow
end> end>
Left = 395 Left = 395
Bitmap = {} Bitmap = {}
@ -3371,37 +3393,44 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
end end
object JsListaFacturasNoEliminadas: TJSDialog object JsListaFacturasNoEliminadas: TJSDialog
Glyph.Data = { Glyph.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00 0B546478504E47496D61676589504E470D0A1A0A0000000D4948445200000018
00001C0806000000720DDF940000000970485973000017120000171201679FD2 000000180806000000E0773DF8000000017352474200AECE1CE9000000046741
520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14 4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD 80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2 0AE900000AE901FD75CED3000003F049444154484BBD557B6C53651C3D7DAD7B
3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD B0ADADC0363ADDA0834D2DDA6E5904A24C17E64864BAF8484C348E104940FD47
B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010 128D31121213134DD4C4F8644F794C6413188E81A003B3A15B8AC87C4CA39D9A
60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3 685013515B36D8B3F7E7F9AEDCDAB9760F62BCC94D9ADEEF3BE7FCCE777EBFCF
21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045 2422F8DF9ED781A56D0EFB730D56945D0EA9BE3F2F676F3D70DF36C01C15FF0A
A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8 30AF333BB9E9E74ADF68E4A12A19A8F0851BADB869B6242F00292DD9AE6DBD2B
225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281 BD43273D4E79371D5A1DB05527B807B0BCE7C0FEC1EB20A3373A447B60B5688F
081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87 544BF0567FA8113393D45970F3C9E265FD7D371448E77C93746442DB6945B322
A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F D5099ACCD8F8DBD5D0467C90E1EB21178A6D3276979F247748B0A2385C6FC5EA
70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B 789550A1EBD02247DD57AB964DF4E4A7C9072E487B06B426139E55A2D51E9DE0
EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F 656051201B030A7C885584BC9073D740C2E55789B6799D0C54964CB1EB0D6065
286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8 4F81EBC76FFDD9F2E17CE8E0B465BCC18C4763C544CF603B5074C68D5FFFBC16
6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10 C26AE49742C84F4B21677D193252532EC1B5A521E34C76D9CD0FF67B175CFCCC
81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8 931A056F4BC3700370FFBF2B9D94D02660455F2E060DF01F3C90E062C8371E8B
CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF FC5EE593606569B8353D69F7803F2B12C8B546C10F109CA9B92D9E8D535A6087
469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32 05EBFADC1835C0BFCE837C7125E44C2EC94A72E4F4E264F928CB2427AE80BCEF
F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF 841C9C8771567F6FA2B4C5EDB15D366CF8D48D8928B81B722A07D29305E95E80
86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165 28383D8FD0F387A78B72C2266E4EC29304D5782E71C10F5D4ACB4C7D92904075
4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF E1DE64040254FE319577C5283F9209A1EF5A1DE34802D39C2BA0A7B6B7D3936A
673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2 BFBC65B966801FA7E7C7E8F96182D31AD99F06D9930CAD16786A4E04044F6D77
ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312 BB0E9CDB52239F143A75E5F1C05B52206FD9216F5A75922DB33A6482671E5B92
FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312 73E2E2E335F25DA57F0A382DFB638F1DE70DF09D3648A305B2DD840936DEA669
82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA 634ACFAD47721D1D639BAA24B47EAD742D344D52DE9A82610A287B0D286C34A3
1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082} 7B87F56FF05A1384E0C2293AC66F35091BAD25DDF6F460758936B1A1424E79D2
Instruction.Text = A593AD7FD401E9C880EC4B458436AC3736B770CE10F431FE7741811BEF25128E
'Las siguientes facturas no han podido ser eliminadas, porque tie' + A17F1E3D4554527E7655FEB8DCE993EF4BDD93C0555AEA4D783E5EF954EC2568
'nen recibos con pagos o devoluciones emitidas' 2F5F2D8668E455A0CA58AF139C2E5AD82FD5CBE5FC9A0239CE716B2867970A3B
BB4BA52AD121D2DA24126D25C9704C2543DCB3263A4DBBF39DAD91DBBD12C84B
9904DE6CC7A0BAA1666A26F59D80C524E88BA924AC26AE5E418305777F5EE414
5E3AC20E95362A6752D48DB47936E0C69A97003B053DA3CE82E0115A55A613A8
32391A7ADBD9400AFC9D5426C48CA3AA9BE74260ACA5652BF8BE18B548FDE0F5
E662F40E2BE5CC77880B965C0EF8B4F7818A1F6D7982F1DBF85F801B15FC059E
6028BEE22B69170000000049454E44AE426082}
Instruction.Text = 'Las siguientes facturas no han podido ser eliminadas:'
Instruction.Glyph.Data = { Instruction.Glyph.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
00001C0806000000720DDF940000000970485973000017120000171201679FD2 00001C0806000000720DDF940000000970485973000017120000171201679FD2
@ -3667,7 +3696,7 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000 0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
0007C0000007C000000700000007000000070000000700000007C000000FC000 0007C0000007C000000700000007000000070000000700000007C000000FC000
001F8000003F800000FFF8FFFFFF} 001F8000003F800000FFF8FFFFFF}
Width = 450 Width = 600
Left = 184 Left = 184
Top = 112 Top = 112
end end

24
Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas
View File

@ -12,7 +12,7 @@ uses
uEditorGridBase, uBizFacturasProveedor, uIEditorFacturasProveedor, uEditorGridBase, uBizFacturasProveedor, uIEditorFacturasProveedor,
uFacturasProveedorController, uCustomView, uViewBase, uViewBarraSeleccion, uFacturasProveedorController, uCustomView, uViewBase, uViewBarraSeleccion,
uViewGridBase, JvExComCtrls, JvStatusBar, JSDialog, uViewGridBase, JvExComCtrls, JvStatusBar, JSDialog,
uViewFacturasProveedor, uDAInterfaces; uViewFacturasProveedor, uDAInterfaces, dxGDIPlusClasses;
type type
@ -82,9 +82,7 @@ procedure TfEditorFacturasProveedor.actEliminarUpdate(Sender: TObject);
begin begin
inherited; inherited;
if (Sender as TAction).Enabled then if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := (FFacturas.SITUACION = CTE_PENDIENTE) (Sender as TAction).Enabled := (FFacturas.SITUACION = CTE_PENDIENTE);
//Si el ejercicio al que pertenece la factura esta cerrado no se podrá eliminar
and (FFacturas.ESTADO <> CTE_CERRADO);
end; end;
procedure TfEditorFacturasProveedor.actInformesExecute(Sender: TObject); procedure TfEditorFacturasProveedor.actInformesExecute(Sender: TObject);
@ -190,9 +188,12 @@ var
ACadena : String; ACadena : String;
AFacturas: IBizFacturaProveedor; AFacturas: IBizFacturaProveedor;
AllItems: Boolean; AllItems: Boolean;
AListaCausas: TStringList;
begin begin
AFacturas := Nil; AFacturas := Nil;
AllItems := False; AllItems := False;
AListaCausas := TStringList.Create;
if MultiSelect and Assigned(ViewGrid) then if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1); AllItems := (ViewGrid.NumSeleccionados > 1);
@ -217,11 +218,16 @@ begin
if Assigned(AFacturas) then if Assigned(AFacturas) then
begin begin
if (not FController.Eliminar(AFacturas, AllItems)) if (not FController.Eliminar(AFacturas, AllItems, AListaCausas))
and (not AllItems) then //Es el caso de querer borrar una factura pendiente cuyos recibos tienen devoluciones //En el caso de querer borrar una factura pendiente cuyos recibos tienen devoluciones
and (not AllItems) then
begin begin
JsListaFacturasNoEliminadas.Content.Clear; JsListaFacturasNoEliminadas.Content.Clear;
JsListaFacturasNoEliminadas.Content.Add('Ref. factura: ' + AFacturas.REFERENCIA + ' ' + AFacturas.NOMBRE); JsListaFacturasNoEliminadas.Content.Add('Ref. factura: ' + AFacturas.REFERENCIA + ' ' + AFacturas.NOMBRE);
if Length(VarToStr(AListaCausas.Values[IntToStr(AFacturas.ID)])) > 0 then
JsListaFacturasNoEliminadas.Content.Add(VarToStr(AListaCausas.Values[IntToStr(AFacturas.ID)]))
else
JsListaFacturasNoEliminadas.Content.Add('La factura puede tener algún recibo devuelto y no puede ser eliminada');
JsListaFacturasNoEliminadas.Execute; JsListaFacturasNoEliminadas.Execute;
end; end;
@ -236,6 +242,11 @@ begin
while not EOF do while not EOF do
begin begin
JsListaFacturasNoEliminadas.Content.Add('Ref. factura: ' + AFacturas.REFERENCIA + ' ' + AFacturas.NOMBRE); JsListaFacturasNoEliminadas.Content.Add('Ref. factura: ' + AFacturas.REFERENCIA + ' ' + AFacturas.NOMBRE);
if Length(AListaCausas.Values[IntToStr(AFacturas.ID)]) > 0 then
JsListaFacturasNoEliminadas.Content.Add(VarToStr(AListaCausas.Values[IntToStr(AFacturas.ID)]))
else
JsListaFacturasNoEliminadas.Content.Add('La factura puede tener algún recibo devuelto y no puede ser eliminada');
JsListaFacturasNoEliminadas.Content.Add('');
Next; Next;
end; end;
end; end;
@ -245,6 +256,7 @@ begin
end; end;
end; end;
AListaCausas.Free;
ViewGrid.GotoFirst; ViewGrid.GotoFirst;
end; end;

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

@ -111,6 +111,28 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
item item
Name = 'IGNORAR_CONTABILIDAD' Name = 'IGNORAR_CONTABILIDAD'
DataType = datSmallInt DataType = datSmallInt
end
item
Name = 'ID_SUBCUENTA'
DataType = datInteger
end
item
Name = 'SUBCUENTA'
DataType = datString
Size = 255
end
item
Name = 'ID_EJERCICIO'
DataType = datInteger
end
item
Name = 'ESTADO_EJERCICIO'
DataType = datString
Size = 255
end
item
Name = 'ASIENTO_PUNTEADO'
DataType = datSmallInt
end> end>
Params = <> Params = <>
MasterMappingMode = mmWhere MasterMappingMode = mmWhere

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

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_RecibosCliente = '{54EEB874-6715-46B6-A82A-04AB24879A98}'; RID_RecibosCliente = '{83925C8D-8CDD-471F-95E7-3D94225FA3B9}';
RID_PagosCliente = '{B35119A8-398B-4FF5-8A00-4F8122E723F3}'; RID_PagosCliente = '{6D505274-2913-4C4E-9C64-3CF6F7035F70}';
RID_RecibosCompensadosCli = '{A7454A3D-421E-45A7-9CB0-B8A3F75F8B10}'; RID_RecibosCompensadosCli = '{AB4C31E9-E8B8-4AE3-A95A-B5A0D5F5E7F3}';
{ Data table names } { Data table names }
nme_RecibosCliente = 'RecibosCliente'; nme_RecibosCliente = 'RecibosCliente';
@ -108,6 +108,11 @@ const
fld_PagosClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_PagosClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_PagosClienteUSUARIO = 'USUARIO'; fld_PagosClienteUSUARIO = 'USUARIO';
fld_PagosClienteIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD'; fld_PagosClienteIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
fld_PagosClienteID_SUBCUENTA = 'ID_SUBCUENTA';
fld_PagosClienteSUBCUENTA = 'SUBCUENTA';
fld_PagosClienteID_EJERCICIO = 'ID_EJERCICIO';
fld_PagosClienteESTADO_EJERCICIO = 'ESTADO_EJERCICIO';
fld_PagosClienteASIENTO_PUNTEADO = 'ASIENTO_PUNTEADO';
{ PagosCliente field indexes } { PagosCliente field indexes }
idx_PagosClienteID = 0; idx_PagosClienteID = 0;
@ -123,6 +128,11 @@ const
idx_PagosClienteFECHA_MODIFICACION = 10; idx_PagosClienteFECHA_MODIFICACION = 10;
idx_PagosClienteUSUARIO = 11; idx_PagosClienteUSUARIO = 11;
idx_PagosClienteIGNORAR_CONTABILIDAD = 12; idx_PagosClienteIGNORAR_CONTABILIDAD = 12;
idx_PagosClienteID_SUBCUENTA = 13;
idx_PagosClienteSUBCUENTA = 14;
idx_PagosClienteID_EJERCICIO = 15;
idx_PagosClienteESTADO_EJERCICIO = 16;
idx_PagosClienteASIENTO_PUNTEADO = 17;
{ RecibosCompensadosCli fields } { RecibosCompensadosCli fields }
fld_RecibosCompensadosCliID = 'ID'; fld_RecibosCompensadosCliID = 'ID';
@ -203,7 +213,7 @@ const
type type
{ IRecibosCliente } { IRecibosCliente }
IRecibosCliente = interface(IDAStronglyTypedDataTable) IRecibosCliente = interface(IDAStronglyTypedDataTable)
['{416EE74E-EB7B-4CF4-B765-E2A87F9C2B37}'] ['{E9F7D1F3-CB56-4C0E-B493-853CFEE73672}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -658,7 +668,7 @@ type
{ IPagosCliente } { IPagosCliente }
IPagosCliente = interface(IDAStronglyTypedDataTable) IPagosCliente = interface(IDAStronglyTypedDataTable)
['{F908AFBE-296E-4538-9827-AE99EFDAA57F}'] ['{E5953A2B-D345-4F0E-8018-16A50961F9E4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -712,6 +722,26 @@ type
procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt);
function GetIGNORAR_CONTABILIDADIsNull: Boolean; function GetIGNORAR_CONTABILIDADIsNull: Boolean;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
function GetID_SUBCUENTAValue: Integer;
procedure SetID_SUBCUENTAValue(const aValue: Integer);
function GetID_SUBCUENTAIsNull: Boolean;
procedure SetID_SUBCUENTAIsNull(const aValue: Boolean);
function GetSUBCUENTAValue: String;
procedure SetSUBCUENTAValue(const aValue: String);
function GetSUBCUENTAIsNull: Boolean;
procedure SetSUBCUENTAIsNull(const aValue: Boolean);
function GetID_EJERCICIOValue: Integer;
procedure SetID_EJERCICIOValue(const aValue: Integer);
function GetID_EJERCICIOIsNull: Boolean;
procedure SetID_EJERCICIOIsNull(const aValue: Boolean);
function GetESTADO_EJERCICIOValue: String;
procedure SetESTADO_EJERCICIOValue(const aValue: String);
function GetESTADO_EJERCICIOIsNull: Boolean;
procedure SetESTADO_EJERCICIOIsNull(const aValue: Boolean);
function GetASIENTO_PUNTEADOValue: SmallInt;
procedure SetASIENTO_PUNTEADOValue(const aValue: SmallInt);
function GetASIENTO_PUNTEADOIsNull: Boolean;
procedure SetASIENTO_PUNTEADOIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -741,6 +771,16 @@ type
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property IGNORAR_CONTABILIDAD: SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue; property IGNORAR_CONTABILIDAD: SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull; property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
property ID_SUBCUENTA: Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property ESTADO_EJERCICIO: String read GetESTADO_EJERCICIOValue write SetESTADO_EJERCICIOValue;
property ESTADO_EJERCICIOIsNull: Boolean read GetESTADO_EJERCICIOIsNull write SetESTADO_EJERCICIOIsNull;
property ASIENTO_PUNTEADO: SmallInt read GetASIENTO_PUNTEADOValue write SetASIENTO_PUNTEADOValue;
property ASIENTO_PUNTEADOIsNull: Boolean read GetASIENTO_PUNTEADOIsNull write SetASIENTO_PUNTEADOIsNull;
end; end;
{ TPagosClienteDataTableRules } { TPagosClienteDataTableRules }
@ -800,6 +840,26 @@ type
procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); virtual; procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); virtual;
function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual; function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual; procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
function GetID_SUBCUENTAValue: Integer; virtual;
procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual;
function GetID_SUBCUENTAIsNull: Boolean; virtual;
procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetSUBCUENTAValue: String; virtual;
procedure SetSUBCUENTAValue(const aValue: String); virtual;
function GetSUBCUENTAIsNull: Boolean; virtual;
procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetID_EJERCICIOValue: Integer; virtual;
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
function GetID_EJERCICIOIsNull: Boolean; virtual;
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
function GetESTADO_EJERCICIOValue: String; virtual;
procedure SetESTADO_EJERCICIOValue(const aValue: String); virtual;
function GetESTADO_EJERCICIOIsNull: Boolean; virtual;
procedure SetESTADO_EJERCICIOIsNull(const aValue: Boolean); virtual;
function GetASIENTO_PUNTEADOValue: SmallInt; virtual;
procedure SetASIENTO_PUNTEADOValue(const aValue: SmallInt); virtual;
function GetASIENTO_PUNTEADOIsNull: Boolean; virtual;
procedure SetASIENTO_PUNTEADOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -828,6 +888,16 @@ type
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property IGNORAR_CONTABILIDAD: SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue; property IGNORAR_CONTABILIDAD: SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull; property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
property ID_SUBCUENTA: Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property ESTADO_EJERCICIO: String read GetESTADO_EJERCICIOValue write SetESTADO_EJERCICIOValue;
property ESTADO_EJERCICIOIsNull: Boolean read GetESTADO_EJERCICIOIsNull write SetESTADO_EJERCICIOIsNull;
property ASIENTO_PUNTEADO: SmallInt read GetASIENTO_PUNTEADOValue write SetASIENTO_PUNTEADOValue;
property ASIENTO_PUNTEADOIsNull: Boolean read GetASIENTO_PUNTEADOIsNull write SetASIENTO_PUNTEADOIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -837,7 +907,7 @@ type
{ IRecibosCompensadosCli } { IRecibosCompensadosCli }
IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable) IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
['{1D5A6596-4976-49A3-B1C3-40B57B6BBAFF}'] ['{F5CFE9D4-9477-43FF-AFBE-F6CFAC4D4313}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2346,6 +2416,111 @@ begin
DataTable.Fields[idx_PagosClienteIGNORAR_CONTABILIDAD].AsVariant := Null; DataTable.Fields[idx_PagosClienteIGNORAR_CONTABILIDAD].AsVariant := Null;
end; end;
function TPagosClienteDataTableRules.GetID_SUBCUENTAValue: Integer;
begin
result := DataTable.Fields[idx_PagosClienteID_SUBCUENTA].AsInteger;
end;
procedure TPagosClienteDataTableRules.SetID_SUBCUENTAValue(const aValue: Integer);
begin
DataTable.Fields[idx_PagosClienteID_SUBCUENTA].AsInteger := aValue;
end;
function TPagosClienteDataTableRules.GetID_SUBCUENTAIsNull: boolean;
begin
result := DataTable.Fields[idx_PagosClienteID_SUBCUENTA].IsNull;
end;
procedure TPagosClienteDataTableRules.SetID_SUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PagosClienteID_SUBCUENTA].AsVariant := Null;
end;
function TPagosClienteDataTableRules.GetSUBCUENTAValue: String;
begin
result := DataTable.Fields[idx_PagosClienteSUBCUENTA].AsString;
end;
procedure TPagosClienteDataTableRules.SetSUBCUENTAValue(const aValue: String);
begin
DataTable.Fields[idx_PagosClienteSUBCUENTA].AsString := aValue;
end;
function TPagosClienteDataTableRules.GetSUBCUENTAIsNull: boolean;
begin
result := DataTable.Fields[idx_PagosClienteSUBCUENTA].IsNull;
end;
procedure TPagosClienteDataTableRules.SetSUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PagosClienteSUBCUENTA].AsVariant := Null;
end;
function TPagosClienteDataTableRules.GetID_EJERCICIOValue: Integer;
begin
result := DataTable.Fields[idx_PagosClienteID_EJERCICIO].AsInteger;
end;
procedure TPagosClienteDataTableRules.SetID_EJERCICIOValue(const aValue: Integer);
begin
DataTable.Fields[idx_PagosClienteID_EJERCICIO].AsInteger := aValue;
end;
function TPagosClienteDataTableRules.GetID_EJERCICIOIsNull: boolean;
begin
result := DataTable.Fields[idx_PagosClienteID_EJERCICIO].IsNull;
end;
procedure TPagosClienteDataTableRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PagosClienteID_EJERCICIO].AsVariant := Null;
end;
function TPagosClienteDataTableRules.GetESTADO_EJERCICIOValue: String;
begin
result := DataTable.Fields[idx_PagosClienteESTADO_EJERCICIO].AsString;
end;
procedure TPagosClienteDataTableRules.SetESTADO_EJERCICIOValue(const aValue: String);
begin
DataTable.Fields[idx_PagosClienteESTADO_EJERCICIO].AsString := aValue;
end;
function TPagosClienteDataTableRules.GetESTADO_EJERCICIOIsNull: boolean;
begin
result := DataTable.Fields[idx_PagosClienteESTADO_EJERCICIO].IsNull;
end;
procedure TPagosClienteDataTableRules.SetESTADO_EJERCICIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PagosClienteESTADO_EJERCICIO].AsVariant := Null;
end;
function TPagosClienteDataTableRules.GetASIENTO_PUNTEADOValue: SmallInt;
begin
result := DataTable.Fields[idx_PagosClienteASIENTO_PUNTEADO].AsSmallInt;
end;
procedure TPagosClienteDataTableRules.SetASIENTO_PUNTEADOValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_PagosClienteASIENTO_PUNTEADO].AsSmallInt := aValue;
end;
function TPagosClienteDataTableRules.GetASIENTO_PUNTEADOIsNull: boolean;
begin
result := DataTable.Fields[idx_PagosClienteASIENTO_PUNTEADO].IsNull;
end;
procedure TPagosClienteDataTableRules.SetASIENTO_PUNTEADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PagosClienteASIENTO_PUNTEADO].AsVariant := Null;
end;
{ TRecibosCompensadosCliDataTableRules } { TRecibosCompensadosCliDataTableRules }
constructor TRecibosCompensadosCliDataTableRules.Create(aDataTable: TDADataTable); constructor TRecibosCompensadosCliDataTableRules.Create(aDataTable: TDADataTable);

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

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_RecibosClienteDelta = '{9E82239C-B734-475B-B8FD-4871173BD2C1}'; RID_RecibosClienteDelta = '{EA14D503-60F2-40E0-AC46-B289B3FE87FD}';
RID_PagosClienteDelta = '{90080EE3-4FB0-4987-8267-214F13A79183}'; RID_PagosClienteDelta = '{FD903D99-7EAA-4C30-A79C-82C97E9B5098}';
RID_RecibosCompensadosCliDelta = '{C9412B31-0985-4CCC-B340-E45D44C1D87B}'; RID_RecibosCompensadosCliDelta = '{A992F752-5824-4FA9-A17A-56EE6C368C9E}';
type type
{ IRecibosClienteDelta } { IRecibosClienteDelta }
IRecibosClienteDelta = interface(IRecibosCliente) IRecibosClienteDelta = interface(IRecibosCliente)
['{9E82239C-B734-475B-B8FD-4871173BD2C1}'] ['{EA14D503-60F2-40E0-AC46-B289B3FE87FD}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -470,7 +470,7 @@ type
{ IPagosClienteDelta } { IPagosClienteDelta }
IPagosClienteDelta = interface(IPagosCliente) IPagosClienteDelta = interface(IPagosCliente)
['{90080EE3-4FB0-4987-8267-214F13A79183}'] ['{FD903D99-7EAA-4C30-A79C-82C97E9B5098}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer; function GetOldID_RECIBOValue : Integer;
@ -485,6 +485,11 @@ type
function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
function GetOldIGNORAR_CONTABILIDADValue : SmallInt; function GetOldIGNORAR_CONTABILIDADValue : SmallInt;
function GetOldID_SUBCUENTAValue : Integer;
function GetOldSUBCUENTAValue : String;
function GetOldID_EJERCICIOValue : Integer;
function GetOldESTADO_EJERCICIOValue : String;
function GetOldASIENTO_PUNTEADOValue : SmallInt;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -500,6 +505,11 @@ type
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue; property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue;
property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldESTADO_EJERCICIO : String read GetOldESTADO_EJERCICIOValue;
property OldASIENTO_PUNTEADO : SmallInt read GetOldASIENTO_PUNTEADOValue;
end; end;
{ TPagosClienteBusinessProcessorRules } { TPagosClienteBusinessProcessorRules }
@ -585,6 +595,36 @@ type
function GetOldIGNORAR_CONTABILIDADIsNull: Boolean; virtual; function GetOldIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); virtual; procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); virtual;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual; procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
function GetID_SUBCUENTAValue: Integer; virtual;
function GetID_SUBCUENTAIsNull: Boolean; virtual;
function GetOldID_SUBCUENTAValue: Integer; virtual;
function GetOldID_SUBCUENTAIsNull: Boolean; virtual;
procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual;
procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetSUBCUENTAValue: String; virtual;
function GetSUBCUENTAIsNull: Boolean; virtual;
function GetOldSUBCUENTAValue: String; virtual;
function GetOldSUBCUENTAIsNull: Boolean; virtual;
procedure SetSUBCUENTAValue(const aValue: String); virtual;
procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetID_EJERCICIOValue: Integer; virtual;
function GetID_EJERCICIOIsNull: Boolean; virtual;
function GetOldID_EJERCICIOValue: Integer; virtual;
function GetOldID_EJERCICIOIsNull: Boolean; virtual;
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
function GetESTADO_EJERCICIOValue: String; virtual;
function GetESTADO_EJERCICIOIsNull: Boolean; virtual;
function GetOldESTADO_EJERCICIOValue: String; virtual;
function GetOldESTADO_EJERCICIOIsNull: Boolean; virtual;
procedure SetESTADO_EJERCICIOValue(const aValue: String); virtual;
procedure SetESTADO_EJERCICIOIsNull(const aValue: Boolean); virtual;
function GetASIENTO_PUNTEADOValue: SmallInt; virtual;
function GetASIENTO_PUNTEADOIsNull: Boolean; virtual;
function GetOldASIENTO_PUNTEADOValue: SmallInt; virtual;
function GetOldASIENTO_PUNTEADOIsNull: Boolean; virtual;
procedure SetASIENTO_PUNTEADOValue(const aValue: SmallInt); virtual;
procedure SetASIENTO_PUNTEADOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -639,6 +679,26 @@ type
property IGNORAR_CONTABILIDADIsNull : Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull; property IGNORAR_CONTABILIDADIsNull : Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue; property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue;
property OldIGNORAR_CONTABILIDADIsNull : Boolean read GetOldIGNORAR_CONTABILIDADIsNull; property OldIGNORAR_CONTABILIDADIsNull : Boolean read GetOldIGNORAR_CONTABILIDADIsNull;
property ID_SUBCUENTA : Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
property ID_SUBCUENTAIsNull : Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
property OldID_SUBCUENTAIsNull : Boolean read GetOldID_SUBCUENTAIsNull;
property SUBCUENTA : String read GetSUBCUENTAValue write SetSUBCUENTAValue;
property SUBCUENTAIsNull : Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
property OldSUBCUENTAIsNull : Boolean read GetOldSUBCUENTAIsNull;
property ID_EJERCICIO : Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull;
property ESTADO_EJERCICIO : String read GetESTADO_EJERCICIOValue write SetESTADO_EJERCICIOValue;
property ESTADO_EJERCICIOIsNull : Boolean read GetESTADO_EJERCICIOIsNull write SetESTADO_EJERCICIOIsNull;
property OldESTADO_EJERCICIO : String read GetOldESTADO_EJERCICIOValue;
property OldESTADO_EJERCICIOIsNull : Boolean read GetOldESTADO_EJERCICIOIsNull;
property ASIENTO_PUNTEADO : SmallInt read GetASIENTO_PUNTEADOValue write SetASIENTO_PUNTEADOValue;
property ASIENTO_PUNTEADOIsNull : Boolean read GetASIENTO_PUNTEADOIsNull write SetASIENTO_PUNTEADOIsNull;
property OldASIENTO_PUNTEADO : SmallInt read GetOldASIENTO_PUNTEADOValue;
property OldASIENTO_PUNTEADOIsNull : Boolean read GetOldASIENTO_PUNTEADOIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -648,7 +708,7 @@ type
{ IRecibosCompensadosCliDelta } { IRecibosCompensadosCliDelta }
IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli) IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
['{C9412B31-0985-4CCC-B340-E45D44C1D87B}'] ['{A992F752-5824-4FA9-A17A-56EE6C368C9E}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -2647,6 +2707,161 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteIGNORAR_CONTABILIDAD] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteIGNORAR_CONTABILIDAD] := Null;
end; end;
function TPagosClienteBusinessProcessorRules.GetID_SUBCUENTAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_SUBCUENTA];
end;
function TPagosClienteBusinessProcessorRules.GetID_SUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_SUBCUENTA]);
end;
function TPagosClienteBusinessProcessorRules.GetOldID_SUBCUENTAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteID_SUBCUENTA];
end;
function TPagosClienteBusinessProcessorRules.GetOldID_SUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteID_SUBCUENTA]);
end;
procedure TPagosClienteBusinessProcessorRules.SetID_SUBCUENTAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_SUBCUENTA] := aValue;
end;
procedure TPagosClienteBusinessProcessorRules.SetID_SUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_SUBCUENTA] := Null;
end;
function TPagosClienteBusinessProcessorRules.GetSUBCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteSUBCUENTA];
end;
function TPagosClienteBusinessProcessorRules.GetSUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteSUBCUENTA]);
end;
function TPagosClienteBusinessProcessorRules.GetOldSUBCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteSUBCUENTA];
end;
function TPagosClienteBusinessProcessorRules.GetOldSUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteSUBCUENTA]);
end;
procedure TPagosClienteBusinessProcessorRules.SetSUBCUENTAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteSUBCUENTA] := aValue;
end;
procedure TPagosClienteBusinessProcessorRules.SetSUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteSUBCUENTA] := Null;
end;
function TPagosClienteBusinessProcessorRules.GetID_EJERCICIOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_EJERCICIO];
end;
function TPagosClienteBusinessProcessorRules.GetID_EJERCICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_EJERCICIO]);
end;
function TPagosClienteBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteID_EJERCICIO];
end;
function TPagosClienteBusinessProcessorRules.GetOldID_EJERCICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteID_EJERCICIO]);
end;
procedure TPagosClienteBusinessProcessorRules.SetID_EJERCICIOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_EJERCICIO] := aValue;
end;
procedure TPagosClienteBusinessProcessorRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_EJERCICIO] := Null;
end;
function TPagosClienteBusinessProcessorRules.GetESTADO_EJERCICIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteESTADO_EJERCICIO];
end;
function TPagosClienteBusinessProcessorRules.GetESTADO_EJERCICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteESTADO_EJERCICIO]);
end;
function TPagosClienteBusinessProcessorRules.GetOldESTADO_EJERCICIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteESTADO_EJERCICIO];
end;
function TPagosClienteBusinessProcessorRules.GetOldESTADO_EJERCICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteESTADO_EJERCICIO]);
end;
procedure TPagosClienteBusinessProcessorRules.SetESTADO_EJERCICIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteESTADO_EJERCICIO] := aValue;
end;
procedure TPagosClienteBusinessProcessorRules.SetESTADO_EJERCICIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteESTADO_EJERCICIO] := Null;
end;
function TPagosClienteBusinessProcessorRules.GetASIENTO_PUNTEADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteASIENTO_PUNTEADO];
end;
function TPagosClienteBusinessProcessorRules.GetASIENTO_PUNTEADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteASIENTO_PUNTEADO]);
end;
function TPagosClienteBusinessProcessorRules.GetOldASIENTO_PUNTEADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteASIENTO_PUNTEADO];
end;
function TPagosClienteBusinessProcessorRules.GetOldASIENTO_PUNTEADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteASIENTO_PUNTEADO]);
end;
procedure TPagosClienteBusinessProcessorRules.SetASIENTO_PUNTEADOValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteASIENTO_PUNTEADO] := aValue;
end;
procedure TPagosClienteBusinessProcessorRules.SetASIENTO_PUNTEADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteASIENTO_PUNTEADO] := Null;
end;
{ TRecibosCompensadosCliBusinessProcessorRules } { TRecibosCompensadosCliBusinessProcessorRules }
constructor TRecibosCompensadosCliBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TRecibosCompensadosCliBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -384,7 +384,7 @@ object srvRecibosCliente: TsrvRecibosCliente
item item
Connection = 'IBX' Connection = 'IBX'
Default = True Default = True
TargetTable = 'PAGOS_CLIENTE' TargetTable = 'V_PAGOS_CLIENTE'
StatementType = stAutoSQL StatementType = stAutoSQL
ColumnMappings = < ColumnMappings = <
item item
@ -438,6 +438,26 @@ object srvRecibosCliente: TsrvRecibosCliente
item item
DatasetField = 'IGNORAR_CONTABILIDAD' DatasetField = 'IGNORAR_CONTABILIDAD'
TableField = 'IGNORAR_CONTABILIDAD' TableField = 'IGNORAR_CONTABILIDAD'
end
item
DatasetField = 'ID_SUBCUENTA'
TableField = 'ID_SUBCUENTA'
end
item
DatasetField = 'SUBCUENTA'
TableField = 'SUBCUENTA'
end
item
DatasetField = 'ID_EJERCICIO'
TableField = 'ID_EJERCICIO'
end
item
DatasetField = 'ESTADO_EJERCICIO'
TableField = 'ESTADO_EJERCICIO'
end
item
DatasetField = 'ASIENTO_PUNTEADO'
TableField = 'ASIENTO_PUNTEADO'
end> end>
end> end>
Name = 'PagosCliente' Name = 'PagosCliente'
@ -515,6 +535,28 @@ object srvRecibosCliente: TsrvRecibosCliente
item item
Name = 'IGNORAR_CONTABILIDAD' Name = 'IGNORAR_CONTABILIDAD'
DataType = datSmallInt DataType = datSmallInt
end
item
Name = 'ID_SUBCUENTA'
DataType = datInteger
end
item
Name = 'SUBCUENTA'
DataType = datString
Size = 255
end
item
Name = 'ID_EJERCICIO'
DataType = datInteger
end
item
Name = 'ESTADO_EJERCICIO'
DataType = datString
Size = 255
end
item
Name = 'ASIENTO_PUNTEADO'
DataType = datSmallInt
end> end>
end end
item item

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

@ -46,7 +46,7 @@ implementation
{$R *.dfm} {$R *.dfm}
{$INCLUDE ..\..\..\FactuGES.inc} {$INCLUDE ..\..\..\FactuGES.inc}
uses uDialogUtils, uFactuGES_App; uses uDialogUtils, uFactuGES_App, uBizEjercicios;
procedure TfEditorFechaPago.DeshabilitarContabilidad; procedure TfEditorFechaPago.DeshabilitarContabilidad;
begin begin
@ -70,11 +70,19 @@ begin
ShowWarningMessage('Debe establecer la fecha del pago'); ShowWarningMessage('Debe establecer la fecha del pago');
end; end;
if ((IgnorarContabilidad = 0) and (IdSubCuenta < 1)) then if (IgnorarContabilidad = 0) then
begin begin
CanClose := False; if (AppFactuGES.EjercicioActivo.ESTADO = CTE_CERRADO) then
ShowWarningMessage('Debe establecer la caja o banco donde se realiza el pago'); begin
end CanClose := False;
ShowWarningMessage('El pago no puede pasar a la parte contable de la aplicación porque el ejercicio activo está CERRADO');
end
else if (IdSubCuenta < 1) then
begin
CanClose := False;
ShowWarningMessage('Debe establecer la caja o banco donde se realiza el pago');
end
end;
end; end;
end; end;

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

@ -51,6 +51,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 879 Width = 879
Height = 361 Height = 361
ActivePage = pagPagos
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitLeft = 3 ExplicitLeft = 3
ExplicitTop = 79 ExplicitTop = 79
@ -451,6 +452,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 150
Width = 150
end end
inherited eOtrosGastos: TcxDBCurrencyEdit inherited eOtrosGastos: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
@ -493,8 +496,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
OnRestorePlacement = JvFormStorageRestorePlacement OnRestorePlacement = JvFormStorageRestorePlacement
end end
inherited dsDataTable: TDADataSource [9] inherited dsDataTable: TDADataSource [9]
Left = 8 Left = 16
Top = 168 Top = 200
end end
inherited JvAppRegistryStorage: TJvAppRegistryStorage [10] inherited JvAppRegistryStorage: TJvAppRegistryStorage [10]
end end

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

@ -73,8 +73,8 @@ type
implementation implementation
uses uDialogUtils, schRecibosClienteClient_Intf, uEditorFechaPago, uEditorBase, uFactuGES_App, uses uDialogUtils, schRecibosClienteClient_Intf, uEditorFechaPago, uEditorBase,
uClientesController, uBizDireccionesContacto, uViewClienteRecibo; uFactuGES_App, uBizEjercicios, uClientesController, uBizDireccionesContacto, uViewClienteRecibo;
{$R *.dfm} {$R *.dfm}
@ -223,6 +223,7 @@ 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
@ -274,8 +275,10 @@ end;
procedure TfEditorReciboCliente.frViewPagosCliente1actModificarUpdate(Sender: TObject); procedure TfEditorReciboCliente.frViewPagosCliente1actModificarUpdate(Sender: TObject);
begin begin
inherited; inherited;
//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(

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

@ -55,7 +55,7 @@ type
implementation implementation
uses uses
cxControls, DB, uEditorRegistryUtils,Dialogs, cxControls, Forms, DB, uEditorRegistryUtils,Dialogs, uFactuGES_App, uBizEjercicios,
uDAInterfaces, uDataTableUtils, uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDataModuleUsuarios,
uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants, uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants,
schRecibosProveedorClient_Intf, uDataModuleRecibosProveedor; schRecibosProveedorClient_Intf, uDataModuleRecibosProveedor;

6
Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.dproj
View File

@ -49,9 +49,9 @@
<DelphiCompile Include="RecibosProveedor_data.dpk"> <DelphiCompile Include="RecibosProveedor_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\..\Lib\Contactos_model.dcp" /> <DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\..\Lib\RecibosProveedor_model.dcp" /> <DCCReference Include="..\RecibosProveedor_model.dcp" />
<DCCReference Include="uDataModuleRecibosProveedor.pas" /> <DCCReference Include="uDataModuleRecibosProveedor.pas" />
</ItemGroup> </ItemGroup>
</Project> </Project>

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

@ -71,8 +71,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
Name = 'SUCURSAL' Name = 'SUCURSAL'
DataType = datString DataType = datString
Size = 15 Size = 15
DisplayLabel = 'PagosCliente_SUCURSAL'
DictionaryEntry = 'PagosProveedor_SUCURSAL'
end end
item item
Name = 'DC' Name = 'DC'
@ -110,6 +108,28 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
item item
Name = 'IGNORAR_CONTABILIDAD' Name = 'IGNORAR_CONTABILIDAD'
DataType = datSmallInt DataType = datSmallInt
end
item
Name = 'ID_SUBCUENTA'
DataType = datInteger
end
item
Name = 'SUBCUENTA'
DataType = datString
Size = 255
end
item
Name = 'ID_EJERCICIO'
DataType = datInteger
end
item
Name = 'ESTADO_EJERCICIO'
DataType = datString
Size = 255
end
item
Name = 'ASIENTO_PUNTEADO'
DataType = datSmallInt
end> end>
Params = <> Params = <>
MasterMappingMode = mmWhere MasterMappingMode = mmWhere

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

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_RecibosCompensadosProv = '{A4D4F8FA-E771-4944-8F36-16B6A52DF602}'; RID_RecibosCompensadosProv = '{54C2D2B1-B02A-467B-9C52-DA7767EF44A3}';
RID_RecibosProveedor = '{3B0F5C4B-BA5A-4503-9B85-D3F31A9B204E}'; RID_RecibosProveedor = '{5BC08F92-FE46-4CDD-8EDF-4A329D706989}';
RID_PagosProveedor = '{F079C5BF-44B6-4E92-98E8-EE630E2A27C9}'; RID_PagosProveedor = '{528C3735-0265-42C5-BCC4-67E35704B985}';
{ Data table names } { Data table names }
nme_RecibosCompensadosProv = 'RecibosCompensadosProv'; nme_RecibosCompensadosProv = 'RecibosCompensadosProv';
@ -192,6 +192,11 @@ const
fld_PagosProveedorFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_PagosProveedorFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_PagosProveedorUSUARIO = 'USUARIO'; fld_PagosProveedorUSUARIO = 'USUARIO';
fld_PagosProveedorIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD'; fld_PagosProveedorIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
fld_PagosProveedorID_SUBCUENTA = 'ID_SUBCUENTA';
fld_PagosProveedorSUBCUENTA = 'SUBCUENTA';
fld_PagosProveedorID_EJERCICIO = 'ID_EJERCICIO';
fld_PagosProveedorESTADO_EJERCICIO = 'ESTADO_EJERCICIO';
fld_PagosProveedorASIENTO_PUNTEADO = 'ASIENTO_PUNTEADO';
{ PagosProveedor field indexes } { PagosProveedor field indexes }
idx_PagosProveedorID = 0; idx_PagosProveedorID = 0;
@ -207,11 +212,16 @@ const
idx_PagosProveedorFECHA_MODIFICACION = 10; idx_PagosProveedorFECHA_MODIFICACION = 10;
idx_PagosProveedorUSUARIO = 11; idx_PagosProveedorUSUARIO = 11;
idx_PagosProveedorIGNORAR_CONTABILIDAD = 12; idx_PagosProveedorIGNORAR_CONTABILIDAD = 12;
idx_PagosProveedorID_SUBCUENTA = 13;
idx_PagosProveedorSUBCUENTA = 14;
idx_PagosProveedorID_EJERCICIO = 15;
idx_PagosProveedorESTADO_EJERCICIO = 16;
idx_PagosProveedorASIENTO_PUNTEADO = 17;
type type
{ IRecibosCompensadosProv } { IRecibosCompensadosProv }
IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable) IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable)
['{8CDC61D9-4223-4C3D-8DE2-93F8140FE4BC}'] ['{6945980A-8AEF-4038-ABD2-0AA3573BE03D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -690,7 +700,7 @@ type
{ IRecibosProveedor } { IRecibosProveedor }
IRecibosProveedor = interface(IDAStronglyTypedDataTable) IRecibosProveedor = interface(IDAStronglyTypedDataTable)
['{A3089684-8FDA-44D5-A5B2-3327D4894A6F}'] ['{232A2617-948E-4E49-9AC6-41265EB87C46}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1169,7 +1179,7 @@ type
{ IPagosProveedor } { IPagosProveedor }
IPagosProveedor = interface(IDAStronglyTypedDataTable) IPagosProveedor = interface(IDAStronglyTypedDataTable)
['{1C8D1CBD-87BA-47CF-ADDA-ECDF8BAF5F4E}'] ['{03E8C0E1-2295-4FF5-8FE5-DA68A3326500}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1223,6 +1233,26 @@ type
procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt);
function GetIGNORAR_CONTABILIDADIsNull: Boolean; function GetIGNORAR_CONTABILIDADIsNull: Boolean;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
function GetID_SUBCUENTAValue: Integer;
procedure SetID_SUBCUENTAValue(const aValue: Integer);
function GetID_SUBCUENTAIsNull: Boolean;
procedure SetID_SUBCUENTAIsNull(const aValue: Boolean);
function GetSUBCUENTAValue: String;
procedure SetSUBCUENTAValue(const aValue: String);
function GetSUBCUENTAIsNull: Boolean;
procedure SetSUBCUENTAIsNull(const aValue: Boolean);
function GetID_EJERCICIOValue: Integer;
procedure SetID_EJERCICIOValue(const aValue: Integer);
function GetID_EJERCICIOIsNull: Boolean;
procedure SetID_EJERCICIOIsNull(const aValue: Boolean);
function GetESTADO_EJERCICIOValue: String;
procedure SetESTADO_EJERCICIOValue(const aValue: String);
function GetESTADO_EJERCICIOIsNull: Boolean;
procedure SetESTADO_EJERCICIOIsNull(const aValue: Boolean);
function GetASIENTO_PUNTEADOValue: SmallInt;
procedure SetASIENTO_PUNTEADOValue(const aValue: SmallInt);
function GetASIENTO_PUNTEADOIsNull: Boolean;
procedure SetASIENTO_PUNTEADOIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -1252,6 +1282,16 @@ type
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property IGNORAR_CONTABILIDAD: SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue; property IGNORAR_CONTABILIDAD: SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull; property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
property ID_SUBCUENTA: Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property ESTADO_EJERCICIO: String read GetESTADO_EJERCICIOValue write SetESTADO_EJERCICIOValue;
property ESTADO_EJERCICIOIsNull: Boolean read GetESTADO_EJERCICIOIsNull write SetESTADO_EJERCICIOIsNull;
property ASIENTO_PUNTEADO: SmallInt read GetASIENTO_PUNTEADOValue write SetASIENTO_PUNTEADOValue;
property ASIENTO_PUNTEADOIsNull: Boolean read GetASIENTO_PUNTEADOIsNull write SetASIENTO_PUNTEADOIsNull;
end; end;
{ TPagosProveedorDataTableRules } { TPagosProveedorDataTableRules }
@ -1311,6 +1351,26 @@ type
procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); virtual; procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); virtual;
function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual; function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual; procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
function GetID_SUBCUENTAValue: Integer; virtual;
procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual;
function GetID_SUBCUENTAIsNull: Boolean; virtual;
procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetSUBCUENTAValue: String; virtual;
procedure SetSUBCUENTAValue(const aValue: String); virtual;
function GetSUBCUENTAIsNull: Boolean; virtual;
procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetID_EJERCICIOValue: Integer; virtual;
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
function GetID_EJERCICIOIsNull: Boolean; virtual;
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
function GetESTADO_EJERCICIOValue: String; virtual;
procedure SetESTADO_EJERCICIOValue(const aValue: String); virtual;
function GetESTADO_EJERCICIOIsNull: Boolean; virtual;
procedure SetESTADO_EJERCICIOIsNull(const aValue: Boolean); virtual;
function GetASIENTO_PUNTEADOValue: SmallInt; virtual;
procedure SetASIENTO_PUNTEADOValue(const aValue: SmallInt); virtual;
function GetASIENTO_PUNTEADOIsNull: Boolean; virtual;
procedure SetASIENTO_PUNTEADOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -1339,6 +1399,16 @@ type
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property IGNORAR_CONTABILIDAD: SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue; property IGNORAR_CONTABILIDAD: SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull; property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
property ID_SUBCUENTA: Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property ESTADO_EJERCICIO: String read GetESTADO_EJERCICIOValue write SetESTADO_EJERCICIOValue;
property ESTADO_EJERCICIOIsNull: Boolean read GetESTADO_EJERCICIOIsNull write SetESTADO_EJERCICIOIsNull;
property ASIENTO_PUNTEADO: SmallInt read GetASIENTO_PUNTEADOValue write SetASIENTO_PUNTEADOValue;
property ASIENTO_PUNTEADOIsNull: Boolean read GetASIENTO_PUNTEADOIsNull write SetASIENTO_PUNTEADOIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -3254,6 +3324,111 @@ begin
DataTable.Fields[idx_PagosProveedorIGNORAR_CONTABILIDAD].AsVariant := Null; DataTable.Fields[idx_PagosProveedorIGNORAR_CONTABILIDAD].AsVariant := Null;
end; end;
function TPagosProveedorDataTableRules.GetID_SUBCUENTAValue: Integer;
begin
result := DataTable.Fields[idx_PagosProveedorID_SUBCUENTA].AsInteger;
end;
procedure TPagosProveedorDataTableRules.SetID_SUBCUENTAValue(const aValue: Integer);
begin
DataTable.Fields[idx_PagosProveedorID_SUBCUENTA].AsInteger := aValue;
end;
function TPagosProveedorDataTableRules.GetID_SUBCUENTAIsNull: boolean;
begin
result := DataTable.Fields[idx_PagosProveedorID_SUBCUENTA].IsNull;
end;
procedure TPagosProveedorDataTableRules.SetID_SUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PagosProveedorID_SUBCUENTA].AsVariant := Null;
end;
function TPagosProveedorDataTableRules.GetSUBCUENTAValue: String;
begin
result := DataTable.Fields[idx_PagosProveedorSUBCUENTA].AsString;
end;
procedure TPagosProveedorDataTableRules.SetSUBCUENTAValue(const aValue: String);
begin
DataTable.Fields[idx_PagosProveedorSUBCUENTA].AsString := aValue;
end;
function TPagosProveedorDataTableRules.GetSUBCUENTAIsNull: boolean;
begin
result := DataTable.Fields[idx_PagosProveedorSUBCUENTA].IsNull;
end;
procedure TPagosProveedorDataTableRules.SetSUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PagosProveedorSUBCUENTA].AsVariant := Null;
end;
function TPagosProveedorDataTableRules.GetID_EJERCICIOValue: Integer;
begin
result := DataTable.Fields[idx_PagosProveedorID_EJERCICIO].AsInteger;
end;
procedure TPagosProveedorDataTableRules.SetID_EJERCICIOValue(const aValue: Integer);
begin
DataTable.Fields[idx_PagosProveedorID_EJERCICIO].AsInteger := aValue;
end;
function TPagosProveedorDataTableRules.GetID_EJERCICIOIsNull: boolean;
begin
result := DataTable.Fields[idx_PagosProveedorID_EJERCICIO].IsNull;
end;
procedure TPagosProveedorDataTableRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PagosProveedorID_EJERCICIO].AsVariant := Null;
end;
function TPagosProveedorDataTableRules.GetESTADO_EJERCICIOValue: String;
begin
result := DataTable.Fields[idx_PagosProveedorESTADO_EJERCICIO].AsString;
end;
procedure TPagosProveedorDataTableRules.SetESTADO_EJERCICIOValue(const aValue: String);
begin
DataTable.Fields[idx_PagosProveedorESTADO_EJERCICIO].AsString := aValue;
end;
function TPagosProveedorDataTableRules.GetESTADO_EJERCICIOIsNull: boolean;
begin
result := DataTable.Fields[idx_PagosProveedorESTADO_EJERCICIO].IsNull;
end;
procedure TPagosProveedorDataTableRules.SetESTADO_EJERCICIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PagosProveedorESTADO_EJERCICIO].AsVariant := Null;
end;
function TPagosProveedorDataTableRules.GetASIENTO_PUNTEADOValue: SmallInt;
begin
result := DataTable.Fields[idx_PagosProveedorASIENTO_PUNTEADO].AsSmallInt;
end;
procedure TPagosProveedorDataTableRules.SetASIENTO_PUNTEADOValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_PagosProveedorASIENTO_PUNTEADO].AsSmallInt := aValue;
end;
function TPagosProveedorDataTableRules.GetASIENTO_PUNTEADOIsNull: boolean;
begin
result := DataTable.Fields[idx_PagosProveedorASIENTO_PUNTEADO].IsNull;
end;
procedure TPagosProveedorDataTableRules.SetASIENTO_PUNTEADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PagosProveedorASIENTO_PUNTEADO].AsVariant := Null;
end;
initialization initialization
RegisterDataTableRules(RID_RecibosCompensadosProv, TRecibosCompensadosProvDataTableRules); RegisterDataTableRules(RID_RecibosCompensadosProv, TRecibosCompensadosProvDataTableRules);

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

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_RecibosCompensadosProvDelta = '{E95FB3AF-C9FA-4D99-89BD-57C6A4876A41}'; RID_RecibosCompensadosProvDelta = '{16554E00-D877-4BAF-9C55-8E20790DCD56}';
RID_RecibosProveedorDelta = '{33917437-C0D3-47D1-B9D6-4F5690CA0B91}'; RID_RecibosProveedorDelta = '{ABE8514C-4344-43BF-B41B-C5E3095D1557}';
RID_PagosProveedorDelta = '{A624BF64-9338-42F1-A371-05E83CD550D8}'; RID_PagosProveedorDelta = '{4E478891-83D7-4418-A3E7-E36D0F802EE0}';
type type
{ IRecibosCompensadosProvDelta } { IRecibosCompensadosProvDelta }
IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv) IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv)
['{E95FB3AF-C9FA-4D99-89BD-57C6A4876A41}'] ['{16554E00-D877-4BAF-9C55-8E20790DCD56}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -494,7 +494,7 @@ type
{ IRecibosProveedorDelta } { IRecibosProveedorDelta }
IRecibosProveedorDelta = interface(IRecibosProveedor) IRecibosProveedorDelta = interface(IRecibosProveedor)
['{33917437-C0D3-47D1-B9D6-4F5690CA0B91}'] ['{ABE8514C-4344-43BF-B41B-C5E3095D1557}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -972,7 +972,7 @@ type
{ IPagosProveedorDelta } { IPagosProveedorDelta }
IPagosProveedorDelta = interface(IPagosProveedor) IPagosProveedorDelta = interface(IPagosProveedor)
['{A624BF64-9338-42F1-A371-05E83CD550D8}'] ['{4E478891-83D7-4418-A3E7-E36D0F802EE0}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer; function GetOldID_RECIBOValue : Integer;
@ -987,6 +987,11 @@ type
function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
function GetOldIGNORAR_CONTABILIDADValue : SmallInt; function GetOldIGNORAR_CONTABILIDADValue : SmallInt;
function GetOldID_SUBCUENTAValue : Integer;
function GetOldSUBCUENTAValue : String;
function GetOldID_EJERCICIOValue : Integer;
function GetOldESTADO_EJERCICIOValue : String;
function GetOldASIENTO_PUNTEADOValue : SmallInt;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -1002,6 +1007,11 @@ type
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue; property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue;
property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldESTADO_EJERCICIO : String read GetOldESTADO_EJERCICIOValue;
property OldASIENTO_PUNTEADO : SmallInt read GetOldASIENTO_PUNTEADOValue;
end; end;
{ TPagosProveedorBusinessProcessorRules } { TPagosProveedorBusinessProcessorRules }
@ -1087,6 +1097,36 @@ type
function GetOldIGNORAR_CONTABILIDADIsNull: Boolean; virtual; function GetOldIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); virtual; procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); virtual;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual; procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
function GetID_SUBCUENTAValue: Integer; virtual;
function GetID_SUBCUENTAIsNull: Boolean; virtual;
function GetOldID_SUBCUENTAValue: Integer; virtual;
function GetOldID_SUBCUENTAIsNull: Boolean; virtual;
procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual;
procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetSUBCUENTAValue: String; virtual;
function GetSUBCUENTAIsNull: Boolean; virtual;
function GetOldSUBCUENTAValue: String; virtual;
function GetOldSUBCUENTAIsNull: Boolean; virtual;
procedure SetSUBCUENTAValue(const aValue: String); virtual;
procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetID_EJERCICIOValue: Integer; virtual;
function GetID_EJERCICIOIsNull: Boolean; virtual;
function GetOldID_EJERCICIOValue: Integer; virtual;
function GetOldID_EJERCICIOIsNull: Boolean; virtual;
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
function GetESTADO_EJERCICIOValue: String; virtual;
function GetESTADO_EJERCICIOIsNull: Boolean; virtual;
function GetOldESTADO_EJERCICIOValue: String; virtual;
function GetOldESTADO_EJERCICIOIsNull: Boolean; virtual;
procedure SetESTADO_EJERCICIOValue(const aValue: String); virtual;
procedure SetESTADO_EJERCICIOIsNull(const aValue: Boolean); virtual;
function GetASIENTO_PUNTEADOValue: SmallInt; virtual;
function GetASIENTO_PUNTEADOIsNull: Boolean; virtual;
function GetOldASIENTO_PUNTEADOValue: SmallInt; virtual;
function GetOldASIENTO_PUNTEADOIsNull: Boolean; virtual;
procedure SetASIENTO_PUNTEADOValue(const aValue: SmallInt); virtual;
procedure SetASIENTO_PUNTEADOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -1141,6 +1181,26 @@ type
property IGNORAR_CONTABILIDADIsNull : Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull; property IGNORAR_CONTABILIDADIsNull : Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue; property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue;
property OldIGNORAR_CONTABILIDADIsNull : Boolean read GetOldIGNORAR_CONTABILIDADIsNull; property OldIGNORAR_CONTABILIDADIsNull : Boolean read GetOldIGNORAR_CONTABILIDADIsNull;
property ID_SUBCUENTA : Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
property ID_SUBCUENTAIsNull : Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
property OldID_SUBCUENTAIsNull : Boolean read GetOldID_SUBCUENTAIsNull;
property SUBCUENTA : String read GetSUBCUENTAValue write SetSUBCUENTAValue;
property SUBCUENTAIsNull : Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
property OldSUBCUENTAIsNull : Boolean read GetOldSUBCUENTAIsNull;
property ID_EJERCICIO : Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull;
property ESTADO_EJERCICIO : String read GetESTADO_EJERCICIOValue write SetESTADO_EJERCICIOValue;
property ESTADO_EJERCICIOIsNull : Boolean read GetESTADO_EJERCICIOIsNull write SetESTADO_EJERCICIOIsNull;
property OldESTADO_EJERCICIO : String read GetOldESTADO_EJERCICIOValue;
property OldESTADO_EJERCICIOIsNull : Boolean read GetOldESTADO_EJERCICIOIsNull;
property ASIENTO_PUNTEADO : SmallInt read GetASIENTO_PUNTEADOValue write SetASIENTO_PUNTEADOValue;
property ASIENTO_PUNTEADOIsNull : Boolean read GetASIENTO_PUNTEADOIsNull write SetASIENTO_PUNTEADOIsNull;
property OldASIENTO_PUNTEADO : SmallInt read GetOldASIENTO_PUNTEADOValue;
property OldASIENTO_PUNTEADOIsNull : Boolean read GetOldASIENTO_PUNTEADOIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -3947,6 +4007,161 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorIGNORAR_CONTABILIDAD] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorIGNORAR_CONTABILIDAD] := Null;
end; end;
function TPagosProveedorBusinessProcessorRules.GetID_SUBCUENTAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_SUBCUENTA];
end;
function TPagosProveedorBusinessProcessorRules.GetID_SUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_SUBCUENTA]);
end;
function TPagosProveedorBusinessProcessorRules.GetOldID_SUBCUENTAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorID_SUBCUENTA];
end;
function TPagosProveedorBusinessProcessorRules.GetOldID_SUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorID_SUBCUENTA]);
end;
procedure TPagosProveedorBusinessProcessorRules.SetID_SUBCUENTAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_SUBCUENTA] := aValue;
end;
procedure TPagosProveedorBusinessProcessorRules.SetID_SUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_SUBCUENTA] := Null;
end;
function TPagosProveedorBusinessProcessorRules.GetSUBCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorSUBCUENTA];
end;
function TPagosProveedorBusinessProcessorRules.GetSUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorSUBCUENTA]);
end;
function TPagosProveedorBusinessProcessorRules.GetOldSUBCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorSUBCUENTA];
end;
function TPagosProveedorBusinessProcessorRules.GetOldSUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorSUBCUENTA]);
end;
procedure TPagosProveedorBusinessProcessorRules.SetSUBCUENTAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorSUBCUENTA] := aValue;
end;
procedure TPagosProveedorBusinessProcessorRules.SetSUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorSUBCUENTA] := Null;
end;
function TPagosProveedorBusinessProcessorRules.GetID_EJERCICIOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_EJERCICIO];
end;
function TPagosProveedorBusinessProcessorRules.GetID_EJERCICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_EJERCICIO]);
end;
function TPagosProveedorBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorID_EJERCICIO];
end;
function TPagosProveedorBusinessProcessorRules.GetOldID_EJERCICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorID_EJERCICIO]);
end;
procedure TPagosProveedorBusinessProcessorRules.SetID_EJERCICIOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_EJERCICIO] := aValue;
end;
procedure TPagosProveedorBusinessProcessorRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_EJERCICIO] := Null;
end;
function TPagosProveedorBusinessProcessorRules.GetESTADO_EJERCICIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorESTADO_EJERCICIO];
end;
function TPagosProveedorBusinessProcessorRules.GetESTADO_EJERCICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorESTADO_EJERCICIO]);
end;
function TPagosProveedorBusinessProcessorRules.GetOldESTADO_EJERCICIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorESTADO_EJERCICIO];
end;
function TPagosProveedorBusinessProcessorRules.GetOldESTADO_EJERCICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorESTADO_EJERCICIO]);
end;
procedure TPagosProveedorBusinessProcessorRules.SetESTADO_EJERCICIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorESTADO_EJERCICIO] := aValue;
end;
procedure TPagosProveedorBusinessProcessorRules.SetESTADO_EJERCICIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorESTADO_EJERCICIO] := Null;
end;
function TPagosProveedorBusinessProcessorRules.GetASIENTO_PUNTEADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorASIENTO_PUNTEADO];
end;
function TPagosProveedorBusinessProcessorRules.GetASIENTO_PUNTEADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorASIENTO_PUNTEADO]);
end;
function TPagosProveedorBusinessProcessorRules.GetOldASIENTO_PUNTEADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorASIENTO_PUNTEADO];
end;
function TPagosProveedorBusinessProcessorRules.GetOldASIENTO_PUNTEADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorASIENTO_PUNTEADO]);
end;
procedure TPagosProveedorBusinessProcessorRules.SetASIENTO_PUNTEADOValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorASIENTO_PUNTEADO] := aValue;
end;
procedure TPagosProveedorBusinessProcessorRules.SetASIENTO_PUNTEADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorASIENTO_PUNTEADO] := Null;
end;
initialization initialization
RegisterBusinessProcessorRules(RID_RecibosCompensadosProvDelta, TRecibosCompensadosProvBusinessProcessorRules); RegisterBusinessProcessorRules(RID_RecibosCompensadosProvDelta, TRecibosCompensadosProvBusinessProcessorRules);

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

@ -9,6 +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="..\Contabilidad\Views\Contabilidad_view.dproj" />
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" /> <Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
@ -161,14 +162,23 @@
<Target Name="Contactos_controller:Make"> <Target Name="Contactos_controller:Make">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Make" /> <MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Make" />
</Target> </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" /> <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" />
</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" /> <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" />
</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" /> <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" />
</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>

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

@ -732,7 +732,7 @@ object srvRecibosProveedor: TsrvRecibosProveedor
Statements = < Statements = <
item item
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'PAGOS_PROVEEDOR' TargetTable = 'V_PAGOS_PROVEEDOR'
StatementType = stAutoSQL StatementType = stAutoSQL
ColumnMappings = < ColumnMappings = <
item item
@ -759,10 +759,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DatasetField = 'ENTIDAD' DatasetField = 'ENTIDAD'
TableField = 'ENTIDAD' TableField = 'ENTIDAD'
end end
item
DatasetField = 'SUCURSAL'
TableField = 'SUCURSAL'
end
item item
DatasetField = 'DC' DatasetField = 'DC'
TableField = 'DC' TableField = 'DC'
@ -786,6 +782,30 @@ object srvRecibosProveedor: TsrvRecibosProveedor
item item
DatasetField = 'IGNORAR_CONTABILIDAD' DatasetField = 'IGNORAR_CONTABILIDAD'
TableField = 'IGNORAR_CONTABILIDAD' TableField = 'IGNORAR_CONTABILIDAD'
end
item
DatasetField = 'ID_SUBCUENTA'
TableField = 'ID_SUBCUENTA'
end
item
DatasetField = 'SUBCUENTA'
TableField = 'SUBCUENTA'
end
item
DatasetField = 'ID_EJERCICIO'
TableField = 'ID_EJERCICIO'
end
item
DatasetField = 'ESTADO_EJERCICIO'
TableField = 'ESTADO_EJERCICIO'
end
item
DatasetField = 'ASIENTO_PUNTEADO'
TableField = 'ASIENTO_PUNTEADO'
end
item
DatasetField = 'SUCURSAL'
TableField = 'SUCURSAL'
end> end>
end> end>
Name = 'PagosProveedor' Name = 'PagosProveedor'
@ -829,7 +849,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
Name = 'SUCURSAL' Name = 'SUCURSAL'
DataType = datString DataType = datString
Size = 15 Size = 15
DictionaryEntry = 'PagosProveedor_SUCURSAL'
end end
item item
Name = 'DC' Name = 'DC'
@ -862,6 +881,28 @@ object srvRecibosProveedor: TsrvRecibosProveedor
item item
Name = 'IGNORAR_CONTABILIDAD' Name = 'IGNORAR_CONTABILIDAD'
DataType = datSmallInt DataType = datSmallInt
end
item
Name = 'ID_SUBCUENTA'
DataType = datInteger
end
item
Name = 'SUBCUENTA'
DataType = datString
Size = 255
end
item
Name = 'ID_EJERCICIO'
DataType = datInteger
end
item
Name = 'ESTADO_EJERCICIO'
DataType = datString
Size = 255
end
item
Name = 'ASIENTO_PUNTEADO'
DataType = datSmallInt
end> end>
end> end>
JoinDataTables = <> JoinDataTables = <>

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

@ -43,7 +43,7 @@ implementation
{$R *.dfm} {$R *.dfm}
{$INCLUDE ..\..\..\FactuGES.inc} {$INCLUDE ..\..\..\FactuGES.inc}
uses uDialogUtils, uFactuGES_App; uses uDialogUtils, uFactuGES_App, uBizEjercicios;
procedure TfEditorFechaPagoProveedor.DeshabilitarContabilidad; procedure TfEditorFechaPagoProveedor.DeshabilitarContabilidad;
begin begin
@ -67,11 +67,19 @@ begin
ShowWarningMessage('Debe establecer la fecha del pago'); ShowWarningMessage('Debe establecer la fecha del pago');
end; end;
if ((IgnorarContabilidad = 0) and (IdSubCuenta < 1)) then if (IgnorarContabilidad = 0) then
begin begin
CanClose := False; if (AppFactuGES.EjercicioActivo.ESTADO = CTE_CERRADO) then
ShowWarningMessage('Debe establecer la caja o banco donde se realiza el pago'); begin
end CanClose := False;
ShowWarningMessage('El pago no puede pasar a la parte contable de la aplicación porque el ejercicio activo está CERRADO');
end
else if (IdSubCuenta < 1) then
begin
CanClose := False;
ShowWarningMessage('Debe establecer la caja o banco donde se realiza el pago');
end
end;
end; end;
end; end;

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

@ -51,6 +51,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 685 Width = 685
Height = 353 Height = 353
ActivePage = pagPagos
ExplicitLeft = 3 ExplicitLeft = 3
ExplicitTop = 79 ExplicitTop = 79
ExplicitWidth = 685 ExplicitWidth = 685
@ -351,10 +352,11 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
end end
end end
inherited DADataSource: TDADataSource inherited DADataSource: TDADataSource
Left = 32 Left = 48
Top = 80 Top = 88
end end
inherited ActionListContenido: TActionList inherited ActionListContenido: TActionList
Left = 24
inherited actAnadir: TAction inherited actAnadir: TAction
OnExecute = frViewPagosProveedor1actAnadirExecute OnExecute = frViewPagosProveedor1actAnadirExecute
end end
@ -489,7 +491,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
end end
end end
inherited EditorActionList: TActionList [5] inherited EditorActionList: TActionList [5]
Left = 48 Left = 56
Top = 144 Top = 144
inherited actNuevo: TAction inherited actNuevo: TAction
Enabled = False Enabled = False

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

@ -71,7 +71,7 @@ type
implementation implementation
uses schRecibosProveedorClient_Intf, uEditorFechaPagoProveedor, uEditorBase, uFactuGES_App, uses schRecibosProveedorClient_Intf, uEditorFechaPagoProveedor, uEditorBase, uFactuGES_App, uBizEjercicios,
uProveedoresController, uBizDireccionesContacto, uViewProveedorRecibo; uProveedoresController, uBizDireccionesContacto, uViewProveedorRecibo;
{$R *.dfm} {$R *.dfm}
@ -209,8 +209,10 @@ end;
procedure TfEditorReciboProveedor.frViewPagosProveedor1actEliminarUpdate(Sender: TObject); procedure TfEditorReciboProveedor.frViewPagosProveedor1actEliminarUpdate(Sender: TObject);
begin begin
//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);
@ -250,8 +252,10 @@ end;
procedure TfEditorReciboProveedor.frViewPagosProveedor1actModificarUpdate(Sender: TObject); procedure TfEditorReciboProveedor.frViewPagosProveedor1actModificarUpdate(Sender: TObject);
begin begin
inherited; inherited;
//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(

12
Source/Servicios/FactuGES.RODL
View File

@ -487,6 +487,18 @@
</Parameter> </Parameter>
</Parameters> </Parameters>
</Operation> </Operation>
<Operation Name="PuntearAsiento" UID="{BE67C0CD-7D7A-494B-AE1E-D4F0988962FB}">
<Parameters>
<Parameter Name="ID_ASIENTO" DataType="Integer" Flag="In" >
</Parameter>
</Parameters>
</Operation>
<Operation Name="PuntearSubcuenta" UID="{23BBA5E4-DC19-40B2-B41D-E9AA1413D358}">
<Parameters>
<Parameter Name="ID_SUBCUENTA" DataType="Integer" Flag="In" >
</Parameter>
</Parameters>
</Operation>
</Operations> </Operations>
</Interface> </Interface>
</Interfaces> </Interfaces>

34
Source/Servicios/FactuGES_Intf.pas
View File

@ -673,6 +673,8 @@ type
function AnadirSubCuentaCliente(const ID_CONTACTO: Integer; const ID_TIENDA: Integer; const ID_EMPRESA: Integer; const CLIENTE: String): Boolean; function AnadirSubCuentaCliente(const ID_CONTACTO: Integer; const ID_TIENDA: Integer; const ID_EMPRESA: Integer; const CLIENTE: String): Boolean;
function AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ES_ACREEDOR: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean; function AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ES_ACREEDOR: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean;
function DarNumOrdenAsiento: Integer; function DarNumOrdenAsiento: Integer;
procedure PuntearAsiento(const ID_ASIENTO: Integer);
procedure PuntearSubcuenta(const ID_SUBCUENTA: Integer);
end; end;
{ CosrvContabilidad } { CosrvContabilidad }
@ -689,6 +691,8 @@ type
function AnadirSubCuentaCliente(const ID_CONTACTO: Integer; const ID_TIENDA: Integer; const ID_EMPRESA: Integer; const CLIENTE: String): Boolean; function AnadirSubCuentaCliente(const ID_CONTACTO: Integer; const ID_TIENDA: Integer; const ID_EMPRESA: Integer; const CLIENTE: String): Boolean;
function AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ES_ACREEDOR: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean; function AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ES_ACREEDOR: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean;
function DarNumOrdenAsiento: Integer; function DarNumOrdenAsiento: Integer;
procedure PuntearAsiento(const ID_ASIENTO: Integer);
procedure PuntearSubcuenta(const ID_SUBCUENTA: Integer);
end; end;
{ IsrvUnidadesMedida } { IsrvUnidadesMedida }
@ -2103,6 +2107,36 @@ begin
end end
end; end;
procedure TsrvContabilidad_Proxy.PuntearAsiento(const ID_ASIENTO: Integer);
begin
try
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'PuntearAsiento');
__Message.Write('ID_ASIENTO', TypeInfo(Integer), ID_ASIENTO, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
procedure TsrvContabilidad_Proxy.PuntearSubcuenta(const ID_SUBCUENTA: Integer);
begin
try
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'PuntearSubcuenta');
__Message.Write('ID_SUBCUENTA', TypeInfo(Integer), ID_SUBCUENTA, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
{ CosrvUnidadesMedida } { CosrvUnidadesMedida }
class function CosrvUnidadesMedida.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvUnidadesMedida; class function CosrvUnidadesMedida.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvUnidadesMedida;

42
Source/Servicios/FactuGES_Invk.pas
View File

@ -199,6 +199,8 @@ type
procedure Invoke_AnadirSubCuentaCliente(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure Invoke_AnadirSubCuentaCliente(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_AnadirSubCuentaProveedor(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure Invoke_AnadirSubCuentaProveedor(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_DarNumOrdenAsiento(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure Invoke_DarNumOrdenAsiento(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_PuntearAsiento(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_PuntearSubcuenta(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end; end;
TsrvUnidadesMedida_Invoker = class(TDataAbstractService_Invoker) TsrvUnidadesMedida_Invoker = class(TDataAbstractService_Invoker)
@ -1072,6 +1074,46 @@ begin
end; end;
end; end;
procedure TsrvContabilidad_Invoker.Invoke_PuntearAsiento(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ procedure PuntearAsiento(const ID_ASIENTO: Integer); }
var
ID_ASIENTO: Integer;
begin
try
__Message.Read('ID_ASIENTO', TypeInfo(Integer), ID_ASIENTO, []);
(__Instance as IsrvContabilidad).PuntearAsiento(ID_ASIENTO);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContabilidad', 'PuntearAsientoResponse');
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
__oResponseOptions := [roNoResponse];
finally
end;
end;
procedure TsrvContabilidad_Invoker.Invoke_PuntearSubcuenta(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ procedure PuntearSubcuenta(const ID_SUBCUENTA: Integer); }
var
ID_SUBCUENTA: Integer;
begin
try
__Message.Read('ID_SUBCUENTA', TypeInfo(Integer), ID_SUBCUENTA, []);
(__Instance as IsrvContabilidad).PuntearSubcuenta(ID_SUBCUENTA);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContabilidad', 'PuntearSubcuentaResponse');
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
__oResponseOptions := [roNoResponse];
finally
end;
end;
{ TsrvComisiones_Invoker } { TsrvComisiones_Invoker }
procedure TsrvComisiones_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvComisiones_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

16
Source/Servidor/FactuGES_Server.dpr
View File

@ -95,8 +95,6 @@ uses
schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas', schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas',
uBizRecibosProveedorServer in '..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas', uBizRecibosProveedorServer in '..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas',
uRptAlbaranesCliente_Server in '..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas', uRptAlbaranesCliente_Server in '..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
uBizAsientosServer in '..\Modulos\Contabilidad\Model\uBizAsientosServer.pas', uBizAsientosServer in '..\Modulos\Contabilidad\Model\uBizAsientosServer.pas',
srvComisiones_Impl in '..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas' {srvComisiones: TDataAbstractService}, srvComisiones_Impl in '..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas' {srvComisiones: TDataAbstractService},
uBizComisionesServer in '..\Modulos\Comisiones\Model\uBizComisionesServer.pas', uBizComisionesServer in '..\Modulos\Comisiones\Model\uBizComisionesServer.pas',
@ -118,20 +116,22 @@ uses
srvGestorInformes_Impl in '..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas' {srvGestorInformes: TDataAbstractService}, srvGestorInformes_Impl in '..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas' {srvGestorInformes: TDataAbstractService},
uRptFacturasProveedor_Server in '..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas' {RptFacturasProveedor: TDataModule}, uRptFacturasProveedor_Server in '..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas' {RptFacturasProveedor: TDataModule},
uRptRecibosProveedor_Server in '..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas' {RptRecibosProveedor: TDataModule}, uRptRecibosProveedor_Server in '..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas' {RptRecibosProveedor: TDataModule},
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas', schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas', schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas', schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas',
schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas', schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas', schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas'; schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

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", "lunes, 09 de febrero de 2009 17:25\0" VALUE "CompileDate", "viernes, 13 de febrero de 2009 18:39\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"