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

Retoques de interfaz

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@90 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-01-02 19:45:32 +00:00
parent d4df7551d4
commit 97af05fb8b
41 changed files with 2255 additions and 2957 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

125
Source/ApplicationBase/ApplicationBase.dproj
View File

@ -46,34 +46,6 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">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><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">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><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages> <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -88,34 +60,46 @@
<DelphiCompile Include="ApplicationBase.dpk"> <DelphiCompile Include="ApplicationBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Contabilidad\cxLibraryD10.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\adortl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\dclcxLibraryD10.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\Base.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\dxThemeD10.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\ccpackD11.dcp" />
<DCCReference Include="adortl.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\cfpack_d11.dcp" />
<DCCReference Include="Base.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="ccpackD11.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\cxLibraryD11.dcp" />
<DCCReference Include="cfpack_d11.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\DataAbstract_Core_D11.dcp" />
<DCCReference Include="cxDataD10.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\dbrtl.dcp" />
<DCCReference Include="cxEditorsD10.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\designide.dcp" />
<DCCReference Include="cxExportD10.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\dsnap.dcp" />
<DCCReference Include="cxExtEditorsD10.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\dxThemeD11.dcp" />
<DCCReference Include="cxGridD10.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\GUIBase.dcp" />
<DCCReference Include="cxIntlPrintSys3D10.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\GUISDK_D11.dcp" />
<DCCReference Include="cxIntlPrintSys3D110.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\Jcl.dcp" />
<DCCReference Include="cxLibraryD11.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\JclVcl.dcp" />
<DCCReference Include="cxPageControlD10.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\JSDialog100.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\JvAppFrmD11R.dcp" />
<DCCReference Include="dbrtl.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\JvCoreD11R.dcp" />
<DCCReference Include="dclcxLibraryD11.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\JvCtrlsD11R.dcp" />
<DCCReference Include="designide.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\JvJansD11R.dcp" />
<DCCReference Include="dsnap.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\JvMMD11R.dcp" />
<DCCReference Include="dxComnD10.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\JvPageCompsD11R.dcp" />
<DCCReference Include="dxLayoutControlD10.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\JvStdCtrlsD11R.dcp" />
<DCCReference Include="dxPSCoreD10.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\JvSystemD11R.dcp" />
<DCCReference Include="dxPScxCommonD10.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\pckUCDataConnector.dcp" />
<DCCReference Include="dxPScxGridLnkD10.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\pckUserControl_RT.dcp" />
<DCCReference Include="dxPSLnksD10.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\PluginSDK_D10R.dcp" />
<DCCReference Include="dxThemeD11.dcp" /> <DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\PNG_D10.dcp" />
<DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\rtl.dcp" />
<DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\tb2k_d10.dcp" />
<DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\tbx_d10.dcp" />
<DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\vcl.dcp" />
<DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\vclactnband.dcp" />
<DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\vcldb.dcp" />
<DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\vcljpg.dcp" />
<DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\vclshlctrls.dcp" />
<DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\vclx.dcp" />
<DCCReference Include="..\..\Resources\Iconos\Cuentas\16x16\xmlrtl.dcp" />
<DCCReference Include="Ejercicios\Controller\uEjerciciosController.pas" /> <DCCReference Include="Ejercicios\Controller\uEjerciciosController.pas" />
<DCCReference Include="Ejercicios\Controller\View\uIEditorEjercicio.pas" /> <DCCReference Include="Ejercicios\Controller\View\uIEditorEjercicio.pas" />
<DCCReference Include="Ejercicios\Controller\View\uIEditorEjercicios.pas" /> <DCCReference Include="Ejercicios\Controller\View\uIEditorEjercicios.pas" />
@ -149,28 +133,6 @@
<DCCReference Include="Empresas\Views\uEmpresasViewRegister.pas" /> <DCCReference Include="Empresas\Views\uEmpresasViewRegister.pas" />
<DCCReference Include="Empresas\Views\uViewDatosBancarios.pas" /> <DCCReference Include="Empresas\Views\uViewDatosBancarios.pas" />
<DCCReference Include="Empresas\Views\uViewEmpresa.pas" /> <DCCReference Include="Empresas\Views\uViewEmpresa.pas" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="GUISDK_D11.dcp" />
<DCCReference Include="Jcl.dcp" />
<DCCReference Include="JclVcl.dcp" />
<DCCReference Include="JSDialog100.dcp" />
<DCCReference Include="JvAppFrmD11R.dcp" />
<DCCReference Include="JvCoreD11R.dcp" />
<DCCReference Include="JvCtrlsD11R.dcp" />
<DCCReference Include="JvJansD11R.dcp" />
<DCCReference Include="JvMMD11R.dcp" />
<DCCReference Include="JvPageCompsD11R.dcp" />
<DCCReference Include="JvStdCtrlsD11R.dcp" />
<DCCReference Include="JvSystemD11R.dcp" />
<DCCReference Include="pckUCDataConnector.dcp" />
<DCCReference Include="pckUserControl_RT.dcp" />
<DCCReference Include="PluginSDK_D10R.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="uFactuGES_App.pas" /> <DCCReference Include="uFactuGES_App.pas" />
<DCCReference Include="Usuarios\Controller\uUsuariosController.pas" /> <DCCReference Include="Usuarios\Controller\uUsuariosController.pas" />
<DCCReference Include="Usuarios\Controller\View\uIEditorLogin.pas" /> <DCCReference Include="Usuarios\Controller\View\uIEditorLogin.pas" />
@ -184,13 +146,6 @@
<DCCReference Include="Usuarios\Model\uUsuarios.pas" /> <DCCReference Include="Usuarios\Model\uUsuarios.pas" />
<DCCReference Include="Usuarios\Views\uEditorLogin.pas" /> <DCCReference Include="Usuarios\Views\uEditorLogin.pas" />
<DCCReference Include="Usuarios\Views\uUsuariosViewRegister.pas" /> <DCCReference Include="Usuarios\Views\uUsuariosViewRegister.pas" />
<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> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

1
Source/ApplicationBase/Ejercicios/Controller/uEjerciciosController.pas
View File

@ -278,6 +278,7 @@ begin
//con el fin de que al borrar un ejercicio se borren todos sus datos correspondientes //con el fin de que al borrar un ejercicio se borren todos sus datos correspondientes
AEjercicio.Delete; AEjercicio.Delete;
AEjercicio.DataTable.ApplyUpdates; AEjercicio.DataTable.ApplyUpdates;
AEjercicio.DataTable.Refresh; //Debemos refrescar en este caso para que se vea el nuevo ejercicio activo en el cliente, como no serán muchos ejercicios nos da igual
HideHourglassCursor; HideHourglassCursor;
Result := True; Result := True;
finally finally

21
Source/ApplicationBase/Ejercicios/Model/uBizEjerciciosServer.pas
View File

@ -28,6 +28,7 @@ var
ASchema : TDASchema; ASchema : TDASchema;
ACurrentConn : IDAConnection; ACurrentConn : IDAConnection;
Empresa : Variant; Empresa : Variant;
Id : Variant;
begin begin
inherited; inherited;
@ -48,6 +49,26 @@ begin
end; end;
end; end;
end; end;
ctDelete: begin
//Si el ejercicio es activo debemos poner los demas ejercicios de la empresa a no activos, y poner el más
//cercano como activo.
if (Sender.CurrentChange.OldValueByName[fld_EjerciciosACTIVO] = 1) then
begin
ASchema := BusinessProcessor.Schema;
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
try
//Siempre va a estar rellena
Empresa := Sender.CurrentChange.OldValueByName[fld_EjerciciosID_EMPRESA];
ASchema.NewCommand(ACurrentConn, 'SetEjerciciosNoActivos', ['ID_EMPRESA'], [Empresa]);
Id := Sender.CurrentChange.OldValueByName[fld_EjerciciosID];
ASchema.NewCommand(ACurrentConn, 'SetUltimoEjercicioActivo', ['ID'], [Id])
except
RaiseError('Error al desactivar los ejercicios de la empresa');
end;
end;
end;
end; end;
end; end;

20
Source/ApplicationBase/Ejercicios/Servidor/srvEjercicios_Impl.dfm
View File

@ -201,6 +201,26 @@ object srvEjercicios: TsrvEjercicios
JoinDataTables = <> JoinDataTables = <>
UnionDataTables = <> UnionDataTables = <>
Commands = < Commands = <
item
Params = <
item
Name = 'id'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
Name = 'IBX'
SQL =
'update cont_ejercicios'#10'set activo = 1'#10'where id = (select max(id)' +
#10'from cont_ejercicios'#10'where (id <> :id))'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'SetUltimoEjercicioActivo'
end
item item
Params = < Params = <
item item

32
Source/ApplicationBase/Ejercicios/Views/uViewEjercicios.dfm
View File

@ -80,12 +80,15 @@ inherited frViewEjercicios: TfrViewEjercicios
Width = 121 Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
ExplicitWidth = 200 Left = 283
Width = 200 ExplicitLeft = 283
end end
end end
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel
ExplicitWidth = 554
end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 38673.842406053240000000 ReportDocument.CreationDate = 38673.842406053240000000
@ -123,6 +126,31 @@ inherited frViewEjercicios: TfrViewEjercicios
6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082} 6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082}
Name = 'PngImage0' Name = 'PngImage0'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000002194944415478DA
63FCFFFF3F03232323030CE4E49CFF0FA2A74C31840BDADBD7FFF7315CCE503A
E116422110389B6AFC67443600A459DDEC05B21A8635734F30803473184D4411
DF30B9104CC30D8069F6B4D363509697024B3A3834C0353B99CA3168696881C5
5DCC34196675AA32A495DF8618909B7BE1BFB7971A5872EBB65B60FAF2E50D60
CD05CD4D0C136AEBE036EF38CA04D6FCFBF73F86EC9ABB9806C040476717DC00
64E0E1D4C030B54599E1D7AFBF0C854D0F1006484AFE030A7E63F8F39B89E1E3
A7CF40171C071B202E2D0DD6F8E1E36F86074F7E305CBCFA85A1B352166C406D
EF334C17FCF9F39FE1C78FBF0C53A6F6A1B8E0C7F71F0C1FDEBE6548889BCDD0
5C2C0536A079F24B5403609A4178CEDC897003609A41B8A0701D4379BA08C3AF
DF7F19FAE7BD4718E0EEA60AD70CC24B964E011B90515505D70CC20D2D07190A
9304C12E98BAE413C2007B3B25B8E69F3FFF31AC5E330D6C40447A3A5CF3A70F
1F18FAA65C644809E566F8093460F1C61F9881F8EDEB4F864F9F3F33DCB87101
6CC0F30F7CE03078F1EA17C3CBD7BFC0EC587F0EA0257F1856EDF88330405F4F
066CF3CF9F1017ECDC351B6C8085A323D8E64FEFDF83E9555B3F31F83B32825D
004A13282E78FEFC2630C07E317CF9FA15C87E85D3051ED6FFC09AF79EBEC108
374051411C6CF32F200681FD07E7820D90515080B8008861291104409AE17901
64002CF922039001300DC800A6196E0025000048B3879138758C930000000049
454E44AE426082}
Name = 'PngImage1'
Background = clWindow
end> end>
Left = 160 Left = 160
Top = 32 Top = 32

2
Source/ApplicationBase/Ejercicios/Views/uViewEjercicios.pas
View File

@ -77,7 +77,7 @@ begin
inherited; inherited;
R := AViewInfo.ContentBounds; R := AViewInfo.ContentBounds;
ACanvas.FillRect(R); ACanvas.FillRect(R);
ACanvas.DrawImage(PngImageList, R.Left, R.Top, 0); ACanvas.DrawImage(PngImageList, R.Left, R.Top, 1);
ADone := True; ADone := True;
end; end;

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

@ -48,29 +48,29 @@
<DelphiCompile Include="Contabilidad_controller.dpk"> <DelphiCompile Include="Contabilidad_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Contactos\Model\adortl.dcp" /> <DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\..\Contactos\Model\ApplicationBase.dcp" /> <DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\..\Contactos\Model\Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\..\Contactos\Model\ccpackD11.dcp" /> <DCCReference Include="..\ccpackD11.dcp" />
<DCCReference Include="..\..\Contactos\Model\cfpack_d11.dcp" /> <DCCReference Include="..\cfpack_d11.dcp" />
<DCCReference Include="..\..\Contactos\Model\Contabilidad_data.dcp" /> <DCCReference Include="..\Contabilidad_data.dcp" />
<DCCReference Include="..\..\Contactos\Model\Contabilidad_model.dcp" /> <DCCReference Include="..\Contabilidad_model.dcp" />
<DCCReference Include="..\..\Contactos\Model\Contactos_model.dcp" /> <DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\..\Contactos\Model\cxLibraryD10.dcp" /> <DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Contactos\Model\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Contactos\Model\dbrtl.dcp" /> <DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\..\Contactos\Model\designide.dcp" /> <DCCReference Include="..\designide.dcp" />
<DCCReference Include="..\..\Contactos\Model\dsnap.dcp" /> <DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\..\Contactos\Model\dxThemeD10.dcp" /> <DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\..\Contactos\Model\GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\..\Contactos\Model\GUISDK_D11.dcp" /> <DCCReference Include="..\GUISDK_D11.dcp" />
<DCCReference Include="..\..\Contactos\Model\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Contactos\Model\rtl.dcp" /> <DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\..\Contactos\Model\vcl.dcp" /> <DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\..\Contactos\Model\vclactnband.dcp" /> <DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\..\Contactos\Model\vcldb.dcp" /> <DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\..\Contactos\Model\vclx.dcp" /> <DCCReference Include="..\vclx.dcp" />
<DCCReference Include="..\..\Contactos\Model\xmlrtl.dcp" /> <DCCReference Include="..\xmlrtl.dcp" />
<DCCReference Include="uApuntesController.pas" /> <DCCReference Include="uApuntesController.pas" />
<DCCReference Include="uAsientosController.pas" /> <DCCReference Include="uAsientosController.pas" />
<DCCReference Include="uBalancesController.pas" /> <DCCReference Include="uBalancesController.pas" />

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

@ -180,8 +180,11 @@ begin
if (ACuenta.DataTable.State in dsEditModes) then if (ACuenta.DataTable.State in dsEditModes) then
ACuenta.DataTable.Post; ACuenta.DataTable.Post;
if Length(ACuenta.REF_CUENTA) = 0 then
raise Exception.Create('Debe indicar una referencia para esta cuenta.');
if Length(ACuenta.DESCRIPCION) = 0 then if Length(ACuenta.DESCRIPCION) = 0 then
raise Exception.Create('Debe indicar un nombre para este Cuenta.'); raise Exception.Create('Debe indicar una descripción para esta cuenta.');
Result := True; Result := True;
end; end;
@ -237,7 +240,7 @@ begin
inherited; inherited;
try try
AController := TBalancesController.Create; AController := TBalancesController.Create;
ABalance := (AController.ElegirBalance(AController.BuscarTodos, 'ddddddd', False) as IBizBalance); ABalance := (AController.ElegirBalance(AController.BuscarTodos, 'Elija el balance al que pertenece la cuenta', False) as IBizBalance);
if Assigned(ABalance) then if Assigned(ABalance) then
begin begin
@ -288,7 +291,7 @@ begin
inherited; inherited;
try try
AController := TCuentasEspecialesController.Create; AController := TCuentasEspecialesController.Create;
ACuentaEspecial := (AController.ElegirCuentaEspecial(AController.BuscarTodos, 'ddddddd', False) as IBizCuentaEspecial); ACuentaEspecial := (AController.ElegirCuentaEspecial(AController.BuscarTodos, 'Elija la cuenta especial a la que pertenece la cuenta', False) as IBizCuentaEspecial);
if Assigned(ACuentaEspecial) then if Assigned(ACuentaEspecial) then
begin begin
@ -316,7 +319,7 @@ begin
inherited; inherited;
try try
AController := TEpigrafesController.Create; AController := TEpigrafesController.Create;
AEpigrafe := (AController.ElegirEpigrafe(AController.BuscarTodos, 'ddddddd', False) as IBizEpigrafe); AEpigrafe := (AController.ElegirEpigrafe(AController.BuscarTodos, 'Elija el epigrafe al que pertenece la cuenta', False) as IBizEpigrafe);
if Assigned(AEpigrafe) then if Assigned(AEpigrafe) then
begin begin

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

@ -188,8 +188,11 @@ begin
if (AEpigrafe.DataTable.State in dsEditModes) then if (AEpigrafe.DataTable.State in dsEditModes) then
AEpigrafe.DataTable.Post; AEpigrafe.DataTable.Post;
if Length(AEpigrafe.REF_EPIGRAFE) = 0 then
raise Exception.Create('Debe indicar una referencia para este Epigrafe.');
if Length(AEpigrafe.DESCRIPCION) = 0 then if Length(AEpigrafe.DESCRIPCION) = 0 then
raise Exception.Create('Debe indicar un nombre para este Epigrafe.'); raise Exception.Create('Debe indicar una descripción para este Epigrafe.');
Result := True; Result := True;
end; end;

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

@ -249,8 +249,11 @@ begin
if (ASubCuenta.DataTable.State in dsEditModes) then if (ASubCuenta.DataTable.State in dsEditModes) then
ASubCuenta.DataTable.Post; ASubCuenta.DataTable.Post;
if Length(ASubCuenta.REF_SUBCUENTA) = 0 then
raise Exception.Create('Debe indicar una referencia para esta subcuenta.');
if Length(ASubCuenta.DESCRIPCION) = 0 then if Length(ASubCuenta.DESCRIPCION) = 0 then
raise Exception.Create('Debe indicar un nombre para este SubCuenta.'); raise Exception.Create('Debe indicar una descripcion para esta subcuenta.');
Result := True; Result := True;
end; end;

BIN
Source/Modulos/Contabilidad/Data/Contabilidad_data.dpk
View File

Binary file not shown.

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

@ -52,11 +52,11 @@
<DCCReference Include="..\Model\ApplicationBase.dcp" /> <DCCReference Include="..\Model\ApplicationBase.dcp" />
<DCCReference Include="..\Model\Base.dcp" /> <DCCReference Include="..\Model\Base.dcp" />
<DCCReference Include="..\Model\Contabilidad_model.dcp" /> <DCCReference Include="..\Model\Contabilidad_model.dcp" />
<DCCReference Include="..\Model\cxLibraryD10.dcp" /> <DCCReference Include="..\Model\cxLibraryD11.dcp" />
<DCCReference Include="..\Model\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\Model\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Model\dbrtl.dcp" /> <DCCReference Include="..\Model\dbrtl.dcp" />
<DCCReference Include="..\Model\dsnap.dcp" /> <DCCReference Include="..\Model\dsnap.dcp" />
<DCCReference Include="..\Model\dxThemeD10.dcp" /> <DCCReference Include="..\Model\dxThemeD11.dcp" />
<DCCReference Include="..\Model\GUIBase.dcp" /> <DCCReference Include="..\Model\GUIBase.dcp" />
<DCCReference Include="..\Model\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\Model\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Model\rtl.dcp" /> <DCCReference Include="..\Model\rtl.dcp" />

BIN
Source/Modulos/Contabilidad/Data/Contabilidad_data.res
View File

Binary file not shown.

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

@ -504,10 +504,8 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
DictionaryEntry = 'Asientos_ID_FACTURA' DictionaryEntry = 'Asientos_ID_FACTURA'
end end
item item
Name = 'ID_RECIBO' Name = 'ID_PAGO'
DataType = datInteger DataType = datInteger
DisplayLabel = 'Asientos_ID_RECIBO'
DictionaryEntry = 'Asientos_ID_RECIBO'
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -3,20 +3,20 @@ unit schContabilidadClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Diario = '{0787046F-120C-4A01-8A04-584EE4380231}'; RID_Diario = '{E3FBF49B-23D0-4E34-823E-92BECF9F1673}';
RID_Apuntes = '{1E9E82E8-BF6A-4D59-94D2-FCFE941ECC5A}'; RID_Apuntes = '{DE259EA8-E9C6-4C39-B361-1B6276E0C03F}';
RID_Asientos = '{FF4D35EE-F484-4318-BF3D-541AC6FF6E1D}'; RID_Asientos = '{5A82C5D1-212E-48D6-B269-FD8EB5F67142}';
RID_SubCuentas = '{58254752-2847-4AF2-8324-A1420A0A5587}'; RID_SubCuentas = '{931ADB71-BB8F-411F-830B-2B4293482E98}';
RID_Cuentas = '{24DC0F53-D8EE-4961-B48B-410B729E42A8}'; RID_Cuentas = '{D676C38D-317F-4DC6-9682-7199231F842F}';
RID_CuentasEspeciales = '{01080B38-4450-490F-8598-413CF0101622}'; RID_CuentasEspeciales = '{154759A2-3716-4C80-AE27-38C585EDD40B}';
RID_Epigrafes = '{A59D6410-3CDA-432F-BE68-4DD6874B49A4}'; RID_Epigrafes = '{384C5F4E-4229-4B0E-97A4-FC4EFAB46A72}';
RID_Balances = '{514D2B6D-C0EA-4888-9961-1B334BC21C7B}'; RID_Balances = '{B2334E4B-CC6F-42B9-9F42-6C096DFF25E3}';
{ Data table names } { Data table names }
nme_Diario = 'Diario'; nme_Diario = 'Diario';
@ -91,14 +91,14 @@ const
fld_AsientosFECHA_ASIENTO = 'FECHA_ASIENTO'; fld_AsientosFECHA_ASIENTO = 'FECHA_ASIENTO';
fld_AsientosORDEN = 'ORDEN'; fld_AsientosORDEN = 'ORDEN';
fld_AsientosID_FACTURA = 'ID_FACTURA'; fld_AsientosID_FACTURA = 'ID_FACTURA';
fld_AsientosID_RECIBO = 'ID_RECIBO'; fld_AsientosID_PAGO = 'ID_PAGO';
{ Asientos field indexes } { Asientos field indexes }
idx_AsientosID = 0; idx_AsientosID = 0;
idx_AsientosFECHA_ASIENTO = 1; idx_AsientosFECHA_ASIENTO = 1;
idx_AsientosORDEN = 2; idx_AsientosORDEN = 2;
idx_AsientosID_FACTURA = 3; idx_AsientosID_FACTURA = 3;
idx_AsientosID_RECIBO = 4; idx_AsientosID_PAGO = 4;
{ SubCuentas fields } { SubCuentas fields }
fld_SubCuentasID = 'ID'; fld_SubCuentasID = 'ID';
@ -201,7 +201,7 @@ const
type type
{ IDiario } { IDiario }
IDiario = interface(IDAStronglyTypedDataTable) IDiario = interface(IDAStronglyTypedDataTable)
['{34F50D3B-CCFF-43ED-93B0-93F76A7E84FB}'] ['{16823056-4DCD-43B4-B86B-5D0030F56088}']
{ Property getters and setters } { Property getters and setters }
function GetID_APUNTEValue: Integer; function GetID_APUNTEValue: Integer;
procedure SetID_APUNTEValue(const aValue: Integer); procedure SetID_APUNTEValue(const aValue: Integer);
@ -293,7 +293,7 @@ type
end; end;
{ TDiarioDataTableRules } { TDiarioDataTableRules }
TDiarioDataTableRules = class(TIntfObjectDADataTableRules, IDiario) TDiarioDataTableRules = class(TDADataTableRules, IDiario)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -392,7 +392,7 @@ type
{ IApuntes } { IApuntes }
IApuntes = interface(IDAStronglyTypedDataTable) IApuntes = interface(IDAStronglyTypedDataTable)
['{39419296-F36C-4B17-A285-6AE774DE20EA}'] ['{8BDA0F63-7D8D-4969-94E3-1909589C1EBC}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -466,7 +466,7 @@ type
end; end;
{ TApuntesDataTableRules } { TApuntesDataTableRules }
TApuntesDataTableRules = class(TIntfObjectDADataTableRules, IApuntes) TApuntesDataTableRules = class(TDADataTableRules, IApuntes)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -547,7 +547,7 @@ type
{ IAsientos } { IAsientos }
IAsientos = interface(IDAStronglyTypedDataTable) IAsientos = interface(IDAStronglyTypedDataTable)
['{29F8B64F-FFAF-4EC3-8E00-619240FAD65E}'] ['{DB9AA9F6-57AC-4EC7-91A2-C64C8CE9471E}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -565,10 +565,10 @@ type
procedure SetID_FACTURAValue(const aValue: Integer); procedure SetID_FACTURAValue(const aValue: Integer);
function GetID_FACTURAIsNull: Boolean; function GetID_FACTURAIsNull: Boolean;
procedure SetID_FACTURAIsNull(const aValue: Boolean); procedure SetID_FACTURAIsNull(const aValue: Boolean);
function GetID_RECIBOValue: Integer; function GetID_PAGOValue: Integer;
procedure SetID_RECIBOValue(const aValue: Integer); procedure SetID_PAGOValue(const aValue: Integer);
function GetID_RECIBOIsNull: Boolean; function GetID_PAGOIsNull: Boolean;
procedure SetID_RECIBOIsNull(const aValue: Boolean); procedure SetID_PAGOIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -580,12 +580,12 @@ type
property ORDENIsNull: Boolean read GetORDENIsNull write SetORDENIsNull; property ORDENIsNull: Boolean read GetORDENIsNull write SetORDENIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property ID_RECIBO: Integer read GetID_RECIBOValue write SetID_RECIBOValue; property ID_PAGO: Integer read GetID_PAGOValue write SetID_PAGOValue;
property ID_RECIBOIsNull: Boolean read GetID_RECIBOIsNull write SetID_RECIBOIsNull; property ID_PAGOIsNull: Boolean read GetID_PAGOIsNull write SetID_PAGOIsNull;
end; end;
{ TAsientosDataTableRules } { TAsientosDataTableRules }
TAsientosDataTableRules = class(TIntfObjectDADataTableRules, IAsientos) TAsientosDataTableRules = class(TDADataTableRules, IAsientos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -605,10 +605,10 @@ type
procedure SetID_FACTURAValue(const aValue: Integer); virtual; procedure SetID_FACTURAValue(const aValue: Integer); virtual;
function GetID_FACTURAIsNull: Boolean; virtual; function GetID_FACTURAIsNull: Boolean; virtual;
procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual; procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
function GetID_RECIBOValue: Integer; virtual; function GetID_PAGOValue: Integer; virtual;
procedure SetID_RECIBOValue(const aValue: Integer); virtual; procedure SetID_PAGOValue(const aValue: Integer); virtual;
function GetID_RECIBOIsNull: Boolean; virtual; function GetID_PAGOIsNull: Boolean; virtual;
procedure SetID_RECIBOIsNull(const aValue: Boolean); virtual; procedure SetID_PAGOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -619,8 +619,8 @@ type
property ORDENIsNull: Boolean read GetORDENIsNull write SetORDENIsNull; property ORDENIsNull: Boolean read GetORDENIsNull write SetORDENIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property ID_RECIBO: Integer read GetID_RECIBOValue write SetID_RECIBOValue; property ID_PAGO: Integer read GetID_PAGOValue write SetID_PAGOValue;
property ID_RECIBOIsNull: Boolean read GetID_RECIBOIsNull write SetID_RECIBOIsNull; property ID_PAGOIsNull: Boolean read GetID_PAGOIsNull write SetID_PAGOIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -630,7 +630,7 @@ type
{ ISubCuentas } { ISubCuentas }
ISubCuentas = interface(IDAStronglyTypedDataTable) ISubCuentas = interface(IDAStronglyTypedDataTable)
['{69CA1EDA-1F20-4C22-BB2F-CF83E6E20FC9}'] ['{03047C67-9FEF-4ECE-8345-18EA5CD637FC}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -704,7 +704,7 @@ type
end; end;
{ TSubCuentasDataTableRules } { TSubCuentasDataTableRules }
TSubCuentasDataTableRules = class(TIntfObjectDADataTableRules, ISubCuentas) TSubCuentasDataTableRules = class(TDADataTableRules, ISubCuentas)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -785,7 +785,7 @@ type
{ ICuentas } { ICuentas }
ICuentas = interface(IDAStronglyTypedDataTable) ICuentas = interface(IDAStronglyTypedDataTable)
['{30AD049D-68C8-42E3-ABCD-A9A23B39E1D4}'] ['{6B9F3F8F-42C6-4E44-A3AE-B0C3404B008D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -853,7 +853,7 @@ type
end; end;
{ TCuentasDataTableRules } { TCuentasDataTableRules }
TCuentasDataTableRules = class(TIntfObjectDADataTableRules, ICuentas) TCuentasDataTableRules = class(TDADataTableRules, ICuentas)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -928,7 +928,7 @@ type
{ ICuentasEspeciales } { ICuentasEspeciales }
ICuentasEspeciales = interface(IDAStronglyTypedDataTable) ICuentasEspeciales = interface(IDAStronglyTypedDataTable)
['{9073F07B-053C-4FFA-BF6F-1A60A3278740}'] ['{5C46D55F-121A-4659-9A25-804952D79149}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -954,7 +954,7 @@ type
end; end;
{ TCuentasEspecialesDataTableRules } { TCuentasEspecialesDataTableRules }
TCuentasEspecialesDataTableRules = class(TIntfObjectDADataTableRules, ICuentasEspeciales) TCuentasEspecialesDataTableRules = class(TDADataTableRules, ICuentasEspeciales)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -987,7 +987,7 @@ type
{ IEpigrafes } { IEpigrafes }
IEpigrafes = interface(IDAStronglyTypedDataTable) IEpigrafes = interface(IDAStronglyTypedDataTable)
['{22C174EC-EF8A-4673-9D7B-9B837DDFFC73}'] ['{F85F5AE6-A7A9-4756-BEC2-B1BCD3729406}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1031,7 +1031,7 @@ type
end; end;
{ TEpigrafesDataTableRules } { TEpigrafesDataTableRules }
TEpigrafesDataTableRules = class(TIntfObjectDADataTableRules, IEpigrafes) TEpigrafesDataTableRules = class(TDADataTableRules, IEpigrafes)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1082,7 +1082,7 @@ type
{ IBalances } { IBalances }
IBalances = interface(IDAStronglyTypedDataTable) IBalances = interface(IDAStronglyTypedDataTable)
['{6B889291-1E5D-4F50-90F4-0B0DBDB40031}'] ['{C3FB6124-7643-4B1E-81A4-AEA3864E4E1C}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1144,7 +1144,7 @@ type
end; end;
{ TBalancesDataTableRules } { TBalancesDataTableRules }
TBalancesDataTableRules = class(TIntfObjectDADataTableRules, IBalances) TBalancesDataTableRules = class(TDADataTableRules, IBalances)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1859,25 +1859,25 @@ begin
DataTable.Fields[idx_AsientosID_FACTURA].AsVariant := Null; DataTable.Fields[idx_AsientosID_FACTURA].AsVariant := Null;
end; end;
function TAsientosDataTableRules.GetID_RECIBOValue: Integer; function TAsientosDataTableRules.GetID_PAGOValue: Integer;
begin begin
result := DataTable.Fields[idx_AsientosID_RECIBO].AsInteger; result := DataTable.Fields[idx_AsientosID_PAGO].AsInteger;
end; end;
procedure TAsientosDataTableRules.SetID_RECIBOValue(const aValue: Integer); procedure TAsientosDataTableRules.SetID_PAGOValue(const aValue: Integer);
begin begin
DataTable.Fields[idx_AsientosID_RECIBO].AsInteger := aValue; DataTable.Fields[idx_AsientosID_PAGO].AsInteger := aValue;
end; end;
function TAsientosDataTableRules.GetID_RECIBOIsNull: boolean; function TAsientosDataTableRules.GetID_PAGOIsNull: boolean;
begin begin
result := DataTable.Fields[idx_AsientosID_RECIBO].IsNull; result := DataTable.Fields[idx_AsientosID_PAGO].IsNull;
end; end;
procedure TAsientosDataTableRules.SetID_RECIBOIsNull(const aValue: Boolean); procedure TAsientosDataTableRules.SetID_PAGOIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_AsientosID_RECIBO].AsVariant := Null; DataTable.Fields[idx_AsientosID_PAGO].AsVariant := Null;
end; end;

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

@ -9,19 +9,19 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_DiarioDelta = '{5AB4FC97-693C-460A-925E-56936CC6F220}'; RID_DiarioDelta = '{0882ADEE-9AC8-4ABF-932B-341B3C4DD929}';
RID_ApuntesDelta = '{96F99DFB-E137-4E31-A0D8-39F7C43C8814}'; RID_ApuntesDelta = '{FFCEAAC4-532B-4238-8141-7A1B2E65D1D8}';
RID_AsientosDelta = '{97378BCF-3017-4244-B469-E13A964B3AF0}'; RID_AsientosDelta = '{ED941252-D8EA-41E5-9EEB-3B4AB1CFB04A}';
RID_SubCuentasDelta = '{7CC1A031-D5FA-41BC-9832-F3FA3541DD6E}'; RID_SubCuentasDelta = '{E4BAB612-0B84-49D5-B5F7-ACA3B30F0DDE}';
RID_CuentasDelta = '{2DA78E46-D506-4FD4-9CE3-DF3C9B0D2117}'; RID_CuentasDelta = '{5A5D97B0-25D5-4BFA-8974-C9EBAD102FAD}';
RID_CuentasEspecialesDelta = '{9C5919F3-A43F-4AC6-8110-E867F70C0CDE}'; RID_CuentasEspecialesDelta = '{E9896ABE-59CA-40BF-888C-FFA0D0AB9D98}';
RID_EpigrafesDelta = '{67FB0522-F1EC-47E8-B459-172539CFF79B}'; RID_EpigrafesDelta = '{52C0B7AD-1BC3-4ED0-B931-34CD705F2839}';
RID_BalancesDelta = '{E9EE47C8-0762-4259-BDC9-7CF3EEF83D9E}'; RID_BalancesDelta = '{29FAB9BD-5A16-46D4-98CD-ABFB8A584AE7}';
type type
{ IDiarioDelta } { IDiarioDelta }
IDiarioDelta = interface(IDiario) IDiarioDelta = interface(IDiario)
['{5AB4FC97-693C-460A-925E-56936CC6F220}'] ['{0882ADEE-9AC8-4ABF-932B-341B3C4DD929}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_APUNTEValue : Integer; function GetOldID_APUNTEValue : Integer;
function GetOldID_ASIENTOValue : Integer; function GetOldID_ASIENTOValue : Integer;
@ -211,7 +211,7 @@ type
{ IApuntesDelta } { IApuntesDelta }
IApuntesDelta = interface(IApuntes) IApuntesDelta = interface(IApuntes)
['{96F99DFB-E137-4E31-A0D8-39F7C43C8814}'] ['{FFCEAAC4-532B-4238-8141-7A1B2E65D1D8}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_ASIENTOValue : Integer; function GetOldID_ASIENTOValue : Integer;
@ -365,20 +365,20 @@ type
{ IAsientosDelta } { IAsientosDelta }
IAsientosDelta = interface(IAsientos) IAsientosDelta = interface(IAsientos)
['{97378BCF-3017-4244-B469-E13A964B3AF0}'] ['{ED941252-D8EA-41E5-9EEB-3B4AB1CFB04A}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldFECHA_ASIENTOValue : DateTime; function GetOldFECHA_ASIENTOValue : DateTime;
function GetOldORDENValue : Integer; function GetOldORDENValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
function GetOldID_RECIBOValue : Integer; function GetOldID_PAGOValue : Integer;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue; property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue;
property OldORDEN : Integer read GetOldORDENValue; property OldORDEN : Integer read GetOldORDENValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue; property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldID_RECIBO : Integer read GetOldID_RECIBOValue; property OldID_PAGO : Integer read GetOldID_PAGOValue;
end; end;
{ TAsientosBusinessProcessorRules } { TAsientosBusinessProcessorRules }
@ -410,12 +410,12 @@ type
function GetOldID_FACTURAIsNull: Boolean; virtual; function GetOldID_FACTURAIsNull: Boolean; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual; procedure SetID_FACTURAValue(const aValue: Integer); virtual;
procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual; procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
function GetID_RECIBOValue: Integer; virtual; function GetID_PAGOValue: Integer; virtual;
function GetID_RECIBOIsNull: Boolean; virtual; function GetID_PAGOIsNull: Boolean; virtual;
function GetOldID_RECIBOValue: Integer; virtual; function GetOldID_PAGOValue: Integer; virtual;
function GetOldID_RECIBOIsNull: Boolean; virtual; function GetOldID_PAGOIsNull: Boolean; virtual;
procedure SetID_RECIBOValue(const aValue: Integer); virtual; procedure SetID_PAGOValue(const aValue: Integer); virtual;
procedure SetID_RECIBOIsNull(const aValue: Boolean); virtual; procedure SetID_PAGOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -434,10 +434,10 @@ type
property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue; property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull; property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull;
property ID_RECIBO : Integer read GetID_RECIBOValue write SetID_RECIBOValue; property ID_PAGO : Integer read GetID_PAGOValue write SetID_PAGOValue;
property ID_RECIBOIsNull : Boolean read GetID_RECIBOIsNull write SetID_RECIBOIsNull; property ID_PAGOIsNull : Boolean read GetID_PAGOIsNull write SetID_PAGOIsNull;
property OldID_RECIBO : Integer read GetOldID_RECIBOValue; property OldID_PAGO : Integer read GetOldID_PAGOValue;
property OldID_RECIBOIsNull : Boolean read GetOldID_RECIBOIsNull; property OldID_PAGOIsNull : Boolean read GetOldID_PAGOIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -447,7 +447,7 @@ type
{ ISubCuentasDelta } { ISubCuentasDelta }
ISubCuentasDelta = interface(ISubCuentas) ISubCuentasDelta = interface(ISubCuentas)
['{7CC1A031-D5FA-41BC-9832-F3FA3541DD6E}'] ['{E4BAB612-0B84-49D5-B5F7-ACA3B30F0DDE}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREF_SUBCUENTAValue : String; function GetOldREF_SUBCUENTAValue : String;
@ -601,7 +601,7 @@ type
{ ICuentasDelta } { ICuentasDelta }
ICuentasDelta = interface(ICuentas) ICuentasDelta = interface(ICuentas)
['{2DA78E46-D506-4FD4-9CE3-DF3C9B0D2117}'] ['{5A5D97B0-25D5-4BFA-8974-C9EBAD102FAD}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREF_CUENTAValue : String; function GetOldREF_CUENTAValue : String;
@ -743,7 +743,7 @@ type
{ ICuentasEspecialesDelta } { ICuentasEspecialesDelta }
ICuentasEspecialesDelta = interface(ICuentasEspeciales) ICuentasEspecialesDelta = interface(ICuentasEspeciales)
['{9C5919F3-A43F-4AC6-8110-E867F70C0CDE}'] ['{E9896ABE-59CA-40BF-888C-FFA0D0AB9D98}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -801,7 +801,7 @@ type
{ IEpigrafesDelta } { IEpigrafesDelta }
IEpigrafesDelta = interface(IEpigrafes) IEpigrafesDelta = interface(IEpigrafes)
['{67FB0522-F1EC-47E8-B459-172539CFF79B}'] ['{52C0B7AD-1BC3-4ED0-B931-34CD705F2839}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREF_EPIGRAFEValue : String; function GetOldREF_EPIGRAFEValue : String;
@ -895,7 +895,7 @@ type
{ IBalancesDelta } { IBalancesDelta }
IBalancesDelta = interface(IBalances) IBalancesDelta = interface(IBalances)
['{E9EE47C8-0762-4259-BDC9-7CF3EEF83D9E}'] ['{29FAB9BD-5A16-46D4-98CD-ABFB8A584AE7}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREF_BALANCEValue : String; function GetOldREF_BALANCEValue : String;
@ -1962,35 +1962,35 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_FACTURA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_FACTURA] := Null;
end; end;
function TAsientosBusinessProcessorRules.GetID_RECIBOValue: Integer; function TAsientosBusinessProcessorRules.GetID_PAGOValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_RECIBO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_PAGO];
end; end;
function TAsientosBusinessProcessorRules.GetID_RECIBOIsNull: Boolean; function TAsientosBusinessProcessorRules.GetID_PAGOIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_RECIBO]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_PAGO]);
end; end;
function TAsientosBusinessProcessorRules.GetOldID_RECIBOValue: Integer; function TAsientosBusinessProcessorRules.GetOldID_PAGOValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_RECIBO]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_PAGO];
end; end;
function TAsientosBusinessProcessorRules.GetOldID_RECIBOIsNull: Boolean; function TAsientosBusinessProcessorRules.GetOldID_PAGOIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_RECIBO]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_PAGO]);
end; end;
procedure TAsientosBusinessProcessorRules.SetID_RECIBOValue(const aValue: Integer); procedure TAsientosBusinessProcessorRules.SetID_PAGOValue(const aValue: Integer);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_RECIBO] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_PAGO] := aValue;
end; end;
procedure TAsientosBusinessProcessorRules.SetID_RECIBOIsNull(const aValue: Boolean); procedure TAsientosBusinessProcessorRules.SetID_PAGOIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_RECIBO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_PAGO] := Null;
end; end;

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

@ -626,8 +626,8 @@ object srvContabilidad: TsrvContabilidad
TableField = 'ID_FACTURA' TableField = 'ID_FACTURA'
end end
item item
DatasetField = 'ID_RECIBO' DatasetField = 'ID_PAGO'
TableField = 'ID_RECIBO' TableField = 'ID_PAGO'
end> end>
end> end>
Name = 'Asientos' Name = 'Asientos'
@ -655,9 +655,8 @@ object srvContabilidad: TsrvContabilidad
DictionaryEntry = 'Asientos_ID_FACTURA' DictionaryEntry = 'Asientos_ID_FACTURA'
end end
item item
Name = 'ID_RECIBO' Name = 'ID_PAGO'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'Asientos_ID_RECIBO'
end> end>
end end
item item

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

@ -48,10 +48,10 @@
<DelphiCompile Include="Contabilidad_view.dpk"> <DelphiCompile Include="Contabilidad_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\Servidor\Contabilidad_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contabilidad_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\Contabilidad_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contabilidad_model.dcp" />
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="uContabilidadViewRegister.pas"> <DCCReference Include="uContabilidadViewRegister.pas">
<Form>frViewEpigrafes</Form> <Form>frViewEpigrafes</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>

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

Binary file not shown.

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

@ -4,25 +4,26 @@ inherited fEditorAsiento: TfEditorAsiento
HorzScrollBar.Visible = False HorzScrollBar.Visible = False
VertScrollBar.Visible = False VertScrollBar.Visible = False
Caption = 'Ficha de asiento' Caption = 'Ficha de asiento'
ClientWidth = 632 ClientHeight = 497
ClientWidth = 906
Scaled = False Scaled = False
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 640 ExplicitWidth = 914
ExplicitHeight = 488 ExplicitHeight = 524
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 632 Width = 906
Caption = 'Asiento' Caption = 'Asiento'
ExplicitWidth = 632 ExplicitWidth = 906
inherited Image1: TImage inherited Image1: TImage
Left = 605 Left = 879
Picture.Data = { Picture.Data = {
0B546478504E47496D61676589504E470D0A1A0A0000000D4948445200000018 0B546478504E47496D61676589504E470D0A1A0A0000000D4948445200000018
000000180806000000E0773DF8000000017352474200AECE1CE9000000046741 000000180806000000E0773DF8000000017352474200AECE1CE9000000046741
4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000 4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
80E8000075300000EA6000003A98000017709CBA513C00000009704859730000 80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
17110000171101CA26F33F000001DD49444154484BBD96CB4E42311086F18DF4 17100000171001186111DB000001DD49444154484BBD96CB4E42311086F18DF4
297C01972EDC68E2DBF804EEDCB831716F8C1B23BA6001410D12428020720D20 297C01972EDC68E2DBF804EEDCB831716F8C1B23BA6001410D12428020720D20
721147BFD13939A92D17459B344C7B3ADF3F336D39674D4412FFD24ECED232AF 721147BFD13939A92D17459B344C7B3ADF3F336D39674D4412FFD24ECED232AF
5B20F3D66D6CEE3B516F1D2B3CD41AEDBE64F38F5100D8F5762FB85E05D60FBE 5B20F3D66D6CEE3B516F1D2B3CD41AEDBE64F38F5100D8F5762FB85E05D60FBE
@ -42,8 +43,8 @@ inherited fEditorAsiento: TfEditorAsiento
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 632 Width = 906
ExplicitWidth = 632 ExplicitWidth = 906
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 330 ExplicitWidth = 330
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
@ -61,7 +62,7 @@ inherited fEditorAsiento: TfEditorAsiento
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
DockPos = 0 DockPos = 0
ExplicitWidth = 632 ExplicitWidth = 906
inherited TBXSubmenuItem4: TTBXSubmenuItem inherited TBXSubmenuItem4: TTBXSubmenuItem
inherited TBXItem8: TTBXItem inherited TBXItem8: TTBXItem
Visible = False Visible = False
@ -96,25 +97,28 @@ inherited fEditorAsiento: TfEditorAsiento
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 632 Width = 900
ActivePage = pagApuntes Height = 396
ExplicitWidth = 632 ExplicitLeft = 3
ExplicitTop = 79
ExplicitWidth = 900
ExplicitHeight = 396
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 624 ExplicitWidth = 892
ExplicitHeight = 338 ExplicitHeight = 368
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 624 Width = 892
Height = 338 Height = 368
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
DesignSize = ( DesignSize = (
624 892
338) 368)
object edtOrden: TcxDBSpinEdit object edtOrden: TcxDBSpinEdit
Left = 49 Left = 49
Top = 10 Top = 10
@ -147,7 +151,7 @@ inherited fEditorAsiento: TfEditorAsiento
Width = 168 Width = 168
end end
object edtFecha: TcxDBDateEdit object edtFecha: TcxDBDateEdit
Left = 303 Left = 414
Top = 10 Top = 10
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ASIENTO' DataBinding.DataField = 'FECHA_ASIENTO'
@ -168,84 +172,102 @@ inherited fEditorAsiento: TfEditorAsiento
TabOrder = 1 TabOrder = 1
Width = 253 Width = 253
end end
inline frViewApuntes1: TfrViewApuntes
Left = 22
Top = 55
Width = 848
Height = 287
AutoSize = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 2
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 55
ExplicitWidth = 848
ExplicitHeight = 287
inherited cxGrid: TcxGrid
Width = 848
Height = 262
ExplicitWidth = 848
ExplicitHeight = 262
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = frViewApuntes1.cxGridViewDEBE
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = frViewApuntes1.cxGridViewHABER
end>
end
end
inherited ToolBar1: TToolBar
Width = 848
ExplicitWidth = 848
inherited Label1: TLabel
Height = 22
ExplicitHeight = 22
end
end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item1: TdxLayoutItem object dxLayoutControl1Group3: TdxLayoutGroup
AutoAligns = [aaVertical] ShowCaption = False
AlignHorz = ahClient Hidden = True
Caption = 'Orden:' LayoutDirection = ldHorizontal
Control = edtOrden ShowBorder = False
ControlOptions.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
end end
object dxLayoutControl1Item2: TdxLayoutItem object dxLayoutControl1Group2: TdxLayoutGroup
AutoAligns = [aaVertical] AutoAligns = [aaHorizontal]
AlignHorz = ahClient AlignVert = avClient
Caption = 'Fecha:' Caption = 'Apuntes'
Control = edtFecha object dxLayoutControl1Item3: TdxLayoutItem
ControlOptions.ShowBorder = False AutoAligns = [aaHorizontal]
end AlignVert = avClient
end ShowCaption = False
end Control = frViewApuntes1
end ControlOptions.AutoColor = True
object pagApuntes: TTabSheet ControlOptions.ShowBorder = False
Caption = 'Apuntes' end
ImageIndex = 1
inline frViewApuntes1: TfrViewApuntes
Left = 0
Top = 0
Width = 624
Height = 338
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 624
ExplicitHeight = 338
inherited cxGrid: TcxGrid
Width = 624
Height = 313
ExplicitWidth = 624
ExplicitHeight = 313
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = frViewApuntes1.cxGridViewDEBE
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = frViewApuntes1.cxGridViewHABER
end>
end
end
inherited ToolBar1: TToolBar
Width = 624
ExplicitWidth = 624
inherited Label1: TLabel
Height = 22
ExplicitHeight = 22
end end
end end
end end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Width = 632 Top = 478
Width = 906
Panels = < Panels = <
item item
Width = 200 Width = 200
end> end>
ExplicitWidth = 632 ExplicitTop = 478
ExplicitWidth = 906
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
Top = 128 Top = 128

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

@ -22,7 +22,6 @@ type
TfEditorAsiento = class(TfEditorDBItem, IEditorAsiento) TfEditorAsiento = class(TfEditorDBItem, IEditorAsiento)
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel; dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
pagApuntes: TTabSheet;
frViewApuntes1: TfrViewApuntes; frViewApuntes1: TfrViewApuntes;
dxLayoutControl1Group_Root: TdxLayoutGroup; dxLayoutControl1Group_Root: TdxLayoutGroup;
dxLayoutControl1: TdxLayoutControl; dxLayoutControl1: TdxLayoutControl;
@ -30,6 +29,9 @@ type
edtOrden: TcxDBSpinEdit; edtOrden: TcxDBSpinEdit;
dxLayoutControl1Item2: TdxLayoutItem; dxLayoutControl1Item2: TdxLayoutItem;
edtFecha: TcxDBDateEdit; edtFecha: TcxDBDateEdit;
dxLayoutControl1Item3: TdxLayoutItem;
dxLayoutControl1Group2: TdxLayoutGroup;
dxLayoutControl1Group3: TdxLayoutGroup;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField); procedure dsDataTableDataChange(Sender: TObject; Field: TField);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);

14
Source/Modulos/Contabilidad/Views/uEditorElegirEpigrafes.dfm
View File

@ -25,7 +25,7 @@ inherited fEditorElegirEpigrafes: TfEditorElegirEpigrafes
SymbolFont.Name = 'Wingdings' SymbolFont.Name = 'Wingdings'
SymbolFont.Style = [fsBold] SymbolFont.Style = [fsBold]
Captions.Strings = ( Captions.Strings = (
'Seleccione el pedido de proveedor') 'Seleccione el epigrafe')
Comments.Strings = ( Comments.Strings = (
' ') ' ')
Gradient.FromColor = clHighlight Gradient.FromColor = clHighlight
@ -164,9 +164,17 @@ inherited fEditorElegirEpigrafes: TfEditorElegirEpigrafes
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 656 Width = 656
ExplicitWidth = 656 ExplicitWidth = 656
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 290 Left = 225
ExplicitLeft = 290 ExplicitLeft = 225
ExplicitWidth = 421 ExplicitWidth = 421
Width = 421 Width = 421
end end

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

@ -12,7 +12,7 @@ uses
JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls, JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls,
uBizEpigrafes, uIEditorElegirEpigrafes, uBizEpigrafes, uIEditorElegirEpigrafes,
JvExComCtrls, JvStatusBar, uEditorEpigrafes, uViewEpigrafes, JvExComCtrls, JvStatusBar, uEditorEpigrafes, uViewEpigrafes,
JSDialog, uDAInterfaces; JSDialog, uDAInterfaces, dxGDIPlusClasses;
type type
TfEditorElegirEpigrafes = class(TfEditorEpigrafes, IEditorElegirEpigrafes) TfEditorElegirEpigrafes = class(TfEditorEpigrafes, IEditorElegirEpigrafes)

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

@ -1,9 +1,13 @@
inherited frViewApuntes: TfrViewApuntes inherited frViewApuntes: TfrViewApuntes
Width = 623 Width = 899
ExplicitWidth = 623 Height = 346
ExplicitWidth = 899
ExplicitHeight = 346
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 623 Width = 899
ExplicitWidth = 623 Height = 321
ExplicitWidth = 899
ExplicitHeight = 560
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -21,16 +25,17 @@ inherited frViewApuntes: TfrViewApuntes
OptionsView.CellAutoHeight = False OptionsView.CellAutoHeight = False
OptionsView.Footer = True OptionsView.Footer = True
inherited cxGridViewID: TcxGridDBColumn inherited cxGridViewID: TcxGridDBColumn
Visible = True
Options.Sorting = False Options.Sorting = False
end end
object cxGridViewNUM_ORDEN: TcxGridDBColumn object cxGridViewNUM_ORDEN: TcxGridDBColumn
DataBinding.FieldName = 'NUM_ORDEN' DataBinding.FieldName = 'NUM_ORDEN'
Visible = False
SortIndex = 0 SortIndex = 0
SortOrder = soAscending SortOrder = soAscending
end end
object cxGridViewID_ASIENTO: TcxGridDBColumn object cxGridViewID_ASIENTO: TcxGridDBColumn
DataBinding.FieldName = 'ID_ASIENTO' DataBinding.FieldName = 'ID_ASIENTO'
Visible = False
Options.Sorting = False Options.Sorting = False
end end
object cxGridViewREF_SUBCUENTA: TcxGridDBColumn object cxGridViewREF_SUBCUENTA: TcxGridDBColumn
@ -63,6 +68,7 @@ inherited frViewApuntes: TfrViewApuntes
Width = 109 Width = 109
end end
object cxGridViewDOCUMENTO: TcxGridDBColumn object cxGridViewDOCUMENTO: TcxGridDBColumn
Caption = 'Documento'
DataBinding.FieldName = 'DOCUMENTO' DataBinding.FieldName = 'DOCUMENTO'
Options.Sorting = False Options.Sorting = False
Width = 58 Width = 58
@ -86,8 +92,8 @@ inherited frViewApuntes: TfrViewApuntes
end end
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 623 Width = 899
ExplicitWidth = 623 ExplicitWidth = 899
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
Top = 0 Top = 0
ExplicitTop = 0 ExplicitTop = 0
@ -119,23 +125,23 @@ inherited frViewApuntes: TfrViewApuntes
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 336 Left = 336
Top = 0 Top = 0
Width = 121 Width = 8
Caption = 'ToolButton3' Caption = 'ToolButton3'
ImageIndex = 4 ImageIndex = 4
Style = tbsSeparator Style = tbsSeparator
end end
object Label1: TLabel object Label1: TLabel
Left = 457 Left = 344
Top = 0 Top = 0
Width = 55 Width = 55
Height = 13 Height = 22
Margins.Top = 8 Margins.Top = 8
Alignment = taRightJustify Alignment = taRightJustify
Caption = 'Descuadre:' Caption = 'Descuadre:'
Layout = tlCenter Layout = tlCenter
end end
object eDescuadre: TcxCurrencyEdit object eDescuadre: TcxCurrencyEdit
Left = 512 Left = 399
Top = 0 Top = 0
Enabled = False Enabled = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
@ -143,6 +149,8 @@ inherited frViewApuntes: TfrViewApuntes
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0 TabOrder = 0
BiDiMode = bdLeftToRight
ParentBiDiMode = False
Width = 112 Width = 112
end end
end end

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

Binary file not shown.

1218
Source/Modulos/Contabilidad/Views/uViewCuenta.dfm
View File

File diff suppressed because it is too large Load Diff

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

@ -37,7 +37,6 @@ type
dxLayoutControlCuentaItem5: TdxLayoutItem; dxLayoutControlCuentaItem5: TdxLayoutItem;
eEpigrafe: TcxDBTextEdit; eEpigrafe: TcxDBTextEdit;
png: TActionList; png: TActionList;
LargeImages: TPngImageList;
actElegirEpigrafe: TAction; actElegirEpigrafe: TAction;
BitBtn1: TBitBtn; BitBtn1: TBitBtn;
dxLayoutControlCuentaItem6: TdxLayoutItem; dxLayoutControlCuentaItem6: TdxLayoutItem;
@ -50,6 +49,7 @@ type
dxLayoutControlCuentaGroup4: TdxLayoutGroup; dxLayoutControlCuentaGroup4: TdxLayoutGroup;
actBalance: TAction; actBalance: TAction;
actCuentaEspecial: TAction; actCuentaEspecial: TAction;
SmallImages: TPngImageList;
procedure actElegirEpigrafeExecute(Sender: TObject); procedure actElegirEpigrafeExecute(Sender: TObject);
procedure actBalanceExecute(Sender: TObject); procedure actBalanceExecute(Sender: TObject);
procedure actCuentaEspecialExecute(Sender: TObject); procedure actCuentaEspecialExecute(Sender: TObject);

119
Source/Modulos/Contabilidad/Views/uViewCuentas.dfm
View File

@ -102,6 +102,125 @@ inherited frViewCuentas: TfrViewCuentas
6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082} 6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082}
Name = 'PngImage0' Name = 'PngImage0'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD25200000A4D694343505068
6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF
F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A
561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5
7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8
1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC
01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200
C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05
00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2
00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C
CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97
4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313
48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F
223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA
560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED
2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383
FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A
F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86
4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432
79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0
812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C
0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70
170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261
48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA
90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F
5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961
5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402
8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2
272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93
48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90
6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452
A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650
2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83
1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7
192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295
3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9
09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685
46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9
EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C
4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED
EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB
79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31
3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87
67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94
6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85
A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6
5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29
D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B
743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6
4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD
D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7
C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E
3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B
FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5
0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1
15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0
476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67
BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845
F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC
A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7
6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA
68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C
949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423
F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433
DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317
772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2
A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17
955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4
EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E
CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9
26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD
8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF
B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C
7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD
EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293
E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7
5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F
EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6
EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07
FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247
CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73
ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC
CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F
F73EE77CFEFC2FF784F3FB25D29F33000003854944415478DA45536F6C13651C
7EDEEBB55DBBB6DC58A774C014458961732633C34DA66119BA44D8FC4F0C6A8C
C60F1A348A06E2278D5F3466F30F64561C2C6661737F20A4452422B8AEDD022C
133410E2826C761D74738CDBD6EBB577F7DE9DEF5D4DF8E5EEC37BBF3CCFEFB9
E7F9BD64B0E7F368A89C6F043191BE6E24647ED331973FC81986460CC304C799
F07A9C98B93147C287FA13723E7FC9EDE4410881556434D696AF7FDCEBB60EE2
2D136363AC61584D833D1419894765EDB358920D0C464EA5068F9F7EC6E570FC
CEF38E0241FC4C9BD8D0E81552D314937FC9F0B81406B4C03A7B352C670872B2
1FCED066D4D63D8ACEEEE874F7C0895728A5718EE3404686DAC5DA475CC2E913
4B78F0EE5994F855508D42572486CF435B9EC1C573D7B0B07E1FA6C400946C06
F1B37FFC7C6B71691BC7394C7236D1260A0108626A01750FDD045528684E0255
25103D87ABE3E3907CCF61C3F630C6FFBC86A9E9191C3C1CFD293D7773BBCBF2
62F8CC97227453A85A9342C023419165E8F90C74350B75318DF3E76750FDEA2F
104275E00C1589731378FDB5AEF9F959B98C5930497A0F7D9CA9AA98F3DDBB2A
055552986F390696D97415C9890988819D78F8C51F2067321017B378F9A54E34
34DC7FA5A3E3B78D8CA089747DDAFA8F5F8CDEC1FB5678EC684C13A6E52E4B41
52DC78ECAD53282EAD84A9E7B17FFF1092C905748677468B8A77B5DA29EC7BBF
DE6BB882AD4FBDDDD55B5EE280A2320FA8019552700E1E5E7F0923A576648D8D
EDF8FAAB1DA8AA5E1B093D1DDD51718F8F23DF7EF101DC154F6E6B6EDA7CBCBC
D4839CA243D174A88C08F63AB0486D4D4079E843DC48B743F03923EF7C73E185
A3176639D279641484E35A9A36DD17099509C8E6145B01D56F03AD4A24AE22DC
11434FDF9B2876F3D1D2E0EEC22F1C1888B3B5345BB6D43E1059150C30028D11
B03DD01998DC26181DF91BDF8587D17DF80DCBA6E8FA751F1508BE1F18660468
69A8D910295BE9879C638BA4EBB0EE0153669B6AD5E5CBD7F1EEAE1F111FD90B
8E905FEF5ABBE7099B20DC37C43EA0654B5D6524141420CB0A54265FA33AB380
A0706708E3315053FD0976EFD91ADBDABCF1687DCD673DACB1971CE88F817790
E7EF5CE91F4CFFBB5000B2A1FAFF936D022B05E2C4686C0AFDDD17115AE39F9F
9FCB6A5433DE237D27C72CAFD6F51E39D97C6562124545EE826C7B2798919C13
A4683567E69286A524BFCCADCE4B08BA3C3898BC648CFF07E17FA83BFA2242B7
0000000049454E44AE426082}
Name = 'PngImage1'
Background = clWindow
end> end>
Left = 160 Left = 160
Top = 32 Top = 32

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

Binary file not shown.

1240
Source/Modulos/Contabilidad/Views/uViewEpigrafe.dfm
View File

File diff suppressed because it is too large Load Diff

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

@ -36,9 +36,9 @@ type
dxLayoutControlEpigrafeItem4: TdxLayoutItem; dxLayoutControlEpigrafeItem4: TdxLayoutItem;
BitBtn1: TBitBtn; BitBtn1: TBitBtn;
dxLayoutControlEpigrafeGroup2: TdxLayoutGroup; dxLayoutControlEpigrafeGroup2: TdxLayoutGroup;
LargeImages: TPngImageList;
png: TActionList; png: TActionList;
actElegirEpigrafe: TAction; actElegirEpigrafe: TAction;
SmallImages: TPngImageList;
procedure actElegirEpigrafeExecute(Sender: TObject); procedure actElegirEpigrafeExecute(Sender: TObject);
protected protected
FController : IEpigrafesController; FController : IEpigrafesController;
@ -66,7 +66,7 @@ var
AEpigrafe : IBizEpigrafe; AEpigrafe : IBizEpigrafe;
begin begin
inherited; inherited;
AEpigrafe := (Controller.ElegirEpigrafe(Controller.BuscarTodos, 'ddddddd', False) as IBizEpigrafe); AEpigrafe := (Controller.ElegirEpigrafe(Controller.BuscarTodos, 'El epigrafe seleccionado se establecerá como padre', False) as IBizEpigrafe);
Controller.AsignarPadre(Epigrafe, AEpigrafe); Controller.AsignarPadre(Epigrafe, AEpigrafe);
AEpigrafe := Nil; AEpigrafe := Nil;
end; end;

121
Source/Modulos/Contabilidad/Views/uViewEpigrafes.dfm
View File

@ -3,6 +3,7 @@ inherited frViewEpigrafes: TfrViewEpigrafes
ExplicitHeight = 449 ExplicitHeight = 449
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Height = 321 Height = 321
ExplicitHeight = 321
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'ID' DataController.KeyFieldNames = 'ID'
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
@ -58,6 +59,7 @@ inherited frViewEpigrafes: TfrViewEpigrafes
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 423 Top = 423
ExplicitTop = 423
ExplicitWidth = 554 ExplicitWidth = 554
end end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
@ -97,6 +99,125 @@ inherited frViewEpigrafes: TfrViewEpigrafes
6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082} 6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082}
Name = 'PngImage0' Name = 'PngImage0'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD25200000A4D694343505068
6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF
F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A
561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5
7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8
1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC
01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200
C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05
00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2
00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C
CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97
4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313
48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F
223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA
560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED
2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383
FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A
F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86
4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432
79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0
812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C
0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70
170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261
48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA
90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F
5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961
5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402
8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2
272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93
48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90
6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452
A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650
2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83
1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7
192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295
3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9
09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685
46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9
EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C
4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED
EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB
79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31
3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87
67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94
6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85
A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6
5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29
D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B
743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6
4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD
D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7
C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E
3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B
FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5
0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1
15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0
476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67
BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845
F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC
A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7
6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA
68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C
949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423
F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433
DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317
772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2
A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17
955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4
EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E
CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9
26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD
8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF
B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C
7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD
EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293
E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7
5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F
EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6
EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07
FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247
CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73
ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC
CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F
F73EE77CFEFC2FF784F3FB25D29F33000003824944415478DA4D536F6C13651C
7EDEEBB55DCB5A3B56840E011194900C3102834D86812C4822DBF04F58C8942F
8608C60F1A89FFBE98F80562A61F46A48E02310BFBC34A625A84451C766DB700
6306B619C2840DB756D70DC66DBBEB5DEF7A7F7CEFAAD15FEE3EDCFBBBE7F9FD
F23CCF4BC26DC7A3813276178881A93FF5A4C86EFDC1E1F133BA9E27BA6E8061
0CB85D76A4FF9A26C133E793622E37E2B4B32084C02CD2DFDB94AB7AD9ED343F
B8C70606066843379B3A7D54F0028BF28AD7312FEA0847AEA4C2177B5E73D86C
BFB2ACAD4090B8DAC455EF72FB52932AC6EF8A7039640A34C11A7DF358E00924
D1037B603B2A2A5F42A8353AD9DA75E96D5555130CC380F4C5BEE62AB6397C3D
97E6F1FCD319947814A879159A2C507C0EF985346E5D1FC3ECDA663CE0BC90B3
3C12D76E5F7E3C37BF97616C06B9966CE27C5EF8B8D42C2A5F78045556A14A02
544500D124DC1B1C8450FC06D6D506313834860793699C3E17FD716AFA51ADC3
D4227EF51B0E9AE1DBF0540A5E97005914A1E578684A16CADC146EDC4863E3C1
9FE00B5482D1158CA767F0EEE1D0D0CDBE4C0795204CDACF7CC16F58395DBC66
590A8A2053DD240A16E9740513A3A3E0BC8DD8BCFF7B883C0F6E2E8BB70E8430
33C38B99CC7C86129490B35FD6FFE1E1A24FB2C54FB82C6B0C0386A92E754190
9DD871E40A169596C3D07238712286E1A114BA3A0E458B16BD5F4F7F1B23CD1F
56B97587BFFED5F7CEB69795D8202B54035587A2AA606C2CDC9E124AAA5A96AD
79E673C46247B162556924B02FDA904FFE72999CFCEA233857BEB2774FCDF68B
65A52E48B20639AF41A144B0E2402DA53B2513F7D0D0D082EA1DCF41E0A587B7
6EA786E9F18B2474A11F8461EA6AB63E1B092CF1212BC9D606AA5600FE5B27BF
ED455BDB7534366EC31C97BD130CC65BAD20B57425682C8DBA9D15EB23CBFC5E
4A90A70434071A0593FF08BE0BC6D1DF771FADE7DE31658AAE5DFD59BD4570AA
2B4E095057BD695D64C9620F44890649D360DE03BA9925AA59A75AE2E8ECB889
44DF276008F979D58A8F775B2E043B63F400753B2BCB2301BF0FA22843A1EBE7
558D4A4050B8330423C329ECAB6DC6FE035B863F385A13AADA74EC2E6D1C272D
E77BC1DAC89B4B177BC25333B305201DAAFD33D922305D207644C3BFA1A7FB77
FCAF3E259DDD03A656ABDB2F74EFB9333A8EA22267616D2B135448C60E52B49C
31A409DDDC24B7C02CCF09F03B5C383D31A20FFE0D3DD9B01652475B27000000
0049454E44AE426082}
Name = 'PngImage1'
Background = clWindow
end> end>
Left = 160 Left = 160
Top = 32 Top = 32

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

Binary file not shown.

1218
Source/Modulos/Contabilidad/Views/uViewSubCuenta.dfm
View File

File diff suppressed because it is too large Load Diff

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

@ -38,7 +38,7 @@ type
dxLayoutControlSubCuentaGroup2: TdxLayoutGroup; dxLayoutControlSubCuentaGroup2: TdxLayoutGroup;
png: TActionList; png: TActionList;
actCuenta: TAction; actCuenta: TAction;
LargeImages: TPngImageList; SmallImages: TPngImageList;
procedure actCuentaExecute(Sender: TObject); procedure actCuentaExecute(Sender: TObject);
protected protected
FSubCuenta: IBizSubCuenta; FSubCuenta: IBizSubCuenta;

119
Source/Modulos/Contabilidad/Views/uViewSubCuentas.dfm
View File

@ -110,6 +110,125 @@ inherited frViewSubCuentas: TfrViewSubCuentas
6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082} 6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082}
Name = 'PngImage0' Name = 'PngImage0'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD25200000A4D694343505068
6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF
F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A
561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5
7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8
1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC
01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200
C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05
00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2
00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C
CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97
4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313
48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F
223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA
560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED
2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383
FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A
F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86
4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432
79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0
812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C
0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70
170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261
48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA
90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F
5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961
5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402
8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2
272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93
48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90
6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452
A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650
2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83
1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7
192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295
3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9
09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685
46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9
EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C
4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED
EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB
79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31
3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87
67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94
6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85
A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6
5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29
D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B
743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6
4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD
D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7
C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E
3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B
FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5
0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1
15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0
476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67
BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845
F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC
A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7
6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA
68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C
949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423
F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433
DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317
772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2
A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17
955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4
EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E
CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9
26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD
8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF
B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C
7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD
EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293
E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7
5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F
EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6
EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07
FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247
CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73
ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC
CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F
F73EE77CFEFC2FF784F3FB25D29F33000003864944415478DA65936D6C535518
C7FFE7DEBBBED8AD7BDFCA3A82E878494CA6C10C65E09C26637442C84C1C227C
31114DE493D1C40F661F8C01913029768B44093A47A78165226FA9D93A0B7553
E4257468C81A0964A9EB60B47B697B7BDB9E7BAE4F8BC60F9E2FCF799EE4F9FD
9F9773D8D0E0815375F5456D0C1CD37745306E6C3C535CE92CD2B9260903508A
7454979971673A2277EFF3F80CC398AAAC2803630C7407BB3CDE935BDF6C5300
03892443F0A280A11B5028023D8DFB0F246CDCB217BA21F0D917DE58FFE0F7AE
D2D2922BC5362B745D8005FD876636BD58BC2C12D1F1C7F5242AED2A91052004
24A16121A1201EB3A2F8D156B8DA9E87E7EBF3B307FB4E6C5514E59A224B60BF
8E7F1A6D5A6F710C0DCC63DDEA08EAEA32E06983C497A8280E2515C6D8E95B98
6B3C8ED9742D4CB286F3A3BF046666E75EB05ACC6037AEF64465893966A6EE61
73470C58A26475095C4BC26CCEE2CA193FB49A9D786AC73738E70FE1AF6804EE
A3DF9D8B46E7B695DA6D6013E37DD16442763CFDF86D54D813D0E6A9026D81FA
D7A0466F616CE42E36BD1782A3BE11F9B19CF5DDC46BAF1E4DA5556E237794F5
7FB93FF9CC9A69DBAA9A3092310D826BE01915262987D0CFB7A13A5F41CB1B27
11BB9FA0E1EA686D3988FDFB3AC777ED3EB68D0007D8B1EE8EC9F2D885555299
DDC2645A4D7E77F9151128A557A365EF08CA96AD4536954030F8273C9E31AAEA
DD11C5F4D6660294B39ED757D8545343D7F6F7BDC797DB2568991CB2DC40369B
83D96A4179950322A7111438E21EC5A54B61E1FDF66D6F7DFBD01EC7EA12C6DC
1FBE0953C3CEF697B7B7FA6AA9AB1C6133591004F9A741ED24C9D25A89303919
C1967637EC76CB809AD607F5679B03ACEFE404552C77766C786C7885B30AF105
159C7AE542C77F873DA4D1F9E17448EB3DE28F4E85EFAD24B78B7906036086DE
E97AAE7178B9A302B1C52438171005D5FF1F41CF9773E3A7B50D1FFC569841AF
D79F57E86C6B7E62D8E928C7FC62EA1F80014962FF0A93219F866B329B502449
0147ED3BBE426D87FB7D0540976BC3705D750992698E1CFD850C0D219FC09854
E820DF84FBF08FB91DBB9ABEE29CFB9B9EFC680F853E617DDE51984CCAEE95CE
AA8199E81CD294C84859E80FA519232B3288C5053EEE1E81F5116551D3B86236
CB17E30FD22FB1B381DF896E341CFAFC84EBF2D59BA8A9AA300ADF94D4697F80
6C012CF5CC50EF18149132F3D6758A19B9924AF48627E4D0DF3037A6C9A44E5A
240000000049454E44AE426082}
Name = 'PngImage1'
Background = clWindow
end> end>
Left = 160 Left = 160
Top = 32 Top = 32

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

Binary file not shown.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -83,8 +83,6 @@ uses
schEjerciciosClient_Intf in '..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas', schEjerciciosClient_Intf in '..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas',
srvContabilidad_Impl in '..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas' {srvContabilidad: TDataAbstractService}, srvContabilidad_Impl in '..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas' {srvContabilidad: TDataAbstractService},
uBizPagosClienteServer in '..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas', uBizPagosClienteServer in '..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas',
schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas',
schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
@ -109,7 +107,9 @@ uses
schRemesasProveedorServer_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas', schRemesasProveedorServer_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas',
srvUnidadesMedida_Impl in '..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas' {srvUnidadesMedida: TDataAbstractService}, srvUnidadesMedida_Impl in '..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas' {srvUnidadesMedida: TDataAbstractService},
schUnidadesMedidaClient_Intf in '..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas', schUnidadesMedidaClient_Intf in '..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas',
schUnidadesMedidaServer_Intf in '..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas'; schUnidadesMedidaServer_Intf in '..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas',
schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas',
schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

458
Source/Servidor/FactuGES_Server.dproj
View File

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

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.0.0.0\0" VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0" VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "miércoles, 02 de enero de 2008 12:27\0" VALUE "CompileDate", "miércoles, 02 de enero de 2008 19:23\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"