Ticket #331 -> Poner un campo nuevo en presupuestos y contratos (tipo contrato) para decir si es cocina, armario... (SIN TERMINAR)

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

Database/scripts/factuges.sql

@@ -1236,7 +1236,8 @@ CREATE TABLE PRESUPUESTOS_CLIENTE (
     RE                    TIPO_PORCENTAJE,
     IMPORTE_RE            TIPO_IMPORTE,
     ID_CONTRATO           TIPO_ID,    
-    NO_VALORADO           TIPO_BOOLEANO
+    NO_VALORADO           TIPO_BOOLEANO,
+    TIPO_PRESUPUESTO			VARCHAR(255)
 );
 
 CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES (
@@ -3628,7 +3629,8 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE(
     VENDEDOR,
     ID_CONTRATO,
     REF_CONTRATO,
-    NO_VALORADO)
+    NO_VALORADO,
+    TIPO_PRESUPUESTO)
 AS
 SELECT
   PRESUPUESTOS_CLIENTE.ID,
@@ -3671,7 +3673,8 @@ SELECT
   CONTACTOS2.NOMBRE AS VENDEDOR,
   PRESUPUESTOS_CLIENTE.ID_CONTRATO,
   CONTRATOS_CLIENTE.REFERENCIA,
-  PRESUPUESTOS_CLIENTE.NO_VALORADO
+  PRESUPUESTOS_CLIENTE.NO_VALORADO,
+  PRESUPUESTOS_CLIENTE.TIPO_PRESUPUESTO
 
 FROM
   PRESUPUESTOS_CLIENTE

Source/ApplicationBase/ApplicationBase.dproj

@@ -46,18 +46,6 @@
     <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">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SQLiteDriver_D11.bpl">RemObjects Data Abstract - SQLite Driver</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
@@ -68,10 +56,29 @@
     <DelphiCompile Include="ApplicationBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="adortl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\adortl.dcp" />
-    <DCCReference Include="Base.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\Base.dcp" />
-    <DCCReference Include="ccpackD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\ccpackD11.dcp" />
-    <DCCReference Include="cfpack_d11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cfpack_d11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\designide.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dsnap.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxNavBarD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxThemeD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\GUIBase.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\GUISDK_D11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvJansD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclactnband.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclx.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\xmlrtl.dcp" />
     <DCCReference Include="Configuracion\Controller\uConfiguracionController.pas" />
     <DCCReference Include="Configuracion\Controller\Views\uIViewConfiguracionBase.pas" />
     <DCCReference Include="Configuracion\Views\uEditorConfiguracion.pas">
@@ -85,14 +92,6 @@
       <Form>frViewConfiguracionGeneral</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
-    <DCCReference Include="cxLibraryD11.dcp" />
-    <DCCReference Include="DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="dbrtl.dcp" />
-    <DCCReference Include="designide.dcp" />
-    <DCCReference Include="dsnap.dcp" />
-    <DCCReference Include="dxGDIPlusD11.dcp" />
-    <DCCReference Include="dxNavBarD11.dcp" />
-    <DCCReference Include="dxThemeD11.dcp" />
     <DCCReference Include="Ejercicios\Controller\uEjerciciosController.pas" />
     <DCCReference Include="Ejercicios\Controller\View\uIEditorEjercicio.pas" />
     <DCCReference Include="Ejercicios\Controller\View\uIEditorEjercicios.pas" />
@@ -170,13 +169,8 @@
       <Form>frViewTiendas</Form>
       <DesignClass>TCustomView</DesignClass>
     </DCCReference>
-    <DCCReference Include="GUIBase.dcp" />
-    <DCCReference Include="GUISDK_D11R.dcp" />
-    <DCCReference Include="JvJansD11R.dcp" />
     <DCCReference Include="ProvinciasPoblaciones\Controller\uProvinciasPoblacionesController.pas" />
     <DCCReference Include="ProvinciasPoblaciones\Data\uDataModuleProvinciasPoblaciones.pas" />
-    <DCCReference Include="RemObjects_Core_D11.dcp" />
-    <DCCReference Include="rtl.dcp" />
     <DCCReference Include="uFactuGES_App.pas" />
     <DCCReference Include="Usuarios\Controller\uUsuariosController.pas" />
     <DCCReference Include="Usuarios\Controller\View\uIEditorLogin.pas" />
@@ -233,12 +227,6 @@
       <Form>frUsuarios</Form>
       <DesignClass>TCustomView</DesignClass>
     </DCCReference>
-    <DCCReference Include="vcl.dcp" />
-    <DCCReference Include="vclactnband.dcp" />
-    <DCCReference Include="vcldb.dcp" />
-    <DCCReference Include="vcljpg.dcp" />
-    <DCCReference Include="vclx.dcp" />
-    <DCCReference Include="xmlrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/Base/Base.dproj

@@ -58,55 +58,55 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\adortl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\adortl.dcp" />
-    <DCCReference Include="..\cxDataD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxDataD11.dcp" />
-    <DCCReference Include="..\cxEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxEditorsD11.dcp" />
-    <DCCReference Include="..\cxExtEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\cxGridD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxGridD11.dcp" />
-    <DCCReference Include="..\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxLibraryD11.dcp" />
-    <DCCReference Include="..\cxPageControlD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxPageControlD11.dcp" />
-    <DCCReference Include="..\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dbrtl.dcp" />
-    <DCCReference Include="..\dclIndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dclIndyCore.dcp" />
-    <DCCReference Include="..\designide.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\designide.dcp" />
-    <DCCReference Include="..\dsnap.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dsnap.dcp" />
-    <DCCReference Include="..\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\dxPSCoreD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\dxThemeD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxThemeD11.dcp" />
-    <DCCReference Include="..\GUISDK_D11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\GUISDK_D11R.dcp" />
-    <DCCReference Include="..\IndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\IndyCore.dcp" />
-    <DCCReference Include="..\IndyProtocols.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\IndyProtocols.dcp" />
-    <DCCReference Include="..\IndySystem.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\IndySystem.dcp" />
-    <DCCReference Include="..\Jcl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\Jcl.dcp" />
-    <DCCReference Include="..\JclVcl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JclVcl.dcp" />
-    <DCCReference Include="..\JSDialog100.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JSDialog100.dcp" />
-    <DCCReference Include="..\JvCmpD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCmpD11R.dcp" />
-    <DCCReference Include="..\JvCoreD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCoreD11R.dcp" />
-    <DCCReference Include="..\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\JvDlgsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\JvMMD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvMMD11R.dcp" />
-    <DCCReference Include="..\JvNetD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvNetD11R.dcp" />
-    <DCCReference Include="..\JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\JvSystemD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvSystemD11R.dcp" />
-    <DCCReference Include="..\pckMD5.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\pckMD5.dcp" />
-    <DCCReference Include="..\pckUCDataConnector.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\pckUserControl_RT.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\PluginSDK_D11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PluginSDK_D11R.dcp" />
-    <DCCReference Include="..\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PngComponentsD10.dcp" />
-    <DCCReference Include="..\PNG_D10.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PNG_D10.dcp" />
-    <DCCReference Include="..\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\TB2k_D10.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\tbx_d10.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclactnband.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\VclSmp.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclx.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
-    <DCCReference Include="..\TB2k_D10.dcp" />
-    <DCCReference Include="..\tbx_d10.dcp" />
-    <DCCReference Include="..\vcl.dcp" />
-    <DCCReference Include="..\vclactnband.dcp" />
-    <DCCReference Include="..\vcldb.dcp" />
-    <DCCReference Include="..\vcljpg.dcp" />
-    <DCCReference Include="..\VclSmp.dcp" />
-    <DCCReference Include="..\vclx.dcp" />
-    <DCCReference Include="..\xmlrtl.dcp" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
       <DesignClass>TForm</DesignClass>

Source/GUIBase/GUIBase.dproj

@@ -58,34 +58,34 @@
     <DelphiCompile Include="GUIBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Servidor\Base.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\Base.dcp" />
-    <DCCReference Include="..\Servidor\ccpackD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\ccpackD11.dcp" />
-    <DCCReference Include="..\Servidor\cxDataD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxDataD11.dcp" />
-    <DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Servidor\cxExportD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxExportD11.dcp" />
-    <DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Servidor\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dbrtl.dcp" />
-    <DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Servidor\dxLayoutControlD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\Servidor\dxPScxCommonD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxPScxCommonD11.dcp" />
-    <DCCReference Include="..\Servidor\dxPScxGrid6LnkD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxPScxGrid6LnkD11.dcp" />
-    <DCCReference Include="..\Servidor\dxThemeD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxThemeD11.dcp" />
-    <DCCReference Include="..\Servidor\frx11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\frx11.dcp" />
-    <DCCReference Include="..\Servidor\frxe11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\frxe11.dcp" />
-    <DCCReference Include="..\Servidor\fs11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\fs11.dcp" />
-    <DCCReference Include="..\Servidor\JvAppFrmD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvAppFrmD11R.dcp" />
-    <DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Servidor\JvGlobusD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvGlobusD11R.dcp" />
-    <DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Servidor\PNG_D10.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PNG_D10.dcp" />
-    <DCCReference Include="..\Servidor\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\rtl.dcp" />
-    <DCCReference Include="..\Servidor\tb2k_d10.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\tb2k_d10.dcp" />
-    <DCCReference Include="..\Servidor\tbx_d10.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\tbx_d10.dcp" />
-    <DCCReference Include="..\Servidor\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcl.dcp" />
-    <DCCReference Include="..\Servidor\vclactnband.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclactnband.dcp" />
-    <DCCReference Include="..\Servidor\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcldb.dcp" />
-    <DCCReference Include="..\Servidor\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcljpg.dcp" />
-    <DCCReference Include="..\Servidor\vclx.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclx.dcp" />
     <DCCReference Include="uDialogBase.pas">
       <Form>fDialogBase</Form>
     </DCCReference>

Source/GUIBase/uEditorGridBase.pas

@@ -241,7 +241,7 @@ begin
   if Assigned(ViewGrid) then
   begin
     ViewGrid.ShowEmbedded(Self);
-    ViewGrid.RestoreFromIniFile;
+    //ViewGrid.RestoreFromIniFile;
   end;
 
   cbxListaAnos.ItemIndex := 0;  
@@ -351,8 +351,8 @@ end;
 procedure TfEditorGridBase.CustomEditorDestroy(Sender: TObject);
 begin
   inherited;
-  if Assigned(ViewGrid) then
+{  if Assigned(ViewGrid) then
-    ViewGrid.StoreToIniFile;
+    ViewGrid.StoreToIniFile;}
 end;
 
 procedure TfEditorGridBase.actAnchoAutoExecute(Sender: TObject);

Source/Modulos/Articulos/Controller/Articulos_controller.dproj

@@ -42,73 +42,30 @@
     <DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
     <DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
     <DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
-    <DCC_Define>DEBUG</DCC_Define>
   </PropertyGroup>
   <ProjectExtensions>
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+<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">Articulos_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
-      <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">Articulos_controller.dpk</Source>
-    </Source>
-  </Delphi.Personality> </BorlandProject></BorlandProject>
   </ProjectExtensions>
-  <ItemGroup />
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="Articulos_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="Articulos_data.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\Articulos_data.dcp" />
-    <DCCReference Include="Articulos_model.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\Articulos_model.dcp" />
-    <DCCReference Include="Contactos_controller.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\Contactos_controller.dcp" />
-    <DCCReference Include="Contactos_model.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\Contactos_model.dcp" />
-    <DCCReference Include="GUIBase.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\GUIBase.dcp" />
     <DCCReference Include="uArticulosController.pas" />
     <DCCReference Include="uControllerDetallesArticulos.pas" />
     <DCCReference Include="View\uIEditorArticulo.pas" />
     <DCCReference Include="View\uIEditorArticulos.pas" />
     <DCCReference Include="View\uIEditorElegirArticulos.pas" />
   </ItemGroup>
-  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
 </Project>
-
 <!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=6006

Source/Modulos/Articulos/Data/Articulos_data.dproj

@@ -42,67 +42,24 @@
     <DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
     <DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
     <DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
-    <DCC_Define>DEBUG</DCC_Define>
   </PropertyGroup>
   <ProjectExtensions>
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+<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">Articulos_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
-      <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">Articulos_data.dpk</Source>
-    </Source>
-  </Delphi.Personality> </BorlandProject></BorlandProject>
   </ProjectExtensions>
-  <ItemGroup />
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="Articulos_data.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="Articulos_model.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\Articulos_model.dcp" />
     <DCCReference Include="uDataModuleArticulos.pas">
       <Form>DataModuleArticulos</Form>
     </DCCReference>
   </ItemGroup>
-  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
 </Project>
-
 <!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=6006

Source/Modulos/Articulos/Views/Articulos_view.dproj

@@ -54,11 +54,11 @@
     <DelphiCompile Include="Articulos_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Articulos_controller.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\Articulos_controller.dcp" />
-    <DCCReference Include="..\Articulos_model.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\Articulos_model.dcp" />
-    <DCCReference Include="..\Contactos_view.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\Contactos_view.dcp" />
-    <DCCReference Include="..\Familias_controller.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\Familias_controller.dcp" />
-    <DCCReference Include="..\GUIBase.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\GUIBase.dcp" />
     <DCCReference Include="uArticulosViewRegister.pas" />
     <DCCReference Include="uEditorArticulo.pas">
       <Form>fEditorArticulo</Form>

Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dproj

@@ -49,20 +49,14 @@
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
     <DCCReference Include="..\adortl.dcp" />
-    <DCCReference Include="..\ApplicationBase.dcp" />
-    <DCCReference Include="..\Base.dcp" />
     <DCCReference Include="..\ccpackD11.dcp" />
     <DCCReference Include="..\cfpack_d11.dcp" />
-    <DCCReference Include="..\Contabilidad_data.dcp" />
-    <DCCReference Include="..\Contabilidad_model.dcp" />
-    <DCCReference Include="..\Contactos_model.dcp" />
     <DCCReference Include="..\cxLibraryD11.dcp" />
     <DCCReference Include="..\DataAbstract_Core_D11.dcp" />
     <DCCReference Include="..\dbrtl.dcp" />
     <DCCReference Include="..\designide.dcp" />
     <DCCReference Include="..\dsnap.dcp" />
     <DCCReference Include="..\dxThemeD11.dcp" />
-    <DCCReference Include="..\GUIBase.dcp" />
     <DCCReference Include="..\GUISDK_D11.dcp" />
     <DCCReference Include="..\RemObjects_Core_D11.dcp" />
     <DCCReference Include="..\rtl.dcp" />
@@ -71,6 +65,12 @@
     <DCCReference Include="..\vcldb.dcp" />
     <DCCReference Include="..\vclx.dcp" />
     <DCCReference Include="..\xmlrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contabilidad_data.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contabilidad_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
     <DCCReference Include="uApuntesController.pas" />
     <DCCReference Include="uAsientosController.pas" />
     <DCCReference Include="uBalancesController.pas" />

Source/Modulos/Contabilidad/Data/Contabilidad_data.dproj

@@ -48,20 +48,20 @@
     <DelphiCompile Include="Contabilidad_data.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
-    <DCCReference Include="..\ApplicationBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
-    <DCCReference Include="..\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
-    <DCCReference Include="..\Contabilidad_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contabilidad_model.dcp" />
-    <DCCReference Include="..\cxLibraryD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
-    <DCCReference Include="..\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
-    <DCCReference Include="..\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
-    <DCCReference Include="..\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
-    <DCCReference Include="..\GUIBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
-    <DCCReference Include="..\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
-    <DCCReference Include="..\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
-    <DCCReference Include="..\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
     <DCCReference Include="uDataModuleContabilidad.pas">
       <Form>DataModuleContabilidad</Form>
       <DesignClass>TDAClientDataModule</DesignClass>

Source/Modulos/Contabilidad/Model/Contabilidad_model.dproj

@@ -40,23 +40,25 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Contabilidad_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Contabilidad_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="Contabilidad_model.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
-    <DCCReference Include="ApplicationBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
-    <DCCReference Include="Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
-    <DCCReference Include="DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
     <DCCReference Include="Data\uIDataModuleContabilidad.pas" />
-    <DCCReference Include="dbrtl.dcp" />
-    <DCCReference Include="dsnap.dcp" />
-    <DCCReference Include="GUIBase.dcp" />
-    <DCCReference Include="RemObjects_Core_D11.dcp" />
-    <DCCReference Include="rtl.dcp" />
     <DCCReference Include="schContabilidadClient_Intf.pas" />
     <DCCReference Include="uBizApuntes.pas" />
     <DCCReference Include="uBizAsientos.pas" />
@@ -66,8 +68,6 @@
     <DCCReference Include="uBizDiario.pas" />
     <DCCReference Include="uBizEpigrafes.pas" />
     <DCCReference Include="uBizSubCuentas.pas" />
-    <DCCReference Include="vcl.dcp" />
-    <DCCReference Include="vcldb.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/Modulos/Contactos/Controller/Contactos_controller.dproj

@@ -43,15 +43,6 @@
     <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">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
-      
-      
-      
-      
-      
-      
-      
-      
       <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclDebugExpert100.bpl">JCL Debug IDE extension</Excluded_Packages>
       <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclProjectAnalysisExpert100.bpl">JCL Project Analyzer</Excluded_Packages>
       <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclFavoriteFoldersExpert100.bpl">JCL Open and Save IDE dialogs with favorite folders</Excluded_Packages>
@@ -62,19 +53,19 @@
     <DelphiCompile Include="Contactos_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\ApplicationBase.dcp" />
-    <DCCReference Include="..\..\..\Servidor\Base.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\Base.dcp" />
-    <DCCReference Include="..\..\..\Servidor\Contabilidad_controller.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\Contabilidad_controller.dcp" />
-    <DCCReference Include="..\..\..\Servidor\Contactos_data.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\Contactos_data.dcp" />
-    <DCCReference Include="..\..\..\Servidor\Contactos_model.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\Contactos_model.dcp" />
-    <DCCReference Include="..\..\..\Servidor\designide.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\designide.dcp" />
-    <DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\GUIBase.dcp" />
-    <DCCReference Include="..\..\..\Servidor\GUISDK_D11R.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\GUISDK_D11R.dcp" />
-    <DCCReference Include="..\..\..\Servidor\rtl.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\rtl.dcp" />
-    <DCCReference Include="..\..\..\Servidor\vcl.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\vcl.dcp" />
-    <DCCReference Include="..\..\..\Servidor\vclactnband.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\vclactnband.dcp" />
-    <DCCReference Include="..\..\..\Servidor\vclx.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\vclx.dcp" />
-    <DCCReference Include="..\..\..\Servidor\xmlrtl.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\xmlrtl.dcp" />
     <DCCReference Include="uClientesController.pas" />
     <DCCReference Include="uContactosController.pas" />
     <DCCReference Include="uDireccionesContactoController.pas" />

Source/Modulos/Contactos/Data/Contactos_data.dproj

@@ -49,12 +49,12 @@
     <DelphiCompile Include="Contactos_data.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Plugin\ApplicationBase.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\ApplicationBase.dcp" />
-    <DCCReference Include="..\Plugin\Base.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\Base.dcp" />
-    <DCCReference Include="..\Plugin\Contactos_model.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\Contactos_model.dcp" />
-    <DCCReference Include="..\Plugin\GUIBase.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\GUIBase.dcp" />
-    <DCCReference Include="..\Plugin\rtl.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\rtl.dcp" />
-    <DCCReference Include="..\Plugin\vcl.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\vcl.dcp" />
     <DCCReference Include="uDataModuleClientes.pas">
       <Form>DataModuleClientes</Form>
       <DesignClass>TDAClientDataModule</DesignClass>

Source/Modulos/Contactos/Model/Contactos_model.dproj

@@ -49,27 +49,29 @@
     <DelphiCompile Include="Contactos_model.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\adortl.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\ApplicationBase.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\Base.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\dbrtl.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\dsnap.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\FormasPago_controller.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\FormasPago_model.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\GUIBase.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\rtl.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\TiposIVA_controller.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\TiposIVA_model.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\vcl.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\vcldb.dcp" />
     <DCCReference Include="..\Utiles\uRegimenIVAUtils.pas" />
-    <DCCReference Include="adortl.dcp" />
-    <DCCReference Include="ApplicationBase.dcp" />
-    <DCCReference Include="Base.dcp" />
-    <DCCReference Include="DataAbstract_Core_D11.dcp" />
     <DCCReference Include="Data\uIDataModuleClientes.pas" />
     <DCCReference Include="Data\uIDataModuleContactos.pas" />
     <DCCReference Include="Data\uIDataModuleEtiquetasContactosReport.pas" />
     <DCCReference Include="Data\uIDataModuleProveedores.pas" />
     <DCCReference Include="Data\uIDataModuleVendedores.pas" />
-    <DCCReference Include="dbrtl.dcp" />
-    <DCCReference Include="dsnap.dcp" />
-    <DCCReference Include="FormasPago_controller.dcp" />
-    <DCCReference Include="FormasPago_model.dcp" />
-    <DCCReference Include="GUIBase.dcp" />
-    <DCCReference Include="RemObjects_Core_D11.dcp" />
-    <DCCReference Include="rtl.dcp" />
     <DCCReference Include="schContactosClient_Intf.pas" />
     <DCCReference Include="schContactosServer_Intf.pas" />
-    <DCCReference Include="TiposIVA_controller.dcp" />
-    <DCCReference Include="TiposIVA_model.dcp" />
     <DCCReference Include="uBizClientesDescuentos.pas" />
     <DCCReference Include="uBizContactos.pas" />
     <DCCReference Include="uBizContactosDatosBancarios.pas" />
@@ -79,8 +81,6 @@
     <DCCReference Include="uBizGruposProveedor.pas" />
     <DCCReference Include="uBizProcedenciasCliente.pas" />
     <DCCReference Include="uBizSubCuentasContacto.pas" />
-    <DCCReference Include="vcl.dcp" />
-    <DCCReference Include="vcldb.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/Modulos/Contactos/Views/Contactos_view.dproj

@@ -47,34 +47,40 @@
     <DelphiCompile Include="Contactos_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="adortl.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\adortl.dcp" />
-    <DCCReference Include="ApplicationBase.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\ApplicationBase.dcp" />
-    <DCCReference Include="Base.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\Base.dcp" />
-    <DCCReference Include="bdertl.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\bdertl.dcp" />
-    <DCCReference Include="Contactos_controller.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\Contactos_controller.dcp" />
-    <DCCReference Include="Contactos_model.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\Contactos_model.dcp" />
-    <DCCReference Include="cxDataD11.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\cxDataD11.dcp" />
-    <DCCReference Include="cxEditorsD11.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\cxEditorsD11.dcp" />
-    <DCCReference Include="cxLibraryD11.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\cxLibraryD11.dcp" />
-    <DCCReference Include="DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="dbrtl.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\dbrtl.dcp" />
-    <DCCReference Include="designide.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\designide.dcp" />
-    <DCCReference Include="dsnap.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\dsnap.dcp" />
-    <DCCReference Include="dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\dxGDIPlusD11.dcp" />
-    <DCCReference Include="dxThemeD11.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\dxThemeD11.dcp" />
-    <DCCReference Include="FormasPago_controller.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\FormasPago_controller.dcp" />
-    <DCCReference Include="FormasPago_model.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\FormasPago_model.dcp" />
-    <DCCReference Include="GUIBase.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\GUIBase.dcp" />
-    <DCCReference Include="GUISDK_D11R.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\GUISDK_D11R.dcp" />
-    <DCCReference Include="Jcl.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\Jcl.dcp" />
-    <DCCReference Include="JclVcl.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\JclVcl.dcp" />
-    <DCCReference Include="JvCoreD11R.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\JvCoreD11R.dcp" />
-    <DCCReference Include="JvGlobusD11R.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\JvGlobusD11R.dcp" />
-    <DCCReference Include="JvSystemD11R.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\JvSystemD11R.dcp" />
-    <DCCReference Include="RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="rtl.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\rtl.dcp" />
-    <DCCReference Include="TiposIVA_controller.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\TiposIVA_controller.dcp" />
-    <DCCReference Include="TiposIVA_model.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\TiposIVA_model.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\vcl.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\vclactnband.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\vcldb.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\vcljpg.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\vclx.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\xmlrtl.dcp" />
     <DCCReference Include="uContactosViewRegister.pas" />
     <DCCReference Include="uEditorCliente.pas">
       <Form>fEditorCliente</Form>
@@ -100,7 +106,7 @@
       <DesignClass>TCustomEditor</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorElegirDireccionEntrega.pas">
-      <Form>fEditorProveedor</Form>
+      <Form>fEditorElegirDireccionEntrega</Form>
       <DesignClass>TCustomEditor</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorElegirPersonaContacto.pas">
@@ -222,12 +228,6 @@
       <Form>frViewVendedores</Form>
       <DesignClass>TCustomView</DesignClass>
     </DCCReference>
-    <DCCReference Include="vcl.dcp" />
-    <DCCReference Include="vclactnband.dcp" />
-    <DCCReference Include="vcldb.dcp" />
-    <DCCReference Include="vcljpg.dcp" />
-    <DCCReference Include="vclx.dcp" />
-    <DCCReference Include="xmlrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.dproj

@@ -49,14 +49,14 @@
     <DelphiCompile Include="ContratosCliente_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Lib\Articulos_controller.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\Articulos_controller.dcp" />
-    <DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\Contactos_controller.dcp" />
-    <DCCReference Include="..\..\Lib\ContratosCliente_data.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\ContratosCliente_data.dcp" />
-    <DCCReference Include="..\..\Lib\ContratosCliente_model.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\ContratosCliente_model.dcp" />
-    <DCCReference Include="..\..\Lib\GestorDocumentos_controller.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\GestorDocumentos_controller.dcp" />
-    <DCCReference Include="..\..\Lib\GUIBase.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\GUIBase.dcp" />
-    <DCCReference Include="..\..\Lib\PresupuestosCliente_controller.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\PresupuestosCliente_controller.dcp" />
-    <DCCReference Include="..\..\Lib\PresupuestosCliente_model.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\PresupuestosCliente_model.dcp" />
     <DCCReference Include="uArticulosContratoClienteController.pas" />
     <DCCReference Include="uContratosClienteController.pas" />
     <DCCReference Include="uContratosClienteReportController.pas" />

Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.dproj

@@ -49,15 +49,15 @@
     <DelphiCompile Include="GestorDocumentos_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\Lib\GestorDocumentos_data.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\GestorDocumentos_data.dcp" />
-    <DCCReference Include="..\..\..\Lib\GUIBase.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\GUIBase.dcp" />
-    <DCCReference Include="..\..\..\Lib\rtl.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\rtl.dcp" />
     <DCCReference Include="uGestorDocumentosController.pas" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]
-EurekaLog Version=6011
+EurekaLog Version=6006
 Activate=1
 Activate Handle=1
 Save Log File=1

Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.dproj

@@ -49,7 +49,7 @@
     <DelphiCompile Include="GestorDocumentos_data.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\Lib\Base.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\Base.dcp" />
     <DCCReference Include="uDataModuleGestorDocumentos.pas">
       <Form>DataModuleGestorDocumentos</Form>
     </DCCReference>
@@ -57,7 +57,7 @@
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]
-EurekaLog Version=6011
+EurekaLog Version=6006
 Activate=1
 Activate Handle=1
 Save Log File=1

Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.dproj

@@ -49,16 +49,16 @@
     <DelphiCompile Include="PresupuestosCliente_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
+    <DCCReference Include="..\Views\Articulos_controller.dcp" />
+    <DCCReference Include="..\Views\Contactos_controller.dcp" />
+    <DCCReference Include="..\Views\GestorDocumentos_controller.dcp" />
+    <DCCReference Include="..\Views\GUIBase.dcp" />
+    <DCCReference Include="..\Views\PresupuestosCliente_data.dcp" />
+    <DCCReference Include="..\Views\PresupuestosCliente_model.dcp" />
     <DCCReference Include="uArticulosPresupuestoClienteController.pas" />
     <DCCReference Include="uDetallesPresupuestoClienteController.pas" />
     <DCCReference Include="uPresupuestosClienteController.pas" />
     <DCCReference Include="uPresupuestosClienteReportController.pas" />
-    <DCCReference Include="View\Articulos_controller.dcp" />
-    <DCCReference Include="View\Contactos_controller.dcp" />
-    <DCCReference Include="View\GestorDocumentos_controller.dcp" />
-    <DCCReference Include="View\GUIBase.dcp" />
-    <DCCReference Include="View\PresupuestosCliente_data.dcp" />
-    <DCCReference Include="View\PresupuestosCliente_model.dcp" />
     <DCCReference Include="View\uIEditorAsignarDescuento.pas" />
     <DCCReference Include="View\uIEditorDireccionEntregaPresupuestoCliente.pas" />
     <DCCReference Include="View\uIEditorElegirArticulosPresupuestosCliente.pas" />
@@ -70,7 +70,7 @@
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]
-EurekaLog Version=6011
+EurekaLog Version=6006
 Activate=1
 Activate Handle=1
 Save Log File=1

Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.dproj

@@ -49,7 +49,7 @@
     <DelphiCompile Include="PresupuestosCliente_data.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Lib\PresupuestosCliente_model.dcp" />
+    <DCCReference Include="..\Views\PresupuestosCliente_model.dcp" />
     <DCCReference Include="uDataModulePresupuestosCliente.pas">
       <Form>DataModulePresupuestosCliente</Form>
     </DCCReference>

Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm

@@ -248,6 +248,13 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
       item
         Name = 'NO_VALORADO'
         DataType = datSmallInt
+      end
+      item
+        Name = 'TIPO_PRESUPUESTO'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Tipo'
+        DictionaryEntry = 'PresupuestosCliente_TIPO_PRESUPUESTO'
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj

@@ -43,8 +43,6 @@
     <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">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
-      
       <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
       <Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>

Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas

@@ -9,12 +9,12 @@ 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 = '{47CB5138-B2A2-4B1B-A76F-0D0578645C2A}';
+  RID_Valores = '{AC6EF137-1256-43A3-AB3F-76A5C484DFF0}';
-  RID_Propiedades = '{A26BD447-7743-4314-8051-9A00EEE14A1C}';
+  RID_Propiedades = '{A6F5198D-19FD-49CA-8AA3-BC35F11D3BEF}';
-  RID_ListaAnosPresupuestos = '{994EB4CB-B7C0-4163-BBBF-78E2B8EE107E}';
+  RID_ListaAnosPresupuestos = '{D4D48BBF-987E-4085-893B-DCC70A9B63E7}';
-  RID_PresupuestosCliente = '{BFD4DB1C-713D-4017-BD50-E109C769CE70}';
+  RID_PresupuestosCliente = '{FF71F28A-9955-44A1-AE5B-5A1229D17A8F}';
-  RID_CapitulosPresupuesto = '{DE694896-6DF6-4781-8380-6564E58E8365}';
+  RID_CapitulosPresupuesto = '{3ACF0486-2EFD-4EF7-90DF-CE29E1006EC3}';
-  RID_PresupuestosCliente_Detalles = '{D14257E6-F56D-4E40-95DE-E54C80094513}';
+  RID_PresupuestosCliente_Detalles = '{12678EE2-C67A-44AC-A8FA-52125FCCBF5D}';
 
   { Data table names }
   nme_Valores = 'Valores';
@@ -91,6 +91,7 @@ const
   fld_PresupuestosClienteID_CONTRATO = 'ID_CONTRATO';
   fld_PresupuestosClienteREF_CONTRATO = 'REF_CONTRATO';
   fld_PresupuestosClienteNO_VALORADO = 'NO_VALORADO';
+  fld_PresupuestosClienteTIPO_PRESUPUESTO = 'TIPO_PRESUPUESTO';
 
   { PresupuestosCliente field indexes }
   idx_PresupuestosClienteID = 0;
@@ -133,6 +134,7 @@ const
   idx_PresupuestosClienteID_CONTRATO = 37;
   idx_PresupuestosClienteREF_CONTRATO = 38;
   idx_PresupuestosClienteNO_VALORADO = 39;
+  idx_PresupuestosClienteTIPO_PRESUPUESTO = 40;
 
   { CapitulosPresupuesto fields }
   fld_CapitulosPresupuestoID = 'ID';
@@ -187,7 +189,7 @@ const
 type
   { IValores }
   IValores = interface(IDAStronglyTypedDataTable)
-  ['{52DBB238-0B6D-40B1-B33C-1F5C1EFD40A0}']
+  ['{1E453B5F-0C22-4019-AD7A-79E409310CF5}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -246,7 +248,7 @@ type
 
   { IPropiedades }
   IPropiedades = interface(IDAStronglyTypedDataTable)
-  ['{33B3FE10-6DFB-4851-9DF8-6202167D06D2}']
+  ['{ED342BFE-21DA-4BE7-A720-199166F086D8}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -305,7 +307,7 @@ type
 
   { IListaAnosPresupuestos }
   IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
-  ['{F4F6B769-D02A-4219-A1B1-6B6E256A8E14}']
+  ['{D632F9B0-5384-430B-B64C-E93F01D72966}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -340,7 +342,7 @@ type
 
   { IPresupuestosCliente }
   IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
-  ['{AE1838F1-4F83-45C8-80BF-F07435AD100E}']
+  ['{42A8FF1A-071F-44AE-9B50-2B5A4A7625C6}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -498,6 +500,10 @@ type
     procedure SetNO_VALORADOValue(const aValue: SmallInt);
     function GetNO_VALORADOIsNull: Boolean;
     procedure SetNO_VALORADOIsNull(const aValue: Boolean);
+    function GetTIPO_PRESUPUESTOValue: String;
+    procedure SetTIPO_PRESUPUESTOValue(const aValue: String);
+    function GetTIPO_PRESUPUESTOIsNull: Boolean;
+    procedure SetTIPO_PRESUPUESTOIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -581,6 +587,8 @@ type
     property REF_CONTRATOIsNull: Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull;
     property NO_VALORADO: SmallInt read GetNO_VALORADOValue write SetNO_VALORADOValue;
     property NO_VALORADOIsNull: Boolean read GetNO_VALORADOIsNull write SetNO_VALORADOIsNull;
+    property TIPO_PRESUPUESTO: String read GetTIPO_PRESUPUESTOValue write SetTIPO_PRESUPUESTOValue;
+    property TIPO_PRESUPUESTOIsNull: Boolean read GetTIPO_PRESUPUESTOIsNull write SetTIPO_PRESUPUESTOIsNull;
   end;
 
   { TPresupuestosClienteDataTableRules }
@@ -752,6 +760,10 @@ type
     procedure SetNO_VALORADOValue(const aValue: SmallInt); virtual;
     function GetNO_VALORADOIsNull: Boolean; virtual;
     procedure SetNO_VALORADOIsNull(const aValue: Boolean); virtual;
+    function GetTIPO_PRESUPUESTOValue: String; virtual;
+    procedure SetTIPO_PRESUPUESTOValue(const aValue: String); virtual;
+    function GetTIPO_PRESUPUESTOIsNull: Boolean; virtual;
+    procedure SetTIPO_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -834,6 +846,8 @@ type
     property REF_CONTRATOIsNull: Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull;
     property NO_VALORADO: SmallInt read GetNO_VALORADOValue write SetNO_VALORADOValue;
     property NO_VALORADOIsNull: Boolean read GetNO_VALORADOIsNull write SetNO_VALORADOIsNull;
+    property TIPO_PRESUPUESTO: String read GetTIPO_PRESUPUESTOValue write SetTIPO_PRESUPUESTOValue;
+    property TIPO_PRESUPUESTOIsNull: Boolean read GetTIPO_PRESUPUESTOIsNull write SetTIPO_PRESUPUESTOIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -843,7 +857,7 @@ type
 
   { ICapitulosPresupuesto }
   ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
-  ['{990BEB54-0389-476D-9DDF-F364219F93BF}']
+  ['{EC8BE7EC-E277-42FB-A7F2-C23DC9E74BB6}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -938,7 +952,7 @@ type
 
   { IPresupuestosCliente_Detalles }
   IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{720EF2D3-AB45-4606-8F49-869BF3B5FDCB}']
+  ['{23EFE68F-D5E4-4B76-A8F6-50E45D5C755A}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2199,6 +2213,27 @@ begin
     DataTable.Fields[idx_PresupuestosClienteNO_VALORADO].AsVariant := Null;
 end;
 
+function TPresupuestosClienteDataTableRules.GetTIPO_PRESUPUESTOValue: String;
+begin
+  result := DataTable.Fields[idx_PresupuestosClienteTIPO_PRESUPUESTO].AsString;
+end;
+
+procedure TPresupuestosClienteDataTableRules.SetTIPO_PRESUPUESTOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_PresupuestosClienteTIPO_PRESUPUESTO].AsString := aValue;
+end;
+
+function TPresupuestosClienteDataTableRules.GetTIPO_PRESUPUESTOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_PresupuestosClienteTIPO_PRESUPUESTO].IsNull;
+end;
+
+procedure TPresupuestosClienteDataTableRules.SetTIPO_PRESUPUESTOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_PresupuestosClienteTIPO_PRESUPUESTO].AsVariant := Null;
+end;
+
 
 { TCapitulosPresupuestoDataTableRules }
 constructor TCapitulosPresupuestoDataTableRules.Create(aDataTable: TDADataTable);

Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas

@@ -9,17 +9,17 @@ 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 = '{5674F0D4-8781-41A1-A1E8-3040DA88BD15}';
+  RID_ValoresDelta = '{89E797B9-962D-4358-A7F2-A2C87D74F290}';
-  RID_PropiedadesDelta = '{F5F26CFF-3B43-41F8-ADEF-98F8DAA6E6EE}';
+  RID_PropiedadesDelta = '{7F6C1A91-3ACF-4AE9-B31B-F5F676E19824}';
-  RID_ListaAnosPresupuestosDelta = '{284F52EE-A6E8-4E02-B372-540531A71D7A}';
+  RID_ListaAnosPresupuestosDelta = '{57AFBB3B-DC9E-49C9-8FE1-84CFC4233879}';
-  RID_PresupuestosClienteDelta = '{CEEA57A1-E91D-410E-B756-3EACED212587}';
+  RID_PresupuestosClienteDelta = '{DED2F200-34F4-4A2B-9C56-78640B5B9B52}';
-  RID_CapitulosPresupuestoDelta = '{65E7790F-AEF1-4B91-A7FA-E008AE822301}';
+  RID_CapitulosPresupuestoDelta = '{CB74C4B2-B235-4C86-8030-F3BFE2F75F8D}';
-  RID_PresupuestosCliente_DetallesDelta = '{1F9BFF84-923A-4B05-B9D0-423478ACBF34}';
+  RID_PresupuestosCliente_DetallesDelta = '{FD4CE9BE-0A53-4FB8-A820-356C4F7BACCA}';
 
 type
   { IValoresDelta }
   IValoresDelta = interface(IValores)
-  ['{5674F0D4-8781-41A1-A1E8-3040DA88BD15}']
+  ['{89E797B9-962D-4358-A7F2-A2C87D74F290}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PROPIEDADValue : Integer;
@@ -77,7 +77,7 @@ type
 
   { IPropiedadesDelta }
   IPropiedadesDelta = interface(IPropiedades)
-  ['{F5F26CFF-3B43-41F8-ADEF-98F8DAA6E6EE}']
+  ['{7F6C1A91-3ACF-4AE9-B31B-F5F676E19824}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldDESCRIPCIONValue : String;
@@ -135,7 +135,7 @@ type
 
   { IListaAnosPresupuestosDelta }
   IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
-  ['{284F52EE-A6E8-4E02-B372-540531A71D7A}']
+  ['{57AFBB3B-DC9E-49C9-8FE1-84CFC4233879}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -169,7 +169,7 @@ type
 
   { IPresupuestosClienteDelta }
   IPresupuestosClienteDelta = interface(IPresupuestosCliente)
-  ['{CEEA57A1-E91D-410E-B756-3EACED212587}']
+  ['{DED2F200-34F4-4A2B-9C56-78640B5B9B52}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -211,6 +211,7 @@ type
     function GetOldID_CONTRATOValue : Integer;
     function GetOldREF_CONTRATOValue : String;
     function GetOldNO_VALORADOValue : SmallInt;
+    function GetOldTIPO_PRESUPUESTOValue : String;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -253,6 +254,7 @@ type
     property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
     property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue;
     property OldNO_VALORADO : SmallInt read GetOldNO_VALORADOValue;
+    property OldTIPO_PRESUPUESTO : String read GetOldTIPO_PRESUPUESTOValue;
   end;
 
   { TPresupuestosClienteBusinessProcessorRules }
@@ -504,6 +506,12 @@ type
     function GetOldNO_VALORADOIsNull: Boolean; virtual;
     procedure SetNO_VALORADOValue(const aValue: SmallInt); virtual;
     procedure SetNO_VALORADOIsNull(const aValue: Boolean); virtual;
+    function GetTIPO_PRESUPUESTOValue: String; virtual;
+    function GetTIPO_PRESUPUESTOIsNull: Boolean; virtual;
+    function GetOldTIPO_PRESUPUESTOValue: String; virtual;
+    function GetOldTIPO_PRESUPUESTOIsNull: Boolean; virtual;
+    procedure SetTIPO_PRESUPUESTOValue(const aValue: String); virtual;
+    procedure SetTIPO_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -666,6 +674,10 @@ type
     property NO_VALORADOIsNull : Boolean read GetNO_VALORADOIsNull write SetNO_VALORADOIsNull;
     property OldNO_VALORADO : SmallInt read GetOldNO_VALORADOValue;
     property OldNO_VALORADOIsNull : Boolean read GetOldNO_VALORADOIsNull;
+    property TIPO_PRESUPUESTO : String read GetTIPO_PRESUPUESTOValue write SetTIPO_PRESUPUESTOValue;
+    property TIPO_PRESUPUESTOIsNull : Boolean read GetTIPO_PRESUPUESTOIsNull write SetTIPO_PRESUPUESTOIsNull;
+    property OldTIPO_PRESUPUESTO : String read GetOldTIPO_PRESUPUESTOValue;
+    property OldTIPO_PRESUPUESTOIsNull : Boolean read GetOldTIPO_PRESUPUESTOIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -675,7 +687,7 @@ type
 
   { ICapitulosPresupuestoDelta }
   ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
-  ['{65E7790F-AEF1-4B91-A7FA-E008AE822301}']
+  ['{CB74C4B2-B235-4C86-8030-F3BFE2F75F8D}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldPOSICIONValue : Integer;
@@ -769,7 +781,7 @@ type
 
   { IPresupuestosCliente_DetallesDelta }
   IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
-  ['{1F9BFF84-923A-4B05-B9D0-423478ACBF34}']
+  ['{FD4CE9BE-0A53-4FB8-A820-356C4F7BACCA}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PRESUPUESTOValue : Integer;
@@ -2504,6 +2516,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNO_VALORADO] := Null;
 end;
 
+function TPresupuestosClienteBusinessProcessorRules.GetTIPO_PRESUPUESTOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteTIPO_PRESUPUESTO];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetTIPO_PRESUPUESTOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteTIPO_PRESUPUESTO]);
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldTIPO_PRESUPUESTOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteTIPO_PRESUPUESTO];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldTIPO_PRESUPUESTOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteTIPO_PRESUPUESTO]);
+end;
+
+procedure TPresupuestosClienteBusinessProcessorRules.SetTIPO_PRESUPUESTOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteTIPO_PRESUPUESTO] := aValue;
+end;
+
+procedure TPresupuestosClienteBusinessProcessorRules.SetTIPO_PRESUPUESTOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteTIPO_PRESUPUESTO] := Null;
+end;
+
 
 { TCapitulosPresupuestoBusinessProcessorRules }
 constructor TCapitulosPresupuestoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm

@@ -295,6 +295,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
               item
                 DatasetField = 'NO_VALORADO'
                 TableField = 'NO_VALORADO'
+              end
+              item
+                DatasetField = 'TIPO_PRESUPUESTO'
+                TableField = 'TIPO_PRESUPUESTO'
               end>
           end>
         Name = 'PresupuestosCliente'
@@ -496,6 +500,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
           item
             Name = 'NO_VALORADO'
             DataType = datSmallInt
+          end
+          item
+            Name = 'TIPO_PRESUPUESTO'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'PresupuestosCliente_TIPO_PRESUPUESTO'
           end>
       end
       item
@@ -728,6 +738,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
     Commands = <
       item
         Params = <
+          item
+            Name = 'TIPO_PRESUPUESTO'
+            DataType = datString
+            Size = 255
+            Value = ''
+          end
           item
             Name = 'ID'
             DataType = datAutoInc
@@ -907,15 +923,16 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
               'TO, IMPORTE_DESCUENTO, BASE_IMPONIBLE, ID_TIPO_IVA, IVA, IMPORTE' +
               '_IVA,'#10'     RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, IMPORTE_TOTAL, ' +
               'ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,'#10'     ID_CONTRATO, NO_VALO' +
-              'RADO)'#10'  VALUES'#10'    (:ID,'#10'     :FECHA_PRESUPUESTO, :FECHA_VIGENCI' +
+              'RADO, TIPO_PRESUPUESTO)'#10'  VALUES'#10'    (:ID,'#10'     :FECHA_PRESUPUES' +
-              'A, :FECHA_DECISION, :REFERENCIA,'#10'     :SITUACION, :ID_CLIENTE, :' +
+              'TO, :FECHA_VIGENCIA, :FECHA_DECISION, :REFERENCIA,'#10'     :SITUACI' +
-              'ID_DIRECCION, :PERSONA_CONTACTO,'#10'     :FORMA_PAGO, :PLAZO_ENTREG' +
+              'ON, :ID_CLIENTE, :ID_DIRECCION, :PERSONA_CONTACTO,'#10'     :FORMA_P' +
-              'A, :OBSERVACIONES, :INCIDENCIAS,'#10'     :INCIDENCIAS_ACTIVAS, CURR' +
+              'AGO, :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS,'#10'     :INCIDEN' +
-              'ENT_TIMESTAMP, :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE,'#10'     :DE' +
+              'CIAS_ACTIVAS, CURRENT_TIMESTAMP, :USUARIO, :IMPORTE_NETO, :IMPOR' +
-              'SCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA' +
+              'TE_PORTE,'#10'     :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, ' +
-              ', :IMPORTE_IVA,'#10'     :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA, :I' +
+              ':ID_TIPO_IVA, :IVA, :IMPORTE_IVA,'#10'     :RE, :IMPORTE_RE, :RECARG' +
-              'MPORTE_TOTAL, :ID_FORMA_PAGO, :ID_TIENDA, :ID_VENDEDOR,'#10'     :ID' +
+              'O_EQUIVALENCIA, :IMPORTE_TOTAL, :ID_FORMA_PAGO, :ID_TIENDA, :ID_' +
-              '_CONTRATO, :NO_VALORADO)'#10'     '#10#10#10#10#10
+              'VENDEDOR,'#10'     :ID_CONTRATO, :NO_VALORADO, :TIPO_PRESUPUESTO)'#10'  ' +
+              '   '#10#10#10#10#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -943,6 +960,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
       end
       item
         Params = <
+          item
+            Name = 'TIPO_PRESUPUESTO'
+            DataType = datString
+            Size = 255
+            Value = ''
+          end
           item
             Name = 'ID'
             DataType = datInteger
@@ -1134,8 +1157,9 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
               'IVA,'#10'    IVA = :IVA, '#10'    IMPORTE_IVA = :IMPORTE_IVA, '#10'    IMPOR' +
               'TE_TOTAL = :IMPORTE_TOTAL, '#10'    ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10 +
               '    ID_TIENDA = :ID_TIENDA,'#10'    ID_VENDEDOR = :ID_VENDEDOR,'#10'    ' +
-              'ID_CONTRATO = :ID_CONTRATO,'#10'    NO_VALORADO = :NO_VALORADO'#10'  WHE' +
+              'ID_CONTRATO = :ID_CONTRATO,'#10'    NO_VALORADO = :NO_VALORADO,'#10'    ' +
-              'RE'#10'    (ID = :OLD_ID)'#10#10
+              'TIPO_PRESUPUESTO = :TIPO_PRESUPUESTO'#10'  WHERE'#10'    (ID = :OLD_ID)'#10 +
+              #10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -1655,6 +1679,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
         DataType = datString
         Size = 255
         DisplayLabel = 'Unidad de medida'
+      end
+      item
+        Name = 'PresupuestosCliente_TIPO_PRESUPUESTO'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Tipo'
       end>
     Left = 48
     Top = 152

Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk

@@ -31,30 +31,11 @@ requires
   PresupuestosCliente_controller,
   Articulos_view,
   GestorInformes_controller,
-  vcl,
+  PreCli_ConCli_relation;
-  rtl,
-  dbrtl,
-  DataAbstract_Core_D11,
-  vcldb,
-  dsnap,
-  adortl,
-  RemObjects_Core_D11,
-  cxLibraryD11,
-  dxThemeD11,
-  dxGDIPlusD11,
-  cxEditorsD11,
-  cxDataD11,
-  vcljpg,
-  dxLayoutControlD11,
-  dxComnD11,
-  PreCli_ConCli_relation,
-  dxCoreD11,
-  vclx;
 
 contains
   uPresupuestosClienteViewRegister in 'uPresupuestosClienteViewRegister.pas',
   uViewPresupuestosCliente in 'uViewPresupuestosCliente.pas' {frViewPresupuestosCliente: TFrame},
-  uViewPresupuestoCliente in 'uViewPresupuestoCliente.pas' {frViewPresupuestoCliente: TFrame},
   uEditorPresupuestosCliente in 'uEditorPresupuestosCliente.pas' {fEditorPresupuestosCliente: TfEditorPedidoCliente},
   uEditorPresupuestoCliente in 'uEditorPresupuestoCliente.pas' {fEditorPresupuestoCliente: TfEditorPedidoCliente},
   uViewDetallesPresupuestoCliente in 'uViewDetallesPresupuestoCliente.pas' {frViewDetallesPresupuestoCliente: TFrame},
@@ -67,6 +48,7 @@ contains
   uViewDatosYSeleccionClientePresupuesto in 'uViewDatosYSeleccionClientePresupuesto.pas' {frViewDatosYSeleccionClientePresupuesto: TFrame},
   uEditorAsignarDescuento in 'uEditorAsignarDescuento.pas' {fEditorAsignarDescuento},
   uEditorFechaDecisionPresupuesto in 'uEditorFechaDecisionPresupuesto.pas' {fEditorFechaDecisionPresupuesto},
-  uViewTotalesPresupuesto in 'uViewTotalesPresupuesto.pas' {frViewTotalesPresupuesto: TFrame};
+  uViewTotalesPresupuesto in 'uViewTotalesPresupuesto.pas' {frViewTotalesPresupuesto: TFrame},
+  uViewPresupuestoCliente in 'uViewPresupuestoCliente.pas' {frViewPresupuestoCliente: TFrame};
 
 end.

Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj

@@ -49,27 +49,13 @@
     <DelphiCompile Include="PresupuestosCliente_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
-    <DCCReference Include="Articulos_view.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
-    <DCCReference Include="Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GestorInformes_controller.dcp" />
-    <DCCReference Include="cxDataD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
-    <DCCReference Include="cxEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PreCli_ConCli_relation.dcp" />
-    <DCCReference Include="cxLibraryD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_controller.dcp" />
-    <DCCReference Include="DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_model.dcp" />
-    <DCCReference Include="dbrtl.dcp" />
-    <DCCReference Include="dsnap.dcp" />
-    <DCCReference Include="dxComnD11.dcp" />
-    <DCCReference Include="dxCoreD11.dcp" />
-    <DCCReference Include="dxGDIPlusD11.dcp" />
-    <DCCReference Include="dxLayoutControlD11.dcp" />
-    <DCCReference Include="dxThemeD11.dcp" />
-    <DCCReference Include="GestorInformes_controller.dcp" />
-    <DCCReference Include="GUIBase.dcp" />
-    <DCCReference Include="PreCli_ConCli_relation.dcp" />
-    <DCCReference Include="PresupuestosCliente_controller.dcp" />
-    <DCCReference Include="PresupuestosCliente_model.dcp" />
-    <DCCReference Include="RemObjects_Core_D11.dcp" />
-    <DCCReference Include="rtl.dcp" />
     <DCCReference Include="uEditorAsignarDescuento.pas">
       <Form>fEditorAsignarDescuento</Form>
     </DCCReference>
@@ -129,10 +115,6 @@
       <Form>frViewTotalesPresupuesto</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
-    <DCCReference Include="vcl.dcp" />
-    <DCCReference Include="vcldb.dcp" />
-    <DCCReference Include="vcljpg.dcp" />
-    <DCCReference Include="vclx.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm

@@ -2,6 +2,7 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
   Caption = 'Lista de presupuestos de cliente'
   ClientWidth = 805
   ExplicitWidth = 813
+  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader

Source/Modulos/Presupuestos de cliente/Views/uViewDatosYSeleccionClientePresupuesto.dfm

@@ -34,14 +34,10 @@ inherited frViewDatosYSeleccionClientePresupuesto: TfrViewDatosYSeleccionCliente
       Style.BorderStyle = ebs3D
       Style.HotTrack = False
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleDisabled.TextColor = clWindowText
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 2
       Height = 21
       Width = 224
@@ -60,14 +56,10 @@ inherited frViewDatosYSeleccionClientePresupuesto: TfrViewDatosYSeleccionCliente
       Style.BorderStyle = ebs3D
       Style.HotTrack = False
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleDisabled.TextColor = clWindowText
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 3
       Height = 21
       Width = 103
@@ -216,14 +208,10 @@ inherited frViewDatosYSeleccionClientePresupuesto: TfrViewDatosYSeleccionCliente
       Style.BorderStyle = ebs3D
       Style.HotTrack = False
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleDisabled.TextColor = clWindowText
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 8
       Height = 21
       Width = 283
@@ -236,17 +224,13 @@ inherited frViewDatosYSeleccionClientePresupuesto: TfrViewDatosYSeleccionCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleDisabled.TextColor = clWindowText
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 6
       Height = 53
       Width = 437
@@ -281,14 +265,10 @@ inherited frViewDatosYSeleccionClientePresupuesto: TfrViewDatosYSeleccionCliente
       Style.BorderStyle = ebs3D
       Style.HotTrack = False
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleDisabled.TextColor = clWindowText
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 4
       Height = 21
       Width = 103
@@ -301,17 +281,13 @@ inherited frViewDatosYSeleccionClientePresupuesto: TfrViewDatosYSeleccionCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleDisabled.TextColor = clWindowText
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 5
       Width = 363
     end

Source/Modulos/Presupuestos de cliente/Views/uViewDatosYSeleccionClientePresupuesto.pas

@@ -269,11 +269,11 @@ begin
     if FDireccion.IDIsNull then
     begin
       FPresupuesto.ClearField('ID_DIRECCION');
-      FPresupuesto.ClearField('IMPORTE_PORTE');
+      //FPresupuesto.ClearField('IMPORTE_PORTE');
     end
     else begin
       FPresupuesto.ID_DIRECCION := FDireccion.ID;
-      FPresupuesto.IMPORTE_PORTE := FDireccion.PORTE;
+      //FPresupuesto.IMPORTE_PORTE := FDireccion.PORTE;
     end;
 
     //Siempre asignaremos la persona de contacto ya sea de las direcciones del contacto o la ID_Direccion=0 que es la principal de la ficha

Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm

@@ -1,27 +1,25 @@
 inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
-  Width = 694
+  Width = 895
-  Height = 522
+  Height = 555
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
-  ExplicitWidth = 694
+  ExplicitWidth = 895
-  ExplicitHeight = 522
+  ExplicitHeight = 555
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 694
+    Width = 895
-    Height = 522
+    Height = 555
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
-    ExplicitWidth = 1019
-    ExplicitHeight = 392
     DesignSize = (
-      694
+      895
-      522)
+      555)
     object edtFechaPresupuesto: TcxDBDateEdit
-      Left = 123
+      Left = 103
       Top = 55
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_PRESUPUESTO'
@@ -33,22 +31,18 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Style.Color = clInfoBk
       Style.HotTrack = False
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       Style.Shadow = False
       Style.ButtonStyle = bts3D
       Style.ButtonTransparency = ebtNone
       Style.PopupBorderStyle = epbsFrame3D
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 1
-      Width = 260
+      Width = 187
     end
     object memObservaciones: TcxDBMemo
-      Left = 352
+      Left = 432
       Top = 288
       Anchors = [akLeft, akTop, akRight, akBottom]
       DataBinding.DataField = 'OBSERVACIONES'
@@ -59,22 +53,18 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 12
-      TabOrder = 11
+      Height = 245
-      Height = 200
+      Width = 793
-      Width = 507
     end
     object eReferencia: TcxDBTextEdit
-      Left = 123
+      Left = 103
       Top = 28
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'REFERENCIA'
@@ -87,24 +77,20 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       StyleDisabled.Color = clMenuBar
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleDisabled.TextColor = clWindowText
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 0
       Width = 122
     end
     object cbFormaPago: TcxDBLookupComboBox
-      Left = 123
+      Left = 103
-      Top = 163
+      Top = 136
       DataBinding.DataField = 'ID_FORMA_PAGO'
       DataBinding.DataSource = DADataSource
       Properties.KeyFieldNames = 'ID'
@@ -121,33 +107,29 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       Style.ButtonStyle = bts3D
       Style.PopupBorderStyle = epbsFrame3D
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 6
-      TabOrder = 5
       Width = 122
     end
     object bFormasPago: TButton
-      Left = 190
+      Left = 270
-      Top = 163
+      Top = 136
       Width = 132
       Height = 21
       Caption = 'Ver las formas de pago...'
-      TabOrder = 6
+      TabOrder = 7
       OnClick = bFormasPagoClick
     end
     object edtFechaDecision: TcxDBDateEdit
-      Left = 123
+      Left = 295
-      Top = 109
+      Top = 82
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_DECISION'
       DataBinding.DataSource = DADataSource
@@ -157,22 +139,18 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Style.Color = clWindow
       Style.HotTrack = False
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       Style.Shadow = False
       Style.ButtonStyle = bts3D
       Style.ButtonTransparency = ebtNone
       Style.PopupBorderStyle = epbsFrame3D
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 4
-      TabOrder = 3
       Width = 260
     end
     object edtFechaVigencia: TcxDBDateEdit
-      Left = 123
+      Left = 103
       Top = 82
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_VIGENCIA'
@@ -184,28 +162,25 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       Style.ButtonStyle = bts3D
       Style.PopupBorderStyle = epbsFrame3D
       StyleDisabled.Color = clMenuBar
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleDisabled.TextColor = clWindowText
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 3
-      TabOrder = 2
       Width = 260
     end
     object cbSituacion: TcxDBImageComboBox
-      Left = 123
+      Left = 103
-      Top = 136
+      Top = 109
       DataBinding.DataField = 'SITUACION'
       DataBinding.DataSource = DADataSource
+      Properties.ImmediatePost = True
       Properties.Items = <
         item
           Description = 'PENDIENTE'
@@ -223,20 +198,16 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Style.BorderColor = clWindowFrame
       Style.BorderStyle = ebs3D
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       Style.ButtonStyle = bts3D
       Style.PopupBorderStyle = epbsFrame3D
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 5
-      TabOrder = 4
       Width = 260
     end
     inline frViewDatosYSeleccionClientePresupuesto1: TfrViewDatosYSeleccionClientePresupuesto
-      Left = 352
+      Left = 432
       Top = 28
       Width = 320
       Height = 224
@@ -246,72 +217,46 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Font.Name = 'Tahoma'
       Font.Style = []
       ParentFont = False
-      TabOrder = 10
+      TabOrder = 11
       ReadOnly = False
-      ExplicitLeft = 352
+      ExplicitLeft = 432
       ExplicitTop = 28
       ExplicitWidth = 320
       ExplicitHeight = 224
       inherited dxLayoutControl1: TdxLayoutControl
         Width = 320
         Height = 224
-        ExplicitWidth = 277
+        ExplicitWidth = 320
-        ExplicitHeight = 195
+        ExplicitHeight = 224
         inherited edtlNombre: TcxDBTextEdit
-          Style.LookAndFeel.SkinName = ''
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.SkinName = ''
           ExplicitWidth = 224
           Width = 224
         end
         inherited edtNIFCIF: TcxDBTextEdit
-          Left = 207
+          Left = 328
-          Style.LookAndFeel.SkinName = ''
+          ExplicitLeft = 328
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 207
         end
         inherited Button3: TBitBtn
-          Left = 118
+          Left = 239
-          ExplicitLeft = 118
+          ExplicitLeft = 239
         end
         inherited edtPersonaContacto: TcxDBTextEdit
-          Style.LookAndFeel.SkinName = ''
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.SkinName = ''
           ExplicitWidth = 283
           Width = 283
         end
         inherited edtDireccion: TcxMemo
-          Style.LookAndFeel.SkinName = ''
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.SkinName = ''
           ExplicitWidth = 121
           Width = 121
         end
         inherited Button4: TButton
-          Left = 287
+          Left = 408
-          ExplicitLeft = 287
+          ExplicitLeft = 408
         end
         inherited Button5: TButton
-          Left = 287
+          Left = 408
-          ExplicitLeft = 287
+          ExplicitLeft = 408
-        end
-        inherited edtReferencia: TcxDBTextEdit
-          Style.LookAndFeel.SkinName = ''
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.SkinName = ''
         end
         inherited edtTelefonos: TcxTextEdit
-          Style.LookAndFeel.SkinName = ''
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.SkinName = ''
           ExplicitWidth = 363
           Width = 363
         end
@@ -319,7 +264,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
     end
     object memFormaPago: TcxDBMemo
       Left = 22
-      Top = 247
+      Top = 220
       Anchors = [akLeft, akTop, akRight, akBottom]
       DataBinding.DataField = 'FORMA_PAGO'
       DataBinding.DataSource = DADataSource
@@ -329,23 +274,19 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 9
-      TabOrder = 8
       Height = 44
       Width = 475
     end
     object memPlazoEntrega: TcxDBMemo
       Left = 22
-      Top = 353
+      Top = 348
       Anchors = [akLeft, akTop, akRight, akBottom]
       DataBinding.DataField = 'PLAZO_ENTREGA'
       DataBinding.DataSource = DADataSource
@@ -355,23 +296,19 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 10
-      TabOrder = 9
       Height = 100
       Width = 396
     end
     object cbVendedor: TcxDBLookupComboBox
-      Left = 123
+      Left = 103
-      Top = 190
+      Top = 163
       DataBinding.DataField = 'ID_VENDEDOR'
       DataBinding.DataSource = DADataSource
       Properties.KeyFieldNames = 'ID'
@@ -388,21 +325,42 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       Style.ButtonStyle = bts3D
       Style.PopupBorderStyle = epbsFrame3D
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 8
-      TabOrder = 7
       Width = 27
     end
+    object cbTipoPresupuesto: TcxDBComboBox
+      Left = 289
+      Top = 55
+      DataBinding.DataField = 'TIPO_PRESUPUESTO'
+      DataBinding.DataSource = DADataSource
+      Properties.ImmediatePost = True
+      Properties.Items.Strings = (
+        'Cocina'
+        'Ba'#241'o'
+        'Armarios'
+        'Electrodom'#233'sticos'
+        'Varios')
+      Properties.PostPopupValueOnTab = True
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.HotTrack = False
+      Style.LookAndFeel.NativeStyle = True
+      Style.ButtonStyle = bts3D
+      Style.PopupBorderStyle = epbsFrame3D
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 2
+      Width = 186
+    end
     object dxLayoutControl1Group_Root: TdxLayoutGroup
       ShowCaption = False
       Hidden = True
@@ -425,20 +383,45 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
             Control = eReferencia
             ControlOptions.ShowBorder = False
           end
-          object dxLayoutControl1Item2: TdxLayoutItem
+          object dxLayoutControl1Group11: TdxLayoutGroup
-            Caption = 'Fecha presupuesto:'
+            ShowCaption = False
-            Control = edtFechaPresupuesto
+            Hidden = True
-            ControlOptions.ShowBorder = False
+            LayoutDirection = ldHorizontal
+            ShowBorder = False
+            object dxLayoutControl1Item2: TdxLayoutItem
+              AutoAligns = [aaVertical]
+              AlignHorz = ahClient
+              Caption = 'Fecha presup.:'
+              Control = edtFechaPresupuesto
+              ControlOptions.ShowBorder = False
+            end
+            object dxLayoutControl1Item12: TdxLayoutItem
+              AutoAligns = [aaVertical]
+              AlignHorz = ahClient
+              Caption = 'Tipo presup.:'
+              Control = cbTipoPresupuesto
+              ControlOptions.ShowBorder = False
+            end
           end
-          object dxLayoutControl1Item15: TdxLayoutItem
+          object dxLayoutControl1Group10: TdxLayoutGroup
-            Caption = 'Fecha vigencia:'
+            ShowCaption = False
-            Control = edtFechaVigencia
+            Hidden = True
-            ControlOptions.ShowBorder = False
+            LayoutDirection = ldHorizontal
-          end
+            ShowBorder = False
-          object dxLayoutControl1Item7: TdxLayoutItem
+            object dxLayoutControl1Item15: TdxLayoutItem
-            Caption = 'Fecha decisi'#243'n:'
+              AutoAligns = [aaVertical]
-            Control = edtFechaDecision
+              AlignHorz = ahClient
-            ControlOptions.ShowBorder = False
+              Caption = 'Fecha vigencia:'
+              Control = edtFechaVigencia
+              ControlOptions.ShowBorder = False
+            end
+            object dxLayoutControl1Item7: TdxLayoutItem
+              AutoAligns = [aaVertical]
+              AlignHorz = ahClient
+              Caption = 'Fecha decisi'#243'n:'
+              Control = edtFechaDecision
+              ControlOptions.ShowBorder = False
+            end
           end
           object dxLayoutControl1Item10: TdxLayoutItem
             Caption = 'Situaci'#243'n:'
@@ -536,7 +519,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
   end
   object DADataSource: TDADataSource
     Left = 8
-    Top = 48
+    Top = 16
   end
   object ActionList1: TActionList
     Left = 8
@@ -547,7 +530,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
     Top = 8
   end
   object dsVendedor: TDADataSource
-    Left = 40
+    Left = 80
-    Top = 40
+    Top = 16
   end
 end

Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas

@@ -65,6 +65,10 @@ type
     dxLayoutControl1Group9: TdxLayoutGroup;
     cbVendedor: TcxDBLookupComboBox;
     dsVendedor: TDADataSource;
+    dxLayoutControl1Group10: TdxLayoutGroup;
+    dxLayoutControl1Item12: TdxLayoutItem;
+    cbTipoPresupuesto: TcxDBComboBox;
+    dxLayoutControl1Group11: TdxLayoutGroup;
     procedure CustomViewCreate(Sender: TObject);
     procedure CustomViewDestroy(Sender: TObject);
     procedure bFormasPagoClick(Sender: TObject);

Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm

@@ -70,6 +70,11 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
         BestFitMaxWidth = 25
         Width = 65
       end
+      object cxGridViewTIPO: TcxGridDBColumn
+        DataBinding.FieldName = 'TIPO_PRESUPUESTO'
+        BestFitMaxWidth = 25
+        Width = 65
+      end
       object cxGridViewSITUACION: TcxGridDBColumn
         Caption = 'Situaci'#243'n'
         DataBinding.FieldName = 'SITUACION'
@@ -138,27 +143,15 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
         Width = 903
         ExplicitWidth = 903
         inherited txtFiltroTodo: TcxTextEdit
-          Style.LookAndFeel.SkinName = ''
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.SkinName = ''
           ExplicitWidth = 806
           Width = 806
         end
         inherited edtFechaIniFiltro: TcxDateEdit
-          Style.LookAndFeel.SkinName = ''
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.SkinName = ''
           ExplicitWidth = 285
           Width = 285
         end
         inherited edtFechaFinFiltro: TcxDateEdit
           Left = 389
-          Style.LookAndFeel.SkinName = ''
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.SkinName = ''
           ExplicitLeft = 389
           ExplicitWidth = 504
           Width = 504

Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas

@@ -45,6 +45,7 @@ type
     cxGridViewNIF_CIF: TcxGridDBColumn;
     cxGridViewINCIDENCIAS: TcxGridDBColumn;
     cxStyleRECHAZADO: TcxStyle;
+    cxGridViewTIPO: TcxGridDBColumn;
     procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
             TcxGridLevel);
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;

Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/PreCli_ConCli_relation.dproj

@@ -40,78 +40,6 @@
     <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">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
       <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclsmp100.bpl">Borland Sample Components</Excluded_Packages>
       <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dcl31w100.bpl">Delphi 1.0 Compatibility Components</Excluded_Packages>
       <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclmid100.bpl">Borland MyBase DataAccess Components</Excluded_Packages>
@@ -155,13 +83,13 @@
     <DelphiCompile Include="PreCli_ConCli_relation.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="Base.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\Base.dcp" />
-    <DCCReference Include="Contactos_controller.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\Contactos_controller.dcp" />
-    <DCCReference Include="Contactos_model.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\Contactos_model.dcp" />
-    <DCCReference Include="ContratosCliente_controller.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\ContratosCliente_controller.dcp" />
-    <DCCReference Include="ContratosCliente_model.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\ContratosCliente_model.dcp" />
-    <DCCReference Include="PresupuestosCliente_controller.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\PresupuestosCliente_controller.dcp" />
-    <DCCReference Include="PresupuestosCliente_model.dcp" />
+    <DCCReference Include="..\..\Presupuestos de cliente\Views\PresupuestosCliente_model.dcp" />
     <DCCReference Include="uGenerarContratosCliUtils.pas">
       <Form>dmGenerarContratosCli</Form>
     </DCCReference>

Source/Servidor/FactuGES_Server.dpr

@@ -133,10 +133,10 @@ uses
   schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
   schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
   schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_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';
+  schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
+  schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
+  schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.dproj

@@ -29,9 +29,7 @@
 		<Borland.ProjectType/>
 		<BorlandProject>
 			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">4</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.4.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.4.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 14 de enero de 2010 17:18</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\cxLibraryD11.bpl">Express Cross Platform Library by Developer Express Inc.</Excluded_Packages>
+						<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 Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
-						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs SDAC Driver</Excluded_Packages>
 					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
 	</ProjectExtensions>
 	<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>

Source/Servidor/FactuGES_Server.rc

@@ -16,7 +16,7 @@ BEGIN
               VALUE "FileVersion", "2.4.2.0\0"
               VALUE "ProductName", "FactuGES (Servidor)\0"
               VALUE "ProductVersion", "2.4.2.0\0"
-              VALUE "CompileDate", "lunes, 18 de enero de 2010 15:27\0"
+              VALUE "CompileDate", "sábado, 24 de abril de 2010 18:00\0"
          END
     END
     BLOCK "VarFileInfo"