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

104
Source/Base/Base.dproj
View File

@ -44,6 +44,20 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">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\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -58,53 +72,53 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</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="..\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">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>

62
Source/GUIBase/GUIBase.dproj
View File

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

2
Source/GUIBase/uEditorDBItem.dfm
View File

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

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

@ -48,6 +48,29 @@
<DelphiCompile Include="Contabilidad_controller.dpk">
<MainSource>MainSource</MainSource>
</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="uAsientosController.pas" />
<DCCReference Include="uBalancesController.pas" />
@ -55,24 +78,6 @@
<DCCReference Include="uCuentasEspecialesController.pas" />
<DCCReference Include="uEpigrafesController.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\uIEditorAsiento.pas" />
<DCCReference Include="View\uIEditorBalance.pas" />
@ -92,11 +97,6 @@
<DCCReference Include="View\uIEditorExtractoMovimientos.pas" />
<DCCReference Include="View\uIEditorSubCuenta.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>
</Project>
<!-- EurekaLog First Line

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

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

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

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

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

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

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

@ -3,10 +3,10 @@ unit uIEditorSubCuenta;
interface
uses
uBizSubCuentas, uSubCuentasController;
uEditorDBItem, uBizSubCuentas, uSubCuentasController;
type
IEditorSubCuenta = interface
IEditorSubCuenta = interface(IEditorDBItem)
['{3CDABEA1-F952-4F35-8A31-279FFB7C31E4}']
function GetController : 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 EsModificable(AApunte : IBizApunte): Boolean;
function EsEliminable(AApunte : IBizApunte): Boolean;
procedure Anadir(AApunte : IBizApunte); overload;
procedure Anadir(AApunte : IBizApunte; IdSubCuenta: Integer); overload;
procedure AnadirCierre(AApunte : IBizApunte);
@ -341,6 +344,16 @@ begin
end;
end;
function TApuntesController.EsEliminable(AApunte: IBizApunte): Boolean;
begin
// AApunte.
end;
function TApuntesController.EsModificable(AApunte: IBizApunte): Boolean;
begin
//
end;
procedure TApuntesController.FiltrarEjercicio(AApunte: IBizApunte);
var
Condicion: TDAWhereExpression;

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

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

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

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

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

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

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

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

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

@ -41,27 +41,27 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="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>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="Contabilidad_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contabilidad_model.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\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.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\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\Contabilidad_model.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="uDataModuleContabilidad.pas">
<Form>DataModuleContabilidad</Form>
<DesignClass>TDAClientDataModule</DesignClass>

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

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

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

@ -9,20 +9,20 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_DarIDCuenta = '{F20E3431-4AD6-442E-978E-BD5DC04DF357}';
RID_DarCodigoContableTienda = '{3BA1A823-E5A4-4FAC-A78A-ECF457D57173}';
RID_DarMaxRefSubCuentaProv = '{AE364C91-C829-4AF9-8146-1DA3E9291B40}';
RID_ExisteSubCuenta = '{B7212610-DF33-441B-91EB-01A6C4851991}';
RID_Diario = '{1522637C-8E18-4E3D-8136-87488C0665CC}';
RID_Apuntes = '{F1890C23-1E41-4B6A-AD7B-A48FD87A45CF}';
RID_Asientos = '{355862A4-0318-4A56-ACBB-800FD3AC63B0}';
RID_SubCuentas = '{DBA9026B-5657-45A8-8132-D20BA0A7A2F9}';
RID_Cuentas = '{441DF5A0-959E-4860-87BE-4F4CCD747047}';
RID_CuentasEspeciales = '{8DB618C9-EA42-49F0-A75B-FE51F1F7A0C4}';
RID_Epigrafes = '{66E2FBD3-8DA1-48AA-A7ED-C0A8ED011DA6}';
RID_Balances = '{06C8D640-0690-4620-9F99-8745B91B249E}';
RID_DarMaxRefSubCuentaCli = '{DEFF4707-42F7-48C7-9A68-B55A53FDCA21}';
RID_DarNumOrdenAsiento = '{91A031A1-CE35-4338-8468-7A303D76C58B}';
RID_DarIDCuenta = '{F934D7F5-F193-4794-AAD1-9A1B91BB3318}';
RID_DarCodigoContableTienda = '{F27822D7-98D8-4C30-8823-DA2AEDDBB5E1}';
RID_DarMaxRefSubCuentaProv = '{D256227B-16B9-49D5-9A88-72FFC0C0C154}';
RID_ExisteSubCuenta = '{47F6A8CA-B5CD-418D-9DC9-3C43BC8D3C1D}';
RID_Diario = '{06B76C35-D095-4736-9147-448CBB1ED101}';
RID_Apuntes = '{4DC74A57-EEB3-46D8-A3CE-948530C296F2}';
RID_Asientos = '{12A769DB-89F4-498B-B4D4-ED1477100E3B}';
RID_SubCuentas = '{9E6B8CF8-F8CC-494A-A776-A0B3CD401846}';
RID_Cuentas = '{5879B695-7BF0-44ED-BEF9-BB9F6F5A6CE1}';
RID_CuentasEspeciales = '{60F17DA4-B7D1-4689-8994-B210A1A1D78B}';
RID_Epigrafes = '{32D84D4F-995D-4D29-91AB-357C17AFBF10}';
RID_Balances = '{BC6355C4-5817-40DA-9D6E-ED71FBB2B9DC}';
RID_DarMaxRefSubCuentaCli = '{81CD72F3-982E-4411-90D2-0C04347D6785}';
RID_DarNumOrdenAsiento = '{4D041128-19E0-4F71-B6C2-0657CFA24C9B}';
{ Data table names }
nme_DarIDCuenta = 'DarIDCuenta';
@ -76,6 +76,7 @@ const
fld_DiarioREF_SUBCUENTA = 'REF_SUBCUENTA';
fld_DiarioSUBCUENTA = 'SUBCUENTA';
fld_DiarioID_EJERCICIO = 'ID_EJERCICIO';
fld_DiarioESTADO = 'ESTADO';
fld_DiarioCONCEPTO = 'CONCEPTO';
fld_DiarioDOCUMENTO = 'DOCUMENTO';
fld_DiarioDEBE = 'DEBE';
@ -95,12 +96,13 @@ const
idx_DiarioREF_SUBCUENTA = 8;
idx_DiarioSUBCUENTA = 9;
idx_DiarioID_EJERCICIO = 10;
idx_DiarioCONCEPTO = 11;
idx_DiarioDOCUMENTO = 12;
idx_DiarioDEBE = 13;
idx_DiarioHABER = 14;
idx_DiarioPUNTEADO = 15;
idx_DiarioSALDO = 16;
idx_DiarioESTADO = 11;
idx_DiarioCONCEPTO = 12;
idx_DiarioDOCUMENTO = 13;
idx_DiarioDEBE = 14;
idx_DiarioHABER = 15;
idx_DiarioPUNTEADO = 16;
idx_DiarioSALDO = 17;
{ Apuntes fields }
fld_ApuntesID = 'ID';
@ -149,6 +151,8 @@ const
fld_SubCuentasREF_SUBCUENTA = 'REF_SUBCUENTA';
fld_SubCuentasDESCRIPCION = 'DESCRIPCION';
fld_SubCuentasID_EJERCICIO = 'ID_EJERCICIO';
fld_SubCuentasESTADO = 'ESTADO';
fld_SubCuentasREF_EPIGRAFE_PADRE = 'REF_EPIGRAFE_PADRE';
fld_SubCuentasID_CONTACTO = 'ID_CONTACTO';
fld_SubCuentasID_CUENTA = 'ID_CUENTA';
fld_SubCuentasREF_CUENTA = 'REF_CUENTA';
@ -162,18 +166,21 @@ const
idx_SubCuentasREF_SUBCUENTA = 1;
idx_SubCuentasDESCRIPCION = 2;
idx_SubCuentasID_EJERCICIO = 3;
idx_SubCuentasID_CONTACTO = 4;
idx_SubCuentasID_CUENTA = 5;
idx_SubCuentasREF_CUENTA = 6;
idx_SubCuentasCUENTA = 7;
idx_SubCuentasDEBE = 8;
idx_SubCuentasHABER = 9;
idx_SubCuentasSALDO = 10;
idx_SubCuentasESTADO = 4;
idx_SubCuentasREF_EPIGRAFE_PADRE = 5;
idx_SubCuentasID_CONTACTO = 6;
idx_SubCuentasID_CUENTA = 7;
idx_SubCuentasREF_CUENTA = 8;
idx_SubCuentasCUENTA = 9;
idx_SubCuentasDEBE = 10;
idx_SubCuentasHABER = 11;
idx_SubCuentasSALDO = 12;
{ Cuentas fields }
fld_CuentasID = 'ID';
fld_CuentasREF_CUENTA = 'REF_CUENTA';
fld_CuentasID_EJERCICIO = 'ID_EJERCICIO';
fld_CuentasESTADO = 'ESTADO';
fld_CuentasDESCRIPCION = 'DESCRIPCION';
fld_CuentasID_EPIGRAFE = 'ID_EPIGRAFE';
fld_CuentasEPIGRAFE = 'EPIGRAFE';
@ -186,13 +193,14 @@ const
idx_CuentasID = 0;
idx_CuentasREF_CUENTA = 1;
idx_CuentasID_EJERCICIO = 2;
idx_CuentasDESCRIPCION = 3;
idx_CuentasID_EPIGRAFE = 4;
idx_CuentasEPIGRAFE = 5;
idx_CuentasID_BALANCE = 6;
idx_CuentasBALANCE = 7;
idx_CuentasID_CUENTA_ESPECIAL = 8;
idx_CuentasCUENTA_ESPECIAL = 9;
idx_CuentasESTADO = 3;
idx_CuentasDESCRIPCION = 4;
idx_CuentasID_EPIGRAFE = 5;
idx_CuentasEPIGRAFE = 6;
idx_CuentasID_BALANCE = 7;
idx_CuentasBALANCE = 8;
idx_CuentasID_CUENTA_ESPECIAL = 9;
idx_CuentasCUENTA_ESPECIAL = 10;
{ CuentasEspeciales fields }
fld_CuentasEspecialesID = 'ID';
@ -209,6 +217,7 @@ const
fld_EpigrafesREF_EPIGRAFE = 'REF_EPIGRAFE';
fld_EpigrafesDESCRIPCION = 'DESCRIPCION';
fld_EpigrafesID_EJERCICIO = 'ID_EJERCICIO';
fld_EpigrafesESTADO = 'ESTADO';
fld_EpigrafesID_PADRE = 'ID_PADRE';
fld_EpigrafesEPIGRAFE_PADRE = 'EPIGRAFE_PADRE';
@ -217,8 +226,9 @@ const
idx_EpigrafesREF_EPIGRAFE = 1;
idx_EpigrafesDESCRIPCION = 2;
idx_EpigrafesID_EJERCICIO = 3;
idx_EpigrafesID_PADRE = 4;
idx_EpigrafesEPIGRAFE_PADRE = 5;
idx_EpigrafesESTADO = 4;
idx_EpigrafesID_PADRE = 5;
idx_EpigrafesEPIGRAFE_PADRE = 6;
{ Balances fields }
fld_BalancesID = 'ID';
@ -257,7 +267,7 @@ const
type
{ IDarIDCuenta }
IDarIDCuenta = interface(IDAStronglyTypedDataTable)
['{F543F835-B1D5-4042-8804-B1F8762DC2A7}']
['{D8F2113C-47E1-4D5F-84B1-55356AC09BEC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -292,7 +302,7 @@ type
{ IDarCodigoContableTienda }
IDarCodigoContableTienda = interface(IDAStronglyTypedDataTable)
['{B1D800BF-8EAD-4CF0-B0D5-0573104D04F7}']
['{727DD029-68E9-4D58-9243-EBB2C9F1CBF4}']
{ Property getters and setters }
function GetCODIGO_CONTABLEValue: String;
procedure SetCODIGO_CONTABLEValue(const aValue: String);
@ -327,7 +337,7 @@ type
{ IDarMaxRefSubCuentaProv }
IDarMaxRefSubCuentaProv = interface(IDAStronglyTypedDataTable)
['{65D3E6E4-1068-467D-ABB1-8A9B80AF1C16}']
['{3254BD1F-1143-411F-A64A-04EDA953DAFA}']
{ Property getters and setters }
function GetMAXValue: Integer;
procedure SetMAXValue(const aValue: Integer);
@ -362,7 +372,7 @@ type
{ IExisteSubCuenta }
IExisteSubCuenta = interface(IDAStronglyTypedDataTable)
['{3E144142-E6B8-4F81-8BC2-F4D7D0599EAB}']
['{4D4EBC68-3266-448B-8BA7-B804B42AD5CC}']
{ Property getters and setters }
function GetCOUNTValue: Integer;
procedure SetCOUNTValue(const aValue: Integer);
@ -397,7 +407,7 @@ type
{ IDiario }
IDiario = interface(IDAStronglyTypedDataTable)
['{3E5CE58E-5ED0-4BF7-88E0-E3A8D42F82AC}']
['{BD3DC12E-83B7-43CD-93AC-AF94EA64BADA}']
{ Property getters and setters }
function GetID_APUNTEValue: Integer;
procedure SetID_APUNTEValue(const aValue: Integer);
@ -443,6 +453,10 @@ type
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);
function GetCONCEPTOValue: String;
procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean;
@ -492,6 +506,8 @@ type
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;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property DOCUMENTO: String read GetDOCUMENTOValue write SetDOCUMENTOValue;
@ -555,6 +571,10 @@ type
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;
function GetCONCEPTOValue: String; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
@ -603,6 +623,8 @@ type
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;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property DOCUMENTO: String read GetDOCUMENTOValue write SetDOCUMENTOValue;
@ -624,7 +646,7 @@ type
{ IApuntes }
IApuntes = interface(IDAStronglyTypedDataTable)
['{260C1901-EF6F-4E78-800D-44E7D2E0DA8E}']
['{5B4D39B8-C07D-408F-9C38-D0C2E3A29D63}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -779,7 +801,7 @@ type
{ IAsientos }
IAsientos = interface(IDAStronglyTypedDataTable)
['{23328B9C-D6B6-478B-9E1C-208F334C2E4C}']
['{5BB77EBB-4C65-459C-867C-D464CC6EED2C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -874,7 +896,7 @@ type
{ ISubCuentas }
ISubCuentas = interface(IDAStronglyTypedDataTable)
['{F9797AE2-CAA8-414C-A147-1DF8201BBE08}']
['{8132788A-2FBC-4B3C-AF23-78CB019CC123}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -892,6 +914,14 @@ type
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);
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;
procedure SetID_CONTACTOValue(const aValue: Integer);
function GetID_CONTACTOIsNull: Boolean;
@ -931,6 +961,10 @@ type
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
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;
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_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property ID_CUENTA: Integer read GetID_CUENTAValue write SetID_CUENTAValue;
@ -968,6 +1002,14 @@ type
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;
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;
procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
function GetID_CONTACTOIsNull: Boolean; virtual;
@ -1006,6 +1048,10 @@ type
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
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;
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_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property ID_CUENTA: Integer read GetID_CUENTAValue write SetID_CUENTAValue;
@ -1029,7 +1075,7 @@ type
{ ICuentas }
ICuentas = interface(IDAStronglyTypedDataTable)
['{5A21169F-01D8-4994-AB78-14A2751E41D9}']
['{7F0EFEE7-C324-4072-944B-EA6AAB09E1D8}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1043,6 +1089,10 @@ type
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);
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean;
@ -1080,6 +1130,8 @@ type
property REF_CUENTAIsNull: Boolean read GetREF_CUENTAIsNull write SetREF_CUENTAIsNull;
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;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property ID_EPIGRAFE: Integer read GetID_EPIGRAFEValue write SetID_EPIGRAFEValue;
@ -1113,6 +1165,10 @@ type
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;
function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
@ -1149,6 +1205,8 @@ type
property REF_CUENTAIsNull: Boolean read GetREF_CUENTAIsNull write SetREF_CUENTAIsNull;
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;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property ID_EPIGRAFE: Integer read GetID_EPIGRAFEValue write SetID_EPIGRAFEValue;
@ -1172,7 +1230,7 @@ type
{ ICuentasEspeciales }
ICuentasEspeciales = interface(IDAStronglyTypedDataTable)
['{08298F1B-97F2-46DE-A229-956C4A8035FF}']
['{0608870B-F3BF-4E54-8F6E-D79A17A0292A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1231,7 +1289,7 @@ type
{ IEpigrafes }
IEpigrafes = interface(IDAStronglyTypedDataTable)
['{ACA9B7DE-A160-43FD-A610-FB7F0BEC3AD0}']
['{5BEFF5E7-CDB1-458C-A946-B266ADAF9D4F}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1249,6 +1307,10 @@ type
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);
function GetID_PADREValue: Integer;
procedure SetID_PADREValue(const aValue: Integer);
function GetID_PADREIsNull: Boolean;
@ -1268,6 +1330,8 @@ type
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
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;
property ID_PADRE: Integer read GetID_PADREValue write SetID_PADREValue;
property ID_PADREIsNull: Boolean read GetID_PADREIsNull write SetID_PADREIsNull;
property EPIGRAFE_PADRE: String read GetEPIGRAFE_PADREValue write SetEPIGRAFE_PADREValue;
@ -1295,6 +1359,10 @@ type
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;
function GetID_PADREValue: Integer; virtual;
procedure SetID_PADREValue(const aValue: Integer); virtual;
function GetID_PADREIsNull: Boolean; virtual;
@ -1313,6 +1381,8 @@ type
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
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;
property ID_PADRE: Integer read GetID_PADREValue write SetID_PADREValue;
property ID_PADREIsNull: Boolean read GetID_PADREIsNull write SetID_PADREIsNull;
property EPIGRAFE_PADRE: String read GetEPIGRAFE_PADREValue write SetEPIGRAFE_PADREValue;
@ -1326,7 +1396,7 @@ type
{ IBalances }
IBalances = interface(IDAStronglyTypedDataTable)
['{427DC606-AF79-4D2E-AE75-C9A5C62A7AC9}']
['{8A08D3CD-8465-488A-82CA-8FD407A879D4}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1457,7 +1527,7 @@ type
{ IDarMaxRefSubCuentaCli }
IDarMaxRefSubCuentaCli = interface(IDAStronglyTypedDataTable)
['{BFC2513E-E133-4778-906A-A0074EC93F28}']
['{E6EBFE1B-9E59-4330-AE68-1179534FFCB6}']
{ Property getters and setters }
function GetMAXValue: Integer;
procedure SetMAXValue(const aValue: Integer);
@ -1492,7 +1562,7 @@ type
{ IDarNumOrdenAsiento }
IDarNumOrdenAsiento = interface(IDAStronglyTypedDataTable)
['{20DBD3DA-2731-483A-A08F-02C1180AD51B}']
['{3F826764-3157-4308-ABF7-B7986744C5DB}']
{ Property getters and setters }
function GetNUM_ORDENValue: Int64;
procedure SetNUM_ORDENValue(const aValue: Int64);
@ -1903,6 +1973,27 @@ begin
DataTable.Fields[idx_DiarioID_EJERCICIO].AsVariant := Null;
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;
begin
result := DataTable.Fields[idx_DiarioCONCEPTO].AsString;
@ -2506,6 +2597,48 @@ begin
DataTable.Fields[idx_SubCuentasID_EJERCICIO].AsVariant := Null;
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;
begin
result := DataTable.Fields[idx_SubCuentasID_CONTACTO].AsInteger;
@ -2728,6 +2861,27 @@ begin
DataTable.Fields[idx_CuentasID_EJERCICIO].AsVariant := Null;
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;
begin
result := DataTable.Fields[idx_CuentasDESCRIPCION].AsString;
@ -3046,6 +3200,27 @@ begin
DataTable.Fields[idx_EpigrafesID_EJERCICIO].AsVariant := Null;
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;
begin
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
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_DarIDCuentaDelta = '{4A8D8FA0-0EEF-4491-BFB4-799375FF5528}';
RID_DarCodigoContableTiendaDelta = '{4E3CF1AC-F8CB-4D95-B44F-5554F384A7A4}';
RID_DarMaxRefSubCuentaProvDelta = '{F3BD2639-0408-456A-93C0-DF43CBB10A0A}';
RID_ExisteSubCuentaDelta = '{2D136513-7A96-4A3D-9DA6-2A8822F53748}';
RID_DiarioDelta = '{DC0F4316-FAF1-4DD1-8682-66E915811023}';
RID_ApuntesDelta = '{F2EDB86B-74A8-4A52-8157-2692165612C9}';
RID_AsientosDelta = '{35612FDC-F9CE-467A-A2E8-0D26DC3AD200}';
RID_SubCuentasDelta = '{6E660749-3293-4E06-96AB-A11049C7C342}';
RID_CuentasDelta = '{018CF9CE-E675-40D9-A9E4-F8575423D2DB}';
RID_CuentasEspecialesDelta = '{6C17A277-C23B-45F2-9815-F5B231A52442}';
RID_EpigrafesDelta = '{7164D494-BF70-459F-A6D1-71A368ACB6D6}';
RID_BalancesDelta = '{B7E31CED-2229-4BED-8AA5-F00D8642478B}';
RID_DarMaxRefSubCuentaCliDelta = '{B3246BC2-0498-4F96-B2E1-939CD9179F02}';
RID_DarNumOrdenAsientoDelta = '{1751D5F8-1A96-4208-BFE1-074E99A36D4F}';
RID_DarIDCuentaDelta = '{58945EDF-4ED1-4342-99B8-01D0D903616F}';
RID_DarCodigoContableTiendaDelta = '{322E6489-6BDE-488B-BE05-7FDB19C736EA}';
RID_DarMaxRefSubCuentaProvDelta = '{6ED5AE39-4CF7-4DED-925D-0258FED22CDB}';
RID_ExisteSubCuentaDelta = '{108BDCF7-7E2F-4FC0-AB42-1F0AD8DAABC3}';
RID_DiarioDelta = '{5C4E0A25-EB00-4230-9BB5-BC542F95FDE0}';
RID_ApuntesDelta = '{19DF1F3D-4101-4A62-9EC0-2923B730CEEE}';
RID_AsientosDelta = '{5CECCDE5-83BF-452A-9B0C-0350DD4E0B85}';
RID_SubCuentasDelta = '{E791546D-F5C7-4ABB-B84C-CCB5E210C1A8}';
RID_CuentasDelta = '{23452BF5-9E60-4A25-9460-8B3214862F46}';
RID_CuentasEspecialesDelta = '{62F08124-2141-40B6-B5BA-894708D593D8}';
RID_EpigrafesDelta = '{4582AF11-7E29-4C37-A6CF-6AFCD3B5E117}';
RID_BalancesDelta = '{51C1653A-406B-4D36-AA7D-009675E81772}';
RID_DarMaxRefSubCuentaCliDelta = '{1F2CE410-A9E2-4057-B438-7895EF8DEF2C}';
RID_DarNumOrdenAsientoDelta = '{16EEB9C7-F7B4-44A6-BE0B-C9BFB5C60E8A}';
type
{ IDarIDCuentaDelta }
IDarIDCuentaDelta = interface(IDarIDCuenta)
['{4A8D8FA0-0EEF-4491-BFB4-799375FF5528}']
['{58945EDF-4ED1-4342-99B8-01D0D903616F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
@ -61,7 +61,7 @@ type
{ IDarCodigoContableTiendaDelta }
IDarCodigoContableTiendaDelta = interface(IDarCodigoContableTienda)
['{4E3CF1AC-F8CB-4D95-B44F-5554F384A7A4}']
['{322E6489-6BDE-488B-BE05-7FDB19C736EA}']
{ Property getters and setters }
function GetOldCODIGO_CONTABLEValue : String;
@ -95,7 +95,7 @@ type
{ IDarMaxRefSubCuentaProvDelta }
IDarMaxRefSubCuentaProvDelta = interface(IDarMaxRefSubCuentaProv)
['{F3BD2639-0408-456A-93C0-DF43CBB10A0A}']
['{6ED5AE39-4CF7-4DED-925D-0258FED22CDB}']
{ Property getters and setters }
function GetOldMAXValue : Integer;
@ -129,7 +129,7 @@ type
{ IExisteSubCuentaDelta }
IExisteSubCuentaDelta = interface(IExisteSubCuenta)
['{2D136513-7A96-4A3D-9DA6-2A8822F53748}']
['{108BDCF7-7E2F-4FC0-AB42-1F0AD8DAABC3}']
{ Property getters and setters }
function GetOldCOUNTValue : Integer;
@ -163,7 +163,7 @@ type
{ IDiarioDelta }
IDiarioDelta = interface(IDiario)
['{DC0F4316-FAF1-4DD1-8682-66E915811023}']
['{5C4E0A25-EB00-4230-9BB5-BC542F95FDE0}']
{ Property getters and setters }
function GetOldID_APUNTEValue : Integer;
function GetOldID_ASIENTOValue : Integer;
@ -176,6 +176,7 @@ type
function GetOldREF_SUBCUENTAValue : String;
function GetOldSUBCUENTAValue : String;
function GetOldID_EJERCICIOValue : Integer;
function GetOldESTADOValue : String;
function GetOldCONCEPTOValue : String;
function GetOldDOCUMENTOValue : String;
function GetOldDEBEValue : Currency;
@ -195,6 +196,7 @@ type
property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue;
property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldESTADO : String read GetOldESTADOValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldDOCUMENTO : String read GetOldDOCUMENTOValue;
property OldDEBE : Currency read GetOldDEBEValue;
@ -274,6 +276,12 @@ type
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;
function GetCONCEPTOValue: String; virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
function GetOldCONCEPTOValue: String; virtual;
@ -356,6 +364,10 @@ type
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;
property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
@ -389,7 +401,7 @@ type
{ IApuntesDelta }
IApuntesDelta = interface(IApuntes)
['{F2EDB86B-74A8-4A52-8157-2692165612C9}']
['{19DF1F3D-4101-4A62-9EC0-2923B730CEEE}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ASIENTOValue : Integer;
@ -543,7 +555,7 @@ type
{ IAsientosDelta }
IAsientosDelta = interface(IAsientos)
['{35612FDC-F9CE-467A-A2E8-0D26DC3AD200}']
['{5CECCDE5-83BF-452A-9B0C-0350DD4E0B85}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldFECHA_ASIENTOValue : DateTime;
@ -637,12 +649,14 @@ type
{ ISubCuentasDelta }
ISubCuentasDelta = interface(ISubCuentas)
['{6E660749-3293-4E06-96AB-A11049C7C342}']
['{E791546D-F5C7-4ABB-B84C-CCB5E210C1A8}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREF_SUBCUENTAValue : String;
function GetOldDESCRIPCIONValue : String;
function GetOldID_EJERCICIOValue : Integer;
function GetOldESTADOValue : String;
function GetOldREF_EPIGRAFE_PADREValue : String;
function GetOldID_CONTACTOValue : Integer;
function GetOldID_CUENTAValue : Integer;
function GetOldREF_CUENTAValue : String;
@ -656,6 +670,8 @@ type
property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
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_CUENTA : Integer read GetOldID_CUENTAValue;
property OldREF_CUENTA : String read GetOldREF_CUENTAValue;
@ -694,6 +710,18 @@ type
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;
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_CONTACTOIsNull: Boolean; virtual;
function GetOldID_CONTACTOValue: Integer; virtual;
@ -754,6 +782,14 @@ type
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;
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_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
@ -791,11 +827,12 @@ type
{ ICuentasDelta }
ICuentasDelta = interface(ICuentas)
['{018CF9CE-E675-40D9-A9E4-F8575423D2DB}']
['{23452BF5-9E60-4A25-9460-8B3214862F46}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREF_CUENTAValue : String;
function GetOldID_EJERCICIOValue : Integer;
function GetOldESTADOValue : String;
function GetOldDESCRIPCIONValue : String;
function GetOldID_EPIGRAFEValue : Integer;
function GetOldEPIGRAFEValue : String;
@ -808,6 +845,7 @@ type
property OldID : Integer read GetOldIDValue;
property OldREF_CUENTA : String read GetOldREF_CUENTAValue;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldESTADO : String read GetOldESTADOValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldID_EPIGRAFE : Integer read GetOldID_EPIGRAFEValue;
property OldEPIGRAFE : String read GetOldEPIGRAFEValue;
@ -840,6 +878,12 @@ type
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;
function GetDESCRIPCIONValue: String; virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
@ -896,6 +940,10 @@ type
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;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
@ -933,7 +981,7 @@ type
{ ICuentasEspecialesDelta }
ICuentasEspecialesDelta = interface(ICuentasEspeciales)
['{6C17A277-C23B-45F2-9815-F5B231A52442}']
['{62F08124-2141-40B6-B5BA-894708D593D8}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String;
@ -991,12 +1039,13 @@ type
{ IEpigrafesDelta }
IEpigrafesDelta = interface(IEpigrafes)
['{7164D494-BF70-459F-A6D1-71A368ACB6D6}']
['{4582AF11-7E29-4C37-A6CF-6AFCD3B5E117}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREF_EPIGRAFEValue : String;
function GetOldDESCRIPCIONValue : String;
function GetOldID_EJERCICIOValue : Integer;
function GetOldESTADOValue : String;
function GetOldID_PADREValue : Integer;
function GetOldEPIGRAFE_PADREValue : String;
@ -1005,6 +1054,7 @@ type
property OldREF_EPIGRAFE : String read GetOldREF_EPIGRAFEValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldESTADO : String read GetOldESTADOValue;
property OldID_PADRE : Integer read GetOldID_PADREValue;
property OldEPIGRAFE_PADRE : String read GetOldEPIGRAFE_PADREValue;
end;
@ -1038,6 +1088,12 @@ type
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;
function GetID_PADREValue: Integer; virtual;
function GetID_PADREIsNull: Boolean; virtual;
function GetOldID_PADREValue: Integer; virtual;
@ -1068,6 +1124,10 @@ type
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;
property ID_PADRE : Integer read GetID_PADREValue write SetID_PADREValue;
property ID_PADREIsNull : Boolean read GetID_PADREIsNull write SetID_PADREIsNull;
property OldID_PADRE : Integer read GetOldID_PADREValue;
@ -1085,7 +1145,7 @@ type
{ IBalancesDelta }
IBalancesDelta = interface(IBalances)
['{B7E31CED-2229-4BED-8AA5-F00D8642478B}']
['{51C1653A-406B-4D36-AA7D-009675E81772}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREF_BALANCEValue : String;
@ -1215,7 +1275,7 @@ type
{ IDarMaxRefSubCuentaCliDelta }
IDarMaxRefSubCuentaCliDelta = interface(IDarMaxRefSubCuentaCli)
['{B3246BC2-0498-4F96-B2E1-939CD9179F02}']
['{1F2CE410-A9E2-4057-B438-7895EF8DEF2C}']
{ Property getters and setters }
function GetOldMAXValue : Integer;
@ -1249,7 +1309,7 @@ type
{ IDarNumOrdenAsientoDelta }
IDarNumOrdenAsientoDelta = interface(IDarNumOrdenAsiento)
['{1751D5F8-1A96-4208-BFE1-074E99A36D4F}']
['{16EEB9C7-F7B4-44A6-BE0B-C9BFB5C60E8A}']
{ Property getters and setters }
function GetOldNUM_ORDENValue : Int64;
@ -1810,6 +1870,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_EJERCICIO] := Null;
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;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioCONCEPTO];
@ -2683,6 +2774,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_EJERCICIO] := Null;
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;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CONTACTO];
@ -3005,6 +3158,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EJERCICIO] := Null;
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;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION];
@ -3463,6 +3647,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO] := Null;
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;
begin
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
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item
DatasetField = 'ESTADO'
TableField = 'ESTADO'
end>
end>
Name = 'Diario'
@ -681,6 +685,11 @@ object srvContabilidad: TsrvContabilidad
DataType = datInteger
DictionaryEntry = 'Diario_ID_EJERCICIO'
end
item
Name = 'ESTADO'
DataType = datString
Size = 255
end
item
Name = 'CONCEPTO'
DataType = datString
@ -943,6 +952,10 @@ object srvContabilidad: TsrvContabilidad
DatasetField = 'ID_EJERCICIO'
TableField = 'ID_EJERCICIO'
end
item
DatasetField = 'ESTADO'
TableField = 'ESTADO'
end
item
DatasetField = 'ID_CONTACTO'
TableField = 'ID_CONTACTO'
@ -970,6 +983,10 @@ object srvContabilidad: TsrvContabilidad
item
DatasetField = 'SALDO'
TableField = 'SALDO'
end
item
DatasetField = 'REF_EPIGRAFE_PADRE'
TableField = 'REF_EPIGRAFE_PADRE'
end>
end>
Name = 'SubCuentas'
@ -998,6 +1015,16 @@ object srvContabilidad: TsrvContabilidad
DataType = datInteger
DictionaryEntry = 'SubCuentas_ID_EJERCICIO'
end
item
Name = 'ESTADO'
DataType = datString
Size = 255
end
item
Name = 'REF_EPIGRAFE_PADRE'
DataType = datString
Size = 6
end
item
Name = 'ID_CONTACTO'
DataType = datInteger
@ -1057,6 +1084,10 @@ object srvContabilidad: TsrvContabilidad
DatasetField = 'ID_EJERCICIO'
TableField = 'ID_EJERCICIO'
end
item
DatasetField = 'ESTADO'
TableField = 'ESTADO'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
@ -1106,6 +1137,11 @@ object srvContabilidad: TsrvContabilidad
DataType = datInteger
DictionaryEntry = 'Cuentas_ID_EJERCICIO'
end
item
Name = 'ESTADO'
DataType = datString
Size = 255
end
item
Name = 'DESCRIPCION'
DataType = datString
@ -1219,6 +1255,10 @@ object srvContabilidad: TsrvContabilidad
DatasetField = 'ID_EJERCICIO'
TableField = 'ID_EJERCICIO'
end
item
DatasetField = 'ESTADO'
TableField = 'ESTADO'
end
item
DatasetField = 'ID_PADRE'
TableField = 'ID_PADRE'
@ -1255,6 +1295,11 @@ object srvContabilidad: TsrvContabilidad
DataType = datInteger
DictionaryEntry = 'Epigrafes_ID_EJERCICIO'
end
item
Name = 'ESTADO'
DataType = datString
Size = 255
end
item
Name = 'ID_PADRE'
DataType = datInteger

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

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

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

@ -22,6 +22,7 @@ type
procedure FormShow(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
procedure actEliminarUpdate(Sender: TObject);
protected
FController : ICuentasController;
FCuenta: IBizCuenta;
@ -55,7 +56,7 @@ implementation
{$R *.dfm}
uses
uCustomEditor, uDataModuleBase, uFactuGES_App;
uCustomEditor, uDataModuleBase, uFactuGES_App, uBizEjercicios;
function ShowEditorCuenta (ABizObject : TDADataTableRules): TModalResult;
var
@ -153,6 +154,13 @@ begin
inherited;
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;
var
AViewCuenta: TfrViewCuenta;

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

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

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

@ -18,6 +18,9 @@ type
TfEditorCuentas = class(TfEditorGridBase, IEditorCuentas)
frViewCuentas1: TfrViewCuentas;
procedure FormShow(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
procedure actNuevoUpdate(Sender: TObject);
procedure actModificarUpdate(Sender: TObject);
private
FCuentas: IBizCuenta;
FController : ICuentasController;
@ -33,7 +36,7 @@ type
procedure DuplicarInterno; override;
public
procedure PonerTitulos(const ATitulo: string = ''); override;
procedure PonerTitulos(const ATitulo: string = ''); override;
property Cuentas: IBizCuenta read GetCuentas write SetCuentas;
property Controller : ICuentasController read GetController write SetController;
constructor Create(AOwner: TComponent); override;
@ -43,7 +46,7 @@ type
implementation
uses
uCustomEditor, uDataModuleUsuarios,
uCustomEditor, uDataModuleUsuarios, uBizEjercicios,
// uEditorCuenta,
uEditorDBBase, uFactuGES_App,
cxGrid, cxGridCustomTableView; //, uListaCuentas;
@ -148,6 +151,27 @@ begin
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);
begin
inherited;

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

@ -69,6 +69,22 @@ inherited fEditorDiario: TfEditorDiario
ExplicitWidth = 543
ExplicitHeight = 195
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
IsCaptionAssigned = True
end

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

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

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

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

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

@ -22,6 +22,7 @@ type
procedure FormShow(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
procedure actEliminarUpdate(Sender: TObject);
protected
FController : IEpigrafesController;
FEpigrafe: IBizEpigrafe;
@ -55,7 +56,7 @@ implementation
{$R *.dfm}
uses
uCustomEditor, uDataModuleBase, uFactuGES_App;
uCustomEditor, uDataModuleBase, uFactuGES_App, uBizEjercicios;
function ShowEditorEpigrafe (ABizObject : TDADataTableRules): TModalResult;
var
@ -153,6 +154,13 @@ begin
inherited;
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;
var
AViewEpigrafe: TfrViewEpigrafe;

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

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

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

@ -18,6 +18,9 @@ type
TfEditorEpigrafes = class(TfEditorGridBase, IEditorEpigrafes)
frViewEpigrafes1: TfrViewEpigrafes;
procedure FormShow(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
procedure actNuevoUpdate(Sender: TObject);
procedure actModificarUpdate(Sender: TObject);
private
FEpigrafes: IBizEpigrafe;
FController : IEpigrafesController;
@ -43,7 +46,7 @@ type
implementation
uses
uCustomEditor, uDataModuleUsuarios,
uCustomEditor, uDataModuleUsuarios, uBizEjercicios,
// uEditorEpigrafe,
uEditorDBBase, uFactuGES_App,
cxGrid, cxGridCustomTableView; //, uListaEpigrafes;
@ -148,6 +151,27 @@ begin
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);
begin
inherited;

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

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

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

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

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

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

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

@ -22,6 +22,7 @@ type
procedure FormShow(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
procedure actEliminarUpdate(Sender: TObject);
protected
FController : ISubCuentasController;
FSubCuenta: IBizSubCuenta;
@ -55,7 +56,7 @@ implementation
{$R *.dfm}
uses
uCustomEditor, uDataModuleBase, uFactuGES_App;
uCustomEditor, uDataModuleBase, uFactuGES_App, uBizEjercicios;
function ShowEditorSubCuenta (ABizObject : TDADataTableRules): TModalResult;
var
@ -153,6 +154,13 @@ begin
inherited;
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;
var
AViewSubCuenta: TfrViewSubCuenta;

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

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

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

@ -18,6 +18,9 @@ type
TfEditorSubCuentas = class(TfEditorGridBase, IEditorSubCuentas)
frViewSubCuentas1: TfrViewSubCuentas;
procedure FormShow(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
procedure actNuevoUpdate(Sender: TObject);
procedure actModificarUpdate(Sender: TObject);
private
FSubCuentas: IBizSubCuenta;
FController : ISubCuentasController;
@ -33,7 +36,7 @@ type
procedure DuplicarInterno; override;
public
procedure PonerTitulos(const ATitulo: string = ''); override;
procedure PonerTitulos(const ATitulo: string = ''); override;
property SubCuentas: IBizSubCuenta read GetSubCuentas write SetSubCuentas;
property Controller : ISubCuentasController read GetController write SetController;
constructor Create(AOwner: TComponent); override;
@ -43,7 +46,7 @@ type
implementation
uses
uCustomEditor, uDataModuleUsuarios,
uCustomEditor, uDataModuleUsuarios, uBizEjercicios,
// uEditorEpigrafe,
uEditorDBBase, uFactuGES_App,
cxGrid, cxGridCustomTableView; //, uListaSubCuentas;
@ -145,6 +148,27 @@ begin
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);
begin
inherited;

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

@ -741,19 +741,6 @@ inherited fEditorCliente: TfEditorCliente
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
inherited StatusBar: TJvStatusBar

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

@ -30,7 +30,6 @@ type
frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales;
pagContabilidad: TTabSheet;
frViewSubCuentaContacto1: TfrViewSubCuentaContacto;
DBGrid1: TDBGrid;
procedure FormShow(Sender: TObject);
procedure actGruposClienteExecute(Sender: TObject);
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.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="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>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="FacturasCliente_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Tipos de venta\Views\AlbaranesCliente_controller.dcp" />
<DCCReference Include="..\..\Tipos de venta\Views\AlbaranesCliente_model.dcp" />
<DCCReference Include="..\..\Tipos de venta\Views\ApplicationBase.dcp" />
<DCCReference Include="..\..\Tipos de venta\Views\Articulos_controller.dcp" />
<DCCReference Include="..\..\Tipos de venta\Views\Contactos_controller.dcp" />
<DCCReference Include="..\..\Tipos de venta\Views\FacturasCliente_data.dcp" />
<DCCReference Include="..\..\Tipos de venta\Views\FacturasCliente_model.dcp" />
<DCCReference Include="..\..\Tipos de venta\Views\FormasPago_controller.dcp" />
<DCCReference Include="..\..\Tipos de venta\Views\RecibosCliente_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_data.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RecibosCliente_controller.dcp" />
<DCCReference Include="uArticulosFacturaClienteController.pas" />
<DCCReference Include="uDetallesFacturaClienteController.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 AnadirAbono(AFactura : IBizFacturaCliente) : Boolean;
function Anadir(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente): Boolean; overload;
// function Anadir(AFactura : IBizFacturaCliente; const IDPedido : Integer): Boolean; overload;
function Buscar(const ID: Integer): IBizFacturaCliente;
function BuscarTodos: IBizFacturaCliente;
function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente;
@ -125,61 +124,10 @@ uses
uDataModuleUsuarios, uDAInterfaces, uDataTableUtils,
uAlbaranesClienteController, schAlbaranesClienteClient_Intf, uROTypes, uDetallesAlbaranClienteController,
uBizDetallesAlbaranCliente, uFacturasClienteReportController,
// uBizPedidosCliente, uPedidosClienteController, uBizDetallesPedidoCliente,
DateUtils, Forms, Dialogs, Variants, uIntegerListUtils,
uFormasPagoController, uBizFormasPago, uIEditorElegirFacturasCliente,
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;}
uBizEjercicios, uRecibosClienteController, uBizRecibosCliente;
procedure CopiarArticulosAlbaran(AOrigen: IBizDetallesAlbaranCliente;
@ -613,6 +561,16 @@ begin
SITUACION := CTE_PENDIENTE; //Al ser una nueva debe de estar pendiente
FECHA_FACTURA := DateOf(Now);
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;
Result.Post;
@ -672,10 +630,14 @@ begin
end;
}
if (AFactura.IGNORAR_CONTABILIDAD = 0) and ((AFactura.Cliente.SubCuentas.ID < 1)
//REPASAR
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 proveedor tenga asignada una subcuenta');
if (AFactura.IGNORAR_CONTABILIDAD = 0) then
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.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
if (AFactura.TIPO = CTE_TIPO_ABONO) then
@ -867,7 +829,9 @@ begin
if not Assigned(AFactura) then
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;
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.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject> <Delphi.Personality> <Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="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>
<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>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="FacturasCliente_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\FacturasCliente_model.dcp" />
<DCCReference Include="..\FacturasCliente_model.dcp" />
<DCCReference Include="uDataModuleFacturasCliente.pas">
<Form>DataModuleFacturasCliente</Form>
<DesignClass>TDAClientDataModule</DesignClass>
</DCCReference>
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006

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

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

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

@ -9,8 +9,8 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_FacturasCliente = '{0B1914D0-B113-4995-B702-5A94444CE70C}';
RID_FacturasCliente_Detalles = '{44FAB69F-B375-47FE-8787-B5B1A305A0B6}';
RID_FacturasCliente = '{661D7B8C-D928-4EE5-B87B-F3C5664D69D4}';
RID_FacturasCliente_Detalles = '{A636830F-78D4-401D-9CD0-9A0BF195A8D9}';
{ Data table names }
nme_FacturasCliente = 'FacturasCliente';
@ -58,6 +58,8 @@ const
fld_FacturasClienteTIENDA = 'TIENDA';
fld_FacturasClienteID_SUBCUENTA = 'ID_SUBCUENTA';
fld_FacturasClienteSUBCUENTA = 'SUBCUENTA';
fld_FacturasClienteID_EJERCICIO = 'ID_EJERCICIO';
fld_FacturasClienteESTADO = 'ESTADO';
{ FacturasCliente field indexes }
idx_FacturasClienteID = 0;
@ -101,6 +103,8 @@ const
idx_FacturasClienteTIENDA = 38;
idx_FacturasClienteID_SUBCUENTA = 39;
idx_FacturasClienteSUBCUENTA = 40;
idx_FacturasClienteID_EJERCICIO = 41;
idx_FacturasClienteESTADO = 42;
{ FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID';
@ -137,7 +141,7 @@ const
type
{ IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{0BE79A41-1EC4-48B2-AD7A-BD802A3B9ED5}']
['{93BE0E4C-8290-40F7-8644-B8914B454F0E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -302,6 +306,14 @@ type
procedure SetSUBCUENTAValue(const aValue: String);
function GetSUBCUENTAIsNull: Boolean;
procedure SetSUBCUENTAIsNull(const aValue: Boolean);
function GetID_EJERCICIOValue: Integer;
procedure SetID_EJERCICIOValue(const aValue: Integer);
function GetID_EJERCICIOIsNull: Boolean;
procedure SetID_EJERCICIOIsNull(const aValue: Boolean);
function GetESTADOValue: String;
procedure SetESTADOValue(const aValue: String);
function GetESTADOIsNull: Boolean;
procedure SetESTADOIsNull(const aValue: Boolean);
{ Properties }
@ -387,6 +399,10 @@ type
property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property ESTADO: String read GetESTADOValue write SetESTADOValue;
property ESTADOIsNull: Boolean read GetESTADOIsNull write SetESTADOIsNull;
end;
{ TFacturasClienteDataTableRules }
@ -559,6 +575,14 @@ type
procedure SetSUBCUENTAValue(const aValue: String); virtual;
function GetSUBCUENTAIsNull: Boolean; virtual;
procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetID_EJERCICIOValue: Integer; virtual;
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
function GetID_EJERCICIOIsNull: Boolean; virtual;
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
function GetESTADOValue: String; virtual;
procedure SetESTADOValue(const aValue: String); virtual;
function GetESTADOIsNull: Boolean; virtual;
procedure SetESTADOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -643,6 +667,10 @@ type
property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property ESTADO: String read GetESTADOValue write SetESTADOValue;
property ESTADOIsNull: Boolean read GetESTADOIsNull write SetESTADOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -652,7 +680,7 @@ type
{ IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{B9257A51-DED8-42B0-82AD-2B683FCDCBE9}']
['{525EA5EE-4D61-4002-B935-03B3F4DC16BF}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1724,6 +1752,48 @@ begin
DataTable.Fields[idx_FacturasClienteSUBCUENTA].AsVariant := Null;
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 }
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
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_FacturasClienteDelta = '{98AACC73-D363-4458-A0D0-D9FD4739FC3A}';
RID_FacturasCliente_DetallesDelta = '{10944E21-F0F0-4154-9A06-F658143DE95A}';
RID_FacturasClienteDelta = '{889543CF-FBB1-4940-BA74-3ECB5DB8D2A6}';
RID_FacturasCliente_DetallesDelta = '{883635DC-21EB-4728-8B22-A7C7D916ED6F}';
type
{ IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente)
['{98AACC73-D363-4458-A0D0-D9FD4739FC3A}']
['{889543CF-FBB1-4940-BA74-3ECB5DB8D2A6}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -58,6 +58,8 @@ type
function GetOldTIENDAValue : String;
function GetOldID_SUBCUENTAValue : Integer;
function GetOldSUBCUENTAValue : String;
function GetOldID_EJERCICIOValue : Integer;
function GetOldESTADOValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -101,6 +103,8 @@ type
property OldTIENDA : String read GetOldTIENDAValue;
property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldESTADO : String read GetOldESTADOValue;
end;
{ TFacturasClienteBusinessProcessorRules }
@ -355,6 +359,18 @@ type
function GetOldSUBCUENTAIsNull: Boolean; virtual;
procedure SetSUBCUENTAValue(const aValue: String); virtual;
procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetID_EJERCICIOValue: Integer; virtual;
function GetID_EJERCICIOIsNull: Boolean; virtual;
function GetOldID_EJERCICIOValue: Integer; virtual;
function GetOldID_EJERCICIOIsNull: Boolean; virtual;
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
function 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 }
property ID : Integer read GetIDValue write SetIDValue;
@ -521,6 +537,14 @@ type
property SUBCUENTAIsNull : Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
property OldSUBCUENTAIsNull : Boolean read GetOldSUBCUENTAIsNull;
property ID_EJERCICIO : Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull;
property ESTADO : String read GetESTADOValue write SetESTADOValue;
property ESTADOIsNull : Boolean read GetESTADOIsNull write SetESTADOIsNull;
property OldESTADO : String read GetOldESTADOValue;
property OldESTADOIsNull : Boolean read GetOldESTADOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -530,7 +554,7 @@ type
{ IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{10944E21-F0F0-4154-9A06-F658143DE95A}']
['{883635DC-21EB-4728-8B22-A7C7D916ED6F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -2013,6 +2037,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteSUBCUENTA] := Null;
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 }
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
DatasetField = 'FECHA_VENCIMIENTO'
TableField = 'FECHA_VENCIMIENTO'
end
item
DatasetField = 'ID_EJERCICIO'
TableField = 'ID_EJERCICIO'
end
item
DatasetField = 'ESTADO'
TableField = 'ESTADO'
end>
end>
Name = 'FacturasCliente'
@ -409,6 +417,15 @@ object srvFacturasCliente: TsrvFacturasCliente
Name = 'SUBCUENTA'
DataType = datString
Size = 255
end
item
Name = 'ID_EJERCICIO'
DataType = datInteger
end
item
Name = 'ESTADO'
DataType = datString
Size = 255
end>
end
item

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

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

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

@ -109,6 +109,24 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Kind = skSum
Position = spFooter
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>
DataController.Summary.FooterSummaryItems = <
item
@ -125,6 +143,21 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
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>
inherited cxGridViewBASE_IMPONIBLE: TcxGridDBColumn
Visible = True

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

@ -67,8 +67,7 @@ implementation
uses
uDataModuleFacturasCliente, uDataModuleUsuarios, uAlbaranesClienteController, uFactuGES_App,
// uPedidosClienteController, uBizPedidosCliente,
uGenerarFacturasCliAlbCliUtils,
uBizejercicios, uGenerarFacturasCliAlbCliUtils,
uBizAlbaranesCliente, uGestorInformesController,
uEditorBase, uGridUtils, uDBSelectionListUtils;
@ -81,7 +80,9 @@ procedure TfEditorFacturasCliente.actEliminarUpdate(Sender: TObject);
begin
inherited;
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;
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'
Visible = False
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
end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn

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

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

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

@ -125,7 +125,7 @@ uses
uDataModuleFacturasProveedor, uBizDetallesFacturaProveedor, uControllerDetallesBase,
uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils, uROTypes,
uAlbaranesProveedorController, schAlbaranesProveedorClient_Intf, uDetallesAlbaranProveedorController,
uBizDetallesAlbaranProveedor, Variants,
uBizDetallesAlbaranProveedor, Variants, uBizEjercicios,
uBizPedidosProveedor, uPedidosProveedorController, uBizDetallesPedidoProveedor,
uRecibosProveedorController, uBizRecibosProveedor, uNumUtils,
uFacturasProveedorReportController, DateUtils, Forms, Dialogs,
@ -600,6 +600,16 @@ begin
REFERENCIA := ''; //Para que se asigne una nueva
SITUACION := CTE_PENDIENTE; //Una factura nueva debe estar pendiente
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;
Result.Post;
@ -638,8 +648,14 @@ begin
if (AFactura.Detalles.DataTable.RecordCount = 0) then
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
raise Exception.Create('Para que la factura pueda pasar la parte contable es necesario que el proveedor tenga asignada una subcuenta');
if (AFactura.IGNORAR_CONTABILIDAD = 0) then
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}
if (AFactura.ID_TIPO_IVA = 0) then
@ -853,7 +869,9 @@ begin
if not Assigned(AFactura) then
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;
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'
DataType = datString
Size = 255
end
item
Name = 'ID_EJERCICIO'
DataType = datInteger
end
item
Name = 'ESTADO'
DataType = datString
Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -9,8 +9,8 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_FacturasProveedor = '{1486775D-D203-45FA-A947-C647563E9E7C}';
RID_FacturasProveedor_Detalles = '{B0F1438F-E96D-4190-B2CE-2AE580895113}';
RID_FacturasProveedor = '{C464B4AA-6A1C-4808-BDA7-3FE27191FA2D}';
RID_FacturasProveedor_Detalles = '{B4F5B47A-FAF2-4B14-A8D8-15041FC8CE5C}';
{ Data table names }
nme_FacturasProveedor = 'FacturasProveedor';
@ -56,6 +56,8 @@ const
fld_FacturasProveedorTIENDA = 'TIENDA';
fld_FacturasProveedorID_SUBCUENTA = 'ID_SUBCUENTA';
fld_FacturasProveedorSUBCUENTA = 'SUBCUENTA';
fld_FacturasProveedorID_EJERCICIO = 'ID_EJERCICIO';
fld_FacturasProveedorESTADO = 'ESTADO';
{ FacturasProveedor field indexes }
idx_FacturasProveedorID = 0;
@ -97,6 +99,8 @@ const
idx_FacturasProveedorTIENDA = 36;
idx_FacturasProveedorID_SUBCUENTA = 37;
idx_FacturasProveedorSUBCUENTA = 38;
idx_FacturasProveedorID_EJERCICIO = 39;
idx_FacturasProveedorESTADO = 40;
{ FacturasProveedor_Detalles fields }
fld_FacturasProveedor_DetallesID = 'ID';
@ -133,7 +137,7 @@ const
type
{ IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable)
['{A7AB33CE-569D-4132-A3CC-4E9534B46031}']
['{E97B9FEC-9473-41EC-B567-C1130AFB9389}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -290,6 +294,14 @@ type
procedure SetSUBCUENTAValue(const aValue: String);
function GetSUBCUENTAIsNull: Boolean;
procedure SetSUBCUENTAIsNull(const aValue: Boolean);
function GetID_EJERCICIOValue: Integer;
procedure SetID_EJERCICIOValue(const aValue: Integer);
function GetID_EJERCICIOIsNull: Boolean;
procedure SetID_EJERCICIOIsNull(const aValue: Boolean);
function GetESTADOValue: String;
procedure SetESTADOValue(const aValue: String);
function GetESTADOIsNull: Boolean;
procedure SetESTADOIsNull(const aValue: Boolean);
{ Properties }
@ -371,6 +383,10 @@ type
property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property ESTADO: String read GetESTADOValue write SetESTADOValue;
property ESTADOIsNull: Boolean read GetESTADOIsNull write SetESTADOIsNull;
end;
{ TFacturasProveedorDataTableRules }
@ -535,6 +551,14 @@ type
procedure SetSUBCUENTAValue(const aValue: String); virtual;
function GetSUBCUENTAIsNull: Boolean; virtual;
procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetID_EJERCICIOValue: Integer; virtual;
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
function GetID_EJERCICIOIsNull: Boolean; virtual;
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
function GetESTADOValue: String; virtual;
procedure SetESTADOValue(const aValue: String); virtual;
function GetESTADOIsNull: Boolean; virtual;
procedure SetESTADOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -615,6 +639,10 @@ type
property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property ESTADO: String read GetESTADOValue write SetESTADOValue;
property ESTADOIsNull: Boolean read GetESTADOIsNull write SetESTADOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -624,7 +652,7 @@ type
{ IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{2CEF42D5-3F51-41E3-B52B-1F1ED8599905}']
['{3D36CBEE-5B8B-47BA-A5DA-54E5E4F98D32}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1654,6 +1682,48 @@ begin
DataTable.Fields[idx_FacturasProveedorSUBCUENTA].AsVariant := Null;
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 }
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
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_FacturasProveedorDelta = '{10FEC5CF-8C4F-41E2-8377-713BB2DA8E8A}';
RID_FacturasProveedor_DetallesDelta = '{03628F84-FD1E-4A7B-A510-E235E361A432}';
RID_FacturasProveedorDelta = '{D146A338-C0C9-4B53-9F54-E217054D207D}';
RID_FacturasProveedor_DetallesDelta = '{69B9422B-A4B5-43D5-A992-EFB3F0FB5231}';
type
{ IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor)
['{10FEC5CF-8C4F-41E2-8377-713BB2DA8E8A}']
['{D146A338-C0C9-4B53-9F54-E217054D207D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -56,6 +56,8 @@ type
function GetOldTIENDAValue : String;
function GetOldID_SUBCUENTAValue : Integer;
function GetOldSUBCUENTAValue : String;
function GetOldID_EJERCICIOValue : Integer;
function GetOldESTADOValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -97,6 +99,8 @@ type
property OldTIENDA : String read GetOldTIENDAValue;
property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldESTADO : String read GetOldESTADOValue;
end;
{ TFacturasProveedorBusinessProcessorRules }
@ -339,6 +343,18 @@ type
function GetOldSUBCUENTAIsNull: Boolean; virtual;
procedure SetSUBCUENTAValue(const aValue: String); virtual;
procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetID_EJERCICIOValue: Integer; virtual;
function GetID_EJERCICIOIsNull: Boolean; virtual;
function GetOldID_EJERCICIOValue: Integer; virtual;
function GetOldID_EJERCICIOIsNull: Boolean; virtual;
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
function 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 }
property ID : Integer read GetIDValue write SetIDValue;
@ -497,6 +513,14 @@ type
property SUBCUENTAIsNull : Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
property OldSUBCUENTAIsNull : Boolean read GetOldSUBCUENTAIsNull;
property ID_EJERCICIO : Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull;
property ESTADO : String read GetESTADOValue write SetESTADOValue;
property ESTADOIsNull : Boolean read GetESTADOIsNull write SetESTADOIsNull;
property OldESTADO : String read GetOldESTADOValue;
property OldESTADOIsNull : Boolean read GetOldESTADOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -506,7 +530,7 @@ type
{ IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
['{03628F84-FD1E-4A7B-A510-E235E361A432}']
['{69B9422B-A4B5-43D5-A992-EFB3F0FB5231}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -1927,6 +1951,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorSUBCUENTA] := Null;
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 }
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
DatasetField = 'NOMBRE_COMERCIAL_PROVEEDOR'
TableField = 'NOMBRE_COMERCIAL_PROVEEDOR'
end
item
DatasetField = 'ID_EJERCICIO'
TableField = 'ID_EJERCICIO'
end
item
DatasetField = 'ESTADO'
TableField = 'ESTADO'
end>
end>
Name = 'FacturasProveedor'
@ -389,6 +397,15 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Name = 'SUBCUENTA'
DataType = datString
Size = 255
end
item
Name = 'ID_EJERCICIO'
DataType = datInteger
end
item
Name = 'ESTADO'
DataType = datString
Size = 255
end>
end
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'
ClientHeight = 666
ClientWidth = 640
ExplicitTop = -43
ExplicitWidth = 648
ExplicitHeight = 700
PixelsPerInch = 96
@ -105,11 +106,23 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
Position = spFooter
Column = frViewFacturasProveedor1.cxGridViewIMPORTE_TOTAL
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Position = spFooter
Column = frViewFacturasProveedor1.cxGridViewIMPORTE_IVA
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Position = spFooter
Column = frViewFacturasProveedor1.cxGridViewBASE_IMPONIBLE
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Position = spFooter
Column = frViewFacturasProveedor1.cxGridViewIMPORTE_RE
end>
DataController.Summary.FooterSummaryItems = <
item
@ -122,10 +135,20 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
Kind = skCount
Column = frViewFacturasProveedor1.cxGridViewREFERENCIA
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = frViewFacturasProveedor1.cxGridViewIMPORTE_IVA
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = frViewFacturasProveedor1.cxGridViewBASE_IMPONIBLE
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = frViewFacturasProveedor1.cxGridViewIMPORTE_RE
end>
end
end

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

@ -67,7 +67,7 @@ implementation
uses
uDataModuleFacturasProveedor, uDataModuleUsuarios,
uGridUtils, uDBSelectionListUtils, uFactuGES_App,
uGridUtils, uDBSelectionListUtils, uFactuGES_App, uBizEjercicios,
uAlbaranesProveedorController, uBizAlbaranesProveedor,
uEditorBase, uGestorInformesController;
@ -82,7 +82,9 @@ procedure TfEditorFacturasProveedor.actEliminarUpdate(Sender: TObject);
begin
inherited;
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;
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
Position = spFooter
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>
DataController.Summary.FooterSummaryItems = <
item
@ -30,6 +42,16 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
Format = '0 facturas'
Kind = skCount
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>
OptionsCustomize.ColumnHidingOnGrouping = False
OptionsView.GroupFooters = gfAlwaysVisible
@ -118,19 +140,6 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
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
DataBinding.FieldName = 'IVA'
Visible = False
@ -144,6 +153,19 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
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
DataBinding.FieldName = 'IMPORTE_TOTAL'
PropertiesClassName = 'TcxCurrencyEditProperties'
@ -152,11 +174,6 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
HeaderAlignmentHorz = taRightJustify
Width = 98
end
object cxGridViewREFERENCIA_COMISION: TcxGridDBColumn
Caption = 'Liquidaci'#243'n'
DataBinding.FieldName = 'REFERENCIA_COMISION'
Visible = False
end
end
inherited cxGridLevel: TcxGridLevel
Caption = 'Todas'

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

@ -30,8 +30,8 @@ type
cxGridViewFECHA_FACTURA: TcxGridDBColumn;
cxGridViewSITUACION: TcxGridDBColumn;
cxGridViewBASE_IMPONIBLE: TcxGridDBColumn;
cxGridViewIMPORTE_DESCUENTO: TcxGridDBColumn;
cxGridViewDESCUENTO: TcxGridDBColumn;
cxGridViewIMPORTE_RE: TcxGridDBColumn;
cxGridViewRE: TcxGridDBColumn;
cxGridViewIMPORTE_IVA: TcxGridDBColumn;
cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
cxGridViewIVA: TcxGridDBColumn;
@ -45,7 +45,6 @@ type
cxGridParcial: TcxGridLevel;
cxStyleAbono: TcxStyle;
cxGridPagadas: TcxGridLevel;
cxGridViewREFERENCIA_COMISION: TcxGridDBColumn;
cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn;
cxStylePendientes: 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',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.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},
uBizComisionesServer in '..\Modulos\Comisiones\Model\uBizComisionesServer.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',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_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 ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.2.8.0\0"
VALUE "ProductName", "FactuGES (Servidor)\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
BLOCK "VarFileInfo"