version 2.9.2. Se revisa y deja ok inventario, pedidos proveedor y albaranes de cliente

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@676 f4e31baf-9722-1c47-927c-6f952f962d4b

Source/Base/Base.dpk

@@ -74,7 +74,8 @@ requires
   cxExtEditorsD11,
   cxGridD11,
   cxPageControlD11,
-  dxPSCoreD11;
+  dxPSCoreD11,
+  dxCoreD11;
 
 contains
   uDataTableUtils in 'Utiles\uDataTableUtils.pas',
@@ -106,7 +107,8 @@ contains
   uAppInfoUtils in 'Utiles\uAppInfoUtils.pas',
   uViewConfiguracionRegistryUtils in 'Utiles\ClassRegistry\uViewConfiguracionRegistryUtils.pas',
   uEMailUtils in 'Utiles\uEMailUtils.pas',
-  uDisplayUtils in 'Utiles\uDisplayUtils.pas';
+  uDisplayUtils in 'Utiles\uDisplayUtils.pas',
+  uReferenciasUtils in 'Utiles\uReferenciasUtils.pas';
 
 end.
  

Source/Base/Base.dproj

@@ -44,6 +44,13 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
       <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@@ -58,54 +65,6 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Contratos de cliente\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\cxGridD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\cxPageControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\dclIndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\designide.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\GUISDK_D11R.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\IndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\IndyProtocols.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\IndySystem.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\JSDialog100.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\JvCmpD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\JvNetD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\pckMD5.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\PluginSDK_D11R.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\TB2k_D10.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\VclSmp.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
@@ -130,11 +89,53 @@
       <Form>dmBase</Form>
       <DesignClass>TDataModule</DesignClass>
     </DCCReference>
+    <DCCReference Include="Utiles\adortl.dcp" />
     <DCCReference Include="Utiles\ClassRegistry\uClassRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uEditorRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uInformeRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uViewConfiguracionRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uViewRegistryUtils.pas" />
+    <DCCReference Include="Utiles\cxDataD11.dcp" />
+    <DCCReference Include="Utiles\cxEditorsD11.dcp" />
+    <DCCReference Include="Utiles\cxExtEditorsD11.dcp" />
+    <DCCReference Include="Utiles\cxGridD11.dcp" />
+    <DCCReference Include="Utiles\cxLibraryD11.dcp" />
+    <DCCReference Include="Utiles\cxPageControlD11.dcp" />
+    <DCCReference Include="Utiles\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="Utiles\dbrtl.dcp" />
+    <DCCReference Include="Utiles\dclIndyCore.dcp" />
+    <DCCReference Include="Utiles\designide.dcp" />
+    <DCCReference Include="Utiles\dsnap.dcp" />
+    <DCCReference Include="Utiles\dxCoreD11.dcp" />
+    <DCCReference Include="Utiles\dxGDIPlusD11.dcp" />
+    <DCCReference Include="Utiles\dxPSCoreD11.dcp" />
+    <DCCReference Include="Utiles\dxThemeD11.dcp" />
+    <DCCReference Include="Utiles\GUISDK_D11R.dcp" />
+    <DCCReference Include="Utiles\IndyCore.dcp" />
+    <DCCReference Include="Utiles\IndyProtocols.dcp" />
+    <DCCReference Include="Utiles\IndySystem.dcp" />
+    <DCCReference Include="Utiles\Jcl.dcp" />
+    <DCCReference Include="Utiles\JclVcl.dcp" />
+    <DCCReference Include="Utiles\JSDialog100.dcp" />
+    <DCCReference Include="Utiles\JvCmpD11R.dcp" />
+    <DCCReference Include="Utiles\JvCoreD11R.dcp" />
+    <DCCReference Include="Utiles\JvCtrlsD11R.dcp" />
+    <DCCReference Include="Utiles\JvDlgsD11R.dcp" />
+    <DCCReference Include="Utiles\JvMMD11R.dcp" />
+    <DCCReference Include="Utiles\JvNetD11R.dcp" />
+    <DCCReference Include="Utiles\JvPageCompsD11R.dcp" />
+    <DCCReference Include="Utiles\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="Utiles\JvSystemD11R.dcp" />
+    <DCCReference Include="Utiles\pckMD5.dcp" />
+    <DCCReference Include="Utiles\pckUCDataConnector.dcp" />
+    <DCCReference Include="Utiles\pckUserControl_RT.dcp" />
+    <DCCReference Include="Utiles\PluginSDK_D11R.dcp" />
+    <DCCReference Include="Utiles\PngComponentsD10.dcp" />
+    <DCCReference Include="Utiles\PNG_D10.dcp" />
+    <DCCReference Include="Utiles\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="Utiles\rtl.dcp" />
+    <DCCReference Include="Utiles\TB2k_D10.dcp" />
+    <DCCReference Include="Utiles\tbx_d10.dcp" />
     <DCCReference Include="Utiles\uAppInfoUtils.pas" />
     <DCCReference Include="Utiles\uCalculosUtils.pas" />
     <DCCReference Include="Utiles\uDataTableUtils.pas" />
@@ -149,8 +150,16 @@
     <DCCReference Include="Utiles\uMD5.pas" />
     <DCCReference Include="Utiles\uNumUtils.pas" />
     <DCCReference Include="Utiles\uPasswordUtils.pas" />
+    <DCCReference Include="Utiles\uReferenciasUtils.pas" />
     <DCCReference Include="Utiles\uSistemaFunc.pas" />
     <DCCReference Include="Utiles\uStringsUtils.pas" />
+    <DCCReference Include="Utiles\vcl.dcp" />
+    <DCCReference Include="Utiles\vclactnband.dcp" />
+    <DCCReference Include="Utiles\vcldb.dcp" />
+    <DCCReference Include="Utiles\vcljpg.dcp" />
+    <DCCReference Include="Utiles\VclSmp.dcp" />
+    <DCCReference Include="Utiles\vclx.dcp" />
+    <DCCReference Include="Utiles\xmlrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/Base/Utiles/uReferenciasUtils.pas

@@ -0,0 +1,39 @@
+unit uReferenciasUtils;
+
+interface
+
+
+{ Si ARef1 < ARef2 -> Result := -1
+  Si ARef1 = ARef2 -> Result := 0
+  Si ARef1 > ARef2 -> Result := 1 }
+
+function CompararReferencias(const ARef1, ARef2 : String) : Integer;
+
+implementation
+
+uses
+  JclAnsiStrings, cxVariants;
+
+function CompararReferencias(const ARef1, ARef2 : String) : Integer;
+var
+  Aux1, Aux2 : String;
+  AuxInt1, AuxInt2: Double;
+  Rpl : Char;
+begin
+  Rpl := ' ';
+  Aux1 := StrReplaceButChars(ARef1, AnsiDecDigits, Rpl);
+  Aux1 := StrRemoveChars(Aux1, AnsiWhiteSpace);
+  Aux2 := StrReplaceButChars(ARef2, AnsiDecDigits, Rpl);
+  Aux2 := StrRemoveChars(Aux2, AnsiWhiteSpace);
+
+  if StrIsDigit(Aux1) and StrIsDigit(Aux2) then
+  begin
+    AuxInt1 := StrToFloatSafe(Aux1);
+    AuxInt2 := StrToFloatSafe(Aux2);
+    Result := VarCompare(AuxInt1, AuxInt2)
+  end
+  else
+    Result := VarCompare(Aux1, Aux2)
+end;
+
+end.

Source/Cliente/FactuGES.dproj

@@ -52,7 +52,8 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">9</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.9.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.9.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">9</VersionInfo><VersionInfo Name="Release">2</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.9.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.9.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
       
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

Source/Cliente/FactuGES.rc

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

Source/Cliente/uPantallaPrincipal.pas

@@ -214,10 +214,6 @@ begin
     if (AppFactuGES.UsuarioActivo.ID_PERFIL <> CTE_PREFIL_GERENCIA) then
        ConfigurarFactuGES1.Visible := False;
   end;
-
-  //perfil logistica
-  if (AppFactuGES.UsuarioActivo.ID_PERFIL <> CTE_PREFIL_LOGISTICA) then
-     Logistica1.Visible := False;
 end;
 
 procedure TfPantallaPrincipal.RefrescarUI;

Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.dproj

@@ -41,17 +41,17 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">AlbaranesCliente_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">AlbaranesCliente_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="AlbaranesCliente_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Presupuestos de cliente\Model\AlbaranesCliente_data.dcp" />
+    <DCCReference Include="..\AlbaranesCliente_data.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Model\AlbaranesCliente_model.dcp" />
+    <DCCReference Include="..\AlbaranesCliente_model.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Model\Articulos_controller.dcp" />
+    <DCCReference Include="..\Articulos_controller.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Model\Contactos_controller.dcp" />
+    <DCCReference Include="..\Contactos_controller.dcp" />
     <DCCReference Include="uAlbaranesClienteController.pas" />
     <DCCReference Include="uAlbaranesClienteReportController.pas" />
     <DCCReference Include="uArticulosAlbaranClienteController.pas" />

Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas

@@ -42,8 +42,8 @@ type
     function ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente) : IBizAlbaranCliente;
     function ElegirAlbaranes(AAlbaran: IBizAlbaranCliente; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranCliente;
 
-    procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false);
+    procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True);
-    procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false);
+    procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True);
     procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
     procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
 
@@ -136,8 +136,8 @@ type
       DoPost: Boolean = True) : Boolean;
 
     procedure EnviarAlbaranPorEMail(AAlbaran : IBizAlbaranCliente);
-    procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false);
+    procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True);
-    procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false);
+    procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True);
     procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
     procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
 
@@ -1003,7 +1003,7 @@ begin
   end;    
 end;
 
-procedure TAlbaranesClienteController.Preview(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false);
+procedure TAlbaranesClienteController.Preview(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True);
 var
   AReportController : IAlbaranesClienteReportController;
   ID_Albaranes: TIntegerList;
@@ -1031,7 +1031,7 @@ begin
    else
      ID_Albaranes.Add(AAlbaran.ID);
 
-    AReportController.Preview(ID_Albaranes);
+    AReportController.Preview(ID_Albaranes, VerPrecios);
 
   finally
     AReportController := NIL;
@@ -1039,7 +1039,7 @@ begin
   end;
 end;
 
-procedure TAlbaranesClienteController.Print(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false);
+procedure TAlbaranesClienteController.Print(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True);
 var
   AReportController : IAlbaranesClienteReportController;
   ID_Albaranes: TIntegerList;
@@ -1065,7 +1065,7 @@ begin
    else
      ID_Albaranes.Add(AAlbaran.ID);
 
-    AReportController.Print(ID_Albaranes);
+    AReportController.Print(ID_Albaranes, VerPrecios);
 
   finally
     AReportController := NIL;

Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas

@@ -10,11 +10,11 @@ uses
 type
   IAlbaranesClienteReportController = interface(IControllerBase)
   ['{4BCC7A93-3322-494C-A3FA-118F4B62CB15}']
-    procedure Preview(const AListaID : TIntegerList);
+    procedure Preview(const AListaID : TIntegerList; const VerPrecios: Boolean);
-    procedure Print(const AListaID : TIntegerList);
+    procedure Print(const AListaID : TIntegerList; const VerPrecios: Boolean);
     procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean);
     procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean);
-    function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
+    function ExportToPDF(const AID: Integer; const AFileName : String = ''; const VerPrecios: Boolean = True): Boolean;
   end;
 
   TAlbaranesClienteReportController = class(TControllerBase, IAlbaranesClienteReportController)
@@ -26,11 +26,11 @@ type
     constructor Create; override;
     destructor Destroy; override;
 
-    procedure Preview(const AListaID : TIntegerList);
+    procedure Preview(const AListaID : TIntegerList; const VerPrecios: Boolean);
-    procedure Print(const AListaID : TIntegerList);
+    procedure Print(const AListaID : TIntegerList; const VerPrecios: Boolean);
     procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean);
     procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean);
-    function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
+    function ExportToPDF(const AID: Integer; const AFileName : String = ''; const VerPrecios: Boolean =  True): Boolean;
   end;
 
 
@@ -113,8 +113,7 @@ begin
   end;
 end;
 
-function TAlbaranesClienteReportController.ExportToPDF(const AID: Integer;
+function TAlbaranesClienteReportController.ExportToPDF(const AID: Integer; const AFileName: String = ''; const VerPrecios: Boolean = True): Boolean;
-  const AFileName: String): Boolean;
 var
   AStream: Binary;
 begin
@@ -136,14 +135,14 @@ begin
   end;
 end;
 
-procedure TAlbaranesClienteReportController.Preview(const AListaID : TIntegerList);
+procedure TAlbaranesClienteReportController.Preview(const AListaID : TIntegerList; const VerPrecios: Boolean);
 var
   AStream: Binary;
   AEditor : IEditorAlbaranesClientePreview;
 begin
   AEditor := NIL;
 
-  AStream := FDataModule.GetRptAlbaranes(AListaID);
+  AStream := FDataModule.GetRptAlbaranes(AListaID, VerPrecios);
   try
     CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
     if Assigned(AEditor) then
@@ -164,7 +163,7 @@ begin
   end;
 end;
 
-procedure TAlbaranesClienteReportController.Print(const AListaID : TIntegerList);
+procedure TAlbaranesClienteReportController.Print(const AListaID : TIntegerList; const VerPrecios: Boolean);
 var
   AStream: Binary;
   AEditor : IEditorAlbaranesClientePreview;
@@ -173,7 +172,7 @@ begin
 
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetRptAlbaranes(AListaID);
+    AStream := FDataModule.GetRptAlbaranes(AListaID, VerPrecios);
     try
       CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
       if Assigned(AEditor) then

Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas

@@ -37,9 +37,9 @@ type
     function NewItem : IBizAlbaranCliente;
 
     // Report
-    function GetRptAlbaranes(const ListaID: TIntegerList): Binary;
+    function GetRptAlbaranes(const ListaID: TIntegerList; const VerPrecios: Boolean = False): Binary;
     function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
-    function GetRptPDFAlbaran(const AID: Integer): Binary;
+    function GetRptPDFAlbaran(const AID: Integer; const VerPrecios: Boolean = False): Binary;
   end;
 
 implementation
@@ -63,27 +63,26 @@ begin
   RORemoteService.Message := dmConexion.Message;
 end;
 
-function TDataModuleAlbaranesCliente.GetRptAlbaranes(const ListaID: TIntegerList): Binary;
+function TDataModuleAlbaranesCliente.GetRptAlbaranes(const ListaID: TIntegerList; const VerPrecios: Boolean = False): Binary;
 var
   AParam : TIntegerArray;
 begin
   AParam := ListaID.ToIntegerArray;
   try
-    Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam);
+    Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerPrecios);
   finally
     FreeAndNil(AParam);
   end;
 end;
 
-function TDataModuleAlbaranesCliente.GetRptPDFAlbaran(
+function TDataModuleAlbaranesCliente.GetRptPDFAlbaran(const AID: Integer; const VerPrecios: Boolean = False): Binary;
-  const AID: Integer): Binary;
 var
   AParam : TIntegerArray;
 begin
   AParam := TIntegerArray.Create;
   try
     AParam.Add(AID);
-    Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam);
+    Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerPrecios);
   finally
     FreeAndNil(AParam);
   end;

Source/Modulos/Albaranes de cliente/Model/Data/uIDataModuleAlbaranesClienteReport.pas

@@ -8,9 +8,9 @@ uses
 type
   IDataModuleAlbaranesClienteReport = interface
   ['{42C55204-5AB9-403E-8385-1A62B02D8234}']
-    function GetRptAlbaranes(const ListaID: TIntegerList): Binary;
+    function GetRptAlbaranes(const ListaID: TIntegerList; const VerPrecios: Boolean = False): Binary;
     function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
-    function GetRptPDFAlbaran(const AID: Integer): Binary;
+    function GetRptPDFAlbaran(const AID: Integer; const VerPrecios: Boolean = False): Binary;
   end;
 
 implementation

Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas

@@ -36,11 +36,12 @@ type
     procedure DataModuleCreate(Sender: TObject);
   private
     FConnection: IDAConnection;
+    FVerPrecios: Boolean;
     //Genera cada uno de los albaranes a imprimir
     procedure _GenerarAlbaran(const ID: Integer);
   public
-    function GenerarAlbaran(const ListaID : TIntegerArray): Binary;
+    function GenerarAlbaran(const ListaID : TIntegerArray; const VerPrecios: Boolean): Binary;
-    function GenerarAlbaranEnPDF(const ListaID : TIntegerArray): Binary;
+    function GenerarAlbaranEnPDF(const ListaID : TIntegerArray; const VerPrecios: Boolean): Binary;
     function GenerarEtiquetas(const AID : Integer; withRefCliente: Boolean): Binary;
   end;
 
@@ -72,11 +73,14 @@ begin
 end;
 
 
-function TRptAlbaranesCliente.GenerarAlbaran(const ListaID : TIntegerArray): Binary;
+function TRptAlbaranesCliente.GenerarAlbaran(const ListaID : TIntegerArray; const VerPrecios: Boolean): Binary;
 var
   i: Integer;
 begin
   Result := Binary.Create;
+  //Inicializamos parametros
+  FVerPrecios := VerPrecios;
+
   //Vamos generando todos y cada uno de los presupuestos recibidos
   for i := 0 to ListaID.Count - 1 do
     _GenerarAlbaran(ListaID.Items[i]);
@@ -84,12 +88,13 @@ begin
   frxReport.PreviewPages.SaveToStream(Result);
 end;
 
-function TRptAlbaranesCliente.GenerarAlbaranEnPDF(
+function TRptAlbaranesCliente.GenerarAlbaranEnPDF(const ListaID: TIntegerArray; const VerPrecios: Boolean): Binary;
-  const ListaID: TIntegerArray): Binary;
 var
   i: Integer;
 begin
   Result := Binary.Create;
+  //Inicializamos parametros
+  FVerPrecios := VerPrecios;
 
   //Vamos generando todos y cada uno de los presupuestos recibidos
   for i := 0 to ListaID.Count - 1 do
@@ -120,7 +125,8 @@ begin
        raise Exception.Create (('Error Servidor: _GenerarAlbaran, no encuentra informe' + rptInfAlbaran));
 
     frxReport.LoadFromFile(AInforme, True);
-    frxReport.ReportOptions.Name := 'Albarán de cliente ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;    
+    frxReport.Variables.Variables['VerPrecios'] := FVerPrecios;    
+    frxReport.ReportOptions.Name := 'Albarán de cliente ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;
     frxReport.PrepareReport(False);
   finally
     FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"

Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas

@@ -32,7 +32,7 @@ type
     procedure DARemoteServiceCreate(Sender: TObject);
   protected
     { IsrvAlbaranesCliente methods }
-    function GenerarInforme(const ListaID: TIntegerArray): Binary;
+    function GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean): Binary;
     function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
   end;
 
@@ -81,14 +81,13 @@ begin
   ConnectionName := dmServer.ConnectionName;
 end;
 
-function TsrvAlbaranesCliente.GenerarInforme(
+function TsrvAlbaranesCliente.GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean): Binary;
-  const ListaID: TIntegerArray): Binary;
 var
   AReportGenerator : TRptAlbaranesCliente;
 begin
   AReportGenerator := TRptAlbaranesCliente.Create(nil);
   try
-    Result := AReportGenerator.GenerarAlbaran(ListaID);
+    Result := AReportGenerator.GenerarAlbaran(ListaID, VerPrecios);
   finally
     FreeAndNIL(AReportGenerator);
   end;

Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm

@@ -2,7 +2,6 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
   Caption = 'Lista de albaranes de cliente'
   ClientWidth = 583
   ExplicitWidth = 591
-  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader

Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas

@@ -506,7 +506,10 @@ begin
                     AAlbaranes := Albaranes;
 
                   if Assigned(AAlbaranes) then
-                     FController.Preview(AAlbaranes, AllItems);
+                     if (Application.MessageBox('¿Desea ver los precios en el\los albaran\es de cliente seleccionados?', 'Atención', MB_YESNO) = IDYES) then
+                        FController.Preview(AAlbaranes, AllItems)
+                     else
+                        FController.Preview(AAlbaranes, AllItems, False);                     
                 end;
       end;
     end;

Source/Modulos/Contratos de cliente/ContratosCliente_Group.groupproj

@@ -245,15 +245,6 @@
   <Target Name="PedidosProveedor_controller:Make">
     <MSBuild Projects="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" Targets="Make" />
   </Target>
-  <Target Name="PedidosProveedor_plugin">
-    <MSBuild Projects="..\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.dproj" Targets="" />
-  </Target>
-  <Target Name="PedidosProveedor_plugin:Clean">
-    <MSBuild Projects="..\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="PedidosProveedor_plugin:Make">
-    <MSBuild Projects="..\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.dproj" Targets="Make" />
-  </Target>
   <Target Name="PedidosProveedor_view">
     <MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="" />
   </Target>
@@ -263,14 +254,14 @@
   <Target Name="PedidosProveedor_view:Make">
     <MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Make" />
   </Target>
-  <Target Name="FacturasProveedor_plugin">
+  <Target Name="PedidosProveedor_plugin">
-    <MSBuild Projects="..\Facturas de proveedor\Plugin\FacturasProveedor_plugin.dproj" Targets="" />
+    <MSBuild Projects="..\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.dproj" Targets="" />
   </Target>
-  <Target Name="FacturasProveedor_plugin:Clean">
+  <Target Name="PedidosProveedor_plugin:Clean">
-    <MSBuild Projects="..\Facturas de proveedor\Plugin\FacturasProveedor_plugin.dproj" Targets="Clean" />
+    <MSBuild Projects="..\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.dproj" Targets="Clean" />
   </Target>
-  <Target Name="FacturasProveedor_plugin:Make">
+  <Target Name="PedidosProveedor_plugin:Make">
-    <MSBuild Projects="..\Facturas de proveedor\Plugin\FacturasProveedor_plugin.dproj" Targets="Make" />
+    <MSBuild Projects="..\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.dproj" Targets="Make" />
   </Target>
   <Target Name="FacturasProveedor_controller">
     <MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="" />
@@ -281,14 +272,23 @@
   <Target Name="FacturasProveedor_controller:Make">
     <MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="Make" />
   </Target>
+  <Target Name="FacturasProveedor_plugin">
+    <MSBuild Projects="..\Facturas de proveedor\Plugin\FacturasProveedor_plugin.dproj" Targets="" />
+  </Target>
+  <Target Name="FacturasProveedor_plugin:Clean">
+    <MSBuild Projects="..\Facturas de proveedor\Plugin\FacturasProveedor_plugin.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FacturasProveedor_plugin:Make">
+    <MSBuild Projects="..\Facturas de proveedor\Plugin\FacturasProveedor_plugin.dproj" Targets="Make" />
+  </Target>
   <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_AlbCli_relation;ConCli_FacCli_relation;PreCli_ConCli_relation;ConCli_PedProv_relation;ContratosCliente_view;ContratosCliente_plugin;FactuGES;FactuGES_Server;PresupuestosCliente_view;PedidosProveedor_controller;PedidosProveedor_plugin;PedidosProveedor_view;FacturasProveedor_plugin;FacturasProveedor_controller" />
+    <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_AlbCli_relation;ConCli_FacCli_relation;PreCli_ConCli_relation;ConCli_PedProv_relation;ContratosCliente_view;ContratosCliente_plugin;FactuGES;FactuGES_Server;PresupuestosCliente_view;PedidosProveedor_controller;PedidosProveedor_view;PedidosProveedor_plugin;FacturasProveedor_controller;FacturasProveedor_plugin" />
   </Target>
   <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_AlbCli_relation:Clean;ConCli_FacCli_relation:Clean;PreCli_ConCli_relation:Clean;ConCli_PedProv_relation:Clean;ContratosCliente_view:Clean;ContratosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PresupuestosCliente_view:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_plugin:Clean;PedidosProveedor_view:Clean;FacturasProveedor_plugin:Clean;FacturasProveedor_controller: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_AlbCli_relation:Clean;ConCli_FacCli_relation:Clean;PreCli_ConCli_relation:Clean;ConCli_PedProv_relation:Clean;ContratosCliente_view:Clean;ContratosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PresupuestosCliente_view:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_view:Clean;PedidosProveedor_plugin:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_plugin:Clean" />
   </Target>
   <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_AlbCli_relation:Make;ConCli_FacCli_relation:Make;PreCli_ConCli_relation:Make;ConCli_PedProv_relation:Make;ContratosCliente_view:Make;ContratosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PresupuestosCliente_view:Make;PedidosProveedor_controller:Make;PedidosProveedor_plugin:Make;PedidosProveedor_view:Make;FacturasProveedor_plugin:Make;FacturasProveedor_controller: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_AlbCli_relation:Make;ConCli_FacCli_relation:Make;PreCli_ConCli_relation:Make;ConCli_PedProv_relation:Make;ContratosCliente_view:Make;ContratosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PresupuestosCliente_view:Make;PedidosProveedor_controller:Make;PedidosProveedor_view:Make;PedidosProveedor_plugin:Make;FacturasProveedor_controller:Make;FacturasProveedor_plugin:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm

@@ -578,6 +578,11 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
       item
         Name = 'PORCENTAJE_BENEFICIO'
         DataType = datCurrency
+      end
+      item
+        Name = 'SITUACION'
+        DataType = datString
+        Size = 255
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas

@@ -9,13 +9,13 @@ const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_Valores = '{70561B10-CF0E-4CB0-9EDE-9E07CA3DC825}';
+  RID_Valores = '{8D0A6005-9221-49D8-850E-9132CB554EF3}';
-  RID_Propiedades = '{42795964-B53A-4ABC-8C07-3AAF06D510F2}';
+  RID_Propiedades = '{8B55BD13-9462-4069-8727-FC0E5CC3B5CE}';
-  RID_ListaAnosContratos = '{3C8A3C5F-0BF7-4ED2-A43F-09AB91F800DD}';
+  RID_ListaAnosContratos = '{C307F363-E262-45D7-92C8-C8A315917474}';
-  RID_ContratosClienteBeneficios = '{298384FF-93DD-400F-99FF-6F94B609A8F3}';
+  RID_ContratosClienteBeneficios = '{2A105B52-7E4A-4F48-9BAC-4E919F6619A5}';
-  RID_ContratosCliente = '{599407C8-CB47-4921-A309-EA98160811DB}';
+  RID_ContratosCliente = '{E6050152-2E8E-4AAB-BD2F-C7A863966187}';
-  RID_TiposCapitulos = '{9AEF97F4-6F51-4965-847A-2AE04F02AF26}';
+  RID_TiposCapitulos = '{8DC00365-1B40-406A-94F0-0A706EA1889C}';
-  RID_ContratosCliente_Detalles = '{F3C415E0-E714-4252-82B0-A62CD86B7ED8}';
+  RID_ContratosCliente_Detalles = '{9BAA7277-F710-4A9B-8EC7-FFC449E23AF6}';
 
   { Data table names }
   nme_Valores = 'Valores';
@@ -64,6 +64,7 @@ const
   fld_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR = 'IMPORTE_FACTURAS_PROVEEDOR';
   fld_ContratosClienteBeneficiosIMPORTE_BENEFICIO = 'IMPORTE_BENEFICIO';
   fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO = 'PORCENTAJE_BENEFICIO';
+  fld_ContratosClienteBeneficiosSITUACION = 'SITUACION';
 
   { ContratosClienteBeneficios field indexes }
   idx_ContratosClienteBeneficiosID = 0;
@@ -77,6 +78,7 @@ const
   idx_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR = 8;
   idx_ContratosClienteBeneficiosIMPORTE_BENEFICIO = 9;
   idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO = 10;
+  idx_ContratosClienteBeneficiosSITUACION = 11;
 
   { ContratosCliente fields }
   fld_ContratosClienteID = 'ID';
@@ -237,7 +239,7 @@ const
 type
   { IValores }
   IValores = interface(IDAStronglyTypedDataTable)
-  ['{2620E76F-9DE4-4A08-9B01-F4FDC10BE790}']
+  ['{BE709E0D-DA15-433E-845D-A94BC20A4918}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -296,7 +298,7 @@ type
 
   { IPropiedades }
   IPropiedades = interface(IDAStronglyTypedDataTable)
-  ['{9C04A9FE-841E-4326-AE5F-88AFA615E660}']
+  ['{5B1734E1-7B39-4B14-B907-21077C041461}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -355,7 +357,7 @@ type
 
   { IListaAnosContratos }
   IListaAnosContratos = interface(IDAStronglyTypedDataTable)
-  ['{8DF60C08-E50F-4823-9294-DB2BD0124094}']
+  ['{ABCA5139-F042-4033-BCA2-09D644B80C2C}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -390,7 +392,7 @@ type
 
   { IContratosClienteBeneficios }
   IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
-  ['{613D5F73-5101-403F-B998-0FCE68876699}']
+  ['{6429E1F0-65EC-42C4-B326-A3FDFD709C6B}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -436,6 +438,10 @@ type
     procedure SetPORCENTAJE_BENEFICIOValue(const aValue: Currency);
     function GetPORCENTAJE_BENEFICIOIsNull: Boolean;
     procedure SetPORCENTAJE_BENEFICIOIsNull(const aValue: Boolean);
+    function GetSITUACIONValue: String;
+    procedure SetSITUACIONValue(const aValue: String);
+    function GetSITUACIONIsNull: Boolean;
+    procedure SetSITUACIONIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -461,6 +467,8 @@ type
     property IMPORTE_BENEFICIOIsNull: Boolean read GetIMPORTE_BENEFICIOIsNull write SetIMPORTE_BENEFICIOIsNull;
     property PORCENTAJE_BENEFICIO: Currency read GetPORCENTAJE_BENEFICIOValue write SetPORCENTAJE_BENEFICIOValue;
     property PORCENTAJE_BENEFICIOIsNull: Boolean read GetPORCENTAJE_BENEFICIOIsNull write SetPORCENTAJE_BENEFICIOIsNull;
+    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
+    property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
   end;
 
   { TContratosClienteBeneficiosDataTableRules }
@@ -512,6 +520,10 @@ type
     procedure SetPORCENTAJE_BENEFICIOValue(const aValue: Currency); virtual;
     function GetPORCENTAJE_BENEFICIOIsNull: Boolean; virtual;
     procedure SetPORCENTAJE_BENEFICIOIsNull(const aValue: Boolean); virtual;
+    function GetSITUACIONValue: String; virtual;
+    procedure SetSITUACIONValue(const aValue: String); virtual;
+    function GetSITUACIONIsNull: Boolean; virtual;
+    procedure SetSITUACIONIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -536,6 +548,8 @@ type
     property IMPORTE_BENEFICIOIsNull: Boolean read GetIMPORTE_BENEFICIOIsNull write SetIMPORTE_BENEFICIOIsNull;
     property PORCENTAJE_BENEFICIO: Currency read GetPORCENTAJE_BENEFICIOValue write SetPORCENTAJE_BENEFICIOValue;
     property PORCENTAJE_BENEFICIOIsNull: Boolean read GetPORCENTAJE_BENEFICIOIsNull write SetPORCENTAJE_BENEFICIOIsNull;
+    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
+    property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -545,7 +559,7 @@ type
 
   { IContratosCliente }
   IContratosCliente = interface(IDAStronglyTypedDataTable)
-  ['{01B1FEF2-2A92-4080-8AA6-D0668432174B}']
+  ['{F6CA8D2A-7FE2-492D-9C31-17EEED90EA92}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1159,7 +1173,7 @@ type
   }
   { ITiposCapitulos }
   ITiposCapitulos = interface(IDAStronglyTypedDataTable)
-  ['{F69A1386-D2A9-4D05-82A9-F050398B2E40}']
+  ['{83723322-56DB-4D52-A7F2-71BE5705EFF4}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1254,7 +1268,7 @@ type
 
   { IContratosCliente_Detalles }
   IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{E34606BE-1525-42AA-85DF-2F29600C6B53}']
+  ['{E4351EBD-42E9-42AA-A32C-EBF448AF3AAB}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1908,6 +1922,27 @@ begin
     DataTable.Fields[idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO].AsVariant := Null;
 end;
 
+function TContratosClienteBeneficiosDataTableRules.GetSITUACIONValue: String;
+begin
+  result := DataTable.Fields[idx_ContratosClienteBeneficiosSITUACION].AsString;
+end;
+
+procedure TContratosClienteBeneficiosDataTableRules.SetSITUACIONValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ContratosClienteBeneficiosSITUACION].AsString := aValue;
+end;
+
+function TContratosClienteBeneficiosDataTableRules.GetSITUACIONIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ContratosClienteBeneficiosSITUACION].IsNull;
+end;
+
+procedure TContratosClienteBeneficiosDataTableRules.SetSITUACIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ContratosClienteBeneficiosSITUACION].AsVariant := Null;
+end;
+
 
 { TContratosClienteDataTableRules }
 constructor TContratosClienteDataTableRules.Create(aDataTable: TDADataTable);

Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas

@@ -9,18 +9,18 @@ const
   { Delta rules ids 
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_ValoresDelta = '{4C6DB20B-7CD7-4030-BD89-8AAA22A9CBB8}';
+  RID_ValoresDelta = '{684CE7DA-07CD-44B6-B5D0-A53167809071}';
-  RID_PropiedadesDelta = '{F5FC8E51-B4DB-46CF-A7AB-8A54CE4C8E15}';
+  RID_PropiedadesDelta = '{9411016A-2563-45A8-A869-AD6D77B08D8D}';
-  RID_ListaAnosContratosDelta = '{17BC2843-25E2-47F3-AD18-7C7A78284701}';
+  RID_ListaAnosContratosDelta = '{3904C59D-140E-4B09-8883-BAD4283361E1}';
-  RID_ContratosClienteBeneficiosDelta = '{6F425251-01C7-4E7F-A383-9B80DCF50117}';
+  RID_ContratosClienteBeneficiosDelta = '{33BCE36F-E764-4D57-B64F-CC3336F86D08}';
-  RID_ContratosClienteDelta = '{C99393C6-A96C-4C04-AE04-35FD4EF00ED2}';
+  RID_ContratosClienteDelta = '{5A623AB9-EB89-4FE8-B2EB-DCA2DF9DE9E2}';
-  RID_TiposCapitulosDelta = '{E50EF164-9D6C-4B3D-A69F-C4C22D137585}';
+  RID_TiposCapitulosDelta = '{9005E869-C4FF-4100-B6D7-7C3AB110EF02}';
-  RID_ContratosCliente_DetallesDelta = '{B74A0577-D340-49D9-B145-7D9407B03919}';
+  RID_ContratosCliente_DetallesDelta = '{922730A0-E1D3-48AF-B9FA-C766F808A26F}';
 
 type
   { IValoresDelta }
   IValoresDelta = interface(IValores)
-  ['{4C6DB20B-7CD7-4030-BD89-8AAA22A9CBB8}']
+  ['{684CE7DA-07CD-44B6-B5D0-A53167809071}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PROPIEDADValue : Integer;
@@ -78,7 +78,7 @@ type
 
   { IPropiedadesDelta }
   IPropiedadesDelta = interface(IPropiedades)
-  ['{F5FC8E51-B4DB-46CF-A7AB-8A54CE4C8E15}']
+  ['{9411016A-2563-45A8-A869-AD6D77B08D8D}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldDESCRIPCIONValue : String;
@@ -136,7 +136,7 @@ type
 
   { IListaAnosContratosDelta }
   IListaAnosContratosDelta = interface(IListaAnosContratos)
-  ['{17BC2843-25E2-47F3-AD18-7C7A78284701}']
+  ['{3904C59D-140E-4B09-8883-BAD4283361E1}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -170,7 +170,7 @@ type
 
   { IContratosClienteBeneficiosDelta }
   IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
-  ['{6F425251-01C7-4E7F-A383-9B80DCF50117}']
+  ['{33BCE36F-E764-4D57-B64F-CC3336F86D08}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldREFERENCIAValue : String;
@@ -183,6 +183,7 @@ type
     function GetOldIMPORTE_FACTURAS_PROVEEDORValue : Currency;
     function GetOldIMPORTE_BENEFICIOValue : Currency;
     function GetOldPORCENTAJE_BENEFICIOValue : Currency;
+    function GetOldSITUACIONValue : String;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -196,6 +197,7 @@ type
     property OldIMPORTE_FACTURAS_PROVEEDOR : Currency read GetOldIMPORTE_FACTURAS_PROVEEDORValue;
     property OldIMPORTE_BENEFICIO : Currency read GetOldIMPORTE_BENEFICIOValue;
     property OldPORCENTAJE_BENEFICIO : Currency read GetOldPORCENTAJE_BENEFICIOValue;
+    property OldSITUACION : String read GetOldSITUACIONValue;
   end;
 
   { TContratosClienteBeneficiosBusinessProcessorRules }
@@ -269,6 +271,12 @@ type
     function GetOldPORCENTAJE_BENEFICIOIsNull: Boolean; virtual;
     procedure SetPORCENTAJE_BENEFICIOValue(const aValue: Currency); virtual;
     procedure SetPORCENTAJE_BENEFICIOIsNull(const aValue: Boolean); virtual;
+    function GetSITUACIONValue: String; virtual;
+    function GetSITUACIONIsNull: Boolean; virtual;
+    function GetOldSITUACIONValue: String; virtual;
+    function GetOldSITUACIONIsNull: Boolean; virtual;
+    procedure SetSITUACIONValue(const aValue: String); virtual;
+    procedure SetSITUACIONIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -315,6 +323,10 @@ type
     property PORCENTAJE_BENEFICIOIsNull : Boolean read GetPORCENTAJE_BENEFICIOIsNull write SetPORCENTAJE_BENEFICIOIsNull;
     property OldPORCENTAJE_BENEFICIO : Currency read GetOldPORCENTAJE_BENEFICIOValue;
     property OldPORCENTAJE_BENEFICIOIsNull : Boolean read GetOldPORCENTAJE_BENEFICIOIsNull;
+    property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
+    property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
+    property OldSITUACION : String read GetOldSITUACIONValue;
+    property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -324,7 +336,7 @@ type
 
   { IContratosClienteDelta }
   IContratosClienteDelta = interface(IContratosCliente)
-  ['{C99393C6-A96C-4C04-AE04-35FD4EF00ED2}']
+  ['{5A623AB9-EB89-4FE8-B2EB-DCA2DF9DE9E2}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -940,7 +952,7 @@ type
 
   { ITiposCapitulosDelta }
   ITiposCapitulosDelta = interface(ITiposCapitulos)
-  ['{E50EF164-9D6C-4B3D-A69F-C4C22D137585}']
+  ['{9005E869-C4FF-4100-B6D7-7C3AB110EF02}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldPOSICIONValue : Integer;
@@ -1034,7 +1046,7 @@ type
 
   { IContratosCliente_DetallesDelta }
   IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
-  ['{B74A0577-D340-49D9-B145-7D9407B03919}']
+  ['{922730A0-E1D3-48AF-B9FA-C766F808A26F}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CONTRATOValue : Integer;
@@ -1868,6 +1880,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO] := Null;
 end;
 
+function TContratosClienteBeneficiosBusinessProcessorRules.GetSITUACIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosSITUACION];
+end;
+
+function TContratosClienteBeneficiosBusinessProcessorRules.GetSITUACIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosSITUACION]);
+end;
+
+function TContratosClienteBeneficiosBusinessProcessorRules.GetOldSITUACIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosSITUACION];
+end;
+
+function TContratosClienteBeneficiosBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosSITUACION]);
+end;
+
+procedure TContratosClienteBeneficiosBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosSITUACION] := aValue;
+end;
+
+procedure TContratosClienteBeneficiosBusinessProcessorRules.SetSITUACIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosSITUACION] := Null;
+end;
+
 
 { TContratosClienteBusinessProcessorRules }
 constructor TContratosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm

@@ -139,8 +139,8 @@ object srvContratosCliente: TsrvContratosCliente
             SQL = 
               'SELECT '#10'    ID, REFERENCIA, FECHA_CONTRATO, NOMBRE, NIF_CIF, IMP' +
               'ORTE_NETO, '#10'    IMPORTE_DESCUENTO, BASE_IMPONIBLE, IMPORTE_FACTU' +
-              'RAS_PROVEEDOR, '#10'    IMPORTE_BENEFICIO, PORCENTAJE_BENEFICIO'#10'  FR' +
+              'RAS_PROVEEDOR, '#10'    IMPORTE_BENEFICIO, PORCENTAJE_BENEFICIO, SIT' +
-              'OM'#10'    V_CONTRATOS_BENEFICIOS'#10'  WHERE {Where}'
+              'UACION'#10'  FROM'#10'    V_CONTRATOS_BENEFICIOS'#10'  WHERE {Where}'#10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -186,6 +186,10 @@ object srvContratosCliente: TsrvContratosCliente
               item
                 DatasetField = 'PORCENTAJE_BENEFICIO'
                 TableField = 'PORCENTAJE_BENEFICIO'
+              end
+              item
+                DatasetField = 'SITUACION'
+                TableField = 'SITUACION'
               end>
           end>
         Name = 'ContratosClienteBeneficios'
@@ -236,6 +240,11 @@ object srvContratosCliente: TsrvContratosCliente
           item
             Name = 'PORCENTAJE_BENEFICIO'
             DataType = datCurrency
+          end
+          item
+            Name = 'SITUACION'
+            DataType = datString
+            Size = 255
           end>
       end
       item

Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.dfm

@@ -202,7 +202,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
       DockPos = 343
       Visible = True
       ExplicitLeft = 431
-      ExplicitWidth = 688
+      ExplicitWidth = 687
       object TBXSeparatorItem18: TTBXSeparatorItem
       end
       object TBXItem44: TTBXItem
@@ -304,7 +304,9 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
     object actVerFacturasProveedor: TAction
       Category = 'Acciones'
       Caption = 'Ver facturas prov relacionadas'
+      Enabled = False
       ImageIndex = 6
+      Visible = False
       OnExecute = actVerFacturasProveedorExecute
     end
   end

Source/Modulos/Contratos de cliente/Views/uEditorContratosClienteBeneficios.dfm

@@ -33,6 +33,19 @@ inherited fEditorContratosClienteBeneficios: TfEditorContratosClienteBeneficios
       ExplicitWidth = 543
       ExplicitHeight = 195
       inherited cxGridView: TcxGridDBTableView
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+            Column = frViewContratosClienteBeneficios1.cxGridViewIMPORTE_BENEFICIO
+          end
+          item
+            Kind = skSum
+            Column = frViewContratosClienteBeneficios1.cxGridViewIMPORTE_FACTURAS_PROVEEDOR
+          end
+          item
+            Kind = skSum
+            Column = frViewContratosClienteBeneficios1.cxGridViewBASE_IMPONIBLE
+          end>
         inherited cxGridViewIMPORTE_NETO: TcxGridDBColumn
           HeaderAlignmentHorz = taRightJustify
         end

Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.dfm

@@ -1,7 +1,22 @@
 inherited frViewContratosClienteBeneficios: TfrViewContratosClienteBeneficios
   OnDestroy = CustomViewDestroy
   inherited cxGrid: TcxGrid
+    RootLevelOptions.DetailTabsPosition = dtpTop
+    OnActiveTabChanged = cxGridActiveTabChanged
     inherited cxGridView: TcxGridDBTableView
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = cxGridViewIMPORTE_BENEFICIO
+        end
+        item
+          Kind = skSum
+          Column = cxGridViewIMPORTE_FACTURAS_PROVEEDOR
+        end
+        item
+          Kind = skSum
+          Column = cxGridViewBASE_IMPONIBLE
+        end>
       object cxGridViewID: TcxGridDBColumn
         DataBinding.FieldName = 'ID'
         Visible = False
@@ -16,6 +31,10 @@ inherited frViewContratosClienteBeneficios: TfrViewContratosClienteBeneficios
         DataBinding.FieldName = 'FECHA_CONTRATO'
         PropertiesClassName = 'TcxDateEditProperties'
       end
+      object cxGridViewSITUACION: TcxGridDBColumn
+        Caption = 'Situaci'#243'n'
+        DataBinding.FieldName = 'SITUACION'
+      end
       object cxGridViewNOMBRE: TcxGridDBColumn
         Caption = 'Cliente'
         DataBinding.FieldName = 'NOMBRE'
@@ -41,18 +60,21 @@ inherited frViewContratosClienteBeneficios: TfrViewContratosClienteBeneficios
         DataBinding.FieldName = 'BASE_IMPONIBLE'
         PropertiesClassName = 'TcxCurrencyEditProperties'
         Properties.Alignment.Horz = taRightJustify
+        FooterAlignmentHorz = taRightJustify
       end
       object cxGridViewIMPORTE_FACTURAS_PROVEEDOR: TcxGridDBColumn
         Caption = 'Importe facturas proveedor'
         DataBinding.FieldName = 'IMPORTE_FACTURAS_PROVEEDOR'
         PropertiesClassName = 'TcxCurrencyEditProperties'
         Properties.Alignment.Horz = taRightJustify
+        FooterAlignmentHorz = taRightJustify
       end
       object cxGridViewIMPORTE_BENEFICIO: TcxGridDBColumn
         Caption = 'Importe beneficio'
         DataBinding.FieldName = 'IMPORTE_BENEFICIO'
         PropertiesClassName = 'TcxCurrencyEditProperties'
         Properties.Alignment.Horz = taRightJustify
+        FooterAlignmentHorz = taRightJustify
       end
       object cxGridViewPORCENTAJE_BENEFICIO: TcxGridDBColumn
         Caption = 'Porcentaje beneficio'
@@ -62,6 +84,15 @@ inherited frViewContratosClienteBeneficios: TfrViewContratosClienteBeneficios
         Properties.DisplayFormat = ',0.00 %;-,0.00 %'
       end
     end
+    inherited cxGridLevel: TcxGridLevel
+      Caption = 'Todos'
+    end
+    object cxGridPendientes: TcxGridLevel
+      Caption = 'Pendientes'
+    end
+    object cxGridTerminados: TcxGridLevel
+      Caption = 'Terminados'
+    end
   end
   inherited frViewFiltroBase1: TfrViewFiltroBase
     inherited TBXDockablePanel1: TTBXDockablePanel

Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.pas

@@ -27,13 +27,23 @@ type
     cxGridViewIMPORTE_FACTURAS_PROVEEDOR: TcxGridDBColumn;
     cxGridViewIMPORTE_BENEFICIO: TcxGridDBColumn;
     cxGridViewPORCENTAJE_BENEFICIO: TcxGridDBColumn;
+    cxGridPendientes: TcxGridLevel;
+    cxGridTerminados: TcxGridLevel;
+    cxGridViewSITUACION: TcxGridDBColumn;
     procedure CustomViewDestroy(Sender: TObject);
+    procedure cxGridActiveTabChanged(Sender: TcxCustomGrid;
+      ALevel: TcxGridLevel);
   private
     FContratos: IBizContratosClienteBeneficios;
     function GetContratos: IBizContratosClienteBeneficios;
     procedure SetContratos(const Value: IBizContratosClienteBeneficios);
 
+    //Filtros relativos a la vista
+    procedure AnadirFiltroSituaciones;
+    procedure AnadirFiltroFechas;
+
   public
+    procedure AnadirOtrosFiltros; override;
     property Contratos: IBizContratosClienteBeneficios read GetContratos write SetContratos;
   end;
 
@@ -46,12 +56,66 @@ implementation
 
 { TfrViewContratosClienteBeneficios }
 
+procedure TfrViewContratosClienteBeneficios.AnadirFiltroFechas;
+var
+  Columna: TcxGridDBColumn;
+  Fecha1, Fecha2: Variant;
+  FFiltro : TcxFilterCriteriaItemList;
+begin
+  Fecha1 := frViewFiltroBase1.edtFechaIniFiltro.EditValue;
+  Fecha2 := frViewFiltroBase1.edtFechaFinFiltro.EditValue;
+
+  if  not VarIsNull(Fecha1)
+  and not VarIsNull(Fecha2) then
+  begin
+    cxGridView.DataController.Filter.Options := [fcoCaseInsensitive, fcoSoftCompare];
+    FFiltro := AddFilterGrid(fboAnd);
+
+    Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName('FECHA_CONTRATO');
+    FFiltro.AddItem(Columna, foBetween, varArrayOf([Fecha1, Fecha2]), VarToStr(Fecha1) + ' and ' + VarToStr(Fecha2));
+  end;
+end;
+
+procedure TfrViewContratosClienteBeneficios.AnadirFiltroSituaciones;
+var
+  FFiltro : TcxFilterCriteriaItemList;
+begin
+  FFiltro := AddFilterGrid(fboAnd);
+
+  case cxGrid.ActiveLevel.Index of
+    1   : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_PENDIENTE, SITUACION_CONTRATO_PENDIENTE);
+    2   : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_TERMINADO, SITUACION_CONTRATO_TERMINADO);
+  end;
+end;
+
+procedure TfrViewContratosClienteBeneficios.AnadirOtrosFiltros;
+begin
+  inherited;
+
+  AnadirFiltroSituaciones;
+  AnadirFiltroFechas;
+
+  //Finalmente activamos el filtro si tenemos algo
+  if cxGridView.DataController.Filter.IsEmpty then
+    cxGridView.DataController.Filter.Active := False
+  else
+    cxGridView.DataController.Filter.Active := True;
+  cxGrid.ActiveLevel.GridView := cxGridView;
+end;
+
 procedure TfrViewContratosClienteBeneficios.CustomViewDestroy(Sender: TObject);
 begin
   FContratos := NIL;
   inherited;
 end;
 
+procedure TfrViewContratosClienteBeneficios.cxGridActiveTabChanged(
+  Sender: TcxCustomGrid; ALevel: TcxGridLevel);
+begin
+  inherited;
+  RefrescarFiltro;
+end;
+
 function TfrViewContratosClienteBeneficios.GetContratos: IBizContratosClienteBeneficios;
 begin
   Result := FContratos;

Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas

@@ -25,8 +25,11 @@ type
 
     function Buscar(const ID: Integer): IBizFacturaProveedor;
     function BuscarTodos: IBizFacturaProveedor;
+    function BuscarDelContrato(const ID_CONTRATO: Integer): IBizFacturaProveedor;
     procedure Ver(AFactura : IBizFacturaProveedor);
-    procedure VerTodos(AFacturas: IBizFacturaProveedor);
+    procedure VerTodos(AFacturas: IBizFacturaProveedor;
+      const AVerModal : Boolean = False; const AWindowCaption: String = '';
+      const AHeaderText: String = '');
     function Nuevo (WithInsert: Boolean = True): IBizFacturaProveedor;
     function Anadir(AFactura : IBizFacturaProveedor) : Boolean; overload;
     function AnadirAbono(AFactura : IBizFacturaProveedor) : Boolean;
@@ -104,10 +107,13 @@ type
     function Anadir(AFactura : IBizFacturaProveedor; const IDPedido : Integer): Boolean; overload;
     function Buscar(const ID: Integer): IBizFacturaProveedor;
     function BuscarTodos: IBizFacturaProveedor;
+    function BuscarDelContrato(const ID_CONTRATO: Integer): IBizFacturaProveedor;
 //    function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaProveedor;
     function Nuevo (WithInsert: Boolean = True) : IBizFacturaProveedor;
     procedure Ver(AFactura : IBizFacturaProveedor);
-    procedure VerTodos(AFacturas: IBizFacturaProveedor);
+    procedure VerTodos(AFacturas: IBizFacturaProveedor;
+      const AVerModal : Boolean = False; const AWindowCaption: String = '';
+      const AHeaderText: String = '');
     function Duplicar(AFactura: IBizFacturaProveedor): IBizFacturaProveedor;
     function GenerarAbono(AFactura: IBizFacturaProveedor): IBizFacturaProveedor;
     procedure RecuperarProveedor(AFactura : IBizFacturaProveedor);
@@ -133,7 +139,7 @@ type
 implementation
 
 uses
-  Windows, Controls, cxControls, DB, uEditorRegistryUtils, schFacturasProveedorClient_Intf,
+  Windows, uStringsUtils, Controls, cxControls, DB, uEditorRegistryUtils, schFacturasProveedorClient_Intf,
   uBizContactos, uIEditorFacturasProveedor, uIEditorFacturaProveedor, uFactuGES_App,
   uDataModuleFacturasProveedor, uBizDetallesFacturaProveedor, uControllerDetallesBase,
   uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils, uROTypes,
@@ -450,6 +456,32 @@ begin
   FiltrarEmpresa(Result);  
 end;
 
+function TFacturasProveedorController.BuscarDelContrato(
+  const ID_CONTRATO: Integer): IBizFacturaProveedor;
+var
+  Condicion: TDAWhereExpression;
+begin
+{  ShowHourglassCursor;
+  try
+    Result := BuscarTodos;
+
+    // Filtrar los pedidos pendientes de recepcion
+    with Result.DataTable.DynamicWhere do
+    begin
+      // (ID_CONTRATO_CLIENTE = ID_CONTRATO)
+      Condicion := NewBinaryExpression(NewField('', fld_FacturaProveedorID_CONTRATO_CLIENTE), NewConstant(ID_CONTRATO, datInteger), dboEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+    end;
+  finally
+    HideHourglassCursor;
+  end;
+}
+end;
+
 {REPASARRRRR
 function TFacturasProveedorController.BuscarTodasPendientesComision(IdAgente:Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaProveedor;
 begin
@@ -761,20 +793,35 @@ begin
     end;
 end;
 
-procedure TFacturasProveedorController.VerTodos(AFacturas: IBizFacturaProveedor);
+procedure TFacturasProveedorController.VerTodos(AFacturas: IBizFacturaProveedor;
+      const AVerModal : Boolean = False; const AWindowCaption: String = '';
+      const AHeaderText: String = '');
 var
   AEditor : IEditorFacturasProveedor;
 begin
   AEditor := NIL;
 
   CreateEditor('EditorFacturasProveedor', IEditorFacturasProveedor, AEditor);
-  with AEditor do
+  if Assigned(AEditor) then
-  begin
+    try
-    Controller := Self; //OJO ORDEN MUY IMPORTANTE
+      if not EsCadenaVacia(AWindowCaption) then
-    Facturas := AFacturas;
+        AEditor.WindowCaption := AWindowCaption;
-    MultiSelect := True;
+
-    ShowEmbedded;
+      if not EsCadenaVacia(AHeaderText) then
-  end;
+        AEditor.HeaderText := AHeaderText;
+
+       AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
+       AEditor.Facturas := AFacturas;
+       AEditor.MultiSelect := True;
+       if AVerModal then
+          AEditor.ShowModal
+       else
+          AEditor.ShowEmbedded;
+    finally
+      if AVerModal then
+        AEditor.Release;
+      AEditor := NIL;
+    end;
 end;
 
 function TFacturasProveedorController._Vacio: IBizFacturaProveedor;

Source/Modulos/Facturas de proveedor/Plugin/uPluginFacturasProveedor.pas

@@ -79,7 +79,7 @@ begin
     finally
       HideHourglassCursor;
     end;
-    AFacturasProveedorController.VerTodos(AFacturas); //, True, AText);
+    AFacturasProveedorController.VerTodos(AFacturas, True, AText);
   finally
     AFacturas := NIL;
     AFacturasProveedorController := NIL;

Source/Modulos/Inventario/Views/uViewInventario.dfm

@@ -46,8 +46,9 @@ inherited frViewInventario: TfrViewInventario
           Kind = skSum
           Column = cxGridViewPENDIENTE_RECEPCION
         end>
+      DataController.OnCompare = cxGridViewDataControllerCompare
+      OptionsCustomize.ColumnGrouping = False
       OptionsCustomize.ColumnHidingOnGrouping = False
-      OptionsCustomize.GroupBySorting = True
       object cxGridViewID_ALMACEN: TcxGridDBColumn
         DataBinding.FieldName = 'ID_ALMACEN'
         Visible = False

Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm

@@ -94,23 +94,22 @@ object RptPedidosProveedor: TRptPedidosProveedor
               'VIO,'#10'  PEDIDOS_PROVEEDOR.DESCRIPCION_GENERAL,'#10'  PEDIDOS_PROVEEDO' +
               'R.OBSERVACIONES,'#10'  VENDEDORES.NOMBRE as VENDEDOR,'#10'  VENDEDORES.R' +
               'EFERENCIA as REF_VENDEDOR,'#10'  COALESCE(VENDEDORES.MOVIL_1,'#39#39') || ' +
-              #39' - '#39' || COALESCE(VENDEDORES.MOVIL_2,'#39#39') || '#39' - '#39' || COALESCE(VE' +
+              #39' / '#39' || COALESCE(VENDEDORES.TELEFONO_1,'#39#39') as TELEFONOS_VENDEDO' +
-              'NDEDORES.TELEFONO_1,'#39#39') || '#39' - '#39' || COALESCE(VENDEDORES.TELEFONO' +
+              'R,'#10'  PROVEEDOR.NOMBRE,'#10'  PROVEEDOR.FAX,'#10#10'  CONTRATOS_CLIENTE.ref' +
-              '_2,'#39#39') as TELEFONOS_VENDEDOR,'#10'  PROVEEDOR.NOMBRE,'#10'  PROVEEDOR.FA' +
+              'erencia as referencia_contrato,'#10'  CONTRATOS_CLIENTE.referencia_C' +
-              'X,'#10#10'  CONTRATOS_CLIENTE.referencia as referencia_contrato,'#10'  CON' +
+              'LIENTE,'#10'  CLIENTES.NOMBRE AS NOMBRE_CLIENTE,'#10'  '#10'  PEDIDOS_PROVEE' +
-              'TRATOS_CLIENTE.referencia_CLIENTE,'#10'  CLIENTES.NOMBRE AS NOMBRE_C' +
+              'DOR.ID_ALMACEN,'#10'  '#10'  PEDIDOS_PROVEEDOR.CALLE,'#10'  PEDIDOS_PROVEEDO' +
-              'LIENTE,'#10'  '#10'  PEDIDOS_PROVEEDOR.ID_ALMACEN,'#10'  '#10'  PEDIDOS_PROVEEDO' +
+              'R.POBLACION,'#10'  PEDIDOS_PROVEEDOR.PROVINCIA,'#10'  PEDIDOS_PROVEEDOR.' +
-              'R.CALLE,'#10'  PEDIDOS_PROVEEDOR.POBLACION,'#10'  PEDIDOS_PROVEEDOR.PROV' +
+              'CODIGO_POSTAL,'#10'  PEDIDOS_PROVEEDOR.PERSONA_CONTACTO,'#10'  PEDIDOS_P' +
-              'INCIA,'#10'  PEDIDOS_PROVEEDOR.CODIGO_POSTAL,'#10'  PEDIDOS_PROVEEDOR.PE' +
+              'ROVEEDOR.TELEFONO'#10#10'FROM'#10'  PEDIDOS_PROVEEDOR'#10'  LEFT OUTER JOIN CO' +
-              'RSONA_CONTACTO,'#10'  PEDIDOS_PROVEEDOR.TELEFONO'#10#10'FROM'#10'  PEDIDOS_PRO' +
+              'NTACTOS PROVEEDOR ON (PROVEEDOR .ID = PEDIDOS_PROVEEDOR.ID_PROVE' +
-              'VEEDOR'#10'  LEFT OUTER JOIN CONTACTOS PROVEEDOR ON (PROVEEDOR .ID =' +
+              'EDOR)'#10'  LEFT OUTER JOIN CONTACTOS VENDEDORES ON (VENDEDORES.ID =' +
-              ' PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10'  LEFT OUTER JOIN CONTACTOS VEN' +
+              ' PEDIDOS_PROVEEDOR.ID_VENDEDOR)'#10'  LEFT OUTER JOIN CONTRATOS_CLIE' +
-              'DEDORES ON (VENDEDORES.ID = PEDIDOS_PROVEEDOR.ID_VENDEDOR)'#10'  LEF' +
+              'NTE ON (CONTRATOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_CONTRATO_CLI' +
-              'T OUTER JOIN CONTRATOS_CLIENTE ON (CONTRATOS_CLIENTE.ID = PEDIDO' +
+              'ENTE)'#10'  LEFT OUTER JOIN CONTACTOS CLIENTES ON (CLIENTES.ID = CON' +
-              'S_PROVEEDOR.ID_CONTRATO_CLIENTE)'#10'  LEFT OUTER JOIN CONTACTOS CLI' +
+              'TRATOS_CLIENTE.ID_CLIENTE)'#10'  LEFT OUTER JOIN ALMACENES ON (ALMAC' +
-              'ENTES ON (CLIENTES.ID = CONTRATOS_CLIENTE.ID_CLIENTE)'#10'  LEFT OUT' +
+              'ENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)'#10'WHERE PEDIDOS_PROVEEDOR.' +
-              'ER JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACE' +
+              'ID = :ID'#10
-              'N)'#10'WHERE PEDIDOS_PROVEEDOR.ID = :ID'#10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -263,7 +262,7 @@ object RptPedidosProveedor: TRptPedidosProveedor
           item
             Name = 'TELEFONOS_VENDEDOR'
             DataType = datString
-            Size = 109
+            Size = 53
           end
           item
             Name = 'NOMBRE'

Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas

@@ -130,11 +130,13 @@ begin
   if Assigned(FPedido) and Assigned(FAlmacenes) then
   begin
     FPedido.Edit;
-    FPedido.CALLE := FAlmacenes.CALLE;
+    FPedido.CALLE := FAlmacenes.NOMBRE + #10#13 + FAlmacenes.CALLE;
     FPedido.POBLACION := FAlmacenes.POBLACION;
     FPedido.POBLACION := FAlmacenes.POBLACION;
     FPedido.PROVINCIA := FAlmacenes.PROVINCIA;
     FPedido.CODIGO_POSTAL := FAlmacenes.CODIGO_POSTAL;
+    FPedido.PERSONA_CONTACTO := FAlmacenes.PERSONA_CONTACTO;
+    FPedido.TELEFONO := FAlmacenes.TELEFONO;
     RefrescarDireccion;
   end;
 end;
@@ -144,11 +146,13 @@ begin
   if Assigned(FPedido) and Assigned(FDireccionesCliente) then
   begin
     FPedido.Edit;
-    FPedido.CALLE := FDireccionesCliente.CALLE;
+    FPedido.CALLE :=     FDireccionesCliente.NOMBRE + #10#13 + FDireccionesCliente.CALLE;
     FPedido.POBLACION := FDireccionesCliente.POBLACION;
     FPedido.POBLACION := FDireccionesCliente.POBLACION;
     FPedido.PROVINCIA := FDireccionesCliente.PROVINCIA;
     FPedido.CODIGO_POSTAL := FDireccionesCliente.CODIGO_POSTAL;
+    FPedido.PERSONA_CONTACTO := FDireccionesCliente.PERSONA_CONTACTO;
+    FPedido.TELEFONO := FDireccionesCliente.TELEFONO;
     RefrescarDireccion;
   end;
 end;

Source/Servicios/FactuGES.RODL

@@ -390,6 +390,8 @@
 </Parameter>
 <Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
 </Parameter>
+<Parameter Name="VerPrecios" DataType="Boolean" Flag="In" >
+</Parameter>
 </Parameters>
 </Operation>
 <Operation Name="GenerarInformeEtiquetas" UID="{260CD213-F125-422B-9BD1-401729460DF0}">

Source/Servicios/FactuGES_Intf.pas

@@ -598,7 +598,7 @@ type
   { IsrvAlbaranesCliente }
   IsrvAlbaranesCliente = interface(IDataAbstractService)
     ['{6E910718-9AB0-47BB-9875-B0DE66A68D7A}']
-    function GenerarInforme(const ListaID: TIntegerArray): Binary;
+    function GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean): Binary;
     function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
   end;
 
@@ -612,7 +612,7 @@ type
   protected
     function __GetInterfaceName:string; override;
 
-    function GenerarInforme(const ListaID: TIntegerArray): Binary;
+    function GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean): Binary;
     function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
   end;
 
@@ -1992,12 +1992,13 @@ begin
   result := 'srvAlbaranesCliente';
 end;
 
-function TsrvAlbaranesCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray): Binary;
+function TsrvAlbaranesCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean): Binary;
 begin
   try
     result := nil;
     __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
     __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+    __Message.Write('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);

Source/Servicios/FactuGES_Invk.pas

@@ -1172,9 +1172,10 @@ begin
 end;
 
 procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerarInforme(const ListaID: TIntegerArray): Binary; }
+{ function GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean): Binary; }
 var
   ListaID: FactuGES_Intf.TIntegerArray;
+  VerPrecios: Boolean;
   lResult: Binary;
   __lObjectDisposer: TROObjectDisposer;
 begin
@@ -1182,8 +1183,9 @@ begin
   lResult := nil;
   try
     __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+    __Message.Read('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
 
-    lResult := (__Instance as IsrvAlbaranesCliente).GenerarInforme(ListaID);
+    lResult := (__Instance as IsrvAlbaranesCliente).GenerarInforme(ListaID, VerPrecios);
 
     __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'GenerarInformeResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);

Source/Servidor/FactuGES_Server.dpr

@@ -117,8 +117,6 @@ uses
   schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
   schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
   schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
-  schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
-  schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
   uRptListadosContactos_Server in '..\Modulos\Contactos\Reports\uRptListadosContactos_Server.pas' {RptListadosContactos: TDataModule},
   uRptPedidosProveedor_Server in '..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas' {RptPedidosProveedor: TDataModule},
   schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
@@ -138,7 +136,9 @@ uses
   schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
   schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
   schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
-  schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
+  schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
+  schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
+  schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.dproj

@@ -1,298 +1,299 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <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">9</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.9.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.9.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 01 de abril de 2019 16:07</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">9</VersionInfo><VersionInfo Name="Release">2</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.9.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.9.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 17 de mayo de 2019 18:40</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
+      
-					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+      <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
-	</ProjectExtensions>
+    </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
-	<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
+  </ProjectExtensions>
-	<ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
-		<DelphiCompile Include="FactuGES_Server.dpr">
+  <ItemGroup>
-			<MainSource>MainSource</MainSource>
+    <DelphiCompile Include="FactuGES_Server.dpr">
-		</DelphiCompile>
+      <MainSource>MainSource</MainSource>
-		<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
+    </DelphiCompile>
-		<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
-		<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
+    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
-		<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
+    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
-			<Form>srvEjercicios</Form>
+    <DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvEjercicios</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
-		<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
-			<Form>srvEmpresas</Form>
+    <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
-			<DesignClass>TDARemoteService</DesignClass>
+      <Form>srvEmpresas</Form>
-		</DCCReference>
+      <DesignClass>TDARemoteService</DesignClass>
-		<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
+    </DCCReference>
-			<Form>srvProvinciasPoblaciones</Form>
+    <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
-			<DesignClass>TRORemoteDataModule</DesignClass>
+      <Form>srvProvinciasPoblaciones</Form>
-		</DCCReference>
+      <DesignClass>TRORemoteDataModule</DesignClass>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
-		<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
-		<DCCReference Include="..\Base\schBase_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
-		<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
+    <DCCReference Include="..\Base\schBase_Intf.pas" />
-		<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
+    <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" />
-			<Form>srvAlbaranesCliente</Form>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvAlbaranesCliente</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
-			<Form>srvAlbaranesProveedor</Form>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvAlbaranesProveedor</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
-			<Form>srvAlmacenes</Form>
+    <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
-			<DesignClass>TDARemoteService</DesignClass>
+      <Form>srvAlmacenes</Form>
-		</DCCReference>
+      <DesignClass>TDARemoteService</DesignClass>
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
+    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
-		<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
+    <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
+    <DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
-			<Form>RptComisiones</Form>
+    <DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>RptComisiones</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
+    </DCCReference>
-			<Form>srvComisiones</Form>
+    <DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvComisiones</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas"/>
+    <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
+    <DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas" />
-			<Form>srvContabilidad</Form>
+    <DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvContabilidad</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Reports\uRptListadosContactos_Server.pas">
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
-			<Form>RptListadosContactos</Form>
+    <DCCReference Include="..\Modulos\Contactos\Reports\uRptListadosContactos_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>RptListadosContactos</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
+    </DCCReference>
-			<Form>srvContactos</Form>
+    <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
-			<DesignClass>TDARemoteService</DesignClass>
+      <Form>srvContactos</Form>
-		</DCCReference>
+      <DesignClass>TDARemoteService</DesignClass>
-		<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
+    <DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas" />
-			<Form>RptContratosCliente</Form>
+    <DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
-		</DCCReference>
+      <Form>RptContratosCliente</Form>
-		<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
+    </DCCReference>
-			<Form>srvContratosCliente</Form>
+    <DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvContratosCliente</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
-			<Form>RptFacturasCliente</Form>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>RptFacturasCliente</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
+    </DCCReference>
-			<Form>srvFacturasCliente</Form>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvFacturasCliente</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
-			<Form>RptFacturasProveedor</Form>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>RptFacturasProveedor</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
+    </DCCReference>
-			<Form>srvFacturasProveedor</Form>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvFacturasProveedor</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
-		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
+    <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
-			<Form>srvGestorDocumentos</Form>
+    <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvGestorDocumentos</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
+    </DCCReference>
-			<Form>srvGestorInformes</Form>
+    <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvGestorInformes</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\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
+    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
-			<Form>srvHistoricoMovimientos</Form>
+    <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvHistoricoMovimientos</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
+    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
-			<Form>srvInventario</Form>
+    <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvInventario</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
-			<Form>RptPedidosProveedor</Form>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>RptPedidosProveedor</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
+    </DCCReference>
-			<Form>srvPedidosProveedor</Form>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvPedidosProveedor</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
-			<Form>RptPresupuestosCliente</Form>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
-		</DCCReference>
+      <Form>RptPresupuestosCliente</Form>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
+    </DCCReference>
-			<Form>srvPresupuestosCliente</Form>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvPresupuestosCliente</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
-		<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
-			<Form>RptRecibosCliente</Form>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>RptRecibosCliente</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
+    </DCCReference>
-			<Form>srvRecibosCliente</Form>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvRecibosCliente</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
-			<Form>RptRecibosProveedor</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 proveedor\Servidor\srvRecibosProveedor_Impl.pas">
+    </DCCReference>
-			<Form>srvRecibosProveedor</Form>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvRecibosProveedor</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
+    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
-			<Form>srvReferencias</Form>
+    <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvReferencias</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
-			<Form>srvRemesasCliente</Form>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvRemesasCliente</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
-			<Form>srvRemesasProveedor</Form>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvRemesasProveedor</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
-		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
+    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
-			<Form>srvUnidadesMedida</Form>
+    <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvUnidadesMedida</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
+    <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
-		<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
+    <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
-			<Form>srvConfiguracion</Form>
+    <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvConfiguracion</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="Configuracion\uConexionBD.pas">
+    </DCCReference>
-			<Form>frConexionBD</Form>
+    <DCCReference Include="Configuracion\uConexionBD.pas">
-			<DesignClass>TFrame</DesignClass>
+      <Form>frConexionBD</Form>
-		</DCCReference>
+      <DesignClass>TFrame</DesignClass>
-		<DCCReference Include="Configuracion\uConfGeneral.pas">
+    </DCCReference>
-			<Form>frConfGeneral</Form>
+    <DCCReference Include="Configuracion\uConfGeneral.pas">
-			<DesignClass>TFrame</DesignClass>
+      <Form>frConfGeneral</Form>
-		</DCCReference>
+      <DesignClass>TFrame</DesignClass>
-		<DCCReference Include="Configuracion\uConfiguracion.pas">
+    </DCCReference>
-			<Form>fConfiguracion</Form>
+    <DCCReference Include="Configuracion\uConfiguracion.pas">
-			<DesignClass>TForm</DesignClass>
+      <Form>fConfiguracion</Form>
-		</DCCReference>
+      <DesignClass>TForm</DesignClass>
-		<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
+    </DCCReference>
-			<Form>FrameConfiguracion</Form>
+    <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
-			<DesignClass>TFrame</DesignClass>
+      <Form>FrameConfiguracion</Form>
-		</DCCReference>
+      <DesignClass>TFrame</DesignClass>
-		<DCCReference Include="srvLogin_Impl.pas">
+    </DCCReference>
-			<Form>srvLogin</Form>
+    <DCCReference Include="srvLogin_Impl.pas">
-			<DesignClass>TDARemoteService</DesignClass>
+      <Form>srvLogin</Form>
-		</DCCReference>
+      <DesignClass>TDARemoteService</DesignClass>
-		<DCCReference Include="uAcercaDe.pas">
+    </DCCReference>
-			<Form>fAcercaDe</Form>
+    <DCCReference Include="uAcercaDe.pas">
-		</DCCReference>
+      <Form>fAcercaDe</Form>
-		<DCCReference Include="uDataModuleServer.pas">
+    </DCCReference>
-			<Form>dmServer</Form>
+    <DCCReference Include="uDataModuleServer.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>dmServer</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="uServerMainForm.pas">
+    </DCCReference>
-			<Form>fServerForm</Form>
+    <DCCReference Include="uServerMainForm.pas">
-		</DCCReference>
+      <Form>fServerForm</Form>
-		<DCCReference Include="Utiles\RegExpr.pas"/>
+    </DCCReference>
-		<DCCReference Include="Utiles\uBusinessUtils.pas"/>
+    <DCCReference Include="Utiles\RegExpr.pas" />
-		<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
+    <DCCReference Include="Utiles\uBusinessUtils.pas" />
-		<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
+    <DCCReference Include="Utiles\uDatabaseUtils.pas" />
-		<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
+    <DCCReference Include="Utiles\uReferenciasUtils.pas" />
-		<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
+    <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
-		<DCCReference Include="Utiles\uServerAppUtils.pas"/>
+    <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
-		<DCCReference Include="Utiles\uSesionesUtils.pas"/>
+    <DCCReference Include="Utiles\uServerAppUtils.pas" />
-	</ItemGroup>
+    <DCCReference Include="Utiles\uSesionesUtils.pas" />
+  </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]

Source/Servidor/FactuGES_Server.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
 1 VERSIONINFO
-FILEVERSION 2,9,0,0
+FILEVERSION 2,9,1,0
-PRODUCTVERSION 2,9,0,0
+PRODUCTVERSION 2,9,1,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "2.9.0.0\0"
+              VALUE "FileVersion", "2.9.1.0\0"
               VALUE "ProductName", "FactuGES (Servidor)\0"
-              VALUE "ProductVersion", "2.9.0.0\0"
+              VALUE "ProductVersion", "2.9.1.0\0"
-              VALUE "CompileDate", "lunes, 06 de mayo de 2019 16:02\0"
+              VALUE "CompileDate", "viernes, 17 de mayo de 2019 18:40\0"
          END
     END
     BLOCK "VarFileInfo"