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

Arreglo en Cajas/Bancos para que el objeto de negocio de la vista sea el mismo que el del editor, y cierre de caja

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@219 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-05-12 16:41:52 +00:00
parent 04f4a459f5
commit 0f266dfbec
49 changed files with 4086 additions and 632 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Database/scripts/factuges.sql
View File

@ -1960,6 +1960,7 @@ CREATE VIEW V_CONT_DIARIO(
ID_ASIENTO, ID_ASIENTO,
ID_FACTURA, ID_FACTURA,
ID_PAGO, ID_PAGO,
TIPO,
ORDEN_ASIENTO, ORDEN_ASIENTO,
FECHA_ASIENTO, FECHA_ASIENTO,
ID_SUBCUENTA, ID_SUBCUENTA,
@ -1977,6 +1978,7 @@ SELECT
CONT_APUNTES.ID_ASIENTO, CONT_APUNTES.ID_ASIENTO,
CONT_ASIENTOS.ID_FACTURA, CONT_ASIENTOS.ID_FACTURA,
CONT_ASIENTOS.ID_PAGO, CONT_ASIENTOS.ID_PAGO,
CONT_ASIENTOS.TIPO,
CONT_ASIENTOS.ORDEN, CONT_ASIENTOS.ORDEN,
CONT_ASIENTOS.FECHA_ASIENTO, CONT_ASIENTOS.FECHA_ASIENTO,
CONT_APUNTES.ID_SUBCUENTA, CONT_APUNTES.ID_SUBCUENTA,
@ -4200,7 +4202,10 @@ declare variable debe numeric(11,2);
declare variable haber numeric(11,2); declare variable haber numeric(11,2);
begin begin
/*BUSCAMOS EL PAGO PARA COMPROBAR SI HACER ASIENTO*/ /*BUSCAMOS EL PAGO PARA COMPROBAR SI HACER ASIENTO*/
SELECT PAGOS_CLIENTE.IGNORAR_CONTABILIDAD, RECIBOS_CLIENTE.REFERENCIA, PAGOS_CLIENTE.FECHA_PAGO, PAGOS_CLIENTE.TIPO, SELECT PAGOS_CLIENTE.IGNORAR_CONTABILIDAD,
RECIBOS_CLIENTE.REFERENCIA || ': ' || RECIBOS_CLIENTE.NOMBRE,
PAGOS_CLIENTE.FECHA_PAGO,
PAGOS_CLIENTE.TIPO || ': ' || RECIBOS_CLIENTE.DESCRIPCION,
RECIBOS_CLIENTE.IMPORTE, CONT_SUBCUENTAS.ID, CONT_SUBCUENTAS.ID_EJERCICIO RECIBOS_CLIENTE.IMPORTE, CONT_SUBCUENTAS.ID, CONT_SUBCUENTAS.ID_EJERCICIO
FROM PAGOS_CLIENTE FROM PAGOS_CLIENTE
LEFT JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID = PAGOS_CLIENTE.ID_RECIBO) LEFT JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID = PAGOS_CLIENTE.ID_RECIBO)
@ -4287,12 +4292,15 @@ declare variable debe numeric(11,2);
declare variable haber numeric(11,2); declare variable haber numeric(11,2);
begin begin
/*BUSCAMOS EL PAGO PARA COMPROBAR SI HACER ASIENTO*/ /*BUSCAMOS EL PAGO PARA COMPROBAR SI HACER ASIENTO*/
SELECT PAGOS_PROVEEDOR.IGNORAR_CONTABILIDAD, RECIBOS_PROVEEDOR.REFERENCIA, PAGOS_PROVEEDOR.FECHA_PAGO, PAGOS_PROVEEDOR.TIPO, SELECT PAGOS_PROVEEDOR.IGNORAR_CONTABILIDAD,
RECIBOS_PROVEEDOR.REFERENCIA || ': ' || RECIBOS_PROVEEDOR.NOMBRE,
PAGOS_PROVEEDOR.FECHA_PAGO,
PAGOS_PROVEEDOR.TIPO || ': ' || RECIBOS_PROVEEDOR.DESCRIPCION,
RECIBOS_PROVEEDOR.IMPORTE, CONT_SUBCUENTAS.ID, CONT_SUBCUENTAS.ID_EJERCICIO RECIBOS_PROVEEDOR.IMPORTE, CONT_SUBCUENTAS.ID, CONT_SUBCUENTAS.ID_EJERCICIO
FROM PAGOS_PROVEEDOR FROM PAGOS_PROVEEDOR
LEFT JOIN RECIBOS_PROVEEDOR ON (RECIBOS_PROVEEDOR.ID = PAGOS_PROVEEDOR.ID_RECIBO) LEFT JOIN RECIBOS_PROVEEDOR ON (RECIBOS_PROVEEDOR.ID = PAGOS_PROVEEDOR.ID_RECIBO)
LEFT JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_FACTURA) /* LEFT JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_FACTURA) (ya no esta atado a las facturas)*/
LEFT JOIN CONT_SUBCUENTAS ON (CONT_SUBCUENTAS.ID_CONTACTO = FACTURAS_PROVEEDOR.ID_PROVEEDOR) LEFT JOIN CONT_SUBCUENTAS ON (CONT_SUBCUENTAS.ID_CONTACTO = RECIBOS_PROVEEDOR.ID_PROVEEDOR)
WHERE PAGOS_PROVEEDOR.ID = :IDPAGO INTO :IGNORARCONTABILIDAD, :REFERENCIARECIBO, WHERE PAGOS_PROVEEDOR.ID = :IDPAGO INTO :IGNORARCONTABILIDAD, :REFERENCIARECIBO,
:FECHAPAGO, :TIPOPAGO, :IMPORTE, :IDSUBCUENTA, :IDEJERCICIO; :FECHAPAGO, :TIPOPAGO, :IMPORTE, :IDSUBCUENTA, :IDEJERCICIO;

BIN
Resources/Iconos/Cuentas/16x16/cierre.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1016 B

BIN
Resources/Iconos/Cuentas/24x24/cierre.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 601 B

BIN
Resources/Iconos/Cuentas/28x28/cierre.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.2 KiB

82
Source/Base/Base.dproj
View File

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

BIN
Source/Base/Base.res
View File

Binary file not shown.

22
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +53,27 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.2.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">2</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.2.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,2,0,0 FILEVERSION 2,2,2,0
PRODUCTVERSION 2,2,0,0 PRODUCTVERSION 2,2,2,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.2.0.0\0" VALUE "FileVersion", "2.2.2.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.2.0.0\0" VALUE "ProductVersion", "2.2.2.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

1
Source/GUIBase/uEditorDBBase.dfm
View File

@ -29,6 +29,7 @@ inherited fEditorDBBase: TfEditorDBBase
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 435 Top = 435
Width = 646 Width = 646
ExplicitTop = 435
ExplicitWidth = 648 ExplicitWidth = 648
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList

4
Source/GUIBase/uEditorDBItem.dfm
View File

@ -65,8 +65,8 @@ inherited fEditorDBItem: TfEditorDBItem
Width = 200 Width = 200
Control = imgStatus Control = imgStatus
end> end>
ExplicitTop = 442 ExplicitTop = 440
ExplicitWidth = 652 ExplicitWidth = 650
object imgStatus: TImage object imgStatus: TImage
Left = 3 Left = 3
Top = 3 Top = 3

17
Source/GUIBase/uViewDetallesGenerico.pas
View File

@ -13,6 +13,8 @@ uses
type type
IViewDetallesGenerico = interface(IViewBase) IViewDetallesGenerico = interface(IViewBase)
['{CA4BD183-1DCD-453D-A1A2-A3B7349BBE40}'] ['{CA4BD183-1DCD-453D-A1A2-A3B7349BBE40}']
procedure GotoFirst;
procedure GotoLast;
end; end;
TfrViewDetallesGenerico = class(TfrViewBase, IViewDetallesGenerico) TfrViewDetallesGenerico = class(TfrViewBase, IViewDetallesGenerico)
@ -51,6 +53,9 @@ type
procedure EliminarInterno; virtual; procedure EliminarInterno; virtual;
function GetModified: Boolean; override; function GetModified: Boolean; override;
public
procedure GotoFirst; virtual;
procedure GotoLast; virtual;
end; end;
implementation implementation
@ -196,6 +201,18 @@ begin
Result := DataTableModified(dsDetalles.DataTable) or inherited GetModified; Result := DataTableModified(dsDetalles.DataTable) or inherited GetModified;
end; end;
procedure TfrViewDetallesGenerico.GotoFirst;
begin
if Assigned(cxGrid.ActiveView) then
cxGrid.ActiveView.DataController.GotoFirst;
end;
procedure TfrViewDetallesGenerico.GotoLast;
begin
if Assigned(cxGrid.ActiveView) then
cxGrid.ActiveView.DataController.GotoLast;
end;
function TfrViewDetallesGenerico.HayDatos: Boolean; function TfrViewDetallesGenerico.HayDatos: Boolean;
begin begin
Result := Assigned(dsDetalles.DataTable) and Result := Assigned(dsDetalles.DataTable) and

20
Source/Informes/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

BIN
Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dpk
View File

Binary file not shown.

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

@ -41,36 +41,13 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Contabilidad_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">Contabilidad_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="Contabilidad_controller.dpk"> <DelphiCompile Include="Contabilidad_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\ccpackD11.dcp" />
<DCCReference Include="..\cfpack_d11.dcp" />
<DCCReference Include="..\Contabilidad_data.dcp" />
<DCCReference Include="..\Contabilidad_model.dcp" />
<DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\designide.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\GUISDK_D11.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="..\xmlrtl.dcp" />
<DCCReference Include="uApuntesController.pas" /> <DCCReference Include="uApuntesController.pas" />
<DCCReference Include="uAsientosController.pas" /> <DCCReference Include="uAsientosController.pas" />
<DCCReference Include="uBalancesController.pas" /> <DCCReference Include="uBalancesController.pas" />
@ -78,6 +55,24 @@
<DCCReference Include="uCuentasEspecialesController.pas" /> <DCCReference Include="uCuentasEspecialesController.pas" />
<DCCReference Include="uEpigrafesController.pas" /> <DCCReference Include="uEpigrafesController.pas" />
<DCCReference Include="uSubCuentasController.pas" /> <DCCReference Include="uSubCuentasController.pas" />
<DCCReference Include="View\adortl.dcp" />
<DCCReference Include="View\ApplicationBase.dcp" />
<DCCReference Include="View\Base.dcp" />
<DCCReference Include="View\ccpackD11.dcp" />
<DCCReference Include="View\cfpack_d11.dcp" />
<DCCReference Include="View\Contabilidad_data.dcp" />
<DCCReference Include="View\Contabilidad_model.dcp" />
<DCCReference Include="View\Contactos_model.dcp" />
<DCCReference Include="View\cxLibraryD11.dcp" />
<DCCReference Include="View\DataAbstract_Core_D11.dcp" />
<DCCReference Include="View\dbrtl.dcp" />
<DCCReference Include="View\designide.dcp" />
<DCCReference Include="View\dsnap.dcp" />
<DCCReference Include="View\dxThemeD11.dcp" />
<DCCReference Include="View\GUIBase.dcp" />
<DCCReference Include="View\GUISDK_D11.dcp" />
<DCCReference Include="View\RemObjects_Core_D11.dcp" />
<DCCReference Include="View\rtl.dcp" />
<DCCReference Include="View\uIEditorApunte.pas" /> <DCCReference Include="View\uIEditorApunte.pas" />
<DCCReference Include="View\uIEditorAsiento.pas" /> <DCCReference Include="View\uIEditorAsiento.pas" />
<DCCReference Include="View\uIEditorBalance.pas" /> <DCCReference Include="View\uIEditorBalance.pas" />
@ -94,8 +89,14 @@
<DCCReference Include="View\uIEditorElegirSubCuentas.pas" /> <DCCReference Include="View\uIEditorElegirSubCuentas.pas" />
<DCCReference Include="View\uIEditorEpigrafe.pas" /> <DCCReference Include="View\uIEditorEpigrafe.pas" />
<DCCReference Include="View\uIEditorEpigrafes.pas" /> <DCCReference Include="View\uIEditorEpigrafes.pas" />
<DCCReference Include="View\uIEditorExtractoMovimientos.pas" />
<DCCReference Include="View\uIEditorSubCuenta.pas" /> <DCCReference Include="View\uIEditorSubCuenta.pas" />
<DCCReference Include="View\uIEditorSubCuentas.pas" /> <DCCReference Include="View\uIEditorSubCuentas.pas" />
<DCCReference Include="View\vcl.dcp" />
<DCCReference Include="View\vclactnband.dcp" />
<DCCReference Include="View\vcldb.dcp" />
<DCCReference Include="View\vclx.dcp" />
<DCCReference Include="View\xmlrtl.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

23
Source/Modulos/Contabilidad/Controller/View/uIEditorExtractoMovimientos.pas Normal file
View File

@ -0,0 +1,23 @@
unit uIEditorExtractoMovimientos;
interface
uses
uEditorGridBase, uBizDiario, uAsientosController;
type
IEditorExtractoMovimientos = interface (IEditorGridBase)
['{3F9F972F-44A8-4054-8A33-C24FFB4B45AE}']
function GetController : IAsientosController;
procedure SetController (const Value : IAsientosController);
property Controller : IAsientosController read GetController write SetController;
function GetDiario: IBizDiario;
procedure SetDiario(const Value: IBizDiario);
property Diario: IBizDiario read GetDiario write SetDiario;
end;
implementation
end.

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

@ -5,14 +5,16 @@ interface
uses uses
Classes, SysUtils, uDADataTable, uControllerBase, Classes, SysUtils, uDADataTable, uControllerBase,
uBizApuntes, uIDataModuleContabilidad; uBizApuntes, uBizSubCuentas, uIDataModuleContabilidad;
type type
IApuntesController = interface(IObservador) IApuntesController = interface(IObservador)
['{94E5F2B6-64C8-4331-B9CB-3ED730478529}'] ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}']
// function BuscarTodos: IBizApunte; // function BuscarTodos: IBizApunte;
// function Buscar(const ID: Integer): IBizApunte; // function Buscar(const ID: Integer): IBizApunte;
// procedure VerTodos(AApuntes: IBizApunte); // procedure VerTodos(AApuntes: IBizApunte);
procedure Anadir(AApunte : IBizApunte); procedure Anadir(AApunte : IBizApunte); overload;
procedure Anadir(AApunte : IBizApunte; IdSubCuenta: Integer); overload;
procedure AnadirCierre(AApunte : IBizApunte);
procedure Ver(AApunte: IBizApunte); procedure Ver(AApunte: IBizApunte);
// function Anadir: IBizApunte; // function Anadir: IBizApunte;
function Eliminar(AApunte : IBizApunte): Boolean; function Eliminar(AApunte : IBizApunte): Boolean;
@ -27,6 +29,9 @@ type
end; end;
TApuntesController = class(TObservador, IApuntesController) TApuntesController = class(TObservador, IApuntesController)
private
procedure CopiarSubCuenta_Apunte(AApunte: IBizApunte; ASubCuenta : IBizSubCuenta);
protected protected
FDataModule : IDataModuleContabilidad; FDataModule : IDataModuleContabilidad;
@ -42,7 +47,9 @@ type
function ValidarApunte(AApunte: IBizApunte): Boolean; function ValidarApunte(AApunte: IBizApunte): Boolean;
procedure Anadir(AApunte : IBizApunte); procedure Anadir(AApunte : IBizApunte); overload;
procedure Anadir(AApunte : IBizApunte; IdSubCuenta: Integer); overload;
procedure AnadirCierre(AApunte : IBizApunte);
function Eliminar(AApunte : IBizApunte): Boolean; function Eliminar(AApunte : IBizApunte): Boolean;
function Guardar(AApunte : IBizApunte): Boolean; virtual; function Guardar(AApunte : IBizApunte): Boolean; virtual;
procedure DescartarCambios(AApunte : IBizApunte); virtual; procedure DescartarCambios(AApunte : IBizApunte); virtual;
@ -61,7 +68,7 @@ implementation
uses uses
cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf, cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf,
uBizSubCuentas, uSubCuentasController, uSubCuentasController,
uIEditorApunte, uDataModuleContabilidad, uIEditorApunte, uDataModuleContabilidad,
uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App, uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App,
uDateUtils, uROTypes, DateUtils, Controls, Windows; uDateUtils, uROTypes, DateUtils, Controls, Windows;
@ -88,6 +95,35 @@ begin
// AApunte.DataTable.EnableControls; // AApunte.DataTable.EnableControls;
end; end;
procedure TApuntesController.Anadir(AApunte: IBizApunte; IdSubCuenta: Integer);
var
ASubCuenta : IBizSubCuenta;
AController : ISubCuentasController;
begin
Anadir(AApunte);
try
AController := TSubCuentasController.Create;
ASubCuenta := AController.Buscar(IdSubcuenta);
CopiarSubCuenta_Apunte(AApunte, ASubCuenta);
finally
AController := Nil;
ASubCuenta := Nil;
end;
end;
procedure TApuntesController.AnadirCierre(AApunte: IBizApunte);
begin
if not AApunte.DataTable.Editing then
AApunte.DataTable.Edit;
AApunte.CONCEPTO := 'CIERRE CAJA';
AApunte.DEBE := 0;
AApunte.Post;
end;
procedure TApuntesController.AsignarDataModule; procedure TApuntesController.AsignarDataModule;
begin begin
FDataModule := TDataModuleContabilidad.Create(Nil); FDataModule := TDataModuleContabilidad.Create(Nil);
@ -140,6 +176,26 @@ begin
end; end;
} }
procedure TApuntesController.CopiarSubCuenta_Apunte(AApunte: IBizApunte; ASubCuenta: IBizSubCuenta);
begin
if Assigned(ASubCuenta) then
begin
if not ASubCuenta.DataTable.Active then
ASubCuenta.DataTable.Active := True;
if Assigned(AApunte) then
begin
if not AApunte.DataTable.Editing then
AApunte.DataTable.Edit;
AApunte.ID_SUBCUENTA := ASubCuenta.ID;
AApunte.REF_SUBCUENTA := ASubCuenta.REF_SUBCUENTA;
AApunte.SUBCUENTA := ASubCuenta.DESCRIPCION;
AApunte.Post;
end;
end;
end;
constructor TApuntesController.Create; constructor TApuntesController.Create;
begin begin
inherited; inherited;
@ -268,20 +324,8 @@ begin
try try
AController := TSubCuentasController.Create; AController := TSubCuentasController.Create;
ASubCuenta := (AController.ElegirSubCuenta(AController.BuscarTodos, 'ddddddd', False) as IBizSubCuenta); ASubCuenta := (AController.ElegirSubCuenta(AController.BuscarTodos, 'ddddddd', False) as IBizSubCuenta);
CopiarSubCuenta_Apunte(AApunte, ASubCuenta);
if Assigned(ASubCuenta) then
begin
if Assigned(AApunte) then
begin
if not AApunte.DataTable.Editing then
AApunte.DataTable.Edit;
AApunte.ID_SUBCUENTA := ASubCuenta.ID;
AApunte.REF_SUBCUENTA := ASubCuenta.REF_SUBCUENTA;
AApunte.SUBCUENTA := ASubCuenta.DESCRIPCION;
AApunte.Post;
end;
end;
finally finally
AController := Nil; AController := Nil;
ASubCuenta := Nil; ASubCuenta := Nil;

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

@ -9,11 +9,14 @@ uses
type type
IAsientosController = interface(IObservador) IAsientosController = interface(IObservador)
['{94E5F2B6-64C8-4331-B9CB-3ED730478529}'] ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}']
function BuscarDiario: IBizDiario; function BuscarAsientos(IdSubCuenta: Integer = -1): IBizDiario;
function Buscar(const ID: Integer): IBizAsiento; function Buscar(const ID: Integer): IBizAsiento;
procedure VerDiario(ADiario: IBizDiario); procedure VerDiario(ADiario: IBizDiario);
procedure VerExtracto;
procedure Ver(AAsiento: IBizAsiento); procedure Ver(AAsiento: IBizAsiento);
function Anadir(NumOrden:Integer): IBizAsiento; function Anadir: IBizAsiento; overload;
function Anadir(IdSubcuenta:Integer): IBizAsiento; overload;
function CerrarCajaBanco(IdSubcuenta:Integer): Boolean;
function Eliminar(IDAsiento : Integer): Boolean; overload; function Eliminar(IDAsiento : Integer): Boolean; overload;
function Eliminar(AAsiento : IBizAsiento): Boolean; overload; function Eliminar(AAsiento : IBizAsiento): Boolean; overload;
function Guardar(AAsiento : IBizAsiento): Boolean; function Guardar(AAsiento : IBizAsiento): Boolean;
@ -35,14 +38,19 @@ type
constructor Create; override; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
function BuscarAsientos(IdSubCuenta: Integer = -1): IBizDiario;
function Eliminar(IDAsiento : Integer): Boolean; overload; function Eliminar(IDAsiento : Integer): Boolean; overload;
function Eliminar(AAsiento : IBizAsiento): Boolean; overload; function Eliminar(AAsiento : IBizAsiento): Boolean; overload;
function Guardar(AAsiento : IBizAsiento): Boolean; virtual; function Guardar(AAsiento : IBizAsiento): Boolean; virtual;
procedure DescartarCambios(AAsiento : IBizAsiento); virtual; procedure DescartarCambios(AAsiento : IBizAsiento); virtual;
function Anadir(NumOrden:Integer): IBizAsiento; function Anadir: IBizAsiento; overload;
function BuscarDiario: IBizDiario; function Anadir(IdSubcuenta:Integer): IBizAsiento; overload;
function CerrarCajaBanco(IdSubcuenta:Integer): Boolean;
function Buscar(const ID: Integer): IBizAsiento; function Buscar(const ID: Integer): IBizAsiento;
procedure VerDiario(ADiario: IBizDiario); procedure VerDiario(ADiario: IBizDiario);
procedure VerExtracto;
procedure Ver(AAsiento: IBizAsiento); procedure Ver(AAsiento: IBizAsiento);
end; end;
@ -50,23 +58,36 @@ implementation
uses uses
cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf, cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf,
uIEditorDiario, uIEditorAsiento, uDataModuleContabilidad, uIEditorDiario, uIEditorExtractoMovimientos, uIEditorAsiento,
uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App, uDataModuleContabilidad, uDAInterfaces, uDataTableUtils, uDialogUtils,
uDateUtils, uROTypes, DateUtils, Controls, Windows, uApuntesController; uFactuGES_App, uDateUtils, uROTypes, DateUtils, Controls, Windows,
uApuntesController;
{ TAsientosController } { TAsientosController }
function TAsientosController.Anadir(NumOrden:Integer): IBizAsiento; function TAsientosController.Anadir: IBizAsiento;
var var
AAsiento : IBizAsiento; AAsiento : IBizAsiento;
begin begin
AAsiento := FDataModule.GetAsientoItem(ID_NULO); AAsiento := FDataModule.GetAsientoItem(ID_NULO);
AAsiento.DataTable.Active := True; AAsiento.DataTable.Active := True;
AAsiento.Insert; AAsiento.Insert;
AAsiento.ORDEN := NumOrden;
Result := AAsiento; Result := AAsiento;
end; end;
function TAsientosController.Anadir(IdSubcuenta: Integer): IBizAsiento;
begin
Result := Anadir;
//Creamos el primer apunte del asiento con la cuenta pasada por parametro
with TApuntesController.Create do
try
Anadir(Result.Apuntes, IdSubcuenta);
finally
Free;
end;
end;
procedure TAsientosController.AsignarDataModule; procedure TAsientosController.AsignarDataModule;
begin begin
FDataModule := TDataModuleContabilidad.Create(Nil); FDataModule := TDataModuleContabilidad.Create(Nil);
@ -77,10 +98,65 @@ begin
Result := FDataModule.GetAsientoItem(ID); Result := FDataModule.GetAsientoItem(ID);
end; end;
function TAsientosController.BuscarDiario: IBizDiario; function TAsientosController.BuscarAsientos(IdSubCuenta: Integer = -1): IBizDiario;
var
Condicion: TDAWhereExpression;
begin begin
Result := FDataModule.GetDiarioItems; // En el caso de no definir cuenta lo que queremos es el diario
if (IdSubcuenta < 0) then
Result := FDataModule.GetAsientosDiarioItems
// En el caso de querer solo los movimientos de una cuenta lo que queremos es un extracto de movimientos
else
Result := FDataModule.GetExtractoMovimientosItems;
//Filtramos por empresa
FiltrarEjercicio(Result); FiltrarEjercicio(Result);
// Filtrar los asientos por la subcuenta elegida
if (IdSubcuenta > 0) then
begin
if Result.DataTable.Active then
Result.DataTable.Active := False;
with Result.DataTable.DynamicWhere do
begin
// (ID_SUBCUENTA = IdSubcuenta)
Condicion := NewBinaryExpression(NewField('', fld_DiarioID_SUBCUENTA), NewConstant(IdSubCuenta, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
end;
end;
function TAsientosController.CerrarCajaBanco(IdSubcuenta: Integer): Boolean;
var
AAsiento: IBizAsiento;
begin
Result:= False;
AAsiento:= Anadir(IdSubCuenta);
try
AAsiento.TIPO := 'X'; //CIERRE DE CAJA
AAsiento.Post;
//Creamos el primer apunte del asiento con la cuenta pasada por parametro
with TApuntesController.Create do
try
AnadirCierre(AAsiento.Apuntes);
finally
Free;
end;
Guardar(AAsiento);
Result := True;
finally
AAsiento := Nil;
end;
end; end;
constructor TAsientosController.Create; constructor TAsientosController.Create;
@ -143,12 +219,15 @@ begin
if AAsiento.FECHA_ASIENTOIsNull then if AAsiento.FECHA_ASIENTOIsNull then
raise Exception.Create('Debe indicar una fecha para este Asiento.'); raise Exception.Create('Debe indicar una fecha para este Asiento.');
if AAsiento.ORDENIsNull then // if AAsiento.ORDENIsNull then
raise Exception.Create('Debe indicar un número de orden para este Asiento.'); // raise Exception.Create('Debe indicar un número de orden para este Asiento.');
//Tambien validamos los detalles del asiento //Tambien validamos los detalles del asiento
with TApuntesController.Create do with TApuntesController.Create do
ValidarApunte(AAsiento.Apuntes); begin
ValidarApunte(AAsiento.Apuntes);
Free;
end;
// if Length(AAsiento.CONCEPTO) = 0 then // if Length(AAsiento.CONCEPTO) = 0 then
// raise Exception.Create('Debe indicar un concepto para este Asiento.'); // raise Exception.Create('Debe indicar un concepto para este Asiento.');
@ -199,6 +278,27 @@ begin
end; end;
end; end;
procedure TAsientosController.VerExtracto;
var
AEditor : IEditorExtractoMovimientos;
begin
AEditor := NIL;
ShowHourglassCursor;
try
CreateEditor('EditorExtractoMovimientos', IEditorExtractoMovimientos, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
Controller := Self; //OJO ORDEN MUY IMPORTANTE
//En este caso el objeto de negocio recae sobre la vista
ShowEmbedded;
end;
finally
AEditor := NIL;
HideHourglassCursor;
end;
end;
function TAsientosController.Eliminar(AAsiento: IBizAsiento): Boolean; function TAsientosController.Eliminar(AAsiento: IBizAsiento): Boolean;
begin begin
Result := False; Result := False;

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

@ -506,6 +506,11 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
item item
Name = 'ID_PAGO' Name = 'ID_PAGO'
DataType = datInteger DataType = datInteger
end
item
Name = 'TIPO'
DataType = datString
Size = 1
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
@ -551,6 +556,11 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
DisplayLabel = 'Diario_ID_PAGO' DisplayLabel = 'Diario_ID_PAGO'
DictionaryEntry = 'Diario_ID_PAGO' DictionaryEntry = 'Diario_ID_PAGO'
end end
item
Name = 'TIPO'
DataType = datString
Size = 1
end
item item
Name = 'ORDEN_ASIENTO' Name = 'ORDEN_ASIENTO'
DataType = datInteger DataType = datInteger
@ -622,6 +632,14 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
DataType = datSmallInt DataType = datSmallInt
DisplayLabel = 'Diario_PUNTEADO' DisplayLabel = 'Diario_PUNTEADO'
DictionaryEntry = 'Diario_PUNTEADO' DictionaryEntry = 'Diario_PUNTEADO'
end
item
Name = 'SALDO'
DataType = datCurrency
LogChanges = False
DisplayLabel = 'Saldo'
Alignment = taRightJustify
Calculated = True
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -43,7 +43,8 @@ type
function GetSubCuentaItems: IBizSubCuenta; function GetSubCuentaItems: IBizSubCuenta;
function GetSubCuentaItem(const ID: Integer): IBizSubCuenta; function GetSubCuentaItem(const ID: Integer): IBizSubCuenta;
function NewSubCuentaItem : IBizSubCuenta; function NewSubCuentaItem : IBizSubCuenta;
function GetDiarioItems: IBizDiario; function GetAsientosDiarioItems: IBizDiario;
function GetExtractoMovimientosItems: IBizExtractoMovimiento;
function GetAsientoItem(const ID : Integer): IBizAsiento; function GetAsientoItem(const ID : Integer): IBizAsiento;
function GetCuentaEspecialItems: IBizCuentaEspecial; function GetCuentaEspecialItems: IBizCuentaEspecial;
function GetBalanceItems: IBizBalance; function GetBalanceItems: IBizBalance;
@ -99,7 +100,7 @@ begin
end; end;
end; end;
function TDataModuleContabilidad.GetDiarioItems: IBizDiario; function TDataModuleContabilidad.GetAsientosDiarioItems: IBizDiario;
var var
ADiario : TDAMemDataTable; ADiario : TDAMemDataTable;
begin begin
@ -169,6 +170,21 @@ begin
end; end;
end; end;
function TDataModuleContabilidad.GetExtractoMovimientosItems: IBizExtractoMovimiento;
var
AExtractoMovimiento : TDAMemDataTable;
begin
ShowHourglassCursor;
try
AExtractoMovimiento := CloneDataTable(tbl_Diario);
AExtractoMovimiento.BusinessRulesID := BIZ_CLIENT_EXTRACTOMOVIMIENTO;
Result := (AExtractoMovimiento as IBizExtractoMovimiento);
finally
HideHourglassCursor;
end;
end;
function TDataModuleContabilidad.GetSubCuentaItem(const ID: Integer): IBizSubCuenta; function TDataModuleContabilidad.GetSubCuentaItem(const ID: Integer): IBizSubCuenta;
var var
ASubCuenta : TDAMemDataTable; ASubCuenta : TDAMemDataTable;

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

@ -16,7 +16,8 @@ type
function GetSubCuentaItems: IBizSubCuenta; function GetSubCuentaItems: IBizSubCuenta;
function GetSubCuentaItem(const ID: Integer): IBizSubCuenta; function GetSubCuentaItem(const ID: Integer): IBizSubCuenta;
function NewSubCuentaItem : IBizSubCuenta; function NewSubCuentaItem : IBizSubCuenta;
function GetDiarioItems: IBizDiario; function GetAsientosDiarioItems: IBizDiario;
function GetExtractoMovimientosItems: IBizExtractoMovimiento;
function GetAsientoItem(const ID : Integer): IBizAsiento; function GetAsientoItem(const ID : Integer): IBizAsiento;
end; end;

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

@ -9,23 +9,25 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_DarIDCuenta = '{62580F41-3FD3-42D1-9D19-D5088B529E2B}'; RID_DarIDCuenta = '{F20E3431-4AD6-442E-978E-BD5DC04DF357}';
RID_DarCodigoContableTienda = '{18EAEDB3-6482-4451-9F51-1771AFB07AF9}'; RID_DarCodigoContableTienda = '{3BA1A823-E5A4-4FAC-A78A-ECF457D57173}';
RID_DarMaxRefSubCuenta = '{28A1162D-F15C-4533-81F0-49C61A40C975}'; RID_DarMaxRefSubCuentaProv = '{AE364C91-C829-4AF9-8146-1DA3E9291B40}';
RID_ExisteSubCuenta = '{33F3DD94-075A-4EF5-A9D7-901A5B762506}'; RID_ExisteSubCuenta = '{B7212610-DF33-441B-91EB-01A6C4851991}';
RID_Diario = '{08A2E65A-5D6A-47F9-834F-F764900C9DD9}'; RID_Diario = '{1522637C-8E18-4E3D-8136-87488C0665CC}';
RID_Apuntes = '{70944570-6902-4449-B652-FF4F8F36FF63}'; RID_Apuntes = '{F1890C23-1E41-4B6A-AD7B-A48FD87A45CF}';
RID_Asientos = '{78A6C952-897F-4CD4-89CF-D408E25D418E}'; RID_Asientos = '{355862A4-0318-4A56-ACBB-800FD3AC63B0}';
RID_SubCuentas = '{24E41EBC-DC48-41D9-ABD4-3088FF741164}'; RID_SubCuentas = '{DBA9026B-5657-45A8-8132-D20BA0A7A2F9}';
RID_Cuentas = '{ACD17A3C-67D7-4172-9EBB-FA43A71ED2C7}'; RID_Cuentas = '{441DF5A0-959E-4860-87BE-4F4CCD747047}';
RID_CuentasEspeciales = '{5580C0E4-5554-40C5-8570-06C452D132C4}'; RID_CuentasEspeciales = '{8DB618C9-EA42-49F0-A75B-FE51F1F7A0C4}';
RID_Epigrafes = '{5437D981-0F48-4A14-B31C-2FFCDE1C9F8D}'; RID_Epigrafes = '{66E2FBD3-8DA1-48AA-A7ED-C0A8ED011DA6}';
RID_Balances = '{2D6831A6-A078-472A-A870-8BAA551696E8}'; RID_Balances = '{06C8D640-0690-4620-9F99-8745B91B249E}';
RID_DarMaxRefSubCuentaCli = '{DEFF4707-42F7-48C7-9A68-B55A53FDCA21}';
RID_DarNumOrdenAsiento = '{91A031A1-CE35-4338-8468-7A303D76C58B}';
{ Data table names } { Data table names }
nme_DarIDCuenta = 'DarIDCuenta'; nme_DarIDCuenta = 'DarIDCuenta';
nme_DarCodigoContableTienda = 'DarCodigoContableTienda'; nme_DarCodigoContableTienda = 'DarCodigoContableTienda';
nme_DarMaxRefSubCuenta = 'DarMaxRefSubCuenta'; nme_DarMaxRefSubCuentaProv = 'DarMaxRefSubCuentaProv';
nme_ExisteSubCuenta = 'ExisteSubCuenta'; nme_ExisteSubCuenta = 'ExisteSubCuenta';
nme_Diario = 'Diario'; nme_Diario = 'Diario';
nme_Apuntes = 'Apuntes'; nme_Apuntes = 'Apuntes';
@ -35,6 +37,8 @@ const
nme_CuentasEspeciales = 'CuentasEspeciales'; nme_CuentasEspeciales = 'CuentasEspeciales';
nme_Epigrafes = 'Epigrafes'; nme_Epigrafes = 'Epigrafes';
nme_Balances = 'Balances'; nme_Balances = 'Balances';
nme_DarMaxRefSubCuentaCli = 'DarMaxRefSubCuentaCli';
nme_DarNumOrdenAsiento = 'DarNumOrdenAsiento';
{ DarIDCuenta fields } { DarIDCuenta fields }
fld_DarIDCuentaID = 'ID'; fld_DarIDCuentaID = 'ID';
@ -48,11 +52,11 @@ const
{ DarCodigoContableTienda field indexes } { DarCodigoContableTienda field indexes }
idx_DarCodigoContableTiendaCODIGO_CONTABLE = 0; idx_DarCodigoContableTiendaCODIGO_CONTABLE = 0;
{ DarMaxRefSubCuenta fields } { DarMaxRefSubCuentaProv fields }
fld_DarMaxRefSubCuentaMAX = 'MAX'; fld_DarMaxRefSubCuentaProvMAX = 'MAX';
{ DarMaxRefSubCuenta field indexes } { DarMaxRefSubCuentaProv field indexes }
idx_DarMaxRefSubCuentaMAX = 0; idx_DarMaxRefSubCuentaProvMAX = 0;
{ ExisteSubCuenta fields } { ExisteSubCuenta fields }
fld_ExisteSubCuentaCOUNT = 'COUNT'; fld_ExisteSubCuentaCOUNT = 'COUNT';
@ -65,6 +69,7 @@ const
fld_DiarioID_ASIENTO = 'ID_ASIENTO'; fld_DiarioID_ASIENTO = 'ID_ASIENTO';
fld_DiarioID_FACTURA = 'ID_FACTURA'; fld_DiarioID_FACTURA = 'ID_FACTURA';
fld_DiarioID_PAGO = 'ID_PAGO'; fld_DiarioID_PAGO = 'ID_PAGO';
fld_DiarioTIPO = 'TIPO';
fld_DiarioORDEN_ASIENTO = 'ORDEN_ASIENTO'; fld_DiarioORDEN_ASIENTO = 'ORDEN_ASIENTO';
fld_DiarioFECHA_ASIENTO = 'FECHA_ASIENTO'; fld_DiarioFECHA_ASIENTO = 'FECHA_ASIENTO';
fld_DiarioID_SUBCUENTA = 'ID_SUBCUENTA'; fld_DiarioID_SUBCUENTA = 'ID_SUBCUENTA';
@ -76,23 +81,26 @@ const
fld_DiarioDEBE = 'DEBE'; fld_DiarioDEBE = 'DEBE';
fld_DiarioHABER = 'HABER'; fld_DiarioHABER = 'HABER';
fld_DiarioPUNTEADO = 'PUNTEADO'; fld_DiarioPUNTEADO = 'PUNTEADO';
fld_DiarioSALDO = 'SALDO';
{ Diario field indexes } { Diario field indexes }
idx_DiarioID_APUNTE = 0; idx_DiarioID_APUNTE = 0;
idx_DiarioID_ASIENTO = 1; idx_DiarioID_ASIENTO = 1;
idx_DiarioID_FACTURA = 2; idx_DiarioID_FACTURA = 2;
idx_DiarioID_PAGO = 3; idx_DiarioID_PAGO = 3;
idx_DiarioORDEN_ASIENTO = 4; idx_DiarioTIPO = 4;
idx_DiarioFECHA_ASIENTO = 5; idx_DiarioORDEN_ASIENTO = 5;
idx_DiarioID_SUBCUENTA = 6; idx_DiarioFECHA_ASIENTO = 6;
idx_DiarioREF_SUBCUENTA = 7; idx_DiarioID_SUBCUENTA = 7;
idx_DiarioSUBCUENTA = 8; idx_DiarioREF_SUBCUENTA = 8;
idx_DiarioID_EJERCICIO = 9; idx_DiarioSUBCUENTA = 9;
idx_DiarioCONCEPTO = 10; idx_DiarioID_EJERCICIO = 10;
idx_DiarioDOCUMENTO = 11; idx_DiarioCONCEPTO = 11;
idx_DiarioDEBE = 12; idx_DiarioDOCUMENTO = 12;
idx_DiarioHABER = 13; idx_DiarioDEBE = 13;
idx_DiarioPUNTEADO = 14; idx_DiarioHABER = 14;
idx_DiarioPUNTEADO = 15;
idx_DiarioSALDO = 16;
{ Apuntes fields } { Apuntes fields }
fld_ApuntesID = 'ID'; fld_ApuntesID = 'ID';
@ -126,6 +134,7 @@ const
fld_AsientosORDEN = 'ORDEN'; fld_AsientosORDEN = 'ORDEN';
fld_AsientosID_FACTURA = 'ID_FACTURA'; fld_AsientosID_FACTURA = 'ID_FACTURA';
fld_AsientosID_PAGO = 'ID_PAGO'; fld_AsientosID_PAGO = 'ID_PAGO';
fld_AsientosTIPO = 'TIPO';
{ Asientos field indexes } { Asientos field indexes }
idx_AsientosID = 0; idx_AsientosID = 0;
@ -133,6 +142,7 @@ const
idx_AsientosORDEN = 2; idx_AsientosORDEN = 2;
idx_AsientosID_FACTURA = 3; idx_AsientosID_FACTURA = 3;
idx_AsientosID_PAGO = 4; idx_AsientosID_PAGO = 4;
idx_AsientosTIPO = 5;
{ SubCuentas fields } { SubCuentas fields }
fld_SubCuentasID = 'ID'; fld_SubCuentasID = 'ID';
@ -232,10 +242,22 @@ const
idx_BalancesNIVEL3 = 7; idx_BalancesNIVEL3 = 7;
idx_BalancesDESCRIPCION3 = 8; idx_BalancesDESCRIPCION3 = 8;
{ DarMaxRefSubCuentaCli fields }
fld_DarMaxRefSubCuentaCliMAX = 'MAX';
{ DarMaxRefSubCuentaCli field indexes }
idx_DarMaxRefSubCuentaCliMAX = 0;
{ DarNumOrdenAsiento fields }
fld_DarNumOrdenAsientoNUM_ORDEN = 'NUM_ORDEN';
{ DarNumOrdenAsiento field indexes }
idx_DarNumOrdenAsientoNUM_ORDEN = 0;
type type
{ IDarIDCuenta } { IDarIDCuenta }
IDarIDCuenta = interface(IDAStronglyTypedDataTable) IDarIDCuenta = interface(IDAStronglyTypedDataTable)
['{9F0EA8D0-D45B-4DD6-9166-9A2FAB0B3F43}'] ['{F543F835-B1D5-4042-8804-B1F8762DC2A7}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -270,7 +292,7 @@ type
{ IDarCodigoContableTienda } { IDarCodigoContableTienda }
IDarCodigoContableTienda = interface(IDAStronglyTypedDataTable) IDarCodigoContableTienda = interface(IDAStronglyTypedDataTable)
['{D35B0C64-3AC6-4B58-9BF4-2C7F11A9A191}'] ['{B1D800BF-8EAD-4CF0-B0D5-0573104D04F7}']
{ Property getters and setters } { Property getters and setters }
function GetCODIGO_CONTABLEValue: String; function GetCODIGO_CONTABLEValue: String;
procedure SetCODIGO_CONTABLEValue(const aValue: String); procedure SetCODIGO_CONTABLEValue(const aValue: String);
@ -303,9 +325,9 @@ type
end; end;
{ IDarMaxRefSubCuenta } { IDarMaxRefSubCuentaProv }
IDarMaxRefSubCuenta = interface(IDAStronglyTypedDataTable) IDarMaxRefSubCuentaProv = interface(IDAStronglyTypedDataTable)
['{E3C5A87F-0B25-4719-A2D2-D1B3EDFF22AA}'] ['{65D3E6E4-1068-467D-ABB1-8A9B80AF1C16}']
{ Property getters and setters } { Property getters and setters }
function GetMAXValue: Integer; function GetMAXValue: Integer;
procedure SetMAXValue(const aValue: Integer); procedure SetMAXValue(const aValue: Integer);
@ -318,8 +340,8 @@ type
property MAXIsNull: Boolean read GetMAXIsNull write SetMAXIsNull; property MAXIsNull: Boolean read GetMAXIsNull write SetMAXIsNull;
end; end;
{ TDarMaxRefSubCuentaDataTableRules } { TDarMaxRefSubCuentaProvDataTableRules }
TDarMaxRefSubCuentaDataTableRules = class(TIntfObjectDADataTableRules, IDarMaxRefSubCuenta) TDarMaxRefSubCuentaProvDataTableRules = class(TIntfObjectDADataTableRules, IDarMaxRefSubCuentaProv)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -340,7 +362,7 @@ type
{ IExisteSubCuenta } { IExisteSubCuenta }
IExisteSubCuenta = interface(IDAStronglyTypedDataTable) IExisteSubCuenta = interface(IDAStronglyTypedDataTable)
['{634595DB-2DF1-458B-B2FC-0AF5FCD93E82}'] ['{3E144142-E6B8-4F81-8BC2-F4D7D0599EAB}']
{ Property getters and setters } { Property getters and setters }
function GetCOUNTValue: Integer; function GetCOUNTValue: Integer;
procedure SetCOUNTValue(const aValue: Integer); procedure SetCOUNTValue(const aValue: Integer);
@ -375,7 +397,7 @@ type
{ IDiario } { IDiario }
IDiario = interface(IDAStronglyTypedDataTable) IDiario = interface(IDAStronglyTypedDataTable)
['{3E328181-3908-4A59-AEAC-B669B49E0B9C}'] ['{3E5CE58E-5ED0-4BF7-88E0-E3A8D42F82AC}']
{ Property getters and setters } { Property getters and setters }
function GetID_APUNTEValue: Integer; function GetID_APUNTEValue: Integer;
procedure SetID_APUNTEValue(const aValue: Integer); procedure SetID_APUNTEValue(const aValue: Integer);
@ -393,6 +415,10 @@ type
procedure SetID_PAGOValue(const aValue: Integer); procedure SetID_PAGOValue(const aValue: Integer);
function GetID_PAGOIsNull: Boolean; function GetID_PAGOIsNull: Boolean;
procedure SetID_PAGOIsNull(const aValue: Boolean); procedure SetID_PAGOIsNull(const aValue: Boolean);
function GetTIPOValue: String;
procedure SetTIPOValue(const aValue: String);
function GetTIPOIsNull: Boolean;
procedure SetTIPOIsNull(const aValue: Boolean);
function GetORDEN_ASIENTOValue: Integer; function GetORDEN_ASIENTOValue: Integer;
procedure SetORDEN_ASIENTOValue(const aValue: Integer); procedure SetORDEN_ASIENTOValue(const aValue: Integer);
function GetORDEN_ASIENTOIsNull: Boolean; function GetORDEN_ASIENTOIsNull: Boolean;
@ -437,6 +463,10 @@ type
procedure SetPUNTEADOValue(const aValue: SmallInt); procedure SetPUNTEADOValue(const aValue: SmallInt);
function GetPUNTEADOIsNull: Boolean; function GetPUNTEADOIsNull: Boolean;
procedure SetPUNTEADOIsNull(const aValue: Boolean); procedure SetPUNTEADOIsNull(const aValue: Boolean);
function GetSALDOValue: Currency;
procedure SetSALDOValue(const aValue: Currency);
function GetSALDOIsNull: Boolean;
procedure SetSALDOIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -448,6 +478,8 @@ type
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property ID_PAGO: Integer read GetID_PAGOValue write SetID_PAGOValue; property ID_PAGO: Integer read GetID_PAGOValue write SetID_PAGOValue;
property ID_PAGOIsNull: Boolean read GetID_PAGOIsNull write SetID_PAGOIsNull; property ID_PAGOIsNull: Boolean read GetID_PAGOIsNull write SetID_PAGOIsNull;
property TIPO: String read GetTIPOValue write SetTIPOValue;
property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
property ORDEN_ASIENTO: Integer read GetORDEN_ASIENTOValue write SetORDEN_ASIENTOValue; property ORDEN_ASIENTO: Integer read GetORDEN_ASIENTOValue write SetORDEN_ASIENTOValue;
property ORDEN_ASIENTOIsNull: Boolean read GetORDEN_ASIENTOIsNull write SetORDEN_ASIENTOIsNull; property ORDEN_ASIENTOIsNull: Boolean read GetORDEN_ASIENTOIsNull write SetORDEN_ASIENTOIsNull;
property FECHA_ASIENTO: DateTime read GetFECHA_ASIENTOValue write SetFECHA_ASIENTOValue; property FECHA_ASIENTO: DateTime read GetFECHA_ASIENTOValue write SetFECHA_ASIENTOValue;
@ -470,6 +502,8 @@ type
property HABERIsNull: Boolean read GetHABERIsNull write SetHABERIsNull; property HABERIsNull: Boolean read GetHABERIsNull write SetHABERIsNull;
property PUNTEADO: SmallInt read GetPUNTEADOValue write SetPUNTEADOValue; property PUNTEADO: SmallInt read GetPUNTEADOValue write SetPUNTEADOValue;
property PUNTEADOIsNull: Boolean read GetPUNTEADOIsNull write SetPUNTEADOIsNull; property PUNTEADOIsNull: Boolean read GetPUNTEADOIsNull write SetPUNTEADOIsNull;
property SALDO: Currency read GetSALDOValue write SetSALDOValue;
property SALDOIsNull: Boolean read GetSALDOIsNull write SetSALDOIsNull;
end; end;
{ TDiarioDataTableRules } { TDiarioDataTableRules }
@ -493,6 +527,10 @@ type
procedure SetID_PAGOValue(const aValue: Integer); virtual; procedure SetID_PAGOValue(const aValue: Integer); virtual;
function GetID_PAGOIsNull: Boolean; virtual; function GetID_PAGOIsNull: Boolean; virtual;
procedure SetID_PAGOIsNull(const aValue: Boolean); virtual; procedure SetID_PAGOIsNull(const aValue: Boolean); virtual;
function GetTIPOValue: String; virtual;
procedure SetTIPOValue(const aValue: String); virtual;
function GetTIPOIsNull: Boolean; virtual;
procedure SetTIPOIsNull(const aValue: Boolean); virtual;
function GetORDEN_ASIENTOValue: Integer; virtual; function GetORDEN_ASIENTOValue: Integer; virtual;
procedure SetORDEN_ASIENTOValue(const aValue: Integer); virtual; procedure SetORDEN_ASIENTOValue(const aValue: Integer); virtual;
function GetORDEN_ASIENTOIsNull: Boolean; virtual; function GetORDEN_ASIENTOIsNull: Boolean; virtual;
@ -537,6 +575,10 @@ type
procedure SetPUNTEADOValue(const aValue: SmallInt); virtual; procedure SetPUNTEADOValue(const aValue: SmallInt); virtual;
function GetPUNTEADOIsNull: Boolean; virtual; function GetPUNTEADOIsNull: Boolean; virtual;
procedure SetPUNTEADOIsNull(const aValue: Boolean); virtual; procedure SetPUNTEADOIsNull(const aValue: Boolean); virtual;
function GetSALDOValue: Currency; virtual;
procedure SetSALDOValue(const aValue: Currency); virtual;
function GetSALDOIsNull: Boolean; virtual;
procedure SetSALDOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID_APUNTE: Integer read GetID_APUNTEValue write SetID_APUNTEValue; property ID_APUNTE: Integer read GetID_APUNTEValue write SetID_APUNTEValue;
@ -547,6 +589,8 @@ type
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property ID_PAGO: Integer read GetID_PAGOValue write SetID_PAGOValue; property ID_PAGO: Integer read GetID_PAGOValue write SetID_PAGOValue;
property ID_PAGOIsNull: Boolean read GetID_PAGOIsNull write SetID_PAGOIsNull; property ID_PAGOIsNull: Boolean read GetID_PAGOIsNull write SetID_PAGOIsNull;
property TIPO: String read GetTIPOValue write SetTIPOValue;
property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
property ORDEN_ASIENTO: Integer read GetORDEN_ASIENTOValue write SetORDEN_ASIENTOValue; property ORDEN_ASIENTO: Integer read GetORDEN_ASIENTOValue write SetORDEN_ASIENTOValue;
property ORDEN_ASIENTOIsNull: Boolean read GetORDEN_ASIENTOIsNull write SetORDEN_ASIENTOIsNull; property ORDEN_ASIENTOIsNull: Boolean read GetORDEN_ASIENTOIsNull write SetORDEN_ASIENTOIsNull;
property FECHA_ASIENTO: DateTime read GetFECHA_ASIENTOValue write SetFECHA_ASIENTOValue; property FECHA_ASIENTO: DateTime read GetFECHA_ASIENTOValue write SetFECHA_ASIENTOValue;
@ -569,6 +613,8 @@ type
property HABERIsNull: Boolean read GetHABERIsNull write SetHABERIsNull; property HABERIsNull: Boolean read GetHABERIsNull write SetHABERIsNull;
property PUNTEADO: SmallInt read GetPUNTEADOValue write SetPUNTEADOValue; property PUNTEADO: SmallInt read GetPUNTEADOValue write SetPUNTEADOValue;
property PUNTEADOIsNull: Boolean read GetPUNTEADOIsNull write SetPUNTEADOIsNull; property PUNTEADOIsNull: Boolean read GetPUNTEADOIsNull write SetPUNTEADOIsNull;
property SALDO: Currency read GetSALDOValue write SetSALDOValue;
property SALDOIsNull: Boolean read GetSALDOIsNull write SetSALDOIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -578,7 +624,7 @@ type
{ IApuntes } { IApuntes }
IApuntes = interface(IDAStronglyTypedDataTable) IApuntes = interface(IDAStronglyTypedDataTable)
['{2C752BCD-2FE5-4E3C-A994-21763634B4B4}'] ['{260C1901-EF6F-4E78-800D-44E7D2E0DA8E}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -733,7 +779,7 @@ type
{ IAsientos } { IAsientos }
IAsientos = interface(IDAStronglyTypedDataTable) IAsientos = interface(IDAStronglyTypedDataTable)
['{C934D5E4-593C-44A8-AFE3-5D6E6AF7E945}'] ['{23328B9C-D6B6-478B-9E1C-208F334C2E4C}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -755,6 +801,10 @@ type
procedure SetID_PAGOValue(const aValue: Integer); procedure SetID_PAGOValue(const aValue: Integer);
function GetID_PAGOIsNull: Boolean; function GetID_PAGOIsNull: Boolean;
procedure SetID_PAGOIsNull(const aValue: Boolean); procedure SetID_PAGOIsNull(const aValue: Boolean);
function GetTIPOValue: String;
procedure SetTIPOValue(const aValue: String);
function GetTIPOIsNull: Boolean;
procedure SetTIPOIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -768,6 +818,8 @@ type
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property ID_PAGO: Integer read GetID_PAGOValue write SetID_PAGOValue; property ID_PAGO: Integer read GetID_PAGOValue write SetID_PAGOValue;
property ID_PAGOIsNull: Boolean read GetID_PAGOIsNull write SetID_PAGOIsNull; property ID_PAGOIsNull: Boolean read GetID_PAGOIsNull write SetID_PAGOIsNull;
property TIPO: String read GetTIPOValue write SetTIPOValue;
property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
end; end;
{ TAsientosDataTableRules } { TAsientosDataTableRules }
@ -795,6 +847,10 @@ type
procedure SetID_PAGOValue(const aValue: Integer); virtual; procedure SetID_PAGOValue(const aValue: Integer); virtual;
function GetID_PAGOIsNull: Boolean; virtual; function GetID_PAGOIsNull: Boolean; virtual;
procedure SetID_PAGOIsNull(const aValue: Boolean); virtual; procedure SetID_PAGOIsNull(const aValue: Boolean); virtual;
function GetTIPOValue: String; virtual;
procedure SetTIPOValue(const aValue: String); virtual;
function GetTIPOIsNull: Boolean; virtual;
procedure SetTIPOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -807,6 +863,8 @@ type
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property ID_PAGO: Integer read GetID_PAGOValue write SetID_PAGOValue; property ID_PAGO: Integer read GetID_PAGOValue write SetID_PAGOValue;
property ID_PAGOIsNull: Boolean read GetID_PAGOIsNull write SetID_PAGOIsNull; property ID_PAGOIsNull: Boolean read GetID_PAGOIsNull write SetID_PAGOIsNull;
property TIPO: String read GetTIPOValue write SetTIPOValue;
property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -816,7 +874,7 @@ type
{ ISubCuentas } { ISubCuentas }
ISubCuentas = interface(IDAStronglyTypedDataTable) ISubCuentas = interface(IDAStronglyTypedDataTable)
['{E41AB2AB-D4B5-4856-A973-AA1E965D808E}'] ['{F9797AE2-CAA8-414C-A147-1DF8201BBE08}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -971,7 +1029,7 @@ type
{ ICuentas } { ICuentas }
ICuentas = interface(IDAStronglyTypedDataTable) ICuentas = interface(IDAStronglyTypedDataTable)
['{FEECE0E7-F491-4703-908B-B7DF3D7C34C9}'] ['{5A21169F-01D8-4994-AB78-14A2751E41D9}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1114,7 +1172,7 @@ type
{ ICuentasEspeciales } { ICuentasEspeciales }
ICuentasEspeciales = interface(IDAStronglyTypedDataTable) ICuentasEspeciales = interface(IDAStronglyTypedDataTable)
['{038D2C36-A99D-4610-86BE-164FAB17D8AB}'] ['{08298F1B-97F2-46DE-A229-956C4A8035FF}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1173,7 +1231,7 @@ type
{ IEpigrafes } { IEpigrafes }
IEpigrafes = interface(IDAStronglyTypedDataTable) IEpigrafes = interface(IDAStronglyTypedDataTable)
['{0947FB8E-C7C3-4368-BE6F-7C2E8075F640}'] ['{ACA9B7DE-A160-43FD-A610-FB7F0BEC3AD0}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1268,7 +1326,7 @@ type
{ IBalances } { IBalances }
IBalances = interface(IDAStronglyTypedDataTable) IBalances = interface(IDAStronglyTypedDataTable)
['{DF56D273-9C7B-4311-A581-31E679681E5A}'] ['{427DC606-AF79-4D2E-AE75-C9A5C62A7AC9}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1397,6 +1455,76 @@ type
end; end;
{ IDarMaxRefSubCuentaCli }
IDarMaxRefSubCuentaCli = interface(IDAStronglyTypedDataTable)
['{BFC2513E-E133-4778-906A-A0074EC93F28}']
{ Property getters and setters }
function GetMAXValue: Integer;
procedure SetMAXValue(const aValue: Integer);
function GetMAXIsNull: Boolean;
procedure SetMAXIsNull(const aValue: Boolean);
{ Properties }
property MAX: Integer read GetMAXValue write SetMAXValue;
property MAXIsNull: Boolean read GetMAXIsNull write SetMAXIsNull;
end;
{ TDarMaxRefSubCuentaCliDataTableRules }
TDarMaxRefSubCuentaCliDataTableRules = class(TIntfObjectDADataTableRules, IDarMaxRefSubCuentaCli)
private
protected
{ Property getters and setters }
function GetMAXValue: Integer; virtual;
procedure SetMAXValue(const aValue: Integer); virtual;
function GetMAXIsNull: Boolean; virtual;
procedure SetMAXIsNull(const aValue: Boolean); virtual;
{ Properties }
property MAX: Integer read GetMAXValue write SetMAXValue;
property MAXIsNull: Boolean read GetMAXIsNull write SetMAXIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IDarNumOrdenAsiento }
IDarNumOrdenAsiento = interface(IDAStronglyTypedDataTable)
['{20DBD3DA-2731-483A-A08F-02C1180AD51B}']
{ Property getters and setters }
function GetNUM_ORDENValue: Int64;
procedure SetNUM_ORDENValue(const aValue: Int64);
function GetNUM_ORDENIsNull: Boolean;
procedure SetNUM_ORDENIsNull(const aValue: Boolean);
{ Properties }
property NUM_ORDEN: Int64 read GetNUM_ORDENValue write SetNUM_ORDENValue;
property NUM_ORDENIsNull: Boolean read GetNUM_ORDENIsNull write SetNUM_ORDENIsNull;
end;
{ TDarNumOrdenAsientoDataTableRules }
TDarNumOrdenAsientoDataTableRules = class(TIntfObjectDADataTableRules, IDarNumOrdenAsiento)
private
protected
{ Property getters and setters }
function GetNUM_ORDENValue: Int64; virtual;
procedure SetNUM_ORDENValue(const aValue: Int64); virtual;
function GetNUM_ORDENIsNull: Boolean; virtual;
procedure SetNUM_ORDENIsNull(const aValue: Boolean); virtual;
{ Properties }
property NUM_ORDEN: Int64 read GetNUM_ORDENValue write SetNUM_ORDENValue;
property NUM_ORDENIsNull: Boolean read GetNUM_ORDENIsNull write SetNUM_ORDENIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
implementation implementation
uses Variants, uROBinaryHelpers; uses Variants, uROBinaryHelpers;
@ -1467,36 +1595,36 @@ begin
end; end;
{ TDarMaxRefSubCuentaDataTableRules } { TDarMaxRefSubCuentaProvDataTableRules }
constructor TDarMaxRefSubCuentaDataTableRules.Create(aDataTable: TDADataTable); constructor TDarMaxRefSubCuentaProvDataTableRules.Create(aDataTable: TDADataTable);
begin begin
inherited; inherited;
end; end;
destructor TDarMaxRefSubCuentaDataTableRules.Destroy; destructor TDarMaxRefSubCuentaProvDataTableRules.Destroy;
begin begin
inherited; inherited;
end; end;
function TDarMaxRefSubCuentaDataTableRules.GetMAXValue: Integer; function TDarMaxRefSubCuentaProvDataTableRules.GetMAXValue: Integer;
begin begin
result := DataTable.Fields[idx_DarMaxRefSubCuentaMAX].AsInteger; result := DataTable.Fields[idx_DarMaxRefSubCuentaProvMAX].AsInteger;
end; end;
procedure TDarMaxRefSubCuentaDataTableRules.SetMAXValue(const aValue: Integer); procedure TDarMaxRefSubCuentaProvDataTableRules.SetMAXValue(const aValue: Integer);
begin begin
DataTable.Fields[idx_DarMaxRefSubCuentaMAX].AsInteger := aValue; DataTable.Fields[idx_DarMaxRefSubCuentaProvMAX].AsInteger := aValue;
end; end;
function TDarMaxRefSubCuentaDataTableRules.GetMAXIsNull: boolean; function TDarMaxRefSubCuentaProvDataTableRules.GetMAXIsNull: boolean;
begin begin
result := DataTable.Fields[idx_DarMaxRefSubCuentaMAX].IsNull; result := DataTable.Fields[idx_DarMaxRefSubCuentaProvMAX].IsNull;
end; end;
procedure TDarMaxRefSubCuentaDataTableRules.SetMAXIsNull(const aValue: Boolean); procedure TDarMaxRefSubCuentaProvDataTableRules.SetMAXIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_DarMaxRefSubCuentaMAX].AsVariant := Null; DataTable.Fields[idx_DarMaxRefSubCuentaProvMAX].AsVariant := Null;
end; end;
@ -1628,6 +1756,27 @@ begin
DataTable.Fields[idx_DiarioID_PAGO].AsVariant := Null; DataTable.Fields[idx_DiarioID_PAGO].AsVariant := Null;
end; end;
function TDiarioDataTableRules.GetTIPOValue: String;
begin
result := DataTable.Fields[idx_DiarioTIPO].AsString;
end;
procedure TDiarioDataTableRules.SetTIPOValue(const aValue: String);
begin
DataTable.Fields[idx_DiarioTIPO].AsString := aValue;
end;
function TDiarioDataTableRules.GetTIPOIsNull: boolean;
begin
result := DataTable.Fields[idx_DiarioTIPO].IsNull;
end;
procedure TDiarioDataTableRules.SetTIPOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_DiarioTIPO].AsVariant := Null;
end;
function TDiarioDataTableRules.GetORDEN_ASIENTOValue: Integer; function TDiarioDataTableRules.GetORDEN_ASIENTOValue: Integer;
begin begin
result := DataTable.Fields[idx_DiarioORDEN_ASIENTO].AsInteger; result := DataTable.Fields[idx_DiarioORDEN_ASIENTO].AsInteger;
@ -1859,6 +2008,27 @@ begin
DataTable.Fields[idx_DiarioPUNTEADO].AsVariant := Null; DataTable.Fields[idx_DiarioPUNTEADO].AsVariant := Null;
end; end;
function TDiarioDataTableRules.GetSALDOValue: Currency;
begin
result := DataTable.Fields[idx_DiarioSALDO].AsCurrency;
end;
procedure TDiarioDataTableRules.SetSALDOValue(const aValue: Currency);
begin
DataTable.Fields[idx_DiarioSALDO].AsCurrency := aValue;
end;
function TDiarioDataTableRules.GetSALDOIsNull: boolean;
begin
result := DataTable.Fields[idx_DiarioSALDO].IsNull;
end;
procedure TDiarioDataTableRules.SetSALDOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_DiarioSALDO].AsVariant := Null;
end;
{ TApuntesDataTableRules } { TApuntesDataTableRules }
constructor TApuntesDataTableRules.Create(aDataTable: TDADataTable); constructor TApuntesDataTableRules.Create(aDataTable: TDADataTable);
@ -2219,6 +2389,27 @@ begin
DataTable.Fields[idx_AsientosID_PAGO].AsVariant := Null; DataTable.Fields[idx_AsientosID_PAGO].AsVariant := Null;
end; end;
function TAsientosDataTableRules.GetTIPOValue: String;
begin
result := DataTable.Fields[idx_AsientosTIPO].AsString;
end;
procedure TAsientosDataTableRules.SetTIPOValue(const aValue: String);
begin
DataTable.Fields[idx_AsientosTIPO].AsString := aValue;
end;
function TAsientosDataTableRules.GetTIPOIsNull: boolean;
begin
result := DataTable.Fields[idx_AsientosTIPO].IsNull;
end;
procedure TAsientosDataTableRules.SetTIPOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AsientosTIPO].AsVariant := Null;
end;
{ TSubCuentasDataTableRules } { TSubCuentasDataTableRules }
constructor TSubCuentasDataTableRules.Create(aDataTable: TDADataTable); constructor TSubCuentasDataTableRules.Create(aDataTable: TDADataTable);
@ -3099,10 +3290,76 @@ begin
end; end;
{ TDarMaxRefSubCuentaCliDataTableRules }
constructor TDarMaxRefSubCuentaCliDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TDarMaxRefSubCuentaCliDataTableRules.Destroy;
begin
inherited;
end;
function TDarMaxRefSubCuentaCliDataTableRules.GetMAXValue: Integer;
begin
result := DataTable.Fields[idx_DarMaxRefSubCuentaCliMAX].AsInteger;
end;
procedure TDarMaxRefSubCuentaCliDataTableRules.SetMAXValue(const aValue: Integer);
begin
DataTable.Fields[idx_DarMaxRefSubCuentaCliMAX].AsInteger := aValue;
end;
function TDarMaxRefSubCuentaCliDataTableRules.GetMAXIsNull: boolean;
begin
result := DataTable.Fields[idx_DarMaxRefSubCuentaCliMAX].IsNull;
end;
procedure TDarMaxRefSubCuentaCliDataTableRules.SetMAXIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_DarMaxRefSubCuentaCliMAX].AsVariant := Null;
end;
{ TDarNumOrdenAsientoDataTableRules }
constructor TDarNumOrdenAsientoDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TDarNumOrdenAsientoDataTableRules.Destroy;
begin
inherited;
end;
function TDarNumOrdenAsientoDataTableRules.GetNUM_ORDENValue: Int64;
begin
result := DataTable.Fields[idx_DarNumOrdenAsientoNUM_ORDEN].AsLargeInt;
end;
procedure TDarNumOrdenAsientoDataTableRules.SetNUM_ORDENValue(const aValue: Int64);
begin
DataTable.Fields[idx_DarNumOrdenAsientoNUM_ORDEN].AsLargeInt := aValue;
end;
function TDarNumOrdenAsientoDataTableRules.GetNUM_ORDENIsNull: boolean;
begin
result := DataTable.Fields[idx_DarNumOrdenAsientoNUM_ORDEN].IsNull;
end;
procedure TDarNumOrdenAsientoDataTableRules.SetNUM_ORDENIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_DarNumOrdenAsientoNUM_ORDEN].AsVariant := Null;
end;
initialization initialization
RegisterDataTableRules(RID_DarIDCuenta, TDarIDCuentaDataTableRules); RegisterDataTableRules(RID_DarIDCuenta, TDarIDCuentaDataTableRules);
RegisterDataTableRules(RID_DarCodigoContableTienda, TDarCodigoContableTiendaDataTableRules); RegisterDataTableRules(RID_DarCodigoContableTienda, TDarCodigoContableTiendaDataTableRules);
RegisterDataTableRules(RID_DarMaxRefSubCuenta, TDarMaxRefSubCuentaDataTableRules); RegisterDataTableRules(RID_DarMaxRefSubCuentaProv, TDarMaxRefSubCuentaProvDataTableRules);
RegisterDataTableRules(RID_ExisteSubCuenta, TExisteSubCuentaDataTableRules); RegisterDataTableRules(RID_ExisteSubCuenta, TExisteSubCuentaDataTableRules);
RegisterDataTableRules(RID_Diario, TDiarioDataTableRules); RegisterDataTableRules(RID_Diario, TDiarioDataTableRules);
RegisterDataTableRules(RID_Apuntes, TApuntesDataTableRules); RegisterDataTableRules(RID_Apuntes, TApuntesDataTableRules);
@ -3112,5 +3369,7 @@ initialization
RegisterDataTableRules(RID_CuentasEspeciales, TCuentasEspecialesDataTableRules); RegisterDataTableRules(RID_CuentasEspeciales, TCuentasEspecialesDataTableRules);
RegisterDataTableRules(RID_Epigrafes, TEpigrafesDataTableRules); RegisterDataTableRules(RID_Epigrafes, TEpigrafesDataTableRules);
RegisterDataTableRules(RID_Balances, TBalancesDataTableRules); RegisterDataTableRules(RID_Balances, TBalancesDataTableRules);
RegisterDataTableRules(RID_DarMaxRefSubCuentaCli, TDarMaxRefSubCuentaCliDataTableRules);
RegisterDataTableRules(RID_DarNumOrdenAsiento, TDarNumOrdenAsientoDataTableRules);
end. end.

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

@ -9,23 +9,25 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_DarIDCuentaDelta = '{E61FFC34-78E1-4E47-873B-26A3866D714B}'; RID_DarIDCuentaDelta = '{4A8D8FA0-0EEF-4491-BFB4-799375FF5528}';
RID_DarCodigoContableTiendaDelta = '{9B4CCB90-6621-48DE-83B9-C1EE6E9A3DC6}'; RID_DarCodigoContableTiendaDelta = '{4E3CF1AC-F8CB-4D95-B44F-5554F384A7A4}';
RID_DarMaxRefSubCuentaDelta = '{23178B29-2EFE-41DA-BCFF-0B12BB3BF392}'; RID_DarMaxRefSubCuentaProvDelta = '{F3BD2639-0408-456A-93C0-DF43CBB10A0A}';
RID_ExisteSubCuentaDelta = '{448B8958-98BA-4340-8D03-FDD4817E637B}'; RID_ExisteSubCuentaDelta = '{2D136513-7A96-4A3D-9DA6-2A8822F53748}';
RID_DiarioDelta = '{699B3B97-2CC2-429A-B275-63EAB604D199}'; RID_DiarioDelta = '{DC0F4316-FAF1-4DD1-8682-66E915811023}';
RID_ApuntesDelta = '{CC4B622A-A26E-41A5-ACDC-D838185BB681}'; RID_ApuntesDelta = '{F2EDB86B-74A8-4A52-8157-2692165612C9}';
RID_AsientosDelta = '{5FC14F81-E72E-4662-80EC-38459AB23915}'; RID_AsientosDelta = '{35612FDC-F9CE-467A-A2E8-0D26DC3AD200}';
RID_SubCuentasDelta = '{FC32F9F6-0BC4-4BDC-8307-A47786D2E601}'; RID_SubCuentasDelta = '{6E660749-3293-4E06-96AB-A11049C7C342}';
RID_CuentasDelta = '{F030EAB1-8B4B-4E20-B8D9-BD41747561BC}'; RID_CuentasDelta = '{018CF9CE-E675-40D9-A9E4-F8575423D2DB}';
RID_CuentasEspecialesDelta = '{BDC3E113-F48D-459C-9208-C3502377511B}'; RID_CuentasEspecialesDelta = '{6C17A277-C23B-45F2-9815-F5B231A52442}';
RID_EpigrafesDelta = '{5099CA22-0F27-46FD-8B3A-C0C518E73AD7}'; RID_EpigrafesDelta = '{7164D494-BF70-459F-A6D1-71A368ACB6D6}';
RID_BalancesDelta = '{348A53C4-FD53-4F33-9FC7-61369195ADEC}'; RID_BalancesDelta = '{B7E31CED-2229-4BED-8AA5-F00D8642478B}';
RID_DarMaxRefSubCuentaCliDelta = '{B3246BC2-0498-4F96-B2E1-939CD9179F02}';
RID_DarNumOrdenAsientoDelta = '{1751D5F8-1A96-4208-BFE1-074E99A36D4F}';
type type
{ IDarIDCuentaDelta } { IDarIDCuentaDelta }
IDarIDCuentaDelta = interface(IDarIDCuenta) IDarIDCuentaDelta = interface(IDarIDCuenta)
['{E61FFC34-78E1-4E47-873B-26A3866D714B}'] ['{4A8D8FA0-0EEF-4491-BFB4-799375FF5528}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
@ -59,7 +61,7 @@ type
{ IDarCodigoContableTiendaDelta } { IDarCodigoContableTiendaDelta }
IDarCodigoContableTiendaDelta = interface(IDarCodigoContableTienda) IDarCodigoContableTiendaDelta = interface(IDarCodigoContableTienda)
['{9B4CCB90-6621-48DE-83B9-C1EE6E9A3DC6}'] ['{4E3CF1AC-F8CB-4D95-B44F-5554F384A7A4}']
{ Property getters and setters } { Property getters and setters }
function GetOldCODIGO_CONTABLEValue : String; function GetOldCODIGO_CONTABLEValue : String;
@ -91,9 +93,9 @@ type
end; end;
{ IDarMaxRefSubCuentaDelta } { IDarMaxRefSubCuentaProvDelta }
IDarMaxRefSubCuentaDelta = interface(IDarMaxRefSubCuenta) IDarMaxRefSubCuentaProvDelta = interface(IDarMaxRefSubCuentaProv)
['{23178B29-2EFE-41DA-BCFF-0B12BB3BF392}'] ['{F3BD2639-0408-456A-93C0-DF43CBB10A0A}']
{ Property getters and setters } { Property getters and setters }
function GetOldMAXValue : Integer; function GetOldMAXValue : Integer;
@ -101,8 +103,8 @@ type
property OldMAX : Integer read GetOldMAXValue; property OldMAX : Integer read GetOldMAXValue;
end; end;
{ TDarMaxRefSubCuentaBusinessProcessorRules } { TDarMaxRefSubCuentaProvBusinessProcessorRules }
TDarMaxRefSubCuentaBusinessProcessorRules = class(TDABusinessProcessorRules, IDarMaxRefSubCuenta, IDarMaxRefSubCuentaDelta) TDarMaxRefSubCuentaProvBusinessProcessorRules = class(TDABusinessProcessorRules, IDarMaxRefSubCuentaProv, IDarMaxRefSubCuentaProvDelta)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -127,7 +129,7 @@ type
{ IExisteSubCuentaDelta } { IExisteSubCuentaDelta }
IExisteSubCuentaDelta = interface(IExisteSubCuenta) IExisteSubCuentaDelta = interface(IExisteSubCuenta)
['{448B8958-98BA-4340-8D03-FDD4817E637B}'] ['{2D136513-7A96-4A3D-9DA6-2A8822F53748}']
{ Property getters and setters } { Property getters and setters }
function GetOldCOUNTValue : Integer; function GetOldCOUNTValue : Integer;
@ -161,12 +163,13 @@ type
{ IDiarioDelta } { IDiarioDelta }
IDiarioDelta = interface(IDiario) IDiarioDelta = interface(IDiario)
['{699B3B97-2CC2-429A-B275-63EAB604D199}'] ['{DC0F4316-FAF1-4DD1-8682-66E915811023}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_APUNTEValue : Integer; function GetOldID_APUNTEValue : Integer;
function GetOldID_ASIENTOValue : Integer; function GetOldID_ASIENTOValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
function GetOldID_PAGOValue : Integer; function GetOldID_PAGOValue : Integer;
function GetOldTIPOValue : String;
function GetOldORDEN_ASIENTOValue : Integer; function GetOldORDEN_ASIENTOValue : Integer;
function GetOldFECHA_ASIENTOValue : DateTime; function GetOldFECHA_ASIENTOValue : DateTime;
function GetOldID_SUBCUENTAValue : Integer; function GetOldID_SUBCUENTAValue : Integer;
@ -178,12 +181,14 @@ type
function GetOldDEBEValue : Currency; function GetOldDEBEValue : Currency;
function GetOldHABERValue : Currency; function GetOldHABERValue : Currency;
function GetOldPUNTEADOValue : SmallInt; function GetOldPUNTEADOValue : SmallInt;
function GetOldSALDOValue : Currency;
{ Properties } { Properties }
property OldID_APUNTE : Integer read GetOldID_APUNTEValue; property OldID_APUNTE : Integer read GetOldID_APUNTEValue;
property OldID_ASIENTO : Integer read GetOldID_ASIENTOValue; property OldID_ASIENTO : Integer read GetOldID_ASIENTOValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue; property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldID_PAGO : Integer read GetOldID_PAGOValue; property OldID_PAGO : Integer read GetOldID_PAGOValue;
property OldTIPO : String read GetOldTIPOValue;
property OldORDEN_ASIENTO : Integer read GetOldORDEN_ASIENTOValue; property OldORDEN_ASIENTO : Integer read GetOldORDEN_ASIENTOValue;
property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue; property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue;
property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue; property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
@ -195,6 +200,7 @@ type
property OldDEBE : Currency read GetOldDEBEValue; property OldDEBE : Currency read GetOldDEBEValue;
property OldHABER : Currency read GetOldHABERValue; property OldHABER : Currency read GetOldHABERValue;
property OldPUNTEADO : SmallInt read GetOldPUNTEADOValue; property OldPUNTEADO : SmallInt read GetOldPUNTEADOValue;
property OldSALDO : Currency read GetOldSALDOValue;
end; end;
{ TDiarioBusinessProcessorRules } { TDiarioBusinessProcessorRules }
@ -226,6 +232,12 @@ type
function GetOldID_PAGOIsNull: Boolean; virtual; function GetOldID_PAGOIsNull: Boolean; virtual;
procedure SetID_PAGOValue(const aValue: Integer); virtual; procedure SetID_PAGOValue(const aValue: Integer); virtual;
procedure SetID_PAGOIsNull(const aValue: Boolean); virtual; procedure SetID_PAGOIsNull(const aValue: Boolean); virtual;
function GetTIPOValue: String; virtual;
function GetTIPOIsNull: Boolean; virtual;
function GetOldTIPOValue: String; virtual;
function GetOldTIPOIsNull: Boolean; virtual;
procedure SetTIPOValue(const aValue: String); virtual;
procedure SetTIPOIsNull(const aValue: Boolean); virtual;
function GetORDEN_ASIENTOValue: Integer; virtual; function GetORDEN_ASIENTOValue: Integer; virtual;
function GetORDEN_ASIENTOIsNull: Boolean; virtual; function GetORDEN_ASIENTOIsNull: Boolean; virtual;
function GetOldORDEN_ASIENTOValue: Integer; virtual; function GetOldORDEN_ASIENTOValue: Integer; virtual;
@ -292,6 +304,12 @@ type
function GetOldPUNTEADOIsNull: Boolean; virtual; function GetOldPUNTEADOIsNull: Boolean; virtual;
procedure SetPUNTEADOValue(const aValue: SmallInt); virtual; procedure SetPUNTEADOValue(const aValue: SmallInt); virtual;
procedure SetPUNTEADOIsNull(const aValue: Boolean); virtual; procedure SetPUNTEADOIsNull(const aValue: Boolean); virtual;
function GetSALDOValue: Currency; virtual;
function GetSALDOIsNull: Boolean; virtual;
function GetOldSALDOValue: Currency; virtual;
function GetOldSALDOIsNull: Boolean; virtual;
procedure SetSALDOValue(const aValue: Currency); virtual;
procedure SetSALDOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID_APUNTE : Integer read GetID_APUNTEValue write SetID_APUNTEValue; property ID_APUNTE : Integer read GetID_APUNTEValue write SetID_APUNTEValue;
@ -310,6 +328,10 @@ type
property ID_PAGOIsNull : Boolean read GetID_PAGOIsNull write SetID_PAGOIsNull; property ID_PAGOIsNull : Boolean read GetID_PAGOIsNull write SetID_PAGOIsNull;
property OldID_PAGO : Integer read GetOldID_PAGOValue; property OldID_PAGO : Integer read GetOldID_PAGOValue;
property OldID_PAGOIsNull : Boolean read GetOldID_PAGOIsNull; property OldID_PAGOIsNull : Boolean read GetOldID_PAGOIsNull;
property TIPO : String read GetTIPOValue write SetTIPOValue;
property TIPOIsNull : Boolean read GetTIPOIsNull write SetTIPOIsNull;
property OldTIPO : String read GetOldTIPOValue;
property OldTIPOIsNull : Boolean read GetOldTIPOIsNull;
property ORDEN_ASIENTO : Integer read GetORDEN_ASIENTOValue write SetORDEN_ASIENTOValue; property ORDEN_ASIENTO : Integer read GetORDEN_ASIENTOValue write SetORDEN_ASIENTOValue;
property ORDEN_ASIENTOIsNull : Boolean read GetORDEN_ASIENTOIsNull write SetORDEN_ASIENTOIsNull; property ORDEN_ASIENTOIsNull : Boolean read GetORDEN_ASIENTOIsNull write SetORDEN_ASIENTOIsNull;
property OldORDEN_ASIENTO : Integer read GetOldORDEN_ASIENTOValue; property OldORDEN_ASIENTO : Integer read GetOldORDEN_ASIENTOValue;
@ -354,6 +376,10 @@ type
property PUNTEADOIsNull : Boolean read GetPUNTEADOIsNull write SetPUNTEADOIsNull; property PUNTEADOIsNull : Boolean read GetPUNTEADOIsNull write SetPUNTEADOIsNull;
property OldPUNTEADO : SmallInt read GetOldPUNTEADOValue; property OldPUNTEADO : SmallInt read GetOldPUNTEADOValue;
property OldPUNTEADOIsNull : Boolean read GetOldPUNTEADOIsNull; property OldPUNTEADOIsNull : Boolean read GetOldPUNTEADOIsNull;
property SALDO : Currency read GetSALDOValue write SetSALDOValue;
property SALDOIsNull : Boolean read GetSALDOIsNull write SetSALDOIsNull;
property OldSALDO : Currency read GetOldSALDOValue;
property OldSALDOIsNull : Boolean read GetOldSALDOIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -363,7 +389,7 @@ type
{ IApuntesDelta } { IApuntesDelta }
IApuntesDelta = interface(IApuntes) IApuntesDelta = interface(IApuntes)
['{CC4B622A-A26E-41A5-ACDC-D838185BB681}'] ['{F2EDB86B-74A8-4A52-8157-2692165612C9}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_ASIENTOValue : Integer; function GetOldID_ASIENTOValue : Integer;
@ -517,13 +543,14 @@ type
{ IAsientosDelta } { IAsientosDelta }
IAsientosDelta = interface(IAsientos) IAsientosDelta = interface(IAsientos)
['{5FC14F81-E72E-4662-80EC-38459AB23915}'] ['{35612FDC-F9CE-467A-A2E8-0D26DC3AD200}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldFECHA_ASIENTOValue : DateTime; function GetOldFECHA_ASIENTOValue : DateTime;
function GetOldORDENValue : Integer; function GetOldORDENValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
function GetOldID_PAGOValue : Integer; function GetOldID_PAGOValue : Integer;
function GetOldTIPOValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -531,6 +558,7 @@ type
property OldORDEN : Integer read GetOldORDENValue; property OldORDEN : Integer read GetOldORDENValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue; property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldID_PAGO : Integer read GetOldID_PAGOValue; property OldID_PAGO : Integer read GetOldID_PAGOValue;
property OldTIPO : String read GetOldTIPOValue;
end; end;
{ TAsientosBusinessProcessorRules } { TAsientosBusinessProcessorRules }
@ -568,6 +596,12 @@ type
function GetOldID_PAGOIsNull: Boolean; virtual; function GetOldID_PAGOIsNull: Boolean; virtual;
procedure SetID_PAGOValue(const aValue: Integer); virtual; procedure SetID_PAGOValue(const aValue: Integer); virtual;
procedure SetID_PAGOIsNull(const aValue: Boolean); virtual; procedure SetID_PAGOIsNull(const aValue: Boolean); virtual;
function GetTIPOValue: String; virtual;
function GetTIPOIsNull: Boolean; virtual;
function GetOldTIPOValue: String; virtual;
function GetOldTIPOIsNull: Boolean; virtual;
procedure SetTIPOValue(const aValue: String); virtual;
procedure SetTIPOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -590,6 +624,10 @@ type
property ID_PAGOIsNull : Boolean read GetID_PAGOIsNull write SetID_PAGOIsNull; property ID_PAGOIsNull : Boolean read GetID_PAGOIsNull write SetID_PAGOIsNull;
property OldID_PAGO : Integer read GetOldID_PAGOValue; property OldID_PAGO : Integer read GetOldID_PAGOValue;
property OldID_PAGOIsNull : Boolean read GetOldID_PAGOIsNull; property OldID_PAGOIsNull : Boolean read GetOldID_PAGOIsNull;
property TIPO : String read GetTIPOValue write SetTIPOValue;
property TIPOIsNull : Boolean read GetTIPOIsNull write SetTIPOIsNull;
property OldTIPO : String read GetOldTIPOValue;
property OldTIPOIsNull : Boolean read GetOldTIPOIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -599,7 +637,7 @@ type
{ ISubCuentasDelta } { ISubCuentasDelta }
ISubCuentasDelta = interface(ISubCuentas) ISubCuentasDelta = interface(ISubCuentas)
['{FC32F9F6-0BC4-4BDC-8307-A47786D2E601}'] ['{6E660749-3293-4E06-96AB-A11049C7C342}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREF_SUBCUENTAValue : String; function GetOldREF_SUBCUENTAValue : String;
@ -753,7 +791,7 @@ type
{ ICuentasDelta } { ICuentasDelta }
ICuentasDelta = interface(ICuentas) ICuentasDelta = interface(ICuentas)
['{F030EAB1-8B4B-4E20-B8D9-BD41747561BC}'] ['{018CF9CE-E675-40D9-A9E4-F8575423D2DB}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREF_CUENTAValue : String; function GetOldREF_CUENTAValue : String;
@ -895,7 +933,7 @@ type
{ ICuentasEspecialesDelta } { ICuentasEspecialesDelta }
ICuentasEspecialesDelta = interface(ICuentasEspeciales) ICuentasEspecialesDelta = interface(ICuentasEspeciales)
['{BDC3E113-F48D-459C-9208-C3502377511B}'] ['{6C17A277-C23B-45F2-9815-F5B231A52442}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -953,7 +991,7 @@ type
{ IEpigrafesDelta } { IEpigrafesDelta }
IEpigrafesDelta = interface(IEpigrafes) IEpigrafesDelta = interface(IEpigrafes)
['{5099CA22-0F27-46FD-8B3A-C0C518E73AD7}'] ['{7164D494-BF70-459F-A6D1-71A368ACB6D6}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREF_EPIGRAFEValue : String; function GetOldREF_EPIGRAFEValue : String;
@ -1047,7 +1085,7 @@ type
{ IBalancesDelta } { IBalancesDelta }
IBalancesDelta = interface(IBalances) IBalancesDelta = interface(IBalances)
['{348A53C4-FD53-4F33-9FC7-61369195ADEC}'] ['{B7E31CED-2229-4BED-8AA5-F00D8642478B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREF_BALANCEValue : String; function GetOldREF_BALANCEValue : String;
@ -1175,6 +1213,74 @@ type
end; end;
{ IDarMaxRefSubCuentaCliDelta }
IDarMaxRefSubCuentaCliDelta = interface(IDarMaxRefSubCuentaCli)
['{B3246BC2-0498-4F96-B2E1-939CD9179F02}']
{ Property getters and setters }
function GetOldMAXValue : Integer;
{ Properties }
property OldMAX : Integer read GetOldMAXValue;
end;
{ TDarMaxRefSubCuentaCliBusinessProcessorRules }
TDarMaxRefSubCuentaCliBusinessProcessorRules = class(TDABusinessProcessorRules, IDarMaxRefSubCuentaCli, IDarMaxRefSubCuentaCliDelta)
private
protected
{ Property getters and setters }
function GetMAXValue: Integer; virtual;
function GetMAXIsNull: Boolean; virtual;
function GetOldMAXValue: Integer; virtual;
function GetOldMAXIsNull: Boolean; virtual;
procedure SetMAXValue(const aValue: Integer); virtual;
procedure SetMAXIsNull(const aValue: Boolean); virtual;
{ Properties }
property MAX : Integer read GetMAXValue write SetMAXValue;
property MAXIsNull : Boolean read GetMAXIsNull write SetMAXIsNull;
property OldMAX : Integer read GetOldMAXValue;
property OldMAXIsNull : Boolean read GetOldMAXIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IDarNumOrdenAsientoDelta }
IDarNumOrdenAsientoDelta = interface(IDarNumOrdenAsiento)
['{1751D5F8-1A96-4208-BFE1-074E99A36D4F}']
{ Property getters and setters }
function GetOldNUM_ORDENValue : Int64;
{ Properties }
property OldNUM_ORDEN : Int64 read GetOldNUM_ORDENValue;
end;
{ TDarNumOrdenAsientoBusinessProcessorRules }
TDarNumOrdenAsientoBusinessProcessorRules = class(TDABusinessProcessorRules, IDarNumOrdenAsiento, IDarNumOrdenAsientoDelta)
private
protected
{ Property getters and setters }
function GetNUM_ORDENValue: Int64; virtual;
function GetNUM_ORDENIsNull: Boolean; virtual;
function GetOldNUM_ORDENValue: Int64; virtual;
function GetOldNUM_ORDENIsNull: Boolean; virtual;
procedure SetNUM_ORDENValue(const aValue: Int64); virtual;
procedure SetNUM_ORDENIsNull(const aValue: Boolean); virtual;
{ Properties }
property NUM_ORDEN : Int64 read GetNUM_ORDENValue write SetNUM_ORDENValue;
property NUM_ORDENIsNull : Boolean read GetNUM_ORDENIsNull write SetNUM_ORDENIsNull;
property OldNUM_ORDEN : Int64 read GetOldNUM_ORDENValue;
property OldNUM_ORDENIsNull : Boolean read GetOldNUM_ORDENIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
implementation implementation
uses uses
@ -1266,46 +1372,46 @@ begin
end; end;
{ TDarMaxRefSubCuentaBusinessProcessorRules } { TDarMaxRefSubCuentaProvBusinessProcessorRules }
constructor TDarMaxRefSubCuentaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TDarMaxRefSubCuentaProvBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin begin
inherited; inherited;
end; end;
destructor TDarMaxRefSubCuentaBusinessProcessorRules.Destroy; destructor TDarMaxRefSubCuentaProvBusinessProcessorRules.Destroy;
begin begin
inherited; inherited;
end; end;
function TDarMaxRefSubCuentaBusinessProcessorRules.GetMAXValue: Integer; function TDarMaxRefSubCuentaProvBusinessProcessorRules.GetMAXValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaMAX]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaProvMAX];
end; end;
function TDarMaxRefSubCuentaBusinessProcessorRules.GetMAXIsNull: Boolean; function TDarMaxRefSubCuentaProvBusinessProcessorRules.GetMAXIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaMAX]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaProvMAX]);
end; end;
function TDarMaxRefSubCuentaBusinessProcessorRules.GetOldMAXValue: Integer; function TDarMaxRefSubCuentaProvBusinessProcessorRules.GetOldMAXValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarMaxRefSubCuentaMAX]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarMaxRefSubCuentaProvMAX];
end; end;
function TDarMaxRefSubCuentaBusinessProcessorRules.GetOldMAXIsNull: Boolean; function TDarMaxRefSubCuentaProvBusinessProcessorRules.GetOldMAXIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DarMaxRefSubCuentaMAX]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DarMaxRefSubCuentaProvMAX]);
end; end;
procedure TDarMaxRefSubCuentaBusinessProcessorRules.SetMAXValue(const aValue: Integer); procedure TDarMaxRefSubCuentaProvBusinessProcessorRules.SetMAXValue(const aValue: Integer);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaMAX] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaProvMAX] := aValue;
end; end;
procedure TDarMaxRefSubCuentaBusinessProcessorRules.SetMAXIsNull(const aValue: Boolean); procedure TDarMaxRefSubCuentaProvBusinessProcessorRules.SetMAXIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaMAX] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaProvMAX] := Null;
end; end;
@ -1487,6 +1593,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_PAGO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_PAGO] := Null;
end; end;
function TDiarioBusinessProcessorRules.GetTIPOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioTIPO];
end;
function TDiarioBusinessProcessorRules.GetTIPOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioTIPO]);
end;
function TDiarioBusinessProcessorRules.GetOldTIPOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioTIPO];
end;
function TDiarioBusinessProcessorRules.GetOldTIPOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioTIPO]);
end;
procedure TDiarioBusinessProcessorRules.SetTIPOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioTIPO] := aValue;
end;
procedure TDiarioBusinessProcessorRules.SetTIPOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioTIPO] := Null;
end;
function TDiarioBusinessProcessorRules.GetORDEN_ASIENTOValue: Integer; function TDiarioBusinessProcessorRules.GetORDEN_ASIENTOValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioORDEN_ASIENTO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioORDEN_ASIENTO];
@ -1828,6 +1965,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioPUNTEADO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioPUNTEADO] := Null;
end; end;
function TDiarioBusinessProcessorRules.GetSALDOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioSALDO];
end;
function TDiarioBusinessProcessorRules.GetSALDOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioSALDO]);
end;
function TDiarioBusinessProcessorRules.GetOldSALDOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioSALDO];
end;
function TDiarioBusinessProcessorRules.GetOldSALDOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioSALDO]);
end;
procedure TDiarioBusinessProcessorRules.SetSALDOValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioSALDO] := aValue;
end;
procedure TDiarioBusinessProcessorRules.SetSALDOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioSALDO] := Null;
end;
{ TApuntesBusinessProcessorRules } { TApuntesBusinessProcessorRules }
constructor TApuntesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TApuntesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -2348,6 +2516,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_PAGO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_PAGO] := Null;
end; end;
function TAsientosBusinessProcessorRules.GetTIPOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosTIPO];
end;
function TAsientosBusinessProcessorRules.GetTIPOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosTIPO]);
end;
function TAsientosBusinessProcessorRules.GetOldTIPOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosTIPO];
end;
function TAsientosBusinessProcessorRules.GetOldTIPOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosTIPO]);
end;
procedure TAsientosBusinessProcessorRules.SetTIPOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosTIPO] := aValue;
end;
procedure TAsientosBusinessProcessorRules.SetTIPOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosTIPO] := Null;
end;
{ TSubCuentasBusinessProcessorRules } { TSubCuentasBusinessProcessorRules }
constructor TSubCuentasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TSubCuentasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -3618,10 +3817,96 @@ begin
end; end;
{ TDarMaxRefSubCuentaCliBusinessProcessorRules }
constructor TDarMaxRefSubCuentaCliBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TDarMaxRefSubCuentaCliBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TDarMaxRefSubCuentaCliBusinessProcessorRules.GetMAXValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaCliMAX];
end;
function TDarMaxRefSubCuentaCliBusinessProcessorRules.GetMAXIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaCliMAX]);
end;
function TDarMaxRefSubCuentaCliBusinessProcessorRules.GetOldMAXValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarMaxRefSubCuentaCliMAX];
end;
function TDarMaxRefSubCuentaCliBusinessProcessorRules.GetOldMAXIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DarMaxRefSubCuentaCliMAX]);
end;
procedure TDarMaxRefSubCuentaCliBusinessProcessorRules.SetMAXValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaCliMAX] := aValue;
end;
procedure TDarMaxRefSubCuentaCliBusinessProcessorRules.SetMAXIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaCliMAX] := Null;
end;
{ TDarNumOrdenAsientoBusinessProcessorRules }
constructor TDarNumOrdenAsientoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TDarNumOrdenAsientoBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TDarNumOrdenAsientoBusinessProcessorRules.GetNUM_ORDENValue: Int64;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarNumOrdenAsientoNUM_ORDEN];
end;
function TDarNumOrdenAsientoBusinessProcessorRules.GetNUM_ORDENIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DarNumOrdenAsientoNUM_ORDEN]);
end;
function TDarNumOrdenAsientoBusinessProcessorRules.GetOldNUM_ORDENValue: Int64;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarNumOrdenAsientoNUM_ORDEN];
end;
function TDarNumOrdenAsientoBusinessProcessorRules.GetOldNUM_ORDENIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DarNumOrdenAsientoNUM_ORDEN]);
end;
procedure TDarNumOrdenAsientoBusinessProcessorRules.SetNUM_ORDENValue(const aValue: Int64);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DarNumOrdenAsientoNUM_ORDEN] := aValue;
end;
procedure TDarNumOrdenAsientoBusinessProcessorRules.SetNUM_ORDENIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DarNumOrdenAsientoNUM_ORDEN] := Null;
end;
initialization initialization
RegisterBusinessProcessorRules(RID_DarIDCuentaDelta, TDarIDCuentaBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DarIDCuentaDelta, TDarIDCuentaBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_DarCodigoContableTiendaDelta, TDarCodigoContableTiendaBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DarCodigoContableTiendaDelta, TDarCodigoContableTiendaBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_DarMaxRefSubCuentaDelta, TDarMaxRefSubCuentaBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DarMaxRefSubCuentaProvDelta, TDarMaxRefSubCuentaProvBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ExisteSubCuentaDelta, TExisteSubCuentaBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ExisteSubCuentaDelta, TExisteSubCuentaBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_DiarioDelta, TDiarioBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DiarioDelta, TDiarioBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ApuntesDelta, TApuntesBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ApuntesDelta, TApuntesBusinessProcessorRules);
@ -3631,5 +3916,7 @@ initialization
RegisterBusinessProcessorRules(RID_CuentasEspecialesDelta, TCuentasEspecialesBusinessProcessorRules); RegisterBusinessProcessorRules(RID_CuentasEspecialesDelta, TCuentasEspecialesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_EpigrafesDelta, TEpigrafesBusinessProcessorRules); RegisterBusinessProcessorRules(RID_EpigrafesDelta, TEpigrafesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_BalancesDelta, TBalancesBusinessProcessorRules); RegisterBusinessProcessorRules(RID_BalancesDelta, TBalancesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_DarMaxRefSubCuentaCliDelta, TDarMaxRefSubCuentaCliBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_DarNumOrdenAsientoDelta, TDarNumOrdenAsientoBusinessProcessorRules);
end. end.

46
Source/Modulos/Contabilidad/Model/uBizAsientosServer.pas Normal file
View File

@ -0,0 +1,46 @@
unit uBizAsientosServer;
interface
uses
uDAInterfaces, uDADelta, uDABusinessProcessor,
schContabilidadServer_Intf;
const
BIZ_SERVER_ASIENTOS = 'Server.Asientos';
type
TBizAsientosServer = class(TAsientosBusinessProcessorRules)
protected
procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override;
end;
implementation
uses
Variants, uDAClasses, uBusinessUtils, uROClasses, uDataModuleServer,
srvContabilidad_Impl;
{ TBizAsientosServer }
procedure TBizAsientosServer.BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta);
begin
case Sender.CurrentChange.ChangeType of
ctInsert, ctUpdate: begin
//Si el orden del asiento no ha sido asignado le asignamos uno nosotros
if (ORDENIsNull) or (ORDEN = 0) then
begin
with TsrvContabilidad.Create(Nil) do
begin
ORDEN := DarNumOrden;
Free;
end;
end;
end;
end;
end;
initialization
RegisterBusinessProcessorRules(BIZ_SERVER_ASIENTOS, TBizAsientosServer);
end.

127
Source/Modulos/Contabilidad/Model/uBizDiario.pas
View File

@ -7,23 +7,150 @@ uses
const const
BIZ_CLIENT_Diario = 'Client.Diario'; BIZ_CLIENT_Diario = 'Client.Diario';
BIZ_CLIENT_EXTRACTOMOVIMIENTO = 'Client.ExtractoMovimiento';
type type
IBizDiario = interface(IDiario) IBizDiario = interface(IDiario)
['{E2924908-0B5A-43DD-B03E-672F592FA19B}'] ['{E2924908-0B5A-43DD-B03E-672F592FA19B}']
end; end;
IBizExtractoMovimiento = interface(IBizDiario)
['{3875CC17-B845-430F-B537-4733C26956D0}']
end;
TBizDiario = class(TDiarioDataTableRules, IBizDiario) TBizDiario = class(TDiarioDataTableRules, IBizDiario)
end; end;
TBizExtractoMovimiento = class(TBizDiario, IBizExtractoMovimiento)
private
FSumaAcumulada: Currency;
procedure recalcular(const DesdeFinal: Boolean);
procedure CalcularSaldo;
protected
procedure AfterDelete(Sender: TDADataTable); override;
procedure AfterPost(Sender: TDADataTable); override;
procedure AfterOpen(Sender: TDADataTable); override;
public
constructor Create(aDataTable: TDADataTable); override;
end;
implementation implementation
{ TBizDiario } { TBizDiario }
{ TBizExtractoMovimiento }
procedure TBizExtractoMovimiento.AfterDelete(Sender: TDADataTable);
begin
recalcular(False);
end;
procedure TBizExtractoMovimiento.AfterOpen(Sender: TDADataTable);
begin
recalcular(True);
end;
procedure TBizExtractoMovimiento.AfterPost(Sender: TDADataTable);
var
i, x: Integer;
begin
//Comprobamos los cambios para solo recalcular en el caso de modificar el importe
//y añadir un asiento nuevo
{ for i:=0 to DataTable.Delta.count-1 do
if (DataTable.Delta.Changes[i].ChangeType = ctInsert) then
begin
//Este evento salta dos veces, cuando se hace el post en el cliente
//y cuando se hace el applyupdates. En el primer caso todavía no se
//ha asignado el codigo, de esta forma omitiremos el recalculo y
//optimizamos el número de llamadas al mismo
if CODIGO > 0 then recalcular(False);
end
else if (DataTable.Delta.Changes[i].ChangeType = ctUpdate) then
if (DataTable.Delta.Changes[i].OldValueByName[fld_AsientosIMPORTE] <> DataTable.Delta.Changes[i].NewValueByName[fld_AsientosIMPORTE]) then
recalcular(False);
}
end;
procedure TBizExtractoMovimiento.CalcularSaldo;
var
varImporteAnt: double;
varImportePos: double;
ABookmark: Pointer;
begin
DataTable.DisableControls;
DataTable.DisableEventHandlers;
try
ABookmark := DataTable.GetBookMark;
DataTable.Next;
//Comprobamos si calculamos desde el principio o desde un asiento intermedio
if DataTable.EOF
then
varImportePos:= FSumaAcumulada
else
begin
varImportePos:= SALDO;
DataTable.Prior;
end;
while not Self.DataTable.BOF do
begin
DataTable.edit;
SALDO := varImportePos + DEBE - HABER;
varImportePos := SALDO;
DataTable.Post;
DataTable.Prior;
end;
finally
DataTable.GotoBookmark(Abookmark);
DataTable.FreeBookmark(ABookmark);
DataTable.EnableControls;
DataTable.EnableEventHandlers;
end;
end;
constructor TBizExtractoMovimiento.Create(aDataTable: TDADataTable);
begin
inherited;
FSumaAcumulada := 0;
end;
procedure TBizExtractoMovimiento.recalcular(const DesdeFinal: Boolean);
begin
if DesdeFinal then
begin
FSumaAcumulada := 0; //Inicializamos la suma acumulada
DataTable.Last;
end
else
begin
{
DataTable.Sort([fld_DiarioFECHA_ASIENTO, fld_DiarioORDEN_ASIENTO],[sdDescending, sdDescending]);
//En el caso de ser un CIERRE NUEVO el asiento introducido punteamos "localmente"
//todos los asientos anteriores al cierre y luego mandamos al servidor puntear en BD
if TIPOASIENTO = CTE_CIERRE then
begin
puntearAsientos(CTE_PUNTEADO);
dmAsientos.AsignarPunteado(Cuenta.CODIGO, FECHAASIENTO, Cuenta.PENULTIMOCIERRE, CTE_PUNTEADO);
end;
}
end;
CalcularSaldo;
end;
initialization initialization
RegisterDataTableRules(BIZ_CLIENT_Diario, TBizDiario); RegisterDataTableRules(BIZ_CLIENT_Diario, TBizDiario);
RegisterDataTableRules(BIZ_CLIENT_EXTRACTOMOVIMIENTO, TBizExtractoMovimiento);
finalization finalization
end. end.

90
Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.dfm
View File

@ -574,6 +574,33 @@ object PluginContabilidad: TPluginContabilidad
426082} 426082}
Name = 'PngImage6' Name = 'PngImage6'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F80000000970485973000017120000171201679FD252000002724944415478DA
63FCFFFF3F032D01E3F0B060E186A3D15C9C5C4BA869F0B7EFDF6212026D9682
2D58BDF3FCFF507743A235FFFBF79FE1CFDF7F0C7FFEFC85D240FC1799FD8F21
24B596E1FCCEE98C2816006986956B3633AC995D4790BD685205C3D64357C1EC
691D850C07CFDC01B3BBEAB219F69CBCC93063CE124C0B42529B18EE3D7EC170
6EC734ACEC33DBA63284A53783D907D6F43124157681D95B16B533E4554F04B3
57CC68643870E636760B280D1698FC910BF7B05B4049B09CBDF608CCAE294A66
3875F521F141746ACB148688CC16307BDFAA5E8694E26E307BD382368682DA49
60F6B269F50C35ED33C1EC593D150CE76E3C212E88E0C1000F82BF68C1815DFE
D29D67F82D8005C99229950C9B0F5C818B7FFEF28581675331C311C53486474F
5E307454A5325CBEFD0CAC36ECD716B8BA0FBE13F05B000B9E436BFB19B61FB9
C670F9DA2DB0B8CE855E06DF663F86CDB59B183A5E9A00E3A496E15AAB3FC3ED
375F188AA64731F4652E63C89F1CCAB0AD713B581EAB05F8826561B215838B81
3A835EBA31D81298C12000337CFADCA70C71215C0C07279C60085F741AD58259
6B8E11CCC5AFE7A7C02D81196CEAFA8BC1CA2F1A6EF89C9A3D0C11A5460C67E7
DF42944513672C25BA2C0A663E00B644214496814F588CE1EF9FDF1886FFFEF9
038CC116303232925C98B57869FE8759C2C6C1C9F0EBC777B0E1A1857A0C7F40
86FFFAC1F08B120B4060659CE97F503C808288FFB52E83A0233B8AE114F900E6
8BC4067B86C71B5E30ECB970131C6C1C26DFE186536C01CC1258B0AC9F768BC1
2D560C6E38552C8059E2932287E27210FEF7F7CF09AA5800B3E4FEF3EB0CB119
FA70C3AF5FBC1B33F42B7D0083E090B9C7FB8FD40000000049454E44AE426082}
Name = 'PngImage7'
Background = clWindow
end> end>
Left = 232 Left = 232
Top = 16 Top = 16
@ -625,6 +652,13 @@ object PluginContabilidad: TPluginContabilidad
OnExecute = actDiarioExecute OnExecute = actDiarioExecute
OnUpdate = actDiarioUpdate OnUpdate = actDiarioUpdate
end end
object actCajasBancos: TAction
Category = 'Contabilidad'
Caption = 'Cajas/Bancos'
ImageIndex = 7
OnExecute = actCajasBancosExecute
OnUpdate = actCajasBancosUpdate
end
end end
object MainMenu: TMainMenu object MainMenu: TMainMenu
Images = LargeImages Images = LargeImages
@ -653,6 +687,9 @@ object PluginContabilidad: TPluginContabilidad
Action = actDiario Action = actDiario
SubMenuImages = SmallImages SubMenuImages = SmallImages
end end
object CajasBancos1: TMenuItem
Action = actCajasBancos
end
end end
object Contabilidad2: TMenuItem object Contabilidad2: TMenuItem
Caption = 'Empresa' Caption = 'Empresa'
@ -1209,6 +1246,26 @@ object PluginContabilidad: TPluginContabilidad
454E44AE426082} 454E44AE426082}
Name = 'PngImage6' Name = 'PngImage6'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD2520000017F4944415478DA
639CBC68FB7F0632416E9C272323C8809C580F92359B79A5309CDE3E17614048
6A1383839D19C38143A708D2F171E10CCDEDDDA8064C59BC8381585A5E4111D3
00980BC4F6D431BC7269C2B019240E039C298B19EA5B27329CDF391DD5052045
BECD7E0C9B6B37810D0189AF8A3763B8FDE60B43D1F42886BECC650CF9934319
B6356E67E87869826C802BC3E6C377182E750432B818A833E8A51B830D816904
0198E6E9739F32C48570311C9C7082217CD1698801F3966E823B2F98F900DC10
984653D75F0C567ED170CD736AF63044941A319C9D7F8B81115B14B57869FE07
19A21022CBC0272CC6F0F7CF6F0CCDBF7FFE0063465CF18C6C081B0727C3AF1F
DFC19A430BF518FE8034FFFAC1F00B9F0120B032CEF43F281C405EE07FADCB20
E8C88EA2F937210340AE486CB06778BCE105C39E0B37C161C361F21DAE99A001
304360CE5E3FED16835BAC185C335106C00CF1499143B11984FFFDFD73822803
6086DC7F7E9D2136431FAEF9FAC5BB318CFFFF939D9BC10000DACE18AE72AF9A
820000000049454E44AE426082}
Name = 'PngImage7'
Background = clWindow
end> end>
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
Left = 308 Left = 308
@ -1684,6 +1741,39 @@ object PluginContabilidad: TPluginContabilidad
FD53D0090000000049454E44AE426082} FD53D0090000000049454E44AE426082}
Name = 'PngImage5' Name = 'PngImage5'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
940000000970485973000017120000171201679FD252000003134944415478DA
E5956B48536118C79F1194F9A10B85DF8A3E4426A4CD5448112F61569A83E16D
792927662698150999064A7EB02BABC09918A6A861410EB3CB60DE426D5E3773
B8CD35CDC49CCCA80FE96CEE6C9DF3E279DD6A1D375B7EA8071E9EF7FF9EF7BC
3FDEE7CF790FCB62B1C05A06EBFF00568BBA92DD37BAD7FE0DC0BC613E258D1B
5C471F0C019F8A6596F823BE4E6F66222C401066B29A514563B3D5984C6E7A01
C8C442965D2059D1A4FEF317C84E3AC4A83313C3A15122C7FA44742048A42AAC
A3C37C41DCAD84F2CA5A6620B558353A06F78A3218F5CD2B7C686A7B8775610E
0F3AFA35589F4BE7426BAF9A195856DF8A16774A0761F07519A37EF34C0035A2
4EAC9B6B4A4124E9C7FAB1B0183A0634CC40A620AD01C2BCEC978D6FF4183D5F
F6B54BAE5DB9A5BFF3EC744218885A86B04E8C3A08AD3D6AACA342D9D0A798C0
3AD8CF0BA4C3E3ABF7F07A7E1A34B70F337A26537EC49A9F700CFA462656EFA1
239EB5BC1DC6FAC1AD7C90A9261DF7D019CF164D84DD350AEDA79581D6BEF163
43501B7F0EDDCC2C4CCFE841A79F85BC2C1E283453F81DFF7DBB3158F941E718
90F6A1E4522A88BB46ECC2D80A013C82A370A3301B9463D3F89DE0F10ABCF66B
8C801948B5A7A2A10DFBD0D2701BDF1E73730604A292DA34E61A079E5F6D823D
F922E81E54C176F165D0CC7E838BC224B873B61E72EFC7C3CBE257503AE36F1F
C88D60AF782F12D43746CE3DC90E8108B627F89CF143501A44050D133E9C8293
71EED0219052CFF716BC1851DB0039E13E50DDD4E3F0C5ADAFCAC0501A1470D8
08419C640CAB2C94002FEF000C548D4242752F0B03A9DFD3DDF23AA77F4FB1EB
DA117457DC0ED8B4CD0308D3E22FB0C5EF0B28BD39CDCB40168BE52C0B454994
972759543474BDDB46302E18102CFE820F98289871018C640DE0B5FF39D00A2A
25730BD5D2CD7A6FD81ABEC106469D30E894D435C025682EBF28543029D28144
AE466D76F337601895A19972D70197A016BA8D8D65A31099EA81615446E4A85C
0E447E1ECFD86973322ACD84491A79FE7DA04B81D6D0F16925A466EDC730E590
3625B7CAA2C5C0B58C7F1FF803965895F6A0F0F81E0000000049454E44AE4260
82}
Name = 'PngImage6'
Background = clWindow
end> end>
Left = 232 Left = 232
Top = 80 Top = 80

21
Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.pas
View File

@ -32,6 +32,8 @@ type
Subcuentas1: TMenuItem; Subcuentas1: TMenuItem;
actDiario: TAction; actDiario: TAction;
Asientos1: TMenuItem; Asientos1: TMenuItem;
actCajasBancos: TAction;
CajasBancos1: TMenuItem;
procedure actEpigrafesExecute(Sender: TObject); procedure actEpigrafesExecute(Sender: TObject);
procedure actBalancesExecute(Sender: TObject); procedure actBalancesExecute(Sender: TObject);
procedure actCuentasEspecialesExecute(Sender: TObject); procedure actCuentasEspecialesExecute(Sender: TObject);
@ -44,6 +46,8 @@ type
procedure actCuentasEspecialesUpdate(Sender: TObject); procedure actCuentasEspecialesUpdate(Sender: TObject);
procedure actSubCuentasUpdate(Sender: TObject); procedure actSubCuentasUpdate(Sender: TObject);
procedure actDiarioUpdate(Sender: TObject); procedure actDiarioUpdate(Sender: TObject);
procedure actCajasBancosExecute(Sender: TObject);
procedure actCajasBancosUpdate(Sender: TObject);
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -75,7 +79,7 @@ var
ADiario : IBizDiario; ADiario : IBizDiario;
begin begin
AAsientosController := TAsientosController.Create; AAsientosController := TAsientosController.Create;
ADiario := (AAsientosController.BuscarDiario as IBizDiario); ADiario := (AAsientosController.BuscarAsientos as IBizDiario);
AAsientosController.VerDiario(ADiario); AAsientosController.VerDiario(ADiario);
end; end;
@ -99,6 +103,21 @@ begin
(Sender as TAction).Enabled := Assigned(AppFactuGES.EjercicioActivo); (Sender as TAction).Enabled := Assigned(AppFactuGES.EjercicioActivo);
end; end;
procedure TPluginContabilidad.actCajasBancosExecute(Sender: TObject);
var
AAsientosController : IAsientosController;
// ADiario : IBizDiario;
begin
AAsientosController := TAsientosController.Create;
// ADiario := (AAsientosController.BuscarAsientos as IBizDiario);
AAsientosController.VerExtracto; //(ADiario);
end;
procedure TPluginContabilidad.actCajasBancosUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled := Assigned(AppFactuGES.EjercicioActivo);
end;
procedure TPluginContabilidad.actCuentasEspecialesExecute(Sender: TObject); procedure TPluginContabilidad.actCuentasEspecialesExecute(Sender: TObject);
var var
ACuentasEspecialesController : ICuentasEspecialesController; ACuentasEspecialesController : ICuentasEspecialesController;

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

@ -615,6 +615,10 @@ object srvContabilidad: TsrvContabilidad
item item
DatasetField = 'SUBCUENTA' DatasetField = 'SUBCUENTA'
TableField = 'SUBCUENTA' TableField = 'SUBCUENTA'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end> end>
end> end>
Name = 'Diario' Name = 'Diario'
@ -640,6 +644,11 @@ object srvContabilidad: TsrvContabilidad
DataType = datInteger DataType = datInteger
DictionaryEntry = 'Diario_ID_PAGO' DictionaryEntry = 'Diario_ID_PAGO'
end end
item
Name = 'TIPO'
DataType = datString
Size = 1
end
item item
Name = 'ORDEN_ASIENTO' Name = 'ORDEN_ASIENTO'
DataType = datInteger DataType = datInteger
@ -698,6 +707,14 @@ object srvContabilidad: TsrvContabilidad
Name = 'PUNTEADO' Name = 'PUNTEADO'
DataType = datSmallInt DataType = datSmallInt
DictionaryEntry = 'Diario_PUNTEADO' DictionaryEntry = 'Diario_PUNTEADO'
end
item
Name = 'SALDO'
DataType = datCurrency
LogChanges = False
DisplayLabel = 'Saldo'
Alignment = taRightJustify
Calculated = True
end> end>
end end
item item
@ -859,6 +876,10 @@ object srvContabilidad: TsrvContabilidad
item item
DatasetField = 'ID_PAGO' DatasetField = 'ID_PAGO'
TableField = 'ID_PAGO' TableField = 'ID_PAGO'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end> end>
end> end>
Name = 'Asientos' Name = 'Asientos'
@ -888,6 +909,11 @@ object srvContabilidad: TsrvContabilidad
item item
Name = 'ID_PAGO' Name = 'ID_PAGO'
DataType = datInteger DataType = datInteger
end
item
Name = 'TIPO'
DataType = datString
Size = 1
end> end>
end end
item item
@ -1385,6 +1411,26 @@ object srvContabilidad: TsrvContabilidad
Name = 'MAX' Name = 'MAX'
DataType = datInteger DataType = datInteger
end> end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
SQL = 'select coalesce(max(orden),0)+1 as NUM_ORDEN'#10'from cont_asientos'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'NUM_ORDEN'
TableField = 'NUM_ORDEN'
end>
end>
Name = 'DarNumOrdenAsiento'
Fields = <
item
Name = 'NUM_ORDEN'
DataType = datLargeInt
end>
end> end>
JoinDataTables = <> JoinDataTables = <>
UnionDataTables = <> UnionDataTables = <>
@ -1757,6 +1803,10 @@ object srvContabilidad: TsrvContabilidad
item item
Name = 'ORDEN' Name = 'ORDEN'
Value = '' Value = ''
end
item
Name = 'TIPO'
Value = ''
end> end>
Statements = < Statements = <
item item
@ -1765,8 +1815,8 @@ object srvContabilidad: TsrvContabilidad
Default = True Default = True
TargetTable = 'CONT_ASIENTOS' TargetTable = 'CONT_ASIENTOS'
SQL = SQL =
'INSERT'#10' INTO CONT_ASIENTOS'#10' (ID, FECHA_ASIENTO, ORDEN)'#10' VAL' + 'INSERT'#10' INTO CONT_ASIENTOS'#10' (ID, FECHA_ASIENTO, ORDEN, TIPO)' +
'UES'#10' (:ID, :FECHA_ASIENTO, :ORDEN)'#10 #10' VALUES'#10' (:ID, :FECHA_ASIENTO, :ORDEN, :TIPO)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1800,6 +1850,10 @@ object srvContabilidad: TsrvContabilidad
Name = 'ORDEN' Name = 'ORDEN'
Value = '' Value = ''
end end
item
Name = 'TIPO'
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -1812,7 +1866,8 @@ object srvContabilidad: TsrvContabilidad
TargetTable = 'CONT_ASIENTOS' TargetTable = 'CONT_ASIENTOS'
SQL = SQL =
'UPDATE CONT_ASIENTOS'#10' SET '#10' FECHA_ASIENTO = :FECHA_ASIENTO, ' + 'UPDATE CONT_ASIENTOS'#10' SET '#10' FECHA_ASIENTO = :FECHA_ASIENTO, ' +
#10' ORDEN = :ORDEN'#10' WHERE'#10' (ID = :OLD_ID)' #10' ORDEN = :ORDEN,'#10' TIPO = :TIPO'#10' WHERE'#10' (ID = :OLD_ID)' +
#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

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

@ -44,6 +44,7 @@ type
function TieneCuentaAsociada(const ID_CONTACTO: Integer; const ID_EMPRESA: Integer): Boolean; function TieneCuentaAsociada(const ID_CONTACTO: Integer; const ID_EMPRESA: Integer): Boolean;
function AnadirSubCuentaCliente(const ID_CONTACTO: Integer; const ID_TIENDA: Integer; const ID_EMPRESA: Integer; const CLIENTE: String): Boolean; function AnadirSubCuentaCliente(const ID_CONTACTO: Integer; const ID_TIENDA: Integer; const ID_EMPRESA: Integer; const CLIENTE: String): Boolean;
function AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ES_ACREEDOR: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean; function AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ES_ACREEDOR: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean;
function DarNumOrden : Integer;
end; end;
implementation implementation
@ -51,7 +52,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
{Generated:} FactuGES_Invk, uROClasses, uDataModuleServer, {Generated:} FactuGES_Invk, uROClasses, uDataModuleServer,
uDatabaseUtils, srvEjercicios_Impl, Variants; uDatabaseUtils, srvEjercicios_Impl, Variants, uBizAsientosServer;
procedure Create_srvContabilidad(out anInstance : IUnknown); procedure Create_srvContabilidad(out anInstance : IUnknown);
begin begin
@ -240,6 +241,26 @@ end;
procedure TsrvContabilidad.DARemoteServiceCreate(Sender: TObject); procedure TsrvContabilidad.DARemoteServiceCreate(Sender: TObject);
begin begin
SessionManager := dmServer.SessionManager; SessionManager := dmServer.SessionManager;
bpAsientos.BusinessRulesID := BIZ_SERVER_ASIENTOS;
end;
function TsrvContabilidad.DarNumOrden: Integer;
var
AConn : IDAConnection;
dsData: IDADataset;
dsCommand: IDASQLCommand;
begin
AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
try
dsData := schContabilidad.NewDataset(AConn, 'DarNumOrdenAsiento');
dsData.Active := True;
Result := dsData.FieldValues[0];
finally
AConn.RollbackTransaction;
dsData := NIL;
end;
end; end;
procedure TsrvContabilidad.DataAbstractServiceBeforeAcquireConnection( procedure TsrvContabilidad.DataAbstractServiceBeforeAcquireConnection(

BIN
Source/Modulos/Contabilidad/Views/Contabilidad_view.dpk
View File

Binary file not shown.

40
Source/Modulos/Contabilidad/Views/Contabilidad_view.dproj
View File

@ -41,7 +41,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Contabilidad_view.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_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
@ -50,21 +50,47 @@
</DelphiCompile> </DelphiCompile>
<DCCReference Include="adortl.dcp" /> <DCCReference Include="adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" /> <DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="ccpackD11.dcp" />
<DCCReference Include="cfpack_d11.dcp" />
<DCCReference Include="Contabilidad_controller.dcp" /> <DCCReference Include="Contabilidad_controller.dcp" />
<DCCReference Include="Contabilidad_model.dcp" /> <DCCReference Include="Contabilidad_model.dcp" />
<DCCReference Include="cxDataD11.dcp" /> <DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" /> <DCCReference Include="cxEditorsD11.dcp" />
<DCCReference Include="cxExportD11.dcp" />
<DCCReference Include="cxExtEditorsD11.dcp" />
<DCCReference Include="cxGridD11.dcp" />
<DCCReference Include="cxIntlPrintSys3D11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" /> <DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="cxPageControlD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" /> <DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" /> <DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dclcxLibraryD11.dcp" />
<DCCReference Include="designide.dcp" />
<DCCReference Include="dsnap.dcp" /> <DCCReference Include="dsnap.dcp" />
<DCCReference Include="dxComnD11.dcp" /> <DCCReference Include="dxComnD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" /> <DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxLayoutControlD11.dcp" /> <DCCReference Include="dxLayoutControlD11.dcp" />
<DCCReference Include="dxPSCoreD11.dcp" />
<DCCReference Include="dxPScxCommonD11.dcp" />
<DCCReference Include="dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="dxPSLnksD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" /> <DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="GUIBase.dcp" /> <DCCReference Include="GUIBase.dcp" />
<DCCReference Include="GUISDK_D11.dcp" />
<DCCReference Include="Jcl.dcp" />
<DCCReference Include="JclVcl.dcp" />
<DCCReference Include="JvAppFrmD11R.dcp" />
<DCCReference Include="JvCoreD11R.dcp" />
<DCCReference Include="JvCtrlsD11R.dcp" />
<DCCReference Include="JvPageCompsD11R.dcp" />
<DCCReference Include="JvStdCtrlsD11R.dcp" />
<DCCReference Include="JvSystemD11R.dcp" />
<DCCReference Include="PngComponentsD10.dcp" />
<DCCReference Include="PNG_D10.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" /> <DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" /> <DCCReference Include="rtl.dcp" />
<DCCReference Include="tb2k_d10.dcp" />
<DCCReference Include="tbx_d10.dcp" />
<DCCReference Include="uContabilidadViewRegister.pas"> <DCCReference Include="uContabilidadViewRegister.pas">
<Form>frViewEpigrafes</Form> <Form>frViewEpigrafes</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
@ -133,6 +159,10 @@
<Form>fEditorEpigrafes</Form> <Form>fEditorEpigrafes</Form>
<DesignClass>TfEditorEjercicios</DesignClass> <DesignClass>TfEditorEjercicios</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorExtractoMovimientos.pas">
<Form>fEditorExtractoMovimientos</Form>
<DesignClass>TfEditorEjercicios</DesignClass>
</DCCReference>
<DCCReference Include="uEditorSubCuenta.pas"> <DCCReference Include="uEditorSubCuenta.pas">
<Form>fEditorSubCuenta</Form> <Form>fEditorSubCuenta</Form>
<DesignClass>TfEditorEjercicios</DesignClass> <DesignClass>TfEditorEjercicios</DesignClass>
@ -177,6 +207,10 @@
<Form>frViewEpigrafes</Form> <Form>frViewEpigrafes</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewExtractoMovimientos.pas">
<Form>frViewExtractoMovimientos</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewListaSubCuentas.pas"> <DCCReference Include="uViewListaSubCuentas.pas">
<Form>frViewListaSubcuentas</Form> <Form>frViewListaSubcuentas</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
@ -190,8 +224,12 @@
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" /> <DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" /> <DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" /> <DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclshlctrls.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="xmlrtl.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

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

@ -13,7 +13,7 @@ uses
uEditorEpigrafe, uEditorElegirEpigrafes, uEditorEpigrafes, uEditorEpigrafe, uEditorElegirEpigrafes, uEditorEpigrafes,
uEditorCuenta, uEditorCuentas, uEditorElegirCuentas, uEditorCuenta, uEditorCuentas, uEditorElegirCuentas,
uEditorSubCuenta, uEditorSubCuentas, uEditorElegirSubCuentas, uEditorSubCuenta, uEditorSubCuentas, uEditorElegirSubCuentas,
uEditorAsiento, uEditorDiario, uEditorApunte; uEditorAsiento, uEditorDiario, uEditorExtractoMovimientos, uEditorApunte;
procedure RegisterViews; procedure RegisterViews;
begin begin
@ -35,6 +35,7 @@ begin
EditorRegistry.RegisterClass(TfEditorAsiento, 'EditorAsiento'); EditorRegistry.RegisterClass(TfEditorAsiento, 'EditorAsiento');
EditorRegistry.RegisterClass(TfEditorDiario, 'EditorDiario'); EditorRegistry.RegisterClass(TfEditorDiario, 'EditorDiario');
EditorRegistry.RegisterClass(TfEditorApunte, 'EditorApunte'); EditorRegistry.RegisterClass(TfEditorApunte, 'EditorApunte');
EditorRegistry.RegisterClass(TfEditorExtractoMovimientos, 'EditorExtractoMovimientos');
end; end;
procedure UnregisterViews; procedure UnregisterViews;
@ -57,6 +58,7 @@ begin
EditorRegistry.UnRegisterClass(TfEditorDiario); EditorRegistry.UnRegisterClass(TfEditorDiario);
EditorRegistry.UnRegisterClass(TfEditorAsiento); EditorRegistry.UnRegisterClass(TfEditorAsiento);
EditorRegistry.UnRegisterClass(TfEditorApunte); EditorRegistry.UnRegisterClass(TfEditorApunte);
EditorRegistry.UnRegisterClass(TfEditorExtractoMovimientos);
end; end;
end. end.

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

@ -4,47 +4,48 @@ inherited fEditorAsiento: TfEditorAsiento
HorzScrollBar.Visible = False HorzScrollBar.Visible = False
VertScrollBar.Visible = False VertScrollBar.Visible = False
Caption = 'Ficha de asiento' Caption = 'Ficha de asiento'
ClientHeight = 497 ClientHeight = 595
ClientWidth = 850 ClientWidth = 869
Scaled = False Scaled = False
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 858 ExplicitWidth = 877
ExplicitHeight = 531 ExplicitHeight = 629
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 850 Width = 869
Caption = 'Asiento' Caption = 'Asiento'
ExplicitWidth = 850 ExplicitWidth = 869
inherited Image1: TImage inherited Image1: TImage
Left = 823 Left = 842
Picture.Data = { Picture.Data = {
0B546478504E47496D61676589504E470D0A1A0A0000000D4948445200000018 0B546478504E47496D61676589504E470D0A1A0A0000000D4948445200000018
000000180806000000E0773DF8000000017352474200AECE1CE9000000046741 000000180806000000E0773DF8000000017352474200AECE1CE9000000046741
4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000 4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
80E8000075300000EA6000003A98000017709CBA513C00000009704859730000 80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
17100000171001186111DB000001DD49444154484BBD96CB4E42311086F18DF4 17100000171001186111DB000001EF49444154484BBD96BD4B425118C6ED6F71
297C01972EDC68E2DBF804EEDCB831716F8C1B23BA6001410D12428020720D20 88A66888C646A10683860621021B6A686D082AC2A6868A3689C0AD4F8AA0C168
721147BFD13939A92D17459B344C7B3ADF3F336D39674D4412FFD24ECED232AF 28A2280C2A0A0D29314BF3AB34BBF951666F3D47DECBC5AEF971BB1D38DE97E3
5B20F3D66D6CEE3B516F1D2B3CD41AEDBE64F38F5100D8F5762FB85E05D60FBE F5F73CEF73CE551B88C8A0EB80809E5357B848072F8E8D03CB8AF394FE728229
443EE0899DAB4860EF74286E37128EA3F1AB4CA76FDFD6980F6B2301D80947C0 A28700C0B58C42E193DEDE3F289D79A39494A5A7649AA28F2F148A3E53209420
0DEBAE210A9B4CA6EAD81F8C74CC7CA82D250084A801E3D8E9BEA86D99F84466 DFDD23B598068B9BAB14805077FF84D0AA5403CEF700CE35E0F6D5437501C0A1
0AF84A0410308EEC07B66F1D734B9588289395CF120146A05AEFEA987984D90F 8CA156C339AFC339D770CEB5D71F2B2FF05B4CD5C402B8FB3A5C5E404B2CFCD9
B72D54221C2D72E080712C55DB6A5B26BE522D5D228080712C949B6AFFB84444 334FB0B688F2F982DC7E329591EBFB7052AEAF7C11B93EB90C541F11E0D9DC3B
6E9B4A945622C008DC179E146E99F8363D98411C8EA3459ECDD72457ACAB4026 49AF39023C9E90281C4B11E0FEE0135DDFC609F04BEF03C139E04767FECA02DC
575511CBC44A153F594181C170EC4D1D20601C53B765B5432522FBA040B73F94 2EE0CA6763616D9F967B5B69687C9ECC569B80F3BD58E759F614F126F3898073
56E7596ACD9E546A1DC9971A7294F93C458071BC4E1775CC3CC2EEA6DB7DD1BF 0046A797C4042013B0892B4E1B9CA39EEC6812EBB84ABE31F97DD507EDB75800
0AF726C7E1C54A4B01440B1C300297A982DA9689952A7EB2821910B92F758080 381EE9924518AC844F8D5829723A24447E08A0B54A5329C2E0ED19A370CE70DC
71BCB879503B5422BB2FDE0C280B91531AA227CAF3644E618011B031BF08BB9B 73B36B298AF077115AAE76B2089C42440D7EE5ECA68BCDCEA2403D432992F00C
6EF7C52B60602B0B9102064637011BF32C5E2E3B5DC112F16055FD5B06BC1376 8B58B0E6DDE921F79699CED74DE45A6CAF5F00A678831111F6A6147EE868D326
B70F57D215EE9E2204A207B6E037BFF0F498D230667516BB7D9E4F045FE493C2 00C721D780807347EC1CF03D7BB3360174A18C05356261F8CE5CA37601162975
8545EFDB059CF96CF9CBFE0E985A0C641EEE88260000000049454E44AE426082} 0EF8777447756F72E9C1807B6B8B41C4C2F0D93E83F17F7E93F5FC57F105674C
4774223319020000000049454E44AE426082}
ExplicitLeft = 607 ExplicitLeft = 607
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 850 Width = 869
ExplicitWidth = 850 ExplicitWidth = 869
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 330 ExplicitWidth = 330
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
@ -62,7 +63,7 @@ inherited fEditorAsiento: TfEditorAsiento
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
DockPos = 0 DockPos = 0
ExplicitWidth = 850 ExplicitWidth = 869
inherited TBXSubmenuItem4: TTBXSubmenuItem inherited TBXSubmenuItem4: TTBXSubmenuItem
inherited TBXItem8: TTBXItem inherited TBXItem8: TTBXItem
Visible = False Visible = False
@ -97,30 +98,30 @@ inherited fEditorAsiento: TfEditorAsiento
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 844 Width = 863
Height = 396 Height = 494
ExplicitLeft = 3 ExplicitLeft = 3
ExplicitTop = 79 ExplicitTop = 79
ExplicitWidth = 844 ExplicitWidth = 863
ExplicitHeight = 396 ExplicitHeight = 494
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 836 ExplicitWidth = 855
ExplicitHeight = 368 ExplicitHeight = 466
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 836 Width = 855
Height = 368 Height = 466
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
DesignSize = ( DesignSize = (
836 855
368) 466)
object edtOrden: TcxDBSpinEdit object edtOrden: TcxDBSpinEdit
Left = 49 Left = 293
Top = 10 Top = 10
AutoSize = False AutoSize = False
DataBinding.DataField = 'ORDEN' DataBinding.DataField = 'ORDEN'
@ -146,12 +147,12 @@ inherited fEditorAsiento: TfEditorAsiento
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0 TabOrder = 1
Height = 21 Height = 21
Width = 298 Width = 100
end end
object edtFecha: TcxDBDateEdit object edtFecha: TcxDBDateEdit
Left = 489 Left = 48
Top = 10 Top = 10
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ASIENTO' DataBinding.DataField = 'FECHA_ASIENTO'
@ -169,14 +170,15 @@ inherited fEditorAsiento: TfEditorAsiento
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1 TabOrder = 0
Width = 253 Width = 200
end end
inline frViewApuntes1: TfrViewApuntes inline frViewApuntes1: TfrViewApuntes
Left = 22 Left = 22
Top = 55 Top = 55
Width = 848 Width = 811
Height = 287 Height = 374
Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
@ -187,13 +189,18 @@ inherited fEditorAsiento: TfEditorAsiento
ReadOnly = False ReadOnly = False
ExplicitLeft = 22 ExplicitLeft = 22
ExplicitTop = 55 ExplicitTop = 55
ExplicitWidth = 848 ExplicitWidth = 811
ExplicitHeight = 287 inherited Panel1: TPanel
Width = 811
ExplicitWidth = 811
inherited Panel2: TPanel
Left = 627
ExplicitLeft = 627
end
end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 848 Width = 811
Height = 262 ExplicitWidth = 811
ExplicitWidth = 848
ExplicitHeight = 262
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -208,14 +215,6 @@ inherited fEditorAsiento: TfEditorAsiento
end> end>
end end
end end
inherited ToolBar1: TToolBar
Width = 848
ExplicitWidth = 848
inherited Label1: TLabel
Height = 22
ExplicitHeight = 22
end
end
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
@ -226,29 +225,26 @@ inherited fEditorAsiento: TfEditorAsiento
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item1: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Orden:'
Control = edtOrden
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Fecha:' Caption = 'Fecha:'
Control = edtFecha Control = edtFecha
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object lcOrden: TdxLayoutItem
AutoAligns = [aaVertical]
Caption = 'Orden:'
Control = edtOrden
ControlOptions.ShowBorder = False
end
end end
object dxLayoutControl1Group2: TdxLayoutGroup object dxLayoutControl1Group2: TdxLayoutGroup
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
Caption = 'Apuntes' Caption = 'Apuntes'
object dxLayoutControl1Item3: TdxLayoutItem object dxLayoutControl1Item1: TdxLayoutItem
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
ShowCaption = False
Control = frViewApuntes1 Control = frViewApuntes1
ControlOptions.AutoColor = True ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
@ -259,14 +255,14 @@ inherited fEditorAsiento: TfEditorAsiento
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 478 Top = 576
Width = 850 Width = 869
Panels = < Panels = <
item item
Width = 200 Width = 200
end> end>
ExplicitTop = 478 ExplicitTop = 576
ExplicitWidth = 850 ExplicitWidth = 869
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
Top = 128 Top = 128

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

@ -22,16 +22,16 @@ type
TfEditorAsiento = class(TfEditorDBItem, IEditorAsiento) TfEditorAsiento = class(TfEditorDBItem, IEditorAsiento)
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel; dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
frViewApuntes1: TfrViewApuntes;
dxLayoutControl1Group_Root: TdxLayoutGroup; dxLayoutControl1Group_Root: TdxLayoutGroup;
dxLayoutControl1: TdxLayoutControl; dxLayoutControl1: TdxLayoutControl;
dxLayoutControl1Item1: TdxLayoutItem; lcOrden: TdxLayoutItem;
edtOrden: TcxDBSpinEdit; edtOrden: TcxDBSpinEdit;
dxLayoutControl1Item2: TdxLayoutItem; dxLayoutControl1Item2: TdxLayoutItem;
edtFecha: TcxDBDateEdit; edtFecha: TcxDBDateEdit;
dxLayoutControl1Item3: TdxLayoutItem;
dxLayoutControl1Group2: TdxLayoutGroup; dxLayoutControl1Group2: TdxLayoutGroup;
dxLayoutControl1Group3: TdxLayoutGroup; dxLayoutControl1Group3: TdxLayoutGroup;
dxLayoutControl1Item1: TdxLayoutItem;
frViewApuntes1: TfrViewApuntes;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField); procedure dsDataTableDataChange(Sender: TObject; Field: TField);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
@ -173,9 +173,14 @@ begin
Asiento.DataTable.Active := True; Asiento.DataTable.Active := True;
//Muy importante ya que pone el numero de orden del apunte al maximo valor existente //Al insertar el orden se asigna automaticamente en el servidor, luego se podrá modificar
//tiene que ser aqui porque es cuando la tabla esta filtrada por el asiento if Asiento.EsNuevo then
Asiento.Apuntes.SetNumOrden; lcOrden.Visible := False
else
lcOrden.Visible := True;
//En el caso de tener apuntes el asiento nos posicionaremos siempre el la columna concepto del ultimo apunte
frViewApuntes1.GotoLast;
end; end;
destructor TfEditorAsiento.Destroy; destructor TfEditorAsiento.Destroy;

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

@ -82,11 +82,6 @@ inherited fEditorDiario: TfEditorDiario
Format = ',0.00 '#8364';-,0.00 '#8364 Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum Kind = skSum
Column = frViewDiario1.cxGridViewHABER Column = frViewDiario1.cxGridViewHABER
end
item
Format = #218'ltimo orden 0'
Kind = skMax
Column = frViewDiario1.cxGridViewORDEN
end> end>
inherited cxGridViewID_ASIENTO: TcxGridDBColumn inherited cxGridViewID_ASIENTO: TcxGridDBColumn
IsCaptionAssigned = True IsCaptionAssigned = True

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

@ -101,10 +101,10 @@ var
begin begin
inherited; inherited;
NumOrden := ViewGrid._FocusedView.DataController.Summary.FooterSummaryValues[2]; // NumOrden := ViewGrid._FocusedView.DataController.Summary.FooterSummaryValues[2];
Inc(NumOrden); // Inc(NumOrden);
FController.Ver(FController.Anadir(NumOrden)); FController.Ver(FController.Anadir);
actRefrescar.Execute; actRefrescar.Execute;
end; end;

1618
Source/Modulos/Contabilidad/Views/uEditorExtractoMovimientos.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

196
Source/Modulos/Contabilidad/Views/uEditorExtractoMovimientos.pas Normal file
View File

@ -0,0 +1,196 @@
unit uEditorExtractoMovimientos;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorBase, ToolWin, ComCtrls, JvExControls, JvComponent,
JvNavigationPane, uViewDiario, uBizAsientos, ActnList, DBActns, uViewGrid,
Menus, uDataModuleBase, ImgList, PngImageList, TB2Dock, TB2Toolbar, TBX,
TB2Item, StdActns, TB2ExtItems, TBXExtItems, TB2MRU, DB, uDADataTable,
JvFormAutoSize, uDAScriptingProvider, uDACDSDataTable, JvAppStorage,
JvAppRegistryStorage, JvFormPlacement, ExtCtrls, uCustomView, uViewBase,
uViewBarraSeleccion, pngimage, uEditorGridBase, JvComponentBase, uViewGridBase,
uAsientosController, JvExComCtrls, JvStatusBar, uDAInterfaces, uViewEpigrafes,
uBizDiario, dxGDIPlusClasses, uViewExtractoMovimientos, uIEditorExtractoMovimientos;
type
TfEditorExtractoMovimientos = class(TfEditorGridBase, IEditorExtractoMovimientos)
frViewExtractoMovimientos1: TfrViewExtractoMovimientos;
actCerrarCaja: TAction;
TBXItem38: TTBXItem;
procedure FormShow(Sender: TObject);
procedure actModificarUpdate(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
procedure actCerrarCajaExecute(Sender: TObject);
procedure actCerrarCajaUpdate(Sender: TObject);
private
FDiario: IBizDiario;
FController : IAsientosController;
protected
function GetDiario: IBizDiario;
procedure SetDiario(const Value: IBizDiario);
procedure OnExtractoChanged(Sender: TObject);
function GetController : IAsientosController; virtual;
procedure SetController (const Value : IAsientosController); virtual;
procedure NuevoInterno; override;
procedure EliminarInterno; override;
procedure ModificarInterno; override;
procedure PrevisualizarInterno; override;
procedure ImprimirInterno; override;
public
procedure PonerTitulos(const ATitulo: string = ''); override;
property Diario: IBizDiario read GetDiario write SetDiario;
property Controller : IAsientosController read GetController write SetController;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
implementation
uses
uFactuGES_App;
{$R *.dfm}
{
****************************** TfEditorAsientos *******************************
}
procedure TfEditorExtractoMovimientos.FormShow(Sender: TObject);
begin
inherited;
if not Assigned(ViewGrid) then
raise Exception.Create('No hay ninguna vista asignada');
if not Assigned(Diario) then
raise Exception.Create('No hay ningún Diario asignado');
//Para que coja el ancho automático
actAnchoAuto.Execute;
end;
function TfEditorExtractoMovimientos.GetDiario: IBizDiario;
begin
Result := FDiario;
end;
procedure TfEditorExtractoMovimientos.ImprimirInterno;
begin
inherited;
end;
function TfEditorExtractoMovimientos.GetController: IAsientosController;
begin
Result := FController;
end;
procedure TfEditorExtractoMovimientos.ModificarInterno;
begin
inherited;
FController.Ver(FController.Buscar(Diario.ID_ASIENTO));
actRefrescar.Execute;
end;
procedure TfEditorExtractoMovimientos.NuevoInterno;
begin
inherited;
FController.Ver(FController.Anadir(frViewExtractoMovimientos1.cxGrid.ActiveLevel.Tag));
actRefrescar.Execute;
end;
procedure TfEditorExtractoMovimientos.OnExtractoChanged(Sender: TObject);
begin
Diario := frViewExtractoMovimientos1.Diario;
end;
procedure TfEditorExtractoMovimientos.PonerTitulos(const ATitulo: string);
var
FTitulo : String;
begin
FTitulo := 'Cajas / Bancos - ' + AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE;
inherited PonerTitulos(FTitulo);
end;
procedure TfEditorExtractoMovimientos.PrevisualizarInterno;
begin
inherited;
end;
procedure TfEditorExtractoMovimientos.SetDiario(const Value: IBizDiario);
begin
FDiario := Value;
if Assigned(FDiario) then
dsDataTable.DataTable := FDiario.DataTable;
end;
procedure TfEditorExtractoMovimientos.SetController(const Value: IAsientosController);
begin
FController := Value;
if Assigned(FController) and Assigned(ViewGrid) then
(ViewGrid as IViewExtractoMovimientos).Controller := FController;
end;
destructor TfEditorExtractoMovimientos.Destroy;
begin
frViewExtractoMovimientos1.OnExtractoChange := Nil;
FDiario := Nil;
inherited;
end;
procedure TfEditorExtractoMovimientos.EliminarInterno;
begin
if (Application.MessageBox('¿Está seguro que desea borrar el asiento seleccionado?', 'Atención', MB_YESNO) = IDYES) then
begin
inherited;
if FController.Eliminar(Diario.ID_ASIENTO) then
actRefrescar.Execute;
end;
end;
procedure TfEditorExtractoMovimientos.actCerrarCajaExecute(Sender: TObject);
begin
inherited;
if FController.CerrarCajaBanco(frViewExtractoMovimientos1.cxGrid.ActiveLevel.Tag) then
actRefrescar.Execute;
end;
procedure TfEditorExtractoMovimientos.actCerrarCajaUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled := (actNuevo as TAction).Enabled;
end;
procedure TfEditorExtractoMovimientos.actEliminarUpdate(Sender: TObject);
begin
inherited;
if (Sender as TAction).Enabled then
if Assigned(Diario) then
(Sender as TAction).Enabled := Diario.ID_FACTURAIsNull
and Diario.ID_PAGOIsNull;
end;
procedure TfEditorExtractoMovimientos.actModificarUpdate(Sender: TObject);
begin
inherited;
if (Sender as TAction).Enabled then
if Assigned(Diario) then
(Sender as TAction).Enabled := Diario.ID_FACTURAIsNull
and Diario.ID_PAGOIsNull;
end;
constructor TfEditorExtractoMovimientos.Create(AOwner: TComponent);
begin
inherited;
ViewGrid := frViewExtractoMovimientos1;
//Se establece este evento porque el control sobre el objeto de negocio recae en las vista ya que cambia
//en función de la pestaña en la que se encuentre
frViewExtractoMovimientos1.OnExtractoChange := OnExtractoChanged;
end;
end.

106
Source/Modulos/Contabilidad/Views/uViewApuntes.dfm
View File

@ -1,13 +1,58 @@
inherited frViewApuntes: TfrViewApuntes inherited frViewApuntes: TfrViewApuntes
Width = 899 Width = 749
Height = 346 Height = 374
ExplicitWidth = 899 ExplicitWidth = 749
ExplicitHeight = 346 ExplicitHeight = 374
object Panel1: TPanel [0]
Left = 0
Top = 0
Width = 749
Height = 30
Align = alTop
BevelOuter = bvNone
TabOrder = 2
ExplicitWidth = 670
object Panel2: TPanel
Left = 565
Top = 0
Width = 184
Height = 30
Align = alRight
BevelOuter = bvNone
TabOrder = 0
ExplicitLeft = 486
object Label1: TLabel
Left = 11
Top = 8
Width = 55
Height = 13
Margins.Top = 8
Alignment = taRightJustify
Caption = 'Descuadre:'
Layout = tlCenter
end
object eDescuadre: TcxCurrencyEdit
Left = 72
Top = 5
Enabled = False
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
BiDiMode = bdLeftToRight
ParentBiDiMode = False
Width = 112
end
end
end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 899 Top = 30
Height = 321 Width = 749
ExplicitWidth = 899 Height = 344
ExplicitHeight = 560 ExplicitTop = 30
ExplicitWidth = 670
ExplicitHeight = 344
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -92,34 +137,20 @@ inherited frViewApuntes: TfrViewApuntes
end end
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 899 Width = 369
ExplicitWidth = 899 Align = alNone
Wrapable = False
ExplicitWidth = 369
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 62 ExplicitWidth = 62
end end
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 74 ExplicitWidth = 74
end end
inherited ToolButton5: TToolButton
Top = 0
ExplicitTop = 0
end
inherited ToolButton2: TToolButton inherited ToolButton2: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 67 ExplicitWidth = 67
end end
inherited ToolButton6: TToolButton
Top = 0
ExplicitTop = 0
end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 117 ExplicitWidth = 117
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
@ -130,29 +161,6 @@ inherited frViewApuntes: TfrViewApuntes
ImageIndex = 4 ImageIndex = 4
Style = tbsSeparator Style = tbsSeparator
end end
object Label1: TLabel
Left = 344
Top = 0
Width = 55
Height = 22
Margins.Top = 8
Alignment = taRightJustify
Caption = 'Descuadre:'
Layout = tlCenter
end
object eDescuadre: TcxCurrencyEdit
Left = 399
Top = 0
Enabled = False
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
BiDiMode = bdLeftToRight
ParentBiDiMode = False
Width = 112
end
end end
inherited ActionListContenido: TActionList inherited ActionListContenido: TActionList
object actElegirSubCuenta: TAction object actElegirSubCuenta: TAction

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

Binary file not shown.

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

@ -44,23 +44,24 @@ inherited frViewDiario: TfrViewDiario
object cxGridViewFECHA_ASIENTO: TcxGridDBColumn object cxGridViewFECHA_ASIENTO: TcxGridDBColumn
Caption = 'Fecha asiento' Caption = 'Fecha asiento'
DataBinding.FieldName = 'FECHA_ASIENTO' DataBinding.FieldName = 'FECHA_ASIENTO'
SortIndex = 0
SortOrder = soDescending
end end
object cxGridViewORDEN: TcxGridDBColumn object cxGridViewORDEN: TcxGridDBColumn
Caption = 'Orden asiento' Caption = 'Orden asiento'
DataBinding.FieldName = 'ORDEN_ASIENTO' DataBinding.FieldName = 'ORDEN_ASIENTO'
SortIndex = 1
SortOrder = soDescending
end end
object cxGridViewREF_SUBCUENTA: TcxGridDBColumn object cxGridViewREF_SUBCUENTA: TcxGridDBColumn
Caption = 'Ref. subcuenta' Caption = 'Ref. subcuenta'
DataBinding.FieldName = 'REF_SUBCUENTA' DataBinding.FieldName = 'REF_SUBCUENTA'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
SortIndex = 0
SortOrder = soAscending
Width = 304 Width = 304
end end
object cxGridViewSUBCUENTA: TcxGridDBColumn object cxGridViewSUBCUENTA: TcxGridDBColumn
Caption = 'Subcuenta' Caption = 'Subcuenta'
DataBinding.FieldName = 'SUBCUENTA' DataBinding.FieldName = 'SUBCUENTA'
Visible = False
end end
object cxGridViewCONCEPTO: TcxGridDBColumn object cxGridViewCONCEPTO: TcxGridDBColumn
Caption = 'Concepto' Caption = 'Concepto'
@ -110,9 +111,6 @@ inherited frViewDiario: TfrViewDiario
end end
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel
ExplicitWidth = 554
end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 38673.842406053240000000 ReportDocument.CreationDate = 38673.842406053240000000

188
Source/Modulos/Contabilidad/Views/uViewExtractoMovimientos.dfm Normal file
View File

@ -0,0 +1,188 @@
inherited frViewExtractoMovimientos: TfrViewExtractoMovimientos
OnDestroy = CustomViewDestroy
OnShow = CustomViewShow
inherited cxGrid: TcxGrid
RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged
inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'ID_ASIENTO;ID_APUNTE'
DataController.Summary.FooterSummaryItems = <
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = cxGridViewDEBE
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = cxGridViewHABER
end>
OptionsBehavior.PullFocusing = True
OptionsCustomize.ColumnMoving = False
OptionsCustomize.ColumnSorting = False
object cxGridViewID_ASIENTO: TcxGridDBColumn
DataBinding.FieldName = 'ID_ASIENTO'
Visible = False
BestFitMaxWidth = 22
MinWidth = 22
Options.HorzSizing = False
VisibleForCustomization = False
Width = 22
IsCaptionAssigned = True
end
object cxGridViewID_APUNTE: TcxGridDBColumn
DataBinding.FieldName = 'ID_APUNTE'
Visible = False
VisibleForCustomization = False
end
object cxGridViewTIPO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO'
Visible = False
VisibleForCustomization = False
end
object cxGridViewID_FACTURA: TcxGridDBColumn
Caption = 'Fac.Asoc.'
DataBinding.FieldName = 'ID_FACTURA'
Visible = False
VisibleForCustomization = False
end
object cxGridViewID_PAGO: TcxGridDBColumn
Caption = 'Pag.Asoc.'
DataBinding.FieldName = 'ID_PAGO'
Visible = False
VisibleForCustomization = False
end
object cxGridViewFECHA_ASIENTO: TcxGridDBColumn
Caption = 'Fecha asiento'
DataBinding.FieldName = 'FECHA_ASIENTO'
SortIndex = 0
SortOrder = soDescending
end
object cxGridViewORDEN: TcxGridDBColumn
Caption = 'Orden asiento'
DataBinding.FieldName = 'ORDEN_ASIENTO'
SortIndex = 1
SortOrder = soDescending
end
object cxGridViewREF_SUBCUENTA: TcxGridDBColumn
Caption = 'Ref. subcuenta'
DataBinding.FieldName = 'REF_SUBCUENTA'
PropertiesClassName = 'TcxTextEditProperties'
Width = 304
end
object cxGridViewSUBCUENTA: TcxGridDBColumn
Caption = 'Subcuenta'
DataBinding.FieldName = 'SUBCUENTA'
end
object cxGridViewCONCEPTO: TcxGridDBColumn
Caption = 'Concepto'
DataBinding.FieldName = 'CONCEPTO'
PropertiesClassName = 'TcxTextEditProperties'
Width = 118
end
object cxGridViewDOCUMENTO: TcxGridDBColumn
Caption = 'Documento'
DataBinding.FieldName = 'DOCUMENTO'
end
object cxGridViewDEBE: TcxGridDBColumn
Caption = 'Debe'
DataBinding.FieldName = 'DEBE'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewHABER: TcxGridDBColumn
Caption = 'Haber'
DataBinding.FieldName = 'HABER'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewSaldo: TcxGridDBColumn
Caption = 'Saldo'
DataBinding.FieldName = 'SALDO'
end
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 468
Width = 468
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 246
Width = 246
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 346
ExplicitLeft = 346
ExplicitWidth = 201
Width = 201
end
end
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
ExplicitWidth = 554
end
inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 38673.842406053240000000
BuiltInReportLink = True
end
end
inherited cxStyleRepository1: TcxStyleRepository
object cxStyleCierre: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
Color = clSkyBlue
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
TextColor = clActiveCaption
end
end
inherited dxPrintStyleManager1: TdxPrintStyleManager
inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
BuiltInStyle = True
end
end
object PngImageList: TPngImageList
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD2520000022E4944415478DA
8D93CF6BD36018C7BF6997A45DD376EA70CA18D31D44981741280C44119DA83D
C87619781A1EFD1BC49B2028B28353141111A43BE8CD934E65A8D4A1686B61B5
A31DD8CCBAFEDAACEDF226B389EFFB26CBCC54E6030FEFCB4B3E9FE79B9744B0
2C0B8220E0F7BA3AB2D75A282DE07F4AD82C60F0851B8F50530BF85EF98A6236
8DCCAB69B0B366BD8C95B24ACF4BB877FD226AFD635EC13A5CF99243A356869A
4D51F8398799EC476D09E5621E0F6F5EC6C8D938EE7C503604EB7055CDA34127
A8B90C3ECD3CE570A35AA2FD0DCB4B2AEE4F5CC29953C35094102667655B706D
7480C3F97412AD951AAAC502E6DEBCE47031974673B942BB8AA9DB57103F7D12
9D9D413ED4154C8C0BD6FCE7AD2F6C2816C3CE9E6E8862077C3E9F57307CE2FC
1F80655A308C35E844C7B3273318D8D78FE8B6282449A41211B7DE05FE2D304D
13866EC34433F0FAC55BF4EDE945A42B0C910A6459C6DD94F27781D936F964B2
AADB02DAEF9329ECEEED4138A240944548B2840773DBBD02B637596C6238205D
352AD175643E66B1A3BB0B0A15489204292061AAB0CB2B68D3C96B34367120BE
3AB2F96C01E1A8825028083920F35778BCD8B721387E6C9C42060788465C50A3
12B24AB0582C2110946907282C61BA3588442221B882C343E75C50A30093B104
84D849EAD53AFC1D7E0ECFFA631C76FF0526387470D4135977405B62A0D56CB2
C791891C71618FE0C0FEB873618623B2E33361FB679B4A340A1FF5C01E41928C
6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082}
Name = 'PngImage0'
Background = clWindow
end>
Left = 160
Top = 32
Bitmap = {}
end
end

258
Source/Modulos/Contabilidad/Views/uViewExtractoMovimientos.pas Normal file
View File

@ -0,0 +1,258 @@
unit uViewExtractoMovimientos;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, DB, cxDBData, uDADataTable, cxGridLevel,
cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGrid, uBizDiario, ActnList, Menus,
cxGridBandedTableView, cxGridDBBandedTableView, JvComponent,
JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn,
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, TBX,
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, cxCalendar,
cxImageComboBox, cxTextEdit, cxCurrencyEdit, uBizSubCuentas, uAsientosController;
type
IViewExtractoMovimientos = interface(IViewGrid)
['{5CA170E3-5552-4EF5-A2C0-02E4C9052045}']
function GetDiario: IBizDiario;
procedure SetDiario(const Value: IBizDiario);
property Diario: IBizDiario read GetDiario write SetDiario;
function GetSubCuentas: IBizSubCuenta;
procedure SetSubCuentas(const Value: IBizSubCuenta);
property SubCuentas: IBizSubCuenta read GetSubCuentas write SetSubCuentas;
function GetController : IAsientosController;
procedure SetController (const Value : IAsientosController);
property Controller : IAsientosController read GetController write SetController;
function GetExtractoChange: TNotifyEvent;
procedure SetExtractoChange(const Value: TNotifyEvent);
property OnExtractoChange: TNotifyEvent read GetExtractoChange write SetExtractoChange;
end;
TfrViewExtractoMovimientos = class(TfrViewGrid, IViewExtractoMovimientos)
cxGridViewCONCEPTO: TcxGridDBColumn;
cxGridViewREF_SUBCUENTA: TcxGridDBColumn;
cxGridViewID_ASIENTO: TcxGridDBColumn;
PngImageList: TPngImageList;
cxGridViewSUBCUENTA: TcxGridDBColumn;
cxGridViewDEBE: TcxGridDBColumn;
cxGridViewHABER: TcxGridDBColumn;
cxGridViewFECHA_ASIENTO: TcxGridDBColumn;
cxGridViewORDEN: TcxGridDBColumn;
cxGridViewID_APUNTE: TcxGridDBColumn;
cxGridViewID_FACTURA: TcxGridDBColumn;
cxGridViewID_PAGO: TcxGridDBColumn;
cxGridViewDOCUMENTO: TcxGridDBColumn;
cxGridViewSaldo: TcxGridDBColumn;
cxGridViewTIPO: TcxGridDBColumn;
cxStyleCierre: TcxStyle;
procedure cxGridViewID_AsientoCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
procedure CustomViewShow(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle);
private
FOnExtractoChange: TNotifyEvent;
function GetExtractoChange: TNotifyEvent;
procedure SetExtractoChange(const Value: TNotifyEvent);
protected
FSubCuentas: IBizSubCuenta;
FDiario: IBizDiario;
FController : IAsientosController;
function GetDiario: IBizDiario; virtual;
procedure SetDiario(const Value: IBizDiario); virtual;
function GetSubCuentas: IBizSubCuenta; virtual;
procedure SetSubCuentas(const Value: IBizSubCuenta); virtual;
function GetController : IAsientosController; virtual;
procedure SetController (const Value : IAsientosController); virtual;
public
property OnExtractoChange: TNotifyEvent read GetExtractoChange write SetExtractoChange;
property Diario: IBizDiario read GetDiario write SetDiario;
property SubCuentas: IBizSubCuenta read GetSubCuentas write SetSubCuentas;
property Controller : IAsientosController read GetController write SetController;
end;
implementation
{$R *.dfm}
uses
uSubCuentasController;
{ TfrViewDiario }
{
******************************* TfrViewDiario *******************************
}
function TfrViewExtractoMovimientos.GetController: IAsientosController;
begin
Result := FController;
end;
function TfrViewExtractoMovimientos.GetDiario: IBizDiario;
begin
Result := FDiario;
end;
function TfrViewExtractoMovimientos.GetExtractoChange: TNotifyEvent;
begin
Result := FOnExtractoChange;
end;
function TfrViewExtractoMovimientos.GetSubCuentas: IBizSubCuenta;
begin
Result := FSubCuentas;
end;
procedure TfrViewExtractoMovimientos.SetController(const Value: IAsientosController);
begin
FController := Value;
end;
procedure TfrViewExtractoMovimientos.SetDiario(const Value: IBizDiario);
begin
FDiario := Value;
if Assigned(FDiario) then
dsDataSource.DataTable := FDiario.DataTable;
if Assigned(FOnExtractoChange) then
FOnExtractoChange(Self);
FDiario.DataTable.Active := True;
GotoFirst;
end;
procedure TfrViewExtractoMovimientos.SetExtractoChange(const Value: TNotifyEvent);
begin
FOnExtractoChange := Value;
end;
procedure TfrViewExtractoMovimientos.SetSubCuentas(const Value: IBizSubCuenta);
var
Nivel: TcxGridLevel;
auxb: Boolean;
begin
FSubCuentas := Value;
if Assigned(FSubCuentas) then
begin
if not FSubCuentas.DataTable.Active then
FSubCuentas.DataTable.Active := True;
if FSubCuentas.RecordCount > 0 then
begin
with FSubCuentas.DataTable do
begin
First;
auxb:=True;
while not EOF do
begin
if auxb
//Ponemos la primera cuenta en el nivel ya creado
then Nivel := cxGridLevel
//Creamos un nuevo nivel
else Nivel := cxGrid.Levels.Add;
Nivel.Caption := FSubCuentas.DESCRIPCION;
Nivel.Tag := FSubCuentas.ID;
Next;
auxb := False;
end;
First;
end;
end
else cxGrid.RootLevelOptions.DetailTabsPosition := dtpNone;
// FAsientos.Intervalo := frListaIntervalos.Intervalo;
end;
end;
procedure TfrViewExtractoMovimientos.CustomViewDestroy(Sender: TObject);
begin
FSubCuentas := Nil;
inherited;
end;
procedure TfrViewExtractoMovimientos.CustomViewShow(Sender: TObject);
var
ASubcuentasController: ISubCuentasController;
begin
inherited;
with TSubCuentasController.Create do
begin
SubCuentas := BuscarCajasBancos;
Free;
end;
if Assigned(FController) then
begin
Diario := FController.BuscarAsientos(cxGrid.Levels.Items[cxGrid.ActiveLevel.Index].Tag);
//Por si no lo guarda bien el registro del grid
cxGridViewFECHA_ASIENTO.SortIndex := 0;
cxGridViewORDEN.SortIndex := 1;
cxGridViewFECHA_ASIENTO.SortOrder := soDescending;
cxGridViewORDEN.SortOrder := soDescending;
end;
end;
procedure TfrViewExtractoMovimientos.cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
var
ACursor: TCursor;
begin
ACursor := Screen.Cursor;
Screen.Cursor := crHourGlass;
inherited;
if Assigned(FController) then
Diario := FController.BuscarAsientos(cxGrid.Levels.Items[ALevel.Index].Tag);
cxGrid.Levels.Items[ALevel.Index].GridView := cxGridView;
Screen.Cursor := ACursor;
end;
procedure TfrViewExtractoMovimientos.cxGridViewID_ASIENTOCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
R : TRect;
begin
inherited;
R := AViewInfo.ContentBounds;
ACanvas.FillRect(R);
ACanvas.DrawImage(PngImageList, R.Left, R.Top, 0);
ADone := True;
end;
procedure TfrViewExtractoMovimientos.cxGridViewStylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
var
IndiceCol: Integer;
ATIPO: string;
begin
inherited;
if Assigned(ARecord) then
begin
IndiceCol := cxGridViewTIPO.Index;
ATipo := VarToStr(ARecord.DisplayTexts[IndiceCol]);
if (ATIPO = 'X') then
AStyle := cxStyleCierre;
end;
end;
end.

2
Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedorServer.pas
View File

@ -27,7 +27,7 @@ uses
schRecibosProveedorClient_Intf, srvReferencias_Impl; schRecibosProveedorClient_Intf, srvReferencias_Impl;
const const
REF_RECIBOS_PROVEEDOR = 'REF_RECIBOS_Proveedor'; REF_RECIBOS_PROVEEDOR = 'REF_RECIBOS_PROVEEDOR';
{ TBizRecibosProveedorServer } { TBizRecibosProveedorServer }

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

7
Source/Servidor/FactuGES_Server.dpr
View File

@ -106,8 +106,6 @@ uses
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas', schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
schReferenciasClient_Intf in '..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas', schReferenciasClient_Intf in '..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas',
schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas', schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas',
schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas',
schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas',
uBizRecibosProveedorServer in '..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas', uBizRecibosProveedorServer in '..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas',
uRptAlbaranesCliente_Server in '..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas', uRptAlbaranesCliente_Server in '..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
@ -119,7 +117,10 @@ uses
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas', schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas', schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas'; schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_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';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

504
Source/Servidor/FactuGES_Server.dproj
View File

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

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,2,0,0 FILEVERSION 2,2,2,0
PRODUCTVERSION 2,2,0,0 PRODUCTVERSION 2,2,2,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.2.0.0\0" VALUE "FileVersion", "2.2.2.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.2.0.0\0" VALUE "ProductVersion", "2.2.2.0\0"
VALUE "CompileDate", "jueves, 24 de abril de 2008 19:19\0" VALUE "CompileDate", "lunes, 12 de mayo de 2008 18:28\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"