From 966daf425113a87f4c3df305ccb71e20d04e2cf4 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Mon, 1 Jul 2019 15:39:49 +0000
Subject: [PATCH] =?UTF-8?q?SE=20a=C3=B1ade=20la=20posibilidad=20de=20cambi?=
 =?UTF-8?q?ar=20la=20fecha=20de=20vencimiento=20de=20las=20facturas=20de?=
 =?UTF-8?q?=20proveedor=20que=20est=C3=A9n=20pendientes,=20mismo=20funcion?=
 =?UTF-8?q?amiento=20que=20asignar=20cuenta=20bancaria.=20solicitado=20por?=
 =?UTF-8?q?=20Maribel=20el=2010/01/2019?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1164 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 .../FacturasProveedor_controller.dpk          | Bin 1466 -> 1546 bytes
 .../FacturasProveedor_controller.dproj        |   1 +
 .../FacturasProveedor_controller.res          | Bin 384 -> 4748 bytes
 .../View/uIEditorElegirFechaVencimiento.pas   |  18 ++++
 .../uFacturasProveedorController.pas          |  49 +++++++++-
 .../FacturasProveedor_Group.groupproj         |  24 ++---
 .../Views/FacturasProveedor_view.dpk          |   3 +-
 .../Views/FacturasProveedor_view.dproj        |  69 +++++++------
 .../Views/FacturasProveedor_view.res          | Bin 384 -> 4748 bytes
 .../Views/uEditorElegirFechaVencimiento.dfm   |  91 ++++++++++++++++++
 .../Views/uEditorElegirFechaVencimiento.pas   |  52 ++++++++++
 .../Views/uEditorFacturasProveedor.dfm        |  10 +-
 .../Views/uEditorFacturasProveedor.pas        |  48 +++++++++
 .../Views/uFacturasProveedorViewRegister.pas  |   3 +-
 .../Model/uBizPresupuestosClienteServer.pas   |   2 +
 15 files changed, 318 insertions(+), 52 deletions(-)
 create mode 100644 Source/Modulos/Facturas de proveedor/Controller/View/uIEditorElegirFechaVencimiento.pas
 create mode 100644 Source/Modulos/Facturas de proveedor/Views/uEditorElegirFechaVencimiento.dfm
 create mode 100644 Source/Modulos/Facturas de proveedor/Views/uEditorElegirFechaVencimiento.pas

diff --git a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dpk b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dpk
index fe1254598d639861c46087940c7c96ad06bbfdb8..610c3f4c8a2c45c91ee9353bd8e6079095e5f098 100644
GIT binary patch
delta 68
zcmdnR-Nmz^oYlfDH8~?OEHy7VGdD9euOwd~GfzQ1EHkw{rqt6lC9@>I$TcT5J+la1
J-Q;-IXaHgr8FT;u

delta 15
WcmeC;*~Pt~oOSXWR^G{1Sj_-0nFYH5

diff --git a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj
index 4e1f05f8..1bfaa291 100644
--- a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj	
+++ b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj	
@@ -63,6 +63,7 @@
     <DCCReference Include="View\RecibosProveedor_controller.dcp" />
     <DCCReference Include="View\uIEditorElegirArticulosFacturasProveedor.pas" />
     <DCCReference Include="View\uIEditorElegirDomiciliacion.pas" />
+    <DCCReference Include="View\uIEditorElegirFechaVencimiento.pas" />
     <DCCReference Include="View\uIEditorFacturaProveedor.pas" />
     <DCCReference Include="View\uIEditorFacturasProveedor.pas" />
     <DCCReference Include="View\uIEditorFacturasProveedorPreview.pas" />
diff --git a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.res b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.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/Facturas de proveedor/Controller/View/uIEditorElegirFechaVencimiento.pas b/Source/Modulos/Facturas de proveedor/Controller/View/uIEditorElegirFechaVencimiento.pas
new file mode 100644
index 00000000..6d247d68
--- /dev/null
+++ b/Source/Modulos/Facturas de proveedor/Controller/View/uIEditorElegirFechaVencimiento.pas	
@@ -0,0 +1,18 @@
+unit uIEditorElegirFechaVencimiento;
+
+interface
+
+uses
+  uEditorBasico, uDADataTable;
+
+type
+  IEditorElegirFechaVencimiento = interface(IEditorBasico)
+  ['{221D1E76-B018-4A68-8955-3452211DFEF4}']
+  function GetFechaVencimiento: Datetime;
+  procedure SetFechaVencimiento(const Value: Datetime);
+  property FechaVencimiento: Datetime Read GetFechaVencimiento write SetFechaVencimiento;
+  end;
+
+implementation
+
+end.
diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
index ad8ab699..0e8306c7 100644
--- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas	
+++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas	
@@ -56,6 +56,7 @@ type
     procedure FiltrarAno(AFactura: IBizFacturaProveedor; ADynWhereDataTable: WideString; const Ano: String);
 
     function AsignarCuentaBancaria(AFacturas: IBizFacturaProveedor): TStringList;
+    function AsignarVencimiento(AFacturas: IBizFacturaProveedor): TStringList;
   end;
 
   TFacturasProveedorController = class(TControllerBase, IFacturasProveedorController)
@@ -125,6 +126,7 @@ type
     procedure FiltrarAno(AFactura: IBizFacturaProveedor; ADynWhereDataTable: WideString; const Ano: String);
 
     function AsignarCuentaBancaria(AFacturas: IBizFacturaProveedor): TStringList;
+    function AsignarVencimiento(AFacturas: IBizFacturaProveedor): TStringList;
   end;
 
 implementation
@@ -140,7 +142,7 @@ uses
   uRecibosProveedorController, uBizRecibosProveedor, uNumUtils,
   uFacturasProveedorReportController, DateUtils, Forms, Dialogs,
   uFormasPagoController, uBizFormasPago, uStringsUtils,
-  uIEditorElegirDomiciliacion,
+  uIEditorElegirDomiciliacion, uIEditorElegirFechaVencimiento,
 
   cxEdit;
 
@@ -303,6 +305,51 @@ begin
  end;
 end;
 
+function TFacturasProveedorController.AsignarVencimiento(AFacturas: IBizFacturaProveedor): TStringList;
+//Devolverá la lista de facturas que no han podido ser modificadas referencia=nombreproveedor
+var
+  AEditor : IEditorElegirFechaVencimiento;
+  AFechaVencimiento: Datetime;
+
+begin
+  Result := TStringList.Create;
+
+  if Assigned(AFacturas) then
+  begin
+    CreateEditor('EditorElegirFechaVencimiento', IEditorElegirFechaVencimiento, AEditor);
+    if Assigned(AEditor) then
+       try
+         if (AEditor.ShowModal = mrOk) then
+            AFEchaVencimiento := AEditor.FechaVencimiento;
+       finally
+         AEditor.Release;
+         AEditor := NIL;
+       end;
+
+    with  AFacturas.DataTable do
+    begin
+      First;
+      while not EOF do
+      begin
+        if (AFacturas.SITUACION = CTE_PENDIENTE) then
+        begin
+          Edit;
+          AFacturas.FECHA_VENCIMIENTO := AFechaVencimiento;
+          Post;
+
+          //Se generan los recibos automáticamente a partir de la forma de pago
+          GenerarRecibos(AFacturas);
+        end
+        else
+           Result.Add(Format('%s=%s', [AFacturas.REFERENCIA, AFacturas.NOMBRE]));
+        Next;
+      end;
+      ApplyUpdates;
+    end;
+ end;
+
+end;
+
 function TFacturasProveedorController.Buscar(const ID: Integer): IBizFacturaProveedor;
 begin
   Result := (FDataModule as IDataModuleFacturasProveedor).GetItem(ID);
diff --git a/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj b/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
index 7cf941db..a350fc48 100644
--- a/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj	
+++ b/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj	
@@ -131,15 +131,6 @@
   <Target Name="PedProv_AlbProv_relation:Make">
     <MSBuild Projects="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" Targets="Make" />
   </Target>
-  <Target Name="PedProv_FacProv_relation">
-    <MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="" />
-  </Target>
-  <Target Name="PedProv_FacProv_relation:Clean">
-    <MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="PedProv_FacProv_relation:Make">
-    <MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="Make" />
-  </Target>
   <Target Name="FacturasProveedor_view">
     <MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="" />
   </Target>
@@ -149,6 +140,15 @@
   <Target Name="FacturasProveedor_view:Make">
     <MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="Make" />
   </Target>
+  <Target Name="PedProv_FacProv_relation">
+    <MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="" />
+  </Target>
+  <Target Name="PedProv_FacProv_relation:Clean">
+    <MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="PedProv_FacProv_relation:Make">
+    <MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="Make" />
+  </Target>
   <Target Name="FacturasProveedor_plugin">
     <MSBuild Projects="Plugin\FacturasProveedor_plugin.dproj" Targets="" />
   </Target>
@@ -312,13 +312,13 @@
     <MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Make" />
   </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;AlbProv_FacProv_relation;PedProv_AlbProv_relation;PedProv_FacProv_relation;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view;PedidosProveedor_view;PedidosProveedor_controller;AlbaranesProveedor_controller;Articulos_controller;AlbCli_FacCli_relation;FacturasCliente_view;PreCli_FacCli_relation;PedidosProveedor_data;Contactos_controller;GestorInformes_view;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;AlbProv_FacProv_relation;PedProv_AlbProv_relation;FacturasProveedor_view;PedProv_FacProv_relation;FacturasProveedor_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view;PedidosProveedor_view;PedidosProveedor_controller;AlbaranesProveedor_controller;Articulos_controller;AlbCli_FacCli_relation;FacturasCliente_view;PreCli_FacCli_relation;PedidosProveedor_data;Contactos_controller;GestorInformes_view;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;AlbProv_FacProv_relation:Clean;PedProv_AlbProv_relation:Clean;PedProv_FacProv_relation:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Articulos_controller:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;PreCli_FacCli_relation:Clean;PedidosProveedor_data:Clean;Contactos_controller:Clean;GestorInformes_view:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;AlbProv_FacProv_relation:Clean;PedProv_AlbProv_relation:Clean;FacturasProveedor_view:Clean;PedProv_FacProv_relation:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Articulos_controller:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;PreCli_FacCli_relation:Clean;PedidosProveedor_data:Clean;Contactos_controller:Clean;GestorInformes_view:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;AlbProv_FacProv_relation:Make;PedProv_AlbProv_relation:Make;PedProv_FacProv_relation:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Articulos_controller:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;PreCli_FacCli_relation:Make;PedidosProveedor_data:Make;Contactos_controller:Make;GestorInformes_view:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;AlbProv_FacProv_relation:Make;PedProv_AlbProv_relation:Make;FacturasProveedor_view:Make;PedProv_FacProv_relation:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Articulos_controller:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;PreCli_FacCli_relation:Make;PedidosProveedor_data:Make;Contactos_controller:Make;GestorInformes_view:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>
\ No newline at end of file
diff --git a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk
index c6d1e13e..c37ff34c 100644
--- a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk	
+++ b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk	
@@ -70,6 +70,7 @@ contains
   uEditorFacturasProveedorReport in 'uEditorFacturasProveedorReport.pas' {fEditorFacturasProveedorReport: TfEditorFacturasProveedorReport},
   uViewPedidosFacturaProveedor in 'uViewPedidosFacturaProveedor.pas' {frViewPedidosFacturaProveedor: TFrame},
   uEditorElegirDomiciliacion in 'uEditorElegirDomiciliacion.pas' {fEditorElegirDomiciliacion: TfEditorFacturaProveedor},
-  uViewTotalesVariosIVA in 'uViewTotalesVariosIVA.pas' {frViewTotalesVariosIVA: TfrViewTotalesVariosIVA};
+  uViewTotalesVariosIVA in 'uViewTotalesVariosIVA.pas' {frViewTotalesVariosIVA: TfEditorFacturaProveedor},
+  uEditorElegirFechaVencimiento in 'uEditorElegirFechaVencimiento.pas' {fEditorElegirFechaVencimiento: TfEditorElegirFechaVencimiento};
 
 end.
diff --git a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj
index 12832ad1..1906ede3 100644
--- a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj	
+++ b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj	
@@ -41,10 +41,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><Source><Source Name="MainSource">FacturasProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
@@ -53,38 +49,33 @@
     <DelphiCompile Include="FacturasProveedor_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Model\adortl.dcp" />
-    <DCCReference Include="..\Model\AlbProv_FacProv_relation.dcp" />
-    <DCCReference Include="..\Model\Articulos_view.dcp" />
-    <DCCReference Include="..\Model\cxDataD11.dcp" />
-    <DCCReference Include="..\Model\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Model\cxExportD11.dcp" />
-    <DCCReference Include="..\Model\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\Model\cxGridD11.dcp" />
-    <DCCReference Include="..\Model\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Model\cxPageControlD11.dcp" />
-    <DCCReference Include="..\Model\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Model\dbrtl.dcp" />
-    <DCCReference Include="..\Model\dsnap.dcp" />
-    <DCCReference Include="..\Model\dxComnD11.dcp" />
-    <DCCReference Include="..\Model\dxCoreD11.dcp" />
-    <DCCReference Include="..\Model\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Model\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\Model\dxThemeD11.dcp" />
-    <DCCReference Include="..\Model\FacturasProveedor_controller.dcp" />
-    <DCCReference Include="..\Model\FacturasProveedor_model.dcp" />
-    <DCCReference Include="..\Model\GestorInformes_controller.dcp" />
-    <DCCReference Include="..\Model\GUIBase.dcp" />
-    <DCCReference Include="..\Model\PedProv_FacProv_relation.dcp" />
-    <DCCReference Include="..\Model\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Model\PNG_D10.dcp" />
-    <DCCReference Include="..\Model\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Model\rtl.dcp" />
-    <DCCReference Include="..\Model\vcl.dcp" />
-    <DCCReference Include="..\Model\vclactnband.dcp" />
-    <DCCReference Include="..\Model\vcldb.dcp" />
-    <DCCReference Include="..\Model\vcljpg.dcp" />
-    <DCCReference Include="..\Model\vclx.dcp" />
+    <DCCReference Include="adortl.dcp" />
+    <DCCReference Include="AlbProv_FacProv_relation.dcp" />
+    <DCCReference Include="Articulos_view.dcp" />
+    <DCCReference Include="cxDataD11.dcp" />
+    <DCCReference Include="cxEditorsD11.dcp" />
+    <DCCReference Include="cxExportD11.dcp" />
+    <DCCReference Include="cxExtEditorsD11.dcp" />
+    <DCCReference Include="cxGridD11.dcp" />
+    <DCCReference Include="cxLibraryD11.dcp" />
+    <DCCReference Include="cxPageControlD11.dcp" />
+    <DCCReference Include="DataAbstract_Core_D11.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="FacturasProveedor_controller.dcp" />
+    <DCCReference Include="FacturasProveedor_model.dcp" />
+    <DCCReference Include="GestorInformes_controller.dcp" />
+    <DCCReference Include="GUIBase.dcp" />
+    <DCCReference Include="PedProv_FacProv_relation.dcp" />
+    <DCCReference Include="PngComponentsD10.dcp" />
+    <DCCReference Include="PNG_D10.dcp" />
+    <DCCReference Include="RemObjects_Core_D11.dcp" />
+    <DCCReference Include="rtl.dcp" />
     <DCCReference Include="uEditorElegirArticulosFacturaProveedor.pas">
       <Form>fEditorElegirArticulosFacturaProveedor</Form>
       <DesignClass>TfEditorElegirArticulosFacturaProveedor</DesignClass>
@@ -93,6 +84,7 @@
       <Form>fEditorElegirDomiciliacion</Form>
       <DesignClass>TfEditorFacturaProveedor</DesignClass>
     </DCCReference>
+    <DCCReference Include="uEditorElegirFechaVencimiento.pas" />
     <DCCReference Include="uEditorFacturaProveedor.pas">
       <Form>fEditorFacturaProveedor</Form>
       <DesignClass>TfEditorFacturaProveedor</DesignClass>
@@ -130,6 +122,11 @@
       <Form>frViewTotalesVariosIVA</Form>
       <DesignClass>TfEditorFacturaProveedor</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/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.res b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_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/Facturas de proveedor/Views/uEditorElegirFechaVencimiento.dfm b/Source/Modulos/Facturas de proveedor/Views/uEditorElegirFechaVencimiento.dfm
new file mode 100644
index 00000000..7e17cb3e
--- /dev/null
+++ b/Source/Modulos/Facturas de proveedor/Views/uEditorElegirFechaVencimiento.dfm	
@@ -0,0 +1,91 @@
+object fEditorElegirFechaVencimiento: TfEditorElegirFechaVencimiento
+  Left = 0
+  Top = 0
+  BorderStyle = bsDialog
+  Caption = 'Domiciliaci'#243'n bancaria'
+  ClientHeight = 152
+  ClientWidth = 565
+  Color = clWindow
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 21
+    Top = 16
+    Width = 417
+    Height = 13
+    Caption = 
+      'Seleccione la fecha de vencimiento que desea establecer a la/s f' +
+      'actura/s seleccionadas'
+  end
+  object Label2: TLabel
+    Left = 21
+    Top = 45
+    Width = 33
+    Height = 13
+    Alignment = taRightJustify
+    Caption = 'Fecha:'
+  end
+  object Label3: TLabel
+    Left = 21
+    Top = 80
+    Width = 512
+    Height = 13
+    Caption = 
+      '* Todos los recibos de las facturas ser'#225'n generados nuevamente c' +
+      'on la fecha de vencimiento seleccionada'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clMaroon
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 111
+    Width = 565
+    Height = 41
+    Align = alBottom
+    TabOrder = 0
+    ExplicitWidth = 500
+    DesignSize = (
+      565
+      41)
+    object bAceptar: TButton
+      Left = 401
+      Top = 8
+      Width = 75
+      Height = 25
+      Anchors = [akTop, akRight]
+      Caption = 'Aceptar'
+      ModalResult = 1
+      TabOrder = 0
+      ExplicitLeft = 336
+    end
+    object bCancelar: TButton
+      Left = 482
+      Top = 8
+      Width = 75
+      Height = 25
+      Anchors = [akTop, akRight]
+      Caption = 'Cancelar'
+      ModalResult = 2
+      TabOrder = 1
+      ExplicitLeft = 417
+    end
+  end
+  object cbFechaVencimiento: TcxDateEdit
+    Left = 60
+    Top = 42
+    TabOrder = 1
+    Width = 183
+  end
+end
diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorElegirFechaVencimiento.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorElegirFechaVencimiento.pas
new file mode 100644
index 00000000..d2898859
--- /dev/null
+++ b/Source/Modulos/Facturas de proveedor/Views/uEditorElegirFechaVencimiento.pas	
@@ -0,0 +1,52 @@
+unit uEditorElegirFechaVencimiento;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
+  cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, uIEditorElegirFechaVencimiento,
+  cxGraphics, DB, uDAInterfaces, uDADataTable, cxDBEdit, uEmpresasController;
+
+type
+  TfEditorElegirFechaVencimiento = class(TfEditorBasico, IEditorElegirFechaVencimiento)
+    Label1: TLabel;
+    bAceptar: TButton;
+    bCancelar: TButton;
+    Label2: TLabel;
+    Panel1: TPanel;
+    Label3: TLabel;
+    cbFechaVencimiento: TcxDateEdit;
+    procedure FormShow(Sender: TObject);
+
+  private
+    FFechaVencimiento: datetime;
+    function GetFechaVencimiento: datetime;
+    procedure SetFechaVencimiento(const Value: datetime);
+
+  public
+    property FechaVencimiento: datetime Read GetFechaVencimiento write SetFechaVencimiento;
+  end;
+
+implementation
+{$R *.dfm}
+
+uses uFactuGES_App;
+
+procedure TfEditorElegirFechaVencimiento.FormShow(Sender: TObject);
+begin
+//
+end;
+
+function TfEditorElegirFechaVencimiento.GetFechaVencimiento: datetime;
+begin
+  Result := cbFechaVencimiento.EditValue;
+end;
+
+procedure TfEditorElegirFechaVencimiento.SetFechaVencimiento(const Value: datetime);
+begin
+  cbFechaVencimiento.EditValue := Value;
+end;
+
+
+end.
diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm
index 432bbf8b..5a6e420f 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm	
+++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm	
@@ -77,10 +77,13 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
       Left = 427
       Visible = True
       ExplicitLeft = 427
-      ExplicitWidth = 179
+      ExplicitWidth = 285
       object TBXItem41: TTBXItem
         Action = actDomiciliacion
       end
+      object TBXItem42: TTBXItem
+        Action = actVencimiento
+      end
       object TBXSeparatorItem17: TTBXSeparatorItem
       end
       object TBXItem40: TTBXItem
@@ -286,6 +289,11 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
       OnExecute = actDomiciliacionExecute
       OnUpdate = actDomiciliacionUpdate
     end
+    object actVencimiento: TAction
+      Caption = 'Asignar vencimiento'
+      OnExecute = actVencimientoExecute
+      OnUpdate = actVencimientoUpdate
+    end
   end
   inherited SmallImages: TPngImageList [5]
     PngImages = <
diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas
index cec76e40..d78fba86 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas	
+++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas	
@@ -38,6 +38,8 @@ type
     TBXItem41: TTBXItem;
     TBXSeparatorItem17: TTBXSeparatorItem;
     JsListaFacturasNoModificables: TJSDialog;
+    actVencimiento: TAction;
+    TBXItem42: TTBXItem;
     procedure FormShow(Sender: TObject);
     procedure actEliminarUpdate(Sender: TObject);
     procedure actNuevaFacturaExecute(Sender: TObject);
@@ -46,6 +48,8 @@ type
     procedure OnListaAnosChange(Sender: TObject; const Text: string);
     procedure actDomiciliacionExecute(Sender: TObject);
     procedure actDomiciliacionUpdate(Sender: TObject);
+    procedure actVencimientoExecute(Sender: TObject);
+    procedure actVencimientoUpdate(Sender: TObject);
 
   private
     FFacturas: IBizFacturaProveedor;
@@ -204,6 +208,50 @@ begin
     end;
 end;
 
+procedure TfEditorFacturasProveedor.actVencimientoExecute(Sender: TObject);
+var
+  AFacturas: IBizFacturaProveedor;
+  AListaFacturasNoModificadas: TStringList;
+  i: integer;
+
+begin
+  inherited;
+
+  ViewGrid.SaveGridStatus;
+  try
+    SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
+    AFacturas := (Controller as IFacturasProveedorController).ExtraerSeleccionados(Facturas) as IBizFacturaProveedor;
+  finally
+    ViewGrid.RestoreGridStatus;
+  end;
+
+  AListaFacturasNoModificadas := Controller.AsignarVencimiento(AFacturas);
+
+  JsListaFacturasNoModificables.Content.Clear;
+  for i := 0 to AListaFacturasNoModificadas.Count - 1 do
+      JsListaFacturasNoModificables.Content.Add('Ref. factura: ' + AListaFacturasNoModificadas.Names[i] + '  ' + AListaFacturasNoModificadas.Values[AListaFacturasNoModificadas.Names[i]]);
+  if AListaFacturasNoModificadas.Count > 0 then
+     JsListaFacturasNoModificables.Execute;
+
+  FreeAndNil(AListaFacturasNoModificadas);
+  RefrescarInterno;
+end;
+
+procedure TfEditorFacturasProveedor.actVencimientoUpdate(Sender: TObject);
+begin
+  inherited;
+
+  if HayDatos and Assigned(ViewGrid) then
+    (Sender as TAction).Enabled := not (dsDataTable.DataTable.State in dsEditModes)
+      and ViewGrid.esSeleccionCeldaDatos
+      and (ViewGrid.NumSeleccionados > 0)
+  else
+    (Sender as TAction).Enabled := False;
+
+  if (Sender as TAction).Enabled then
+     (Sender as TAction).Enabled := (FFacturas.SITUACION = CTE_PENDIENTE);
+end;
+
 constructor TfEditorFacturasProveedor.Create(AOwner: TComponent);
 begin
   inherited;
diff --git a/Source/Modulos/Facturas de proveedor/Views/uFacturasProveedorViewRegister.pas b/Source/Modulos/Facturas de proveedor/Views/uFacturasProveedorViewRegister.pas
index 2ef7aa83..9d87a06f 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uFacturasProveedorViewRegister.pas	
+++ b/Source/Modulos/Facturas de proveedor/Views/uFacturasProveedorViewRegister.pas	
@@ -9,11 +9,12 @@ implementation
 
 uses
   uEditorRegistryUtils, uEditorFacturasProveedor,  uEditorFacturaProveedor,
-  uEditorElegirDomiciliacion, uEditorElegirArticulosFacturaProveedor,
+  uEditorElegirDomiciliacion, uEditorElegirFechaVencimiento, uEditorElegirArticulosFacturaProveedor,
   uEditorFacturasProveedorReport;
 
 procedure RegisterViews;
 begin
+  EditorRegistry.RegisterClass(TfEditorElegirFechaVencimiento, 'EditorElegirFechaVencimiento');
   EditorRegistry.RegisterClass(TfEditorElegirDomiciliacion, 'EditorElegirDomiciliacion');
   EditorRegistry.RegisterClass(TfEditorFacturasProveedor, 'EditorFacturasProveedor');
   EditorRegistry.RegisterClass(TfEditorFacturaProveedor, 'EditorFacturaProveedor');
diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas
index 17e5ff45..d101cfd0 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas	
@@ -51,6 +51,8 @@ begin
                           end;
                         end;
   end;
+
+
 end;
 
 procedure TBizPresupuestosClienteServer.BeforeProcessDelta(