From a0df0f55df54a847a040332ddf8b52058e54dd49 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Wed, 7 Nov 2007 09:41:16 +0000
Subject: [PATCH] Mejora, poder cambiar situacion de facturas de proveedor

git-svn-id: https://192.168.0.254/svn/Proyectos.Miguelo_FactuGES/trunk@11 172823e9-465a-9d4b-80ba-0a9f016f4eb1
---
 BaseDatos/TablaFacturasProveedor.pas  |  45 +++++++++++++++++++++++++-
 Clientes/CambiarSituacionFacturas.dfm |   3 +-
 Clientes/CambiarSituacionFacturas.pas |  17 +++++++---
 Clientes/FacturasClientes.pas         |   1 +
 Proveedores/FacturasProveedores.dfm   | Bin 31467 -> 18614 bytes
 Proveedores/FacturasProveedores.pas   |  30 +++++++++++++++--
 Temp/FACTUGES.INI                     |   2 +-
 7 files changed, 88 insertions(+), 10 deletions(-)

diff --git a/BaseDatos/TablaFacturasProveedor.pas b/BaseDatos/TablaFacturasProveedor.pas
index 8b25e67..19eb8e6 100644
--- a/BaseDatos/TablaFacturasProveedor.pas
+++ b/BaseDatos/TablaFacturasProveedor.pas
@@ -20,6 +20,7 @@
     ---------------------------------------------------------------------------
     02-02-2004    Se ha eliminado el atributo SERIE (P8 MULTIEMPRESA)
                   Se ha adaptado a los nuevos contadores
+
 ===============================================================================
 }
 
@@ -154,6 +155,7 @@ type
     function DarTiposOpDesTrimestral(var ListaCodigos: TStrings): TStrings;
     function ComprobarTrimestreFactura(CodigoFactura: String): Boolean;
     function AsignarTrimestre(CodigoFactura: String; CodigoTrimestre: String): Boolean;
+    function ModificarSituacionFacturas(Codigos: TStrings; Situacion: String): Boolean;
   end;
 
 var
@@ -296,7 +298,7 @@ var
 begin
   with Grid do
   begin
-    ClearItems;
+    ClearItems;  
     OptionsView.Footer := True;
     {Columna CODIGOEMPRESA}
     Columna := CreateColumn;
@@ -1195,6 +1197,47 @@ begin
   end;
 end;
 
+function TdmTablaFacturasProveedor.ModificarSituacionFacturas(Codigos: TStrings; Situacion: String): Boolean;
+var
+  oSQL : TIBSQL;
+  Indice : Integer;
+  Cadena : String;
+begin
+  Result := False;
+  if Codigos.Count = 0 then
+     Exit;
+
+  //Formateamos los códigos para optimizar la sentencia SQL
+  for Indice:=0 to Codigos.Count-1 do
+  begin
+    if (Indice <> 0) then
+       Cadena := Cadena + ',';
+    Cadena := Cadena + '''' + Codigos.Strings[Indice] + '''';
+  end;
+
+  oSQL := TIBSQL.Create(Self);
+  with oSQL do
+  begin
+    Database := dmBaseDatos.BD;
+    Transaction := dmBaseDatos.Transaccion;
+    SQL.Add('update FACTURASPROVEEDOR ');
+    SQL.Add('set SITUACION = :SITUACION ');
+    SQL.Add('where CODIGOEMPRESA = :CODIGOEMPRESA ');
+    SQL.Add('and CODIGO IN (' + Cadena + ')');
+    ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
+    ParamByName('SITUACION').AsString := Situacion;
+    try
+      Prepare;
+      ExecQuery;
+      Result := True;
+    finally
+      Close;
+      Transaction := NIL;
+      Free;
+    end;
+  end;
+end;
+
 { TDatosFacturaProveedor }
 
 procedure TDatosFacturaProveedor.AssignTo(Dest: TPersistent);
diff --git a/Clientes/CambiarSituacionFacturas.dfm b/Clientes/CambiarSituacionFacturas.dfm
index f6e7afe..affa55a 100644
--- a/Clientes/CambiarSituacionFacturas.dfm
+++ b/Clientes/CambiarSituacionFacturas.dfm
@@ -84,13 +84,12 @@ object frCambiarSituacionFacturas: TfrCambiarSituacionFacturas
     object cbxSituacion: TcxComboBox
       Left = 96
       Top = 19
-      Width = 169
-      Height = 21
       ParentFont = False
       Properties.DropDownListStyle = lsFixedList
       Properties.ReadOnly = False
       Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
       TabOrder = 0
+      Width = 169
     end
   end
   object brDoble: TRdxBarraInferior
diff --git a/Clientes/CambiarSituacionFacturas.pas b/Clientes/CambiarSituacionFacturas.pas
index 85b6d2e..63a0d7f 100644
--- a/Clientes/CambiarSituacionFacturas.pas
+++ b/Clientes/CambiarSituacionFacturas.pas
@@ -29,7 +29,7 @@ uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
   cxDropDownEdit, StdCtrls, RdxBotones, RdxBarras, ExtCtrls,
-  RdxPaneles, TablaTrimestres;
+  RdxPaneles, TablaTrimestres, cxGraphics, Entidades;
 
 type
   TfrCambiarSituacionFacturas = class(TForm)
@@ -46,12 +46,14 @@ type
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
   private
+    FEntidad: TRdxEntidad;
     FCodigosFacturas : TStringList;
     FSituacion : String;
     procedure SetSituacion(Value : String);
   public
     property CodigosFacturas : TStringList read FCodigosFacturas write FCodigosFacturas;
     property Situacion : String read FSituacion write SetSituacion;
+    property Entidad: TRdxEntidad read FEntidad Write FEntidad;
   end;
 
 var
@@ -60,16 +62,22 @@ var
 implementation
 
 uses
-  Mensajes, Literales, BaseDatos, Configuracion, Entidades, RdxEmpresaActiva,
-  TablaFacturasCliente, StrFunc;
+  Mensajes, Literales, BaseDatos, Configuracion, RdxEmpresaActiva,
+  TablaFacturasCliente, TablaFacturasProveedor, StrFunc, Math;
 
 {$R *.dfm}
 
 procedure TfrCambiarSituacionFacturas.bAceptarClick(Sender: TObject);
 var
  Indice :Integer;
+ Resultado: Boolean;
 begin
-  if not dmTablaFacturasCliente.ModificarSituacionFacturas(CodigosFacturas, cbxSituacion.Text) then
+  if Entidad = entFacturaProveedor then
+     Resultado := dmTablaFacturasProveedor.ModificarSituacionFacturas(CodigosFacturas, cbxSituacion.Text)
+  else
+     Resultado := dmTablaFacturasCliente.ModificarSituacionFacturas(CodigosFacturas, cbxSituacion.Text);
+
+  if not Resultado then
   begin
     dmBaseDatos.Rollback;
     exit;
@@ -81,6 +89,7 @@ end;
 procedure TfrCambiarSituacionFacturas.FormCreate(Sender: TObject);
 begin
   inherited;
+  FEntidad := entFacturaCliente; //Por defecto tratara los documentos de facturas de cliente
   FCodigosFacturas := TStringList.Create;
   cbxSituacion.Properties.Items := dmTablaFacturasCliente.DarSituaciones;
   cbxSituacion.ItemIndex := 0;
diff --git a/Clientes/FacturasClientes.pas b/Clientes/FacturasClientes.pas
index d905f01..b96fea1 100644
--- a/Clientes/FacturasClientes.pas
+++ b/Clientes/FacturasClientes.pas
@@ -468,6 +468,7 @@ var
 
 begin
   fCambiarSituacionFacturas := TfrCambiarSituacionFacturas.Create(Self);
+  fCambiarSituacionFacturas.Entidad := entFacturaCliente;
 
   //Rellenamos la propiedad de la unidad CambiarSituacion con los códigos seleccionados
   IndiceCol1 := gridFacturasDBTableView1.GetColumnByFieldName('CODIGO').Index;
diff --git a/Proveedores/FacturasProveedores.dfm b/Proveedores/FacturasProveedores.dfm
index 6b591f343c88add6c241c21a80a64cc1249eff3a..8c6efee849c70ffc8b61e31226f3834fc137b60e 100644
GIT binary patch
literal 18614
zcmeHPeQYDgbsv%vmmiXjI^Eemf67WwCuppmKaj+S7zIg5cjuEtMdY1<#IUg>N7Ck&
zyX@{#Cpj$;pjQ+HS|ANv!&jg{0|SMD)_<fa3N#H8plJ#xZCW%%dT8RN0ooXFoUazW
zx-r_Qzc;h994<ekyK8MX5y9o|&b;^L&6_uG=DnHWUXIn4)|ZOq+WGZjb#1+JVR3Px
zvc6blCkxM>VXU^cbn=$khPPxkf{thUYo5E!dDHc{e|%u-*fQS;k}Oqo+etS5xYZ1{
zQZFXcXSlVw6{P++F<y3U*BjgW@sHTVlIsNX<t@|md0-q_SX?TeU#>k>K2uz;F4l4~
zm!OS_hW)tZG~G)zz7ym{h9sE0mKATSW{aoOHFL{tnG&%Y?Akof@@uBYoj??t$;lVO
z$Yg3}z2Y^wmt^URQ{8ee8F#HWca}U*>Z>eev*{Z0OQz?U)lQpxmg`N5Hw8Vi=E)OA
z*=z@v>!gn>gxMyaZ7X@^OD=IE1eQ!3STtkb|I^R19*KN!v_#Sye#y0)ENqAR?f0-L
zA)Pa5pk->LvEP06mswt<RkutCT_lVbZEMpp#!VY7n-woD2-cVi%yq(gtm6mP#;zvT
zsq;Qxa2pp_Ovl{hUN*gAdYjxyj<a+Pgxfq{ukyC(p$P9mA-vRG386RRQg4!pP;HXa
z`I6W1x8_Bo8b;kO+uZcBYuuTa>hzh_3rxI9i1D_+;06o@oo%7)tkv4Ax~;lr$~Kav
zBtq@{eWjhrOiv{ln-neX2ClQhosLm2I%d=IB#rSNPK%1uBbsP3fmw!#xHln~Tyh&7
zpEt(@uOel^z2t~jDQ&3%A|c)+qLuX~p#-H-#|*|;@e7|K=59i9_UTGWaSGIZi1VR6
zcd82^`a0>@ktj`d+{q|K@4Q`H*@0E5#{{(Hn{}Hvhn9S_7pmWO%=7>#R;GJW1v`@~
z)!C})__I~?^o?G+p=rsTws+fG^9yER=DwU@>@RSYR_K>L@5S{lT)FT{uvt7Y_VF-Z
zyo5h{dwcBgdi%&gSSkyaN*^$?Yi_&K7KR`P%h!>{K(lv7wQV*mXET{*;aEYILyZ-=
z`ik4MHmrsj8jy2C3`n}zpkcz8z=#{6yopxj(1HXDk)8R!wIBoatgBIp(HfPlFWOei
zazcel{id9Bsll^5Bq@!`L!%VRp+fy64oUkcRC2UJ<?3bE@jG^)H0tVp8bvlL!Z}o_
zpF)*NjaI2bea+l-eN5Dw7EOhHInRGb&pbbMnMKoQWvh-uvy`9I#XeNApF$NI(^ZUR
z$tPPg9d2jaj$Q6>ukA{YOd6{beKCjMNhn7totV|*0ok~hHOleLn0DDF9oEL@xQ7dW
zQ*d?!oSpWprc&V1{LLmpx3gPBu@kse>uH|NmH0NdD;+qIM!LSe>N>n9P>}1XPnR{u
zj9O!dc$nDiV<abLp7(`<x}x0Q)DKvk5n23M$LSWI6&#&IGzJV^T(Zp|WJr46*~U(z
z?h~H}o=4t9bZ5x?e1c}_m39NuXzpu5DJ;A0#iG+(;@qB>Rj@ax3b*PRt7c$rb5Wfv
zI~s~{p@evm%`aH|(rvm#we$ya6=$JNTGF^^%nk!m5O=Sd+t#KTxL&Cfz)$cI$#6C-
zueHE!9`MZcl4YaSOYYA61<SWkwqa~+uR<NXLd7W~+TykrJo8eS+qUsD!%FLgJ3+oG
ziU~Z|wz(%<*Q(p`8r;Y=eWk5;#-Pse-6f0LP4bKVbh=zwID5KsOAM$YVq1Pb-)y)=
z$G57k7u-tEzK^icY0vGn;Tl~q?GE=(MCmK0k2)^!z_e@>;}?)qHMjZVPTRzY;cT*>
zi<MLDv|6UOJHNm;Ow3dS;V|uNz+3(ld-o8GCD%n+y|C{b0vkdJ>L7V{Si2J6LZi9f
zya?rx<SP!;BKz)v`Ae4P2NGzNUs~r41o*P=h=ZPXYwjwdni6o4!bRD8LLk|Cumcq3
z>a-#;W{!mb#6Cm;g@LRxvx8DYt%6RwPG&}jSZrDX?YN$J*73O~lJ5wUs~|5t(s^Q0
zzGd$0%UnTgSTZ-OP^q^FtVO4}XxmoXxBOV9s27<#5%|oW2<ZyU)3992mcvEdYwXo;
z{{vI3_GJ6U#HM}5^{l6%*`|F<F9|4KX&1dHbC;fehMNes>TLC7ue+CIXcFDCTl%!H
z3BHU%R<}5U)^|5sLcp7djgz_2@`!uJCPMqMOm_UJ-c3cy0~rFN>KH@K3W7x8xRMs5
z%L8&akybnxx8ljWdV-jP1`sVIp6y!41WH*p>)bZ@D#c2<EJlv1DOpVNoob>ssZGUV
zA>e4VHA)>H;f_;p_DH~39#W^J0#fm`<U-cwJ~8y|Wz+!Mvm`Ks#SH}Z1B?6f>rjx2
zWAA44MA+Re)7j+4Es|yzUZx)x3L<r&Yi5m~jVnoGXA!}2+a>mBB?aNfrd#nF9nbBy
zM>Hos9yW0jkwY>2DN$T0Q(v}PZA-ao^KwQVuDB$BUbWLqx@<ZPOqR6vnhZ=@qzNPT
z<6Q;sjZ^Ra@XuIQWQsU7^}n7tHO-a|G=qv1B8>>QXC6F8eG@Z->yA?QmUW}yYW6md
zQ=b|`WExj#g?{Oy;?xB^)1~6nEX*eu^`RK`8*jY9UVH5|_R1@-h&#Qj*tN=|d_7&|
z)1C5OeDOv0+;h)~JH0EqFTeaUd*Ou_#6{18XxwqfU$TtxIdMJn%rorj)vN5<wQG#v
z$HzY_uFID%3mS^HUj8Ge{)s*H)PJ&b%im!H_x$tEvzK0aiOtM>k!@}MH@kRokG<=@
zzZ3jX9d%rKuB?8SH5xx+ANk0SS-JdeL4$BV{NZaNjnd!$$T!)QD_4Y!;`oo8`X>9(
zhyGn$n;ZWnXb>*Zr1vMEe4WkS^Od3e6Fs7_{=x6FTJ4AIDZmr%`SbrO?vI^&75IN8
z<T6NpiXWmuby0MP2FZlVrnVVWcZI9&R930<FO2SVDSXu~qspf|k{`*6Xec^LrqnLO
zbb!jIwk7`WzyI&qd*AnR4;|7G)wY9ZP}vVZ{0(uv=RIFz4?Xnt==}p9_?F;>+H{y6
zQQ3q~cyn`qBlKmh@?C*P>BP_b-v5t6rv~W($(;0%_#}8Lll1=n`@bfhDUIYoJWyYW
z>oJu@a#GjB4}U$9)!f`)3;lTX(QgTQggdAm)+*l<?L}=i3`VuHx(^I5>K<suz;w78
zV1c+hj%iVB0|Th=jwaRMC0@zAbQjmpIvZkfJzw|4bdsi3+EgU<h+4Oeb`>Naj7FH4
zgKvbcQzkY}8QF$i3LJPmTwmzclDnQTMq9XAT7BYPzmN*nwR76&Jb|TcOq+>!wcaD=
zYsbQg)Oj^PpHLC6DMY+9q_=RqelzB4hvRco&J*)YUq?Qb!ibCu<1>Eg(?34nCNq#f
zlb4rFU^G_gA9Q>4Y#4I<;#tq?e+B?dC9DvPKYsB%0!0G<(w|Ip{$L7U*h!$Elzy^E
zk-$&?(Int6e=#qyFhpSF?k^$&{)OKw02tq2{Zj7NzLFhQ1PTRZ3H<9{HDoCt`+OcK
z1B;NrpZLZ&fWbMc31E~mtO)0m)6cz<0wf+HnMnA7MVP-a17QA%qq@vd1r$fs87U}T
zdVmL$Kpa>L9a27j{AwET*Hy%`|2&4O9lQv@|Mqv1*Hr}IC07{5hN*{M7XYJy@T*Ht
z2N?Z)L*o<E!^>U&DqEM1lQQ3y@En!-KG!whp?{^!I4!a&%tIS4Hr9x}Lj5c0Ke0a6
z&DwC-K<IzWZp*}h{Q`;TU$EOzFOyajHW{DDYDIkq(@uC$_)6OX?+GyQo$wuKpfFX1
z$ApO@axpE3w}go)d?mO_@RU$4SdEC|0n>7L6L5quKLrYa;o#sEU(EI~A&$Yr6@f>D
zFZ>^%02t_ahARYb1XVx<b^3S)3MSF;f8hQA7|suV;ex>P891y+6fh>S0F3H@ct7)c
zK_G}}IDYY!@FT1-WDe$0L7+%1S$#;XzX?zZDg}PvzQ9|Eu+TJ8$T1WUhf{zr+!c5o
z@)>Re3W9k1TMfhk14y_hXd^fbfJ6$)f@1=dSSvs*Xl0ZR7?6d`;fvq_ud;|pwWNGN
z5VezEcps8mxE^R1I3B<S1K?Q~CL9jP5a0eR9qfi|xaMPEF4XT!WZ+96T4w7p&D6!W
z*pWyc#F0qXtER2?oc6j9!^fZ;#-L(@x3Q7qEgXV!V)^8()8sqXv7xy)4%f4@d7llc
z?9ite>{Hxy%n$vuCk}?5En)_+;|Go%C>n$db0Oj#u)g9>@06}!hTRn|TnL6)wzy#X
z1Pxe~k@yN1^Ginfn8%7c(ScPT886du;c5t6!pGd1!3!7~CsOqw-l$xKi^;usCqCeQ
z2pXe!P`H>FGr}dFNoIsgeC)>qd>4kPzQChrUET_xXbj^4PL05YThrIxBm?4!=p3{y
zlw8!E@TqP@YZwm-cF-NpkHEhf9^l;w8Qmxkgb#P;rsP2QBnPSo23#TQLG>M$M!2La
zbSIrVNS_);OQr8W9(O}yJ+72C468lR8SIN$+zHe%47s$}cSuM(DuZy|jU9^_F^XK@
z`50RDiUkk<m(Iteh7JGYS{yM~U*{WGA&hp7j|n$aEyr#vH*`k1pVJunBNS{8aQ*#e
z0I$FP12%HukB(~XyYRR1<oVt+LzHmfK;oD{Cueb9oyj=ZDW>Zl@<mBE>UsV@IgIiK
z=D`1ftF%JD^x4Kmhf%tVd~$W~V@Uh+DS1(z_+UUyed^OA2UBGn2HofSKKHW3QAz~$
z1a7lO=k8@9VQ#LF#5<*79fc)vV{}Z0K$Cc+1d%>BM{tCU4<X;1!~=0G5(<hOy(xp0
z(l>|gw@A^oTqsu$0)?BR<e81suk`GO(DtoH{clEue_C}c%vY_TBQ}K`_CR%DOdJQJ
zzJAyPS+@s1h%i1~s&_tm<&!tu`>01who7)VC!%|TG75=8c$aSyI8o5=1tww8VMTKM
zUWm$&SiQeD)C0RNJoS9+;Gw;3a&w}#H&JZdp=~o6u_T!KL)jre%GgvbI-m96$&)90
zw}8_5-7}UGWT)ibC-tsx|H<a6yV#A`qERTLHk#4KJJ<8)!=sr`Jn;lmd+(ww+Sw&`
zr`;azFzd+)kI>RQLhZg&`Ls)Qj7Z)ZL!=DazBEQ-^KG$AI;V@HxHzXvG}T5tMKj7J
ze8a#pr)@SasttJxN*!<#K<NfHE1SD&16&+NR=@xh?dpx!f%fMKM%2zdg-#j0sByuG
zqt>E|alwh4P;evywWV*KP7qtzDl3~KnT(n#%Am$bCi>C^#bhEXsAdH=$2QIp=g%X#
z>#!n<4XHl9Wd%H{vIe21FHw_fdHOlmLDa?WvAmjO#2|zsmN=?Ew)eM>cSR!Ui(G7H
z6nRk_$vk<a{Me+@BW!ry^z&1#ja9c~1ue6Ut*HUdg9r9Q3t_kVH`T2sYov>`vz9tl
zwxy0ess(rb=y9$X1ZHE45De{vBpsvHiA;b<bgofNTYC;WD&pyE1Q#cg2N89YP0`Sg
zw?!l}3Mx*4*uWk=dE7~n=sC|6(ZD9S5DtbZW@ogDW|URASu694EH%W+{8r^L7U{4u
zO{DT+XQBM4^}~FU{TPvqR8q?jR_4{ue`bW0A)0RsD?^M#T`sJ{L9Gl`F)ldW%258H
zl@a^QaUkJMvNB&CY-J{k^hX98m`Gz&^#iJFW+|pE{(nLB%VS5-9mBspm<_?>y*#Td
zPeg~d*+@FYy6d<Ru}O`XNjYK?QWQJimn}cY6vb{Hb%L!R_uGCH=WHa*0RE;mk|BSy
z#cah{+~EzJ=rIZrD`5(q+L6@uvxgcL@;D+p*+*!!QPjvB1sP>4`>5<^7d1M<0aEs|
zk5FurlahWqukU>7O6WM4(sKI9>5J_VtxUB1-X%n}Q^|c)wB?eBh@sX`x-=-X5~lW%
zIIvb}lA_9Kn%GB^@|SRlzuk!rP(~cisJz*Bl&Mj_b0BtKA^q{9sDL9;9BH;G0!dv_
v+y>%Nu81=A5gz0SE7He~qGyy%;U&-d(oO!tryY&^+fhIW5V_G&5sdv0ax6KV

literal 31467
zcmeG_U612PZtnr|9}MJSUUCgv{tl7={+yY+nd!l}Z|`Ao2-LQ^TUpsMWP3g?$bS!6
zEV5W~NtSzOv714=ftIXdkt`OgibYc8{Qkd_^|AF(EaUa@RK$mmMgBQSHhGa8{;hQv
zeE!e>)M~v;9*(X5XtnYFF5mO*-_p(T3BC+QeJpvCq>oPs*Xxe(`z+7$0={+z-BEYg
z>*BLzzB}H`p5o$=Amn_poc#6O-G9yAOg^m^cMif<U1xtwcbojnUGnuPg+k{~osK;G
z5N{Je`06fx%D3?=dA>S+%dp_*zvH8iagpqf%-Ax{4vBk=yaA*<y^HT}i%o(}FfG5`
zt)B8P@a@y)>#_iPXHvv+#Fvwtr*Tol3<UCpdgjsUv`>mOFA&rht|#7Bt0Z70;>buG
zWE}60X}$xdUNNE8CTZ=tUyUGIt!a)8VRS}nP5OdixFe(PU^E(<&b39VFUHgy)5C$@
zuoa{~9uCty+n8Q)suHzPRgARl!#AK)@2p;p22po791tDTiL0j=v;$i26-~1A5k(Sb
zpsWOK9&MrT;qfv4gb4q9Ivmr7Z&Y6H>sITphh(0we|aD8;zy$ccg4vlORM!hE*=vk
zU^~Hf_x&o_#|1D{M9|s5+TOxTA4fD$u-9oASp=@9ZP%!t?hJ`T=)~f5c)DQ$-XCUJ
z5?dVt%}#bVtk?ZPe-QPp6sd@7?GN+ZjHFg8*=-23Wk20MuJY}D5d-sYx6o*&Ye&DZ
zMy$(M)~dnCjBsq6XoXdkRx8jYW%~D%UA##PJ5KUrzI&hSP9-KpU={Kk2!Qa=kw?A~
z%s?9wk)M&>GGCt#$p(AY7ojPg=U+^x2a0HXRn*fe-0_Bx)p60{vr;#@C$Ih`>UCbB
zgzT8+!C5z%VrS5l8yv#tgIIdCdKlLZWGX~S)z9+G7(rU*ywR^PNmtql->V#)YE)&`
z{GYuE#{#5>_&!TE4S5yliq%Q@V!%qq8GxC8ziO@G-J!LDb>YG5-#LRyJM5I%YQ4_B
z?VoPu@i7L)`yU=Cpi_f(rwyN8)SL4?e#cLDK-XwQ*Y>1zg_;giWDD^!ZWC7ZD0sUx
zpLQEB4%2c;Po8^y!PHECFLHX3)1`6uzpNx^$E3=RVf(mj2;;o=G2fr|xFEw^19sGj
z7Hh_IZa%eIt9`sqcaH#XEw-}-|9!qmAJTQK*L>eL7RzZUi}<q^{<SrdVcR1_nfL#9
zRsk*OFUx*;zbDHtS|74p{&36wHKSIIOR?-OkIO}tZqr?pVcF?@w{gitUxp>SQA*bC
z4I7Kf#lb3HukJ6_xH0m7TWkE8!!lxhzdS5w`R;Jaj!nj8<Tky(cD)p;%;?K{`7$s=
zj$59KWXH<xsIn9H4Db&*FvXd5d0>8wAM*n^;5I3`l+croo?i4|RamppSXSeT;o0fR
z#30gfV|t?OS$6w6`Y!|ZWd&`rJNQ8cYLE53YM|PEr*(7hciHTe6#JZp>Bo4NWQ0LS
zx!6I^aTe#~wg#_^%3jCL6e<+cvMxM7+~fiXW@glGVK01PO2sGa6*)KhEW^o$7(ci2
zYl0U}46loH!?OnnLrFrm-Qo+RX^N%c;uSXZhf}&pBpL<W{+eG12b_-iD*XrU;G9$-
z!jXJVvfC55<)PsI^M`yVL5NZWOBkyXF?3)le1|;R#y|QkUw=hWuo_9@J3@rDp=)DY
zh)OiVg&edDG-$Zj5Q%B<+ubhEU|aYXh<~CmepzO*?QT=i1oU{5yZ*YqKWJ%@d;79m
zo8f94+7?85R~bLHsA6AYOPNOsz#{K;ZYJN+g#M=6{Tc$C$-#9`sAHki^8A;{ZnI31
z?8XW$d+>#(K|aLC^mD?@X(bG5$$Sb_v*f2V`O<;0LK>qUI__Gn+ui&=1ASlr0v)GS
zO~H2<L|6O}e@-9cV_r;8M=%}^5YXE_q{VigWXTc7iiD;~j7Vw*QOtZhFXAt=B+F_D
z`hc1&Mi79~vB<M5DNI0Nm7j_=QrsMPhN!9Wm*m?rO|lIt!T~D1n%&OdzP^<>269^>
za%;lY2>kPAolka$bd?v!e{JEH!vVs#uZ#S&2lwGmadt`$s^EQmfcasb9OE<t!c?@1
zKPQW?`xs2H-J=9Z0(4iW?KUpH-OQ7R81_<zihcI>m~4@ufB(;#rgHsdo&y)pscGvN
z%ID;kX$E+q5jQ`jhZHmp7<%~p0p>-CRAQ^F_@>Dds7zkmn7}0}!0it76zcd2T~T3~
z7KbC%`jCA2l&oP=X;AldewTlMgbb>=z$j{UEmAv}>M=Tf+DgAdjdN`#r9f4I4g#Gg
z_i-aQJ5*p)n{0^MI*U!(1ohk9At^2Zu7FKrjNhO%=vz(GaQ-lmi`{0CW$FHqq7GE_
z7C{@a;eyF4P8~EZWbe{l!h5ey4<db?fm*jj7YufWM=l<-H+hl%17?EQT12R7Wq25t
z({I!K>!nt{Nn%JjY2MCH`4`HcfcdYEdoyJp$l<kmN=zEjW^20t5mK6Pu~3En!fq`=
zYF5A&c!&0fo8Qe>JsBW26dMXlnGkwjci@Vcy0uh|v4xa8tE<NJ(8dTW!XRvVsLpnl
z2N-aUwHiB%7iaDQU)j{sD?3<OFOv_LK9WGA-o^K9RFkZI)0&=<Nh#ZGe8>&!+K3SW
zis`|YHa+(JQ0FN<1f{I<>FI#6CU0447E3`?1X*h+)tX9|jHMcLiTflJms5E>$fZ>;
z+f+1EFm(<mJlFf8W!gq%6ZcQ5Up+hhY(^!^JIoVsT;!1Cc1)AQ%_o=%Zg<(Y(2SwL
zz?ON6caON@5&N!;3Umw1EI{MjnJ!SXJQJ+HE+ES*%TWTD<p}I<^4r7uROA|+(rab(
zYkS@k3+rjrmz_?yAMW3!+kNVJY&BUsEV^xR_Fx~<!0`BBf&*{3xPhUDJmi1GyLE!5
zpg(qP5*7q+DG3gVdpU4O+h!y|<<QDuCIy!y)rp3~{$S`6#}Q&Pr7BTKx|FxMRrD+O
z#tJ69L$&}eaSCV^vCEmlavI8)TqF+icN+A_X0uExX4T843b|c9Kv5rWOGn}{m?}4R
z3Wj%3dV6P!IdiEt-4{8+k7=ybXdrR%Uez{(F>+JFiB@L}gj-dWaD~+&v8sppP?&VZ
z_naS9PP#JLSy0GVywTG_tECgK5GiA-yGr8KWI6G%Eg{KkF~vW)4)D)?Ujj6iOKo!l
z-|cg(<zq8gEH;KZtIb$S*D$up9RDE2Y=nR9Hh*WH1-s>GKEpqN8%@;wi@h+x+VB*w
z4Aqp!&a_i%=?vu69<_(lg}aV>_y^dB_y=<8<Da9}?zj6>;0>?7-0<nBhkuU8vlf=*
z#VzlSyQMyzLqZ*rUP4QI)81?WeJI$w6ZmVlXCwRrJ?nP5GvIMB8Vr{p=fQMPYAL4W
zMWbjqhg#eVtSQVx)wQ?mE&P@)prwQEpu2>e!NFuOS%Um}-ClPAJTQ;UQ-9i@qWl;R
zuRb=c4O!viIb6r)<FvSnCw?A~8(`^A`jaK}0$&Hi!C(nIGmpX(x51Y87yVL8m!JVr
zyR)2uR9Wwu_9^mMYAN&ra*QqQNBzzMuf2W`9%ElGkQ&Ri51%E>8~nXD>6Q9)0n#_T
zLCZv2t46yKm_G}g^QNVWJYvsdUzd3mo~&LX7d|$W*R^`a)bZ+L3ni7JJWv8KA4d!5
zYx&O4>v=1W^6w%yo{3n`SgVD{GOsXZ{Fdqwgku~>`8D&Lk4?*swU+xdnn&|FtP?N<
zhB()Tc=fTNlyMHlS(8WkH9Y#*3~yHIAco!?u<|vUMYB1~8D03yVcz5Ca-DT&J~mKR
z(FC4(gh#txumrT8v4nhV_>`fArsXAq&rHpxeHbM;M!1g=-p6KI#!?=3M{^h(%wv=J
z&c}wl@pv?I34G^X5ne$)C=s5qOkblsgL30q+ydsUa+Nj$q`4%(8_NUGqBiqb;H#kq
zeOlIPl&g;oo4~VWcizPbsm(3n-r*6~tWO!r^cnO5ud95m!|L<KdUMTH(sI#|InO4-
zrx&)|;g{R6B7R_xyE>Ye_saW1wfpt9xn}`YLIfLi8{FXSt@-XGpxj+@D>v3dabFl`
zDZ1;xVZ?97z1=;iH{--nA=a_=897IgY>eHTRk9y&Z$K$05Qk=2m?1xxbG>^`4+E-q
zrt55a+(CRqf|LeA_N8aV&Kn2GArQ4;iG}1}6Tww4pgFG~i&dmr;dHPr2Un5(4Uq`h
z`Qe;UwJSu~wK@?+QRap<ayf7hoO=sQNu9gF08}~~Olh^N!4&K6Jaa}E2<gtV;-+o{
zf~(!q8W2%jZ$EB|c>7vP{iJQPOa4@mFRa$odEj6#GHFm&Gg|L95IUjlwJGH7dIOh%
z4}Y0)MqR@^gRr!#oCO}~P+O`U1>gz*lg*d|=q51t_#Hpjx(Pb4wNoF1tJ7`crWFhb
zx~g(>OG_O6ccT>a==@`hFIw_wD@gaWq?W-i;3|W=?}iF3_GFHXy)8X%66iU>gsD4p
z<+}i1isEoS9k*x0{$$o((0?)tiK1<<pbX%Wva=gaWisvI4h(6Hdax0n4(A$|<AIzD
zv{`G^QbR@KA}I}tVrMewfGLg??f>Cy3|8M5wqN6LOEs>uHpv5$On}O49<_(|`B@uB
z?dcLYG1Qy4l(1>OhNfNP2n^@`h$xyKq_$fs)aqbMHLk@}8dbU(EGC^!XFLLDS(kK!
zp7?sGaUlXLXQJD<rGw6B?ra*gvMj~^IO;@I<8DN~X(YhCjJ=B5tNEIY%9>ni>V>Zw
zmjflq+g>o7H0jeYE{8RIH-_QU9#~pdpGV#{idy~rme%n#9xS@;9%%x}yuPJ%xWeso
zPc5wpxbq_HQ;iEpG57CtTB>n5iu!JB=xRCBChuH-F5}X8L-#}lN4Lh+p40OxoeyEs
z&onOmyy?B#goU<XbsI206Vcl_RByhN>96eXz{X4VPZHz3r#RmwJ71{~?Vdu0zI(m0
z!qBgXDQf$l*>PRqN9cp`Mq^?Jqm8EI#rTKga@ZVwG5*bYIk-G}7C7rrIN<4lz8L>7
z5uO>1G}&G-@=YxZX`+A5Ky@QNxRJ1PFV&?5g?#^k#l?&LAO$kF$RKaN5g?DJ=F7(M
zOf=71zD@j&sMy$@iQtu&T8*pPXe5s-#pTFrXz>_dJ;mdELk}Z!6qm!O+;T}#IFb+b
zNY&Cso_fs}#a$?pM*dWyP99r|YEdcuC!ap~n30yowHQ><C7&zB&gehI&xoR>;>9g6
z5=bx@L0b+fViw+Hg{W%2EOiqdqu3Zl#;ENS6{CBK_)rAQZK*Ua(60s`qDayv&pOfd
zb8)bZ)Z^5;COxQ$dwi(^Y6bb;?Y)U$d9+Nl>esZ9#xnIFX@#Ze`P?y*W_d8)d#&64
zwn#NV-JZ9R<^+;0MVu(!<nw@ZX+%4U8rP(Ifx4NyD2_q@DS|}tBR?L4ktPdiq9h~-
z8bOx2aYzv7s&V#K^F=Tgn~4umbcn_{MTQ8!g)vc}u89F5MU89LcjGiPHc2yS{vlcE
zR+Kk{lMzKqFygbY@iX1hz|5?gs`;|50Ah<i>5tVSxIj{e$<!e2GHqYbXrg!x@}P0e
z`&O!^zZ605mZCGH|MZ`0X<UY;SMTzd-_iJ2ahE#dUv>fP?k`r5V3=Xf?Uf-EH+%hP
zArzUio*hDoGw&EWr&d=5Prk>VYO+rD@WQ|2;78t4nO9=o?luX&Tc8F6TJV3^SJ}+=
zqR{~xcGqHHFNZ4-tY)`@#kKoF6Nw4MCcOR7j~r)#bQFoRn0t<eTpMTkRmqsJ>bTL1
z+ao{8%KL7XJ(pTS=D+)nOPYr(l(uPBxf&X(+`|>(%kpD4N0Kf=rmagK!E%iY(}ifs
zZ^nlwgF1PY_@RhOyG_1wcO^58_|tr0QYe`U--)j>KPKt|e3(cNCP883#eHW!ar>$H
z^3q8yPSZ`HK2iN=<Oc8>7pC%Ze^KNF=$m+n<A?boUp729aSBS>(zu?JsLFh!oHZ^?
z8m{EWL@-o2%g@A%h(C=BkD{b4{Pl^A=l*6VAM!i{J?6(mm7F{&vV?M?enq*J`O>;~
zjlN-QN#p83Y9~b;fIrIz#h)BM<uO*vm+j+g<%W?dk1vQa3qK}0rN&f+?uwp)Ts5vX
zq_Yao&q$2cxXN?LHQ%wnH7?{!biqWnuG2S->l!|I?C=$%UK&>$(lLcE*1;>}rg8lm
zzL38%E{a<@o#j4nqHkqf-2UfW%eaIu6WO{>-^#e2!w<{33KvD(&ij=%;A(6c;<Rp6
z;d%~#Rk&Esc+TeUvVI1}dKIqk$yZZczu{Ki`%M50Mg)#JRc`~9x9o8K%;M|OoU+ba
z_KH)YBp_INA+T=4?oMb4<~){8QQ;nIw!<Q*nyrfgP@5KcG0+rLY*$Q~Y*b38b#iE@
zoEvDK*W~V*@~X@|mxc*~WfAxr>(JZ8DpV_;xn?c~3Bj`0=2P+j@1pt#-!dbT^r~z`
zoA&BJSOq#AmFXdp?}*?b0aG0nCS>7+h5X>K`E9R{)Aonapzlulx9^KKj?=220->Q}
zdg_WK&3=E}0~Q?fepjCrlhR&(*OTC^a)+^qe4m}4S<-Ip5opFCWpvhY`JEFq!yI#>
z<PYmUSlVOq!6!cFdv+fTZ5bb-&u?+^wfr`xetVNMHfOyyzOK;btJGy8U>M`}tKFS?
z+kz>W-%Xdm5S$w}7hDmh@;NQ^;qyo1;%8@9Y*?owk8Sh#LEGE_jK;-<R0#^{#$M1F
zgAd#VagvLMo@-oERIWrgBgRdP*oRRBM2RyGmo3I7;m1Ma6Q64?3z;FZc<?I-IQ4+X
zvy?IPo1_!TK1Zw)dt)zlfpVulL0|!o<Dv7QNE&z)4IZc9v&^n>{&gT)vfu|zu#%5m
zpXvqp<z#v6L?VH|qx2><QgQF9kU&(C5}22l<*KZ{!C6t;bNSliljsL?4mYy=4B*wN
zao;X3Wgt8o<}6bw1SEEcZ?%*_Q3`;rjwFKM@f}FjTX##S&=7*3JTkw%RZCL<Emn9#
zC5zX;kkCs=`TcqUeO<)gY9XcF>&%@+SHg;C6I~J_!Zg8UeuL|hYz&ZK3yYC5{gfWq
zVZyviIjev#1}+wU{NlUxm?dyR*X1Av)6+Gax&4$L?TbbMxO3Yi02H*q18`w$+y^AP
zEwR5JG3@ude5P#xZeh+a>{mmvJ<GX?j04W^d&Hxue%?NO$fxOX8}H$mvg6-L!n0%6
zokOXb2<$WjFVYf-Hw{VZ<d%QG0;V4vWO($On|<&E75P=Q(C;oyj>mZYWC!pT>gylF
zuydWJB|kY)K~CG~0!#dRyhxcn!YDwBPtk8ci9rK|xTu;A9J(WCk%uIxn<TISN>b*N
z@)ryz;y>1M(SfWcKBt*A){G07O6*k88-X*iYu$Ju7@3;tAg!v^&_f7bDx#=68nGjw
zL{nA(7&dhj1x}{_-)W_&WAf^SqE0fUg(3*bGrbrLFAD|zxTd#FWR;_3><_+B@QbkF
zg<^ugxAzd6A4|p4`Yug%dLi(pZnccGEIxn6ll6j0G$%K?&v$Z~S$OGc#R%h5^yk>g
znvU6pM$+8<E<GG+!saz~Si7czkmLs(2}5AI4~U^Pv24LXle@*&WDUnZ!{j9B>?1-}
zUhx1*7DeGaKv#gOXbHe2a=bLwQDc}YVqAWSmMo5S#002{ngCoPr(WQ$BdEZtNGgy^
zMER|eI*JTaMUKla(X!c8b)+mv6(w7Ik&yW%Q!_4WiMikO^ag0fNHF*=k>=x?-OoYP
ualp{6J&Y{+^@^&dGpIv+i51`7T*rn$wl?UQu3|yJjQ=`B-pmi?-~RzM&LY78

diff --git a/Proveedores/FacturasProveedores.pas b/Proveedores/FacturasProveedores.pas
index a474f4b..1c6762d 100644
--- a/Proveedores/FacturasProveedores.pas
+++ b/Proveedores/FacturasProveedores.pas
@@ -83,6 +83,8 @@ type
     eNombre: TLabel;
     Buscar: TcxTextEdit;
     bLimpiar: TRdxBoton;
+    bFacturar: TRdxBoton;
+    actCambiarSituacion: TAction;
     procedure RdxFrameFacturasProveedorShow(Sender: TObject);
     procedure actAnadirExecute(Sender: TObject);
     procedure actModificarExecute(Sender: TObject);
@@ -101,6 +103,7 @@ type
     procedure actRefrescarDatosExecute(Sender: TObject);
     procedure BuscarPropertiesChange(Sender: TObject);
     procedure bLimpiarClick(Sender: TObject);
+    procedure actCambiarSituacionExecute(Sender: TObject);
   private
     procedure ActualizarBotones;
   protected
@@ -123,7 +126,7 @@ implementation
 
 { TfrFacturasProveedores }
 uses
-  BaseDatos, TablaFacturasProveedor, IBDatabase,
+  BaseDatos, TablaFacturasProveedor, IBDatabase, CambiarSituacionFacturas,
   IBCustomDataSet, Mensajes, Entidades, Variants,
   FacturaProveedor, Constantes, FacturasProveedorPendientes, TablaEmpresas,
   Configuracion;
@@ -222,7 +225,7 @@ end;
 procedure TfrFacturasProveedores.RdxFrameFacturasProveedorShow(
   Sender: TObject);
 begin
-  gridFacturas.SetFocus;
+  gridFacturas.SetFocus
 end;
 
 procedure TfrFacturasProveedores.actAnadirExecute(Sender: TObject);
@@ -332,4 +335,27 @@ begin
   Buscar.Text := '';
 end;
 
+procedure TfrFacturasProveedores.actCambiarSituacionExecute(Sender: TObject);
+var
+  IndiceCol1 : Integer;
+  IndiceSel : Integer;
+  fCambiarSituacionFacturas : TfrCambiarSituacionFacturas;
+
+begin
+  fCambiarSituacionFacturas := TfrCambiarSituacionFacturas.Create(Self);
+  fCambiarSituacionFacturas.Entidad := entFacturaProveedor;
+
+  //Rellenamos la propiedad de la unidad CambiarSituacion con los códigos seleccionados
+  IndiceCol1 := gridFacturasDBTableView1.GetColumnByFieldName('CODIGO').Index;
+  for IndiceSel:=0 to gridFacturasDBTableView1.Controller.SelectedRowCount-1 do
+      fCambiarSituacionFacturas.CodigosFacturas.Append(gridFacturasDBTableView1.Controller.SelectedRows[IndiceSel].Values[IndiceCol1]);
+
+  try
+    fCambiarSituacionFacturas.ShowModal;
+  finally
+    fCambiarSituacionFacturas.Free;
+    bRefrescar.Click;
+  end;
+end;
+
 end.
diff --git a/Temp/FACTUGES.INI b/Temp/FACTUGES.INI
index d1370d6..104d8a2 100644
--- a/Temp/FACTUGES.INI
+++ b/Temp/FACTUGES.INI
@@ -1,7 +1,7 @@
 [BD]
 MIGUELO RIVAS=david:D:\Proyectos\FactuGES (Miguelo)\Codigo\bd\miguelo.gdb
 ACANA DAVID=david:D:\Proyectos\FactuGES 2000 v2 (Acana)\Codigo\bd\acana.gdb
-MIGUELO ROBERTO=roberto:E:\Miguelo\bd\miguelo.gdb
+MIGUELO ROBERTO=roberto:T:\Miguelo\bd\miguelo.gdb