From 9d458fb678bbe03bde2ce2a1cb028ea7c1f7e8a5 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Tue, 8 Jan 2008 10:31:12 +0000
Subject: [PATCH] Repaso a presupuestos: - Activado duplicar por que ya duplica
 los registros del contenido. - Arreglado un problema de autorefresco en el
 grid.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@208 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 .../Presupuestos/16x16/Budget_incidencia.png  | Bin 0 -> 3234 bytes
 .../uPresupuestosClienteController.pas        |   1 +
 .../Data/uDataModulePresupuestosCliente.dfm   |   3 +
 .../Servidor/srvPresupuestosCliente_Impl.dfm  |   5 +-
 .../Views/PresupuestosCliente_view.dpk        |   2 +-
 .../Views/PresupuestosCliente_view.dproj      |  59 +++++-------------
 .../Views/PresupuestosCliente_view.res        | Bin 4748 -> 384 bytes
 .../Views/uEditorPresupuestosCliente.dfm      |   6 +-
 .../Views/uViewPresupuestosCliente.dfm        |  11 ++--
 .../Views/uViewPresupuestosCliente.pas        |  10 +++
 10 files changed, 41 insertions(+), 56 deletions(-)
 create mode 100644 Resources/Iconos/Presupuestos/16x16/Budget_incidencia.png

diff --git a/Resources/Iconos/Presupuestos/16x16/Budget_incidencia.png b/Resources/Iconos/Presupuestos/16x16/Budget_incidencia.png
new file mode 100644
index 0000000000000000000000000000000000000000..3c0d45b9b72e1942213b7ba4fdbc84c03f33187e
GIT binary patch
literal 3234
zcmV;T3|;eyP)<h;3K|Lk000e1NJLTq000mG000mO1^@s6AM^iV00009a7bBm000*f
z000*f0cW4mQUCx7PiaF#P*7-ZbZ>KLZ*U+<Lqi~Na&Km7Y-Iodc-oy)XH-+^7Crag
z^g>IBfRsybQWXdwQbLP>6p<z>Aqfylh#{fb6;Z(vMMVS~$e@S=j*ftg6;Uh<iVD~V
z<RPMtgQJLw%KPDaqifc@_vX$1wbwr9tn;0-&j-K=43<bUQ8j=JsX`tR;Dg7+#^K~H
zK!FM*Z~zbpvt%K2{UZSY_<lS*D<Z%Lz5oGu(+dayz)hRLFdT>f59&ghTmgWD0l;*T
zI7<kC6aYYajzXpYKt=(8otP$50H6c_V9R4-;{Z@C0AMG7=F<Rxo%or10RUT+Ar%3j
zkpLhQWr#!oXgdI`&sK^>09Y^p6lP1rIRMx#05C~cW=H_Aw*bJ-5DT&Z2n+x)QHX^p
z00esgV8|mQcmRZ%02D^@S3L16t`O%c004NIvOKvYIYoh62rY33S640`D9%Y2D-<?i
z0%4j!F2Z@488U%158(66005wo6%pWr^Zj_v4zAA5HjcIqUoGmt2LB>rV&neh&#Q1i
z007~1e$oCcFS8neI|hJl{-P!B1ZZ9hpmq0)X0i`JwE&>$+E?>%_<lS*MWK+n+1cgf
z<k(8YLR(?VSAG6x!e78w{cQPuJpA|d;J)G{fihizM+Erb!p!tcr5w+a34~(Y=8s4G
zw+sLL9n&JjNn*KJDiq^U5^;`1nvC-@r6P$!k}1U{(*I=Q-z@tBKHoI}uxdU5dyy@u
zU1J0GOD7Ombim^G008p4Z^6_k2m^p<gW=D2|L;HjN1!DDfM!XOaR2~bL?kX$%CkSm
z2mk;?pn)o|K^yeJ7%adB9Ki+L!3+FgHiSYX#KJ-lLJDMn9CBbOtb#%)hRv`YDqt_v
zKpix|QD}yfa1JiQRk#j4a1Z)n2%f<xynzV>LC6RbVIkUx0b+_+BaR3cnT7Zv!AJxW
zizFb)h!jyGOOZ85F;a?DAXP{m@;!0_Ifq<Ex{*7`05XF7hP+2Hl!3BQJ=6@fL%FCo
z8iYoo3(#bAF`ADSpqtQgv>H8(HlgRxt7s3}k3K`kFu>>-2Q$QMFfPW!La{h336o>X
zu_CMttHv6zR;&ZNiS=X8v3CR#fknUxHUxJ<AYmRsNLWl*PS{AOARHt#5!wki2?K;t
z!Y3k=s7tgax)J%r7-BLphge7~Bi0g+6E6^Zh(p9TBoc{3GAFr^0!gu?RMHaCM$&Fl
zBk3%un>0uoBa_M6WNWeqIg~6QE69c9o#eyhGvpiOA@W-aonk<7r1(?fC{oI5N*U!4
z<uv66WtcKSRim0x-Ke2d5jBrmLam{;Qm;{ms1r1GnmNsb7D-E`t)i9F8fX`2_i3-_
zbh;7Ul^#x)&{xvS=|||7=mYe33=M`AgU5(xC>fg=2N-7=cNnjjOr{yriy6mMFgG#l
znCF=fnQv8CDz++o6_Lscl}eQ+l^ZHARH>?_s@|##Rr6KLRFA1%Q+=*RRWnoLsR`7U
zt5vF<Q0r40Q)j6=sE4X&sBct1q<&fbi3VB2Ov6t@q*0);U*o*SAPZv|vv@2aYYnT0
zb%8a+Cb7-ge0D0knEf5Qi#@8Tp*ce{N;6lpQuCB%KL_KOarm5cP6_8Ir<e17iry6O
zDdH&`rZh~sF=bq9s+O0QSgS~@QL9Jmy*94xr=6y~MY~!1fet~(N+(<=M`w@D1)b+p
z*;C!83a1uLJv#NSE~;y#8=<>IcfW3@?wFpwUVxrVZ>QdQz32KIeJ}k~{cZZE^+ya?
z2D1z#2HOnI7(B%_ac?{wFUQ;QQA1tBKtrWrm0_3Rgps+?Jfqb{jYbcQX~taRB;#$y
zZN{S}1|}gUOHJxc?wV3fxuz+mJ4`!F$IZ;mqRrNsHJd##*D~ju=bP7?-?v~|cv>vB
zsJ6IeNwVZxrdjT`yl#bBIa#GxRa#xMMy;K#CDyyGyQdMSxlWT#tDe?p!?5wT$+oGt
z8L;Kp2HUQ-ZMJ=3XJQv;x5ci*?vuTfeY$;({XGW_huIFR9a<fJbF^|4I#xQ~n$Dc=
zKYhjYmgz5NSkDm8*fZm{6U!;YX`NG>(?@3)XSs8O^N5RyOM=TTmp(3=8^+zpz2r)C
z^>JO{deZfso3oq3?Wo(Y?l$ge?uXo;%ru`Vo>?<<(8I_>;8Eq#KMS9gFl*neeosSB
zfoHYnBQIkwkyowPu(zdms`p{<7e4kra-ZWq<2*OsGTvEV%s0Td$hXT+!*8Bnh2KMe
zBmZRodjHV?r+_5^X9J0WL4jKW`}lf%A-|44I@@LTvf1rHjG(ze6+w@Jt%Bvjts!X0
z?2xS?_ve_-k<Mujg;0Lz*3buG=3$G&ehepthlN*$KaOySSQ^nWmo<0M+(UEUMEXRQ
zMBbZcF;6+KElM>iKB_KiJlZ$9G`c^=E@oNG)mWWaNo-3TIW8)$Hg0Ub-~8?KhvJ>$
z3*&nim@mj(aCxE5!t{lw7O5^0EIO7zOo&c6l<+|iDySBWCGrz@C5{St!X3hAA}`T4
z(TLbXTq+(;@<=L8dXnssyft|w#WSTW<++3>sgS%(4NTpeI-VAqb|7ssJvzNHgOZVu
zaYCvgO_R1~>SyL=cFU|~g|hy|Zi}}s9+d~lYqOB71z9Z$wnC=pR9Yz4DhIM>Wmjgu
z&56o6maCpC&F##y%G;1PobR9i?GnNg;gYtchD%p19a!eQtZF&3JaKv33gZ<8D~47E
ztUS1iwkmDaPpj=$m#%)jCVEY4fnLGNg2A-`YwHVD3gv};>)hAvT~AmqS>Lr``i7kw
zJ{5_It`yrBmlc25DBO7E8;5VoznR>Ww5hAaxn$2~(q`%A-YuS64wkBy=9dm`4cXeX
z4c}I@?e+FW+b@^RDBHV(wnMq2zdX3SWv9u`%{xC-q*U}&`cyXV(%rRT*Z6MH?i+i&
z_B8C(+grT%{XWUQ+f@NoP1R=AW&26{v-dx)iK^-Nmiuj8txj!m?Z*Ss1N{dh4z}01
z)YTo*JycSU)+_5r4#yw9{+;i4Ee$peRgIj+;v;ZGdF1K$3E%e~4LaI(jC-u%2h$&R
z9cLXcYC@Xwnns&bn)_Q~Te?roKGD|d-g^8;+aC{{G(1^(O7m37Y1-+6)01cN&y1aw
zoqc{T`P^XJqPBbIW6s}d4{z_f5Om?vMgNQEJG?v2T=KYd^0M3I6IZxbny)%vZR&LD
zJpPl@Psh8QyPB@KTx+@RdcC!KX7}kEo;S|j^u2lU7XQ}Oo;f|;z4Ll+_r>@1-xl3|
zawq-H%e&ckC+@AhPrP6BK<z=<L*0kfKU@CX*zeqbYQT4(^U>T#_XdT7&;F71j}Joy
zkC~6lh7E@6o;W@^IpRNZ{ptLtL(gQ-CY~4mqW;US7Zxvm_|@yz&e53Bp_lTPlfP|z
zrTyx_>lv@x#=^!PzR7qqF<$gm`|ZJZ+;<)Cqu&ot<a{81DF0~rvGr5Xr~8u`lav1h
z1DNytV>2z=0000WV@Og>004R=004l4008;_004mL004C`008P>0026e000+nl3&F}
z0005aNkl<Zc-owky=#+E6vltixJiwmgNrE*I7Amgi%Uwx&^E!UXmPNJ9UK%CL=cPi
z4{*@QLZ{MV5eG|Y@e`{gY6F5*8i)FU!YwM8LAW7O-+J$Rk3(okLf#C0w#zxsbAIQ-
z35f_JlTU?p=)&pV5F*0uJ5MA?<>C)fH!jKI(4Z`yJ0>f|pR(fplf6CXMMMbKCZ@89
zx(Uw@zUKG%O(N~>L_JMODIQ)tN%8P-wI|$YXq48PsMhdihAmpLqufTZrrweO;FjJ7
zo(8QbX;}WF>+0b~LoJ09q40i~<zGugJphgL4b}B;X!g6QY=TrafwhjQ&2Pa2JdM&2
z>q@sK0C<*sg|!Z2eXg9ErEnxp#Dlp|nB%cHd|wDAa3XZ)y2#8YG1jMlp_{vhA^_x5
zJ2BR^Ca~5qd*B7e`WWjox#tn9yDYhPCn%>a-l}OHVEsyRW<FUhPQ)KDxYP&0^`3rU
zDwx1npXtuI>h1#{GFa;v?U=?Zyriv^r{mLK%vL`*V9ji7rRnUKqX3M3+($Gw!EOa+
ze?UO3d2O;WmG`$zW6UUsow<y25=?OaalZN4ZSQ2`wR<Rl&tIDdqzA69=c4&P0I~!M
UrJIq;I{*Lx07*qoM6N<$g4j+D5C8xG

literal 0
HcmV?d00001

diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
index 9bea3cee..94a94798 100644
--- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas	
@@ -270,6 +270,7 @@ begin
       USUARIO := AppFactuGES.UsuarioActivo.UserName;
       FECHA_PRESUPUESTO := DateOf(Now);
       INCIDENCIAS_ACTIVAS := 0;
+      DataTable.FieldByName('INCIDENCIAS').AsVariant := Null;
       REFERENCIA := '';
     end;
     Result.Post;
diff --git a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
index dd1eb816..c1f1e99a 100644
--- a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm	
+++ b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm	
@@ -76,6 +76,7 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
         DataType = datString
         Size = 15
         DisplayLabel = 'PresupuestosCliente_NIF_CIF'
+        ServerAutoRefresh = True
         DictionaryEntry = 'PresupuestosCliente_NIF_CIF'
       end
       item
@@ -83,6 +84,7 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
         DataType = datString
         Size = 255
         DisplayLabel = 'PresupuestosCliente_NOMBRE'
+        ServerAutoRefresh = True
         DictionaryEntry = 'PresupuestosCliente_NOMBRE'
       end
       item
@@ -90,6 +92,7 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
         DataType = datString
         Size = 255
         DisplayLabel = 'PedidosCliente_REFERENCIA_CLIENTE'
+        ServerAutoRefresh = True
         DictionaryEntry = 'PresupuestosCliente_REFERENCIA_CLIENTE'
       end
       item
diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
index cba8a404..56ec2de1 100644
--- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm	
+++ b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm	
@@ -180,18 +180,21 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
             Name = 'NIF_CIF'
             DataType = datString
             Size = 15
+            ServerAutoRefresh = True
             DictionaryEntry = 'PresupuestosCliente_NIF_CIF'
           end
           item
             Name = 'NOMBRE'
             DataType = datString
             Size = 255
+            ServerAutoRefresh = True
             DictionaryEntry = 'PresupuestosCliente_NOMBRE'
           end
           item
             Name = 'REFERENCIA_CLIENTE'
             DataType = datString
             Size = 255
+            ServerAutoRefresh = True
             DictionaryEntry = 'PresupuestosCliente_REFERENCIA_CLIENTE'
           end
           item
@@ -1208,7 +1211,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
     DeleteCommandName = 'Delete_PresupuestosCliente'
     UpdateCommandName = 'Update_PresupuestosCliente'
     ReferencedDataset = 'PresupuestosCliente'
-    ProcessorOptions = [poPrepareCommands]
+    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
     UpdateMode = updWhereKeyOnly
     Left = 184
     Top = 24
diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk
index 76faeac1..61d957ec 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk	
+++ b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk	
@@ -30,7 +30,7 @@ requires
   PresupuestosCliente_model,
   PresupuestosCliente_controller,
   Articulos_view;
-  
+
 contains
   uPresupuestosClienteViewRegister in 'uPresupuestosClienteViewRegister.pas',
   uEditorPresupuestosCliente in 'uEditorPresupuestosCliente.pas' {fEditorPresupuestosCliente: TfEditorPedidosCliente},
diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj
index 59622a93..296a1211 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj	
+++ b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj	
@@ -43,32 +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">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
       <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">Intraweb 8.0 Design Package for Borland Development Studio 2006</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
@@ -77,54 +51,49 @@
     <DelphiCompile Include="PresupuestosCliente_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="Articulos_view.dcp" />
-    <DCCReference Include="Articulos_viewvclrtl.dcp" />
-    <DCCReference Include="Base.dcp" />
-    <DCCReference Include="GUIBase.dcp" />
-    <DCCReference Include="PresupuestosCliente_controller.dcp" />
-    <DCCReference Include="PresupuestosCliente_model.dcp" />
-    <DCCReference Include="rtl.dcp" />
-    <DCCReference Include="rtlcontainsuPresupuestosClienteViewRegisterin.dcp" />
+    <DCCReference Include="..\..\..\Servidor\Articulos_view.dcp" />
+    <DCCReference Include="..\..\..\Servidor\Base.dcp" />
+    <DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
+    <DCCReference Include="..\..\..\Servidor\PresupuestosCliente_controller.dcp" />
+    <DCCReference Include="..\..\..\Servidor\PresupuestosCliente_model.dcp" />
     <DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas">
-      <DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>
       <Form>fEditorElegirArticulosPresupuestoCliente</Form>
+      <DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorElegirPresupuestosCliente.pas">
-      <DesignClass>TfEditorElegirPedidosCliente</DesignClass>
       <Form>fEditorElegirPresupuestosCliente</Form>
+      <DesignClass>TfEditorElegirPedidosCliente</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorPresupuestoCliente.pas">
-      <DesignClass>TfEditorPedidoCliente</DesignClass>
       <Form>fEditorPresupuestoCliente</Form>
+      <DesignClass>TfEditorPedidoCliente</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorPresupuestosCliente.pas">
-      <DesignClass>TfEditorPedidosCliente</DesignClass>
       <Form>fEditorPresupuestosCliente</Form>
+      <DesignClass>TfEditorPedidosCliente</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorPresupuestosClienteReport.pas">
-      <DesignClass>TfEditorPedidosClientePreview</DesignClass>
       <Form>fEditorPresupuestosClientePreview</Form>
+      <DesignClass>TfEditorPedidosClientePreview</DesignClass>
     </DCCReference>
     <DCCReference Include="uPresupuestosClienteViewRegister.pas" />
     <DCCReference Include="uViewDetallesPresupuestoCliente.pas">
-      <DesignClass>TFrame</DesignClass>
       <Form>frViewDetallesPresupuestoCliente</Form>
+      <DesignClass>TFrame</DesignClass>
     </DCCReference>
     <DCCReference Include="uViewDireccionEntregaPresupuestoCliente.pas" />
     <DCCReference Include="uViewElegirArticulosPresupuestosCliente.pas">
-      <DesignClass>TFrame</DesignClass>
       <Form>frViewElegirArticulosPresupuestosCliente</Form>
+      <DesignClass>TFrame</DesignClass>
     </DCCReference>
     <DCCReference Include="uViewPresupuestoCliente.pas">
-      <DesignClass>TFrame</DesignClass>
       <Form>frViewPresupuestoCliente</Form>
+      <DesignClass>TFrame</DesignClass>
     </DCCReference>
     <DCCReference Include="uViewPresupuestosCliente.pas">
-      <DesignClass>TFrame</DesignClass>
       <Form>frViewPresupuestosCliente</Form>
+      <DesignClass>TFrame</DesignClass>
     </DCCReference>
-    <DCCReference Include="vcl.dcp" />
-    <DCCReference Include="vclrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.res b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.res
index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644
GIT binary patch
delta 11
ScmeBCZD5|Duvteife`=|>;pCc

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

diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm
index c8de64f5..592842c3 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm	
@@ -124,7 +124,7 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
     Width = 674
     ExplicitWidth = 674
     inherited tbxMain: TTBXToolbar
-      ExplicitWidth = 561
+      ExplicitWidth = 632
     end
     inherited tbxMenu: TTBXToolbar
       ExplicitWidth = 674
@@ -163,10 +163,6 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
     inherited actImprimir: TAction
       Visible = True
     end
-    inherited actDuplicar: TAction
-      Enabled = False
-      Visible = False
-    end
     object actGenerarAlbaranCli: TAction
       Category = 'Acciones'
       Caption = 'Generar albar'#225'n de cliente'
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
index 2fe80a63..313dcfeb 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm	
@@ -37,11 +37,11 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
         DataBinding.FieldName = 'ID'
         OnCustomDrawCell = cxGridViewIDCustomDrawCell
         OnGetCellHint = cxGridViewIDGetCellHint
-        BestFitMaxWidth = 15
+        OnGetDisplayText = cxGridViewIDGetDisplayText
+        BestFitMaxWidth = 20
         MinWidth = 15
-        Options.HorzSizing = False
         VisibleForCustomization = False
-        Width = 15
+        Width = 20
         IsCaptionAssigned = True
       end
       object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
@@ -64,14 +64,17 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
         Properties.ShowDescriptions = False
         Visible = False
         BestFitMaxWidth = 20
+        MinWidth = 10
         Options.HorzSizing = False
         VisibleForCustomization = False
-        Width = 20
+        Width = 10
       end
       object cxGridViewINCIDENCIAS: TcxGridDBColumn
         DataBinding.FieldName = 'INCIDENCIAS'
         Visible = False
+        BestFitMaxWidth = 10
         VisibleForCustomization = False
+        Width = 20
       end
       object cxGridViewREFERENCIA: TcxGridDBColumn
         DataBinding.FieldName = 'REFERENCIA'
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas
index 4b808ae1..5d4127c9 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas	
@@ -68,6 +68,8 @@ type
       ARecord: TcxCustomGridRecord; ACellViewInfo: TcxGridTableDataCellViewInfo;
       const AMousePos: TPoint; var AHintText: TCaption;
       var AIsHintMultiLine: Boolean; var AHintTextRect: TRect);
+    procedure cxGridViewIDGetDisplayText(Sender: TcxCustomGridTableItem;
+      ARecord: TcxCustomGridRecord; var AText: string);
 
   private
     //Filtros relativos a la vista
@@ -234,6 +236,14 @@ begin
   end;
 end;
 
+procedure TfrViewPresupuestosCliente.cxGridViewIDGetDisplayText(
+  Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
+  var AText: string);
+begin
+  inherited;
+  AText := '';
+end;
+
 procedure TfrViewPresupuestosCliente.cxGridViewStylesGetContentStyle(Sender:
         TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem:
         TcxCustomGridTableItem; out AStyle: TcxStyle);