From 2d6bd98bc90c6ea22b3aeefcd84dcff0abbd873a Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Thu, 29 Oct 2009 18:26:07 +0000
Subject: [PATCH] Ticket #78 -> Al aceptar un presupuesto, que se pregunte si
 se quiere generar ya el contrato

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@452 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 Source/GUIBase/GUIBase.dproj                  |  56 +++---
 Source/GUIBase/GUIBase.res                    | Bin 384 -> 4748 bytes
 .../ContratosCliente_controller.drc           |   2 +-
 .../Data/ContratosCliente_data.drc            |   2 +-
 .../Model/ContratosCliente_model.drc          |   2 +-
 .../Plugin/ContratosCliente_plugin.drc        |   2 +-
 .../Views/ContratosCliente_view.drc           |   2 +-
 .../Views/PresupuestosCliente_view.dpk        |   4 +-
 .../Views/PresupuestosCliente_view.dproj      |  51 +++--
 .../Views/PresupuestosCliente_view.res        | Bin 384 -> 4748 bytes
 .../Views/uEditorFechaDecision.dfm            |  60 ------
 .../Views/uEditorFechaDecision.pas            |  35 ----
 .../Views/uEditorFechaDecisionPresupuesto.dfm |  87 +++++++++
 .../Views/uEditorFechaDecisionPresupuesto.pas |  67 +++++++
 .../Views/uEditorPresupuestosCliente.dfm      |   1 +
 .../Views/uEditorPresupuestosCliente.pas      | 183 +++++++++---------
 .../uGenerarContratosCliUtils.pas             |  59 +++---
 Source/Servidor/FactuGES_Server.RES           | Bin 23348 -> 23348 bytes
 Source/Servidor/FactuGES_Server.rc            |   2 +-
 19 files changed, 345 insertions(+), 270 deletions(-)
 delete mode 100644 Source/Modulos/Presupuestos de cliente/Views/uEditorFechaDecision.dfm
 delete mode 100644 Source/Modulos/Presupuestos de cliente/Views/uEditorFechaDecision.pas
 create mode 100644 Source/Modulos/Presupuestos de cliente/Views/uEditorFechaDecisionPresupuesto.dfm
 create mode 100644 Source/Modulos/Presupuestos de cliente/Views/uEditorFechaDecisionPresupuesto.pas

diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj
index a6a4770d..cf043357 100644
--- a/Source/GUIBase/GUIBase.dproj
+++ b/Source/GUIBase/GUIBase.dproj
@@ -58,29 +58,34 @@
     <DelphiCompile Include="GUIBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="Base.dcp" />
-    <DCCReference Include="ccpackD11.dcp" />
-    <DCCReference Include="cxDataD11.dcp" />
-    <DCCReference Include="cxEditorsD11.dcp" />
-    <DCCReference Include="cxExportD11.dcp" />
-    <DCCReference Include="cxLibraryD11.dcp" />
-    <DCCReference Include="dbrtl.dcp" />
-    <DCCReference Include="dxGDIPlusD11.dcp" />
-    <DCCReference Include="dxLayoutControlD11.dcp" />
-    <DCCReference Include="dxPScxCommonD11.dcp" />
-    <DCCReference Include="dxPScxGrid6LnkD11.dcp" />
-    <DCCReference Include="dxThemeD11.dcp" />
-    <DCCReference Include="frx11.dcp" />
-    <DCCReference Include="frxe11.dcp" />
-    <DCCReference Include="fs11.dcp" />
-    <DCCReference Include="JvAppFrmD11R.dcp" />
-    <DCCReference Include="JvCtrlsD11R.dcp" />
-    <DCCReference Include="JvGlobusD11R.dcp" />
-    <DCCReference Include="PngComponentsD10.dcp" />
-    <DCCReference Include="PNG_D10.dcp" />
-    <DCCReference Include="rtl.dcp" />
-    <DCCReference Include="tb2k_d10.dcp" />
-    <DCCReference Include="tbx_d10.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\Base.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\ccpackD11.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\cxDataD11.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\cxEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\cxExportD11.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\dxLayoutControlD11.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\dxPScxCommonD11.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\dxPScxGrid6LnkD11.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\dxThemeD11.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\frx11.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\frxe11.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\fs11.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\JvAppFrmD11R.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\JvGlobusD11R.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\PNG_D10.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\tb2k_d10.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\tbx_d10.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\vclactnband.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Relaciones\Presupuestos de cliente - Contratos de cliente\vclx.dcp" />
     <DCCReference Include="uDialogBase.pas">
       <Form>fDialogBase</Form>
     </DCCReference>
@@ -175,11 +180,6 @@
       <Form>frViewTotales</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
-    <DCCReference Include="vcl.dcp" />
-    <DCCReference Include="vclactnband.dcp" />
-    <DCCReference Include="vcldb.dcp" />
-    <DCCReference Include="vcljpg.dcp" />
-    <DCCReference Include="vclx.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
diff --git a/Source/GUIBase/GUIBase.res b/Source/GUIBase/GUIBase.res
index 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644
GIT binary patch
literal 4748
zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg
zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?<w4U-ol;S2jC7
zx4(byej2@_#)0HWvg0i^wC4Xli+W*aXJ^(njceK|Kb@c3qFNX>p${kR>3GhM`oH*q
zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W
zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7
z{BT%G%irdMe*|oDJmgvJ<ltI;x5J<Oc>aA2`9B<Z5Toyra?r{a4$fnJHGXo6Pmcq8
z{JGCD500t1h4|yI?-f&xoj9;YT&Ch&JLO*X#NC3sCI0Xmc<f_vh`jn-1E!?th$%QM
znzGM|)$vl3f7;nE+9qR}|A?C$H3K&BFdq9?uxrIqHIne#5?8G@da2ybWLGKA686M2
z*LJMMMk4<U`dzFC9}HrSxLfOGll{P#??xir)$c2}C;ql+y-&Wa(LP{PgPk1E1@{uR
zIMCNz;u9;r(axhQvEx%?i#p<Vn=Z!SK%f10?4_`0@RY8lXRM3(t(nFSzJ$4kJr6&x
ze)~B%biu*TY$HDstHD=|UGxJceYiUQQa0Gu(p3og@%ZJ><6Xi*?M~Q;)@Sbfwf3uf
zVaWkbU<NjR3%=~AdoZbkXp`f@b0%GBT^$^V5e(n|#O(?P)hBbF)4n%2cw6U#adPM!
zz(!`V|Bfl{aH0)Y&w;SK7R4<z{p;Gwz1D%l86L3ZFZQ&=pB$<&esXT|OZ?=AGaWoe
z{>jU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv
zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N|
z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc
z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0
zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38=
zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W
zVvPDBKHh;i=RU4J_ta3E;)M<P+=2X7;VbzliQZ=IHV#+fr#{!(ukt%UJMS8=332qg
z7jD)rSbpCW+^j*cd6LUEe8#9n&v!NEJM(@?SHvB$=h@|)fjw|&qD?NQ5A&R>n>Y+L
zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m
z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJu<OVP
zzHjp+hnwo*3NQE$JTA(agu~silV5T`du+GJgWGi_7mAy`Nk8fLt~%GF$;XXcE-ri?
zyIglyyzA`K-);4Eem2MZm07RBza@W3UP)d`Rz=RFk-I);`s{$L%yyBNX0OTjo5Gk0
zs}g44uXg*l%xo^{`#0=kd*2?}Cz22Bv2;Gu?;3o~(D#gk1OKYQSCAb$(&vu@_pvWO
z>gbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T
z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC
zy(^m((;DnQmDQ<zX+PK(Lfu@ox#mOnbZjSDl}IBqv$qwK+2@))5$ba>Katmw!@c`|
G?EMQ&4NnpP

delta 11
ScmeBCZD5|Duvteife`=|>;pCc

diff --git a/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.drc b/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.drc
index 0c12a9cb..f54dc6f9 100644
--- a/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.drc	
+++ b/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.drc	
@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Controller\ContratosCliente_controller.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF2.tmp */
+/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Controller\ContratosCliente_controller.drf */
diff --git a/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.drc b/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.drc
index 4b0cae44..f309e5a6 100644
--- a/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.drc	
+++ b/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.drc	
@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Data\uDataModuleContratosCliente.dfm */
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Data\ContratosCliente_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF0.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF2.tmp */
diff --git a/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.drc b/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.drc
index 67a1c529..ca1912c5 100644
--- a/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.drc	
+++ b/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.drc	
@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Model\ContratosCliente_model.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfEE.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF0.tmp */
diff --git a/Source/Modulos/Contratos de cliente/Plugin/ContratosCliente_plugin.drc b/Source/Modulos/Contratos de cliente/Plugin/ContratosCliente_plugin.drc
index 4ee03f37..85661e53 100644
--- a/Source/Modulos/Contratos de cliente/Plugin/ContratosCliente_plugin.drc	
+++ b/Source/Modulos/Contratos de cliente/Plugin/ContratosCliente_plugin.drc	
@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Plugin\uPluginContratosCliente.dfm */
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Plugin\ContratosCliente_plugin.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf13A.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf13C.tmp */
diff --git a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.drc b/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.drc
index 4efc44c3..bc50ccfc 100644
--- a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.drc	
+++ b/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.drc	
@@ -25,4 +25,4 @@ END
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\uEditorElegirArticulosContratoCliente.dfm */
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\uEditorContratosClienteReport.dfm */
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\ContratosCliente_view.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf138.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf13A.tmp */
diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk
index f978e75c..1abeaa2d 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk	
+++ b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk	
@@ -61,9 +61,9 @@ contains
   uEditorElegirArticulosPresupuestoCliente in 'uEditorElegirArticulosPresupuestoCliente.pas' {fEditorElegirArticulosPresupuestoCliente: TfEditorElegirArticulosPedidoCliente},
   uEditorPresupuestosClienteReport in 'uEditorPresupuestosClienteReport.pas' {fEditorPresupuestosClientePreview: TfEditorPedidosClientePreview},
   uViewDireccionEntregaPresupuestoCliente in 'uViewDireccionEntregaPresupuestoCliente.pas' {frViewDireccionEntregaPresupuestoCliente: TFrame},
-  uEditorFechaDecision in 'uEditorFechaDecision.pas' {fEditorFechaDecision: T},
   uViewDocumentosPresupuestoCliente in 'uViewDocumentosPresupuestoCliente.pas' {frViewDocumentosPresupuestoCliente: TFrame},
   uViewDatosYSeleccionClientePresupuesto in 'uViewDatosYSeleccionClientePresupuesto.pas' {frViewDatosYSeleccionClientePresupuesto: TFrame},
-  uEditorAsignarDescuento in 'uEditorAsignarDescuento.pas' {fEditorAsignarDescuento};
+  uEditorAsignarDescuento in 'uEditorAsignarDescuento.pas' {fEditorAsignarDescuento},
+  uEditorFechaDecisionPresupuesto in 'uEditorFechaDecisionPresupuesto.pas' {fEditorFechaDecisionPresupuesto};
 
 end.
diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj
index 92ea08d8..3426befd 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj	
+++ b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj	
@@ -49,29 +49,29 @@
     <DelphiCompile Include="PresupuestosCliente_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Lib\adortl.dcp" />
-    <DCCReference Include="..\..\Lib\Articulos_view.dcp" />
-    <DCCReference Include="..\..\Lib\Base.dcp" />
-    <DCCReference Include="..\..\Lib\cxDataD11.dcp" />
-    <DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
-    <DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
-    <DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\..\Lib\dbrtl.dcp" />
-    <DCCReference Include="..\..\Lib\dsnap.dcp" />
-    <DCCReference Include="..\..\Lib\dxComnD11.dcp" />
-    <DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
-    <DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" />
-    <DCCReference Include="..\..\Lib\GUIBase.dcp" />
-    <DCCReference Include="..\..\Lib\PreCli_ConCli_relation.dcp" />
-    <DCCReference Include="..\..\Lib\PresupuestosCliente_controller.dcp" />
-    <DCCReference Include="..\..\Lib\PresupuestosCliente_model.dcp" />
-    <DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\..\Lib\rtl.dcp" />
-    <DCCReference Include="..\..\Lib\vcl.dcp" />
-    <DCCReference Include="..\..\Lib\vcldb.dcp" />
-    <DCCReference Include="..\..\Lib\vcljpg.dcp" />
+    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\adortl.dcp" />
+    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\Articulos_view.dcp" />
+    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\Base.dcp" />
+    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\cxDataD11.dcp" />
+    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\cxEditorsD11.dcp" />
+    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\cxLibraryD11.dcp" />
+    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\dbrtl.dcp" />
+    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\dsnap.dcp" />
+    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\dxComnD11.dcp" />
+    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\dxLayoutControlD11.dcp" />
+    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\dxThemeD11.dcp" />
+    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\GestorInformes_controller.dcp" />
+    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\GUIBase.dcp" />
+    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\PreCli_ConCli_relation.dcp" />
+    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\PresupuestosCliente_controller.dcp" />
+    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\PresupuestosCliente_model.dcp" />
+    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\rtl.dcp" />
+    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\vcl.dcp" />
+    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\vcldb.dcp" />
+    <DCCReference Include="..\..\Relaciones\Presupuestos de cliente - Contratos de cliente\vcljpg.dcp" />
     <DCCReference Include="uEditorAsignarDescuento.pas">
       <Form>fEditorAsignarDescuento</Form>
     </DCCReference>
@@ -83,9 +83,8 @@
       <Form>fEditorElegirPresupuestosCliente</Form>
       <DesignClass>TfEditorElegirPedidosCliente</DesignClass>
     </DCCReference>
-    <DCCReference Include="uEditorFechaDecision.pas">
-      <Form>fEditorFechaDecision</Form>
-      <DesignClass>T</DesignClass>
+    <DCCReference Include="uEditorFechaDecisionPresupuesto.pas">
+      <Form>fEditorFechaDecisionPresupuesto</Form>
     </DCCReference>
     <DCCReference Include="uEditorPresupuestoCliente.pas">
       <Form>fEditorPresupuestoCliente</Form>
diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.res b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.res
index 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644
GIT binary patch
literal 4748
zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg
zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?<w4U-ol;S2jC7
zx4(byej2@_#)0HWvg0i^wC4Xli+W*aXJ^(njceK|Kb@c3qFNX>p${kR>3GhM`oH*q
zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W
zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7
z{BT%G%irdMe*|oDJmgvJ<ltI;x5J<Oc>aA2`9B<Z5Toyra?r{a4$fnJHGXo6Pmcq8
z{JGCD500t1h4|yI?-f&xoj9;YT&Ch&JLO*X#NC3sCI0Xmc<f_vh`jn-1E!?th$%QM
znzGM|)$vl3f7;nE+9qR}|A?C$H3K&BFdq9?uxrIqHIne#5?8G@da2ybWLGKA686M2
z*LJMMMk4<U`dzFC9}HrSxLfOGll{P#??xir)$c2}C;ql+y-&Wa(LP{PgPk1E1@{uR
zIMCNz;u9;r(axhQvEx%?i#p<Vn=Z!SK%f10?4_`0@RY8lXRM3(t(nFSzJ$4kJr6&x
ze)~B%biu*TY$HDstHD=|UGxJceYiUQQa0Gu(p3og@%ZJ><6Xi*?M~Q;)@Sbfwf3uf
zVaWkbU<NjR3%=~AdoZbkXp`f@b0%GBT^$^V5e(n|#O(?P)hBbF)4n%2cw6U#adPM!
zz(!`V|Bfl{aH0)Y&w;SK7R4<z{p;Gwz1D%l86L3ZFZQ&=pB$<&esXT|OZ?=AGaWoe
z{>jU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv
zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N|
z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc
z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0
zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38=
zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W
zVvPDBKHh;i=RU4J_ta3E;)M<P+=2X7;VbzliQZ=IHV#+fr#{!(ukt%UJMS8=332qg
z7jD)rSbpCW+^j*cd6LUEe8#9n&v!NEJM(@?SHvB$=h@|)fjw|&qD?NQ5A&R>n>Y+L
zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m
z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJu<OVP
zzHjp+hnwo*3NQE$JTA(agu~silV5T`du+GJgWGi_7mAy`Nk8fLt~%GF$;XXcE-ri?
zyIglyyzA`K-);4Eem2MZm07RBza@W3UP)d`Rz=RFk-I);`s{$L%yyBNX0OTjo5Gk0
zs}g44uXg*l%xo^{`#0=kd*2?}Cz22Bv2;Gu?;3o~(D#gk1OKYQSCAb$(&vu@_pvWO
z>gbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T
z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC
zy(^m((;DnQmDQ<zX+PK(Lfu@ox#mOnbZjSDl}IBqv$qwK+2@))5$ba>Katmw!@c`|
G?EMQ&4NnpP

delta 11
ScmeBCZD5|Duvteife`=|>;pCc

diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorFechaDecision.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorFechaDecision.dfm
deleted file mode 100644
index 71aee817..00000000
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorFechaDecision.dfm	
+++ /dev/null
@@ -1,60 +0,0 @@
-object fEditorFechaDecision: TfEditorFechaDecision
-  Left = 0
-  Top = 0
-  BorderIcons = [biSystemMenu]
-  Caption = 'Fecha de decisi'#243'n'
-  ClientHeight = 146
-  ClientWidth = 279
-  Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
-  FormStyle = fsStayOnTop
-  OldCreateOrder = False
-  Position = poMainFormCenter
-  OnShow = FormShow
-  PixelsPerInch = 96
-  TextHeight = 13
-  object Label1: TLabel
-    Left = 8
-    Top = 16
-    Width = 257
-    Height = 13
-    Caption = 'Establezca la fecha de decisi'#243'n para los presupuestos'
-  end
-  object edtFechaDecision: TcxDateEdit
-    Left = 56
-    Top = 48
-    Style.LookAndFeel.Kind = lfStandard
-    Style.LookAndFeel.NativeStyle = True
-    StyleDisabled.LookAndFeel.Kind = lfStandard
-    StyleDisabled.LookAndFeel.NativeStyle = True
-    StyleFocused.LookAndFeel.Kind = lfStandard
-    StyleFocused.LookAndFeel.NativeStyle = True
-    StyleHot.LookAndFeel.Kind = lfStandard
-    StyleHot.LookAndFeel.NativeStyle = True
-    TabOrder = 0
-    Width = 169
-  end
-  object bAceptar: TButton
-    Left = 109
-    Top = 113
-    Width = 75
-    Height = 25
-    Caption = 'Aceptar'
-    ModalResult = 1
-    TabOrder = 1
-  end
-  object bCancelar: TButton
-    Left = 190
-    Top = 113
-    Width = 75
-    Height = 25
-    Cancel = True
-    Caption = 'Cancelar'
-    ModalResult = 2
-    TabOrder = 2
-  end
-end
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorFechaDecision.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorFechaDecision.pas
deleted file mode 100644
index 267598de..00000000
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorFechaDecision.pas	
+++ /dev/null
@@ -1,35 +0,0 @@
-unit uEditorFechaDecision;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, cxControls, cxContainer,
-  cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar;
-
-type
-  TfEditorFechaDecision = class(TForm)
-    Label1: TLabel;
-    edtFechaDecision: TcxDateEdit;
-    bAceptar: TButton;
-    bCancelar: TButton;
-    procedure FormShow(Sender: TObject);
-  private
-    { Private declarations }
-  public
-    { Public declarations }
-  end;
-
-var
-  fEditorFechaDecision: TfEditorFechaDecision;
-
-implementation
-
-{$R *.dfm}
-
-procedure TfEditorFechaDecision.FormShow(Sender: TObject);
-begin
-  edtFechaDecision.Date := now;
-end;
-
-end.
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorFechaDecisionPresupuesto.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorFechaDecisionPresupuesto.dfm
new file mode 100644
index 00000000..667feeef
--- /dev/null
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorFechaDecisionPresupuesto.dfm	
@@ -0,0 +1,87 @@
+inherited fEditorFechaDecisionPresupuesto: TfEditorFechaDecisionPresupuesto
+  ActiveControl = edtFechaDecision
+  Caption = 'Establecer la fecha de decisi'#243'n del presupuesto:'
+  ClientHeight = 227
+  ClientWidth = 411
+  ExplicitWidth = 417
+  ExplicitHeight = 259
+  PixelsPerInch = 96
+  TextHeight = 13
+  inherited Bevel2: TBevel
+    Width = 411
+    ExplicitWidth = 411
+  end
+  inherited Bevel3: TBevel
+    Top = 183
+    Width = 411
+    ExplicitTop = 183
+    ExplicitWidth = 411
+  end
+  inherited pnlBotones: TPanel
+    Top = 185
+    Width = 411
+    ExplicitTop = 185
+    ExplicitWidth = 411
+    inherited btnAceptar: TButton
+      Left = 248
+      Top = 9
+      ExplicitLeft = 248
+      ExplicitTop = 9
+    end
+    inherited btnCancelar: TButton
+      Left = 327
+      Top = 9
+      ExplicitLeft = 327
+      ExplicitTop = 9
+    end
+  end
+  inherited pnlHeader: TPanel
+    Width = 411
+    ExplicitWidth = 411
+    inherited lblTitle: TLabel
+      Width = 361
+      Caption = 'Establecer la fecha de decisi'#243'n del presupuesto:'
+      ExplicitWidth = 269
+    end
+    inherited lblComments: TLabel
+      Width = 336
+      Height = 27
+      Caption = 
+        'Indique el d'#237'a en el cual el cliente acept'#243' o rechaz'#243' el presupu' +
+        'esto.'
+      ExplicitWidth = 321
+    end
+  end
+  inherited pnlCuerpo: TPanel
+    Width = 411
+    Height = 117
+    ExplicitWidth = 411
+    ExplicitHeight = 117
+    object Label1: TLabel
+      Left = 97
+      Top = 48
+      Width = 33
+      Height = 13
+      Caption = 'Fecha:'
+    end
+    object edtFechaDecision: TDateTimePicker
+      Left = 137
+      Top = 44
+      Width = 186
+      Height = 21
+      Date = 40115.680976192130000000
+      Time = 40115.680976192130000000
+      TabOrder = 0
+    end
+  end
+  inherited ActionListDialog: TActionList
+    Left = 296
+    Top = 56
+    inherited actAceptar: TAction
+      OnExecute = actAceptarExecute
+    end
+    inherited actCancelar: TAction
+      OnExecute = actCancelarExecute
+    end
+  end
+end
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorFechaDecisionPresupuesto.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorFechaDecisionPresupuesto.pas
new file mode 100644
index 00000000..198fe517
--- /dev/null
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorFechaDecisionPresupuesto.pas	
@@ -0,0 +1,67 @@
+unit uEditorFechaDecisionPresupuesto;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls, ComCtrls;
+
+type
+  TfEditorFechaDecisionPresupuesto = class(TfDialogBase)
+    edtFechaDecision: TDateTimePicker;
+    Label1: TLabel;
+    procedure actAceptarExecute(Sender: TObject);
+    procedure actCancelarExecute(Sender: TObject);
+  private
+    function GetDate: TDate;
+    procedure SetDate(const Value: TDate);
+  public
+    property Fecha : TDate read GetDate write SetDate;
+  end;
+
+function ElegirFechaDecisionPresupuesto(var AFecha : TDate): Boolean;
+
+
+implementation
+
+{$R *.dfm}
+
+function ElegirFechaDecisionPresupuesto(var AFecha : TDate): Boolean;
+var
+  AEditor : TfEditorFechaDecisionPresupuesto;
+begin
+  AEditor := TfEditorFechaDecisionPresupuesto.Create(NIL);
+  try
+    AEditor.Fecha := AFecha;
+    Result := (AEditor.ShowModal = mrOk);
+    if Result then
+      AFecha := AEditor.Fecha;
+  finally
+    AEditor.Release;
+  end;
+end;
+
+
+procedure TfEditorFechaDecisionPresupuesto.actAceptarExecute(Sender: TObject);
+begin
+  inherited;
+  ModalResult := mrOK;
+end;
+
+procedure TfEditorFechaDecisionPresupuesto.actCancelarExecute(Sender: TObject);
+begin
+  inherited;
+  ModalResult := mrCancel;
+end;
+
+function TfEditorFechaDecisionPresupuesto.GetDate: TDate;
+begin
+  Result := edtFechaDecision.Date;
+end;
+
+procedure TfEditorFechaDecisionPresupuesto.SetDate(const Value: TDate);
+begin
+  edtFechaDecision.Date := Value;
+end;
+
+end.
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm
index ff76b5fb..140f2cb5 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm	
+++ b/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
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
index 52f898d0..1900b57f 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas	
@@ -80,6 +80,8 @@ type
     procedure PrevisualizarInterno; override;
     procedure RefrescarInterno; override;
 
+    procedure CambiarSituacion(const ASituacion : String);
+
     //Si queremos crear otra vista para el editor heredado solo tendriamos que
     //sobreescribir este metodo
     procedure AsignarVista; virtual;
@@ -98,16 +100,8 @@ uses
   uDataModulePresupuestosCliente, uDataModuleUsuarios, uFactuGES_App,
   uEditorBase, uEditorDBBase, uDialogUtils, Dialogs,
   uDBSelectionListUtils, uGridUtils,
-//  uGridStatusUtils,
   uGenerarContratosCliUtils,
-
-
-
-  uEditorFechaDecision,
-//  uBizAlbaranesCliente, uAlbaranesClienteController,
-//  uFacturasClienteController, uBizFacturasCliente,
-//  uGenerarAlbaranesCliUtils,
-uGestorInformesController;
+  uGestorInformesController, uEditorFechaDecisionPresupuesto;
 
 
 {$R *.dfm}
@@ -116,46 +110,8 @@ uGestorInformesController;
 *************************** TfEditorPresupuestosCliente ***************************
 }
 procedure TfEditorPresupuestosCliente.actAceptarExecute(Sender: TObject);
-var
-  APresupuestos: IBizPresupuestoCliente;
-  AllItems: Boolean;
-  AFecha: Variant;
 begin
-  APresupuestos := Nil;
-  AllItems := False;
-
-  //Pedimos fecha de decision y realizamos todo el proceso de asignacion, en el caso de no darla no se hace nada
-  AFecha := Null;
-  with TfEditorFechaDecision.Create(nil) do
-  try
-    if ShowModal = mrOk then
-       AFecha := edtFechaDecision.Date;
-  finally
-    Free;
-  end;
-
-  if not VarIsNull(AFecha) then
-  begin
-    if MultiSelect and Assigned(ViewGrid) then
-       AllItems :=  (ViewGrid.NumSeleccionados > 1);
-
-    if AllItems then
-    begin
-      SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Presupuestos as ISeleccionable).SelectedRecords);
-      APresupuestos := (Controller as IPresupuestosClienteController).ExtraerSeleccionados(Presupuestos) as IBizPresupuestoCliente;
-    end
-    else begin
-      APresupuestos := Presupuestos;
-    end;
-
-    ViewGrid._Grid.BeginUpdate;
-    if Assigned(APresupuestos) then
-    begin
-      FController.CambiarSituacion(APresupuestos, SITUACION_PRESUPUESTO_ACEPTADO, AFecha, AllItems);
-      actRefrescar.Execute;
-    end;
-    ViewGrid._Grid.EndUpdate;
-  end;
+  CambiarSituacion(SITUACION_PRESUPUESTO_ACEPTADO);
 end;
 
 procedure TfEditorPresupuestosCliente.actAceptarUpdate(Sender: TObject);
@@ -167,46 +123,8 @@ begin
 end;
 
 procedure TfEditorPresupuestosCliente.actAnularExecute(Sender: TObject);
-var
-  APresupuestos: IBizPresupuestoCliente;
-  AllItems: Boolean;
-  AFecha: Variant;
 begin
-  APresupuestos := Nil;
-  AllItems := False;
-
-  //Pedimos fecha de decision y realizamos todo el proceso de asignacion, en el caso de no darla no se hace nada
-  AFecha := Null;
-  with TfEditorFechaDecision.Create(nil) do
-  try
-    if ShowModal = mrOk then
-       AFecha := edtFechaDecision.Date;
-  finally
-    Free;
-  end;
-
-  if not VarIsNull(AFecha) then
-  begin
-    if MultiSelect and Assigned(ViewGrid) then
-       AllItems :=  (ViewGrid.NumSeleccionados > 1);
-
-    if AllItems then
-    begin
-      SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Presupuestos as ISeleccionable).SelectedRecords);
-      APresupuestos := (Controller as IPresupuestosClienteController).ExtraerSeleccionados(Presupuestos) as IBizPresupuestoCliente;
-    end
-    else begin
-      APresupuestos := Presupuestos;
-    end;
-
-    ViewGrid._Grid.BeginUpdate;
-    if Assigned(APresupuestos) then
-    begin
-      FController.CambiarSituacion(APresupuestos, SITUACION_PRESUPUESTO_ANULADO, AFecha, AllItems);
-      actRefrescar.Execute;
-    end;
-    ViewGrid._Grid.EndUpdate;
-  end;
+  CambiarSituacion(SITUACION_PRESUPUESTO_ANULADO);
 end;
 
 procedure TfEditorPresupuestosCliente.actAnularUpdate(Sender: TObject);
@@ -271,10 +189,39 @@ begin
 end;
 
 procedure TfEditorPresupuestosCliente.actGenerarContratoExecute(Sender: TObject);
+var
+  APresupuestos: IBizPresupuestoCliente;
+  AllItems: Boolean;
 begin
   inherited;
-  GenerarContratoCli(Presupuestos.ID);
-  actRefrescar.Execute;
+  APresupuestos := Nil;
+  AllItems := False;
+
+  if MultiSelect and Assigned(ViewGrid) then
+     AllItems :=  (ViewGrid.NumSeleccionados > 1);
+
+  if AllItems then
+  begin
+    SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Presupuestos as ISeleccionable).SelectedRecords);
+    APresupuestos := (Controller as IPresupuestosClienteController).ExtraerSeleccionados(Presupuestos) as IBizPresupuestoCliente;
+
+    with APresupuestos.DataTable do
+    begin
+      First;
+      while not EOF do
+      begin
+        GenerarContratoCli(APresupuestos.ID, False);
+        Next;
+      end;
+    end;
+    actRefrescar.Execute;
+    ShowInfoMessage('Se han generado los contratos');
+  end
+  else begin
+    APresupuestos := Self.Presupuestos;
+    GenerarContratoCli(APresupuestos.ID);
+    actRefrescar.Execute;
+  end;
 end;
 
 procedure TfEditorPresupuestosCliente.actGenerarContratoUpdate(Sender: TObject);
@@ -317,6 +264,64 @@ begin
   ViewGrid := CreateView(TfrViewPresupuestosCliente) as IViewPresupuestosCliente;
 end;
 
+procedure TfEditorPresupuestosCliente.CambiarSituacion(
+  const ASituacion: String);
+var
+  APresupuestos: IBizPresupuestoCliente;
+  AllItems: Boolean;
+  AFecha: TDate;
+  AMensaje : String;
+  ATitulo : String;
+begin
+  APresupuestos := Nil;
+  AllItems := False;
+
+  //Pedimos fecha de decision y realizamos todo el proceso de asignacion, en el caso de no darla no se hace nada
+  AFecha := Now;
+  if ElegirFechaDecisionPresupuesto(AFecha) then
+  begin
+    if MultiSelect and Assigned(ViewGrid) then
+       AllItems :=  (ViewGrid.NumSeleccionados > 1);
+
+    if AllItems then
+    begin
+      SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Presupuestos as ISeleccionable).SelectedRecords);
+      APresupuestos := (Controller as IPresupuestosClienteController).ExtraerSeleccionados(Presupuestos) as IBizPresupuestoCliente;
+    end
+    else begin
+      APresupuestos := Presupuestos;
+    end;
+
+    if Assigned(APresupuestos) then
+    begin
+      ViewGrid._Grid.BeginUpdate;
+      try
+        FController.CambiarSituacion(APresupuestos, ASituacion, AFecha, AllItems);
+        actRefrescar.Execute;
+      finally
+        ViewGrid._Grid.EndUpdate;
+      end;
+
+      if ASituacion = SITUACION_PRESUPUESTO_ACEPTADO then
+      begin
+        // ¿Generar el contrato?
+        if AllItems then
+        begin
+          AMensaje := 'Los presupuestos han sido aceptados';
+          ATitulo := '¿Desea generar ahora los contratos?'
+        end
+        else begin
+          AMensaje := 'El presupuesto han sido aceptado';
+          ATitulo := '¿Desea generar ahora el contrato?';
+        end;
+
+        if (ShowConfirmMessage(ATitulo, AMensaje) = IDYES) then
+          actGenerarContrato.Execute;
+      end;
+    end;
+  end;
+end;
+
 constructor TfEditorPresupuestosCliente.Create(AOwner: TComponent);
 begin
   inherited;
diff --git a/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas b/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas
index 7ecc6383..c01acfe6 100644
--- a/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas	
+++ b/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas	
@@ -11,8 +11,9 @@ type
     JsListaContratosGenerados: TJSDialog;
   end;
 
-  function GenerarContratoCli(const IDPresupuesto : Integer) : Boolean; overload;
-  function GenerarContratoCli(APresupuesto : IBizPresupuestoCliente; var AContrato: IBizContratoCliente) : Boolean; overload;
+  function GenerarContratoCli(const IDPresupuesto : Integer; const APreguntaMostrarContrato : Boolean = True) : Boolean; overload;
+  function GenerarContratoCli(APresupuesto : IBizPresupuestoCliente; var AContrato: IBizContratoCliente;
+    const APreguntaMostrarContrato : Boolean = True) : Boolean; overload;
 //  function ElegirPedidoYGenerarAlbaranCli(var IDAlbaran: Integer) : Boolean;
 
 implementation
@@ -35,6 +36,34 @@ var
   AClientesController : IClientesController;
 
 { Métodos auxiliares }
+procedure PreguntarMostrarContrato(AContrato : IBizContratoCliente);
+var
+  ARespuesta : Integer;
+begin
+  if not Assigned(AContrato) then
+    raise Exception.Create ('Contrato no asignado (PreguntaSiMostrarContrato)');
+
+  with dmGenerarContratosCli.JsListaContratosGenerados do
+  begin
+    Instruction.Text := 'Se ha generado el contrato';
+
+    Content.Clear;
+    Content.Add(Format('Se ha generado correctamente el contrato %s a partir del presupuesto de cliente' + #10#13,
+      [AContrato.REFERENCIA]));
+    Execute;
+
+    ARespuesta := CustomButtonResult;
+    case ARespuesta of
+      100 : begin
+              // Ver el albarán
+              AContratosClienteController.Ver(AContrato);
+            end;
+      200 : // Continuar;
+    end;
+  end;
+end;
+
+
 procedure CopiarPresupuestoAContrato(APresupuesto: IBizPresupuestoCliente;
   AContrato : IBizContratoCliente);
 var
@@ -180,7 +209,7 @@ begin
 end;
 
 
-function GenerarContratoCli(const IDPresupuesto : Integer) : Boolean; overload;
+function GenerarContratoCli(const IDPresupuesto : Integer; const APreguntaMostrarContrato : Boolean = True) : Boolean; overload;
 var
   APresupuesto : IBizPresupuestoCliente;
   AContrato : IBizContratoCliente;
@@ -200,12 +229,8 @@ begin
   end;
 end;
 
-function GenerarContratoCli(APresupuesto : IBizPresupuestoCliente; var AContrato: IBizContratoCliente) : Boolean; overload;
-var
-  ARespuesta : Integer;
-
+function GenerarContratoCli(APresupuesto : IBizPresupuestoCliente; var AContrato: IBizContratoCliente; const APreguntaMostrarContrato : Boolean = True) : Boolean; overload;
 begin
-  Result := False;
   AContrato := NIL;
 
   if not Assigned(APresupuesto) then
@@ -231,23 +256,9 @@ begin
       APresupuesto.Post;
       APresupuestosClienteController.Guardar(APresupuesto);
 
-      with dmGenerarContratosCli.JsListaContratosGenerados do
-      begin
-        Instruction.Text := 'Se ha generado el contrato';
+      if APreguntaMostrarContrato then
+        PreguntarMostrarContrato(AContrato);
 
-        Content.Clear;
-        Content.Add(Format('Se ha generado correctamente el contrato %s a partir del presupuesto de cliente' + #10#13, [AContrato.REFERENCIA]));
-        Execute;
-
-        ARespuesta := CustomButtonResult;
-        case ARespuesta of
-          100 : begin
-                  // Ver el albarán
-                  AContratosClienteController.Ver(AContrato);
-                end;
-          200 : // Continuar;
-        end;
-      end;
     end;
 
     Result := True;
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 98f03ef4293ce67296e13a496ca5a66a3442995e..a71951bee7d8da05a89d6aaea3d529a7f56bd34b 100644
GIT binary patch
delta 45
zcmdn8jd9C1#tkc?gtHh*8B!U_fVh}Jhe3hCh{1C5?kH_`QwA#r69&V{Z=>7+K@1GE

delta 45
zcmdn8jd9C1#tkc?gmW1Z8HyN67*ZLE8FUyF7>pRqC-08ZX18RpVlZYfnfx}&9RNT~
B46*<K

diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index 81baeefb..78183348 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -16,7 +16,7 @@ BEGIN
               VALUE "FileVersion", "2.3.7.0\0"
               VALUE "ProductName", "FactuGES (Servidor)\0"
               VALUE "ProductVersion", "2.3.7.0\0"
-              VALUE "CompileDate", "martes, 27 de octubre de 2009 19:34\0"
+              VALUE "CompileDate", "jueves, 29 de octubre de 2009 15:41\0"
          END
     END
     BLOCK "VarFileInfo"