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

Se adaptan los detalles de presupuestos y contratos para que se pueda establecer si es valorado o no. Para cubrir las necesidades de los presupuestos de cocina

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@462 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2009-11-20 18:14:24 +00:00
parent c189082dab
commit 65871e6776
27 changed files with 634 additions and 769 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Source/Base/Base.res
View File

Binary file not shown.

9
Source/Base/Controladores/uControllerDetallesBase.pas
View File

@ -118,17 +118,21 @@ end;
procedure TControllerDetallesBase.Add(ADataTable: IDAStronglyTypedDataTable; TipoConcepto: Variant); procedure TControllerDetallesBase.Add(ADataTable: IDAStronglyTypedDataTable; TipoConcepto: Variant);
var var
AuxNumOrden : Integer; AuxNumOrden : Integer;
AuxVisible : Variant;
begin begin
BeginUpdate(ADataTable); BeginUpdate(ADataTable);
try try
with ADataTable do with ADataTable do
begin begin
AuxVisible := DataTable.FieldByName(CAMPO_VISIBLE).AsVariant;
AuxNumOrden := desplazarNPosiciones(DataTable, DataTable.FieldByName(CAMPO_POSICION).AsVariant, 1); AuxNumOrden := desplazarNPosiciones(DataTable, DataTable.FieldByName(CAMPO_POSICION).AsVariant, 1);
DataTable.Insert; DataTable.Insert;
DataTable.FieldByName(CAMPO_POSICION).AsInteger := AuxNumOrden; DataTable.FieldByName(CAMPO_POSICION).AsInteger := AuxNumOrden;
DataTable.FieldByName(CAMPO_TIPO).AsVariant := TipoConcepto; DataTable.FieldByName(CAMPO_TIPO).AsVariant := TipoConcepto;
if not VarIsNull(AuxVisible) then
DataTable.FieldByName(CAMPO_VISIBLE).AsInteger := AuxVisible;
DataTable.post; DataTable.post;
end; end;
finally finally
@ -159,7 +163,7 @@ var
AuxPosicion : Integer; AuxPosicion : Integer;
AuxImporteAcumulado : Double; AuxImporteAcumulado : Double;
AuxImporteTotal : Double; AuxImporteTotal : Double;
SemaforoOpcional: Boolean; SemaforoOpcional: Boolean; //Sirve para capitulos opcionales como en tecsitel, donde no queremos que sumen su totalidad al total del documento
begin begin
if (DataTable.State in dsEditModes) then if (DataTable.State in dsEditModes) then
@ -223,7 +227,8 @@ begin
begin begin
if Modificar then if Modificar then
TratamientoDetalleConcepto(DataTable); //Se podrá sobreescribir para que se tengan en cuenta nuevos campos TratamientoDetalleConcepto(DataTable); //Se podrá sobreescribir para que se tengan en cuenta nuevos campos
CalculoDetalleConcepto(DataTable, AuxImporteAcumulado, AuxImporteTotal, SemaforoOpcional); //Se podrá sobreescribir para posibles nuevos calculos de los hijos if DataTable.FieldByName(CAMPO_VISIBLE).AsBoolean then //Se usa para saber si el concepto se sumará o no como un concepto más del presupuesto
CalculoDetalleConcepto(DataTable, AuxImporteAcumulado, AuxImporteTotal, SemaforoOpcional); //Se podrá sobreescribir para posibles nuevos calculos de los hijos
end end
//HIJOS //HIJOS
else CalcularTotalesHijos(Modificar, DataTable, AuxImporteAcumulado, AuxImporteTotal); else CalcularTotalesHijos(Modificar, DataTable, AuxImporteAcumulado, AuxImporteTotal);

1
Source/Base/Utiles/uCalculosUtils.pas
View File

@ -16,6 +16,7 @@ const
CAMPO_IMPORTE_TOTAL = 'IMPORTE_TOTAL'; CAMPO_IMPORTE_TOTAL = 'IMPORTE_TOTAL';
CAMPO_DESCUENTO = 'DESCUENTO'; CAMPO_DESCUENTO = 'DESCUENTO';
CAMPO_IMPORTE_PORTE = 'IMPORTE_PORTE'; CAMPO_IMPORTE_PORTE = 'IMPORTE_PORTE';
CAMPO_VISIBLE = 'VISIBLE'; //Se usará para saber si un concepto se debe sumar o no
function CalcularLineaConcepto (const ADataTable : TDADataTable): Double; function CalcularLineaConcepto (const ADataTable : TDADataTable): Double;
procedure ValidarCamposLineaConcepto(DataTable: TDADataTable); procedure ValidarCamposLineaConcepto(DataTable: TDADataTable);

2
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +53,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.3.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.3.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.3.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.3.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>

8
Source/Cliente/FactuGES.rc
View File

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

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

79
Source/GUIBase/uViewDetallesBase.dfm
View File

@ -267,35 +267,56 @@ inherited frViewDetallesBase: TfrViewDetallesBase
Properties.DisplayChecked = '1' Properties.DisplayChecked = '1'
Properties.DisplayUnchecked = '0' Properties.DisplayUnchecked = '0'
Properties.Glyph.Data = { Properties.Glyph.Data = {
92030000424D9203000000000000920100002800000020000000100000000100 36060000424D3606000000000000360000002800000020000000100000000100
08000000000000020000120B0000120B0000570000005700000000000000FFFF 18000000000000060000120B0000120B00000000000000000000FFFFFFFFFFFF
FF0040384000703840008048500090586000C0606000A0505000804040006030 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
30009050500070404000A060600090606000A0707000B0808000C09090004030 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
3000E0B0B000B0909000FFF0F000FF787000E0787000C0686000FF9890009048 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
4000A0585000D0888000E0989000E0706000FF80700080484000A0686000FFA0 FFFFFFFFFFFFFFFFFFFFFFFFC9C9C98989897A7A7A6A6A6A666666A2A2A2FFFF
9000FF887000B060500070484000FFB0A000C0989000D0A8A000E0B8B000FF98 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAACEE56D
8000A0605000FFC0B000F0C0B00080686000F0D8D000B0908000E0C8B000E0D8 90A15684983D778F336E9389A6B9FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
D000FFE0C000FFF8F000F0E0C000FFF0D000FFF8E00020283000FEFEFE00FAFA FFFFFFFFFFFFFFFFFFFFFFFF9D9D9DE5E5E5DADADAB9B9B9AEAEAE636363CDCD
FA00F7F7F700F3F3F300F1F1F100F0F0F000EDEDED00EAEAEA00E7E7E700E6E6 CDDDDDDDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5BAADABE
E600E3E3E300E0E0E000DADADA00D7D7D700D3D3D300D0D0D000CDCDCD00C9C9 FFFFA3FCFF61DBFF4CD0FF1D6FA4C6CED3D7DFE3FFFFFFFFFFFFFFFFFFFFFFFF
C900C6C6C600C4C4C400C3C3C300C0C0C000BEBEBE00BCBCBC00B9B9B900B7B7 FFFFFFFFFFFFFFFFFFFFFFFFEFEFEF9B9B9B7272726E6E6E6F6F6F5E5E5E5E5E
B700B3B3B300AEAEAE00ACACAC00A6A6A600FFFFFF0056565656565656565656 5E696969848484FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE1F1FC5A
5656565656565656565656565656565656565656565656565656565656565656 A8D4337EAA277EAE2C83A827698E26708D2076AB5D8BA8FFFFFFFFFFFFFFFFFF
5656565656565656565656565656565656565656565656565656565656565656 FFFFFFFFFFFFE7E7E7E7E7E7DCDCDCA8A8A8D9D9D9A7A7A78F8F8F6E6E6E7373
5656565656565656565656565656565656565656565656565656565656565656 73B1B1B17B7B7BFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE0B0B0E0B8B0D4C0AB6B
5656565656565656565656565656565656565656565656565656404040444C4C B0D4BEEBEB67C0DB3AA7D72179B42B84B252D4FF4F84A3FFFFFFB9B9B98E8E8E
463D5656565656565656122830262D2D2F325656565644444444433E4145474A 7979797F7F7F8181818282826666667171718888888D8D8D8181819797976363
50463B404456101010102734181D061A242F35122656564646443A3F434A544C 635F5F5F686868737373BFA297A282779868619D6F689F746BB17C68945C4733
49493A3C4646560F0F10362C1507110A2320362E0F0F56564845394341535554 7DA83FA1C5439CCF3593C448ABDC2773961E6B95515F6A99755ED7D7D7F9F9F9
44473944484856560E13331C21023711161714260E0E5656564A3E403E38544A DEDEDEE4E4E4DADADAC7C7C7919191ABABAB9595956B6B6B525252606060ACAC
4344464B4B565656560D31122B01111A1E1B0F050556565656564E49423F4343 AC9898988C8C8C7A7A7AE7D6D0F7FCF6CFF1D8DBF0DDCDEBD1B9E3B253A8C47E
434A4E4E565656565656040C2925221E1E2A04045656565656565650504F4D4F B3D36B9DBB2780A5085E9521649E51BDFF2AA4FF578EC0987E67DBDBDBCCCCCC
50505056565656565656560B0B1F19080B0B0B56565656565656565652505151 999999767676737373CDCDCDC8C8C8CDCDCDC6C6C6BEBEBEC0C0C05757577B7B
505656565656565656565656090B03030B565656565656565656565656565656 7B828282B4B4B4868686F0D6D6B9E4C359E08A28CF5F35BF58B8E8BF9CD1F08E
5656565656565656565656565656565656565656565656565656565656565656 E7FF7DE7FF6EDBFF76D5FF15828344AE813DC092A1CAAEAB7D72E0E0E0CCCCCC
5656565656565656565656565656565656565656565656565656565656565656 6B6B6B777777D6D6D6CFCFCFE0E0E06C6C6C414141B4B4B4BFBFBF9191914A4A
5656565656565656565656565656565656565656565656565656565656565656 4A393939AFAFAF979797F6D8DAB9E3C217CB543ABF60CCE3CFC1ECBAD7F6CE2B
56565656565656565656565656565656565656565656} C047009B1190E39FA6E1AE6BC96D229F08008E00ABCF91B78A90DEDEDECCCCCC
7070709C9C9CFFFFFF4646467171716A6A6A6767678585855050508989899C9C
9C414141B4B4B4939393F4D7D9BAE3C31DCE5A7EC48AFFFFFF00B0003DC13A35
C42A36BB2C5FC85415B40A61CB5A82BE8B059907A9D19DB68A8AD6D6D6C0C0C0
D9D9D9A0A0A0B4B4B4DCDCDCECECECA7A7A7838383CECECEE0E0E0696969BBBB
BBAAAAAAA3A3A3939393E8D3D0A7DEB4BEF6D476D28F9DD3A5D4EFCCE7F8E284
E27E58C953B8F2B4D8F0D336B03FA3DBAC86DA908DCA88B6898ADDDDDDD6D6D6
A7A7A78E8E8E808080D1D1D1D2D2D2C8C8C8C1C1C1CBCBCBBEBEBE6666668484
84797979CACACA898989F1D7D7C2EDCE6DE79A48DC7D3FCC6BB4EECFB1F4CFA4
F0C29BECB6A9F0C39FE2B427B6454DCB6441C353B7E5B8AC817FCCCCCCD5D5D5
CACACAD4D4D4D5D5D5C5C5C5C3C3C3C6C6C6C6C6C6C0C0C0BFBFBFD1D1D1C1C1
C1BEBEBEDBDBDB9E9E9EDDCCC3E1D7CEC8D6C0D9DACCD6DDCDBED5B9BCD3B7C0
D4BBC1D4BBBBD0B3BBCEB1D9D6C8C5CBB4C4C9B0E8DCD4B79F91D2D2D2D3D3D3
DCDCDCE0E0E0E0E0E0D9D9D9D7D7D7D7D7D7D8D8D8D7D7D7D8D8D8E1E1E1DADA
DADDDDDDD8D8D8C0C0C0DED3CAE4D1CCF2D6D7F6D7DBF6D9DBEBD6D3EAD4D2EA
D4D2EAD5D2EAD4D2EBD4D2F9D7DDF0D3D5F4D3D9E9D5D2D0C2B6FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
Properties.GlyphCount = 2 Properties.GlyphCount = 2
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked Properties.NullStyle = nssUnchecked

18
Source/Informes/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

18
Source/Informes/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

26
Source/Modulos/Contratos de cliente/ContratosCliente_Group.groupproj
View File

@ -16,7 +16,9 @@
<Projects Include="..\Contactos\Data\Contactos_data.dproj" /> <Projects Include="..\Contactos\Data\Contactos_data.dproj" />
<Projects Include="..\Contactos\Model\Contactos_model.dproj" /> <Projects Include="..\Contactos\Model\Contactos_model.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
<Projects Include="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" /> <Projects Include="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" />
<Projects Include="..\Relaciones\Presupuestos de cliente - Contratos de cliente\PreCli_ConCli_relation.dproj" />
<Projects Include="Controller\ContratosCliente_controller.dproj" /> <Projects Include="Controller\ContratosCliente_controller.dproj" />
<Projects Include="Data\ContratosCliente_data.dproj" /> <Projects Include="Data\ContratosCliente_data.dproj" />
<Projects Include="Model\ContratosCliente_model.dproj" /> <Projects Include="Model\ContratosCliente_model.dproj" />
@ -191,14 +193,32 @@
<Target Name="FactuGES_Server:Make"> <Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" /> <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target> </Target>
<Target Name="PreCli_ConCli_relation">
<MSBuild Projects="..\Relaciones\Presupuestos de cliente - Contratos de cliente\PreCli_ConCli_relation.dproj" Targets="" />
</Target>
<Target Name="PreCli_ConCli_relation:Clean">
<MSBuild Projects="..\Relaciones\Presupuestos de cliente - Contratos de cliente\PreCli_ConCli_relation.dproj" Targets="Clean" />
</Target>
<Target Name="PreCli_ConCli_relation:Make">
<MSBuild Projects="..\Relaciones\Presupuestos de cliente - Contratos de cliente\PreCli_ConCli_relation.dproj" Targets="Make" />
</Target>
<Target Name="PresupuestosCliente_view">
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="" />
</Target>
<Target Name="PresupuestosCliente_view:Clean">
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="PresupuestosCliente_view:Make">
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;ContratosCliente_model;ContratosCliente_data;ContratosCliente_controller;ConCli_FacCli_relation;ContratosCliente_view;ContratosCliente_plugin;FactuGES;FactuGES_Server" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;ContratosCliente_model;ContratosCliente_data;ContratosCliente_controller;ConCli_FacCli_relation;ContratosCliente_view;ContratosCliente_plugin;FactuGES;FactuGES_Server;PreCli_ConCli_relation;PresupuestosCliente_view" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;ContratosCliente_model:Clean;ContratosCliente_data:Clean;ContratosCliente_controller:Clean;ConCli_FacCli_relation:Clean;ContratosCliente_view:Clean;ContratosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;ContratosCliente_model:Clean;ContratosCliente_data:Clean;ContratosCliente_controller:Clean;ConCli_FacCli_relation:Clean;ContratosCliente_view:Clean;ContratosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PreCli_ConCli_relation:Clean;PresupuestosCliente_view:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;ContratosCliente_model:Make;ContratosCliente_data:Make;ContratosCliente_controller:Make;ConCli_FacCli_relation:Make;ContratosCliente_view:Make;ContratosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;ContratosCliente_model:Make;ContratosCliente_data:Make;ContratosCliente_controller:Make;ConCli_FacCli_relation:Make;ContratosCliente_view:Make;ContratosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PreCli_ConCli_relation:Make;PresupuestosCliente_view:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

17
Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas
View File

@ -15,8 +15,9 @@ type
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double; function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
function DarPropiedades: IBizPropiedades; function DarPropiedades: IBizPropiedades;
procedure AnadirCapitulo (const Tipo: String; ADetalles: IDAStronglyTypedDataTable); procedure AnadirCapitulo (const Tipo: String; const Descripcion: String; Const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable);
procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String); procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String);
procedure SetVisible(ADetalles: IDAStronglyTypedDataTable;const AVisible: Integer;const Orden: Integer); //1Ascendente/0Descendente
end; end;
TDetallesContratoClienteController = class(TControllerDetallesArticulos, IDetallesContratoClienteController) TDetallesContratoClienteController = class(TControllerDetallesArticulos, IDetallesContratoClienteController)
@ -45,12 +46,13 @@ type
destructor Destroy; override; destructor Destroy; override;
function DarPropiedades: IBizPropiedades; function DarPropiedades: IBizPropiedades;
procedure AnadirCapitulo (const Tipo: String; ADetalles: IDAStronglyTypedDataTable); procedure AnadirCapitulo (const Tipo: String; const Descripcion: String; Const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable);
//Se sobre escribe para hacer otro recorrido y rellenar el tipo_articulo a todos los conceptos de los capitulos //Se sobre escribe para hacer otro recorrido y rellenar el tipo_articulo a todos los conceptos de los capitulos
procedure ValidarDetalles(ADataTable: IDAStronglyTypedDataTable); override; procedure ValidarDetalles(ADataTable: IDAStronglyTypedDataTable); override;
procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String); procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String);
procedure SetVisible(ADetalles: IDAStronglyTypedDataTable;const AVisible: Integer;const Orden: Integer); //1Ascendente/0Descendente
end; end;
implementation implementation
@ -106,9 +108,9 @@ begin
end; end;
end; end;
procedure TDetallesContratoClienteController.AnadirCapitulo(const Tipo: String; ADetalles: IDAStronglyTypedDataTable); procedure TDetallesContratoClienteController.AnadirCapitulo(const Tipo: String; const Descripcion: String; Const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable);
begin begin
FDetallesPresupuestoCliente.AnadirCapitulo(Tipo, ADetalles); FDetallesPresupuestoCliente.AnadirCapitulo(Tipo, Descripcion, Descuento, ADetalles);
end; end;
procedure TDetallesContratoClienteController.AsignarController; procedure TDetallesContratoClienteController.AsignarController;
@ -176,6 +178,11 @@ begin
end; end;
end; end;
procedure TDetallesContratoClienteController.SetVisible(ADetalles: IDAStronglyTypedDataTable; const AVisible, Orden: Integer);
begin
FDetallesPresupuestoCliente.SetVisible(ADetalles, AVisible, Orden);
end;
procedure TDetallesContratoClienteController.ValidarCampos(DataTable: TDADataTable); procedure TDetallesContratoClienteController.ValidarCampos(DataTable: TDADataTable);
begin begin
inherited; inherited;

BIN
Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.res
View File

Binary file not shown.

282
Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm
View File

@ -450,8 +450,7 @@ object RptContratosCliente: TRptContratosCliente
Default = True Default = True
SQL = SQL =
'SELECT * FROM PROC_PRE_CON_CAPITULOS_CONCEP(:ID_PRE_CON, '#39'Contra' + 'SELECT * FROM PROC_PRE_CON_CAPITULOS_CONCEP(:ID_PRE_CON, '#39'Contra' +
'to'#39')'#10'WHERE (VISIBLE <> 0) AND {where}'#10'ORDER BY ID_PRE_CON, POSIC' + 'to'#39')'#10'WHERE {where}'#10'ORDER BY ID_PRE_CON, POSICION'#10
'ION'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -597,7 +596,7 @@ object RptContratosCliente: TRptContratosCliente
Default = True Default = True
SQL = SQL =
'SELECT * FROM PROC_PRE_CON_CAPITULOS(:ID_PRE_CON, '#39'Contrato'#39')'#10'WH' + 'SELECT * FROM PROC_PRE_CON_CAPITULOS(:ID_PRE_CON, '#39'Contrato'#39')'#10'WH' +
'ERE (VISIBLE <> 0) AND {where}'#10'ORDER BY ID_PRE_CON, POSICION'#10 'ERE {where}'#10'ORDER BY ID_PRE_CON, POSICION'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -784,7 +783,7 @@ object RptContratosCliente: TRptContratosCliente
Top = 142 Top = 142
end end
object frxReport: TfrxReport object frxReport: TfrxReport
Version = '4.3' Version = '4.8.11'
DotMatrixReport = False DotMatrixReport = False
EngineOptions.DoublePass = True EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports' IniFile = '\Software\Fast Reports'
@ -795,264 +794,6 @@ object RptContratosCliente: TRptContratosCliente
ReportOptions.CreateDate = 39065.872423495400000000 ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 40071.577940347220000000 ReportOptions.LastChange = 40071.577940347220000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
''
''
'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);'
'begin'
'{ NombreEmpresa.Lines.Clear;'
' NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">);'
'}'
'end;'
''
'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if not Engine.FinalPass then'
' Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
''
' if Engine.FinalPass then'
' Set('#39'Pagina'#39', (<Pagina> + 1)); '
'end;'
''
'procedure frxReportOnStartReport(Sender: TfrxComponent);'
'begin'
' Set('#39'Pagina'#39', 0);'
' Set('#39'TotalPaginas'#39', 0);'
' Set('#39'Capitulo'#39', '#39'0'#39');'
' Set('#39'NumCapitulos'#39', 0);'
' Set('#39'TextoNumCapitulo'#39', '#39#39#39' '#39#39#39'); '
'end;'
''
'procedure Rich3OnBeforePrint(Sender: TfrxComponent);'
'begin'
'{ '
' if Engine.FinalPass then'
' begin '
' Set('#39'Capitulo'#39', (<Capitulo> + 1));'
' if (<NumCapitulos> = 1) then'
' MasterData1.Visible := False; ' +
' '
' end'
' else'
' Set('#39'NumCapitulos'#39', (<NumCapitulos> + 1));'
'} '
'end;'
''
'procedure Memo45OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if Engine.FinalPass then'
' begin'
' Set('#39'Capitulo'#39', (<Capitulo> + 1)); ' +
' '
' Set('#39'TextoNumCapitulo'#39', <Capitulo>);'
''
' if ((<NumCapitulos> = 1) and (<frxDBCapitulos."CONCEPTO"> =' +
' '#39'General'#39')) then'
' MasterData1.Visible := False'
' else begin '
' if (<frxDBCapitulos."TIPO_DETALLE"> = '#39'Titulo opcional'#39') ' +
'then'
' begin'
' Set('#39'TextoNumCapitulo'#39', '#39#39#39'OPCIONAL'#39#39#39');'
' end'
' end '
' end'
' else '
' Set('#39'NumCapitulos'#39', (<NumCapitulos> + 1));'
''
''
'// Memo11.lines.add(<frxDBCapitulos."CONCEPTO">); '
'end;'
''
'procedure Memo47OnBeforePrint(Sender: TfrxComponent);'
'begin'
'{ '
' if (Length(<frxDBCabecera."OBSERVACIONES">) = 0) then'
' begin'
' Memo11.Visible := False; ' +
' '
' Memo47.Visible := False;'
' end'
'} '
'end;'
''
'procedure frxDBDetallesCANTIDADOnBeforePrint(Sender: TfrxCompone' +
'nt);'
'var '
' ACantidad: String; '
' AIndice: Integer;'
' AText : String; '
'begin'
'{ '
' frxDBDetallesCANTIDAD.Memo.Clear; '
' ACantidad := FloatToStr(<frxDBDetalles."CANTIDAD">); '
' AIndice := Pos('#39','#39', ACantidad);'
' if AIndice > 0 then '
' AText := '#39'[FormatFloat('#39#39'#,##0.00'#39#39',<frxDBDetalles."CANTIDA' +
'D">)]'
' else '
' AText := '#39'[FormatFloat('#39#39'#,##0.##'#39#39',<frxDBDetalles."CANTIDA' +
'D">)]; '
' '
' frxDBDetallesCANTIDAD.Memo.Add(AText);'
'} '
'end;'
''
'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);'
'begin'
' DatosCliente.Lines.Clear;'
' DatosCliente.Lines.Add(<frxDBCabecera."CALLE">);'
''
' if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39')'
' or (<frxDBCabecera."POBLACION"> <> '#39#39') then'
' DatosCliente.Lines.Add(<frxDBCabecera."CODIGO_POSTAL"> + '#39' ' +
' '#39' + <frxDBCabecera."POBLACION">);'
''
' if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
' DatosCliente.Lines.Add(<frxDBCabecera."PROVINCIA">); '
'end;'
''
'procedure MasterData1OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (<frxDBCapitulos."TIPO_ARTICULO"> = '#39'AF'#39' ) '
' or (<frxDBCapitulos."TIPO_ARTICULO"> = '#39'AI'#39' )'
' or (<frxDBCapitulos."TIPO_ARTICULO"> = '#39'B'#39' ) then'
' begin'
' Header1.Visible := False; ' +
' '
' DetailData1.Visible := False; ' +
' '
' DetailData2.Visible := True;'
' end'
' else'
' begin'
' Header1.Visible := True; ' +
' '
' DetailData1.Visible := True; ' +
' '
' DetailData2.Visible := False;'
' end;'
'end;'
''
'procedure Memo11OnBeforePrint(Sender: TfrxComponent);'
'begin'
'end;'
''
'procedure Memo29OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (<frxDBCabecera."IVA"> > 0) then'
' begin'
' Memo29.visible := True;'
' if (<frxDBCabecera."RE"> > 0) then'
' begin'
' Memo30.visible := True; '
' end'
' else'
' begin'
' Memo30.visible := False; '
' Shape10.Top := Shape9.Top;'
' Memo26.Top := Memo30.Top;'
' Memo25.Top := Memo31.Top;'
' Line8.height := Line8.height - Shape10.height;'
' end'
' end'
' else'
' begin'
' Memo29.visible := False;'
' Shape10.Top := Shape8.Top;'
' Memo26.Top := Memo29.Top;'
' Memo25.Top := Memo33.Top;'
' Line8.height := Line8.height - Shape10.height;'
' //Si IVA es 0 RE tambien'
' Memo30.Visible := False;'
' Shape9.Visible := False;'
' //Subimos comentarios'
' Memo40.Top := Memo40.Top - Shape9.height;'
' Memo37.Top := Memo37.Top - Shape9.height; ' +
' '
' Memo39.Top := Memo39.Top - Shape9.height;'
' Memo28.Top := Memo28.Top - Shape9.height; ' +
' '
' end;'
'end;'
''
'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (Length(<frxDBCabecera."OBSERVACIONES">) = 0) then'
' begin'
' Memo40.Visible := False;'
' Memo37.Visible := False;'
' end;'
''
' if (Length(<frxDBCabecera."FORMA_PAGO">) = 0) then'
' begin'
' Memo38.Visible := False;'
' Memo27.Visible := False; ' +
' '
' end; '
''
' if (Length(<frxDBCabecera."PLAZO_ENTREGA">) = 0) then'
' begin'
' Memo39.Visible := False;'
' Memo28.Visible := False;'
' Memo41.Top := Memo41.Top - (Memo39.height + Memo28.height);'
' Memo42.Top := Memo42.Top - (Memo39.height + Memo28.height); ' +
' '
' end; '
'end;'
''
'procedure Memo20OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (sum(<frxDBDetalles."IMPORTE_TOTAL">, DetailData1) = 0)'
' and (sum(<frxDBDetalles."IMPORTE_TOTAL">, DetailData2) = 0) th' +
'en'
' begin'
' Footer1.Height := 10;'
' Memo13.Visible := False;'
' Memo20.Visible := False; '
' Memo21.Visible := False; '
' Memo11.Visible := False;'
' Memo24.Visible := False;'
' end'
' else'
' begin'
' Footer1.Height := 55;'
' Memo13.Visible := True; '
' Memo20.Visible := True;'
' Memo21.Visible := True;'
' Memo11.Visible := True;'
' Memo24.Visible := True; '
' end;'
''
' if (<frxDBCapitulos."IMPORTE_DESCUENTO"> = 0) then'
' begin'
' Footer1.Height := 35; '
' Memo11.Visible := False;'
' Memo24.Visible := False; '
' end; '
'end;'
''
'begin'
''
'end.')
ShowProgress = False ShowProgress = False
StoreInDFM = False StoreInDFM = False
OnStartReport = 'frxReportOnStartReport' OnStartReport = 'frxReportOnStartReport'
@ -1064,6 +805,7 @@ object RptContratosCliente: TRptContratosCliente
UserName = 'frxDBCabecera' UserName = 'frxDBCabecera'
CloseDataSource = False CloseDataSource = False
DataSource = DADSCabecera DataSource = DADSCabecera
BCDToCurrency = False
Left = 264 Left = 264
Top = 16 Top = 16
end end
@ -1071,6 +813,7 @@ object RptContratosCliente: TRptContratosCliente
UserName = 'frxDBDetalles' UserName = 'frxDBDetalles'
CloseDataSource = False CloseDataSource = False
DataSource = DADSDetalles DataSource = DADSDetalles
BCDToCurrency = False
Left = 440 Left = 440
Top = 16 Top = 16
end end
@ -1243,6 +986,7 @@ object RptContratosCliente: TRptContratosCliente
UserName = 'frxDBCapitulos' UserName = 'frxDBCapitulos'
CloseDataSource = False CloseDataSource = False
DataSource = DADSCapitulos DataSource = DADSCapitulos
BCDToCurrency = False
Left = 352 Left = 352
Top = 16 Top = 16
end end
@ -1465,13 +1209,21 @@ object RptContratosCliente: TRptContratosCliente
ShowDialog = False ShowDialog = False
UseFileCache = True UseFileCache = True
ShowProgress = False ShowProgress = False
OverwritePrompt = False
PrintOptimized = True PrintOptimized = True
Outline = False Outline = False
Background = False
HTMLTags = True
Author = 'FactuGES' Author = 'FactuGES'
Subject = 'FactuGES' Subject = 'FactuGES'
Background = False
Creator = 'FactuGES' Creator = 'FactuGES'
HTMLTags = True ProtectionFlags = [ePrint, eModify, eCopy, eAnnot]
HideToolbar = False
HideMenubar = False
HideWindowUI = False
FitWindow = False
CenterWindow = False
PrintScaling = False
Left = 528 Left = 528
Top = 440 Top = 440
end end
@ -1548,6 +1300,7 @@ object RptContratosCliente: TRptContratosCliente
UserName = 'frxDBInformeListadoContratos' UserName = 'frxDBInformeListadoContratos'
CloseDataSource = True CloseDataSource = True
DataSource = DADSInformeListadoContratos DataSource = DADSInformeListadoContratos
BCDToCurrency = False
Left = 680 Left = 680
Top = 16 Top = 16
end end
@ -1555,6 +1308,7 @@ object RptContratosCliente: TRptContratosCliente
UserName = 'frxDBInformeListadoContratosResumen' UserName = 'frxDBInformeListadoContratosResumen'
CloseDataSource = True CloseDataSource = True
DataSource = DADSInformeListadoContratosResumen DataSource = DADSInformeListadoContratosResumen
BCDToCurrency = False
Left = 680 Left = 680
Top = 192 Top = 192
end end

23
Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm
View File

@ -65,7 +65,10 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
Visible = False Visible = False
VisibleForCustomization = False VisibleForCustomization = False
end end
object cxGridViewID_PROPIEDAD: TcxGridDBColumn [5] inherited cxGridViewVISIBLE: TcxGridDBColumn [5]
Visible = True
end
object cxGridViewID_PROPIEDAD: TcxGridDBColumn [6]
Caption = 'Propiedad' Caption = 'Propiedad'
DataBinding.FieldName = 'ID_ARTICULO' DataBinding.FieldName = 'ID_ARTICULO'
PropertiesClassName = 'TcxLookupComboBoxProperties' PropertiesClassName = 'TcxLookupComboBoxProperties'
@ -79,31 +82,35 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
Properties.ListOptions.SyncMode = True Properties.ListOptions.SyncMode = True
Properties.ListSource = DAPropiedades Properties.ListSource = DAPropiedades
end end
inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn inherited cxGridViewREFERENCIA: TcxGridDBColumn [7]
end
inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn [8]
DataBinding.FieldName = '' DataBinding.FieldName = ''
end end
inherited cxGridViewDESCRIPCION: TcxGridDBColumn inherited cxGridViewDESCRIPCION: TcxGridDBColumn [9]
OnGetPropertiesForEdit = cxGridViewDESCRIPCIONGetPropertiesForEdit OnGetPropertiesForEdit = cxGridViewDESCRIPCIONGetPropertiesForEdit
Width = 243 Width = 243
end end
inherited cxGridViewCANTIDAD: TcxGridDBColumn inherited cxGridViewCANTIDAD: TcxGridDBColumn [10]
VisibleForCustomization = False VisibleForCustomization = False
Width = 25 Width = 25
end end
inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn [11]
VisibleForCustomization = False VisibleForCustomization = False
Width = 34 Width = 34
end end
inherited cxGridViewDESCUENTO: TcxGridDBColumn inherited cxGridViewDESCUENTO: TcxGridDBColumn [12]
VisibleForCustomization = False VisibleForCustomization = False
Width = 20 Width = 20
end end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn inherited cxGridViewIMPORTENETO: TcxGridDBColumn [13]
Visible = False Visible = False
VisibleForCustomization = False VisibleForCustomization = False
Width = 29 Width = 29
end end
inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn [14]
end
inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn [15]
VisibleForCustomization = False VisibleForCustomization = False
Width = 29 Width = 29
end end

56
Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas
View File

@ -68,9 +68,11 @@ type
procedure actCapituloVariosExecute(Sender: TObject); procedure actCapituloVariosExecute(Sender: TObject);
procedure actAnadirExecute(Sender: TObject); procedure actAnadirExecute(Sender: TObject);
procedure actCapituloImportesExecute(Sender: TObject); procedure actCapituloImportesExecute(Sender: TObject);
procedure OnVISIBLEPropertiesEditValueChanged(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
private private
procedure AnadirCapitulo(const Tipo: String); procedure AnadirCapitulo(const Tipo: String;const Descripcion: String; const Descuento:Boolean = false);
protected protected
FContrato: IBizContratoCliente; FContrato: IBizContratoCliente;
@ -156,38 +158,40 @@ end;
procedure TfrViewDetallesContratoCliente.actCapituloArmarioFExecute(Sender: TObject); procedure TfrViewDetallesContratoCliente.actCapituloArmarioFExecute(Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_AF); AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ');
end; end;
procedure TfrViewDetallesContratoCliente.actCapituloArmarioIExecute(Sender: TObject); procedure TfrViewDetallesContratoCliente.actCapituloArmarioIExecute(Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_AI); AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ');
end; end;
procedure TfrViewDetallesContratoCliente.actCapituloBanoExecute(Sender: TObject); procedure TfrViewDetallesContratoCliente.actCapituloBanoExecute(Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_B); AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ');
AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True);
end; end;
procedure TfrViewDetallesContratoCliente.actCapituloCocinaExecute(Sender: TObject); procedure TfrViewDetallesContratoCliente.actCapituloCocinaExecute(Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_C); AnadirCapitulo(TIPO_CAPITULO_C_VACIO, 'MUEBLES DE COCINA ');
AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True);
AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR ');
end; end;
procedure TfrViewDetallesContratoCliente.actCapituloElectrodomesticosExecute(Sender: TObject); procedure TfrViewDetallesContratoCliente.actCapituloElectrodomesticosExecute(Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_E); AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ');
end; end;
procedure TfrViewDetallesContratoCliente.actCapituloImportesExecute(Sender: TObject); procedure TfrViewDetallesContratoCliente.actCapituloImportesExecute(Sender: TObject);
begin begin
inherited; AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ');
AnadirCapitulo(TIPO_CAPITULO_IMPORTES);
end; end;
procedure TfrViewDetallesContratoCliente.actCapituloVariosExecute(Sender: TObject); procedure TfrViewDetallesContratoCliente.actCapituloVariosExecute(Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_V); AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ');
end; end;
function TfrViewDetallesContratoCliente.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; function TfrViewDetallesContratoCliente.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean;
@ -200,7 +204,7 @@ begin
(Controller as IDetallesContratoClienteController).AnadirArticulos(Detalles, Contrato.Cliente); (Controller as IDetallesContratoClienteController).AnadirArticulos(Detalles, Contrato.Cliente);
end; end;
procedure TfrViewDetallesContratoCliente.AnadirCapitulo(const Tipo: String); procedure TfrViewDetallesContratoCliente.AnadirCapitulo(const Tipo: String;const Descripcion: String; const Descuento:Boolean = false);
var var
bEsMultiSelect : Boolean; bEsMultiSelect : Boolean;
begin begin
@ -218,7 +222,7 @@ begin
_FocusedView.Controller.EditingController.Edit.PostEditValue; _FocusedView.Controller.EditingController.Edit.PostEditValue;
if Assigned(Controller) and Assigned(Detalles) then if Assigned(Controller) and Assigned(Detalles) then
(Controller as IDetallesContratoClienteController).AnadirCapitulo(Tipo, Detalles) (Controller as IDetallesContratoClienteController).AnadirCapitulo(Tipo, Descripcion, Descuento, Detalles)
finally finally
_FocusedView.EndUpdate; _FocusedView.EndUpdate;
HideHourglassCursor; HideHourglassCursor;
@ -229,6 +233,12 @@ begin
end; end;
end; end;
procedure TfrViewDetallesContratoCliente.CustomViewDestroy(Sender: TObject);
begin
cxGridViewVISIBLE.Properties.OnEditValueChanged := Nil;
inherited;
end;
procedure TfrViewDetallesContratoCliente.CustomViewShow(Sender: TObject); procedure TfrViewDetallesContratoCliente.CustomViewShow(Sender: TObject);
begin begin
inherited; inherited;
@ -238,6 +248,7 @@ begin
FPropiedades.DataTable.Active := True; FPropiedades.DataTable.Active := True;
DAPropiedades.DataTable := FPropiedades.DataTable; DAPropiedades.DataTable := FPropiedades.DataTable;
DAValores.DataTable := FPropiedades.Valores.DataTable; DAValores.DataTable := FPropiedades.Valores.DataTable;
cxGridViewVISIBLE.Properties.OnEditValueChanged := OnVISIBLEPropertiesEditValueChanged;
end; end;
end; end;
@ -299,6 +310,29 @@ begin
Result := FContrato; Result := FContrato;
end; end;
procedure TfrViewDetallesContratoCliente.OnVISIBLEPropertiesEditValueChanged(Sender: TObject);
var
Orden: Integer;
begin
inherited;
Orden := 1;
if (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_TITULO)
or (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_TITULO_OPCIONAL)
or (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_SUBTOTAL) then
begin
cxGridView.BeginUpdate;
if (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_SUBTOTAL) then
Orden := 0;
if Assigned(Controller) and Assigned(Detalles) then
(Controller as IDetallesContratoClienteController).SetVisible(Detalles, cxGridView.DataController.GetItemByFieldName(CAMPO_VISIBLE).EditValue, Orden);
cxGridView.EndUpdate;
end;
(Controller as IDetallesContratoClienteController).ActualizarTotales(Detalles);
end;
procedure TfrViewDetallesContratoCliente.RellenarArticulosInterno; procedure TfrViewDetallesContratoCliente.RellenarArticulosInterno;
begin begin
(Controller as IDetallesContratoClienteController).AnadirArticulos(Detalles, Contrato.Cliente, False); (Controller as IDetallesContratoClienteController).AnadirArticulos(Detalles, Contrato.Cliente, False);

143
Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas
View File

@ -16,8 +16,9 @@ type
function PedirDescuento: Variant; function PedirDescuento: Variant;
function DarPropiedades: IBizPropiedades; function DarPropiedades: IBizPropiedades;
procedure AnadirCapitulo (const Tipo: String; ADetalles: IDAStronglyTypedDataTable); procedure AnadirCapitulo (const Tipo: String; const Descripcion: String; const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable);
procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String); procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String);
procedure SetVisible(ADetalles: IDAStronglyTypedDataTable;const AVisible: Integer;const Orden: Integer); //1Ascendente/0Descendente
end; end;
TDetallesPresupuestoClienteController = class(TControllerDetallesArticulos, IDetallesPresupuestoClienteController) TDetallesPresupuestoClienteController = class(TControllerDetallesArticulos, IDetallesPresupuestoClienteController)
@ -45,17 +46,18 @@ type
destructor Destroy; override; destructor Destroy; override;
function DarPropiedades: IBizPropiedades; function DarPropiedades: IBizPropiedades;
procedure AnadirCapitulo (const Tipo: String; ADetalles: IDAStronglyTypedDataTable); procedure AnadirCapitulo (const Tipo: String; const Descripcion: String; const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable);
//Se sobre escribe para hacer otro recorrido y rellenar el tipo_articulo a todos los conceptos de los capitulos //Se sobre escribe para hacer otro recorrido y rellenar el tipo_articulo a todos los conceptos de los capitulos
procedure ValidarDetalles(ADataTable: IDAStronglyTypedDataTable); override; procedure ValidarDetalles(ADataTable: IDAStronglyTypedDataTable); override;
procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String); procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String);
procedure SetVisible(ADetalles: IDAStronglyTypedDataTable;const AVisible: Integer;const Orden: Integer); //1Ascendente/0Descendente
end; end;
implementation implementation
uses Controls, SysUtils, Dialogs, uDAInterfaces, uDialogUtils, Variants, uDataModulePresupuestosCliente, uses DB, Controls, SysUtils, Dialogs, uDAInterfaces, uDialogUtils, Variants, uDataModulePresupuestosCliente,
uArticulosPresupuestoClienteController, schPresupuestosClienteClient_Intf, uArticulosPresupuestoClienteController, schPresupuestosClienteClient_Intf,
uDataTableUtils, uCalculosUtils, uIEditorAsignarDescuento, uEditorRegistryUtils; uDataTableUtils, uCalculosUtils, uIEditorAsignarDescuento, uEditorRegistryUtils;
@ -104,67 +106,20 @@ begin
end; end;
end; end;
procedure TDetallesPresupuestoClienteController.AnadirCapitulo(const Tipo: String; ADetalles: IDAStronglyTypedDataTable); procedure TDetallesPresupuestoClienteController.AnadirCapitulo(const Tipo: String;const Descripcion: String; const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable);
var var
ACapitulo: IBizCapitulo; ACapitulo: IBizCapitulo;
TipoAux: String;
begin begin
if ((Tipo = TIPO_CAPITULO_IMPORTES)
or (Tipo = TIPO_CAPITULO_IMPORTES_OPCIONAL)) then
//Esta capitulo será igual que un capitulo de varios
TipoAux := TIPO_CAPITULO_V
else
TipoAux := Tipo;
Self.Add(ADetalles, TIPO_DETALLE_TITULO); Self.Add(ADetalles, TIPO_DETALLE_TITULO);
if not ADetalles.DataTable.Editing then if not ADetalles.DataTable.Editing then
ADetalles.DataTable.Edit; ADetalles.DataTable.Edit;
if Tipo = TIPO_CAPITULO_AF then ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := Tipo;
begin ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesCONCEPTO).AsString := Descripcion;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := TipoAux;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesCONCEPTO).AsString := 'FRENTE DE ARMARIO Nº ';
end
else if Tipo = TIPO_CAPITULO_AI then
begin
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := TipoAux;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesCONCEPTO).AsString := 'INTERIOR DE ARMARIO Nº ';
end
else if Tipo = TIPO_CAPITULO_B then
begin
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := TipoAux;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesCONCEPTO).AsString := 'MUEBLE DE BAÑO Nº ';
end
else if (Tipo = TIPO_CAPITULO_C) or (Tipo = TIPO_CAPITULO_C_VACIO) then
begin
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := TipoAux;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesCONCEPTO).AsString := 'MUEBLES DE COCINA ';
end
else if Tipo = TIPO_CAPITULO_E then
begin
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := TipoAux;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesCONCEPTO).AsString := 'ELECTRODOMÉSTICOS ';
end
else if Tipo = TIPO_CAPITULO_V then
begin
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := TipoAux;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesCONCEPTO).AsString := 'VARIOS ';
end
else if Tipo = TIPO_CAPITULO_IMPORTES then
begin
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := TipoAux;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesCONCEPTO).AsString := 'IMPORTES ';
end
else if Tipo = TIPO_CAPITULO_IMPORTES_OPCIONAL then
begin
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := TipoAux;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesCONCEPTO).AsString := 'IMPORTES ';
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_DETALLE).AsString := TIPO_DETALLE_TITULO_OPCIONAL;
end;
//Rellenamos con las propiedades del capitulo //Rellenamos con las propiedades del capitulo
ACapitulo := FDataModule.GetCapitulo(TipoAux); ACapitulo := FDataModule.GetCapitulo(Tipo);
ACapitulo.DataTable.Active := True; ACapitulo.DataTable.Active := True;
with ACapitulo.DataTable do with ACapitulo.DataTable do
begin begin
@ -174,7 +129,7 @@ begin
if not ADetalles.DataTable.Editing then if not ADetalles.DataTable.Editing then
ADetalles.DataTable.Edit; ADetalles.DataTable.Edit;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := TipoAux; ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := Tipo;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesID_ARTICULO).AsInteger := ACapitulo.ID_ARTICULO; ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesID_ARTICULO).AsInteger := ACapitulo.ID_ARTICULO;
Next; Next;
until EOF; until EOF;
@ -184,45 +139,15 @@ begin
if not ADetalles.DataTable.Editing then if not ADetalles.DataTable.Editing then
ADetalles.DataTable.Edit; ADetalles.DataTable.Edit;
if Tipo = TIPO_CAPITULO_AF then ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := Tipo;
begin ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesCONCEPTO).AsString := 'SUBTOTAL ' + Descripcion;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := TipoAux;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesCONCEPTO).AsString := 'TOTAL FRENTE DE ARMARIO Nº ';
end
else if Tipo = TIPO_CAPITULO_AI then
begin
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := TipoAux;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesCONCEPTO).AsString := 'TOTAL INTERIOR DE ARMARIO Nº ';
end
else if Tipo = TIPO_CAPITULO_B then
begin
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := TipoAux;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesCONCEPTO).AsString := 'TOTAL MUEBLE DE BAÑO Nº ';
end
else if (Tipo = TIPO_CAPITULO_C) or (Tipo = TIPO_CAPITULO_C_VACIO) then
begin
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := TipoAux;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesCONCEPTO).AsString := 'TOTAL MUEBLES DE COCINA ';
end
else if Tipo = TIPO_CAPITULO_E then
begin
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := TipoAux;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesCONCEPTO).AsString := 'TOTAL ELECTRODOMÉSTICOS ';
end
else if Tipo = TIPO_CAPITULO_V then
begin
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := TipoAux;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesCONCEPTO).AsString := 'TOTAL VARIOS ';
end
else if ((Tipo = TIPO_CAPITULO_IMPORTES) or (Tipo = TIPO_CAPITULO_IMPORTES_OPCIONAL)) then
begin
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := TipoAux;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesCONCEPTO).AsString := 'TOTAL IMPORTES ';
if Descuento then
begin
Self.Add(ADetalles, TIPO_DETALLE_DESCUENTO); Self.Add(ADetalles, TIPO_DETALLE_DESCUENTO);
if not ADetalles.DataTable.Editing then if not ADetalles.DataTable.Editing then
ADetalles.DataTable.Edit; ADetalles.DataTable.Edit;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := TipoAux; ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := Tipo;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesCONCEPTO).AsString := 'DESCUENTO '; ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesCONCEPTO).AsString := 'DESCUENTO ';
end; end;
@ -323,6 +248,44 @@ begin
end; end;
end; end;
procedure TDetallesPresupuestoClienteController.SetVisible(ADetalles: IDAStronglyTypedDataTable; const AVisible, Orden: Integer);
var
ABookmark : TBookmark;
AuxPosicion: Integer;
AuxEncontrado: Boolean;
begin
AuxPosicion := ADetalles.DataTable.FieldByName(CAMPO_POSICION).AsInteger;
ABookmark := ADetalles.DataTable.GetBookMark;
try
ADetalles.DataTable.DisableControls;
repeat
if (Orden > 0) then
Inc(AuxPosicion)
else
Dec(AuxPosicion);
ADetalles.First;
AuxEncontrado := ADetalles.Locate(CAMPO_POSICION, AuxPosicion, []);
if AuxEncontrado then
begin
ADetalles.DataTable.Edit;
ADetalles.DataTable.FieldByName(CAMPO_VISIBLE).AsInteger := AVisible;
ADetalles.DataTable.Post;
end;
until (ADetalles.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_SUBTOTAL)
or (ADetalles.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_TITULO)
or (ADetalles.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_TITULO_OPCIONAL)
or (AuxEncontrado = False)
finally
ADetalles.DataTable.GotoBookmark(ABookmark);
ADetalles.DataTable.FreeBookmark(ABookmark);
ADetalles.DataTable.EnableControls;
end;
end;
procedure TDetallesPresupuestoClienteController.ValidarCampos(DataTable: TDADataTable); procedure TDetallesPresupuestoClienteController.ValidarCampos(DataTable: TDADataTable);
begin begin
inherited; inherited;

26
Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj
View File

@ -43,6 +43,8 @@
<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">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><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">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><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 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 Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -52,15 +54,21 @@
<DelphiCompile Include="PresupuestosCliente_model.dpk"> <DelphiCompile Include="PresupuestosCliente_model.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Contactos\adortl.dcp" /> <DCCReference Include="..\Views\adortl.dcp" />
<DCCReference Include="..\..\Contactos\Base.dcp" /> <DCCReference Include="..\Views\Base.dcp" />
<DCCReference Include="..\..\Contactos\Contactos_controllercontainsuIDataModulePresupuestosClientein.dcp" /> <DCCReference Include="..\Views\Contactos_controller.dcp" />
<DCCReference Include="..\..\Contactos\Contactos_model.dcp" /> <DCCReference Include="..\Views\Contactos_model.dcp" />
<DCCReference Include="..\..\Contactos\dbrtl.dcp" /> <DCCReference Include="..\Views\dbrtl.dcp" />
<DCCReference Include="..\..\Contactos\dsnap.dcp" /> <DCCReference Include="..\Views\dsnap.dcp" />
<DCCReference Include="..\..\Contactos\rtl.dcp" /> <DCCReference Include="..\Views\rtl.dcp" />
<DCCReference Include="..\..\Contactos\vcl.dcp" /> <DCCReference Include="..\Views\vcl.dcp" />
<DCCReference Include="..\..\Contactos\vcldb.dcp" /> <DCCReference Include="..\Views\vcldb.dcp" />
<DCCReference Include="Data\uIDataModulePresupuestosCliente.pas" />
<DCCReference Include="Data\uIDataModulePresupuestosClienteReport.pas" />
<DCCReference Include="schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="uBizDetallesPresupuestoCliente.pas" />
<DCCReference Include="uBizPresupuestosCliente.pas" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

BIN
Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.res
View File

Binary file not shown.

2
Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas
View File

@ -18,8 +18,6 @@ const
TIPO_CAPITULO_E = 'E'; //ELECTRODOMÉSTICOS TIPO_CAPITULO_E = 'E'; //ELECTRODOMÉSTICOS
TIPO_CAPITULO_V = 'V'; //VARIOS TIPO_CAPITULO_V = 'V'; //VARIOS
TIPO_CAPITULO_C_VACIO = 'CV'; //COCINAVACIO TIPO_CAPITULO_C_VACIO = 'CV'; //COCINAVACIO
TIPO_CAPITULO_IMPORTES = 'IM'; //CAPITULO DE IMPORTES
TIPO_CAPITULO_IMPORTES_OPCIONAL = 'IO'; //CAPITULO DE IMPORTES OPCIONALES
type type
IBizValores = interface(IValores) IBizValores = interface(IValores)

7
Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm
View File

@ -513,8 +513,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
Default = True Default = True
SQL = SQL =
'SELECT * FROM PROC_PRE_CON_CAPITULOS_CONCEP(:ID_PRE_CON, '#39'Presup' + 'SELECT * FROM PROC_PRE_CON_CAPITULOS_CONCEP(:ID_PRE_CON, '#39'Presup' +
'uesto'#39')'#10'WHERE (VISIBLE <> 0) AND {where}'#10'ORDER BY ID_PRE_CON, PO' + 'uesto'#39')'#10'WHERE {where}'#10'ORDER BY ID_PRE_CON, POSICION'#10
'SICION'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -661,7 +660,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
Default = True Default = True
SQL = SQL =
'SELECT * FROM PROC_PRE_CON_CAPITULOS(:ID_PRE_CON, '#39'Presupuesto'#39')' + 'SELECT * FROM PROC_PRE_CON_CAPITULOS(:ID_PRE_CON, '#39'Presupuesto'#39')' +
#10'WHERE (VISIBLE <> 0) AND {where}'#10'ORDER BY ID_PRE_CON, POSICION'#10 #10'WHERE {where}'#10'ORDER BY ID_PRE_CON, POSICION'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -858,7 +857,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000 ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 40116.697855891200000000 ReportOptions.LastChange = 40122.745990115700000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ShowProgress = False ShowProgress = False
StoreInDFM = False StoreInDFM = False

24
Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm
View File

@ -68,7 +68,11 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
Visible = False Visible = False
VisibleForCustomization = False VisibleForCustomization = False
end end
object cxGridViewID_PROPIEDAD: TcxGridDBColumn [5] inherited cxGridViewVISIBLE: TcxGridDBColumn [5]
Caption = #191'Valorado?'
Visible = True
end
object cxGridViewID_PROPIEDAD: TcxGridDBColumn [6]
Caption = 'Propiedad' Caption = 'Propiedad'
DataBinding.FieldName = 'ID_ARTICULO' DataBinding.FieldName = 'ID_ARTICULO'
PropertiesClassName = 'TcxLookupComboBoxProperties' PropertiesClassName = 'TcxLookupComboBoxProperties'
@ -82,31 +86,35 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
Properties.ListOptions.SyncMode = True Properties.ListOptions.SyncMode = True
Properties.ListSource = DAPropiedades Properties.ListSource = DAPropiedades
end end
inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn inherited cxGridViewREFERENCIA: TcxGridDBColumn [7]
end
inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn [8]
DataBinding.FieldName = '' DataBinding.FieldName = ''
end end
inherited cxGridViewDESCRIPCION: TcxGridDBColumn inherited cxGridViewDESCRIPCION: TcxGridDBColumn [9]
OnGetPropertiesForEdit = cxGridViewDESCRIPCIONGetPropertiesForEdit OnGetPropertiesForEdit = cxGridViewDESCRIPCIONGetPropertiesForEdit
Width = 243 Width = 243
end end
inherited cxGridViewCANTIDAD: TcxGridDBColumn inherited cxGridViewCANTIDAD: TcxGridDBColumn [10]
VisibleForCustomization = False VisibleForCustomization = False
Width = 25 Width = 25
end end
inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn [11]
VisibleForCustomization = False VisibleForCustomization = False
Width = 34 Width = 34
end end
inherited cxGridViewDESCUENTO: TcxGridDBColumn inherited cxGridViewDESCUENTO: TcxGridDBColumn [12]
VisibleForCustomization = False VisibleForCustomization = False
Width = 20 Width = 20
end end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn inherited cxGridViewIMPORTENETO: TcxGridDBColumn [13]
Visible = False Visible = False
VisibleForCustomization = False VisibleForCustomization = False
Width = 29 Width = 29
end end
inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn [14]
end
inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn [15]
VisibleForCustomization = False VisibleForCustomization = False
Width = 29 Width = 29
end end

55
Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas
View File

@ -68,9 +68,11 @@ type
procedure actCapituloVariosExecute(Sender: TObject); procedure actCapituloVariosExecute(Sender: TObject);
procedure actAnadirExecute(Sender: TObject); procedure actAnadirExecute(Sender: TObject);
procedure actCapituloImportesExecute(Sender: TObject); procedure actCapituloImportesExecute(Sender: TObject);
procedure OnVISIBLEPropertiesEditValueChanged(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
private private
procedure AnadirCapitulo(const Tipo: String); procedure AnadirCapitulo(const Tipo: String;const Descripcion: String; const Descuento:Boolean = false);
protected protected
FPresupuesto: IBizPresupuestoCliente; FPresupuesto: IBizPresupuestoCliente;
@ -155,38 +157,40 @@ end;
procedure TfrViewDetallesPresupuestoCliente.actCapituloArmarioFExecute(Sender: TObject); procedure TfrViewDetallesPresupuestoCliente.actCapituloArmarioFExecute(Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_AF); AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ');
end; end;
procedure TfrViewDetallesPresupuestoCliente.actCapituloArmarioIExecute(Sender: TObject); procedure TfrViewDetallesPresupuestoCliente.actCapituloArmarioIExecute(Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_AI); AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ');
end; end;
procedure TfrViewDetallesPresupuestoCliente.actCapituloBanoExecute(Sender: TObject); procedure TfrViewDetallesPresupuestoCliente.actCapituloBanoExecute(Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_B); AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ');
AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True);
end; end;
procedure TfrViewDetallesPresupuestoCliente.actCapituloCocinaExecute(Sender: TObject); procedure TfrViewDetallesPresupuestoCliente.actCapituloCocinaExecute(Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_C_VACIO); AnadirCapitulo(TIPO_CAPITULO_C_VACIO, 'MUEBLES DE COCINA ');
AnadirCapitulo(TIPO_CAPITULO_IMPORTES_OPCIONAL); AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True);
AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR ');
end; end;
procedure TfrViewDetallesPresupuestoCliente.actCapituloElectrodomesticosExecute(Sender: TObject); procedure TfrViewDetallesPresupuestoCliente.actCapituloElectrodomesticosExecute(Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_E); AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ');
end; end;
procedure TfrViewDetallesPresupuestoCliente.actCapituloImportesExecute(Sender: TObject); procedure TfrViewDetallesPresupuestoCliente.actCapituloImportesExecute(Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_IMPORTES); AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ');
end; end;
procedure TfrViewDetallesPresupuestoCliente.actCapituloVariosExecute(Sender: TObject); procedure TfrViewDetallesPresupuestoCliente.actCapituloVariosExecute(Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_V); AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ');
end; end;
function TfrViewDetallesPresupuestoCliente.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; function TfrViewDetallesPresupuestoCliente.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean;
@ -199,7 +203,7 @@ begin
(Controller as IDetallesPresupuestoClienteController).AnadirArticulos(Detalles, Presupuesto.Cliente); (Controller as IDetallesPresupuestoClienteController).AnadirArticulos(Detalles, Presupuesto.Cliente);
end; end;
procedure TfrViewDetallesPresupuestoCliente.AnadirCapitulo(const Tipo: String); procedure TfrViewDetallesPresupuestoCliente.AnadirCapitulo(const Tipo: String;const Descripcion: String; const Descuento:Boolean = false);
var var
bEsMultiSelect : Boolean; bEsMultiSelect : Boolean;
begin begin
@ -216,7 +220,7 @@ begin
_FocusedView.Controller.EditingController.Edit.PostEditValue; _FocusedView.Controller.EditingController.Edit.PostEditValue;
if Assigned(Controller) and Assigned(Detalles) then if Assigned(Controller) and Assigned(Detalles) then
(Controller as IDetallesPresupuestoClienteController).AnadirCapitulo(Tipo, Detalles) (Controller as IDetallesPresupuestoClienteController).AnadirCapitulo(Tipo, Descripcion, Descuento, Detalles)
finally finally
_FocusedView.EndUpdate; _FocusedView.EndUpdate;
HideHourglassCursor; HideHourglassCursor;
@ -227,6 +231,12 @@ begin
end; end;
end; end;
procedure TfrViewDetallesPresupuestoCliente.CustomViewDestroy(Sender: TObject);
begin
cxGridViewVISIBLE.Properties.OnEditValueChanged := Nil;
inherited;
end;
procedure TfrViewDetallesPresupuestoCliente.CustomViewShow(Sender: TObject); procedure TfrViewDetallesPresupuestoCliente.CustomViewShow(Sender: TObject);
begin begin
inherited; inherited;
@ -236,6 +246,8 @@ begin
FPropiedades.DataTable.Active := True; FPropiedades.DataTable.Active := True;
DAPropiedades.DataTable := FPropiedades.DataTable; DAPropiedades.DataTable := FPropiedades.DataTable;
DAValores.DataTable := FPropiedades.Valores.DataTable; DAValores.DataTable := FPropiedades.Valores.DataTable;
cxGridViewVISIBLE.Properties.OnEditValueChanged := OnVISIBLEPropertiesEditValueChanged;
end; end;
end; end;
@ -257,6 +269,27 @@ begin
AProperties := cxRichEdit1.Properties; AProperties := cxRichEdit1.Properties;
end; end;
procedure TfrViewDetallesPresupuestoCliente.OnVISIBLEPropertiesEditValueChanged(Sender: TObject);
var
Orden: Integer;
begin
inherited;
Orden := 1;
if (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_TITULO)
or (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_TITULO_OPCIONAL)
or (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_SUBTOTAL) then
begin
cxGridView.BeginUpdate;
if (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_SUBTOTAL) then
Orden := 0;
(Controller as IDetallesPresupuestoClienteController).SetVisible(Detalles, cxGridView.DataController.GetItemByFieldName(CAMPO_VISIBLE).EditValue, Orden);
cxGridView.EndUpdate;
end;
(Controller as IDetallesPresupuestoClienteController).ActualizarTotales(Detalles);
end;
function TfrViewDetallesPresupuestoCliente.EsTipoEditable(AItem: TcxCustomGridTableItem): Boolean; function TfrViewDetallesPresupuestoCliente.EsTipoEditable(AItem: TcxCustomGridTableItem): Boolean;
var var
IndiceCol : Integer; IndiceCol : Integer;

2
Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas
View File

@ -157,7 +157,7 @@ begin
//se añade un capitulo de cocina con sus propiedades para el contrato //se añade un capitulo de cocina con sus propiedades para el contrato
if ((AArticulos.TIPO_DETALLE = TIPO_DETALLE_TITULO) if ((AArticulos.TIPO_DETALLE = TIPO_DETALLE_TITULO)
and (AArticulos.TIPO_ARTICULO = TIPO_CAPITULO_C_VACIO)) then and (AArticulos.TIPO_ARTICULO = TIPO_CAPITULO_C_VACIO)) then
ADetallesController.AnadirCapitulo(TIPO_CAPITULO_C, ADetalles); ADetallesController.AnadirCapitulo(TIPO_CAPITULO_C,'MUEBLES DE COCINA ', False, ADetalles);
//En contratos ya no existirá ningún capitulo opcional todos sumarán //En contratos ya no existirá ningún capitulo opcional todos sumarán
if (AArticulos.TIPO_DETALLE = TIPO_DETALLE_TITULO_OPCIONAL) then if (AArticulos.TIPO_DETALLE = TIPO_DETALLE_TITULO_OPCIONAL) then

3
Source/Servidor/Configuracion/uConexionBD.dfm
View File

@ -1,7 +1,4 @@
inherited frConexionBD: TfrConexionBD inherited frConexionBD: TfrConexionBD
Width = 394
Height = 262
Visible = True
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 8 Left = 8
Top = 8 Top = 8

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

592
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,295 +1,305 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType />
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">7</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.3.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.3.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 14 de octubre de 2009 13:26</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.3.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.3.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 19 de noviembre de 2009 20:26</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dclfqb100.bpl">FastQueryBuilder 1.03</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\JvUIBD11D.bpl">JVCL Unified Interbase Components</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\cxLibraryD11.bpl">Express Cross Platform Library by Developer Express Inc.</Excluded_Packages>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs SDAC Driver</Excluded_Packages>
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas"> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Form>srvEjercicios</Form> </ProjectExtensions>
<DesignClass>TDataAbstractService</DesignClass> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
</DCCReference> <ItemGroup>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/> <DelphiCompile Include="FactuGES_Server.dpr">
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/> <MainSource>MainSource</MainSource>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> </DelphiCompile>
<Form>srvEmpresas</Form> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
</DCCReference> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas"> <DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<Form>srvProvinciasPoblaciones</Form> <Form>srvEjercicios</Form>
<DesignClass>TRORemoteDataModule</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<DCCReference Include="..\Base\schBase_Intf.pas"/> <Form>srvEmpresas</Form>
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/> <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/> <Form>srvProvinciasPoblaciones</Form>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/> <DesignClass>TRORemoteDataModule</DesignClass>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<Form>srvAlbaranesCliente</Form> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
</DCCReference> <DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/> <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/> <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<Form>srvAlbaranesProveedor</Form> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/> <Form>srvAlbaranesCliente</Form>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> </DCCReference>
<Form>srvAlmacenes</Form> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/> <Form>srvAlbaranesProveedor</Form>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas"> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>RptComisiones</Form> <Form>srvAlmacenes</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas"> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<Form>srvComisiones</Form> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/> <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/> <DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas"/> <DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas"> <Form>RptComisiones</Form>
<Form>srvContabilidad</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/> <Form>srvComisiones</Form>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/> <DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas"> <DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<Form>RptEtiquetasContacto</Form> <Form>srvContabilidad</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<Form>srvContactos</Form> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas"> <Form>RptEtiquetasContacto</Form>
<Form>RptContratosCliente</Form> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContratosCliente</Form> <Form>srvContactos</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/> <DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> <DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
<Form>RptFacturasCliente</Form> <Form>RptContratosCliente</Form>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> <Form>srvContratosCliente</Form>
<Form>srvFacturasCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas"> <Form>RptFacturasCliente</Form>
<Form>RptFacturasProveedor</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> <Form>srvFacturasCliente</Form>
<Form>srvFacturasProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/> <Form>RptFacturasProveedor</Form>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvGestorDocumentos</Form> <Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas"> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<Form>srvGestorInformes</Form> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
</DCCReference> <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\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvHistoricoMovimientos</Form> <Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/> <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/> <Form>srvGestorInformes</Form>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvInventario</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/> <Form>srvHistoricoMovimientos</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\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\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/> <Form>srvInventario</Form>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<Form>RptPresupuestosCliente</Form> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPresupuestosCliente</Form> <Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas"> <Form>RptPresupuestosCliente</Form>
<Form>RptRecibosCliente</Form> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
</DCCReference> <Form>srvPresupuestosCliente</Form>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvRecibosCliente</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/> <Form>RptRecibosCliente</Form>
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas"> <DesignClass>TDataModule</DesignClass>
<Form>RptRecibosProveedor</Form> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
</DCCReference> <Form>srvRecibosCliente</Form>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvRecibosProveedor</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>srvReferencias</Form> <Form>RptRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/> <Form>srvRecibosProveedor</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\Referencias\Model\schReferenciasClient_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/> <Form>srvReferencias</Form>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<Form>srvRemesasProveedor</Form> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/> <Form>srvRemesasCliente</Form>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<Form>srvUnidadesMedida</Form> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRemesasProveedor</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<Form>srvConfiguracion</Form> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
<DCCReference Include="Configuracion\uConexionBD.pas"> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>frConexionBD</Form> <Form>srvUnidadesMedida</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas"> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<Form>frConfGeneral</Form> <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DesignClass>TFrame</DesignClass> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
</DCCReference> <Form>srvConfiguracion</Form>
<DCCReference Include="Configuracion\uConfiguracion.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>fConfiguracion</Form> </DCCReference>
<DesignClass>TForm</DesignClass> <DCCReference Include="Configuracion\uConexionBD.pas">
</DCCReference> <Form>frConexionBD</Form>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> <DesignClass>TFrame</DesignClass>
<Form>FrameConfiguracion</Form> </DCCReference>
<DesignClass>TFrame</DesignClass> <DCCReference Include="Configuracion\uConfGeneral.pas">
</DCCReference> <Form>frConfGeneral</Form>
<DCCReference Include="srvLogin_Impl.pas"> <DesignClass>TFrame</DesignClass>
<Form>srvLogin</Form> </DCCReference>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="Configuracion\uConfiguracion.pas">
</DCCReference> <Form>fConfiguracion</Form>
<DCCReference Include="uAcercaDe.pas"> <DesignClass>TForm</DesignClass>
<Form>fAcercaDe</Form> </DCCReference>
</DCCReference> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<DCCReference Include="uDataModuleServer.pas"> <Form>FrameConfiguracion</Form>
<Form>dmServer</Form> <DesignClass>TFrame</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="srvLogin_Impl.pas">
<DCCReference Include="uServerMainForm.pas"> <Form>srvLogin</Form>
<Form>fServerForm</Form> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Utiles\RegExpr.pas"/> <DCCReference Include="uAcercaDe.pas">
<DCCReference Include="Utiles\uBusinessUtils.pas"/> <Form>fAcercaDe</Form>
<DCCReference Include="Utiles\uDatabaseUtils.pas"/> </DCCReference>
<DCCReference Include="Utiles\uReferenciasUtils.pas"/> <DCCReference Include="uDataModuleServer.pas">
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/> <Form>dmServer</Form>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="Utiles\uServerAppUtils.pas"/> </DCCReference>
<DCCReference Include="Utiles\uSesionesUtils.pas"/> <DCCReference Include="uServerMainForm.pas">
</ItemGroup> <Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,3,7,0 FILEVERSION 2,3,9,0
PRODUCTVERSION 2,3,7,0 PRODUCTVERSION 2,3,9,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.3.7.0\0" VALUE "FileVersion", "2.3.9.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.3.7.0\0" VALUE "ProductVersion", "2.3.9.0\0"
VALUE "CompileDate", "jueves, 29 de octubre de 2009 15:41\0" VALUE "CompileDate", "viernes, 20 de noviembre de 2009 11:40\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"