Arreglo en Cajas/Bancos para que el objeto de negocio de la vista sea el mismo que el del editor, y cierre de caja
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@219 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
04f4a459f5
commit
0f266dfbec
@ -1960,6 +1960,7 @@ CREATE VIEW V_CONT_DIARIO(
|
||||
ID_ASIENTO,
|
||||
ID_FACTURA,
|
||||
ID_PAGO,
|
||||
TIPO,
|
||||
ORDEN_ASIENTO,
|
||||
FECHA_ASIENTO,
|
||||
ID_SUBCUENTA,
|
||||
@ -1977,6 +1978,7 @@ SELECT
|
||||
CONT_APUNTES.ID_ASIENTO,
|
||||
CONT_ASIENTOS.ID_FACTURA,
|
||||
CONT_ASIENTOS.ID_PAGO,
|
||||
CONT_ASIENTOS.TIPO,
|
||||
CONT_ASIENTOS.ORDEN,
|
||||
CONT_ASIENTOS.FECHA_ASIENTO,
|
||||
CONT_APUNTES.ID_SUBCUENTA,
|
||||
@ -4200,7 +4202,10 @@ declare variable debe numeric(11,2);
|
||||
declare variable haber numeric(11,2);
|
||||
begin
|
||||
/*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
|
||||
FROM PAGOS_CLIENTE
|
||||
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);
|
||||
begin
|
||||
/*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
|
||||
FROM PAGOS_PROVEEDOR
|
||||
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 CONT_SUBCUENTAS ON (CONT_SUBCUENTAS.ID_CONTACTO = FACTURAS_PROVEEDOR.ID_PROVEEDOR)
|
||||
/* 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 = RECIBOS_PROVEEDOR.ID_PROVEEDOR)
|
||||
WHERE PAGOS_PROVEEDOR.ID = :IDPAGO INTO :IGNORARCONTABILIDAD, :REFERENCIARECIBO,
|
||||
:FECHAPAGO, :TIPOPAGO, :IMPORTE, :IDSUBCUENTA, :IDEJERCICIO;
|
||||
|
||||
|
||||
BIN
Resources/Iconos/Cuentas/16x16/cierre.png
Normal file
BIN
Resources/Iconos/Cuentas/16x16/cierre.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1016 B |
BIN
Resources/Iconos/Cuentas/24x24/cierre.png
Normal file
BIN
Resources/Iconos/Cuentas/24x24/cierre.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 601 B |
BIN
Resources/Iconos/Cuentas/28x28/cierre.png
Normal file
BIN
Resources/Iconos/Cuentas/28x28/cierre.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.2 KiB |
@ -58,48 +58,48 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\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="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">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
Binary file not shown.
@ -53,7 +53,27 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<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>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 2,2,0,0
|
||||
PRODUCTVERSION 2,2,0,0
|
||||
FILEVERSION 2,2,2,0
|
||||
PRODUCTVERSION 2,2,2,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -13,10 +13,10 @@ BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
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 "ProductName", "FactuGES\0"
|
||||
VALUE "ProductVersion", "2.2.0.0\0"
|
||||
VALUE "ProductVersion", "2.2.2.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
@ -29,6 +29,7 @@ inherited fEditorDBBase: TfEditorDBBase
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 435
|
||||
Width = 646
|
||||
ExplicitTop = 435
|
||||
ExplicitWidth = 648
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
|
||||
@ -65,8 +65,8 @@ inherited fEditorDBItem: TfEditorDBItem
|
||||
Width = 200
|
||||
Control = imgStatus
|
||||
end>
|
||||
ExplicitTop = 442
|
||||
ExplicitWidth = 652
|
||||
ExplicitTop = 440
|
||||
ExplicitWidth = 650
|
||||
object imgStatus: TImage
|
||||
Left = 3
|
||||
Top = 3
|
||||
|
||||
@ -13,6 +13,8 @@ uses
|
||||
type
|
||||
IViewDetallesGenerico = interface(IViewBase)
|
||||
['{CA4BD183-1DCD-453D-A1A2-A3B7349BBE40}']
|
||||
procedure GotoFirst;
|
||||
procedure GotoLast;
|
||||
end;
|
||||
|
||||
TfrViewDetallesGenerico = class(TfrViewBase, IViewDetallesGenerico)
|
||||
@ -51,6 +53,9 @@ type
|
||||
procedure EliminarInterno; virtual;
|
||||
|
||||
function GetModified: Boolean; override;
|
||||
public
|
||||
procedure GotoFirst; virtual;
|
||||
procedure GotoLast; virtual;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -196,6 +201,18 @@ begin
|
||||
Result := DataTableModified(dsDetalles.DataTable) or inherited GetModified;
|
||||
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;
|
||||
begin
|
||||
Result := Assigned(dsDetalles.DataTable) and
|
||||
|
||||
File diff suppressed because one or more lines are too long
Binary file not shown.
@ -41,36 +41,13 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Contabilidad_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>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="Contabilidad_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\adortl.dcp" />
|
||||
<DCCReference Include="..\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\Base.dcp" />
|
||||
<DCCReference Include="..\ccpackD11.dcp" />
|
||||
<DCCReference Include="..\cfpack_d11.dcp" />
|
||||
<DCCReference Include="..\Contabilidad_data.dcp" />
|
||||
<DCCReference Include="..\Contabilidad_model.dcp" />
|
||||
<DCCReference Include="..\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\dbrtl.dcp" />
|
||||
<DCCReference Include="..\designide.dcp" />
|
||||
<DCCReference Include="..\dsnap.dcp" />
|
||||
<DCCReference Include="..\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase.dcp" />
|
||||
<DCCReference Include="..\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\rtl.dcp" />
|
||||
<DCCReference Include="..\vcl.dcp" />
|
||||
<DCCReference Include="..\vclactnband.dcp" />
|
||||
<DCCReference Include="..\vcldb.dcp" />
|
||||
<DCCReference Include="..\vclx.dcp" />
|
||||
<DCCReference Include="..\xmlrtl.dcp" />
|
||||
<DCCReference Include="uApuntesController.pas" />
|
||||
<DCCReference Include="uAsientosController.pas" />
|
||||
<DCCReference Include="uBalancesController.pas" />
|
||||
@ -78,6 +55,24 @@
|
||||
<DCCReference Include="uCuentasEspecialesController.pas" />
|
||||
<DCCReference Include="uEpigrafesController.pas" />
|
||||
<DCCReference Include="uSubCuentasController.pas" />
|
||||
<DCCReference Include="View\adortl.dcp" />
|
||||
<DCCReference Include="View\ApplicationBase.dcp" />
|
||||
<DCCReference Include="View\Base.dcp" />
|
||||
<DCCReference Include="View\ccpackD11.dcp" />
|
||||
<DCCReference Include="View\cfpack_d11.dcp" />
|
||||
<DCCReference Include="View\Contabilidad_data.dcp" />
|
||||
<DCCReference Include="View\Contabilidad_model.dcp" />
|
||||
<DCCReference Include="View\Contactos_model.dcp" />
|
||||
<DCCReference Include="View\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="View\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="View\dbrtl.dcp" />
|
||||
<DCCReference Include="View\designide.dcp" />
|
||||
<DCCReference Include="View\dsnap.dcp" />
|
||||
<DCCReference Include="View\dxThemeD11.dcp" />
|
||||
<DCCReference Include="View\GUIBase.dcp" />
|
||||
<DCCReference Include="View\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="View\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="View\rtl.dcp" />
|
||||
<DCCReference Include="View\uIEditorApunte.pas" />
|
||||
<DCCReference Include="View\uIEditorAsiento.pas" />
|
||||
<DCCReference Include="View\uIEditorBalance.pas" />
|
||||
@ -94,8 +89,14 @@
|
||||
<DCCReference Include="View\uIEditorElegirSubCuentas.pas" />
|
||||
<DCCReference Include="View\uIEditorEpigrafe.pas" />
|
||||
<DCCReference Include="View\uIEditorEpigrafes.pas" />
|
||||
<DCCReference Include="View\uIEditorExtractoMovimientos.pas" />
|
||||
<DCCReference Include="View\uIEditorSubCuenta.pas" />
|
||||
<DCCReference Include="View\uIEditorSubCuentas.pas" />
|
||||
<DCCReference Include="View\vcl.dcp" />
|
||||
<DCCReference Include="View\vclactnband.dcp" />
|
||||
<DCCReference Include="View\vcldb.dcp" />
|
||||
<DCCReference Include="View\vclx.dcp" />
|
||||
<DCCReference Include="View\xmlrtl.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -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.
|
||||
@ -5,21 +5,23 @@ interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, uDADataTable, uControllerBase,
|
||||
uBizApuntes, uIDataModuleContabilidad;
|
||||
uBizApuntes, uBizSubCuentas, uIDataModuleContabilidad;
|
||||
type
|
||||
IApuntesController = interface(IObservador)
|
||||
['{94E5F2B6-64C8-4331-B9CB-3ED730478529}']
|
||||
// function BuscarTodos: IBizApunte;
|
||||
// function Buscar(const ID: Integer): 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);
|
||||
// function Anadir: IBizApunte;
|
||||
function Eliminar(AApunte : IBizApunte): Boolean;
|
||||
function Guardar(AApunte : IBizApunte): Boolean;
|
||||
procedure DescartarCambios(AApunte : IBizApunte);
|
||||
|
||||
function ValidarApunte(AApunte: IBizApunte): Boolean;
|
||||
function ValidarApunte(AApunte: IBizApunte): Boolean;
|
||||
procedure ElegirSubCuenta(AApunte: IBizApunte);
|
||||
|
||||
procedure AsignarDEBE(AApunte: IBizApunte);
|
||||
@ -27,6 +29,9 @@ type
|
||||
end;
|
||||
|
||||
TApuntesController = class(TObservador, IApuntesController)
|
||||
private
|
||||
procedure CopiarSubCuenta_Apunte(AApunte: IBizApunte; ASubCuenta : IBizSubCuenta);
|
||||
|
||||
protected
|
||||
FDataModule : IDataModuleContabilidad;
|
||||
|
||||
@ -42,7 +47,9 @@ type
|
||||
|
||||
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 Guardar(AApunte : IBizApunte): Boolean; virtual;
|
||||
procedure DescartarCambios(AApunte : IBizApunte); virtual;
|
||||
@ -61,7 +68,7 @@ implementation
|
||||
|
||||
uses
|
||||
cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf,
|
||||
uBizSubCuentas, uSubCuentasController,
|
||||
uSubCuentasController,
|
||||
uIEditorApunte, uDataModuleContabilidad,
|
||||
uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App,
|
||||
uDateUtils, uROTypes, DateUtils, Controls, Windows;
|
||||
@ -88,6 +95,35 @@ begin
|
||||
// AApunte.DataTable.EnableControls;
|
||||
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;
|
||||
begin
|
||||
FDataModule := TDataModuleContabilidad.Create(Nil);
|
||||
@ -140,6 +176,26 @@ begin
|
||||
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;
|
||||
begin
|
||||
inherited;
|
||||
@ -268,20 +324,8 @@ begin
|
||||
try
|
||||
AController := TSubCuentasController.Create;
|
||||
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
|
||||
AController := Nil;
|
||||
ASubCuenta := Nil;
|
||||
|
||||
@ -9,11 +9,14 @@ uses
|
||||
type
|
||||
IAsientosController = interface(IObservador)
|
||||
['{94E5F2B6-64C8-4331-B9CB-3ED730478529}']
|
||||
function BuscarDiario: IBizDiario;
|
||||
function BuscarAsientos(IdSubCuenta: Integer = -1): IBizDiario;
|
||||
function Buscar(const ID: Integer): IBizAsiento;
|
||||
procedure VerDiario(ADiario: IBizDiario);
|
||||
procedure VerExtracto;
|
||||
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(AAsiento : IBizAsiento): Boolean; overload;
|
||||
function Guardar(AAsiento : IBizAsiento): Boolean;
|
||||
@ -35,14 +38,19 @@ type
|
||||
constructor Create; override;
|
||||
destructor Destroy; override;
|
||||
|
||||
function BuscarAsientos(IdSubCuenta: Integer = -1): IBizDiario;
|
||||
|
||||
function Eliminar(IDAsiento : Integer): Boolean; overload;
|
||||
function Eliminar(AAsiento : IBizAsiento): Boolean; overload;
|
||||
function Guardar(AAsiento : IBizAsiento): Boolean; virtual;
|
||||
procedure DescartarCambios(AAsiento : IBizAsiento); virtual;
|
||||
function Anadir(NumOrden:Integer): IBizAsiento;
|
||||
function BuscarDiario: IBizDiario;
|
||||
function Anadir: IBizAsiento; overload;
|
||||
function Anadir(IdSubcuenta:Integer): IBizAsiento; overload;
|
||||
function CerrarCajaBanco(IdSubcuenta:Integer): Boolean;
|
||||
|
||||
function Buscar(const ID: Integer): IBizAsiento;
|
||||
procedure VerDiario(ADiario: IBizDiario);
|
||||
procedure VerExtracto;
|
||||
procedure Ver(AAsiento: IBizAsiento);
|
||||
end;
|
||||
|
||||
@ -50,23 +58,36 @@ implementation
|
||||
|
||||
uses
|
||||
cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf,
|
||||
uIEditorDiario, uIEditorAsiento, uDataModuleContabilidad,
|
||||
uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App,
|
||||
uDateUtils, uROTypes, DateUtils, Controls, Windows, uApuntesController;
|
||||
uIEditorDiario, uIEditorExtractoMovimientos, uIEditorAsiento,
|
||||
uDataModuleContabilidad, uDAInterfaces, uDataTableUtils, uDialogUtils,
|
||||
uFactuGES_App, uDateUtils, uROTypes, DateUtils, Controls, Windows,
|
||||
uApuntesController;
|
||||
|
||||
{ TAsientosController }
|
||||
|
||||
function TAsientosController.Anadir(NumOrden:Integer): IBizAsiento;
|
||||
function TAsientosController.Anadir: IBizAsiento;
|
||||
var
|
||||
AAsiento : IBizAsiento;
|
||||
begin
|
||||
AAsiento := FDataModule.GetAsientoItem(ID_NULO);
|
||||
AAsiento.DataTable.Active := True;
|
||||
AAsiento.Insert;
|
||||
AAsiento.ORDEN := NumOrden;
|
||||
Result := AAsiento;
|
||||
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;
|
||||
begin
|
||||
FDataModule := TDataModuleContabilidad.Create(Nil);
|
||||
@ -77,10 +98,65 @@ begin
|
||||
Result := FDataModule.GetAsientoItem(ID);
|
||||
end;
|
||||
|
||||
function TAsientosController.BuscarDiario: IBizDiario;
|
||||
function TAsientosController.BuscarAsientos(IdSubCuenta: Integer = -1): IBizDiario;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
|
||||
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);
|
||||
|
||||
// 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;
|
||||
|
||||
constructor TAsientosController.Create;
|
||||
@ -143,12 +219,15 @@ begin
|
||||
if AAsiento.FECHA_ASIENTOIsNull then
|
||||
raise Exception.Create('Debe indicar una fecha para este Asiento.');
|
||||
|
||||
if AAsiento.ORDENIsNull then
|
||||
raise Exception.Create('Debe indicar un número de orden para este Asiento.');
|
||||
// if AAsiento.ORDENIsNull then
|
||||
// raise Exception.Create('Debe indicar un número de orden para este Asiento.');
|
||||
|
||||
//Tambien validamos los detalles del asiento
|
||||
with TApuntesController.Create do
|
||||
ValidarApunte(AAsiento.Apuntes);
|
||||
begin
|
||||
ValidarApunte(AAsiento.Apuntes);
|
||||
Free;
|
||||
end;
|
||||
|
||||
// if Length(AAsiento.CONCEPTO) = 0 then
|
||||
// raise Exception.Create('Debe indicar un concepto para este Asiento.');
|
||||
@ -199,6 +278,27 @@ begin
|
||||
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;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
@ -506,6 +506,11 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
|
||||
item
|
||||
Name = 'ID_PAGO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
@ -551,6 +556,11 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
|
||||
DisplayLabel = 'Diario_ID_PAGO'
|
||||
DictionaryEntry = 'Diario_ID_PAGO'
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
end
|
||||
item
|
||||
Name = 'ORDEN_ASIENTO'
|
||||
DataType = datInteger
|
||||
@ -622,6 +632,14 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
|
||||
DataType = datSmallInt
|
||||
DisplayLabel = 'Diario_PUNTEADO'
|
||||
DictionaryEntry = 'Diario_PUNTEADO'
|
||||
end
|
||||
item
|
||||
Name = 'SALDO'
|
||||
DataType = datCurrency
|
||||
LogChanges = False
|
||||
DisplayLabel = 'Saldo'
|
||||
Alignment = taRightJustify
|
||||
Calculated = True
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -43,7 +43,8 @@ type
|
||||
function GetSubCuentaItems: IBizSubCuenta;
|
||||
function GetSubCuentaItem(const ID: Integer): IBizSubCuenta;
|
||||
function NewSubCuentaItem : IBizSubCuenta;
|
||||
function GetDiarioItems: IBizDiario;
|
||||
function GetAsientosDiarioItems: IBizDiario;
|
||||
function GetExtractoMovimientosItems: IBizExtractoMovimiento;
|
||||
function GetAsientoItem(const ID : Integer): IBizAsiento;
|
||||
function GetCuentaEspecialItems: IBizCuentaEspecial;
|
||||
function GetBalanceItems: IBizBalance;
|
||||
@ -99,7 +100,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleContabilidad.GetDiarioItems: IBizDiario;
|
||||
function TDataModuleContabilidad.GetAsientosDiarioItems: IBizDiario;
|
||||
var
|
||||
ADiario : TDAMemDataTable;
|
||||
begin
|
||||
@ -169,6 +170,21 @@ begin
|
||||
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;
|
||||
var
|
||||
ASubCuenta : TDAMemDataTable;
|
||||
|
||||
@ -16,7 +16,8 @@ type
|
||||
function GetSubCuentaItems: IBizSubCuenta;
|
||||
function GetSubCuentaItem(const ID: Integer): IBizSubCuenta;
|
||||
function NewSubCuentaItem : IBizSubCuenta;
|
||||
function GetDiarioItems: IBizDiario;
|
||||
function GetAsientosDiarioItems: IBizDiario;
|
||||
function GetExtractoMovimientosItems: IBizExtractoMovimiento;
|
||||
function GetAsientoItem(const ID : Integer): IBizAsiento;
|
||||
end;
|
||||
|
||||
|
||||
@ -9,23 +9,25 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_DarIDCuenta = '{62580F41-3FD3-42D1-9D19-D5088B529E2B}';
|
||||
RID_DarCodigoContableTienda = '{18EAEDB3-6482-4451-9F51-1771AFB07AF9}';
|
||||
RID_DarMaxRefSubCuenta = '{28A1162D-F15C-4533-81F0-49C61A40C975}';
|
||||
RID_ExisteSubCuenta = '{33F3DD94-075A-4EF5-A9D7-901A5B762506}';
|
||||
RID_Diario = '{08A2E65A-5D6A-47F9-834F-F764900C9DD9}';
|
||||
RID_Apuntes = '{70944570-6902-4449-B652-FF4F8F36FF63}';
|
||||
RID_Asientos = '{78A6C952-897F-4CD4-89CF-D408E25D418E}';
|
||||
RID_SubCuentas = '{24E41EBC-DC48-41D9-ABD4-3088FF741164}';
|
||||
RID_Cuentas = '{ACD17A3C-67D7-4172-9EBB-FA43A71ED2C7}';
|
||||
RID_CuentasEspeciales = '{5580C0E4-5554-40C5-8570-06C452D132C4}';
|
||||
RID_Epigrafes = '{5437D981-0F48-4A14-B31C-2FFCDE1C9F8D}';
|
||||
RID_Balances = '{2D6831A6-A078-472A-A870-8BAA551696E8}';
|
||||
RID_DarIDCuenta = '{F20E3431-4AD6-442E-978E-BD5DC04DF357}';
|
||||
RID_DarCodigoContableTienda = '{3BA1A823-E5A4-4FAC-A78A-ECF457D57173}';
|
||||
RID_DarMaxRefSubCuentaProv = '{AE364C91-C829-4AF9-8146-1DA3E9291B40}';
|
||||
RID_ExisteSubCuenta = '{B7212610-DF33-441B-91EB-01A6C4851991}';
|
||||
RID_Diario = '{1522637C-8E18-4E3D-8136-87488C0665CC}';
|
||||
RID_Apuntes = '{F1890C23-1E41-4B6A-AD7B-A48FD87A45CF}';
|
||||
RID_Asientos = '{355862A4-0318-4A56-ACBB-800FD3AC63B0}';
|
||||
RID_SubCuentas = '{DBA9026B-5657-45A8-8132-D20BA0A7A2F9}';
|
||||
RID_Cuentas = '{441DF5A0-959E-4860-87BE-4F4CCD747047}';
|
||||
RID_CuentasEspeciales = '{8DB618C9-EA42-49F0-A75B-FE51F1F7A0C4}';
|
||||
RID_Epigrafes = '{66E2FBD3-8DA1-48AA-A7ED-C0A8ED011DA6}';
|
||||
RID_Balances = '{06C8D640-0690-4620-9F99-8745B91B249E}';
|
||||
RID_DarMaxRefSubCuentaCli = '{DEFF4707-42F7-48C7-9A68-B55A53FDCA21}';
|
||||
RID_DarNumOrdenAsiento = '{91A031A1-CE35-4338-8468-7A303D76C58B}';
|
||||
|
||||
{ Data table names }
|
||||
nme_DarIDCuenta = 'DarIDCuenta';
|
||||
nme_DarCodigoContableTienda = 'DarCodigoContableTienda';
|
||||
nme_DarMaxRefSubCuenta = 'DarMaxRefSubCuenta';
|
||||
nme_DarMaxRefSubCuentaProv = 'DarMaxRefSubCuentaProv';
|
||||
nme_ExisteSubCuenta = 'ExisteSubCuenta';
|
||||
nme_Diario = 'Diario';
|
||||
nme_Apuntes = 'Apuntes';
|
||||
@ -35,6 +37,8 @@ const
|
||||
nme_CuentasEspeciales = 'CuentasEspeciales';
|
||||
nme_Epigrafes = 'Epigrafes';
|
||||
nme_Balances = 'Balances';
|
||||
nme_DarMaxRefSubCuentaCli = 'DarMaxRefSubCuentaCli';
|
||||
nme_DarNumOrdenAsiento = 'DarNumOrdenAsiento';
|
||||
|
||||
{ DarIDCuenta fields }
|
||||
fld_DarIDCuentaID = 'ID';
|
||||
@ -48,11 +52,11 @@ const
|
||||
{ DarCodigoContableTienda field indexes }
|
||||
idx_DarCodigoContableTiendaCODIGO_CONTABLE = 0;
|
||||
|
||||
{ DarMaxRefSubCuenta fields }
|
||||
fld_DarMaxRefSubCuentaMAX = 'MAX';
|
||||
{ DarMaxRefSubCuentaProv fields }
|
||||
fld_DarMaxRefSubCuentaProvMAX = 'MAX';
|
||||
|
||||
{ DarMaxRefSubCuenta field indexes }
|
||||
idx_DarMaxRefSubCuentaMAX = 0;
|
||||
{ DarMaxRefSubCuentaProv field indexes }
|
||||
idx_DarMaxRefSubCuentaProvMAX = 0;
|
||||
|
||||
{ ExisteSubCuenta fields }
|
||||
fld_ExisteSubCuentaCOUNT = 'COUNT';
|
||||
@ -65,6 +69,7 @@ const
|
||||
fld_DiarioID_ASIENTO = 'ID_ASIENTO';
|
||||
fld_DiarioID_FACTURA = 'ID_FACTURA';
|
||||
fld_DiarioID_PAGO = 'ID_PAGO';
|
||||
fld_DiarioTIPO = 'TIPO';
|
||||
fld_DiarioORDEN_ASIENTO = 'ORDEN_ASIENTO';
|
||||
fld_DiarioFECHA_ASIENTO = 'FECHA_ASIENTO';
|
||||
fld_DiarioID_SUBCUENTA = 'ID_SUBCUENTA';
|
||||
@ -76,23 +81,26 @@ const
|
||||
fld_DiarioDEBE = 'DEBE';
|
||||
fld_DiarioHABER = 'HABER';
|
||||
fld_DiarioPUNTEADO = 'PUNTEADO';
|
||||
fld_DiarioSALDO = 'SALDO';
|
||||
|
||||
{ Diario field indexes }
|
||||
idx_DiarioID_APUNTE = 0;
|
||||
idx_DiarioID_ASIENTO = 1;
|
||||
idx_DiarioID_FACTURA = 2;
|
||||
idx_DiarioID_PAGO = 3;
|
||||
idx_DiarioORDEN_ASIENTO = 4;
|
||||
idx_DiarioFECHA_ASIENTO = 5;
|
||||
idx_DiarioID_SUBCUENTA = 6;
|
||||
idx_DiarioREF_SUBCUENTA = 7;
|
||||
idx_DiarioSUBCUENTA = 8;
|
||||
idx_DiarioID_EJERCICIO = 9;
|
||||
idx_DiarioCONCEPTO = 10;
|
||||
idx_DiarioDOCUMENTO = 11;
|
||||
idx_DiarioDEBE = 12;
|
||||
idx_DiarioHABER = 13;
|
||||
idx_DiarioPUNTEADO = 14;
|
||||
idx_DiarioTIPO = 4;
|
||||
idx_DiarioORDEN_ASIENTO = 5;
|
||||
idx_DiarioFECHA_ASIENTO = 6;
|
||||
idx_DiarioID_SUBCUENTA = 7;
|
||||
idx_DiarioREF_SUBCUENTA = 8;
|
||||
idx_DiarioSUBCUENTA = 9;
|
||||
idx_DiarioID_EJERCICIO = 10;
|
||||
idx_DiarioCONCEPTO = 11;
|
||||
idx_DiarioDOCUMENTO = 12;
|
||||
idx_DiarioDEBE = 13;
|
||||
idx_DiarioHABER = 14;
|
||||
idx_DiarioPUNTEADO = 15;
|
||||
idx_DiarioSALDO = 16;
|
||||
|
||||
{ Apuntes fields }
|
||||
fld_ApuntesID = 'ID';
|
||||
@ -126,6 +134,7 @@ const
|
||||
fld_AsientosORDEN = 'ORDEN';
|
||||
fld_AsientosID_FACTURA = 'ID_FACTURA';
|
||||
fld_AsientosID_PAGO = 'ID_PAGO';
|
||||
fld_AsientosTIPO = 'TIPO';
|
||||
|
||||
{ Asientos field indexes }
|
||||
idx_AsientosID = 0;
|
||||
@ -133,6 +142,7 @@ const
|
||||
idx_AsientosORDEN = 2;
|
||||
idx_AsientosID_FACTURA = 3;
|
||||
idx_AsientosID_PAGO = 4;
|
||||
idx_AsientosTIPO = 5;
|
||||
|
||||
{ SubCuentas fields }
|
||||
fld_SubCuentasID = 'ID';
|
||||
@ -232,10 +242,22 @@ const
|
||||
idx_BalancesNIVEL3 = 7;
|
||||
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
|
||||
{ IDarIDCuenta }
|
||||
IDarIDCuenta = interface(IDAStronglyTypedDataTable)
|
||||
['{9F0EA8D0-D45B-4DD6-9166-9A2FAB0B3F43}']
|
||||
['{F543F835-B1D5-4042-8804-B1F8762DC2A7}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -270,7 +292,7 @@ type
|
||||
|
||||
{ IDarCodigoContableTienda }
|
||||
IDarCodigoContableTienda = interface(IDAStronglyTypedDataTable)
|
||||
['{D35B0C64-3AC6-4B58-9BF4-2C7F11A9A191}']
|
||||
['{B1D800BF-8EAD-4CF0-B0D5-0573104D04F7}']
|
||||
{ Property getters and setters }
|
||||
function GetCODIGO_CONTABLEValue: String;
|
||||
procedure SetCODIGO_CONTABLEValue(const aValue: String);
|
||||
@ -303,9 +325,9 @@ type
|
||||
|
||||
end;
|
||||
|
||||
{ IDarMaxRefSubCuenta }
|
||||
IDarMaxRefSubCuenta = interface(IDAStronglyTypedDataTable)
|
||||
['{E3C5A87F-0B25-4719-A2D2-D1B3EDFF22AA}']
|
||||
{ IDarMaxRefSubCuentaProv }
|
||||
IDarMaxRefSubCuentaProv = interface(IDAStronglyTypedDataTable)
|
||||
['{65D3E6E4-1068-467D-ABB1-8A9B80AF1C16}']
|
||||
{ Property getters and setters }
|
||||
function GetMAXValue: Integer;
|
||||
procedure SetMAXValue(const aValue: Integer);
|
||||
@ -318,8 +340,8 @@ type
|
||||
property MAXIsNull: Boolean read GetMAXIsNull write SetMAXIsNull;
|
||||
end;
|
||||
|
||||
{ TDarMaxRefSubCuentaDataTableRules }
|
||||
TDarMaxRefSubCuentaDataTableRules = class(TIntfObjectDADataTableRules, IDarMaxRefSubCuenta)
|
||||
{ TDarMaxRefSubCuentaProvDataTableRules }
|
||||
TDarMaxRefSubCuentaProvDataTableRules = class(TIntfObjectDADataTableRules, IDarMaxRefSubCuentaProv)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -340,7 +362,7 @@ type
|
||||
|
||||
{ IExisteSubCuenta }
|
||||
IExisteSubCuenta = interface(IDAStronglyTypedDataTable)
|
||||
['{634595DB-2DF1-458B-B2FC-0AF5FCD93E82}']
|
||||
['{3E144142-E6B8-4F81-8BC2-F4D7D0599EAB}']
|
||||
{ Property getters and setters }
|
||||
function GetCOUNTValue: Integer;
|
||||
procedure SetCOUNTValue(const aValue: Integer);
|
||||
@ -375,7 +397,7 @@ type
|
||||
|
||||
{ IDiario }
|
||||
IDiario = interface(IDAStronglyTypedDataTable)
|
||||
['{3E328181-3908-4A59-AEAC-B669B49E0B9C}']
|
||||
['{3E5CE58E-5ED0-4BF7-88E0-E3A8D42F82AC}']
|
||||
{ Property getters and setters }
|
||||
function GetID_APUNTEValue: Integer;
|
||||
procedure SetID_APUNTEValue(const aValue: Integer);
|
||||
@ -393,6 +415,10 @@ type
|
||||
procedure SetID_PAGOValue(const aValue: Integer);
|
||||
function GetID_PAGOIsNull: 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;
|
||||
procedure SetORDEN_ASIENTOValue(const aValue: Integer);
|
||||
function GetORDEN_ASIENTOIsNull: Boolean;
|
||||
@ -437,6 +463,10 @@ type
|
||||
procedure SetPUNTEADOValue(const aValue: SmallInt);
|
||||
function GetPUNTEADOIsNull: Boolean;
|
||||
procedure SetPUNTEADOIsNull(const aValue: Boolean);
|
||||
function GetSALDOValue: Currency;
|
||||
procedure SetSALDOValue(const aValue: Currency);
|
||||
function GetSALDOIsNull: Boolean;
|
||||
procedure SetSALDOIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -448,6 +478,8 @@ type
|
||||
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
|
||||
property ID_PAGO: Integer read GetID_PAGOValue write SetID_PAGOValue;
|
||||
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_ASIENTOIsNull: Boolean read GetORDEN_ASIENTOIsNull write SetORDEN_ASIENTOIsNull;
|
||||
property FECHA_ASIENTO: DateTime read GetFECHA_ASIENTOValue write SetFECHA_ASIENTOValue;
|
||||
@ -470,6 +502,8 @@ type
|
||||
property HABERIsNull: Boolean read GetHABERIsNull write SetHABERIsNull;
|
||||
property PUNTEADO: SmallInt read GetPUNTEADOValue write SetPUNTEADOValue;
|
||||
property PUNTEADOIsNull: Boolean read GetPUNTEADOIsNull write SetPUNTEADOIsNull;
|
||||
property SALDO: Currency read GetSALDOValue write SetSALDOValue;
|
||||
property SALDOIsNull: Boolean read GetSALDOIsNull write SetSALDOIsNull;
|
||||
end;
|
||||
|
||||
{ TDiarioDataTableRules }
|
||||
@ -493,6 +527,10 @@ type
|
||||
procedure SetID_PAGOValue(const aValue: Integer); virtual;
|
||||
function GetID_PAGOIsNull: 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;
|
||||
procedure SetORDEN_ASIENTOValue(const aValue: Integer); virtual;
|
||||
function GetORDEN_ASIENTOIsNull: Boolean; virtual;
|
||||
@ -537,6 +575,10 @@ type
|
||||
procedure SetPUNTEADOValue(const aValue: SmallInt); virtual;
|
||||
function GetPUNTEADOIsNull: 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 }
|
||||
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_PAGO: Integer read GetID_PAGOValue write SetID_PAGOValue;
|
||||
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_ASIENTOIsNull: Boolean read GetORDEN_ASIENTOIsNull write SetORDEN_ASIENTOIsNull;
|
||||
property FECHA_ASIENTO: DateTime read GetFECHA_ASIENTOValue write SetFECHA_ASIENTOValue;
|
||||
@ -569,6 +613,8 @@ type
|
||||
property HABERIsNull: Boolean read GetHABERIsNull write SetHABERIsNull;
|
||||
property PUNTEADO: SmallInt read GetPUNTEADOValue write SetPUNTEADOValue;
|
||||
property PUNTEADOIsNull: Boolean read GetPUNTEADOIsNull write SetPUNTEADOIsNull;
|
||||
property SALDO: Currency read GetSALDOValue write SetSALDOValue;
|
||||
property SALDOIsNull: Boolean read GetSALDOIsNull write SetSALDOIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -578,7 +624,7 @@ type
|
||||
|
||||
{ IApuntes }
|
||||
IApuntes = interface(IDAStronglyTypedDataTable)
|
||||
['{2C752BCD-2FE5-4E3C-A994-21763634B4B4}']
|
||||
['{260C1901-EF6F-4E78-800D-44E7D2E0DA8E}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -733,7 +779,7 @@ type
|
||||
|
||||
{ IAsientos }
|
||||
IAsientos = interface(IDAStronglyTypedDataTable)
|
||||
['{C934D5E4-593C-44A8-AFE3-5D6E6AF7E945}']
|
||||
['{23328B9C-D6B6-478B-9E1C-208F334C2E4C}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -755,6 +801,10 @@ type
|
||||
procedure SetID_PAGOValue(const aValue: Integer);
|
||||
function GetID_PAGOIsNull: Boolean;
|
||||
procedure SetID_PAGOIsNull(const aValue: Boolean);
|
||||
function GetTIPOValue: String;
|
||||
procedure SetTIPOValue(const aValue: String);
|
||||
function GetTIPOIsNull: Boolean;
|
||||
procedure SetTIPOIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -768,6 +818,8 @@ type
|
||||
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
|
||||
property ID_PAGO: Integer read GetID_PAGOValue write SetID_PAGOValue;
|
||||
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;
|
||||
|
||||
{ TAsientosDataTableRules }
|
||||
@ -795,6 +847,10 @@ type
|
||||
procedure SetID_PAGOValue(const aValue: Integer); virtual;
|
||||
function GetID_PAGOIsNull: 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 }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -807,6 +863,8 @@ type
|
||||
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
|
||||
property ID_PAGO: Integer read GetID_PAGOValue write SetID_PAGOValue;
|
||||
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
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -816,7 +874,7 @@ type
|
||||
|
||||
{ ISubCuentas }
|
||||
ISubCuentas = interface(IDAStronglyTypedDataTable)
|
||||
['{E41AB2AB-D4B5-4856-A973-AA1E965D808E}']
|
||||
['{F9797AE2-CAA8-414C-A147-1DF8201BBE08}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -971,7 +1029,7 @@ type
|
||||
|
||||
{ ICuentas }
|
||||
ICuentas = interface(IDAStronglyTypedDataTable)
|
||||
['{FEECE0E7-F491-4703-908B-B7DF3D7C34C9}']
|
||||
['{5A21169F-01D8-4994-AB78-14A2751E41D9}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1114,7 +1172,7 @@ type
|
||||
|
||||
{ ICuentasEspeciales }
|
||||
ICuentasEspeciales = interface(IDAStronglyTypedDataTable)
|
||||
['{038D2C36-A99D-4610-86BE-164FAB17D8AB}']
|
||||
['{08298F1B-97F2-46DE-A229-956C4A8035FF}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1173,7 +1231,7 @@ type
|
||||
|
||||
{ IEpigrafes }
|
||||
IEpigrafes = interface(IDAStronglyTypedDataTable)
|
||||
['{0947FB8E-C7C3-4368-BE6F-7C2E8075F640}']
|
||||
['{ACA9B7DE-A160-43FD-A610-FB7F0BEC3AD0}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1268,7 +1326,7 @@ type
|
||||
|
||||
{ IBalances }
|
||||
IBalances = interface(IDAStronglyTypedDataTable)
|
||||
['{DF56D273-9C7B-4311-A581-31E679681E5A}']
|
||||
['{427DC606-AF79-4D2E-AE75-C9A5C62A7AC9}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1397,6 +1455,76 @@ type
|
||||
|
||||
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
|
||||
|
||||
uses Variants, uROBinaryHelpers;
|
||||
@ -1467,36 +1595,36 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
{ TDarMaxRefSubCuentaDataTableRules }
|
||||
constructor TDarMaxRefSubCuentaDataTableRules.Create(aDataTable: TDADataTable);
|
||||
{ TDarMaxRefSubCuentaProvDataTableRules }
|
||||
constructor TDarMaxRefSubCuentaProvDataTableRules.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TDarMaxRefSubCuentaDataTableRules.Destroy;
|
||||
destructor TDarMaxRefSubCuentaProvDataTableRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TDarMaxRefSubCuentaDataTableRules.GetMAXValue: Integer;
|
||||
function TDarMaxRefSubCuentaProvDataTableRules.GetMAXValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_DarMaxRefSubCuentaMAX].AsInteger;
|
||||
result := DataTable.Fields[idx_DarMaxRefSubCuentaProvMAX].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TDarMaxRefSubCuentaDataTableRules.SetMAXValue(const aValue: Integer);
|
||||
procedure TDarMaxRefSubCuentaProvDataTableRules.SetMAXValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_DarMaxRefSubCuentaMAX].AsInteger := aValue;
|
||||
DataTable.Fields[idx_DarMaxRefSubCuentaProvMAX].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TDarMaxRefSubCuentaDataTableRules.GetMAXIsNull: boolean;
|
||||
function TDarMaxRefSubCuentaProvDataTableRules.GetMAXIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_DarMaxRefSubCuentaMAX].IsNull;
|
||||
result := DataTable.Fields[idx_DarMaxRefSubCuentaProvMAX].IsNull;
|
||||
end;
|
||||
|
||||
procedure TDarMaxRefSubCuentaDataTableRules.SetMAXIsNull(const aValue: Boolean);
|
||||
procedure TDarMaxRefSubCuentaProvDataTableRules.SetMAXIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_DarMaxRefSubCuentaMAX].AsVariant := Null;
|
||||
DataTable.Fields[idx_DarMaxRefSubCuentaProvMAX].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
@ -1628,6 +1756,27 @@ begin
|
||||
DataTable.Fields[idx_DiarioID_PAGO].AsVariant := Null;
|
||||
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;
|
||||
begin
|
||||
result := DataTable.Fields[idx_DiarioORDEN_ASIENTO].AsInteger;
|
||||
@ -1859,6 +2008,27 @@ begin
|
||||
DataTable.Fields[idx_DiarioPUNTEADO].AsVariant := Null;
|
||||
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 }
|
||||
constructor TApuntesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
@ -2219,6 +2389,27 @@ begin
|
||||
DataTable.Fields[idx_AsientosID_PAGO].AsVariant := Null;
|
||||
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 }
|
||||
constructor TSubCuentasDataTableRules.Create(aDataTable: TDADataTable);
|
||||
@ -3099,10 +3290,76 @@ begin
|
||||
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
|
||||
RegisterDataTableRules(RID_DarIDCuenta, TDarIDCuentaDataTableRules);
|
||||
RegisterDataTableRules(RID_DarCodigoContableTienda, TDarCodigoContableTiendaDataTableRules);
|
||||
RegisterDataTableRules(RID_DarMaxRefSubCuenta, TDarMaxRefSubCuentaDataTableRules);
|
||||
RegisterDataTableRules(RID_DarMaxRefSubCuentaProv, TDarMaxRefSubCuentaProvDataTableRules);
|
||||
RegisterDataTableRules(RID_ExisteSubCuenta, TExisteSubCuentaDataTableRules);
|
||||
RegisterDataTableRules(RID_Diario, TDiarioDataTableRules);
|
||||
RegisterDataTableRules(RID_Apuntes, TApuntesDataTableRules);
|
||||
@ -3112,5 +3369,7 @@ initialization
|
||||
RegisterDataTableRules(RID_CuentasEspeciales, TCuentasEspecialesDataTableRules);
|
||||
RegisterDataTableRules(RID_Epigrafes, TEpigrafesDataTableRules);
|
||||
RegisterDataTableRules(RID_Balances, TBalancesDataTableRules);
|
||||
RegisterDataTableRules(RID_DarMaxRefSubCuentaCli, TDarMaxRefSubCuentaCliDataTableRules);
|
||||
RegisterDataTableRules(RID_DarNumOrdenAsiento, TDarNumOrdenAsientoDataTableRules);
|
||||
|
||||
end.
|
||||
|
||||
@ -9,23 +9,25 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_DarIDCuentaDelta = '{E61FFC34-78E1-4E47-873B-26A3866D714B}';
|
||||
RID_DarCodigoContableTiendaDelta = '{9B4CCB90-6621-48DE-83B9-C1EE6E9A3DC6}';
|
||||
RID_DarMaxRefSubCuentaDelta = '{23178B29-2EFE-41DA-BCFF-0B12BB3BF392}';
|
||||
RID_ExisteSubCuentaDelta = '{448B8958-98BA-4340-8D03-FDD4817E637B}';
|
||||
RID_DiarioDelta = '{699B3B97-2CC2-429A-B275-63EAB604D199}';
|
||||
RID_ApuntesDelta = '{CC4B622A-A26E-41A5-ACDC-D838185BB681}';
|
||||
RID_AsientosDelta = '{5FC14F81-E72E-4662-80EC-38459AB23915}';
|
||||
RID_SubCuentasDelta = '{FC32F9F6-0BC4-4BDC-8307-A47786D2E601}';
|
||||
RID_CuentasDelta = '{F030EAB1-8B4B-4E20-B8D9-BD41747561BC}';
|
||||
RID_CuentasEspecialesDelta = '{BDC3E113-F48D-459C-9208-C3502377511B}';
|
||||
RID_EpigrafesDelta = '{5099CA22-0F27-46FD-8B3A-C0C518E73AD7}';
|
||||
RID_BalancesDelta = '{348A53C4-FD53-4F33-9FC7-61369195ADEC}';
|
||||
RID_DarIDCuentaDelta = '{4A8D8FA0-0EEF-4491-BFB4-799375FF5528}';
|
||||
RID_DarCodigoContableTiendaDelta = '{4E3CF1AC-F8CB-4D95-B44F-5554F384A7A4}';
|
||||
RID_DarMaxRefSubCuentaProvDelta = '{F3BD2639-0408-456A-93C0-DF43CBB10A0A}';
|
||||
RID_ExisteSubCuentaDelta = '{2D136513-7A96-4A3D-9DA6-2A8822F53748}';
|
||||
RID_DiarioDelta = '{DC0F4316-FAF1-4DD1-8682-66E915811023}';
|
||||
RID_ApuntesDelta = '{F2EDB86B-74A8-4A52-8157-2692165612C9}';
|
||||
RID_AsientosDelta = '{35612FDC-F9CE-467A-A2E8-0D26DC3AD200}';
|
||||
RID_SubCuentasDelta = '{6E660749-3293-4E06-96AB-A11049C7C342}';
|
||||
RID_CuentasDelta = '{018CF9CE-E675-40D9-A9E4-F8575423D2DB}';
|
||||
RID_CuentasEspecialesDelta = '{6C17A277-C23B-45F2-9815-F5B231A52442}';
|
||||
RID_EpigrafesDelta = '{7164D494-BF70-459F-A6D1-71A368ACB6D6}';
|
||||
RID_BalancesDelta = '{B7E31CED-2229-4BED-8AA5-F00D8642478B}';
|
||||
RID_DarMaxRefSubCuentaCliDelta = '{B3246BC2-0498-4F96-B2E1-939CD9179F02}';
|
||||
RID_DarNumOrdenAsientoDelta = '{1751D5F8-1A96-4208-BFE1-074E99A36D4F}';
|
||||
|
||||
type
|
||||
{ IDarIDCuentaDelta }
|
||||
IDarIDCuentaDelta = interface(IDarIDCuenta)
|
||||
['{E61FFC34-78E1-4E47-873B-26A3866D714B}']
|
||||
['{4A8D8FA0-0EEF-4491-BFB4-799375FF5528}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
|
||||
@ -59,7 +61,7 @@ type
|
||||
|
||||
{ IDarCodigoContableTiendaDelta }
|
||||
IDarCodigoContableTiendaDelta = interface(IDarCodigoContableTienda)
|
||||
['{9B4CCB90-6621-48DE-83B9-C1EE6E9A3DC6}']
|
||||
['{4E3CF1AC-F8CB-4D95-B44F-5554F384A7A4}']
|
||||
{ Property getters and setters }
|
||||
function GetOldCODIGO_CONTABLEValue : String;
|
||||
|
||||
@ -91,9 +93,9 @@ type
|
||||
|
||||
end;
|
||||
|
||||
{ IDarMaxRefSubCuentaDelta }
|
||||
IDarMaxRefSubCuentaDelta = interface(IDarMaxRefSubCuenta)
|
||||
['{23178B29-2EFE-41DA-BCFF-0B12BB3BF392}']
|
||||
{ IDarMaxRefSubCuentaProvDelta }
|
||||
IDarMaxRefSubCuentaProvDelta = interface(IDarMaxRefSubCuentaProv)
|
||||
['{F3BD2639-0408-456A-93C0-DF43CBB10A0A}']
|
||||
{ Property getters and setters }
|
||||
function GetOldMAXValue : Integer;
|
||||
|
||||
@ -101,8 +103,8 @@ type
|
||||
property OldMAX : Integer read GetOldMAXValue;
|
||||
end;
|
||||
|
||||
{ TDarMaxRefSubCuentaBusinessProcessorRules }
|
||||
TDarMaxRefSubCuentaBusinessProcessorRules = class(TDABusinessProcessorRules, IDarMaxRefSubCuenta, IDarMaxRefSubCuentaDelta)
|
||||
{ TDarMaxRefSubCuentaProvBusinessProcessorRules }
|
||||
TDarMaxRefSubCuentaProvBusinessProcessorRules = class(TDABusinessProcessorRules, IDarMaxRefSubCuentaProv, IDarMaxRefSubCuentaProvDelta)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -127,7 +129,7 @@ type
|
||||
|
||||
{ IExisteSubCuentaDelta }
|
||||
IExisteSubCuentaDelta = interface(IExisteSubCuenta)
|
||||
['{448B8958-98BA-4340-8D03-FDD4817E637B}']
|
||||
['{2D136513-7A96-4A3D-9DA6-2A8822F53748}']
|
||||
{ Property getters and setters }
|
||||
function GetOldCOUNTValue : Integer;
|
||||
|
||||
@ -161,12 +163,13 @@ type
|
||||
|
||||
{ IDiarioDelta }
|
||||
IDiarioDelta = interface(IDiario)
|
||||
['{699B3B97-2CC2-429A-B275-63EAB604D199}']
|
||||
['{DC0F4316-FAF1-4DD1-8682-66E915811023}']
|
||||
{ Property getters and setters }
|
||||
function GetOldID_APUNTEValue : Integer;
|
||||
function GetOldID_ASIENTOValue : Integer;
|
||||
function GetOldID_FACTURAValue : Integer;
|
||||
function GetOldID_PAGOValue : Integer;
|
||||
function GetOldTIPOValue : String;
|
||||
function GetOldORDEN_ASIENTOValue : Integer;
|
||||
function GetOldFECHA_ASIENTOValue : DateTime;
|
||||
function GetOldID_SUBCUENTAValue : Integer;
|
||||
@ -178,12 +181,14 @@ type
|
||||
function GetOldDEBEValue : Currency;
|
||||
function GetOldHABERValue : Currency;
|
||||
function GetOldPUNTEADOValue : SmallInt;
|
||||
function GetOldSALDOValue : Currency;
|
||||
|
||||
{ Properties }
|
||||
property OldID_APUNTE : Integer read GetOldID_APUNTEValue;
|
||||
property OldID_ASIENTO : Integer read GetOldID_ASIENTOValue;
|
||||
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
|
||||
property OldID_PAGO : Integer read GetOldID_PAGOValue;
|
||||
property OldTIPO : String read GetOldTIPOValue;
|
||||
property OldORDEN_ASIENTO : Integer read GetOldORDEN_ASIENTOValue;
|
||||
property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue;
|
||||
property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
|
||||
@ -195,6 +200,7 @@ type
|
||||
property OldDEBE : Currency read GetOldDEBEValue;
|
||||
property OldHABER : Currency read GetOldHABERValue;
|
||||
property OldPUNTEADO : SmallInt read GetOldPUNTEADOValue;
|
||||
property OldSALDO : Currency read GetOldSALDOValue;
|
||||
end;
|
||||
|
||||
{ TDiarioBusinessProcessorRules }
|
||||
@ -226,6 +232,12 @@ type
|
||||
function GetOldID_PAGOIsNull: Boolean; virtual;
|
||||
procedure SetID_PAGOValue(const aValue: Integer); 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_ASIENTOIsNull: Boolean; virtual;
|
||||
function GetOldORDEN_ASIENTOValue: Integer; virtual;
|
||||
@ -292,6 +304,12 @@ type
|
||||
function GetOldPUNTEADOIsNull: Boolean; virtual;
|
||||
procedure SetPUNTEADOValue(const aValue: SmallInt); 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 }
|
||||
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 OldID_PAGO : Integer read GetOldID_PAGOValue;
|
||||
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_ASIENTOIsNull : Boolean read GetORDEN_ASIENTOIsNull write SetORDEN_ASIENTOIsNull;
|
||||
property OldORDEN_ASIENTO : Integer read GetOldORDEN_ASIENTOValue;
|
||||
@ -354,6 +376,10 @@ type
|
||||
property PUNTEADOIsNull : Boolean read GetPUNTEADOIsNull write SetPUNTEADOIsNull;
|
||||
property OldPUNTEADO : SmallInt read GetOldPUNTEADOValue;
|
||||
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
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -363,7 +389,7 @@ type
|
||||
|
||||
{ IApuntesDelta }
|
||||
IApuntesDelta = interface(IApuntes)
|
||||
['{CC4B622A-A26E-41A5-ACDC-D838185BB681}']
|
||||
['{F2EDB86B-74A8-4A52-8157-2692165612C9}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_ASIENTOValue : Integer;
|
||||
@ -517,13 +543,14 @@ type
|
||||
|
||||
{ IAsientosDelta }
|
||||
IAsientosDelta = interface(IAsientos)
|
||||
['{5FC14F81-E72E-4662-80EC-38459AB23915}']
|
||||
['{35612FDC-F9CE-467A-A2E8-0D26DC3AD200}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldFECHA_ASIENTOValue : DateTime;
|
||||
function GetOldORDENValue : Integer;
|
||||
function GetOldID_FACTURAValue : Integer;
|
||||
function GetOldID_PAGOValue : Integer;
|
||||
function GetOldTIPOValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -531,6 +558,7 @@ type
|
||||
property OldORDEN : Integer read GetOldORDENValue;
|
||||
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
|
||||
property OldID_PAGO : Integer read GetOldID_PAGOValue;
|
||||
property OldTIPO : String read GetOldTIPOValue;
|
||||
end;
|
||||
|
||||
{ TAsientosBusinessProcessorRules }
|
||||
@ -568,6 +596,12 @@ type
|
||||
function GetOldID_PAGOIsNull: Boolean; virtual;
|
||||
procedure SetID_PAGOValue(const aValue: Integer); 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 }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -590,6 +624,10 @@ type
|
||||
property ID_PAGOIsNull : Boolean read GetID_PAGOIsNull write SetID_PAGOIsNull;
|
||||
property OldID_PAGO : Integer read GetOldID_PAGOValue;
|
||||
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
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -599,7 +637,7 @@ type
|
||||
|
||||
{ ISubCuentasDelta }
|
||||
ISubCuentasDelta = interface(ISubCuentas)
|
||||
['{FC32F9F6-0BC4-4BDC-8307-A47786D2E601}']
|
||||
['{6E660749-3293-4E06-96AB-A11049C7C342}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREF_SUBCUENTAValue : String;
|
||||
@ -753,7 +791,7 @@ type
|
||||
|
||||
{ ICuentasDelta }
|
||||
ICuentasDelta = interface(ICuentas)
|
||||
['{F030EAB1-8B4B-4E20-B8D9-BD41747561BC}']
|
||||
['{018CF9CE-E675-40D9-A9E4-F8575423D2DB}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREF_CUENTAValue : String;
|
||||
@ -895,7 +933,7 @@ type
|
||||
|
||||
{ ICuentasEspecialesDelta }
|
||||
ICuentasEspecialesDelta = interface(ICuentasEspeciales)
|
||||
['{BDC3E113-F48D-459C-9208-C3502377511B}']
|
||||
['{6C17A277-C23B-45F2-9815-F5B231A52442}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
@ -953,7 +991,7 @@ type
|
||||
|
||||
{ IEpigrafesDelta }
|
||||
IEpigrafesDelta = interface(IEpigrafes)
|
||||
['{5099CA22-0F27-46FD-8B3A-C0C518E73AD7}']
|
||||
['{7164D494-BF70-459F-A6D1-71A368ACB6D6}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREF_EPIGRAFEValue : String;
|
||||
@ -1047,7 +1085,7 @@ type
|
||||
|
||||
{ IBalancesDelta }
|
||||
IBalancesDelta = interface(IBalances)
|
||||
['{348A53C4-FD53-4F33-9FC7-61369195ADEC}']
|
||||
['{B7E31CED-2229-4BED-8AA5-F00D8642478B}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREF_BALANCEValue : String;
|
||||
@ -1175,6 +1213,74 @@ type
|
||||
|
||||
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
|
||||
|
||||
uses
|
||||
@ -1266,46 +1372,46 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
{ TDarMaxRefSubCuentaBusinessProcessorRules }
|
||||
constructor TDarMaxRefSubCuentaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
{ TDarMaxRefSubCuentaProvBusinessProcessorRules }
|
||||
constructor TDarMaxRefSubCuentaProvBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TDarMaxRefSubCuentaBusinessProcessorRules.Destroy;
|
||||
destructor TDarMaxRefSubCuentaProvBusinessProcessorRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TDarMaxRefSubCuentaBusinessProcessorRules.GetMAXValue: Integer;
|
||||
function TDarMaxRefSubCuentaProvBusinessProcessorRules.GetMAXValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaMAX];
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaProvMAX];
|
||||
end;
|
||||
|
||||
function TDarMaxRefSubCuentaBusinessProcessorRules.GetMAXIsNull: Boolean;
|
||||
function TDarMaxRefSubCuentaProvBusinessProcessorRules.GetMAXIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaMAX]);
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaProvMAX]);
|
||||
end;
|
||||
|
||||
function TDarMaxRefSubCuentaBusinessProcessorRules.GetOldMAXValue: Integer;
|
||||
function TDarMaxRefSubCuentaProvBusinessProcessorRules.GetOldMAXValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarMaxRefSubCuentaMAX];
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarMaxRefSubCuentaProvMAX];
|
||||
end;
|
||||
|
||||
function TDarMaxRefSubCuentaBusinessProcessorRules.GetOldMAXIsNull: Boolean;
|
||||
function TDarMaxRefSubCuentaProvBusinessProcessorRules.GetOldMAXIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DarMaxRefSubCuentaMAX]);
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DarMaxRefSubCuentaProvMAX]);
|
||||
end;
|
||||
|
||||
procedure TDarMaxRefSubCuentaBusinessProcessorRules.SetMAXValue(const aValue: Integer);
|
||||
procedure TDarMaxRefSubCuentaProvBusinessProcessorRules.SetMAXValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaMAX] := aValue;
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaProvMAX] := aValue;
|
||||
end;
|
||||
|
||||
procedure TDarMaxRefSubCuentaBusinessProcessorRules.SetMAXIsNull(const aValue: Boolean);
|
||||
procedure TDarMaxRefSubCuentaProvBusinessProcessorRules.SetMAXIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaMAX] := Null;
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaProvMAX] := Null;
|
||||
end;
|
||||
|
||||
|
||||
@ -1487,6 +1593,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_PAGO] := Null;
|
||||
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;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioORDEN_ASIENTO];
|
||||
@ -1828,6 +1965,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioPUNTEADO] := Null;
|
||||
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 }
|
||||
constructor TApuntesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
@ -2348,6 +2516,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_PAGO] := Null;
|
||||
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 }
|
||||
constructor TSubCuentasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
@ -3618,10 +3817,96 @@ begin
|
||||
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
|
||||
RegisterBusinessProcessorRules(RID_DarIDCuentaDelta, TDarIDCuentaBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_DarCodigoContableTiendaDelta, TDarCodigoContableTiendaBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_DarMaxRefSubCuentaDelta, TDarMaxRefSubCuentaBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_DarMaxRefSubCuentaProvDelta, TDarMaxRefSubCuentaProvBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_ExisteSubCuentaDelta, TExisteSubCuentaBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_DiarioDelta, TDiarioBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_ApuntesDelta, TApuntesBusinessProcessorRules);
|
||||
@ -3631,5 +3916,7 @@ initialization
|
||||
RegisterBusinessProcessorRules(RID_CuentasEspecialesDelta, TCuentasEspecialesBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_EpigrafesDelta, TEpigrafesBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_BalancesDelta, TBalancesBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_DarMaxRefSubCuentaCliDelta, TDarMaxRefSubCuentaCliBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_DarNumOrdenAsientoDelta, TDarNumOrdenAsientoBusinessProcessorRules);
|
||||
|
||||
end.
|
||||
|
||||
46
Source/Modulos/Contabilidad/Model/uBizAsientosServer.pas
Normal file
46
Source/Modulos/Contabilidad/Model/uBizAsientosServer.pas
Normal 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.
|
||||
@ -7,23 +7,150 @@ uses
|
||||
|
||||
const
|
||||
BIZ_CLIENT_Diario = 'Client.Diario';
|
||||
BIZ_CLIENT_EXTRACTOMOVIMIENTO = 'Client.ExtractoMovimiento';
|
||||
|
||||
type
|
||||
IBizDiario = interface(IDiario)
|
||||
['{E2924908-0B5A-43DD-B03E-672F592FA19B}']
|
||||
end;
|
||||
|
||||
IBizExtractoMovimiento = interface(IBizDiario)
|
||||
['{3875CC17-B845-430F-B537-4733C26956D0}']
|
||||
end;
|
||||
|
||||
TBizDiario = class(TDiarioDataTableRules, IBizDiario)
|
||||
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
|
||||
{ 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
|
||||
RegisterDataTableRules(BIZ_CLIENT_Diario, TBizDiario);
|
||||
RegisterDataTableRules(BIZ_CLIENT_EXTRACTOMOVIMIENTO, TBizExtractoMovimiento);
|
||||
|
||||
finalization
|
||||
|
||||
end.
|
||||
|
||||
|
||||
|
||||
@ -574,6 +574,33 @@ object PluginContabilidad: TPluginContabilidad
|
||||
426082}
|
||||
Name = 'PngImage6'
|
||||
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>
|
||||
Left = 232
|
||||
Top = 16
|
||||
@ -625,6 +652,13 @@ object PluginContabilidad: TPluginContabilidad
|
||||
OnExecute = actDiarioExecute
|
||||
OnUpdate = actDiarioUpdate
|
||||
end
|
||||
object actCajasBancos: TAction
|
||||
Category = 'Contabilidad'
|
||||
Caption = 'Cajas/Bancos'
|
||||
ImageIndex = 7
|
||||
OnExecute = actCajasBancosExecute
|
||||
OnUpdate = actCajasBancosUpdate
|
||||
end
|
||||
end
|
||||
object MainMenu: TMainMenu
|
||||
Images = LargeImages
|
||||
@ -653,6 +687,9 @@ object PluginContabilidad: TPluginContabilidad
|
||||
Action = actDiario
|
||||
SubMenuImages = SmallImages
|
||||
end
|
||||
object CajasBancos1: TMenuItem
|
||||
Action = actCajasBancos
|
||||
end
|
||||
end
|
||||
object Contabilidad2: TMenuItem
|
||||
Caption = 'Empresa'
|
||||
@ -1209,6 +1246,26 @@ object PluginContabilidad: TPluginContabilidad
|
||||
454E44AE426082}
|
||||
Name = 'PngImage6'
|
||||
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>
|
||||
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
|
||||
Left = 308
|
||||
@ -1684,6 +1741,39 @@ object PluginContabilidad: TPluginContabilidad
|
||||
FD53D0090000000049454E44AE426082}
|
||||
Name = 'PngImage5'
|
||||
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>
|
||||
Left = 232
|
||||
Top = 80
|
||||
|
||||
@ -32,6 +32,8 @@ type
|
||||
Subcuentas1: TMenuItem;
|
||||
actDiario: TAction;
|
||||
Asientos1: TMenuItem;
|
||||
actCajasBancos: TAction;
|
||||
CajasBancos1: TMenuItem;
|
||||
procedure actEpigrafesExecute(Sender: TObject);
|
||||
procedure actBalancesExecute(Sender: TObject);
|
||||
procedure actCuentasEspecialesExecute(Sender: TObject);
|
||||
@ -44,6 +46,8 @@ type
|
||||
procedure actCuentasEspecialesUpdate(Sender: TObject);
|
||||
procedure actSubCuentasUpdate(Sender: TObject);
|
||||
procedure actDiarioUpdate(Sender: TObject);
|
||||
procedure actCajasBancosExecute(Sender: TObject);
|
||||
procedure actCajasBancosUpdate(Sender: TObject);
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
@ -75,7 +79,7 @@ var
|
||||
ADiario : IBizDiario;
|
||||
begin
|
||||
AAsientosController := TAsientosController.Create;
|
||||
ADiario := (AAsientosController.BuscarDiario as IBizDiario);
|
||||
ADiario := (AAsientosController.BuscarAsientos as IBizDiario);
|
||||
AAsientosController.VerDiario(ADiario);
|
||||
end;
|
||||
|
||||
@ -99,6 +103,21 @@ begin
|
||||
(Sender as TAction).Enabled := Assigned(AppFactuGES.EjercicioActivo);
|
||||
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);
|
||||
var
|
||||
ACuentasEspecialesController : ICuentasEspecialesController;
|
||||
|
||||
@ -615,6 +615,10 @@ object srvContabilidad: TsrvContabilidad
|
||||
item
|
||||
DatasetField = 'SUBCUENTA'
|
||||
TableField = 'SUBCUENTA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TIPO'
|
||||
TableField = 'TIPO'
|
||||
end>
|
||||
end>
|
||||
Name = 'Diario'
|
||||
@ -640,6 +644,11 @@ object srvContabilidad: TsrvContabilidad
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Diario_ID_PAGO'
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
end
|
||||
item
|
||||
Name = 'ORDEN_ASIENTO'
|
||||
DataType = datInteger
|
||||
@ -698,6 +707,14 @@ object srvContabilidad: TsrvContabilidad
|
||||
Name = 'PUNTEADO'
|
||||
DataType = datSmallInt
|
||||
DictionaryEntry = 'Diario_PUNTEADO'
|
||||
end
|
||||
item
|
||||
Name = 'SALDO'
|
||||
DataType = datCurrency
|
||||
LogChanges = False
|
||||
DisplayLabel = 'Saldo'
|
||||
Alignment = taRightJustify
|
||||
Calculated = True
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -859,6 +876,10 @@ object srvContabilidad: TsrvContabilidad
|
||||
item
|
||||
DatasetField = 'ID_PAGO'
|
||||
TableField = 'ID_PAGO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TIPO'
|
||||
TableField = 'TIPO'
|
||||
end>
|
||||
end>
|
||||
Name = 'Asientos'
|
||||
@ -888,6 +909,11 @@ object srvContabilidad: TsrvContabilidad
|
||||
item
|
||||
Name = 'ID_PAGO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -1385,6 +1411,26 @@ object srvContabilidad: TsrvContabilidad
|
||||
Name = 'MAX'
|
||||
DataType = datInteger
|
||||
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>
|
||||
JoinDataTables = <>
|
||||
UnionDataTables = <>
|
||||
@ -1757,6 +1803,10 @@ object srvContabilidad: TsrvContabilidad
|
||||
item
|
||||
Name = 'ORDEN'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -1765,8 +1815,8 @@ object srvContabilidad: TsrvContabilidad
|
||||
Default = True
|
||||
TargetTable = 'CONT_ASIENTOS'
|
||||
SQL =
|
||||
'INSERT'#10' INTO CONT_ASIENTOS'#10' (ID, FECHA_ASIENTO, ORDEN)'#10' VAL' +
|
||||
'UES'#10' (:ID, :FECHA_ASIENTO, :ORDEN)'#10
|
||||
'INSERT'#10' INTO CONT_ASIENTOS'#10' (ID, FECHA_ASIENTO, ORDEN, TIPO)' +
|
||||
#10' VALUES'#10' (:ID, :FECHA_ASIENTO, :ORDEN, :TIPO)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1800,6 +1850,10 @@ object srvContabilidad: TsrvContabilidad
|
||||
Name = 'ORDEN'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
@ -1812,7 +1866,8 @@ object srvContabilidad: TsrvContabilidad
|
||||
TargetTable = 'CONT_ASIENTOS'
|
||||
SQL =
|
||||
'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
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -44,6 +44,7 @@ type
|
||||
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 AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ES_ACREEDOR: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean;
|
||||
function DarNumOrden : Integer;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -51,7 +52,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
uses
|
||||
{Generated:} FactuGES_Invk, uROClasses, uDataModuleServer,
|
||||
uDatabaseUtils, srvEjercicios_Impl, Variants;
|
||||
uDatabaseUtils, srvEjercicios_Impl, Variants, uBizAsientosServer;
|
||||
|
||||
procedure Create_srvContabilidad(out anInstance : IUnknown);
|
||||
begin
|
||||
@ -240,6 +241,26 @@ end;
|
||||
procedure TsrvContabilidad.DARemoteServiceCreate(Sender: TObject);
|
||||
begin
|
||||
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;
|
||||
|
||||
procedure TsrvContabilidad.DataAbstractServiceBeforeAcquireConnection(
|
||||
|
||||
Binary file not shown.
@ -41,7 +41,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Contabilidad_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>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
@ -50,21 +50,47 @@
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="adortl.dcp" />
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="ccpackD11.dcp" />
|
||||
<DCCReference Include="cfpack_d11.dcp" />
|
||||
<DCCReference Include="Contabilidad_controller.dcp" />
|
||||
<DCCReference Include="Contabilidad_model.dcp" />
|
||||
<DCCReference Include="cxDataD11.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="cxPageControlD11.dcp" />
|
||||
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="dclcxLibraryD11.dcp" />
|
||||
<DCCReference Include="designide.dcp" />
|
||||
<DCCReference Include="dsnap.dcp" />
|
||||
<DCCReference Include="dxComnD11.dcp" />
|
||||
<DCCReference Include="dxGDIPlusD11.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="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="rtl.dcp" />
|
||||
<DCCReference Include="tb2k_d10.dcp" />
|
||||
<DCCReference Include="tbx_d10.dcp" />
|
||||
<DCCReference Include="uContabilidadViewRegister.pas">
|
||||
<Form>frViewEpigrafes</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
@ -133,6 +159,10 @@
|
||||
<Form>fEditorEpigrafes</Form>
|
||||
<DesignClass>TfEditorEjercicios</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorExtractoMovimientos.pas">
|
||||
<Form>fEditorExtractoMovimientos</Form>
|
||||
<DesignClass>TfEditorEjercicios</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorSubCuenta.pas">
|
||||
<Form>fEditorSubCuenta</Form>
|
||||
<DesignClass>TfEditorEjercicios</DesignClass>
|
||||
@ -177,6 +207,10 @@
|
||||
<Form>frViewEpigrafes</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewExtractoMovimientos.pas">
|
||||
<Form>frViewExtractoMovimientos</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewListaSubCuentas.pas">
|
||||
<Form>frViewListaSubcuentas</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
@ -190,8 +224,12 @@
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vclactnband.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
<DCCReference Include="vcljpg.dcp" />
|
||||
<DCCReference Include="vclshlctrls.dcp" />
|
||||
<DCCReference Include="vclx.dcp" />
|
||||
<DCCReference Include="xmlrtl.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -13,7 +13,7 @@ uses
|
||||
uEditorEpigrafe, uEditorElegirEpigrafes, uEditorEpigrafes,
|
||||
uEditorCuenta, uEditorCuentas, uEditorElegirCuentas,
|
||||
uEditorSubCuenta, uEditorSubCuentas, uEditorElegirSubCuentas,
|
||||
uEditorAsiento, uEditorDiario, uEditorApunte;
|
||||
uEditorAsiento, uEditorDiario, uEditorExtractoMovimientos, uEditorApunte;
|
||||
|
||||
procedure RegisterViews;
|
||||
begin
|
||||
@ -35,6 +35,7 @@ begin
|
||||
EditorRegistry.RegisterClass(TfEditorAsiento, 'EditorAsiento');
|
||||
EditorRegistry.RegisterClass(TfEditorDiario, 'EditorDiario');
|
||||
EditorRegistry.RegisterClass(TfEditorApunte, 'EditorApunte');
|
||||
EditorRegistry.RegisterClass(TfEditorExtractoMovimientos, 'EditorExtractoMovimientos');
|
||||
end;
|
||||
|
||||
procedure UnregisterViews;
|
||||
@ -57,6 +58,7 @@ begin
|
||||
EditorRegistry.UnRegisterClass(TfEditorDiario);
|
||||
EditorRegistry.UnRegisterClass(TfEditorAsiento);
|
||||
EditorRegistry.UnRegisterClass(TfEditorApunte);
|
||||
EditorRegistry.UnRegisterClass(TfEditorExtractoMovimientos);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -4,47 +4,48 @@ inherited fEditorAsiento: TfEditorAsiento
|
||||
HorzScrollBar.Visible = False
|
||||
VertScrollBar.Visible = False
|
||||
Caption = 'Ficha de asiento'
|
||||
ClientHeight = 497
|
||||
ClientWidth = 850
|
||||
ClientHeight = 595
|
||||
ClientWidth = 869
|
||||
Scaled = False
|
||||
OnClose = CustomEditorClose
|
||||
ExplicitWidth = 858
|
||||
ExplicitHeight = 531
|
||||
ExplicitWidth = 877
|
||||
ExplicitHeight = 629
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 850
|
||||
Width = 869
|
||||
Caption = 'Asiento'
|
||||
ExplicitWidth = 850
|
||||
ExplicitWidth = 869
|
||||
inherited Image1: TImage
|
||||
Left = 823
|
||||
Left = 842
|
||||
Picture.Data = {
|
||||
0B546478504E47496D61676589504E470D0A1A0A0000000D4948445200000018
|
||||
000000180806000000E0773DF8000000017352474200AECE1CE9000000046741
|
||||
4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
|
||||
80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
|
||||
17100000171001186111DB000001DD49444154484BBD96CB4E42311086F18DF4
|
||||
297C01972EDC68E2DBF804EEDCB831716F8C1B23BA6001410D12428020720D20
|
||||
721147BFD13939A92D17459B344C7B3ADF3F336D39674D4412FFD24ECED232AF
|
||||
5B20F3D66D6CEE3B516F1D2B3CD41AEDBE64F38F5100D8F5762FB85E05D60FBE
|
||||
443EE0899DAB4860EF74286E37128EA3F1AB4CA76FDFD6980F6B2301D80947C0
|
||||
0DEBAE210A9B4CA6EAD81F8C74CC7CA82D250084A801E3D8E9BEA86D99F84466
|
||||
0AF84A0410308EEC07B66F1D734B9588289395CF120146A05AEFEA987984D90F
|
||||
B72D54221C2D72E080712C55DB6A5B26BE522D5D228080712C949B6AFFB84444
|
||||
6E9B4A945622C008DC179E146E99F8363D98411C8EA3459ECDD72457ACAB4026
|
||||
575511CBC44A153F594181C170EC4D1D20601C53B765B5432522FBA040B73F94
|
||||
56E7596ACD9E546A1DC9971A7294F93C458071BC4E1775CC3CC2EEA6DB7DD1BF
|
||||
0AF726C7E1C54A4B01440B1C300297A982DA9689952A7EB2821910B92F758080
|
||||
71BCB879503B5422BB2FDE0C280B91531AA227CAF3644E618011B031BF08BB9B
|
||||
6EF7C52B60602B0B9102064637011BF32C5E2E3B5DC112F16055FD5B06BC1376
|
||||
B70F57D215EE9E2204A207B6E037BFF0F498D230667516BB7D9E4F045FE493C2
|
||||
8545EFDB059CF96CF9CBFE0E985A0C641EEE88260000000049454E44AE426082}
|
||||
17100000171001186111DB000001EF49444154484BBD96BD4B425118C6ED6F71
|
||||
88A66888C646A10683860621021B6A686D082AC2A6868A3689C0AD4F8AA0C168
|
||||
28A2280C2A0A0D29314BF3AB34BBF951666F3D47DECBC5AEF971BB1D38DE97E3
|
||||
F5F73CEF73CE551B88C8A0EB80809E5357B848072F8E8D03CB8AF394FE728229
|
||||
A28700C0B58C42E193DEDE3F289D79A39494A5A7649AA28F2F148A3E53209420
|
||||
DFDD23B598068B9BAB14805077FF84D0AA5403CEF700CE35E0F6D5437501C0A1
|
||||
8CA156C339AFC339D770CEB5D71F2B2FF05B4CD5C402B8FB3A5C5E404B2CFCD9
|
||||
334FB0B688F2F982DC7E329591EBFB7052AEAF7C11B93EB90C541F11E0D9DC3B
|
||||
49AF39023C9E90281C4B11E0FEE0135DDFC609F04BEF03C139E04767FECA02DC
|
||||
2EE0CA6763616D9F967B5B69687C9ECC569B80F3BD58E759F614F126F3898073
|
||||
0046A797C4042013B0892B4E1B9CA39EEC6812EBB84ABE31F97DD507EDB75800
|
||||
381EE9924518AC844F8D5829723A24447E08A0B54A5329C2E0ED19A370CE70DC
|
||||
73B36B298AF077115AAE76B2089C42440D7EE5ECA68BCDCEA2403D432992F00C
|
||||
8B58B0E6DDE921F79699CED74DE45A6CAF5F00A678831111F6A6147EE868D326
|
||||
00C721D780807347EC1CF03D7BB3360174A18C05356261F8CE5CA37601162975
|
||||
0EF8777447756F72E9C1807B6B8B41C4C2F0D93E83F17F7E93F5FC57F105674C
|
||||
4774223319020000000049454E44AE426082}
|
||||
ExplicitLeft = 607
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 850
|
||||
ExplicitWidth = 850
|
||||
Width = 869
|
||||
ExplicitWidth = 869
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 330
|
||||
inherited TBXItem2: TTBXItem
|
||||
@ -62,7 +63,7 @@ inherited fEditorAsiento: TfEditorAsiento
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
DockPos = 0
|
||||
ExplicitWidth = 850
|
||||
ExplicitWidth = 869
|
||||
inherited TBXSubmenuItem4: TTBXSubmenuItem
|
||||
inherited TBXItem8: TTBXItem
|
||||
Visible = False
|
||||
@ -97,30 +98,30 @@ inherited fEditorAsiento: TfEditorAsiento
|
||||
end
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 844
|
||||
Height = 396
|
||||
Width = 863
|
||||
Height = 494
|
||||
ExplicitLeft = 3
|
||||
ExplicitTop = 79
|
||||
ExplicitWidth = 844
|
||||
ExplicitHeight = 396
|
||||
ExplicitWidth = 863
|
||||
ExplicitHeight = 494
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 836
|
||||
ExplicitHeight = 368
|
||||
ExplicitWidth = 855
|
||||
ExplicitHeight = 466
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 836
|
||||
Height = 368
|
||||
Width = 855
|
||||
Height = 466
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
DesignSize = (
|
||||
836
|
||||
368)
|
||||
855
|
||||
466)
|
||||
object edtOrden: TcxDBSpinEdit
|
||||
Left = 49
|
||||
Left = 293
|
||||
Top = 10
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'ORDEN'
|
||||
@ -146,12 +147,12 @@ inherited fEditorAsiento: TfEditorAsiento
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 0
|
||||
TabOrder = 1
|
||||
Height = 21
|
||||
Width = 298
|
||||
Width = 100
|
||||
end
|
||||
object edtFecha: TcxDBDateEdit
|
||||
Left = 489
|
||||
Left = 48
|
||||
Top = 10
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_ASIENTO'
|
||||
@ -169,14 +170,15 @@ inherited fEditorAsiento: TfEditorAsiento
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 1
|
||||
Width = 253
|
||||
TabOrder = 0
|
||||
Width = 200
|
||||
end
|
||||
inline frViewApuntes1: TfrViewApuntes
|
||||
Left = 22
|
||||
Top = 55
|
||||
Width = 848
|
||||
Height = 287
|
||||
Width = 811
|
||||
Height = 374
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
@ -187,13 +189,18 @@ inherited fEditorAsiento: TfEditorAsiento
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 22
|
||||
ExplicitTop = 55
|
||||
ExplicitWidth = 848
|
||||
ExplicitHeight = 287
|
||||
ExplicitWidth = 811
|
||||
inherited Panel1: TPanel
|
||||
Width = 811
|
||||
ExplicitWidth = 811
|
||||
inherited Panel2: TPanel
|
||||
Left = 627
|
||||
ExplicitLeft = 627
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 848
|
||||
Height = 262
|
||||
ExplicitWidth = 848
|
||||
ExplicitHeight = 262
|
||||
Width = 811
|
||||
ExplicitWidth = 811
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
@ -208,14 +215,6 @@ inherited fEditorAsiento: TfEditorAsiento
|
||||
end>
|
||||
end
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 848
|
||||
ExplicitWidth = 848
|
||||
inherited Label1: TLabel
|
||||
Height = 22
|
||||
ExplicitHeight = 22
|
||||
end
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
@ -226,29 +225,26 @@ inherited fEditorAsiento: TfEditorAsiento
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item1: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Orden:'
|
||||
Control = edtOrden
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item2: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Fecha:'
|
||||
Control = edtFecha
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object lcOrden: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
Caption = 'Orden:'
|
||||
Control = edtOrden
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group2: TdxLayoutGroup
|
||||
AutoAligns = [aaHorizontal]
|
||||
AlignVert = avClient
|
||||
Caption = 'Apuntes'
|
||||
object dxLayoutControl1Item3: TdxLayoutItem
|
||||
object dxLayoutControl1Item1: TdxLayoutItem
|
||||
AutoAligns = [aaHorizontal]
|
||||
AlignVert = avClient
|
||||
ShowCaption = False
|
||||
Control = frViewApuntes1
|
||||
ControlOptions.AutoColor = True
|
||||
ControlOptions.ShowBorder = False
|
||||
@ -259,14 +255,14 @@ inherited fEditorAsiento: TfEditorAsiento
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 478
|
||||
Width = 850
|
||||
Top = 576
|
||||
Width = 869
|
||||
Panels = <
|
||||
item
|
||||
Width = 200
|
||||
end>
|
||||
ExplicitTop = 478
|
||||
ExplicitWidth = 850
|
||||
ExplicitTop = 576
|
||||
ExplicitWidth = 869
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
Top = 128
|
||||
|
||||
@ -22,16 +22,16 @@ type
|
||||
TfEditorAsiento = class(TfEditorDBItem, IEditorAsiento)
|
||||
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
||||
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
||||
frViewApuntes1: TfrViewApuntes;
|
||||
dxLayoutControl1Group_Root: TdxLayoutGroup;
|
||||
dxLayoutControl1: TdxLayoutControl;
|
||||
dxLayoutControl1Item1: TdxLayoutItem;
|
||||
lcOrden: TdxLayoutItem;
|
||||
edtOrden: TcxDBSpinEdit;
|
||||
dxLayoutControl1Item2: TdxLayoutItem;
|
||||
edtFecha: TcxDBDateEdit;
|
||||
dxLayoutControl1Item3: TdxLayoutItem;
|
||||
dxLayoutControl1Group2: TdxLayoutGroup;
|
||||
dxLayoutControl1Group3: TdxLayoutGroup;
|
||||
dxLayoutControl1Item1: TdxLayoutItem;
|
||||
frViewApuntes1: TfrViewApuntes;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
|
||||
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||
@ -172,10 +172,15 @@ begin
|
||||
raise Exception.Create('No hay ningún asiento asignado');
|
||||
|
||||
Asiento.DataTable.Active := True;
|
||||
|
||||
//Muy importante ya que pone el numero de orden del apunte al maximo valor existente
|
||||
//tiene que ser aqui porque es cuando la tabla esta filtrada por el asiento
|
||||
Asiento.Apuntes.SetNumOrden;
|
||||
|
||||
//Al insertar el orden se asigna automaticamente en el servidor, luego se podrá modificar
|
||||
if Asiento.EsNuevo then
|
||||
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;
|
||||
|
||||
destructor TfEditorAsiento.Destroy;
|
||||
|
||||
@ -82,11 +82,6 @@ inherited fEditorDiario: TfEditorDiario
|
||||
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||
Kind = skSum
|
||||
Column = frViewDiario1.cxGridViewHABER
|
||||
end
|
||||
item
|
||||
Format = #218'ltimo orden 0'
|
||||
Kind = skMax
|
||||
Column = frViewDiario1.cxGridViewORDEN
|
||||
end>
|
||||
inherited cxGridViewID_ASIENTO: TcxGridDBColumn
|
||||
IsCaptionAssigned = True
|
||||
|
||||
@ -101,10 +101,10 @@ var
|
||||
begin
|
||||
inherited;
|
||||
|
||||
NumOrden := ViewGrid._FocusedView.DataController.Summary.FooterSummaryValues[2];
|
||||
Inc(NumOrden);
|
||||
// NumOrden := ViewGrid._FocusedView.DataController.Summary.FooterSummaryValues[2];
|
||||
// Inc(NumOrden);
|
||||
|
||||
FController.Ver(FController.Anadir(NumOrden));
|
||||
FController.Ver(FController.Anadir);
|
||||
actRefrescar.Execute;
|
||||
end;
|
||||
|
||||
|
||||
1618
Source/Modulos/Contabilidad/Views/uEditorExtractoMovimientos.dfm
Normal file
1618
Source/Modulos/Contabilidad/Views/uEditorExtractoMovimientos.dfm
Normal file
File diff suppressed because it is too large
Load Diff
196
Source/Modulos/Contabilidad/Views/uEditorExtractoMovimientos.pas
Normal file
196
Source/Modulos/Contabilidad/Views/uEditorExtractoMovimientos.pas
Normal 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.
|
||||
@ -1,13 +1,58 @@
|
||||
inherited frViewApuntes: TfrViewApuntes
|
||||
Width = 899
|
||||
Height = 346
|
||||
ExplicitWidth = 899
|
||||
ExplicitHeight = 346
|
||||
Width = 749
|
||||
Height = 374
|
||||
ExplicitWidth = 749
|
||||
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
|
||||
Width = 899
|
||||
Height = 321
|
||||
ExplicitWidth = 899
|
||||
ExplicitHeight = 560
|
||||
Top = 30
|
||||
Width = 749
|
||||
Height = 344
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 670
|
||||
ExplicitHeight = 344
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
@ -92,34 +137,20 @@ inherited frViewApuntes: TfrViewApuntes
|
||||
end
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 899
|
||||
ExplicitWidth = 899
|
||||
Width = 369
|
||||
Align = alNone
|
||||
Wrapable = False
|
||||
ExplicitWidth = 369
|
||||
inherited ToolButton1: TToolButton
|
||||
Top = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 62
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
Top = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 74
|
||||
end
|
||||
inherited ToolButton5: TToolButton
|
||||
Top = 0
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton2: TToolButton
|
||||
Top = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 67
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
Top = 0
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Top = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 117
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
@ -130,29 +161,6 @@ inherited frViewApuntes: TfrViewApuntes
|
||||
ImageIndex = 4
|
||||
Style = tbsSeparator
|
||||
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
|
||||
inherited ActionListContenido: TActionList
|
||||
object actElegirSubCuenta: TAction
|
||||
|
||||
Binary file not shown.
@ -44,23 +44,24 @@ inherited frViewDiario: TfrViewDiario
|
||||
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'
|
||||
SortIndex = 0
|
||||
SortOrder = soAscending
|
||||
Width = 304
|
||||
end
|
||||
object cxGridViewSUBCUENTA: TcxGridDBColumn
|
||||
Caption = 'Subcuenta'
|
||||
DataBinding.FieldName = 'SUBCUENTA'
|
||||
Visible = False
|
||||
end
|
||||
object cxGridViewCONCEPTO: TcxGridDBColumn
|
||||
Caption = 'Concepto'
|
||||
@ -110,9 +111,6 @@ inherited frViewDiario: TfrViewDiario
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||
ExplicitWidth = 554
|
||||
end
|
||||
inherited dxComponentPrinter: TdxComponentPrinter
|
||||
inherited dxComponentPrinterLink: TdxGridReportLink
|
||||
ReportDocument.CreationDate = 38673.842406053240000000
|
||||
|
||||
188
Source/Modulos/Contabilidad/Views/uViewExtractoMovimientos.dfm
Normal file
188
Source/Modulos/Contabilidad/Views/uViewExtractoMovimientos.dfm
Normal 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
258
Source/Modulos/Contabilidad/Views/uViewExtractoMovimientos.pas
Normal 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.
|
||||
@ -27,7 +27,7 @@ uses
|
||||
schRecibosProveedorClient_Intf, srvReferencias_Impl;
|
||||
|
||||
const
|
||||
REF_RECIBOS_PROVEEDOR = 'REF_RECIBOS_Proveedor';
|
||||
REF_RECIBOS_PROVEEDOR = 'REF_RECIBOS_PROVEEDOR';
|
||||
|
||||
{ TBizRecibosProveedorServer }
|
||||
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@ -106,8 +106,6 @@ uses
|
||||
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
|
||||
schReferenciasClient_Intf in '..\Modulos\Referencias\Model\schReferenciasClient_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',
|
||||
uRptAlbaranesCliente_Server in '..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.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',
|
||||
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_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 ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -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">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<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>
|
||||
|
||||
|
||||
|
||||
<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>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
|
||||
<Form>srvEjercicios</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
|
||||
<Form>srvContabilidad</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
|
||||
<Form>RptEtiquetasContacto</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
|
||||
<Form>RptFichasEmpleado</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<Form>RptFacturasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
||||
<Form>RptRecibosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
||||
<Form>srvReferencias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
||||
<Form>srvUnidadesMedida</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<Form>frConexionBD</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<Form>frConfGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<Form>fConfiguracion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<Form>FrameConfiguracion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<Form>srvLogin</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<Form>dmServer</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\RegExpr.pas" />
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas" />
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas" />
|
||||
</ItemGroup>
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<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">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>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
|
||||
<Form>srvEjercicios</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
|
||||
<Form>srvContabilidad</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
|
||||
<Form>RptEtiquetasContacto</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
|
||||
<Form>RptFichasEmpleado</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<Form>RptFacturasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
||||
<Form>RptRecibosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
||||
<Form>srvReferencias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
||||
<Form>srvUnidadesMedida</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<Form>frConexionBD</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<Form>frConfGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<Form>fConfiguracion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<Form>FrameConfiguracion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<Form>srvLogin</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<Form>dmServer</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\RegExpr.pas"/>
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 2,2,0,0
|
||||
PRODUCTVERSION 2,2,0,0
|
||||
FILEVERSION 2,2,2,0
|
||||
PRODUCTVERSION 2,2,2,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -13,10 +13,10 @@ BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
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 "ProductVersion", "2.2.0.0\0"
|
||||
VALUE "CompileDate", "jueves, 24 de abril de 2008 19:19\0"
|
||||
VALUE "ProductVersion", "2.2.2.0\0"
|
||||
VALUE "CompileDate", "lunes, 12 de mayo de 2008 18:28\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user