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

Repaso de contablidad para facturas de cliente y proveedor, se arreglan detalles de visualizacion de importes el lista de facturas de cliente y proeveedor

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@394 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2009-02-10 10:35:42 +00:00
parent 641f8d84a6
commit 4888227b75
64 changed files with 1743 additions and 526 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

147
Database/scripts/factuges.sql
View File

@ -2066,7 +2066,7 @@ WHERE
CREATE VIEW V_CONT_CUENTAS( CREATE VIEW V_CONT_CUENTAS(
ID, ID,
REF_CUENTA, REF_CUENTA,
ID_EJERCICIO, ID_EJERCICIO, ESTADO,
DESCRIPCION, DESCRIPCION,
ID_EPIGRAFE, ID_EPIGRAFE,
EPIGRAFE, EPIGRAFE,
@ -2075,7 +2075,7 @@ CREATE VIEW V_CONT_CUENTAS(
ID_CUENTA_ESPECIAL, ID_CUENTA_ESPECIAL,
CUENTA_ESPECIAL) CUENTA_ESPECIAL)
AS AS
select CONT_CUENTAS.ID, CONT_CUENTAS.REF_CUENTA, CONT_CUENTAS.ID_EJERCICIO, select CONT_CUENTAS.ID, CONT_CUENTAS.REF_CUENTA, CONT_CUENTAS.ID_EJERCICIO, CONT_EJERCICIOS.ESTADO,
CONT_CUENTAS.DESCRIPCION, CONT_CUENTAS.ID_EPIGRAFE, CONT_EPIGRAFES.DESCRIPCION as EPIGRAFE, CONT_CUENTAS.DESCRIPCION, CONT_CUENTAS.ID_EPIGRAFE, CONT_EPIGRAFES.DESCRIPCION as EPIGRAFE,
CONT_CUENTAS.ID_BALANCE, CONT_BALANCES.REF_BALANCE as BALANCE, CONT_CUENTAS.ID_BALANCE, CONT_BALANCES.REF_BALANCE as BALANCE,
CONT_CUENTAS.ID_CUENTA_ESPECIAL, CONT_CUENTAS_ESPECIALES.DESCRIPCION as CUENTA_ESPECIAL CONT_CUENTAS.ID_CUENTA_ESPECIAL, CONT_CUENTAS_ESPECIALES.DESCRIPCION as CUENTA_ESPECIAL
@ -2083,7 +2083,7 @@ from CONT_CUENTAS
left join CONT_EPIGRAFES on (CONT_EPIGRAFES.ID = CONT_CUENTAS.ID_EPIGRAFE) left join CONT_EPIGRAFES on (CONT_EPIGRAFES.ID = CONT_CUENTAS.ID_EPIGRAFE)
left join CONT_BALANCES on (CONT_BALANCES.ID = CONT_CUENTAS.ID_BALANCE) left join CONT_BALANCES on (CONT_BALANCES.ID = CONT_CUENTAS.ID_BALANCE)
left join CONT_CUENTAS_ESPECIALES on (CONT_CUENTAS_ESPECIALES.ID = CONT_CUENTAS.ID_CUENTA_ESPECIAL) left join CONT_CUENTAS_ESPECIALES on (CONT_CUENTAS_ESPECIALES.ID = CONT_CUENTAS.ID_CUENTA_ESPECIAL)
; left join CONT_EJERCICIOS on (CONT_EJERCICIOS.ID = CONT_CUENTAS.ID_EJERCICIO);
@ -2100,6 +2100,7 @@ CREATE VIEW V_CONT_DIARIO(
REF_SUBCUENTA, REF_SUBCUENTA,
SUBCUENTA, SUBCUENTA,
ID_EJERCICIO, ID_EJERCICIO,
ESTADO,
CONCEPTO, CONCEPTO,
DOCUMENTO, DOCUMENTO,
DEBE, DEBE,
@ -2117,7 +2118,7 @@ SELECT
CONT_APUNTES.ID_SUBCUENTA, CONT_APUNTES.ID_SUBCUENTA,
CONT_SUBCUENTAS.REF_SUBCUENTA as REF_SUBCUENTA, CONT_SUBCUENTAS.REF_SUBCUENTA as REF_SUBCUENTA,
CONT_SUBCUENTAS.DESCRIPCION as SUBCUENTA, CONT_SUBCUENTAS.DESCRIPCION as SUBCUENTA,
CONT_SUBCUENTAS.ID_EJERCICIO, CONT_SUBCUENTAS.ID_EJERCICIO, CONT_EJERCICIOS.ESTADO,
CONT_APUNTES.CONCEPTO, CONT_APUNTES.CONCEPTO,
CONT_APUNTES.DOCUMENTO, CONT_APUNTES.DOCUMENTO,
CONT_APUNTES.DEBE, CONT_APUNTES.DEBE,
@ -2127,6 +2128,7 @@ SELECT
FROM CONT_APUNTES FROM CONT_APUNTES
LEFT JOIN CONT_ASIENTOS ON (CONT_ASIENTOS.ID = CONT_APUNTES.ID_ASIENTO) LEFT JOIN CONT_ASIENTOS ON (CONT_ASIENTOS.ID = CONT_APUNTES.ID_ASIENTO)
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_EJERCICIOS ON (CONT_EJERCICIOS.ID = CONT_SUBCUENTAS.ID_EJERCICIO)
order by CONT_ASIENTOS.FECHA_ASIENTO desc, CONT_ASIENTOS.ORDEN desc order by CONT_ASIENTOS.FECHA_ASIENTO desc, CONT_ASIENTOS.ORDEN desc
; ;
@ -2137,14 +2139,15 @@ CREATE VIEW V_CONT_EPIGRAFES(
ID, ID,
REF_EPIGRAFE, REF_EPIGRAFE,
DESCRIPCION, DESCRIPCION,
ID_EJERCICIO, ID_EJERCICIO, ESTADO,
ID_PADRE, ID_PADRE,
EPIGRAFE_PADRE) EPIGRAFE_PADRE)
AS AS
select CONT_EPI1.ID, CONT_EPI1.REF_EPIGRAFE, CONT_EPI1.DESCRIPCION, CONT_EPI1.ID_EJERCICIO, select CONT_EPI1.ID, CONT_EPI1.REF_EPIGRAFE, CONT_EPI1.DESCRIPCION, CONT_EPI1.ID_EJERCICIO, CONT_EJERCICIOS.ESTADO,
CONT_EPI1.ID_PADRE, CONT_EPI2.DESCRIPCION as EPIGRAFE_PADRE CONT_EPI1.ID_PADRE, CONT_EPI2.DESCRIPCION as EPIGRAFE_PADRE
from CONT_EPIGRAFES CONT_EPI1 from CONT_EPIGRAFES CONT_EPI1
left join CONT_EPIGRAFES CONT_EPI2 on (CONT_EPI2.ID = CONT_EPI1.ID_PADRE) left join CONT_EPIGRAFES CONT_EPI2 on (CONT_EPI2.ID = CONT_EPI1.ID_PADRE)
left join CONT_EJERCICIOS on (CONT_EJERCICIOS.ID = CONT_EPI1.ID_EJERCICIO)
; ;
@ -2153,17 +2156,22 @@ left join CONT_EPIGRAFES CONT_EPI2 on (CONT_EPI2.ID = CONT_EPI1.ID_PADRE)
CREATE VIEW V_CONT_FAC_CLI_VENTAS( CREATE VIEW V_CONT_FAC_CLI_VENTAS(
ID_FACTURA, ID_FACTURA,
ID_SUBCUENTA, ID_SUBCUENTA,
SUBCUENTA) SUBCUENTA,
ID_EJERCICIO,
ESTADO)
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_EJERCICIOS.ESTADO
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)
/* 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_CUENTAS.ref_cuenta = 700)
; ;
@ -2174,21 +2182,24 @@ from CONT_ASIENTOS
CREATE VIEW V_CONT_FAC_PRO_COMPRAS( CREATE VIEW V_CONT_FAC_PRO_COMPRAS(
ID_FACTURA, ID_FACTURA,
ID_SUBCUENTA, ID_SUBCUENTA,
SUBCUENTA) SUBCUENTA,
ID_EJERCICIO,
ESTADO)
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_EJERCICIOS.ESTADO
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)
/* 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_CUENTAS.ref_cuenta = 600);
;
/* View: V_CONT_SUBCUENTAS_SALDO */ /* View: V_CONT_SUBCUENTAS_SALDO */
@ -2206,14 +2217,14 @@ left join cont_apuntes on (cont_apuntes.id_subcuenta = cont_subcuentas.ID)
group by cont_subcuentas.ID group by cont_subcuentas.ID
; ;
/* View: V_CONT_SUBCUENTAS */ /* View: V_CONT_SUBCUENTAS */
CREATE VIEW V_CONT_SUBCUENTAS( CREATE VIEW V_CONT_SUBCUENTAS(
ID, ID,
REF_SUBCUENTA, REF_SUBCUENTA,
DESCRIPCION, DESCRIPCION,
ID_EJERCICIO, ID_EJERCICIO,
ESTADO,
REF_EPIGRAFE_PADRE,
ID_CONTACTO, ID_CONTACTO,
ID_CUENTA, ID_CUENTA,
REF_CUENTA, REF_CUENTA,
@ -2223,11 +2234,15 @@ CREATE VIEW V_CONT_SUBCUENTAS(
SALDO) SALDO)
AS AS
select CONT_SUBCUENTAS.ID, CONT_SUBCUENTAS.REF_SUBCUENTA, CONT_SUBCUENTAS.DESCRIPCION, select CONT_SUBCUENTAS.ID, CONT_SUBCUENTAS.REF_SUBCUENTA, CONT_SUBCUENTAS.DESCRIPCION,
CONT_SUBCUENTAS.ID_EJERCICIO, CONT_SUBCUENTAS.ID_CONTACTO, CONT_SUBCUENTAS.ID_CUENTA, CONT_SUBCUENTAS.ID_EJERCICIO, CONT_EJERCICIOS.ESTADO, COALESCE(CONT_EPI2.REF_EPIGRAFE, CONT_EPI1.REF_EPIGRAFE),
CONT_SUBCUENTAS.ID_CONTACTO, CONT_SUBCUENTAS.ID_CUENTA,
CONT_CUENTAS.REF_CUENTA, CONT_CUENTAS.DESCRIPCION as CUENTA, V_CONT_SUBCUENTAS_SALDO.DEBE, V_CONT_SUBCUENTAS_SALDO.HABER, V_CONT_SUBCUENTAS_SALDO.SALDO CONT_CUENTAS.REF_CUENTA, CONT_CUENTAS.DESCRIPCION as CUENTA, V_CONT_SUBCUENTAS_SALDO.DEBE, V_CONT_SUBCUENTAS_SALDO.HABER, V_CONT_SUBCUENTAS_SALDO.SALDO
from V_CONT_SUBCUENTAS_SALDO from V_CONT_SUBCUENTAS_SALDO
left join CONT_SUBCUENTAS on (CONT_SUBCUENTAS.ID = V_CONT_SUBCUENTAS_SALDO.ID_SUBCUENTA) left join CONT_SUBCUENTAS on (CONT_SUBCUENTAS.ID = V_CONT_SUBCUENTAS_SALDO.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_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)
left join CONT_EJERCICIOS on (CONT_EJERCICIOS.ID = CONT_SUBCUENTAS.ID_EJERCICIO)
order by CONT_CUENTAS.REF_CUENTA order by CONT_CUENTAS.REF_CUENTA
; ;
@ -2423,48 +2438,50 @@ GROUP BY ID_FACTURA;
/* Create view: V_FACTURAS_CLIENTE */ /* Create view: V_FACTURAS_CLIENTE */
CREATE VIEW V_FACTURAS_CLIENTE( CREATE VIEW V_FACTURAS_CLIENTE(
ID, ID,
ID_EMPRESA, ID_EMPRESA,
REFERENCIA, REFERENCIA,
TIPO, TIPO,
ID_COMISION_LIQUIDADA, ID_COMISION_LIQUIDADA,
FECHA_FACTURA, FECHA_FACTURA,
FECHA_VENCIMIENTO, FECHA_VENCIMIENTO,
SITUACION, SITUACION,
BASE_IMPONIBLE, BASE_IMPONIBLE,
DESCUENTO, DESCUENTO,
IMPORTE_DESCUENTO, IMPORTE_DESCUENTO,
IVA, IVA,
IMPORTE_IVA, IMPORTE_IVA,
RE, RE,
IMPORTE_RE, IMPORTE_RE,
IMPORTE_TOTAL, IMPORTE_TOTAL,
OBSERVACIONES, OBSERVACIONES,
ID_CLIENTE, ID_CLIENTE,
NOMBRE_CLIENTE, NOMBRE_CLIENTE,
NOMBRE_COMERCIAL_CLIENTE, NOMBRE_COMERCIAL_CLIENTE,
NIF_CIF, NIF_CIF,
NOMBRE, NOMBRE,
CALLE, CALLE,
POBLACION, POBLACION,
PROVINCIA, PROVINCIA,
CODIGO_POSTAL, CODIGO_POSTAL,
FECHA_ALTA, FECHA_ALTA,
FECHA_MODIFICACION, FECHA_MODIFICACION,
USUARIO, USUARIO,
ID_FORMA_PAGO, ID_FORMA_PAGO,
RECARGO_EQUIVALENCIA, RECARGO_EQUIVALENCIA,
ID_TIPO_IVA, ID_TIPO_IVA,
IMPORTE_NETO, IMPORTE_NETO,
IMPORTE_PORTE, IMPORTE_PORTE,
ID_AGENTE, ID_AGENTE,
REFERENCIA_COMISION, REFERENCIA_COMISION,
IGNORAR_CONTABILIDAD, IGNORAR_CONTABILIDAD,
ID_TIENDA, ID_TIENDA,
TIENDA, TIENDA,
ID_SUBCUENTA, ID_SUBCUENTA,
SUBCUENTA) SUBCUENTA,
AS ID_EJERCICIO,
ESTADO)
AS
SELECT FACTURAS_CLIENTE.ID, SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.ID_EMPRESA, FACTURAS_CLIENTE.ID_EMPRESA,
FACTURAS_CLIENTE.REFERENCIA, FACTURAS_CLIENTE.REFERENCIA,
@ -2505,7 +2522,9 @@ SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.ID_TIENDA, FACTURAS_CLIENTE.ID_TIENDA,
COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA, COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA,
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.ESTADO
FROM V_FAC_CLI_SITUACION FROM V_FAC_CLI_SITUACION
LEFT JOIN FACTURAS_CLIENTE LEFT JOIN FACTURAS_CLIENTE
@ -2515,7 +2534,7 @@ SELECT FACTURAS_CLIENTE.ID,
INNER JOIN CONTACTOS ON (CONTACTOS.ID = FACTURAS_CLIENTE.ID_CLIENTE) INNER JOIN CONTACTOS ON (CONTACTOS.ID = FACTURAS_CLIENTE.ID_CLIENTE)
INNER JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE) INNER JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE)
LEFT JOIN EMPRESAS_TIENDAS ON (EMPRESAS_TIENDAS.ID = FACTURAS_CLIENTE.ID_TIENDA) LEFT JOIN EMPRESAS_TIENDAS ON (EMPRESAS_TIENDAS.ID = FACTURAS_CLIENTE.ID_TIENDA)
LEFT JOIN V_CONT_FAC_CLI_VENTAS ON (V_CONT_FAC_CLI_VENTAS.ID_FACTURA = FACTURAS_CLIENTE.ID); LEFT JOIN V_CONT_FAC_CLI_VENTAS ON (V_CONT_FAC_CLI_VENTAS.ID_FACTURA = FACTURAS_CLIENTE.ID)
; ;
@ -2559,7 +2578,9 @@ CREATE VIEW V_FACTURAS_PROVEEDOR(
ID_TIENDA, ID_TIENDA,
TIENDA, TIENDA,
ID_SUBCUENTA, ID_SUBCUENTA,
SUBCUENTA) SUBCUENTA,
ID_EJERCICIO,
ESTADO)
AS AS
SELECT FACTURAS_PROVEEDOR.ID, SELECT FACTURAS_PROVEEDOR.ID,
FACTURAS_PROVEEDOR.ID_EMPRESA, FACTURAS_PROVEEDOR.ID_EMPRESA,
@ -2599,7 +2620,9 @@ SELECT FACTURAS_PROVEEDOR.ID,
FACTURAS_PROVEEDOR.ID_TIENDA, FACTURAS_PROVEEDOR.ID_TIENDA,
COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA, COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA,
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.ESTADO
FROM V_FAC_PRO_SITUACION FROM V_FAC_PRO_SITUACION
LEFT JOIN FACTURAS_PROVEEDOR LEFT JOIN FACTURAS_PROVEEDOR

104
Source/Base/Base.dproj
View File

@ -44,6 +44,20 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">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><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">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><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages> <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -58,53 +72,53 @@
<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="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxNavBarD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D10R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

62
Source/GUIBase/GUIBase.dproj
View File

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

2
Source/GUIBase/uEditorDBBase.dfm
View File

@ -18,7 +18,7 @@ inherited fEditorDBBase: TfEditorDBBase
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 646 Width = 646
ExplicitWidth = 648 ExplicitWidth = 646
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 646 ExplicitWidth = 646
end end

2
Source/GUIBase/uEditorDBItem.dfm
View File

@ -19,7 +19,7 @@ inherited fEditorDBItem: TfEditorDBItem
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 650 Width = 650
ExplicitWidth = 652 ExplicitWidth = 650
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 605 ExplicitWidth = 605
inherited TBXItem26: TTBXItem inherited TBXItem26: TTBXItem

46
Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dproj
View File

@ -48,6 +48,29 @@
<DelphiCompile Include="Contabilidad_controller.dpk"> <DelphiCompile Include="Contabilidad_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\ccpackD11.dcp" />
<DCCReference Include="..\cfpack_d11.dcp" />
<DCCReference Include="..\Contabilidad_data.dcp" />
<DCCReference Include="..\Contabilidad_model.dcp" />
<DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\designide.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\GUISDK_D11.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="..\xmlrtl.dcp" />
<DCCReference Include="uApuntesController.pas" /> <DCCReference Include="uApuntesController.pas" />
<DCCReference Include="uAsientosController.pas" /> <DCCReference Include="uAsientosController.pas" />
<DCCReference Include="uBalancesController.pas" /> <DCCReference Include="uBalancesController.pas" />
@ -55,24 +78,6 @@
<DCCReference Include="uCuentasEspecialesController.pas" /> <DCCReference Include="uCuentasEspecialesController.pas" />
<DCCReference Include="uEpigrafesController.pas" /> <DCCReference Include="uEpigrafesController.pas" />
<DCCReference Include="uSubCuentasController.pas" /> <DCCReference Include="uSubCuentasController.pas" />
<DCCReference Include="View\adortl.dcp" />
<DCCReference Include="View\ApplicationBase.dcp" />
<DCCReference Include="View\Base.dcp" />
<DCCReference Include="View\ccpackD11.dcp" />
<DCCReference Include="View\cfpack_d11.dcp" />
<DCCReference Include="View\Contabilidad_data.dcp" />
<DCCReference Include="View\Contabilidad_model.dcp" />
<DCCReference Include="View\Contactos_model.dcp" />
<DCCReference Include="View\cxLibraryD11.dcp" />
<DCCReference Include="View\DataAbstract_Core_D11.dcp" />
<DCCReference Include="View\dbrtl.dcp" />
<DCCReference Include="View\designide.dcp" />
<DCCReference Include="View\dsnap.dcp" />
<DCCReference Include="View\dxThemeD11.dcp" />
<DCCReference Include="View\GUIBase.dcp" />
<DCCReference Include="View\GUISDK_D11.dcp" />
<DCCReference Include="View\RemObjects_Core_D11.dcp" />
<DCCReference Include="View\rtl.dcp" />
<DCCReference Include="View\uIEditorApunte.pas" /> <DCCReference Include="View\uIEditorApunte.pas" />
<DCCReference Include="View\uIEditorAsiento.pas" /> <DCCReference Include="View\uIEditorAsiento.pas" />
<DCCReference Include="View\uIEditorBalance.pas" /> <DCCReference Include="View\uIEditorBalance.pas" />
@ -92,11 +97,6 @@
<DCCReference Include="View\uIEditorExtractoMovimientos.pas" /> <DCCReference Include="View\uIEditorExtractoMovimientos.pas" />
<DCCReference Include="View\uIEditorSubCuenta.pas" /> <DCCReference Include="View\uIEditorSubCuenta.pas" />
<DCCReference Include="View\uIEditorSubCuentas.pas" /> <DCCReference Include="View\uIEditorSubCuentas.pas" />
<DCCReference Include="View\vcl.dcp" />
<DCCReference Include="View\vclactnband.dcp" />
<DCCReference Include="View\vcldb.dcp" />
<DCCReference Include="View\vclx.dcp" />
<DCCReference Include="View\xmlrtl.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

4
Source/Modulos/Contabilidad/Controller/View/uIEditorAsiento.pas
View File

@ -3,10 +3,10 @@ unit uIEditorAsiento;
interface interface
uses uses
uBizAsientos, uAsientosController; uEditorDBItem, uBizAsientos, uAsientosController;
type type
IEditorAsiento = interface IEditorAsiento = interface(IEditorDBItem)
['{3CDABEA1-F952-4F35-8A31-279FFB7C31E4}'] ['{3CDABEA1-F952-4F35-8A31-279FFB7C31E4}']
function GetController : IAsientosController; function GetController : IAsientosController;
procedure SetController (const Value : IAsientosController); procedure SetController (const Value : IAsientosController);

4
Source/Modulos/Contabilidad/Controller/View/uIEditorCuenta.pas
View File

@ -3,10 +3,10 @@ unit uIEditorCuenta;
interface interface
uses uses
uBizCuentas, uCuentasController; uEditorDBItem, uBizCuentas, uCuentasController;
type type
IEditorCuenta = interface IEditorCuenta = interface(IEditorDBItem)
['{3CDABEA1-F952-4F35-8A31-279FFB7C31E4}'] ['{3CDABEA1-F952-4F35-8A31-279FFB7C31E4}']
function GetController : ICuentasController; function GetController : ICuentasController;
procedure SetController (const Value : ICuentasController); procedure SetController (const Value : ICuentasController);

4
Source/Modulos/Contabilidad/Controller/View/uIEditorEpigrafe.pas
View File

@ -3,10 +3,10 @@ unit uIEditorEpigrafe;
interface interface
uses uses
uBizEpigrafes, uEpigrafesController; uEditorDBItem, uBizEpigrafes, uEpigrafesController;
type type
IEditorEpigrafe = interface IEditorEpigrafe = interface(IEditorDBItem)
['{3CDABEA1-F952-4F35-8A31-279FFB7C31E4}'] ['{3CDABEA1-F952-4F35-8A31-279FFB7C31E4}']
function GetController : IEpigrafesController; function GetController : IEpigrafesController;
procedure SetController (const Value : IEpigrafesController); procedure SetController (const Value : IEpigrafesController);

4
Source/Modulos/Contabilidad/Controller/View/uIEditorSubCuenta.pas
View File

@ -3,10 +3,10 @@ unit uIEditorSubCuenta;
interface interface
uses uses
uBizSubCuentas, uSubCuentasController; uEditorDBItem, uBizSubCuentas, uSubCuentasController;
type type
IEditorSubCuenta = interface IEditorSubCuenta = interface(IEditorDBItem)
['{3CDABEA1-F952-4F35-8A31-279FFB7C31E4}'] ['{3CDABEA1-F952-4F35-8A31-279FFB7C31E4}']
function GetController : ISubCuentasController; function GetController : ISubCuentasController;
procedure SetController (const Value : ISubCuentasController); procedure SetController (const Value : ISubCuentasController);

13
Source/Modulos/Contabilidad/Controller/uApuntesController.pas
View File

@ -47,6 +47,9 @@ type
function ValidarApunte(AApunte: IBizApunte): Boolean; function ValidarApunte(AApunte: IBizApunte): Boolean;
function EsModificable(AApunte : IBizApunte): Boolean;
function EsEliminable(AApunte : IBizApunte): Boolean;
procedure Anadir(AApunte : IBizApunte); overload; procedure Anadir(AApunte : IBizApunte); overload;
procedure Anadir(AApunte : IBizApunte; IdSubCuenta: Integer); overload; procedure Anadir(AApunte : IBizApunte; IdSubCuenta: Integer); overload;
procedure AnadirCierre(AApunte : IBizApunte); procedure AnadirCierre(AApunte : IBizApunte);
@ -341,6 +344,16 @@ begin
end; end;
end; end;
function TApuntesController.EsEliminable(AApunte: IBizApunte): Boolean;
begin
// AApunte.
end;
function TApuntesController.EsModificable(AApunte: IBizApunte): Boolean;
begin
//
end;
procedure TApuntesController.FiltrarEjercicio(AApunte: IBizApunte); procedure TApuntesController.FiltrarEjercicio(AApunte: IBizApunte);
var var
Condicion: TDAWhereExpression; Condicion: TDAWhereExpression;

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

@ -40,6 +40,9 @@ type
function BuscarAsientos(IdSubCuenta: Integer = -1): IBizDiario; function BuscarAsientos(IdSubCuenta: Integer = -1): IBizDiario;
function EsModificable(AAsiento : IBizAsiento): Boolean;
function EsEliminable(AAsiento : IBizAsiento): Boolean;
function Eliminar(IDAsiento : Integer): Boolean; overload; function Eliminar(IDAsiento : Integer): Boolean; overload;
function Eliminar(AAsiento : IBizAsiento): Boolean; overload; function Eliminar(AAsiento : IBizAsiento): Boolean; overload;
function Guardar(AAsiento : IBizAsiento): Boolean; virtual; function Guardar(AAsiento : IBizAsiento): Boolean; virtual;
@ -60,7 +63,7 @@ uses
cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf, cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf,
uIEditorDiario, uIEditorExtractoMovimientos, uIEditorAsiento, uIEditorDiario, uIEditorExtractoMovimientos, uIEditorAsiento,
uDataModuleContabilidad, uDAInterfaces, uDataTableUtils, uDialogUtils, uDataModuleContabilidad, uDAInterfaces, uDataTableUtils, uDialogUtils,
uFactuGES_App, uDateUtils, uROTypes, DateUtils, Controls, Windows, uFactuGES_App, uBizEjercicios, uDateUtils, uROTypes, DateUtils, Controls, Windows,
uApuntesController; uApuntesController;
{ TAsientosController } { TAsientosController }
@ -244,7 +247,20 @@ begin
try try
AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
AEditor.Asiento := AAsiento; AEditor.Asiento := AAsiento;
//MODO CONSULTAR
if not EsModificable(AAsiento) then
begin
SetDataTableReadOnly(AAsiento.DataTable, True);
AEditor.ReadOnly := True;
end;
AEditor.ShowModal; AEditor.ShowModal;
//MODO CONSULTAR (Se deja la tabla como estaba)
if AEditor.ReadOnly then
SetDataTableReadOnly(AAsiento.DataTable, False);
finally finally
AEditor.Release; AEditor.Release;
AEditor := NIL; AEditor := NIL;
@ -293,8 +309,13 @@ begin
if (AAsiento.State in dsEditModes) then if (AAsiento.State in dsEditModes) then
AAsiento.Cancel; AAsiento.Cancel;
AAsiento.Delete; //Siempre eliminaremos el seleccionado
AAsiento.DataTable.ApplyUpdates; if EsEliminable(AAsiento) then
begin
AAsiento.Delete;
AAsiento.DataTable.ApplyUpdates;
end;
HideHourglassCursor; HideHourglassCursor;
Result := True; Result := True;
finally finally
@ -302,6 +323,16 @@ begin
end; end;
end; end;
function TAsientosController.EsEliminable(AAsiento: IBizAsiento): Boolean;
begin
Result := True;
end;
function TAsientosController.EsModificable(AAsiento: IBizAsiento): Boolean;
begin
Result := True;
end;
procedure TAsientosController.FiltrarEjercicio(ADiario: IBizDiario); procedure TAsientosController.FiltrarEjercicio(ADiario: IBizDiario);
var var
Condicion: TDAWhereExpression; Condicion: TDAWhereExpression;

43
Source/Modulos/Contabilidad/Controller/uCuentasController.pas
View File

@ -43,6 +43,9 @@ type
constructor Create; override; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
function EsModificable(ACuenta : IBizCuenta): Boolean;
function EsEliminable(ACuenta : IBizCuenta): Boolean;
function Eliminar(ACuenta : IBizCuenta): Boolean; function Eliminar(ACuenta : IBizCuenta): Boolean;
function Guardar(ACuenta : IBizCuenta): Boolean; virtual; function Guardar(ACuenta : IBizCuenta): Boolean; virtual;
procedure DescartarCambios(ACuenta : IBizCuenta); virtual; procedure DescartarCambios(ACuenta : IBizCuenta); virtual;
@ -70,7 +73,7 @@ uses
uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App, uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App,
uDateUtils, uROTypes, DateUtils, Controls, Windows, uDateUtils, uROTypes, DateUtils, Controls, Windows,
uBizEpigrafes, uEpigrafesController, uBizEpigrafes, uEpigrafesController,
uBizBalances, uBalancesController, uBizBalances, uBalancesController, uBizEjercicios,
uBizCuentasEspeciales, uCuentasEspecialesController; uBizCuentasEspeciales, uCuentasEspecialesController;
{ TCuentasController } { TCuentasController }
@ -200,7 +203,20 @@ begin
try try
AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
AEditor.Cuenta := ACuenta; AEditor.Cuenta := ACuenta;
//MODO CONSULTAR
if not EsModificable(ACuenta) then
begin
SetDataTableReadOnly(ACuenta.DataTable, True);
AEditor.ReadOnly := True;
end;
AEditor.ShowModal; AEditor.ShowModal;
//MODO CONSULTAR (Se deja la tabla como estaba)
if AEditor.ReadOnly then
SetDataTableReadOnly(ACuenta.DataTable, False);
finally finally
AEditor.Release; AEditor.Release;
AEditor := NIL; AEditor := NIL;
@ -338,8 +354,13 @@ begin
if (ACuenta.State in dsEditModes) then if (ACuenta.State in dsEditModes) then
ACuenta.Cancel; ACuenta.Cancel;
ACuenta.Delete; //Siempre eliminaremos el seleccionado
ACuenta.DataTable.ApplyUpdates; if EsEliminable(ACuenta) then
begin
ACuenta.Delete;
ACuenta.DataTable.ApplyUpdates;
end;
HideHourglassCursor; HideHourglassCursor;
Result := True; Result := True;
finally finally
@ -347,6 +368,22 @@ begin
end; end;
end; end;
function TCuentasController.EsEliminable(ACuenta: IBizCuenta): Boolean;
begin
if not Assigned(ACuenta) then
raise Exception.Create ('Cuenta no asignado: EsModificable');
Result := (ACuenta.ESTADO = CTE_ABIERTO);
end;
function TCuentasController.EsModificable(ACuenta: IBizCuenta): Boolean;
begin
if not Assigned(ACuenta) then
raise Exception.Create ('Cuenta no asignada: EsModificable');
Result := (ACuenta.ESTADO = CTE_ABIERTO);
end;
function TCuentasController.ExtraerSeleccionados(ACuentas: IBizCuenta): IBizCuenta; function TCuentasController.ExtraerSeleccionados(ACuentas: IBizCuenta): IBizCuenta;
var var
ASeleccionados : IBizCuenta; ASeleccionados : IBizCuenta;

43
Source/Modulos/Contabilidad/Controller/uEpigrafesController.pas
View File

@ -41,6 +41,9 @@ type
constructor Create; override; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
function EsModificable(AEpigrafe : IBizEpigrafe): Boolean;
function EsEliminable(AEpigrafe : IBizEpigrafe): Boolean;
function Eliminar(AEpigrafe : IBizEpigrafe): Boolean; function Eliminar(AEpigrafe : IBizEpigrafe): Boolean;
function Guardar(AEpigrafe : IBizEpigrafe): Boolean; virtual; function Guardar(AEpigrafe : IBizEpigrafe): Boolean; virtual;
procedure DescartarCambios(AEpigrafe : IBizEpigrafe); virtual; procedure DescartarCambios(AEpigrafe : IBizEpigrafe); virtual;
@ -60,7 +63,7 @@ type
implementation implementation
uses uses
cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf, cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf, uBizEjercicios,
uIEditorEpigrafes, uIEditorEpigrafe, uIEditorElegirEpigrafes, uDataModuleContabilidad, uIEditorEpigrafes, uIEditorEpigrafe, uIEditorElegirEpigrafes, uDataModuleContabilidad,
uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App, uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App,
uDateUtils, uROTypes, DateUtils, Controls, Windows; uDateUtils, uROTypes, DateUtils, Controls, Windows;
@ -208,7 +211,20 @@ begin
try try
AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
AEditor.Epigrafe := AEpigrafe; AEditor.Epigrafe := AEpigrafe;
//MODO CONSULTAR
if not EsModificable(AEpigrafe) then
begin
SetDataTableReadOnly(AEpigrafe.DataTable, True);
AEditor.ReadOnly := True;
end;
AEditor.ShowModal; AEditor.ShowModal;
//MODO CONSULTAR (Se deja la tabla como estaba)
if AEditor.ReadOnly then
SetDataTableReadOnly(AEpigrafe.DataTable, False);
finally finally
AEditor.Release; AEditor.Release;
AEditor := NIL; AEditor := NIL;
@ -261,8 +277,13 @@ begin
if (AEpigrafe.State in dsEditModes) then if (AEpigrafe.State in dsEditModes) then
AEpigrafe.Cancel; AEpigrafe.Cancel;
AEpigrafe.Delete; //Siempre eliminaremos el seleccionado
AEpigrafe.DataTable.ApplyUpdates; if EsEliminable(AEpigrafe) then
begin
AEpigrafe.Delete;
AEpigrafe.DataTable.ApplyUpdates;
end;
HideHourglassCursor; HideHourglassCursor;
Result := True; Result := True;
finally finally
@ -270,6 +291,22 @@ begin
end; end;
end; end;
function TEpigrafesController.EsEliminable(AEpigrafe: IBizEpigrafe): Boolean;
begin
if not Assigned(AEpigrafe) then
raise Exception.Create ('Epigrafe no asignado: EsModificable');
Result := (AEpigrafe.ESTADO = CTE_ABIERTO);
end;
function TEpigrafesController.EsModificable(AEpigrafe: IBizEpigrafe): Boolean;
begin
if not Assigned(AEpigrafe) then
raise Exception.Create ('Epigrafe no asignado: EsModificable');
Result := (AEpigrafe.ESTADO = CTE_ABIERTO);
end;
function TEpigrafesController.ExtraerSeleccionados(AEpigrafes: IBizEpigrafe): IBizEpigrafe; function TEpigrafesController.ExtraerSeleccionados(AEpigrafes: IBizEpigrafe): IBizEpigrafe;
var var
ASeleccionados : IBizEpigrafe; ASeleccionados : IBizEpigrafe;

73
Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas
View File

@ -17,8 +17,8 @@ const
CTE_CUENTASPROVEEDOR = 400; CTE_CUENTASPROVEEDOR = 400;
CTE_CUENTASCAJA = 570; CTE_CUENTASCAJA = 570;
CTE_CUENTASBANCO = 572; CTE_CUENTASBANCO = 572;
CTE_CUENTASVENTA = 700; CTE_CUENTASVENTA = 7;
CTE_CUENTASCOMPRA = 600; CTE_CUENTASCOMPRA = 6;
type type
TEnumTipoSubCuenta = (tTodas, tClientes, tProveedores, tCompras, tVentas, tCajas); TEnumTipoSubCuenta = (tTodas, tClientes, tProveedores, tCompras, tVentas, tCajas);
@ -70,6 +70,9 @@ type
constructor Create; override; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
function EsModificable(ASubCuenta : IBizSubCuenta): Boolean;
function EsEliminable(ASubCuenta : IBizSubCuenta): Boolean;
function Eliminar(ASubCuenta : IBizSubCuenta): Boolean; function Eliminar(ASubCuenta : IBizSubCuenta): Boolean;
function Guardar(ASubCuenta : IBizSubCuenta): Boolean; virtual; function Guardar(ASubCuenta : IBizSubCuenta): Boolean; virtual;
procedure DescartarCambios(ASubCuenta : IBizSubCuenta); virtual; procedure DescartarCambios(ASubCuenta : IBizSubCuenta); virtual;
@ -100,7 +103,7 @@ type
implementation implementation
uses uses
cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf, cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf, uBizEjercicios,
uIEditorSubCuentas, uIEditorSubCuenta, uIEditorElegirSubCuentas, uDataModuleContabilidad, uIEditorSubCuentas, uIEditorSubCuenta, uIEditorElegirSubCuentas, uDataModuleContabilidad,
uBizCuentas, uCuentasController, Dialogs, Variants, uBizCuentas, uCuentasController, Dialogs, Variants,
uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App, uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App,
@ -197,24 +200,24 @@ begin
end; end;
function TSubCuentasController.BuscarCompras: IBizSubCuenta; function TSubCuentasController.BuscarCompras: IBizSubCuenta;
{var var
Condicion: TDAWhereExpression; Condicion: TDAWhereExpression;
}
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
Result := BuscarTodos; Result := BuscarTodos;
// with Result.DataTable.DynamicWhere do with Result.DataTable.DynamicWhere do
// begin begin
// (REF_CUENTAS = 600 ventas) // (REF_EPIGRAFE_PADRE = 6 compras)
// Condicion := NewBinaryExpression(NewField('', fld_SubCuentasREF_CUENTA), NewConstant(CTE_CUENTASCOMPRA, datInteger), dboEqual); Condicion := NewBinaryExpression(NewField('', fld_SubCuentasREF_EPIGRAFE_PADRE), NewConstant(CTE_CUENTASCOMPRA, datInteger), dboEqual);
// if IsEmpty then if IsEmpty then
// Expression := Condicion Expression := Condicion
// else else
// Expression := NewBinaryExpression(Expression, Condicion, dboAnd); Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
// end; end;
finally finally
HideHourglassCursor; HideHourglassCursor;
@ -285,8 +288,8 @@ begin
with Result.DataTable.DynamicWhere do with Result.DataTable.DynamicWhere do
begin begin
// (REF_CUENTAS = 700 ventas) // (REF_EPIGRAFE_PADRE = 7 ventas)
Condicion := NewBinaryExpression(NewField('', fld_SubCuentasREF_CUENTA), NewConstant(CTE_CUENTASVENTA, datInteger), dboEqual); Condicion := NewBinaryExpression(NewField('', fld_SubCuentasREF_EPIGRAFE_PADRE), NewConstant(CTE_CUENTASVENTA, datInteger), dboEqual);
if IsEmpty then if IsEmpty then
Expression := Condicion Expression := Condicion
@ -414,7 +417,20 @@ begin
try try
AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
AEditor.SubCuenta := ASubCuenta; AEditor.SubCuenta := ASubCuenta;
//MODO CONSULTAR
if not EsModificable(ASubCuenta) then
begin
SetDataTableReadOnly(ASubCuenta.DataTable, True);
AEditor.ReadOnly := True;
end;
AEditor.ShowModal; AEditor.ShowModal;
//MODO CONSULTAR (Se deja la tabla como estaba)
if AEditor.ReadOnly then
SetDataTableReadOnly(ASubCuenta.DataTable, False);
finally finally
AEditor.Release; AEditor.Release;
AEditor := NIL; AEditor := NIL;
@ -539,8 +555,13 @@ begin
if (ASubCuenta.State in dsEditModes) then if (ASubCuenta.State in dsEditModes) then
ASubCuenta.Cancel; ASubCuenta.Cancel;
ASubCuenta.Delete; //Siempre eliminaremos el seleccionado
ASubCuenta.DataTable.ApplyUpdates; if EsEliminable(ASubCuenta) then
begin
ASubCuenta.Delete;
ASubCuenta.DataTable.ApplyUpdates;
end;
HideHourglassCursor; HideHourglassCursor;
Result := True; Result := True;
finally finally
@ -555,6 +576,22 @@ begin
ASubCuentaContacto.DataTable.Delete; ASubCuentaContacto.DataTable.Delete;
end; end;
function TSubCuentasController.EsEliminable(ASubCuenta: IBizSubCuenta): Boolean;
begin
if not Assigned(ASubCuenta) then
raise Exception.Create ('SubCuenta no asignada: EsEliminable');
Result := (ASubCuenta.ESTADO = CTE_ABIERTO);
end;
function TSubCuentasController.EsModificable(ASubCuenta: IBizSubCuenta): Boolean;
begin
if not Assigned(ASubCuenta) then
raise Exception.Create ('SubCuenta no asignada: EsModificable');
Result := (ASubCuenta.ESTADO = CTE_ABIERTO);
end;
function TSubCuentasController.ExtraerSeleccionados(ASubCuentas: IBizSubCuenta): IBizSubCuenta; function TSubCuentasController.ExtraerSeleccionados(ASubCuentas: IBizSubCuenta): IBizSubCuenta;
var var
ASeleccionados : IBizSubCuenta; ASeleccionados : IBizSubCuenta;

30
Source/Modulos/Contabilidad/Data/Contabilidad_data.dproj
View File

@ -41,27 +41,27 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<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">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Contabilidad_data.dpk</Source></Source></Delphi.Personality></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><Source><Source Name="MainSource">Contabilidad_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="Contabilidad_data.dpk"> <DelphiCompile Include="Contabilidad_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" /> <DCCReference Include="..\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" /> <DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contabilidad_model.dcp" /> <DCCReference Include="..\Contabilidad_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" /> <DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" /> <DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" /> <DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" /> <DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="..\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="..\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" /> <DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="uDataModuleContabilidad.pas"> <DCCReference Include="uDataModuleContabilidad.pas">
<Form>DataModuleContabilidad</Form> <Form>DataModuleContabilidad</Form>
<DesignClass>TDAClientDataModule</DesignClass> <DesignClass>TDAClientDataModule</DesignClass>

25
Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.dfm
View File

@ -181,6 +181,11 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
DisplayLabel = 'Epigrafes_ID_EJERCICIO' DisplayLabel = 'Epigrafes_ID_EJERCICIO'
DictionaryEntry = 'Epigrafes_ID_EJERCICIO' DictionaryEntry = 'Epigrafes_ID_EJERCICIO'
end end
item
Name = 'ESTADO'
DataType = datString
Size = 255
end
item item
Name = 'ID_PADRE' Name = 'ID_PADRE'
DataType = datInteger DataType = datInteger
@ -234,6 +239,11 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
DisplayLabel = 'Cuentas_ID_EJERCICIO' DisplayLabel = 'Cuentas_ID_EJERCICIO'
DictionaryEntry = 'Cuentas_ID_EJERCICIO' DictionaryEntry = 'Cuentas_ID_EJERCICIO'
end end
item
Name = 'ESTADO'
DataType = datString
Size = 255
end
item item
Name = 'DESCRIPCION' Name = 'DESCRIPCION'
DataType = datString DataType = datString
@ -327,6 +337,16 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
DisplayLabel = 'SubCuentas_ID_EJERCICIO' DisplayLabel = 'SubCuentas_ID_EJERCICIO'
DictionaryEntry = 'SubCuentas_ID_EJERCICIO' DictionaryEntry = 'SubCuentas_ID_EJERCICIO'
end end
item
Name = 'ESTADO'
DataType = datString
Size = 255
end
item
Name = 'REF_EPIGRAFE_PADRE'
DataType = datString
Size = 6
end
item item
Name = 'ID_CONTACTO' Name = 'ID_CONTACTO'
DataType = datInteger DataType = datInteger
@ -600,6 +620,11 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
DisplayLabel = 'Diario_ID_EJERCICIO' DisplayLabel = 'Diario_ID_EJERCICIO'
DictionaryEntry = 'Diario_ID_EJERCICIO' DictionaryEntry = 'Diario_ID_EJERCICIO'
end end
item
Name = 'ESTADO'
DataType = datString
Size = 255
end
item item
Name = 'CONCEPTO' Name = 'CONCEPTO'
DataType = datString DataType = datString

275
Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas
View File

@ -9,20 +9,20 @@ 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_DarIDCuenta = '{F20E3431-4AD6-442E-978E-BD5DC04DF357}'; RID_DarIDCuenta = '{F934D7F5-F193-4794-AAD1-9A1B91BB3318}';
RID_DarCodigoContableTienda = '{3BA1A823-E5A4-4FAC-A78A-ECF457D57173}'; RID_DarCodigoContableTienda = '{F27822D7-98D8-4C30-8823-DA2AEDDBB5E1}';
RID_DarMaxRefSubCuentaProv = '{AE364C91-C829-4AF9-8146-1DA3E9291B40}'; RID_DarMaxRefSubCuentaProv = '{D256227B-16B9-49D5-9A88-72FFC0C0C154}';
RID_ExisteSubCuenta = '{B7212610-DF33-441B-91EB-01A6C4851991}'; RID_ExisteSubCuenta = '{47F6A8CA-B5CD-418D-9DC9-3C43BC8D3C1D}';
RID_Diario = '{1522637C-8E18-4E3D-8136-87488C0665CC}'; RID_Diario = '{06B76C35-D095-4736-9147-448CBB1ED101}';
RID_Apuntes = '{F1890C23-1E41-4B6A-AD7B-A48FD87A45CF}'; RID_Apuntes = '{4DC74A57-EEB3-46D8-A3CE-948530C296F2}';
RID_Asientos = '{355862A4-0318-4A56-ACBB-800FD3AC63B0}'; RID_Asientos = '{12A769DB-89F4-498B-B4D4-ED1477100E3B}';
RID_SubCuentas = '{DBA9026B-5657-45A8-8132-D20BA0A7A2F9}'; RID_SubCuentas = '{9E6B8CF8-F8CC-494A-A776-A0B3CD401846}';
RID_Cuentas = '{441DF5A0-959E-4860-87BE-4F4CCD747047}'; RID_Cuentas = '{5879B695-7BF0-44ED-BEF9-BB9F6F5A6CE1}';
RID_CuentasEspeciales = '{8DB618C9-EA42-49F0-A75B-FE51F1F7A0C4}'; RID_CuentasEspeciales = '{60F17DA4-B7D1-4689-8994-B210A1A1D78B}';
RID_Epigrafes = '{66E2FBD3-8DA1-48AA-A7ED-C0A8ED011DA6}'; RID_Epigrafes = '{32D84D4F-995D-4D29-91AB-357C17AFBF10}';
RID_Balances = '{06C8D640-0690-4620-9F99-8745B91B249E}'; RID_Balances = '{BC6355C4-5817-40DA-9D6E-ED71FBB2B9DC}';
RID_DarMaxRefSubCuentaCli = '{DEFF4707-42F7-48C7-9A68-B55A53FDCA21}'; RID_DarMaxRefSubCuentaCli = '{81CD72F3-982E-4411-90D2-0C04347D6785}';
RID_DarNumOrdenAsiento = '{91A031A1-CE35-4338-8468-7A303D76C58B}'; RID_DarNumOrdenAsiento = '{4D041128-19E0-4F71-B6C2-0657CFA24C9B}';
{ Data table names } { Data table names }
nme_DarIDCuenta = 'DarIDCuenta'; nme_DarIDCuenta = 'DarIDCuenta';
@ -76,6 +76,7 @@ const
fld_DiarioREF_SUBCUENTA = 'REF_SUBCUENTA'; fld_DiarioREF_SUBCUENTA = 'REF_SUBCUENTA';
fld_DiarioSUBCUENTA = 'SUBCUENTA'; fld_DiarioSUBCUENTA = 'SUBCUENTA';
fld_DiarioID_EJERCICIO = 'ID_EJERCICIO'; fld_DiarioID_EJERCICIO = 'ID_EJERCICIO';
fld_DiarioESTADO = 'ESTADO';
fld_DiarioCONCEPTO = 'CONCEPTO'; fld_DiarioCONCEPTO = 'CONCEPTO';
fld_DiarioDOCUMENTO = 'DOCUMENTO'; fld_DiarioDOCUMENTO = 'DOCUMENTO';
fld_DiarioDEBE = 'DEBE'; fld_DiarioDEBE = 'DEBE';
@ -95,12 +96,13 @@ const
idx_DiarioREF_SUBCUENTA = 8; idx_DiarioREF_SUBCUENTA = 8;
idx_DiarioSUBCUENTA = 9; idx_DiarioSUBCUENTA = 9;
idx_DiarioID_EJERCICIO = 10; idx_DiarioID_EJERCICIO = 10;
idx_DiarioCONCEPTO = 11; idx_DiarioESTADO = 11;
idx_DiarioDOCUMENTO = 12; idx_DiarioCONCEPTO = 12;
idx_DiarioDEBE = 13; idx_DiarioDOCUMENTO = 13;
idx_DiarioHABER = 14; idx_DiarioDEBE = 14;
idx_DiarioPUNTEADO = 15; idx_DiarioHABER = 15;
idx_DiarioSALDO = 16; idx_DiarioPUNTEADO = 16;
idx_DiarioSALDO = 17;
{ Apuntes fields } { Apuntes fields }
fld_ApuntesID = 'ID'; fld_ApuntesID = 'ID';
@ -149,6 +151,8 @@ const
fld_SubCuentasREF_SUBCUENTA = 'REF_SUBCUENTA'; fld_SubCuentasREF_SUBCUENTA = 'REF_SUBCUENTA';
fld_SubCuentasDESCRIPCION = 'DESCRIPCION'; fld_SubCuentasDESCRIPCION = 'DESCRIPCION';
fld_SubCuentasID_EJERCICIO = 'ID_EJERCICIO'; fld_SubCuentasID_EJERCICIO = 'ID_EJERCICIO';
fld_SubCuentasESTADO = 'ESTADO';
fld_SubCuentasREF_EPIGRAFE_PADRE = 'REF_EPIGRAFE_PADRE';
fld_SubCuentasID_CONTACTO = 'ID_CONTACTO'; fld_SubCuentasID_CONTACTO = 'ID_CONTACTO';
fld_SubCuentasID_CUENTA = 'ID_CUENTA'; fld_SubCuentasID_CUENTA = 'ID_CUENTA';
fld_SubCuentasREF_CUENTA = 'REF_CUENTA'; fld_SubCuentasREF_CUENTA = 'REF_CUENTA';
@ -162,18 +166,21 @@ const
idx_SubCuentasREF_SUBCUENTA = 1; idx_SubCuentasREF_SUBCUENTA = 1;
idx_SubCuentasDESCRIPCION = 2; idx_SubCuentasDESCRIPCION = 2;
idx_SubCuentasID_EJERCICIO = 3; idx_SubCuentasID_EJERCICIO = 3;
idx_SubCuentasID_CONTACTO = 4; idx_SubCuentasESTADO = 4;
idx_SubCuentasID_CUENTA = 5; idx_SubCuentasREF_EPIGRAFE_PADRE = 5;
idx_SubCuentasREF_CUENTA = 6; idx_SubCuentasID_CONTACTO = 6;
idx_SubCuentasCUENTA = 7; idx_SubCuentasID_CUENTA = 7;
idx_SubCuentasDEBE = 8; idx_SubCuentasREF_CUENTA = 8;
idx_SubCuentasHABER = 9; idx_SubCuentasCUENTA = 9;
idx_SubCuentasSALDO = 10; idx_SubCuentasDEBE = 10;
idx_SubCuentasHABER = 11;
idx_SubCuentasSALDO = 12;
{ Cuentas fields } { Cuentas fields }
fld_CuentasID = 'ID'; fld_CuentasID = 'ID';
fld_CuentasREF_CUENTA = 'REF_CUENTA'; fld_CuentasREF_CUENTA = 'REF_CUENTA';
fld_CuentasID_EJERCICIO = 'ID_EJERCICIO'; fld_CuentasID_EJERCICIO = 'ID_EJERCICIO';
fld_CuentasESTADO = 'ESTADO';
fld_CuentasDESCRIPCION = 'DESCRIPCION'; fld_CuentasDESCRIPCION = 'DESCRIPCION';
fld_CuentasID_EPIGRAFE = 'ID_EPIGRAFE'; fld_CuentasID_EPIGRAFE = 'ID_EPIGRAFE';
fld_CuentasEPIGRAFE = 'EPIGRAFE'; fld_CuentasEPIGRAFE = 'EPIGRAFE';
@ -186,13 +193,14 @@ const
idx_CuentasID = 0; idx_CuentasID = 0;
idx_CuentasREF_CUENTA = 1; idx_CuentasREF_CUENTA = 1;
idx_CuentasID_EJERCICIO = 2; idx_CuentasID_EJERCICIO = 2;
idx_CuentasDESCRIPCION = 3; idx_CuentasESTADO = 3;
idx_CuentasID_EPIGRAFE = 4; idx_CuentasDESCRIPCION = 4;
idx_CuentasEPIGRAFE = 5; idx_CuentasID_EPIGRAFE = 5;
idx_CuentasID_BALANCE = 6; idx_CuentasEPIGRAFE = 6;
idx_CuentasBALANCE = 7; idx_CuentasID_BALANCE = 7;
idx_CuentasID_CUENTA_ESPECIAL = 8; idx_CuentasBALANCE = 8;
idx_CuentasCUENTA_ESPECIAL = 9; idx_CuentasID_CUENTA_ESPECIAL = 9;
idx_CuentasCUENTA_ESPECIAL = 10;
{ CuentasEspeciales fields } { CuentasEspeciales fields }
fld_CuentasEspecialesID = 'ID'; fld_CuentasEspecialesID = 'ID';
@ -209,6 +217,7 @@ const
fld_EpigrafesREF_EPIGRAFE = 'REF_EPIGRAFE'; fld_EpigrafesREF_EPIGRAFE = 'REF_EPIGRAFE';
fld_EpigrafesDESCRIPCION = 'DESCRIPCION'; fld_EpigrafesDESCRIPCION = 'DESCRIPCION';
fld_EpigrafesID_EJERCICIO = 'ID_EJERCICIO'; fld_EpigrafesID_EJERCICIO = 'ID_EJERCICIO';
fld_EpigrafesESTADO = 'ESTADO';
fld_EpigrafesID_PADRE = 'ID_PADRE'; fld_EpigrafesID_PADRE = 'ID_PADRE';
fld_EpigrafesEPIGRAFE_PADRE = 'EPIGRAFE_PADRE'; fld_EpigrafesEPIGRAFE_PADRE = 'EPIGRAFE_PADRE';
@ -217,8 +226,9 @@ const
idx_EpigrafesREF_EPIGRAFE = 1; idx_EpigrafesREF_EPIGRAFE = 1;
idx_EpigrafesDESCRIPCION = 2; idx_EpigrafesDESCRIPCION = 2;
idx_EpigrafesID_EJERCICIO = 3; idx_EpigrafesID_EJERCICIO = 3;
idx_EpigrafesID_PADRE = 4; idx_EpigrafesESTADO = 4;
idx_EpigrafesEPIGRAFE_PADRE = 5; idx_EpigrafesID_PADRE = 5;
idx_EpigrafesEPIGRAFE_PADRE = 6;
{ Balances fields } { Balances fields }
fld_BalancesID = 'ID'; fld_BalancesID = 'ID';
@ -257,7 +267,7 @@ const
type type
{ IDarIDCuenta } { IDarIDCuenta }
IDarIDCuenta = interface(IDAStronglyTypedDataTable) IDarIDCuenta = interface(IDAStronglyTypedDataTable)
['{F543F835-B1D5-4042-8804-B1F8762DC2A7}'] ['{D8F2113C-47E1-4D5F-84B1-55356AC09BEC}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -292,7 +302,7 @@ type
{ IDarCodigoContableTienda } { IDarCodigoContableTienda }
IDarCodigoContableTienda = interface(IDAStronglyTypedDataTable) IDarCodigoContableTienda = interface(IDAStronglyTypedDataTable)
['{B1D800BF-8EAD-4CF0-B0D5-0573104D04F7}'] ['{727DD029-68E9-4D58-9243-EBB2C9F1CBF4}']
{ Property getters and setters } { Property getters and setters }
function GetCODIGO_CONTABLEValue: String; function GetCODIGO_CONTABLEValue: String;
procedure SetCODIGO_CONTABLEValue(const aValue: String); procedure SetCODIGO_CONTABLEValue(const aValue: String);
@ -327,7 +337,7 @@ type
{ IDarMaxRefSubCuentaProv } { IDarMaxRefSubCuentaProv }
IDarMaxRefSubCuentaProv = interface(IDAStronglyTypedDataTable) IDarMaxRefSubCuentaProv = interface(IDAStronglyTypedDataTable)
['{65D3E6E4-1068-467D-ABB1-8A9B80AF1C16}'] ['{3254BD1F-1143-411F-A64A-04EDA953DAFA}']
{ Property getters and setters } { Property getters and setters }
function GetMAXValue: Integer; function GetMAXValue: Integer;
procedure SetMAXValue(const aValue: Integer); procedure SetMAXValue(const aValue: Integer);
@ -362,7 +372,7 @@ type
{ IExisteSubCuenta } { IExisteSubCuenta }
IExisteSubCuenta = interface(IDAStronglyTypedDataTable) IExisteSubCuenta = interface(IDAStronglyTypedDataTable)
['{3E144142-E6B8-4F81-8BC2-F4D7D0599EAB}'] ['{4D4EBC68-3266-448B-8BA7-B804B42AD5CC}']
{ Property getters and setters } { Property getters and setters }
function GetCOUNTValue: Integer; function GetCOUNTValue: Integer;
procedure SetCOUNTValue(const aValue: Integer); procedure SetCOUNTValue(const aValue: Integer);
@ -397,7 +407,7 @@ type
{ IDiario } { IDiario }
IDiario = interface(IDAStronglyTypedDataTable) IDiario = interface(IDAStronglyTypedDataTable)
['{3E5CE58E-5ED0-4BF7-88E0-E3A8D42F82AC}'] ['{BD3DC12E-83B7-43CD-93AC-AF94EA64BADA}']
{ Property getters and setters } { Property getters and setters }
function GetID_APUNTEValue: Integer; function GetID_APUNTEValue: Integer;
procedure SetID_APUNTEValue(const aValue: Integer); procedure SetID_APUNTEValue(const aValue: Integer);
@ -443,6 +453,10 @@ 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;
procedure SetESTADOValue(const aValue: String);
function GetESTADOIsNull: Boolean;
procedure SetESTADOIsNull(const aValue: Boolean);
function GetCONCEPTOValue: String; function GetCONCEPTOValue: String;
procedure SetCONCEPTOValue(const aValue: String); procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean; function GetCONCEPTOIsNull: Boolean;
@ -492,6 +506,8 @@ 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 ESTADOIsNull: Boolean read GetESTADOIsNull write SetESTADOIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property DOCUMENTO: String read GetDOCUMENTOValue write SetDOCUMENTOValue; property DOCUMENTO: String read GetDOCUMENTOValue write SetDOCUMENTOValue;
@ -555,6 +571,10 @@ 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;
procedure SetESTADOValue(const aValue: String); virtual;
function GetESTADOIsNull: Boolean; virtual;
procedure SetESTADOIsNull(const aValue: Boolean); virtual;
function GetCONCEPTOValue: String; virtual; function GetCONCEPTOValue: String; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual; procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCONCEPTOIsNull: Boolean; virtual; function GetCONCEPTOIsNull: Boolean; virtual;
@ -603,6 +623,8 @@ 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 ESTADOIsNull: Boolean read GetESTADOIsNull write SetESTADOIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property DOCUMENTO: String read GetDOCUMENTOValue write SetDOCUMENTOValue; property DOCUMENTO: String read GetDOCUMENTOValue write SetDOCUMENTOValue;
@ -624,7 +646,7 @@ type
{ IApuntes } { IApuntes }
IApuntes = interface(IDAStronglyTypedDataTable) IApuntes = interface(IDAStronglyTypedDataTable)
['{260C1901-EF6F-4E78-800D-44E7D2E0DA8E}'] ['{5B4D39B8-C07D-408F-9C38-D0C2E3A29D63}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -779,7 +801,7 @@ type
{ IAsientos } { IAsientos }
IAsientos = interface(IDAStronglyTypedDataTable) IAsientos = interface(IDAStronglyTypedDataTable)
['{23328B9C-D6B6-478B-9E1C-208F334C2E4C}'] ['{5BB77EBB-4C65-459C-867C-D464CC6EED2C}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -874,7 +896,7 @@ type
{ ISubCuentas } { ISubCuentas }
ISubCuentas = interface(IDAStronglyTypedDataTable) ISubCuentas = interface(IDAStronglyTypedDataTable)
['{F9797AE2-CAA8-414C-A147-1DF8201BBE08}'] ['{8132788A-2FBC-4B3C-AF23-78CB019CC123}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -892,6 +914,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;
procedure SetESTADOValue(const aValue: String);
function GetESTADOIsNull: Boolean;
procedure SetESTADOIsNull(const aValue: Boolean);
function GetREF_EPIGRAFE_PADREValue: String;
procedure SetREF_EPIGRAFE_PADREValue(const aValue: String);
function GetREF_EPIGRAFE_PADREIsNull: Boolean;
procedure SetREF_EPIGRAFE_PADREIsNull(const aValue: Boolean);
function GetID_CONTACTOValue: Integer; function GetID_CONTACTOValue: Integer;
procedure SetID_CONTACTOValue(const aValue: Integer); procedure SetID_CONTACTOValue(const aValue: Integer);
function GetID_CONTACTOIsNull: Boolean; function GetID_CONTACTOIsNull: Boolean;
@ -931,6 +961,10 @@ type
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
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 ESTADOIsNull: Boolean read GetESTADOIsNull write SetESTADOIsNull;
property REF_EPIGRAFE_PADRE: String read GetREF_EPIGRAFE_PADREValue write SetREF_EPIGRAFE_PADREValue;
property REF_EPIGRAFE_PADREIsNull: Boolean read GetREF_EPIGRAFE_PADREIsNull write SetREF_EPIGRAFE_PADREIsNull;
property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull; property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property ID_CUENTA: Integer read GetID_CUENTAValue write SetID_CUENTAValue; property ID_CUENTA: Integer read GetID_CUENTAValue write SetID_CUENTAValue;
@ -968,6 +1002,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;
procedure SetESTADOValue(const aValue: String); virtual;
function GetESTADOIsNull: Boolean; virtual;
procedure SetESTADOIsNull(const aValue: Boolean); virtual;
function GetREF_EPIGRAFE_PADREValue: String; virtual;
procedure SetREF_EPIGRAFE_PADREValue(const aValue: String); virtual;
function GetREF_EPIGRAFE_PADREIsNull: Boolean; virtual;
procedure SetREF_EPIGRAFE_PADREIsNull(const aValue: Boolean); virtual;
function GetID_CONTACTOValue: Integer; virtual; function GetID_CONTACTOValue: Integer; virtual;
procedure SetID_CONTACTOValue(const aValue: Integer); virtual; procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
function GetID_CONTACTOIsNull: Boolean; virtual; function GetID_CONTACTOIsNull: Boolean; virtual;
@ -1006,6 +1048,10 @@ type
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
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 ESTADOIsNull: Boolean read GetESTADOIsNull write SetESTADOIsNull;
property REF_EPIGRAFE_PADRE: String read GetREF_EPIGRAFE_PADREValue write SetREF_EPIGRAFE_PADREValue;
property REF_EPIGRAFE_PADREIsNull: Boolean read GetREF_EPIGRAFE_PADREIsNull write SetREF_EPIGRAFE_PADREIsNull;
property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull; property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property ID_CUENTA: Integer read GetID_CUENTAValue write SetID_CUENTAValue; property ID_CUENTA: Integer read GetID_CUENTAValue write SetID_CUENTAValue;
@ -1029,7 +1075,7 @@ type
{ ICuentas } { ICuentas }
ICuentas = interface(IDAStronglyTypedDataTable) ICuentas = interface(IDAStronglyTypedDataTable)
['{5A21169F-01D8-4994-AB78-14A2751E41D9}'] ['{7F0EFEE7-C324-4072-944B-EA6AAB09E1D8}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1043,6 +1089,10 @@ 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;
procedure SetESTADOValue(const aValue: String);
function GetESTADOIsNull: Boolean;
procedure SetESTADOIsNull(const aValue: Boolean);
function GetDESCRIPCIONValue: String; function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String); procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean; function GetDESCRIPCIONIsNull: Boolean;
@ -1080,6 +1130,8 @@ type
property REF_CUENTAIsNull: Boolean read GetREF_CUENTAIsNull write SetREF_CUENTAIsNull; property REF_CUENTAIsNull: Boolean read GetREF_CUENTAIsNull write SetREF_CUENTAIsNull;
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 ESTADOIsNull: Boolean read GetESTADOIsNull write SetESTADOIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property ID_EPIGRAFE: Integer read GetID_EPIGRAFEValue write SetID_EPIGRAFEValue; property ID_EPIGRAFE: Integer read GetID_EPIGRAFEValue write SetID_EPIGRAFEValue;
@ -1113,6 +1165,10 @@ 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;
procedure SetESTADOValue(const aValue: String); virtual;
function GetESTADOIsNull: Boolean; virtual;
procedure SetESTADOIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual; function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual; function GetDESCRIPCIONIsNull: Boolean; virtual;
@ -1149,6 +1205,8 @@ type
property REF_CUENTAIsNull: Boolean read GetREF_CUENTAIsNull write SetREF_CUENTAIsNull; property REF_CUENTAIsNull: Boolean read GetREF_CUENTAIsNull write SetREF_CUENTAIsNull;
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 ESTADOIsNull: Boolean read GetESTADOIsNull write SetESTADOIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property ID_EPIGRAFE: Integer read GetID_EPIGRAFEValue write SetID_EPIGRAFEValue; property ID_EPIGRAFE: Integer read GetID_EPIGRAFEValue write SetID_EPIGRAFEValue;
@ -1172,7 +1230,7 @@ type
{ ICuentasEspeciales } { ICuentasEspeciales }
ICuentasEspeciales = interface(IDAStronglyTypedDataTable) ICuentasEspeciales = interface(IDAStronglyTypedDataTable)
['{08298F1B-97F2-46DE-A229-956C4A8035FF}'] ['{0608870B-F3BF-4E54-8F6E-D79A17A0292A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1231,7 +1289,7 @@ type
{ IEpigrafes } { IEpigrafes }
IEpigrafes = interface(IDAStronglyTypedDataTable) IEpigrafes = interface(IDAStronglyTypedDataTable)
['{ACA9B7DE-A160-43FD-A610-FB7F0BEC3AD0}'] ['{5BEFF5E7-CDB1-458C-A946-B266ADAF9D4F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1249,6 +1307,10 @@ 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;
procedure SetESTADOValue(const aValue: String);
function GetESTADOIsNull: Boolean;
procedure SetESTADOIsNull(const aValue: Boolean);
function GetID_PADREValue: Integer; function GetID_PADREValue: Integer;
procedure SetID_PADREValue(const aValue: Integer); procedure SetID_PADREValue(const aValue: Integer);
function GetID_PADREIsNull: Boolean; function GetID_PADREIsNull: Boolean;
@ -1268,6 +1330,8 @@ type
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
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 ESTADOIsNull: Boolean read GetESTADOIsNull write SetESTADOIsNull;
property ID_PADRE: Integer read GetID_PADREValue write SetID_PADREValue; property ID_PADRE: Integer read GetID_PADREValue write SetID_PADREValue;
property ID_PADREIsNull: Boolean read GetID_PADREIsNull write SetID_PADREIsNull; property ID_PADREIsNull: Boolean read GetID_PADREIsNull write SetID_PADREIsNull;
property EPIGRAFE_PADRE: String read GetEPIGRAFE_PADREValue write SetEPIGRAFE_PADREValue; property EPIGRAFE_PADRE: String read GetEPIGRAFE_PADREValue write SetEPIGRAFE_PADREValue;
@ -1295,6 +1359,10 @@ 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;
procedure SetESTADOValue(const aValue: String); virtual;
function GetESTADOIsNull: Boolean; virtual;
procedure SetESTADOIsNull(const aValue: Boolean); virtual;
function GetID_PADREValue: Integer; virtual; function GetID_PADREValue: Integer; virtual;
procedure SetID_PADREValue(const aValue: Integer); virtual; procedure SetID_PADREValue(const aValue: Integer); virtual;
function GetID_PADREIsNull: Boolean; virtual; function GetID_PADREIsNull: Boolean; virtual;
@ -1313,6 +1381,8 @@ type
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
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 ESTADOIsNull: Boolean read GetESTADOIsNull write SetESTADOIsNull;
property ID_PADRE: Integer read GetID_PADREValue write SetID_PADREValue; property ID_PADRE: Integer read GetID_PADREValue write SetID_PADREValue;
property ID_PADREIsNull: Boolean read GetID_PADREIsNull write SetID_PADREIsNull; property ID_PADREIsNull: Boolean read GetID_PADREIsNull write SetID_PADREIsNull;
property EPIGRAFE_PADRE: String read GetEPIGRAFE_PADREValue write SetEPIGRAFE_PADREValue; property EPIGRAFE_PADRE: String read GetEPIGRAFE_PADREValue write SetEPIGRAFE_PADREValue;
@ -1326,7 +1396,7 @@ type
{ IBalances } { IBalances }
IBalances = interface(IDAStronglyTypedDataTable) IBalances = interface(IDAStronglyTypedDataTable)
['{427DC606-AF79-4D2E-AE75-C9A5C62A7AC9}'] ['{8A08D3CD-8465-488A-82CA-8FD407A879D4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1457,7 +1527,7 @@ type
{ IDarMaxRefSubCuentaCli } { IDarMaxRefSubCuentaCli }
IDarMaxRefSubCuentaCli = interface(IDAStronglyTypedDataTable) IDarMaxRefSubCuentaCli = interface(IDAStronglyTypedDataTable)
['{BFC2513E-E133-4778-906A-A0074EC93F28}'] ['{E6EBFE1B-9E59-4330-AE68-1179534FFCB6}']
{ Property getters and setters } { Property getters and setters }
function GetMAXValue: Integer; function GetMAXValue: Integer;
procedure SetMAXValue(const aValue: Integer); procedure SetMAXValue(const aValue: Integer);
@ -1492,7 +1562,7 @@ type
{ IDarNumOrdenAsiento } { IDarNumOrdenAsiento }
IDarNumOrdenAsiento = interface(IDAStronglyTypedDataTable) IDarNumOrdenAsiento = interface(IDAStronglyTypedDataTable)
['{20DBD3DA-2731-483A-A08F-02C1180AD51B}'] ['{3F826764-3157-4308-ABF7-B7986744C5DB}']
{ Property getters and setters } { Property getters and setters }
function GetNUM_ORDENValue: Int64; function GetNUM_ORDENValue: Int64;
procedure SetNUM_ORDENValue(const aValue: Int64); procedure SetNUM_ORDENValue(const aValue: Int64);
@ -1903,6 +1973,27 @@ begin
DataTable.Fields[idx_DiarioID_EJERCICIO].AsVariant := Null; DataTable.Fields[idx_DiarioID_EJERCICIO].AsVariant := Null;
end; end;
function TDiarioDataTableRules.GetESTADOValue: String;
begin
result := DataTable.Fields[idx_DiarioESTADO].AsString;
end;
procedure TDiarioDataTableRules.SetESTADOValue(const aValue: String);
begin
DataTable.Fields[idx_DiarioESTADO].AsString := aValue;
end;
function TDiarioDataTableRules.GetESTADOIsNull: boolean;
begin
result := DataTable.Fields[idx_DiarioESTADO].IsNull;
end;
procedure TDiarioDataTableRules.SetESTADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_DiarioESTADO].AsVariant := Null;
end;
function TDiarioDataTableRules.GetCONCEPTOValue: String; function TDiarioDataTableRules.GetCONCEPTOValue: String;
begin begin
result := DataTable.Fields[idx_DiarioCONCEPTO].AsString; result := DataTable.Fields[idx_DiarioCONCEPTO].AsString;
@ -2506,6 +2597,48 @@ begin
DataTable.Fields[idx_SubCuentasID_EJERCICIO].AsVariant := Null; DataTable.Fields[idx_SubCuentasID_EJERCICIO].AsVariant := Null;
end; end;
function TSubCuentasDataTableRules.GetESTADOValue: String;
begin
result := DataTable.Fields[idx_SubCuentasESTADO].AsString;
end;
procedure TSubCuentasDataTableRules.SetESTADOValue(const aValue: String);
begin
DataTable.Fields[idx_SubCuentasESTADO].AsString := aValue;
end;
function TSubCuentasDataTableRules.GetESTADOIsNull: boolean;
begin
result := DataTable.Fields[idx_SubCuentasESTADO].IsNull;
end;
procedure TSubCuentasDataTableRules.SetESTADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_SubCuentasESTADO].AsVariant := Null;
end;
function TSubCuentasDataTableRules.GetREF_EPIGRAFE_PADREValue: String;
begin
result := DataTable.Fields[idx_SubCuentasREF_EPIGRAFE_PADRE].AsString;
end;
procedure TSubCuentasDataTableRules.SetREF_EPIGRAFE_PADREValue(const aValue: String);
begin
DataTable.Fields[idx_SubCuentasREF_EPIGRAFE_PADRE].AsString := aValue;
end;
function TSubCuentasDataTableRules.GetREF_EPIGRAFE_PADREIsNull: boolean;
begin
result := DataTable.Fields[idx_SubCuentasREF_EPIGRAFE_PADRE].IsNull;
end;
procedure TSubCuentasDataTableRules.SetREF_EPIGRAFE_PADREIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_SubCuentasREF_EPIGRAFE_PADRE].AsVariant := Null;
end;
function TSubCuentasDataTableRules.GetID_CONTACTOValue: Integer; function TSubCuentasDataTableRules.GetID_CONTACTOValue: Integer;
begin begin
result := DataTable.Fields[idx_SubCuentasID_CONTACTO].AsInteger; result := DataTable.Fields[idx_SubCuentasID_CONTACTO].AsInteger;
@ -2728,6 +2861,27 @@ begin
DataTable.Fields[idx_CuentasID_EJERCICIO].AsVariant := Null; DataTable.Fields[idx_CuentasID_EJERCICIO].AsVariant := Null;
end; end;
function TCuentasDataTableRules.GetESTADOValue: String;
begin
result := DataTable.Fields[idx_CuentasESTADO].AsString;
end;
procedure TCuentasDataTableRules.SetESTADOValue(const aValue: String);
begin
DataTable.Fields[idx_CuentasESTADO].AsString := aValue;
end;
function TCuentasDataTableRules.GetESTADOIsNull: boolean;
begin
result := DataTable.Fields[idx_CuentasESTADO].IsNull;
end;
procedure TCuentasDataTableRules.SetESTADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_CuentasESTADO].AsVariant := Null;
end;
function TCuentasDataTableRules.GetDESCRIPCIONValue: String; function TCuentasDataTableRules.GetDESCRIPCIONValue: String;
begin begin
result := DataTable.Fields[idx_CuentasDESCRIPCION].AsString; result := DataTable.Fields[idx_CuentasDESCRIPCION].AsString;
@ -3046,6 +3200,27 @@ begin
DataTable.Fields[idx_EpigrafesID_EJERCICIO].AsVariant := Null; DataTable.Fields[idx_EpigrafesID_EJERCICIO].AsVariant := Null;
end; end;
function TEpigrafesDataTableRules.GetESTADOValue: String;
begin
result := DataTable.Fields[idx_EpigrafesESTADO].AsString;
end;
procedure TEpigrafesDataTableRules.SetESTADOValue(const aValue: String);
begin
DataTable.Fields[idx_EpigrafesESTADO].AsString := aValue;
end;
function TEpigrafesDataTableRules.GetESTADOIsNull: boolean;
begin
result := DataTable.Fields[idx_EpigrafesESTADO].IsNull;
end;
procedure TEpigrafesDataTableRules.SetESTADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_EpigrafesESTADO].AsVariant := Null;
end;
function TEpigrafesDataTableRules.GetID_PADREValue: Integer; function TEpigrafesDataTableRules.GetID_PADREValue: Integer;
begin begin
result := DataTable.Fields[idx_EpigrafesID_PADRE].AsInteger; result := DataTable.Fields[idx_EpigrafesID_PADRE].AsInteger;

271
Source/Modulos/Contabilidad/Model/schContabilidadServer_Intf.pas
View File

@ -9,25 +9,25 @@ 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_DarIDCuentaDelta = '{4A8D8FA0-0EEF-4491-BFB4-799375FF5528}'; RID_DarIDCuentaDelta = '{58945EDF-4ED1-4342-99B8-01D0D903616F}';
RID_DarCodigoContableTiendaDelta = '{4E3CF1AC-F8CB-4D95-B44F-5554F384A7A4}'; RID_DarCodigoContableTiendaDelta = '{322E6489-6BDE-488B-BE05-7FDB19C736EA}';
RID_DarMaxRefSubCuentaProvDelta = '{F3BD2639-0408-456A-93C0-DF43CBB10A0A}'; RID_DarMaxRefSubCuentaProvDelta = '{6ED5AE39-4CF7-4DED-925D-0258FED22CDB}';
RID_ExisteSubCuentaDelta = '{2D136513-7A96-4A3D-9DA6-2A8822F53748}'; RID_ExisteSubCuentaDelta = '{108BDCF7-7E2F-4FC0-AB42-1F0AD8DAABC3}';
RID_DiarioDelta = '{DC0F4316-FAF1-4DD1-8682-66E915811023}'; RID_DiarioDelta = '{5C4E0A25-EB00-4230-9BB5-BC542F95FDE0}';
RID_ApuntesDelta = '{F2EDB86B-74A8-4A52-8157-2692165612C9}'; RID_ApuntesDelta = '{19DF1F3D-4101-4A62-9EC0-2923B730CEEE}';
RID_AsientosDelta = '{35612FDC-F9CE-467A-A2E8-0D26DC3AD200}'; RID_AsientosDelta = '{5CECCDE5-83BF-452A-9B0C-0350DD4E0B85}';
RID_SubCuentasDelta = '{6E660749-3293-4E06-96AB-A11049C7C342}'; RID_SubCuentasDelta = '{E791546D-F5C7-4ABB-B84C-CCB5E210C1A8}';
RID_CuentasDelta = '{018CF9CE-E675-40D9-A9E4-F8575423D2DB}'; RID_CuentasDelta = '{23452BF5-9E60-4A25-9460-8B3214862F46}';
RID_CuentasEspecialesDelta = '{6C17A277-C23B-45F2-9815-F5B231A52442}'; RID_CuentasEspecialesDelta = '{62F08124-2141-40B6-B5BA-894708D593D8}';
RID_EpigrafesDelta = '{7164D494-BF70-459F-A6D1-71A368ACB6D6}'; RID_EpigrafesDelta = '{4582AF11-7E29-4C37-A6CF-6AFCD3B5E117}';
RID_BalancesDelta = '{B7E31CED-2229-4BED-8AA5-F00D8642478B}'; RID_BalancesDelta = '{51C1653A-406B-4D36-AA7D-009675E81772}';
RID_DarMaxRefSubCuentaCliDelta = '{B3246BC2-0498-4F96-B2E1-939CD9179F02}'; RID_DarMaxRefSubCuentaCliDelta = '{1F2CE410-A9E2-4057-B438-7895EF8DEF2C}';
RID_DarNumOrdenAsientoDelta = '{1751D5F8-1A96-4208-BFE1-074E99A36D4F}'; RID_DarNumOrdenAsientoDelta = '{16EEB9C7-F7B4-44A6-BE0B-C9BFB5C60E8A}';
type type
{ IDarIDCuentaDelta } { IDarIDCuentaDelta }
IDarIDCuentaDelta = interface(IDarIDCuenta) IDarIDCuentaDelta = interface(IDarIDCuenta)
['{4A8D8FA0-0EEF-4491-BFB4-799375FF5528}'] ['{58945EDF-4ED1-4342-99B8-01D0D903616F}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
@ -61,7 +61,7 @@ type
{ IDarCodigoContableTiendaDelta } { IDarCodigoContableTiendaDelta }
IDarCodigoContableTiendaDelta = interface(IDarCodigoContableTienda) IDarCodigoContableTiendaDelta = interface(IDarCodigoContableTienda)
['{4E3CF1AC-F8CB-4D95-B44F-5554F384A7A4}'] ['{322E6489-6BDE-488B-BE05-7FDB19C736EA}']
{ Property getters and setters } { Property getters and setters }
function GetOldCODIGO_CONTABLEValue : String; function GetOldCODIGO_CONTABLEValue : String;
@ -95,7 +95,7 @@ type
{ IDarMaxRefSubCuentaProvDelta } { IDarMaxRefSubCuentaProvDelta }
IDarMaxRefSubCuentaProvDelta = interface(IDarMaxRefSubCuentaProv) IDarMaxRefSubCuentaProvDelta = interface(IDarMaxRefSubCuentaProv)
['{F3BD2639-0408-456A-93C0-DF43CBB10A0A}'] ['{6ED5AE39-4CF7-4DED-925D-0258FED22CDB}']
{ Property getters and setters } { Property getters and setters }
function GetOldMAXValue : Integer; function GetOldMAXValue : Integer;
@ -129,7 +129,7 @@ type
{ IExisteSubCuentaDelta } { IExisteSubCuentaDelta }
IExisteSubCuentaDelta = interface(IExisteSubCuenta) IExisteSubCuentaDelta = interface(IExisteSubCuenta)
['{2D136513-7A96-4A3D-9DA6-2A8822F53748}'] ['{108BDCF7-7E2F-4FC0-AB42-1F0AD8DAABC3}']
{ Property getters and setters } { Property getters and setters }
function GetOldCOUNTValue : Integer; function GetOldCOUNTValue : Integer;
@ -163,7 +163,7 @@ type
{ IDiarioDelta } { IDiarioDelta }
IDiarioDelta = interface(IDiario) IDiarioDelta = interface(IDiario)
['{DC0F4316-FAF1-4DD1-8682-66E915811023}'] ['{5C4E0A25-EB00-4230-9BB5-BC542F95FDE0}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_APUNTEValue : Integer; function GetOldID_APUNTEValue : Integer;
function GetOldID_ASIENTOValue : Integer; function GetOldID_ASIENTOValue : Integer;
@ -176,6 +176,7 @@ type
function GetOldREF_SUBCUENTAValue : String; function GetOldREF_SUBCUENTAValue : String;
function GetOldSUBCUENTAValue : String; function GetOldSUBCUENTAValue : String;
function GetOldID_EJERCICIOValue : Integer; function GetOldID_EJERCICIOValue : Integer;
function GetOldESTADOValue : String;
function GetOldCONCEPTOValue : String; function GetOldCONCEPTOValue : String;
function GetOldDOCUMENTOValue : String; function GetOldDOCUMENTOValue : String;
function GetOldDEBEValue : Currency; function GetOldDEBEValue : Currency;
@ -195,6 +196,7 @@ type
property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue; property OldREF_SUBCUENTA : String read GetOldREF_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 OldCONCEPTO : String read GetOldCONCEPTOValue; property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldDOCUMENTO : String read GetOldDOCUMENTOValue; property OldDOCUMENTO : String read GetOldDOCUMENTOValue;
property OldDEBE : Currency read GetOldDEBEValue; property OldDEBE : Currency read GetOldDEBEValue;
@ -274,6 +276,12 @@ 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 GetESTADOIsNull: Boolean; virtual;
function GetOldESTADOValue: String; virtual;
function GetOldESTADOIsNull: Boolean; virtual;
procedure SetESTADOValue(const aValue: String); virtual;
procedure SetESTADOIsNull(const aValue: Boolean); virtual;
function GetCONCEPTOValue: String; virtual; function GetCONCEPTOValue: String; virtual;
function GetCONCEPTOIsNull: Boolean; virtual; function GetCONCEPTOIsNull: Boolean; virtual;
function GetOldCONCEPTOValue: String; virtual; function GetOldCONCEPTOValue: String; virtual;
@ -356,6 +364,10 @@ 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 ESTADOIsNull : Boolean read GetESTADOIsNull write SetESTADOIsNull;
property OldESTADO : String read GetOldESTADOValue;
property OldESTADOIsNull : Boolean read GetOldESTADOIsNull;
property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue; property OldCONCEPTO : String read GetOldCONCEPTOValue;
@ -389,7 +401,7 @@ type
{ IApuntesDelta } { IApuntesDelta }
IApuntesDelta = interface(IApuntes) IApuntesDelta = interface(IApuntes)
['{F2EDB86B-74A8-4A52-8157-2692165612C9}'] ['{19DF1F3D-4101-4A62-9EC0-2923B730CEEE}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_ASIENTOValue : Integer; function GetOldID_ASIENTOValue : Integer;
@ -543,7 +555,7 @@ type
{ IAsientosDelta } { IAsientosDelta }
IAsientosDelta = interface(IAsientos) IAsientosDelta = interface(IAsientos)
['{35612FDC-F9CE-467A-A2E8-0D26DC3AD200}'] ['{5CECCDE5-83BF-452A-9B0C-0350DD4E0B85}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldFECHA_ASIENTOValue : DateTime; function GetOldFECHA_ASIENTOValue : DateTime;
@ -637,12 +649,14 @@ type
{ ISubCuentasDelta } { ISubCuentasDelta }
ISubCuentasDelta = interface(ISubCuentas) ISubCuentasDelta = interface(ISubCuentas)
['{6E660749-3293-4E06-96AB-A11049C7C342}'] ['{E791546D-F5C7-4ABB-B84C-CCB5E210C1A8}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREF_SUBCUENTAValue : String; function GetOldREF_SUBCUENTAValue : String;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
function GetOldID_EJERCICIOValue : Integer; function GetOldID_EJERCICIOValue : Integer;
function GetOldESTADOValue : String;
function GetOldREF_EPIGRAFE_PADREValue : String;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
function GetOldID_CUENTAValue : Integer; function GetOldID_CUENTAValue : Integer;
function GetOldREF_CUENTAValue : String; function GetOldREF_CUENTAValue : String;
@ -656,6 +670,8 @@ type
property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue; property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue; property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldESTADO : String read GetOldESTADOValue;
property OldREF_EPIGRAFE_PADRE : String read GetOldREF_EPIGRAFE_PADREValue;
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue; property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
property OldID_CUENTA : Integer read GetOldID_CUENTAValue; property OldID_CUENTA : Integer read GetOldID_CUENTAValue;
property OldREF_CUENTA : String read GetOldREF_CUENTAValue; property OldREF_CUENTA : String read GetOldREF_CUENTAValue;
@ -694,6 +710,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 GetESTADOIsNull: Boolean; virtual;
function GetOldESTADOValue: String; virtual;
function GetOldESTADOIsNull: Boolean; virtual;
procedure SetESTADOValue(const aValue: String); virtual;
procedure SetESTADOIsNull(const aValue: Boolean); virtual;
function GetREF_EPIGRAFE_PADREValue: String; virtual;
function GetREF_EPIGRAFE_PADREIsNull: Boolean; virtual;
function GetOldREF_EPIGRAFE_PADREValue: String; virtual;
function GetOldREF_EPIGRAFE_PADREIsNull: Boolean; virtual;
procedure SetREF_EPIGRAFE_PADREValue(const aValue: String); virtual;
procedure SetREF_EPIGRAFE_PADREIsNull(const aValue: Boolean); virtual;
function GetID_CONTACTOValue: Integer; virtual; function GetID_CONTACTOValue: Integer; virtual;
function GetID_CONTACTOIsNull: Boolean; virtual; function GetID_CONTACTOIsNull: Boolean; virtual;
function GetOldID_CONTACTOValue: Integer; virtual; function GetOldID_CONTACTOValue: Integer; virtual;
@ -754,6 +782,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 ESTADOIsNull : Boolean read GetESTADOIsNull write SetESTADOIsNull;
property OldESTADO : String read GetOldESTADOValue;
property OldESTADOIsNull : Boolean read GetOldESTADOIsNull;
property REF_EPIGRAFE_PADRE : String read GetREF_EPIGRAFE_PADREValue write SetREF_EPIGRAFE_PADREValue;
property REF_EPIGRAFE_PADREIsNull : Boolean read GetREF_EPIGRAFE_PADREIsNull write SetREF_EPIGRAFE_PADREIsNull;
property OldREF_EPIGRAFE_PADRE : String read GetOldREF_EPIGRAFE_PADREValue;
property OldREF_EPIGRAFE_PADREIsNull : Boolean read GetOldREF_EPIGRAFE_PADREIsNull;
property ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; property ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
property ID_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull; property ID_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue; property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
@ -791,11 +827,12 @@ type
{ ICuentasDelta } { ICuentasDelta }
ICuentasDelta = interface(ICuentas) ICuentasDelta = interface(ICuentas)
['{018CF9CE-E675-40D9-A9E4-F8575423D2DB}'] ['{23452BF5-9E60-4A25-9460-8B3214862F46}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREF_CUENTAValue : String; function GetOldREF_CUENTAValue : String;
function GetOldID_EJERCICIOValue : Integer; function GetOldID_EJERCICIOValue : Integer;
function GetOldESTADOValue : String;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
function GetOldID_EPIGRAFEValue : Integer; function GetOldID_EPIGRAFEValue : Integer;
function GetOldEPIGRAFEValue : String; function GetOldEPIGRAFEValue : String;
@ -808,6 +845,7 @@ type
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
property OldREF_CUENTA : String read GetOldREF_CUENTAValue; property OldREF_CUENTA : String read GetOldREF_CUENTAValue;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue; property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldESTADO : String read GetOldESTADOValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldID_EPIGRAFE : Integer read GetOldID_EPIGRAFEValue; property OldID_EPIGRAFE : Integer read GetOldID_EPIGRAFEValue;
property OldEPIGRAFE : String read GetOldEPIGRAFEValue; property OldEPIGRAFE : String read GetOldEPIGRAFEValue;
@ -840,6 +878,12 @@ 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 GetESTADOIsNull: Boolean; virtual;
function GetOldESTADOValue: String; virtual;
function GetOldESTADOIsNull: Boolean; virtual;
procedure SetESTADOValue(const aValue: String); virtual;
procedure SetESTADOIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual; function GetDESCRIPCIONValue: String; virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual; function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual; function GetOldDESCRIPCIONValue: String; virtual;
@ -896,6 +940,10 @@ 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 ESTADOIsNull : Boolean read GetESTADOIsNull write SetESTADOIsNull;
property OldESTADO : String read GetOldESTADOValue;
property OldESTADOIsNull : Boolean read GetOldESTADOIsNull;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
@ -933,7 +981,7 @@ type
{ ICuentasEspecialesDelta } { ICuentasEspecialesDelta }
ICuentasEspecialesDelta = interface(ICuentasEspeciales) ICuentasEspecialesDelta = interface(ICuentasEspeciales)
['{6C17A277-C23B-45F2-9815-F5B231A52442}'] ['{62F08124-2141-40B6-B5BA-894708D593D8}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -991,12 +1039,13 @@ type
{ IEpigrafesDelta } { IEpigrafesDelta }
IEpigrafesDelta = interface(IEpigrafes) IEpigrafesDelta = interface(IEpigrafes)
['{7164D494-BF70-459F-A6D1-71A368ACB6D6}'] ['{4582AF11-7E29-4C37-A6CF-6AFCD3B5E117}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREF_EPIGRAFEValue : String; function GetOldREF_EPIGRAFEValue : String;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
function GetOldID_EJERCICIOValue : Integer; function GetOldID_EJERCICIOValue : Integer;
function GetOldESTADOValue : String;
function GetOldID_PADREValue : Integer; function GetOldID_PADREValue : Integer;
function GetOldEPIGRAFE_PADREValue : String; function GetOldEPIGRAFE_PADREValue : String;
@ -1005,6 +1054,7 @@ type
property OldREF_EPIGRAFE : String read GetOldREF_EPIGRAFEValue; property OldREF_EPIGRAFE : String read GetOldREF_EPIGRAFEValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue; property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldESTADO : String read GetOldESTADOValue;
property OldID_PADRE : Integer read GetOldID_PADREValue; property OldID_PADRE : Integer read GetOldID_PADREValue;
property OldEPIGRAFE_PADRE : String read GetOldEPIGRAFE_PADREValue; property OldEPIGRAFE_PADRE : String read GetOldEPIGRAFE_PADREValue;
end; end;
@ -1038,6 +1088,12 @@ 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 GetESTADOIsNull: Boolean; virtual;
function GetOldESTADOValue: String; virtual;
function GetOldESTADOIsNull: Boolean; virtual;
procedure SetESTADOValue(const aValue: String); virtual;
procedure SetESTADOIsNull(const aValue: Boolean); virtual;
function GetID_PADREValue: Integer; virtual; function GetID_PADREValue: Integer; virtual;
function GetID_PADREIsNull: Boolean; virtual; function GetID_PADREIsNull: Boolean; virtual;
function GetOldID_PADREValue: Integer; virtual; function GetOldID_PADREValue: Integer; virtual;
@ -1068,6 +1124,10 @@ 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 ESTADOIsNull : Boolean read GetESTADOIsNull write SetESTADOIsNull;
property OldESTADO : String read GetOldESTADOValue;
property OldESTADOIsNull : Boolean read GetOldESTADOIsNull;
property ID_PADRE : Integer read GetID_PADREValue write SetID_PADREValue; property ID_PADRE : Integer read GetID_PADREValue write SetID_PADREValue;
property ID_PADREIsNull : Boolean read GetID_PADREIsNull write SetID_PADREIsNull; property ID_PADREIsNull : Boolean read GetID_PADREIsNull write SetID_PADREIsNull;
property OldID_PADRE : Integer read GetOldID_PADREValue; property OldID_PADRE : Integer read GetOldID_PADREValue;
@ -1085,7 +1145,7 @@ type
{ IBalancesDelta } { IBalancesDelta }
IBalancesDelta = interface(IBalances) IBalancesDelta = interface(IBalances)
['{B7E31CED-2229-4BED-8AA5-F00D8642478B}'] ['{51C1653A-406B-4D36-AA7D-009675E81772}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREF_BALANCEValue : String; function GetOldREF_BALANCEValue : String;
@ -1215,7 +1275,7 @@ type
{ IDarMaxRefSubCuentaCliDelta } { IDarMaxRefSubCuentaCliDelta }
IDarMaxRefSubCuentaCliDelta = interface(IDarMaxRefSubCuentaCli) IDarMaxRefSubCuentaCliDelta = interface(IDarMaxRefSubCuentaCli)
['{B3246BC2-0498-4F96-B2E1-939CD9179F02}'] ['{1F2CE410-A9E2-4057-B438-7895EF8DEF2C}']
{ Property getters and setters } { Property getters and setters }
function GetOldMAXValue : Integer; function GetOldMAXValue : Integer;
@ -1249,7 +1309,7 @@ type
{ IDarNumOrdenAsientoDelta } { IDarNumOrdenAsientoDelta }
IDarNumOrdenAsientoDelta = interface(IDarNumOrdenAsiento) IDarNumOrdenAsientoDelta = interface(IDarNumOrdenAsiento)
['{1751D5F8-1A96-4208-BFE1-074E99A36D4F}'] ['{16EEB9C7-F7B4-44A6-BE0B-C9BFB5C60E8A}']
{ Property getters and setters } { Property getters and setters }
function GetOldNUM_ORDENValue : Int64; function GetOldNUM_ORDENValue : Int64;
@ -1810,6 +1870,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_EJERCICIO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_EJERCICIO] := Null;
end; end;
function TDiarioBusinessProcessorRules.GetESTADOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioESTADO];
end;
function TDiarioBusinessProcessorRules.GetESTADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioESTADO]);
end;
function TDiarioBusinessProcessorRules.GetOldESTADOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioESTADO];
end;
function TDiarioBusinessProcessorRules.GetOldESTADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioESTADO]);
end;
procedure TDiarioBusinessProcessorRules.SetESTADOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioESTADO] := aValue;
end;
procedure TDiarioBusinessProcessorRules.SetESTADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioESTADO] := Null;
end;
function TDiarioBusinessProcessorRules.GetCONCEPTOValue: String; function TDiarioBusinessProcessorRules.GetCONCEPTOValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioCONCEPTO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioCONCEPTO];
@ -2683,6 +2774,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_EJERCICIO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_EJERCICIO] := Null;
end; end;
function TSubCuentasBusinessProcessorRules.GetESTADOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasESTADO];
end;
function TSubCuentasBusinessProcessorRules.GetESTADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasESTADO]);
end;
function TSubCuentasBusinessProcessorRules.GetOldESTADOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasESTADO];
end;
function TSubCuentasBusinessProcessorRules.GetOldESTADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasESTADO]);
end;
procedure TSubCuentasBusinessProcessorRules.SetESTADOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasESTADO] := aValue;
end;
procedure TSubCuentasBusinessProcessorRules.SetESTADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasESTADO] := Null;
end;
function TSubCuentasBusinessProcessorRules.GetREF_EPIGRAFE_PADREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_EPIGRAFE_PADRE];
end;
function TSubCuentasBusinessProcessorRules.GetREF_EPIGRAFE_PADREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_EPIGRAFE_PADRE]);
end;
function TSubCuentasBusinessProcessorRules.GetOldREF_EPIGRAFE_PADREValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasREF_EPIGRAFE_PADRE];
end;
function TSubCuentasBusinessProcessorRules.GetOldREF_EPIGRAFE_PADREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasREF_EPIGRAFE_PADRE]);
end;
procedure TSubCuentasBusinessProcessorRules.SetREF_EPIGRAFE_PADREValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_EPIGRAFE_PADRE] := aValue;
end;
procedure TSubCuentasBusinessProcessorRules.SetREF_EPIGRAFE_PADREIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_EPIGRAFE_PADRE] := Null;
end;
function TSubCuentasBusinessProcessorRules.GetID_CONTACTOValue: Integer; function TSubCuentasBusinessProcessorRules.GetID_CONTACTOValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CONTACTO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CONTACTO];
@ -3005,6 +3158,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EJERCICIO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EJERCICIO] := Null;
end; end;
function TCuentasBusinessProcessorRules.GetESTADOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasESTADO];
end;
function TCuentasBusinessProcessorRules.GetESTADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasESTADO]);
end;
function TCuentasBusinessProcessorRules.GetOldESTADOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasESTADO];
end;
function TCuentasBusinessProcessorRules.GetOldESTADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasESTADO]);
end;
procedure TCuentasBusinessProcessorRules.SetESTADOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasESTADO] := aValue;
end;
procedure TCuentasBusinessProcessorRules.SetESTADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasESTADO] := Null;
end;
function TCuentasBusinessProcessorRules.GetDESCRIPCIONValue: String; function TCuentasBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION];
@ -3463,6 +3647,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO] := Null;
end; end;
function TEpigrafesBusinessProcessorRules.GetESTADOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesESTADO];
end;
function TEpigrafesBusinessProcessorRules.GetESTADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesESTADO]);
end;
function TEpigrafesBusinessProcessorRules.GetOldESTADOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesESTADO];
end;
function TEpigrafesBusinessProcessorRules.GetOldESTADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesESTADO]);
end;
procedure TEpigrafesBusinessProcessorRules.SetESTADOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesESTADO] := aValue;
end;
procedure TEpigrafesBusinessProcessorRules.SetESTADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesESTADO] := Null;
end;
function TEpigrafesBusinessProcessorRules.GetID_PADREValue: Integer; function TEpigrafesBusinessProcessorRules.GetID_PADREValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE];

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

@ -619,6 +619,10 @@ object srvContabilidad: TsrvContabilidad
item item
DatasetField = 'TIPO' DatasetField = 'TIPO'
TableField = 'TIPO' TableField = 'TIPO'
end
item
DatasetField = 'ESTADO'
TableField = 'ESTADO'
end> end>
end> end>
Name = 'Diario' Name = 'Diario'
@ -681,6 +685,11 @@ object srvContabilidad: TsrvContabilidad
DataType = datInteger DataType = datInteger
DictionaryEntry = 'Diario_ID_EJERCICIO' DictionaryEntry = 'Diario_ID_EJERCICIO'
end end
item
Name = 'ESTADO'
DataType = datString
Size = 255
end
item item
Name = 'CONCEPTO' Name = 'CONCEPTO'
DataType = datString DataType = datString
@ -943,6 +952,10 @@ object srvContabilidad: TsrvContabilidad
DatasetField = 'ID_EJERCICIO' DatasetField = 'ID_EJERCICIO'
TableField = 'ID_EJERCICIO' TableField = 'ID_EJERCICIO'
end end
item
DatasetField = 'ESTADO'
TableField = 'ESTADO'
end
item item
DatasetField = 'ID_CONTACTO' DatasetField = 'ID_CONTACTO'
TableField = 'ID_CONTACTO' TableField = 'ID_CONTACTO'
@ -970,6 +983,10 @@ object srvContabilidad: TsrvContabilidad
item item
DatasetField = 'SALDO' DatasetField = 'SALDO'
TableField = 'SALDO' TableField = 'SALDO'
end
item
DatasetField = 'REF_EPIGRAFE_PADRE'
TableField = 'REF_EPIGRAFE_PADRE'
end> end>
end> end>
Name = 'SubCuentas' Name = 'SubCuentas'
@ -998,6 +1015,16 @@ object srvContabilidad: TsrvContabilidad
DataType = datInteger DataType = datInteger
DictionaryEntry = 'SubCuentas_ID_EJERCICIO' DictionaryEntry = 'SubCuentas_ID_EJERCICIO'
end end
item
Name = 'ESTADO'
DataType = datString
Size = 255
end
item
Name = 'REF_EPIGRAFE_PADRE'
DataType = datString
Size = 6
end
item item
Name = 'ID_CONTACTO' Name = 'ID_CONTACTO'
DataType = datInteger DataType = datInteger
@ -1057,6 +1084,10 @@ object srvContabilidad: TsrvContabilidad
DatasetField = 'ID_EJERCICIO' DatasetField = 'ID_EJERCICIO'
TableField = 'ID_EJERCICIO' TableField = 'ID_EJERCICIO'
end end
item
DatasetField = 'ESTADO'
TableField = 'ESTADO'
end
item item
DatasetField = 'DESCRIPCION' DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION' TableField = 'DESCRIPCION'
@ -1106,6 +1137,11 @@ object srvContabilidad: TsrvContabilidad
DataType = datInteger DataType = datInteger
DictionaryEntry = 'Cuentas_ID_EJERCICIO' DictionaryEntry = 'Cuentas_ID_EJERCICIO'
end end
item
Name = 'ESTADO'
DataType = datString
Size = 255
end
item item
Name = 'DESCRIPCION' Name = 'DESCRIPCION'
DataType = datString DataType = datString
@ -1219,6 +1255,10 @@ object srvContabilidad: TsrvContabilidad
DatasetField = 'ID_EJERCICIO' DatasetField = 'ID_EJERCICIO'
TableField = 'ID_EJERCICIO' TableField = 'ID_EJERCICIO'
end end
item
DatasetField = 'ESTADO'
TableField = 'ESTADO'
end
item item
DatasetField = 'ID_PADRE' DatasetField = 'ID_PADRE'
TableField = 'ID_PADRE' TableField = 'ID_PADRE'
@ -1255,6 +1295,11 @@ object srvContabilidad: TsrvContabilidad
DataType = datInteger DataType = datInteger
DictionaryEntry = 'Epigrafes_ID_EJERCICIO' DictionaryEntry = 'Epigrafes_ID_EJERCICIO'
end end
item
Name = 'ESTADO'
DataType = datString
Size = 255
end
item item
Name = 'ID_PADRE' Name = 'ID_PADRE'
DataType = datInteger DataType = datInteger

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

@ -8,7 +8,6 @@ inherited fEditorCuenta: TfEditorCuenta
Scaled = False Scaled = False
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 640 ExplicitWidth = 640
ExplicitHeight = 488
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -133,12 +132,12 @@ inherited fEditorCuenta: TfEditorCuenta
ExplicitLeft = 3 ExplicitLeft = 3
ExplicitTop = 79 ExplicitTop = 79
ExplicitWidth = 626 ExplicitWidth = 626
ExplicitHeight = 360 ExplicitHeight = 358
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 618 ExplicitWidth = 618
ExplicitHeight = 332 ExplicitHeight = 330
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar

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

@ -22,6 +22,7 @@ type
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField); procedure dsDataTableDataChange(Sender: TObject; Field: TField);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
procedure actEliminarUpdate(Sender: TObject);
protected protected
FController : ICuentasController; FController : ICuentasController;
FCuenta: IBizCuenta; FCuenta: IBizCuenta;
@ -55,7 +56,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uCustomEditor, uDataModuleBase, uFactuGES_App; uCustomEditor, uDataModuleBase, uFactuGES_App, uBizEjercicios;
function ShowEditorCuenta (ABizObject : TDADataTableRules): TModalResult; function ShowEditorCuenta (ABizObject : TDADataTableRules): TModalResult;
var var
@ -153,6 +154,13 @@ begin
inherited; inherited;
end; end;
procedure TfEditorCuenta.actEliminarUpdate(Sender: TObject);
begin
inherited;
if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := (Cuenta.ESTADO = CTE_ABIERTO);
end;
procedure TfEditorCuenta.AsignarVista; procedure TfEditorCuenta.AsignarVista;
var var
AViewCuenta: TfrViewCuenta; AViewCuenta: TfrViewCuenta;

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

@ -102,6 +102,12 @@ inherited fEditorCuentas: TfEditorCuentas
ExplicitWidth = 543 ExplicitWidth = 543
ExplicitHeight = 195 ExplicitHeight = 195
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
Format = '0 cuentas'
Kind = skCount
Column = frViewCuentas1.cxGridViewREF_CUENTA
end>
inherited cxGridViewID: TcxGridDBColumn inherited cxGridViewID: TcxGridDBColumn
IsCaptionAssigned = True IsCaptionAssigned = True
end end
@ -184,6 +190,10 @@ inherited fEditorCuentas: TfEditorCuentas
inherited actNuevo: TAction inherited actNuevo: TAction
ImageIndex = 23 ImageIndex = 23
end end
inherited actDuplicar: TAction
Enabled = False
Visible = False
end
end end
inherited SmallImages: TPngImageList [5] inherited SmallImages: TPngImageList [5]
PngImages = < PngImages = <

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

@ -18,6 +18,9 @@ type
TfEditorCuentas = class(TfEditorGridBase, IEditorCuentas) TfEditorCuentas = class(TfEditorGridBase, IEditorCuentas)
frViewCuentas1: TfrViewCuentas; frViewCuentas1: TfrViewCuentas;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
procedure actNuevoUpdate(Sender: TObject);
procedure actModificarUpdate(Sender: TObject);
private private
FCuentas: IBizCuenta; FCuentas: IBizCuenta;
FController : ICuentasController; FController : ICuentasController;
@ -43,7 +46,7 @@ type
implementation implementation
uses uses
uCustomEditor, uDataModuleUsuarios, uCustomEditor, uDataModuleUsuarios, uBizEjercicios,
// uEditorCuenta, // uEditorCuenta,
uEditorDBBase, uFactuGES_App, uEditorDBBase, uFactuGES_App,
cxGrid, cxGridCustomTableView; //, uListaCuentas; cxGrid, cxGridCustomTableView; //, uListaCuentas;
@ -148,6 +151,27 @@ begin
end; end;
end; end;
procedure TfEditorCuentas.actEliminarUpdate(Sender: TObject);
begin
inherited;
if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := (Cuentas.ESTADO = CTE_ABIERTO);
end;
procedure TfEditorCuentas.actModificarUpdate(Sender: TObject);
begin
inherited;
if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := (Cuentas.ESTADO = CTE_ABIERTO);
end;
procedure TfEditorCuentas.actNuevoUpdate(Sender: TObject);
begin
inherited;
if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := (AppFactuGES.EjercicioActivo.ESTADO = CTE_ABIERTO);
end;
constructor TfEditorCuentas.Create(AOwner: TComponent); constructor TfEditorCuentas.Create(AOwner: TComponent);
begin begin
inherited; inherited;

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

@ -69,6 +69,22 @@ inherited fEditorDiario: TfEditorDiario
ExplicitWidth = 543 ExplicitWidth = 543
ExplicitHeight = 195 ExplicitHeight = 195
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = frViewDiario1.cxGridViewDEBE
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = frViewDiario1.cxGridViewHABER
end
item
Format = '0 apuntes'
Kind = skCount
Column = frViewDiario1.cxGridViewCONCEPTO
end>
inherited cxGridViewID_ASIENTO: TcxGridDBColumn inherited cxGridViewID_ASIENTO: TcxGridDBColumn
IsCaptionAssigned = True IsCaptionAssigned = True
end end

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

@ -20,6 +20,7 @@ type
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);
private private
FDiario: IBizDiario; FDiario: IBizDiario;
FController : IAsientosController; FController : IAsientosController;
@ -47,10 +48,9 @@ type
implementation implementation
uses uses
uCustomEditor, uDataModuleUsuarios, uCustomEditor, uDataModuleUsuarios, uBizEjercicios,
// uEditorEpigrafe,
uEditorDBBase, uFactuGES_App, uEditorDBBase, uFactuGES_App,
cxGrid, cxGridCustomTableView; //, uListaAsientos; cxGrid, cxGridCustomTableView;
{$R *.dfm} {$R *.dfm}
@ -171,7 +171,7 @@ begin
inherited; inherited;
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; (Sender as TAction).Enabled := Diario.ID_FACTURAIsNull and Diario.ID_PAGOIsNull and (Diario.ESTADO = CTE_ABIERTO);
end; end;
procedure TfEditorDiario.actModificarUpdate(Sender: TObject); procedure TfEditorDiario.actModificarUpdate(Sender: TObject);
@ -179,7 +179,14 @@ begin
inherited; inherited;
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; (Sender as TAction).Enabled := Diario.ID_FACTURAIsNull and Diario.ID_PAGOIsNull and (Diario.ESTADO = CTE_ABIERTO);
end;
procedure TfEditorDiario.actNuevoUpdate(Sender: TObject);
begin
inherited;
if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := (AppFactuGES.EjercicioActivo.ESTADO = CTE_ABIERTO);
end; end;
constructor TfEditorDiario.Create(AOwner: TComponent); constructor TfEditorDiario.Create(AOwner: TComponent);

8
Source/Modulos/Contabilidad/Views/uEditorEpigrafe.dfm
View File

@ -8,7 +8,7 @@ inherited fEditorEpigrafe: TfEditorEpigrafe
Scaled = False Scaled = False
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 640 ExplicitWidth = 640
ExplicitHeight = 488 ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -22,7 +22,7 @@ inherited fEditorEpigrafe: TfEditorEpigrafe
000000180806000000E0773DF8000000017352474200AECE1CE9000000046741 000000180806000000E0773DF8000000017352474200AECE1CE9000000046741
4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000 4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
80E8000075300000EA6000003A98000017709CBA513C00000009704859730000 80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
17110000171101CA26F33F000005F849444154484B7D957954945518C6AF99A1 17100000171001186111DB000005F849444154484B7D957954945518C6AF99A1
69162E2D56E714E1C9CED163697F68567A4CD1CAFCA363298A111ADB1460E432 69162E2D56E714E1C9CED163697F68567A4CD1CAFCA363298A111ADB1460E432
72CC000B704B53111860D8944544140545D61996401074409841F601019995D9 72CC000B704B53111860D8944544140545D61996401074409841F601019995D9
81E1E97E9725086DE6FCCEFDEEBDDF799EF77BEF7BEF9D1279EE0FFECC59CFF8 81E1E97E9725086DE6FCCEFDEEBDDF799EF77BEF7BEF9D1279EE0FFECC59CFF8
@ -133,12 +133,12 @@ inherited fEditorEpigrafe: TfEditorEpigrafe
ExplicitLeft = 3 ExplicitLeft = 3
ExplicitTop = 79 ExplicitTop = 79
ExplicitWidth = 626 ExplicitWidth = 626
ExplicitHeight = 360 ExplicitHeight = 358
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 618 ExplicitWidth = 618
ExplicitHeight = 332 ExplicitHeight = 330
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar

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

@ -22,6 +22,7 @@ type
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField); procedure dsDataTableDataChange(Sender: TObject; Field: TField);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
procedure actEliminarUpdate(Sender: TObject);
protected protected
FController : IEpigrafesController; FController : IEpigrafesController;
FEpigrafe: IBizEpigrafe; FEpigrafe: IBizEpigrafe;
@ -55,7 +56,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uCustomEditor, uDataModuleBase, uFactuGES_App; uCustomEditor, uDataModuleBase, uFactuGES_App, uBizEjercicios;
function ShowEditorEpigrafe (ABizObject : TDADataTableRules): TModalResult; function ShowEditorEpigrafe (ABizObject : TDADataTableRules): TModalResult;
var var
@ -153,6 +154,13 @@ begin
inherited; inherited;
end; end;
procedure TfEditorEpigrafe.actEliminarUpdate(Sender: TObject);
begin
inherited;
if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := (Epigrafe.ESTADO = CTE_ABIERTO);
end;
procedure TfEditorEpigrafe.AsignarVista; procedure TfEditorEpigrafe.AsignarVista;
var var
AViewEpigrafe: TfrViewEpigrafe; AViewEpigrafe: TfrViewEpigrafe;

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

@ -102,6 +102,12 @@ inherited fEditorEpigrafes: TfEditorEpigrafes
ExplicitWidth = 543 ExplicitWidth = 543
ExplicitHeight = 195 ExplicitHeight = 195
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
Format = '0 epigrafes'
Kind = skCount
Column = frViewEpigrafes1.cxGridViewREF_EPIGRAFE
end>
inherited cxGridViewID: TcxGridDBColumn inherited cxGridViewID: TcxGridDBColumn
IsCaptionAssigned = True IsCaptionAssigned = True
end end
@ -184,6 +190,10 @@ inherited fEditorEpigrafes: TfEditorEpigrafes
inherited actNuevo: TAction inherited actNuevo: TAction
ImageIndex = 23 ImageIndex = 23
end end
inherited actDuplicar: TAction
Enabled = False
Visible = False
end
end end
inherited SmallImages: TPngImageList [5] inherited SmallImages: TPngImageList [5]
PngImages = < PngImages = <

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

@ -18,6 +18,9 @@ type
TfEditorEpigrafes = class(TfEditorGridBase, IEditorEpigrafes) TfEditorEpigrafes = class(TfEditorGridBase, IEditorEpigrafes)
frViewEpigrafes1: TfrViewEpigrafes; frViewEpigrafes1: TfrViewEpigrafes;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
procedure actNuevoUpdate(Sender: TObject);
procedure actModificarUpdate(Sender: TObject);
private private
FEpigrafes: IBizEpigrafe; FEpigrafes: IBizEpigrafe;
FController : IEpigrafesController; FController : IEpigrafesController;
@ -43,7 +46,7 @@ type
implementation implementation
uses uses
uCustomEditor, uDataModuleUsuarios, uCustomEditor, uDataModuleUsuarios, uBizEjercicios,
// uEditorEpigrafe, // uEditorEpigrafe,
uEditorDBBase, uFactuGES_App, uEditorDBBase, uFactuGES_App,
cxGrid, cxGridCustomTableView; //, uListaEpigrafes; cxGrid, cxGridCustomTableView; //, uListaEpigrafes;
@ -148,6 +151,27 @@ begin
end; end;
end; end;
procedure TfEditorEpigrafes.actEliminarUpdate(Sender: TObject);
begin
inherited;
if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := (Epigrafes.ESTADO = CTE_ABIERTO);
end;
procedure TfEditorEpigrafes.actModificarUpdate(Sender: TObject);
begin
inherited;
if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := (Epigrafes.ESTADO = CTE_ABIERTO);
end;
procedure TfEditorEpigrafes.actNuevoUpdate(Sender: TObject);
begin
inherited;
if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := (AppFactuGES.EjercicioActivo.ESTADO = CTE_ABIERTO);
end;
constructor TfEditorEpigrafes.Create(AOwner: TComponent); constructor TfEditorEpigrafes.Create(AOwner: TComponent);
begin begin
inherited; inherited;

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

@ -11,6 +11,7 @@ inherited fEditorExtractoMovimientos: TfEditorExtractoMovimientos
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 774 Width = 774
Caption = 'Cajas / Bancos' Caption = 'Cajas / Bancos'
ExplicitWidth = 774
inherited Image1: TImage inherited Image1: TImage
Left = 747 Left = 747
Picture.Data = { Picture.Data = {
@ -34,12 +35,14 @@ inherited fEditorExtractoMovimientos: TfEditorExtractoMovimientos
6EF7C52B60602B0B9102064637011BF32C5E2E3B5DC112F16055FD5B06BC1376 6EF7C52B60602B0B9102064637011BF32C5E2E3B5DC112F16055FD5B06BC1376
B70F57D215EE9E2204A207B6E037BFF0F498D230667516BB7D9E4F045FE493C2 B70F57D215EE9E2204A207B6E037BFF0F498D230667516BB7D9E4F045FE493C2
8545EFDB059CF96CF9CBFE0E985A0C641EEE88260000000049454E44AE426082} 8545EFDB059CF96CF9CBFE0E985A0C641EEE88260000000049454E44AE426082}
ExplicitLeft = 747
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 774 Width = 774
ExplicitWidth = 774
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 561 ExplicitWidth = 704
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
inherited tbxEditFiltro: TTBXEditItem inherited tbxEditFiltro: TTBXEditItem
@ -62,6 +65,8 @@ inherited fEditorExtractoMovimientos: TfEditorExtractoMovimientos
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 478 Top = 478
Width = 774 Width = 774
ExplicitTop = 478
ExplicitWidth = 774
end end
inline frViewExtractoMovimientos1: TfrViewExtractoMovimientos [3] inline frViewExtractoMovimientos1: TfrViewExtractoMovimientos [3]
Left = 0 Left = 0
@ -78,13 +83,13 @@ inherited fEditorExtractoMovimientos: TfEditorExtractoMovimientos
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitTop = 102 ExplicitTop = 102
ExplicitWidth = 543 ExplicitWidth = 774
ExplicitHeight = 323 ExplicitHeight = 376
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 774 Width = 774
Height = 248 Height = 248
ExplicitWidth = 543 ExplicitWidth = 774
ExplicitHeight = 195 ExplicitHeight = 248
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -109,22 +114,34 @@ inherited fEditorExtractoMovimientos: TfEditorExtractoMovimientos
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 774 Width = 774
ExplicitWidth = 543 ExplicitWidth = 774
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 543 ExplicitWidth = 774
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 774 Width = 774
ExplicitWidth = 543 ExplicitWidth = 774
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 446 ExplicitWidth = 446
Width = 446 Width = 446
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 232 ExplicitWidth = 232
Width = 232 Width = 232
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 474 Left = 474
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 474 ExplicitLeft = 474
ExplicitWidth = 197 ExplicitWidth = 197
Width = 197 Width = 197
@ -132,24 +149,24 @@ inherited fEditorExtractoMovimientos: TfEditorExtractoMovimientos
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 774 Width = 774
ExplicitWidth = 543 ExplicitWidth = 774
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 764 Width = 764
ExplicitWidth = 533 ExplicitWidth = 764
end end
end end
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 350 Top = 350
ExplicitTop = 297 ExplicitTop = 350
ExplicitWidth = 543 ExplicitWidth = 774
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 774 Width = 774
ExplicitWidth = 543 ExplicitWidth = 774
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
Width = 764 Width = 764
ExplicitWidth = 533 ExplicitWidth = 764
end end
end end
end end

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

@ -24,6 +24,7 @@ type
procedure actEliminarUpdate(Sender: TObject); procedure actEliminarUpdate(Sender: TObject);
procedure actCerrarCajaExecute(Sender: TObject); procedure actCerrarCajaExecute(Sender: TObject);
procedure actCerrarCajaUpdate(Sender: TObject); procedure actCerrarCajaUpdate(Sender: TObject);
procedure actNuevoUpdate(Sender: TObject);
private private
FDiario: IBizDiario; FDiario: IBizDiario;
@ -54,7 +55,7 @@ type
implementation implementation
uses uses
uFactuGES_App; uFactuGES_App, uBizEjercicios;
{$R *.dfm} {$R *.dfm}
@ -172,7 +173,8 @@ begin
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);
end; end;
procedure TfEditorExtractoMovimientos.actModificarUpdate(Sender: TObject); procedure TfEditorExtractoMovimientos.actModificarUpdate(Sender: TObject);
@ -181,7 +183,16 @@ begin
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);
end;
procedure TfEditorExtractoMovimientos.actNuevoUpdate(Sender: TObject);
begin
inherited;
if (Sender as TAction).Enabled then
if Assigned(Diario) then
(Sender as TAction).Enabled := AppFactuGES.EjercicioActivo.ESTADO = CTE_ABIERTO;
end; end;
constructor TfEditorExtractoMovimientos.Create(AOwner: TComponent); constructor TfEditorExtractoMovimientos.Create(AOwner: TComponent);

8
Source/Modulos/Contabilidad/Views/uEditorSubCuenta.dfm
View File

@ -8,7 +8,7 @@ inherited fEditorSubCuenta: TfEditorSubCuenta
Scaled = False Scaled = False
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 640 ExplicitWidth = 640
ExplicitHeight = 488 ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -22,7 +22,7 @@ inherited fEditorSubCuenta: TfEditorSubCuenta
000000180806000000E0773DF8000000017352474200AECE1CE9000000046741 000000180806000000E0773DF8000000017352474200AECE1CE9000000046741
4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000 4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
80E8000075300000EA6000003A98000017709CBA513C00000009704859730000 80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
17110000171101CA26F33F0000061349444154484B8D957950535714C6AFA3B6 17100000171001186111DB0000061349444154484B8D957950535714C6AFA3B6
D50A3550C7FEE3D8B163D5EAB45A3BB668D516A958A753D756D45A15C48588D6 D50A3550C7FEE3D8B163D5EAB45A3BB668D516A958A753D756D45A15C48588D6
3A82A52A1641515CC6991008080202861910704341306CA238209B61912D4202 3A82A52A1641515CC6991008080202861910704341306CA238209B61912D4202
D9F78D255FEF7B048B3A3A7D995FCECD7D2FE7FBEEB92737A3E2A323425C5D46 D9F78D255FEF7B048B3A3A7D995FCECD7D2FE7FBEEB92737A3E2A323425C5D46
@ -134,12 +134,12 @@ inherited fEditorSubCuenta: TfEditorSubCuenta
ExplicitLeft = 3 ExplicitLeft = 3
ExplicitTop = 79 ExplicitTop = 79
ExplicitWidth = 626 ExplicitWidth = 626
ExplicitHeight = 360 ExplicitHeight = 358
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 618 ExplicitWidth = 618
ExplicitHeight = 332 ExplicitHeight = 330
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar

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

@ -22,6 +22,7 @@ type
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField); procedure dsDataTableDataChange(Sender: TObject; Field: TField);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
procedure actEliminarUpdate(Sender: TObject);
protected protected
FController : ISubCuentasController; FController : ISubCuentasController;
FSubCuenta: IBizSubCuenta; FSubCuenta: IBizSubCuenta;
@ -55,7 +56,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uCustomEditor, uDataModuleBase, uFactuGES_App; uCustomEditor, uDataModuleBase, uFactuGES_App, uBizEjercicios;
function ShowEditorSubCuenta (ABizObject : TDADataTableRules): TModalResult; function ShowEditorSubCuenta (ABizObject : TDADataTableRules): TModalResult;
var var
@ -153,6 +154,13 @@ begin
inherited; inherited;
end; end;
procedure TfEditorSubCuenta.actEliminarUpdate(Sender: TObject);
begin
inherited;
if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := (SubCuenta.ESTADO = CTE_ABIERTO);
end;
procedure TfEditorSubCuenta.AsignarVista; procedure TfEditorSubCuenta.AsignarVista;
var var
AViewSubCuenta: TfrViewSubCuenta; AViewSubCuenta: TfrViewSubCuenta;

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

@ -103,6 +103,12 @@ inherited fEditorSubCuentas: TfEditorSubCuentas
ExplicitWidth = 543 ExplicitWidth = 543
ExplicitHeight = 195 ExplicitHeight = 195
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
Format = '0 subcuentas'
Kind = skCount
Column = frViewSubCuentas1.cxGridViewREF_SUBCUENTA
end>
inherited cxGridViewID: TcxGridDBColumn inherited cxGridViewID: TcxGridDBColumn
IsCaptionAssigned = True IsCaptionAssigned = True
end end
@ -185,6 +191,10 @@ inherited fEditorSubCuentas: TfEditorSubCuentas
inherited actNuevo: TAction inherited actNuevo: TAction
ImageIndex = 23 ImageIndex = 23
end end
inherited actDuplicar: TAction
Enabled = False
Visible = False
end
end end
inherited SmallImages: TPngImageList [5] inherited SmallImages: TPngImageList [5]
PngImages = < PngImages = <

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

@ -18,6 +18,9 @@ type
TfEditorSubCuentas = class(TfEditorGridBase, IEditorSubCuentas) TfEditorSubCuentas = class(TfEditorGridBase, IEditorSubCuentas)
frViewSubCuentas1: TfrViewSubCuentas; frViewSubCuentas1: TfrViewSubCuentas;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
procedure actNuevoUpdate(Sender: TObject);
procedure actModificarUpdate(Sender: TObject);
private private
FSubCuentas: IBizSubCuenta; FSubCuentas: IBizSubCuenta;
FController : ISubCuentasController; FController : ISubCuentasController;
@ -43,7 +46,7 @@ type
implementation implementation
uses uses
uCustomEditor, uDataModuleUsuarios, uCustomEditor, uDataModuleUsuarios, uBizEjercicios,
// uEditorEpigrafe, // uEditorEpigrafe,
uEditorDBBase, uFactuGES_App, uEditorDBBase, uFactuGES_App,
cxGrid, cxGridCustomTableView; //, uListaSubCuentas; cxGrid, cxGridCustomTableView; //, uListaSubCuentas;
@ -145,6 +148,27 @@ begin
end; end;
end; end;
procedure TfEditorSubCuentas.actEliminarUpdate(Sender: TObject);
begin
inherited;
if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := (SubCuentas.ESTADO = CTE_ABIERTO);
end;
procedure TfEditorSubCuentas.actModificarUpdate(Sender: TObject);
begin
inherited;
if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := (SubCuentas.ESTADO = CTE_ABIERTO);
end;
procedure TfEditorSubCuentas.actNuevoUpdate(Sender: TObject);
begin
inherited;
if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := (AppFactuGES.EjercicioActivo.ESTADO = CTE_ABIERTO);
end;
constructor TfEditorSubCuentas.Create(AOwner: TComponent); constructor TfEditorSubCuentas.Create(AOwner: TComponent);
begin begin
inherited; inherited;

13
Source/Modulos/Contactos/Views/uEditorCliente.dfm
View File

@ -741,19 +741,6 @@ inherited fEditorCliente: TfEditorCliente
end end
end end
end end
object DBGrid1: TDBGrid
Left = 93
Top = 192
Width = 786
Height = 120
DataSource = frViewSubCuentaContacto1.DADataSource
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar

1
Source/Modulos/Contactos/Views/uEditorCliente.pas
View File

@ -30,7 +30,6 @@ type
frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales; frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales;
pagContabilidad: TTabSheet; pagContabilidad: TTabSheet;
frViewSubCuentaContacto1: TfrViewSubCuentaContacto; frViewSubCuentaContacto1: TfrViewSubCuentaContacto;
DBGrid1: TDBGrid;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actGruposClienteExecute(Sender: TObject); procedure actGruposClienteExecute(Sender: TObject);
protected protected

BIN
Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.dpk
View File

Binary file not shown.

20
Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.dproj
View File

@ -41,22 +41,22 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<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">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">FacturasCliente_controller.dpk</Source></Source></Delphi.Personality></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><Source><Source Name="MainSource">FacturasCliente_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="FacturasCliente_controller.dpk"> <DelphiCompile Include="FacturasCliente_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Tipos de venta\Views\AlbaranesCliente_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_controller.dcp" />
<DCCReference Include="..\..\Tipos de venta\Views\AlbaranesCliente_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_model.dcp" />
<DCCReference Include="..\..\Tipos de venta\Views\ApplicationBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="..\..\Tipos de venta\Views\Articulos_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" />
<DCCReference Include="..\..\Tipos de venta\Views\Contactos_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
<DCCReference Include="..\..\Tipos de venta\Views\FacturasCliente_data.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_data.dcp" />
<DCCReference Include="..\..\Tipos de venta\Views\FacturasCliente_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_model.dcp" />
<DCCReference Include="..\..\Tipos de venta\Views\FormasPago_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
<DCCReference Include="..\..\Tipos de venta\Views\RecibosCliente_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\RecibosCliente_controller.dcp" />
<DCCReference Include="uArticulosFacturaClienteController.pas" /> <DCCReference Include="uArticulosFacturaClienteController.pas" />
<DCCReference Include="uDetallesFacturaClienteController.pas" /> <DCCReference Include="uDetallesFacturaClienteController.pas" />
<DCCReference Include="uFacturasClienteController.pas" /> <DCCReference Include="uFacturasClienteController.pas" />

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

@ -90,7 +90,6 @@ 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 Buscar(const ID: Integer): IBizFacturaCliente; function Buscar(const ID: Integer): IBizFacturaCliente;
function BuscarTodos: IBizFacturaCliente; function BuscarTodos: IBizFacturaCliente;
function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente; function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente;
@ -125,61 +124,10 @@ uses
uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDataModuleUsuarios, uDAInterfaces, uDataTableUtils,
uAlbaranesClienteController, schAlbaranesClienteClient_Intf, uROTypes, uDetallesAlbaranClienteController, uAlbaranesClienteController, schAlbaranesClienteClient_Intf, uROTypes, uDetallesAlbaranClienteController,
uBizDetallesAlbaranCliente, uFacturasClienteReportController, uBizDetallesAlbaranCliente, uFacturasClienteReportController,
// uBizPedidosCliente, uPedidosClienteController, uBizDetallesPedidoCliente,
DateUtils, Forms, Dialogs, Variants, uIntegerListUtils, DateUtils, Forms, Dialogs, Variants, uIntegerListUtils,
uFormasPagoController, uBizFormasPago, uIEditorElegirFacturasCliente, uFormasPagoController, uBizFormasPago, uIEditorElegirFacturasCliente,
uRecibosClienteController, uBizRecibosCliente;
uBizEjercicios, uRecibosClienteController, uBizRecibosCliente;
{procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente;
ADestino : IBizDetallesFacturaCliente);
var
i : integer;
ADetallesController : IDetallesFacturaClienteController;
begin
if not Assigned(AOrigen) then
raise Exception.Create ('Origen no asignado (CopiarArticulosPedido)');
if not Assigned(ADestino) then
raise Exception.Create ('Destino no asignado (CopiarArticulosPedido)');
if not AOrigen.DataTable.Active then
AOrigen.DataTable.Active := True;
if not ADestino.DataTable.Active then
ADestino.DataTable.Active := True;
ADetallesController := TDetallesFacturaClienteController.Create;
try
//OJO IMPORTANTE
//Siempre que vayamos a trabajar con los detalles debemos hacer un beginupdate de los mismos y un endupdate para
//obligarle siempre a recalcular los detalles una sola vez
ADetallesController.BeginUpdate(ADestino);
AOrigen.DataTable.First;
for i := 0 to AOrigen.DataTable.RecordCount - 1 do
begin
ADetallesController.Add(ADestino, TIPO_DETALLE_CONCEPTO);
ADestino.Edit;
ADestino.REFERENCIA := AOrigen.REFERENCIA;
if AOrigen.ID_ARTICULO > 0 then
ADestino.ID_ARTICULO := AOrigen.ID_ARTICULO;
ADestino.CONCEPTO := AOrigen.CONCEPTO;
ADestino.CANTIDAD := AOrigen.CANTIDAD;
ADestino.IMPORTE_UNIDAD := AOrigen.IMPORTE_UNIDAD;
ADestino.IMPORTE_TOTAL := AOrigen.IMPORTE_TOTAL;
ADestino.DESCUENTO := AOrigen.DESCUENTO;
ADestino.IMPORTE_PORTE := AOrigen.IMPORTE_PORTE;
ADestino.VISIBLE := AOrigen.VISIBLE;
ADestino.REFERENCIA_PROVEEDOR := AOrigen.REFERENCIA_PROVEEDOR;
ADestino.Post;
AOrigen.Next;
end;
finally
ADetallesController.EndUpdate(ADestino);
ADetallesController := NIL;
end;
end;}
procedure CopiarArticulosAlbaran(AOrigen: IBizDetallesAlbaranCliente; procedure CopiarArticulosAlbaran(AOrigen: IBizDetallesAlbaranCliente;
@ -613,6 +561,16 @@ begin
SITUACION := CTE_PENDIENTE; //Al ser una nueva debe de estar pendiente SITUACION := CTE_PENDIENTE; //Al ser una nueva debe de estar pendiente
FECHA_FACTURA := DateOf(Now); FECHA_FACTURA := DateOf(Now);
ID_COMISION_LIQUIDADA := 0; ID_COMISION_LIQUIDADA := 0;
//CONTABILIDAD
ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID;
ESTADO := AppFactuGES.EjercicioActivo.ESTADO;
//En el caso de que el ejercicio este cerrado dejamos duplicar factura sin asociar a contabilidad.
if ESTADO = CTE_CERRADO then
begin
IGNORAR_CONTABILIDAD := 1;
ESTADO := '';
end;
end; end;
Result.Post; Result.Post;
@ -672,10 +630,14 @@ begin
end; end;
} }
if (AFactura.IGNORAR_CONTABILIDAD = 0) and ((AFactura.Cliente.SubCuentas.ID < 1) if (AFactura.IGNORAR_CONTABILIDAD = 0) then
//REPASAR begin
or (AFactura.Cliente.SubCuentas.ID_EJERCICIO <> AppFactuGES.EjercicioActivo.ID)) then if (AppFactuGES.EjercicioActivo.ESTADO = CTE_CERRADO) then
raise Exception.Create('Para que la factura pueda pasar la parte contable es necesario que el proveedor tenga asignada una subcuenta'); raise Exception.Create('Para que la factura pueda pasar a la parte contable el ejercicio activo debe esta ABIERTO');
if ((AFactura.Cliente.SubCuentas.ID < 1) or (AFactura.Cliente.SubCuentas.ID_EJERCICIO <> AppFactuGES.EjercicioActivo.ID)) then
raise Exception.Create('Para que la factura pueda pasar la parte contable es necesario que el cliente tenga asignada una subcuenta');
end;
//En caso de ser un Abono no podra tener un importe total positivo //En caso de ser un Abono no podra tener un importe total positivo
if (AFactura.TIPO = CTE_TIPO_ABONO) then if (AFactura.TIPO = CTE_TIPO_ABONO) then
@ -867,7 +829,9 @@ begin
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); Result := (AFactura.SITUACION = CTE_PENDIENTE)
//Si el ejercicio al que pertenece la factura esta cerrado no se podrá eliminar
and (AFactura.ESTADO <> CTE_CERRADO);
end; end;
procedure TFacturasClienteController.RecalcularImportes( procedure TFacturasClienteController.RecalcularImportes(

46
Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.dproj
View File

@ -42,60 +42,20 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject> <Delphi.Personality> <Parameters> <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><Source><Source Name="MainSource">FacturasCliente_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="ImplicitBuild">True</Package_Options>
<Package_Options Name="DesigntimeOnly">False</Package_Options>
<Package_Options Name="RuntimeOnly">False</Package_Options>
</Package_Options>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">3082</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<Source>
<Source Name="MainSource">FacturasCliente_data.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="FacturasCliente_data.dpk"> <DelphiCompile Include="FacturasCliente_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\FacturasCliente_model.dcp" /> <DCCReference Include="..\FacturasCliente_model.dcp" />
<DCCReference Include="uDataModuleFacturasCliente.pas"> <DCCReference Include="uDataModuleFacturasCliente.pas">
<Form>DataModuleFacturasCliente</Form> <Form>DataModuleFacturasCliente</Form>
<DesignClass>TDAClientDataModule</DesignClass>
</DCCReference> </DCCReference>
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6006

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

@ -278,6 +278,15 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
Name = 'SUBCUENTA' Name = 'SUBCUENTA'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'ID_EJERCICIO'
DataType = datInteger
end
item
Name = 'ESTADO'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

78
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 = '{0B1914D0-B113-4995-B702-5A94444CE70C}'; RID_FacturasCliente = '{661D7B8C-D928-4EE5-B87B-F3C5664D69D4}';
RID_FacturasCliente_Detalles = '{44FAB69F-B375-47FE-8787-B5B1A305A0B6}'; RID_FacturasCliente_Detalles = '{A636830F-78D4-401D-9CD0-9A0BF195A8D9}';
{ Data table names } { Data table names }
nme_FacturasCliente = 'FacturasCliente'; nme_FacturasCliente = 'FacturasCliente';
@ -58,6 +58,8 @@ const
fld_FacturasClienteTIENDA = 'TIENDA'; fld_FacturasClienteTIENDA = 'TIENDA';
fld_FacturasClienteID_SUBCUENTA = 'ID_SUBCUENTA'; fld_FacturasClienteID_SUBCUENTA = 'ID_SUBCUENTA';
fld_FacturasClienteSUBCUENTA = 'SUBCUENTA'; fld_FacturasClienteSUBCUENTA = 'SUBCUENTA';
fld_FacturasClienteID_EJERCICIO = 'ID_EJERCICIO';
fld_FacturasClienteESTADO = 'ESTADO';
{ FacturasCliente field indexes } { FacturasCliente field indexes }
idx_FacturasClienteID = 0; idx_FacturasClienteID = 0;
@ -101,6 +103,8 @@ const
idx_FacturasClienteTIENDA = 38; idx_FacturasClienteTIENDA = 38;
idx_FacturasClienteID_SUBCUENTA = 39; idx_FacturasClienteID_SUBCUENTA = 39;
idx_FacturasClienteSUBCUENTA = 40; idx_FacturasClienteSUBCUENTA = 40;
idx_FacturasClienteID_EJERCICIO = 41;
idx_FacturasClienteESTADO = 42;
{ FacturasCliente_Detalles fields } { FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID'; fld_FacturasCliente_DetallesID = 'ID';
@ -137,7 +141,7 @@ const
type type
{ IFacturasCliente } { IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable) IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{0BE79A41-1EC4-48B2-AD7A-BD802A3B9ED5}'] ['{93BE0E4C-8290-40F7-8644-B8914B454F0E}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -302,6 +306,14 @@ type
procedure SetSUBCUENTAValue(const aValue: String); procedure SetSUBCUENTAValue(const aValue: String);
function GetSUBCUENTAIsNull: Boolean; function GetSUBCUENTAIsNull: Boolean;
procedure SetSUBCUENTAIsNull(const aValue: 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 GetESTADOValue: String;
procedure SetESTADOValue(const aValue: String);
function GetESTADOIsNull: Boolean;
procedure SetESTADOIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -387,6 +399,10 @@ type
property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull; property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue; property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
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_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property ESTADO: String read GetESTADOValue write SetESTADOValue;
property ESTADOIsNull: Boolean read GetESTADOIsNull write SetESTADOIsNull;
end; end;
{ TFacturasClienteDataTableRules } { TFacturasClienteDataTableRules }
@ -559,6 +575,14 @@ type
procedure SetSUBCUENTAValue(const aValue: String); virtual; procedure SetSUBCUENTAValue(const aValue: String); virtual;
function GetSUBCUENTAIsNull: Boolean; virtual; function GetSUBCUENTAIsNull: Boolean; virtual;
procedure SetSUBCUENTAIsNull(const aValue: 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 GetESTADOValue: String; virtual;
procedure SetESTADOValue(const aValue: String); virtual;
function GetESTADOIsNull: Boolean; virtual;
procedure SetESTADOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -643,6 +667,10 @@ type
property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull; property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue; property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
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_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property ESTADO: String read GetESTADOValue write SetESTADOValue;
property ESTADOIsNull: Boolean read GetESTADOIsNull write SetESTADOIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -652,7 +680,7 @@ type
{ IFacturasCliente_Detalles } { IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{B9257A51-DED8-42B0-82AD-2B683FCDCBE9}'] ['{525EA5EE-4D61-4002-B935-03B3F4DC16BF}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1724,6 +1752,48 @@ begin
DataTable.Fields[idx_FacturasClienteSUBCUENTA].AsVariant := Null; DataTable.Fields[idx_FacturasClienteSUBCUENTA].AsVariant := Null;
end; end;
function TFacturasClienteDataTableRules.GetID_EJERCICIOValue: Integer;
begin
result := DataTable.Fields[idx_FacturasClienteID_EJERCICIO].AsInteger;
end;
procedure TFacturasClienteDataTableRules.SetID_EJERCICIOValue(const aValue: Integer);
begin
DataTable.Fields[idx_FacturasClienteID_EJERCICIO].AsInteger := aValue;
end;
function TFacturasClienteDataTableRules.GetID_EJERCICIOIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClienteID_EJERCICIO].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClienteID_EJERCICIO].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetESTADOValue: String;
begin
result := DataTable.Fields[idx_FacturasClienteESTADO].AsString;
end;
procedure TFacturasClienteDataTableRules.SetESTADOValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasClienteESTADO].AsString := aValue;
end;
function TFacturasClienteDataTableRules.GetESTADOIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClienteESTADO].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetESTADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClienteESTADO].AsVariant := Null;
end;
{ TFacturasCliente_DetallesDataTableRules } { TFacturasCliente_DetallesDataTableRules }
constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

94
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 = '{98AACC73-D363-4458-A0D0-D9FD4739FC3A}'; RID_FacturasClienteDelta = '{889543CF-FBB1-4940-BA74-3ECB5DB8D2A6}';
RID_FacturasCliente_DetallesDelta = '{10944E21-F0F0-4154-9A06-F658143DE95A}'; RID_FacturasCliente_DetallesDelta = '{883635DC-21EB-4728-8B22-A7C7D916ED6F}';
type type
{ IFacturasClienteDelta } { IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente) IFacturasClienteDelta = interface(IFacturasCliente)
['{98AACC73-D363-4458-A0D0-D9FD4739FC3A}'] ['{889543CF-FBB1-4940-BA74-3ECB5DB8D2A6}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -58,6 +58,8 @@ type
function GetOldTIENDAValue : String; function GetOldTIENDAValue : String;
function GetOldID_SUBCUENTAValue : Integer; function GetOldID_SUBCUENTAValue : Integer;
function GetOldSUBCUENTAValue : String; function GetOldSUBCUENTAValue : String;
function GetOldID_EJERCICIOValue : Integer;
function GetOldESTADOValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -101,6 +103,8 @@ type
property OldTIENDA : String read GetOldTIENDAValue; property OldTIENDA : String read GetOldTIENDAValue;
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 OldESTADO : String read GetOldESTADOValue;
end; end;
{ TFacturasClienteBusinessProcessorRules } { TFacturasClienteBusinessProcessorRules }
@ -355,6 +359,18 @@ type
function GetOldSUBCUENTAIsNull: Boolean; virtual; function GetOldSUBCUENTAIsNull: Boolean; virtual;
procedure SetSUBCUENTAValue(const aValue: String); virtual; procedure SetSUBCUENTAValue(const aValue: String); virtual;
procedure SetSUBCUENTAIsNull(const aValue: Boolean); 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 GetESTADOValue: String; virtual;
function GetESTADOIsNull: Boolean; virtual;
function GetOldESTADOValue: String; virtual;
function GetOldESTADOIsNull: Boolean; virtual;
procedure SetESTADOValue(const aValue: String); virtual;
procedure SetESTADOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -521,6 +537,14 @@ type
property SUBCUENTAIsNull : Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull; property SUBCUENTAIsNull : Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
property OldSUBCUENTA : String read GetOldSUBCUENTAValue; property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
property OldSUBCUENTAIsNull : Boolean read GetOldSUBCUENTAIsNull; 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 : String read GetESTADOValue write SetESTADOValue;
property ESTADOIsNull : Boolean read GetESTADOIsNull write SetESTADOIsNull;
property OldESTADO : String read GetOldESTADOValue;
property OldESTADOIsNull : Boolean read GetOldESTADOIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -530,7 +554,7 @@ type
{ IFacturasCliente_DetallesDelta } { IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{10944E21-F0F0-4154-9A06-F658143DE95A}'] ['{883635DC-21EB-4728-8B22-A7C7D916ED6F}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -2013,6 +2037,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteSUBCUENTA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteSUBCUENTA] := Null;
end; end;
function TFacturasClienteBusinessProcessorRules.GetID_EJERCICIOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_EJERCICIO];
end;
function TFacturasClienteBusinessProcessorRules.GetID_EJERCICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_EJERCICIO]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_EJERCICIO];
end;
function TFacturasClienteBusinessProcessorRules.GetOldID_EJERCICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_EJERCICIO]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetID_EJERCICIOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_EJERCICIO] := aValue;
end;
procedure TFacturasClienteBusinessProcessorRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_EJERCICIO] := Null;
end;
function TFacturasClienteBusinessProcessorRules.GetESTADOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteESTADO];
end;
function TFacturasClienteBusinessProcessorRules.GetESTADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteESTADO]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldESTADOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteESTADO];
end;
function TFacturasClienteBusinessProcessorRules.GetOldESTADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteESTADO]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetESTADOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteESTADO] := aValue;
end;
procedure TFacturasClienteBusinessProcessorRules.SetESTADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteESTADO] := Null;
end;
{ TFacturasCliente_DetallesBusinessProcessorRules } { TFacturasCliente_DetallesBusinessProcessorRules }
constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -186,6 +186,14 @@ object srvFacturasCliente: TsrvFacturasCliente
item item
DatasetField = 'FECHA_VENCIMIENTO' DatasetField = 'FECHA_VENCIMIENTO'
TableField = 'FECHA_VENCIMIENTO' TableField = 'FECHA_VENCIMIENTO'
end
item
DatasetField = 'ID_EJERCICIO'
TableField = 'ID_EJERCICIO'
end
item
DatasetField = 'ESTADO'
TableField = 'ESTADO'
end> end>
end> end>
Name = 'FacturasCliente' Name = 'FacturasCliente'
@ -409,6 +417,15 @@ object srvFacturasCliente: TsrvFacturasCliente
Name = 'SUBCUENTA' Name = 'SUBCUENTA'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'ID_EJERCICIO'
DataType = datInteger
end
item
Name = 'ESTADO'
DataType = datString
Size = 255
end> end>
end end
item item

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

@ -71,6 +71,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 854 Width = 854
Height = 398 Height = 398
ActivePage = pagContabilidad
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitLeft = 3 ExplicitLeft = 3
ExplicitTop = 79 ExplicitTop = 79
@ -286,57 +287,57 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 57 ExplicitWidth = 57
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown
Left = 586 Left = 570
Top = 0 Top = 0
ExplicitLeft = 586 ExplicitLeft = 570
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 603 Left = 587
Top = 0 Top = 0
ExplicitLeft = 603 ExplicitLeft = 587
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton6: TToolButton inherited ToolButton6: TToolButton
Left = 611 Left = 595
Top = 0 Top = 0
ExplicitLeft = 611 ExplicitLeft = 595
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 645 Left = 629
Top = 0 Top = 0
ExplicitLeft = 645 ExplicitLeft = 629
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 679 Left = 663
Top = 0 Top = 0
ExplicitLeft = 679 ExplicitLeft = 663
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton
Left = 713 Left = 697
Top = 0 Top = 0
ExplicitLeft = 713 ExplicitLeft = 697
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 721 Left = 705
Top = 0 Top = 0
ExplicitLeft = 721 ExplicitLeft = 705
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 755 Left = 739
Top = 0 Top = 0
ExplicitLeft = 755 ExplicitLeft = 739
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 789 Left = 773
Top = 0 Top = 0
ExplicitLeft = 789 ExplicitLeft = 773
ExplicitTop = 0 ExplicitTop = 0
end end
end end
@ -610,6 +611,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup
inherited dxLayoutControl1Group2: TdxLayoutGroup
inherited dxLayoutControl1Group7: TdxLayoutGroup
inherited dxLayoutControl1Item9: TdxLayoutItem
Visible = False
end
end
end
inherited dxLayoutControl1Group5: TdxLayoutGroup inherited dxLayoutControl1Group5: TdxLayoutGroup
inherited dxLayoutControl1Group3: TdxLayoutGroup inherited dxLayoutControl1Group3: TdxLayoutGroup
inherited dxLayoutControl1Group8: TdxLayoutGroup inherited dxLayoutControl1Group8: TdxLayoutGroup

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

@ -109,6 +109,24 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Kind = skSum Kind = skSum
Position = spFooter Position = spFooter
Column = frViewFacturasCliente1.cxGridViewIMPORTE_TOTAL Column = frViewFacturasCliente1.cxGridViewIMPORTE_TOTAL
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Position = spFooter
Column = frViewFacturasCliente1.cxGridViewIMPORTE_IVA
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Position = spFooter
Column = frViewFacturasCliente1.cxGridViewIMPORTE_RE
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Position = spFooter
Column = frViewFacturasCliente1.cxGridViewIMPORTE_DESCUENTO
end> end>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -125,6 +143,21 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Format = ',0.00 '#8364';-,0.00 '#8364 Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum Kind = skSum
Column = frViewFacturasCliente1.cxGridViewIMPORTE_TOTAL Column = frViewFacturasCliente1.cxGridViewIMPORTE_TOTAL
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = frViewFacturasCliente1.cxGridViewIMPORTE_IVA
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = frViewFacturasCliente1.cxGridViewIMPORTE_RE
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = frViewFacturasCliente1.cxGridViewIMPORTE_DESCUENTO
end> end>
inherited cxGridViewBASE_IMPONIBLE: TcxGridDBColumn inherited cxGridViewBASE_IMPONIBLE: TcxGridDBColumn
Visible = True Visible = True

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

@ -67,8 +67,7 @@ implementation
uses uses
uDataModuleFacturasCliente, uDataModuleUsuarios, uAlbaranesClienteController, uFactuGES_App, uDataModuleFacturasCliente, uDataModuleUsuarios, uAlbaranesClienteController, uFactuGES_App,
// uPedidosClienteController, uBizPedidosCliente, uBizejercicios, uGenerarFacturasCliAlbCliUtils,
uGenerarFacturasCliAlbCliUtils,
uBizAlbaranesCliente, uGestorInformesController, uBizAlbaranesCliente, uGestorInformesController,
uEditorBase, uGridUtils, uDBSelectionListUtils; uEditorBase, uGridUtils, uDBSelectionListUtils;
@ -81,7 +80,9 @@ 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);

12
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
View File

@ -120,6 +120,18 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Visible = False Visible = False
FooterAlignmentHorz = taRightJustify FooterAlignmentHorz = taRightJustify
GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewRE: TcxGridDBColumn
DataBinding.FieldName = 'RE'
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewIMPORTE_RE: TcxGridDBColumn
DataBinding.FieldName = 'IMPORTE_RE'
FooterAlignmentHorz = taRightJustify
GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
end end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn

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

@ -58,6 +58,8 @@ type
cxGridViewTIENDA: TcxGridDBColumn; cxGridViewTIENDA: TcxGridDBColumn;
cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn; cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn;
cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn; cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn;
cxGridViewIMPORTE_RE: TcxGridDBColumn;
cxGridViewRE: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle); out AStyle: TcxStyle);

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

@ -125,7 +125,7 @@ uses
uDataModuleFacturasProveedor, uBizDetallesFacturaProveedor, uControllerDetallesBase, uDataModuleFacturasProveedor, uBizDetallesFacturaProveedor, uControllerDetallesBase,
uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils, uROTypes, uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils, uROTypes,
uAlbaranesProveedorController, schAlbaranesProveedorClient_Intf, uDetallesAlbaranProveedorController, uAlbaranesProveedorController, schAlbaranesProveedorClient_Intf, uDetallesAlbaranProveedorController,
uBizDetallesAlbaranProveedor, Variants, uBizDetallesAlbaranProveedor, Variants, uBizEjercicios,
uBizPedidosProveedor, uPedidosProveedorController, uBizDetallesPedidoProveedor, uBizPedidosProveedor, uPedidosProveedorController, uBizDetallesPedidoProveedor,
uRecibosProveedorController, uBizRecibosProveedor, uNumUtils, uRecibosProveedorController, uBizRecibosProveedor, uNumUtils,
uFacturasProveedorReportController, DateUtils, Forms, Dialogs, uFacturasProveedorReportController, DateUtils, Forms, Dialogs,
@ -600,6 +600,16 @@ begin
REFERENCIA := ''; //Para que se asigne una nueva REFERENCIA := ''; //Para que se asigne una nueva
SITUACION := CTE_PENDIENTE; //Una factura nueva debe estar pendiente SITUACION := CTE_PENDIENTE; //Una factura nueva debe estar pendiente
FECHA_FACTURA := DateOf(Now); FECHA_FACTURA := DateOf(Now);
//CONTABILIDAD
ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID;
ESTADO := AppFactuGES.EjercicioActivo.ESTADO;
//En el caso de que el ejercicio este cerrado dejamos duplicar factura sin asociar a contabilidad.
if ESTADO = CTE_CERRADO then
begin
IGNORAR_CONTABILIDAD := 1;
ESTADO := '';
end;
end; end;
Result.Post; Result.Post;
@ -638,8 +648,14 @@ begin
if (AFactura.Detalles.DataTable.RecordCount = 0) then if (AFactura.Detalles.DataTable.RecordCount = 0) then
raise Exception.Create('La factura debe tener al menos un concepto en su contenido'); raise Exception.Create('La factura debe tener al menos un concepto en su contenido');
if (AFactura.IGNORAR_CONTABILIDAD = 0) and (AFactura.Proveedor.SubCuentas.ID < 1) then if (AFactura.IGNORAR_CONTABILIDAD = 0) then
raise Exception.Create('Para que la factura pueda pasar la parte contable es necesario que el proveedor tenga asignada una subcuenta'); begin
if (AppFactuGES.EjercicioActivo.ESTADO = CTE_CERRADO) then
raise Exception.Create('Para que la factura pueda pasar a la parte contable el ejercicio activo debe esta ABIERTO');
if ((AFactura.Proveedor.SubCuentas.ID < 1) or (AFactura.Proveedor.SubCuentas.ID_EJERCICIO <> AppFactuGES.EjercicioActivo.ID)) then
raise Exception.Create('Para que la factura pueda pasar la parte contable es necesario que el proveedor tenga asignada una subcuenta');
end;
{Al no poder generarse facturas automáticamente a partir de otros documentos validamos estos campos obligatorios} {Al no poder generarse facturas automáticamente a partir de otros documentos validamos estos campos obligatorios}
if (AFactura.ID_TIPO_IVA = 0) then if (AFactura.ID_TIPO_IVA = 0) then
@ -853,7 +869,9 @@ begin
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); Result := (AFactura.SITUACION = CTE_PENDIENTE)
//Si el ejercicio al que pertenece la factura esta cerrado no se podrá eliminar
and (AFactura.ESTADO <> CTE_CERRADO);
end; end;
procedure TFacturasProveedorController.RecalcularImportes(FFactura: IBizFacturaProveedor); procedure TFacturasProveedorController.RecalcularImportes(FFactura: IBizFacturaProveedor);

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

@ -266,6 +266,15 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
Name = 'SUBCUENTA' Name = 'SUBCUENTA'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'ID_EJERCICIO'
DataType = datInteger
end
item
Name = 'ESTADO'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

78
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 = '{1486775D-D203-45FA-A947-C647563E9E7C}'; RID_FacturasProveedor = '{C464B4AA-6A1C-4808-BDA7-3FE27191FA2D}';
RID_FacturasProveedor_Detalles = '{B0F1438F-E96D-4190-B2CE-2AE580895113}'; RID_FacturasProveedor_Detalles = '{B4F5B47A-FAF2-4B14-A8D8-15041FC8CE5C}';
{ Data table names } { Data table names }
nme_FacturasProveedor = 'FacturasProveedor'; nme_FacturasProveedor = 'FacturasProveedor';
@ -56,6 +56,8 @@ const
fld_FacturasProveedorTIENDA = 'TIENDA'; fld_FacturasProveedorTIENDA = 'TIENDA';
fld_FacturasProveedorID_SUBCUENTA = 'ID_SUBCUENTA'; fld_FacturasProveedorID_SUBCUENTA = 'ID_SUBCUENTA';
fld_FacturasProveedorSUBCUENTA = 'SUBCUENTA'; fld_FacturasProveedorSUBCUENTA = 'SUBCUENTA';
fld_FacturasProveedorID_EJERCICIO = 'ID_EJERCICIO';
fld_FacturasProveedorESTADO = 'ESTADO';
{ FacturasProveedor field indexes } { FacturasProveedor field indexes }
idx_FacturasProveedorID = 0; idx_FacturasProveedorID = 0;
@ -97,6 +99,8 @@ const
idx_FacturasProveedorTIENDA = 36; idx_FacturasProveedorTIENDA = 36;
idx_FacturasProveedorID_SUBCUENTA = 37; idx_FacturasProveedorID_SUBCUENTA = 37;
idx_FacturasProveedorSUBCUENTA = 38; idx_FacturasProveedorSUBCUENTA = 38;
idx_FacturasProveedorID_EJERCICIO = 39;
idx_FacturasProveedorESTADO = 40;
{ FacturasProveedor_Detalles fields } { FacturasProveedor_Detalles fields }
fld_FacturasProveedor_DetallesID = 'ID'; fld_FacturasProveedor_DetallesID = 'ID';
@ -133,7 +137,7 @@ const
type type
{ IFacturasProveedor } { IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable) IFacturasProveedor = interface(IDAStronglyTypedDataTable)
['{A7AB33CE-569D-4132-A3CC-4E9534B46031}'] ['{E97B9FEC-9473-41EC-B567-C1130AFB9389}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -290,6 +294,14 @@ type
procedure SetSUBCUENTAValue(const aValue: String); procedure SetSUBCUENTAValue(const aValue: String);
function GetSUBCUENTAIsNull: Boolean; function GetSUBCUENTAIsNull: Boolean;
procedure SetSUBCUENTAIsNull(const aValue: 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 GetESTADOValue: String;
procedure SetESTADOValue(const aValue: String);
function GetESTADOIsNull: Boolean;
procedure SetESTADOIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -371,6 +383,10 @@ type
property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull; property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue; property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
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_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property ESTADO: String read GetESTADOValue write SetESTADOValue;
property ESTADOIsNull: Boolean read GetESTADOIsNull write SetESTADOIsNull;
end; end;
{ TFacturasProveedorDataTableRules } { TFacturasProveedorDataTableRules }
@ -535,6 +551,14 @@ type
procedure SetSUBCUENTAValue(const aValue: String); virtual; procedure SetSUBCUENTAValue(const aValue: String); virtual;
function GetSUBCUENTAIsNull: Boolean; virtual; function GetSUBCUENTAIsNull: Boolean; virtual;
procedure SetSUBCUENTAIsNull(const aValue: 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 GetESTADOValue: String; virtual;
procedure SetESTADOValue(const aValue: String); virtual;
function GetESTADOIsNull: Boolean; virtual;
procedure SetESTADOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -615,6 +639,10 @@ type
property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull; property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue; property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
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_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property ESTADO: String read GetESTADOValue write SetESTADOValue;
property ESTADOIsNull: Boolean read GetESTADOIsNull write SetESTADOIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -624,7 +652,7 @@ type
{ IFacturasProveedor_Detalles } { IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable) IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{2CEF42D5-3F51-41E3-B52B-1F1ED8599905}'] ['{3D36CBEE-5B8B-47BA-A5DA-54E5E4F98D32}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1654,6 +1682,48 @@ begin
DataTable.Fields[idx_FacturasProveedorSUBCUENTA].AsVariant := Null; DataTable.Fields[idx_FacturasProveedorSUBCUENTA].AsVariant := Null;
end; end;
function TFacturasProveedorDataTableRules.GetID_EJERCICIOValue: Integer;
begin
result := DataTable.Fields[idx_FacturasProveedorID_EJERCICIO].AsInteger;
end;
procedure TFacturasProveedorDataTableRules.SetID_EJERCICIOValue(const aValue: Integer);
begin
DataTable.Fields[idx_FacturasProveedorID_EJERCICIO].AsInteger := aValue;
end;
function TFacturasProveedorDataTableRules.GetID_EJERCICIOIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProveedorID_EJERCICIO].IsNull;
end;
procedure TFacturasProveedorDataTableRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProveedorID_EJERCICIO].AsVariant := Null;
end;
function TFacturasProveedorDataTableRules.GetESTADOValue: String;
begin
result := DataTable.Fields[idx_FacturasProveedorESTADO].AsString;
end;
procedure TFacturasProveedorDataTableRules.SetESTADOValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasProveedorESTADO].AsString := aValue;
end;
function TFacturasProveedorDataTableRules.GetESTADOIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProveedorESTADO].IsNull;
end;
procedure TFacturasProveedorDataTableRules.SetESTADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProveedorESTADO].AsVariant := Null;
end;
{ TFacturasProveedor_DetallesDataTableRules } { TFacturasProveedor_DetallesDataTableRules }
constructor TFacturasProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable); constructor TFacturasProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);

94
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 = '{10FEC5CF-8C4F-41E2-8377-713BB2DA8E8A}'; RID_FacturasProveedorDelta = '{D146A338-C0C9-4B53-9F54-E217054D207D}';
RID_FacturasProveedor_DetallesDelta = '{03628F84-FD1E-4A7B-A510-E235E361A432}'; RID_FacturasProveedor_DetallesDelta = '{69B9422B-A4B5-43D5-A992-EFB3F0FB5231}';
type type
{ IFacturasProveedorDelta } { IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor) IFacturasProveedorDelta = interface(IFacturasProveedor)
['{10FEC5CF-8C4F-41E2-8377-713BB2DA8E8A}'] ['{D146A338-C0C9-4B53-9F54-E217054D207D}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -56,6 +56,8 @@ type
function GetOldTIENDAValue : String; function GetOldTIENDAValue : String;
function GetOldID_SUBCUENTAValue : Integer; function GetOldID_SUBCUENTAValue : Integer;
function GetOldSUBCUENTAValue : String; function GetOldSUBCUENTAValue : String;
function GetOldID_EJERCICIOValue : Integer;
function GetOldESTADOValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -97,6 +99,8 @@ type
property OldTIENDA : String read GetOldTIENDAValue; property OldTIENDA : String read GetOldTIENDAValue;
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 OldESTADO : String read GetOldESTADOValue;
end; end;
{ TFacturasProveedorBusinessProcessorRules } { TFacturasProveedorBusinessProcessorRules }
@ -339,6 +343,18 @@ type
function GetOldSUBCUENTAIsNull: Boolean; virtual; function GetOldSUBCUENTAIsNull: Boolean; virtual;
procedure SetSUBCUENTAValue(const aValue: String); virtual; procedure SetSUBCUENTAValue(const aValue: String); virtual;
procedure SetSUBCUENTAIsNull(const aValue: Boolean); 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 GetESTADOValue: String; virtual;
function GetESTADOIsNull: Boolean; virtual;
function GetOldESTADOValue: String; virtual;
function GetOldESTADOIsNull: Boolean; virtual;
procedure SetESTADOValue(const aValue: String); virtual;
procedure SetESTADOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -497,6 +513,14 @@ type
property SUBCUENTAIsNull : Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull; property SUBCUENTAIsNull : Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
property OldSUBCUENTA : String read GetOldSUBCUENTAValue; property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
property OldSUBCUENTAIsNull : Boolean read GetOldSUBCUENTAIsNull; 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 : String read GetESTADOValue write SetESTADOValue;
property ESTADOIsNull : Boolean read GetESTADOIsNull write SetESTADOIsNull;
property OldESTADO : String read GetOldESTADOValue;
property OldESTADOIsNull : Boolean read GetOldESTADOIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -506,7 +530,7 @@ type
{ IFacturasProveedor_DetallesDelta } { IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles) IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
['{03628F84-FD1E-4A7B-A510-E235E361A432}'] ['{69B9422B-A4B5-43D5-A992-EFB3F0FB5231}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -1927,6 +1951,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorSUBCUENTA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorSUBCUENTA] := Null;
end; end;
function TFacturasProveedorBusinessProcessorRules.GetID_EJERCICIOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_EJERCICIO];
end;
function TFacturasProveedorBusinessProcessorRules.GetID_EJERCICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_EJERCICIO]);
end;
function TFacturasProveedorBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorID_EJERCICIO];
end;
function TFacturasProveedorBusinessProcessorRules.GetOldID_EJERCICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorID_EJERCICIO]);
end;
procedure TFacturasProveedorBusinessProcessorRules.SetID_EJERCICIOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_EJERCICIO] := aValue;
end;
procedure TFacturasProveedorBusinessProcessorRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_EJERCICIO] := Null;
end;
function TFacturasProveedorBusinessProcessorRules.GetESTADOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorESTADO];
end;
function TFacturasProveedorBusinessProcessorRules.GetESTADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorESTADO]);
end;
function TFacturasProveedorBusinessProcessorRules.GetOldESTADOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorESTADO];
end;
function TFacturasProveedorBusinessProcessorRules.GetOldESTADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorESTADO]);
end;
procedure TFacturasProveedorBusinessProcessorRules.SetESTADOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorESTADO] := aValue;
end;
procedure TFacturasProveedorBusinessProcessorRules.SetESTADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorESTADO] := Null;
end;
{ TFacturasProveedor_DetallesBusinessProcessorRules } { TFacturasProveedor_DetallesBusinessProcessorRules }
constructor TFacturasProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TFacturasProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -178,6 +178,14 @@ object srvFacturasProveedor: TsrvFacturasProveedor
item item
DatasetField = 'NOMBRE_COMERCIAL_PROVEEDOR' DatasetField = 'NOMBRE_COMERCIAL_PROVEEDOR'
TableField = 'NOMBRE_COMERCIAL_PROVEEDOR' TableField = 'NOMBRE_COMERCIAL_PROVEEDOR'
end
item
DatasetField = 'ID_EJERCICIO'
TableField = 'ID_EJERCICIO'
end
item
DatasetField = 'ESTADO'
TableField = 'ESTADO'
end> end>
end> end>
Name = 'FacturasProveedor' Name = 'FacturasProveedor'
@ -389,6 +397,15 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Name = 'SUBCUENTA' Name = 'SUBCUENTA'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'ID_EJERCICIO'
DataType = datInteger
end
item
Name = 'ESTADO'
DataType = datString
Size = 255
end> end>
end end
item item

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

@ -2,6 +2,7 @@ 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
@ -105,11 +106,23 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
Position = spFooter Position = spFooter
Column = frViewFacturasProveedor1.cxGridViewIMPORTE_TOTAL Column = frViewFacturasProveedor1.cxGridViewIMPORTE_TOTAL
end end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Position = spFooter
Column = frViewFacturasProveedor1.cxGridViewIMPORTE_IVA
end
item item
Format = ',0.00 '#8364';-,0.00 '#8364 Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum Kind = skSum
Position = spFooter Position = spFooter
Column = frViewFacturasProveedor1.cxGridViewBASE_IMPONIBLE Column = frViewFacturasProveedor1.cxGridViewBASE_IMPONIBLE
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Position = spFooter
Column = frViewFacturasProveedor1.cxGridViewIMPORTE_RE
end> end>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -122,10 +135,20 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
Kind = skCount Kind = skCount
Column = frViewFacturasProveedor1.cxGridViewREFERENCIA Column = frViewFacturasProveedor1.cxGridViewREFERENCIA
end end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = frViewFacturasProveedor1.cxGridViewIMPORTE_IVA
end
item item
Format = ',0.00 '#8364';-,0.00 '#8364 Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum Kind = skSum
Column = frViewFacturasProveedor1.cxGridViewBASE_IMPONIBLE Column = frViewFacturasProveedor1.cxGridViewBASE_IMPONIBLE
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = frViewFacturasProveedor1.cxGridViewIMPORTE_RE
end> end>
end end
end end

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

@ -67,7 +67,7 @@ implementation
uses uses
uDataModuleFacturasProveedor, uDataModuleUsuarios, uDataModuleFacturasProveedor, uDataModuleUsuarios,
uGridUtils, uDBSelectionListUtils, uFactuGES_App, uGridUtils, uDBSelectionListUtils, uFactuGES_App, uBizEjercicios,
uAlbaranesProveedorController, uBizAlbaranesProveedor, uAlbaranesProveedorController, uBizAlbaranesProveedor,
uEditorBase, uGestorInformesController; uEditorBase, uGestorInformesController;
@ -82,7 +82,9 @@ 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);

53
Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm
View File

@ -19,6 +19,18 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
Kind = skSum Kind = skSum
Position = spFooter Position = spFooter
Column = cxGridViewIMPORTE_TOTAL Column = cxGridViewIMPORTE_TOTAL
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Position = spFooter
Column = cxGridViewIMPORTE_IVA
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Position = spFooter
Column = cxGridViewBASE_IMPONIBLE
end> end>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -30,6 +42,16 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
Format = '0 facturas' Format = '0 facturas'
Kind = skCount Kind = skCount
Column = cxGridViewREFERENCIA Column = cxGridViewREFERENCIA
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = cxGridViewIMPORTE_IVA
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = cxGridViewBASE_IMPONIBLE
end> end>
OptionsCustomize.ColumnHidingOnGrouping = False OptionsCustomize.ColumnHidingOnGrouping = False
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
@ -118,19 +140,6 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
FooterAlignmentHorz = taRightJustify FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
end end
object cxGridViewDESCUENTO: TcxGridDBColumn
DataBinding.FieldName = 'DESCUENTO'
Visible = False
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewIMPORTE_DESCUENTO: TcxGridDBColumn
DataBinding.FieldName = 'IMPORTE_DESCUENTO'
PropertiesClassName = 'TcxCurrencyEditProperties'
Visible = False
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewIVA: TcxGridDBColumn object cxGridViewIVA: TcxGridDBColumn
DataBinding.FieldName = 'IVA' DataBinding.FieldName = 'IVA'
Visible = False Visible = False
@ -144,6 +153,19 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
FooterAlignmentHorz = taRightJustify FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
end end
object cxGridViewRE: TcxGridDBColumn
DataBinding.FieldName = 'RE'
Visible = False
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewIMPORTE_RE: TcxGridDBColumn
DataBinding.FieldName = 'IMPORTE_RE'
PropertiesClassName = 'TcxCurrencyEditProperties'
Visible = False
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
DataBinding.FieldName = 'IMPORTE_TOTAL' DataBinding.FieldName = 'IMPORTE_TOTAL'
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
@ -152,11 +174,6 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
Width = 98 Width = 98
end end
object cxGridViewREFERENCIA_COMISION: TcxGridDBColumn
Caption = 'Liquidaci'#243'n'
DataBinding.FieldName = 'REFERENCIA_COMISION'
Visible = False
end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
Caption = 'Todas' Caption = 'Todas'

5
Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas
View File

@ -30,8 +30,8 @@ type
cxGridViewFECHA_FACTURA: TcxGridDBColumn; cxGridViewFECHA_FACTURA: TcxGridDBColumn;
cxGridViewSITUACION: TcxGridDBColumn; cxGridViewSITUACION: TcxGridDBColumn;
cxGridViewBASE_IMPONIBLE: TcxGridDBColumn; cxGridViewBASE_IMPONIBLE: TcxGridDBColumn;
cxGridViewIMPORTE_DESCUENTO: TcxGridDBColumn; cxGridViewIMPORTE_RE: TcxGridDBColumn;
cxGridViewDESCUENTO: TcxGridDBColumn; cxGridViewRE: TcxGridDBColumn;
cxGridViewIMPORTE_IVA: TcxGridDBColumn; cxGridViewIMPORTE_IVA: TcxGridDBColumn;
cxGridViewIMPORTE_TOTAL: TcxGridDBColumn; cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
cxGridViewIVA: TcxGridDBColumn; cxGridViewIVA: TcxGridDBColumn;
@ -45,7 +45,6 @@ type
cxGridParcial: TcxGridLevel; cxGridParcial: TcxGridLevel;
cxStyleAbono: TcxStyle; cxStyleAbono: TcxStyle;
cxGridPagadas: TcxGridLevel; cxGridPagadas: TcxGridLevel;
cxGridViewREFERENCIA_COMISION: TcxGridDBColumn;
cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn; cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn;
cxStylePendientes: TcxStyle; cxStylePendientes: TcxStyle;
cxStyleParciales: TcxStyle; cxStyleParciales: TcxStyle;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -98,8 +98,6 @@ uses
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_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',
schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas',
schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.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',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
@ -131,7 +129,9 @@ uses
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_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',
schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_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", "viernes, 06 de febrero de 2009 12:01\0" VALUE "CompileDate", "lunes, 09 de febrero de 2009 17:25\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"