From e3a4498104f4c4001b2988c106318063e53a87b7 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Mon, 20 Oct 2008 15:25:01 +0000
Subject: [PATCH] =?UTF-8?q?M=C3=B3dulo=20de=20informes=20(sin=20terminar)?=
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@707 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 .../Controller/GestorInformes_controller.dpk  |   3 +-
 .../GestorInformes_controller.dproj           |   1 +
 .../GestorInformes_controller.identcache      | Bin 541 -> 587 bytes
 .../Controller/GestorInformes_controller.res  | Bin 384 -> 4748 bytes
 ...InformeFacturasClientePendientesReport.pas |  26 +++
 .../Controller/uGestorInformesController.pas  |  10 +-
 .../Plugin/uPluginGestorInformes.dfm          |  18 ++
 .../Plugin/uPluginGestorInformes.pas          |  18 ++
 .../Views/GestorInformes_view.dpk             |   1 +
 .../Views/GestorInformes_view.dproj           |  26 ++-
 .../Views/GestorInformes_view.res             | Bin 384 -> 4748 bytes
 ...InformeFacturasClientePendientesReport.dfm | 202 ++++++++++++++++++
 ...InformeFacturasClientePendientesReport.pas | 132 ++++++++++++
 .../uEditorInformeFacturasClienteReport.dfm   |  16 +-
 .../Views/uEditorInformeIVAClientesReport.dfm |  15 +-
 .../Views/uEditorInformeIVAClientesReport.pas |   4 +-
 .../Views/uGestorInformesViewRegister.pas     |   7 +-
 .../Views/uViewFiltroClientes.dfm             |  15 +-
 .../Views/uViewFiltroClientes.pas             |   3 +-
 19 files changed, 462 insertions(+), 35 deletions(-)
 create mode 100644 Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClientePendientesReport.pas
 create mode 100644 Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.dfm
 create mode 100644 Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.pas

diff --git a/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dpk b/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dpk
index 78ef7f0f..8826eae6 100644
--- a/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dpk	
+++ b/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dpk	
@@ -33,6 +33,7 @@ contains
   uGestorInformesController in 'uGestorInformesController.pas',
   uIEditorInformeFacturasClienteReport in 'View\uIEditorInformeFacturasClienteReport.pas',
   uIEditorInformeBase in 'View\uIEditorInformeBase.pas',
-  uIEditorInformeIVAClientesReport in 'View\uIEditorInformeIVAClientesReport.pas';
+  uIEditorInformeIVAClientesReport in 'View\uIEditorInformeIVAClientesReport.pas',
+  uIEditorInformeFacturasClientePendientesReport in 'View\uIEditorInformeFacturasClientePendientesReport.pas';
 
 end.
diff --git a/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dproj b/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dproj
index ab4c5fe6..ce482d02 100644
--- a/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dproj	
+++ b/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dproj	
@@ -43,6 +43,7 @@
     <DCCReference Include="View\Base.dcp" />
     <DCCReference Include="View\GestorInformes_data.dcp" />
     <DCCReference Include="View\uIEditorInformeBase.pas" />
+    <DCCReference Include="View\uIEditorInformeFacturasClientePendientesReport.pas" />
     <DCCReference Include="View\uIEditorInformeFacturasClienteReport.pas" />
     <DCCReference Include="View\uIEditorInformeIVAClientesReport.pas" />
   </ItemGroup>
diff --git a/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.identcache b/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.identcache
index 37e9efebfd7b884590b787f606c64eb6bc339d32..06697ad6f2f7c9662655b3e693178b59d297087a 100644
GIT binary patch
delta 36
scmbQsa++mA9%K1rd&ZE-l8pQ;0jYT@lNp(0CLXDpyqvLYvK?b40M(!i!T<mO

delta 28
kcmX@jGM8mS9;4^Pd<WLhyv!2AiI2J_KVr<BoWocK0GnqEApigX

diff --git a/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.res b/Source/Modulos/Gestor de informes/Controller/GestorInformes_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/Gestor de informes/Controller/View/uIEditorInformeFacturasClientePendientesReport.pas b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClientePendientesReport.pas
new file mode 100644
index 00000000..06f765bc
--- /dev/null
+++ b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClientePendientesReport.pas	
@@ -0,0 +1,26 @@
+unit uIEditorInformeFacturasClientePendientesReport;
+
+interface
+
+uses
+  FactuGES_Intf, uIEditorInformeBase;
+
+type
+  IEditorInformeFacturasClientePendientesReport = interface(IEditorInformeBase)
+  ['{6ADD8C8B-34D8-4F51-9C9C-4A9ED54DDE34}']
+    function GetFechaFin: TDateTime;
+    function GetFechaInicio: TDateTime;
+    function GetListaIDClientes: TIntegerArray;
+    function GetDesglosadoCliente: Boolean;
+    function GetImporteMinimo: Currency;
+    property FechaInicio: TDateTime read GetFechaInicio;
+    property FechaFin: TDateTime read GetFechaFin;
+    property ListaIDClientes: TIntegerArray read GetListaIDClientes;
+    property DesglosadoCliente: Boolean read GetDesglosadoCliente;
+    property ImporteMinimo: Currency read getImporteMinimo;
+  end;
+
+
+implementation
+
+end.
diff --git a/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas b/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas
index fa4289b4..36fffff2 100644
--- a/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas	
+++ b/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas	
@@ -66,7 +66,8 @@ uses
   uDAInterfaces, uDataTableUtils, uDateUtils, uNumUtils,
   DateUtils, Forms, uIntegerListUtils, uDataModuleGestorInformes,
   uSistemaFunc, uDialogElegirEMail, uEMailUtils, Dialogs,
-  uIEditorInformeIVAClientesReport, uIEditorInformeFacturasClienteReport;
+  uIEditorInformeIVAClientesReport, uIEditorInformeFacturasClienteReport,
+  uIEditorInformeFacturasClientePendientesReport;
 
 
 {procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente;
@@ -251,6 +252,7 @@ begin
       with AEditor do
       begin
         AEditor.Controller := Self;
+        AEditor.Title := 'Listado de IVA de facturas de cliente';
         AStream := FDataModule.GetInformeIVAClientes(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo);
         LoadFromStream(AStream);
         Preview;
@@ -279,6 +281,7 @@ begin
       with AEditor do
       begin
         AEditor.Controller := Self;
+        AEditor.Title := 'Listado de facturas de cliente';
         AStream := FDataModule.GetInformeListadoFacturas(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo);
         LoadFromStream(AStream);
         Preview;
@@ -296,17 +299,18 @@ end;
 procedure TGestorInformesController.VerInformeListadoFacturasPendientes;
 var
   AStream: Binary;
-  AEditor : IEditorInformeIVAClientesReport;
+  AEditor : IEditorInformeFacturasClientePendientesReport;
 begin
   AEditor := NIL;
   ShowHourglassCursor;
   try
    try
-      CreateEditor('EditorInformeIVAClientesReport', IEditorInformeIVAClientesReport, AEditor);
+      CreateEditor('EditorInformeFacturasClientePendientesReport', IEditorInformeFacturasClientePendientesReport, AEditor);
       if Assigned(AEditor) then
       with AEditor do
       begin
         AEditor.Controller := Self;
+        AEditor.Title := 'Listado de facturas de cliente pendientes';
         AStream := FDataModule.GetInformeListadoFacturasPendientes(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo);
         LoadFromStream(AStream);
         Preview;
diff --git a/Source/Modulos/Gestor de informes/Plugin/uPluginGestorInformes.dfm b/Source/Modulos/Gestor de informes/Plugin/uPluginGestorInformes.dfm
index 8f8b21be..7056dde4 100644
--- a/Source/Modulos/Gestor de informes/Plugin/uPluginGestorInformes.dfm	
+++ b/Source/Modulos/Gestor de informes/Plugin/uPluginGestorInformes.dfm	
@@ -49,6 +49,18 @@ object PluginGestorInformes: TPluginGestorInformes
       ImageIndex = 0
       OnExecute = actInformeFacturasClienteExecute
     end
+    object actInformeFacturasClientePendientes: TAction
+      Category = 'Facturas de cliente'
+      Caption = 'Listado de facturas de cliente pendientes'
+      ImageIndex = 0
+      OnExecute = actInformeFacturasClientePendientesExecute
+    end
+    object actInformeFacturasClienteIVA: TAction
+      Category = 'Facturas de cliente'
+      Caption = 'Listado de IVA de facturas de cliente'
+      ImageIndex = 0
+      OnExecute = actInformeFacturasClienteIVAExecute
+    end
   end
   object MainMenu: TMainMenu
     Images = LargeImages
@@ -59,6 +71,12 @@ object PluginGestorInformes: TPluginGestorInformes
       object Listadodefacturasdecliente1: TMenuItem
         Action = actInformeFacturasCliente
       end
+      object Listadodefacturasdeclientependientes1: TMenuItem
+        Action = actInformeFacturasClientePendientes
+      end
+      object ListadodeIVAdefacturasdecliente1: TMenuItem
+        Action = actInformeFacturasClienteIVA
+      end
     end
   end
   object SmallImages: TPngImageList
diff --git a/Source/Modulos/Gestor de informes/Plugin/uPluginGestorInformes.pas b/Source/Modulos/Gestor de informes/Plugin/uPluginGestorInformes.pas
index 6ec52a9e..5a2dbec3 100644
--- a/Source/Modulos/Gestor de informes/Plugin/uPluginGestorInformes.pas	
+++ b/Source/Modulos/Gestor de informes/Plugin/uPluginGestorInformes.pas	
@@ -20,7 +20,13 @@ type
     Informes1: TMenuItem;
     actInformeFacturasCliente: TAction;
     Listadodefacturasdecliente1: TMenuItem;
+    actInformeFacturasClientePendientes: TAction;
+    actInformeFacturasClienteIVA: TAction;
+    Listadodefacturasdeclientependientes1: TMenuItem;
+    ListadodeIVAdefacturasdecliente1: TMenuItem;
     procedure actInformeFacturasClienteExecute(Sender: TObject);
+    procedure actInformeFacturasClientePendientesExecute(Sender: TObject);
+    procedure actInformeFacturasClienteIVAExecute(Sender: TObject);
   private
     FController : IGestorInformesController;
   public
@@ -50,6 +56,18 @@ begin
   FController.VerInformeListadoFacturas;
 end;
 
+procedure TPluginGestorInformes.actInformeFacturasClienteIVAExecute(
+  Sender: TObject);
+begin
+  FController.VerInformeIVAClientes;
+end;
+
+procedure TPluginGestorInformes.actInformeFacturasClientePendientesExecute(
+  Sender: TObject);
+begin
+  FController.VerInformeListadoFacturasPendientes;
+end;
+
 constructor TPluginGestorInformes.Create(AOwner: TComponent);
 begin
   inherited;
diff --git a/Source/Modulos/Gestor de informes/Views/GestorInformes_view.dpk b/Source/Modulos/Gestor de informes/Views/GestorInformes_view.dpk
index 839a94e5..dd418bca 100644
--- a/Source/Modulos/Gestor de informes/Views/GestorInformes_view.dpk	
+++ b/Source/Modulos/Gestor de informes/Views/GestorInformes_view.dpk	
@@ -43,6 +43,7 @@ contains
   uEditorInformeBase in 'uEditorInformeBase.pas' {fEditorInformeBase: TForm},
   uViewFiltroClientes in 'uViewFiltroClientes.pas' {frViewFiltroClientes: TFrame},
   uViewParametrosInforme in 'uViewParametrosInforme.pas' {frViewParametrosInforme: TFrame},
+  uEditorInformeFacturasClientePendientesReport in 'uEditorInformeFacturasClientePendientesReport.pas' {fEditorInformeFacturasClientePendientesReport: t},
   uEditorInformeFacturasClienteReport in 'uEditorInformeFacturasClienteReport.pas' {fEditorInformeFacturasClienteReport: TForm};
 
 end.
diff --git a/Source/Modulos/Gestor de informes/Views/GestorInformes_view.dproj b/Source/Modulos/Gestor de informes/Views/GestorInformes_view.dproj
index 5118e753..7bcf16d6 100644
--- a/Source/Modulos/Gestor de informes/Views/GestorInformes_view.dproj	
+++ b/Source/Modulos/Gestor de informes/Views/GestorInformes_view.dproj	
@@ -38,23 +38,26 @@
     <DelphiCompile Include="GestorInformes_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\GestorInformes_controller.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="ApplicationBase.dcp" />
+    <DCCReference Include="Base.dcp" />
+    <DCCReference Include="Contactos_controller.dcp" />
+    <DCCReference Include="Contactos_model.dcp" />
+    <DCCReference Include="Contactos_view.dcp" />
+    <DCCReference Include="GestorInformes_controller.dcp" />
+    <DCCReference Include="GUIBase.dcp" />
+    <DCCReference Include="rtl.dcp" />
     <DCCReference Include="uEditorInformeBase.pas">
       <Form>fEditorInformeBase</Form>
       <DesignClass>TForm</DesignClass>
     </DCCReference>
-    <DCCReference Include="uEditorInformeFacturasClienteReport.pas">
-      <Form>fEditorInformeFacturasClienteReport</Form>
+    <DCCReference Include="uEditorInformeFacturasClientePendientesReport.pas">
+      <Form>fEditorInformeFacturasClientePendientesReport</Form>
       <DesignClass>t</DesignClass>
     </DCCReference>
+    <DCCReference Include="uEditorInformeFacturasClienteReport.pas">
+      <Form>EditorInformeFacturasClienteReport</Form>
+      <DesignClass>T</DesignClass>
+    </DCCReference>
     <DCCReference Include="uEditorInformeIVAClientesReport.pas">
       <Form>fEditorInformeIVAClientesReport</Form>
       <DesignClass>TForm</DesignClass>
@@ -76,6 +79,7 @@
       <Form>frViewPeriodoFechas</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
+    <DCCReference Include="vcl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
diff --git a/Source/Modulos/Gestor de informes/Views/GestorInformes_view.res b/Source/Modulos/Gestor de informes/Views/GestorInformes_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/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.dfm
new file mode 100644
index 00000000..7b86564c
--- /dev/null
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.dfm	
@@ -0,0 +1,202 @@
+inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturasClientePendientesReport
+  Caption = 'fEditorInformeFacturasClientePendientesReport'
+  ClientHeight = 655
+  ClientWidth = 895
+  ExplicitWidth = 903
+  ExplicitHeight = 689
+  PixelsPerInch = 96
+  TextHeight = 13
+  inherited JvNavPanelHeader: TJvNavPanelHeader
+    Width = 895
+    ExplicitWidth = 895
+    inherited Image1: TImage
+      Left = 868
+      ExplicitLeft = 868
+    end
+  end
+  inherited TBXDock: TTBXDock
+    Width = 895
+    ExplicitWidth = 895
+    inherited tbxMenu: TTBXToolbar
+      ExplicitWidth = 895
+    end
+    inherited TBXToolbar1: TTBXToolbar
+      ExplicitWidth = 591
+      object TBXItem58: TTBXItem [0]
+        Action = actRefrescar
+        DisplayMode = nbdmImageAndText
+        Images = SmallImages
+      end
+    end
+  end
+  inherited StatusBar: TJvStatusBar
+    Top = 636
+    Width = 895
+    ExplicitTop = 636
+    ExplicitWidth = 895
+  end
+  inherited TBXMultiDockIzquierdo: TTBXMultiDock
+    Height = 534
+    ExplicitHeight = 534
+  end
+  inherited TBXMultiDockDerecho: TTBXMultiDock
+    Left = 703
+    Width = 192
+    Height = 534
+    ExplicitLeft = 703
+    ExplicitWidth = 192
+    ExplicitHeight = 534
+    inherited pnlParametros: TTBXDockablePanel
+      DockedWidth = 188
+      ExplicitWidth = 192
+      ExplicitHeight = 518
+      inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
+        Left = 0
+        Top = 0
+        Width = 188
+        Height = 136
+        Align = alTop
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 0
+        ReadOnly = False
+        ExplicitWidth = 188
+        ExplicitHeight = 136
+        inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+          Width = 182
+          ExplicitWidth = 182
+          inherited cbPeriodo: TcxComboBox
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitWidth = 153
+            Width = 153
+          end
+        end
+        inherited TBXAlignmentPanel2: TTBXAlignmentPanel
+          Width = 182
+          ExplicitWidth = 182
+          inherited Label3: TLabel
+            Width = 172
+          end
+          inherited edtFechaFin: TcxDateEdit
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitWidth = 99
+            Width = 99
+          end
+          inherited edtFechaIni: TcxDateEdit
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitWidth = 97
+            Width = 97
+          end
+        end
+        inherited TBXLabel2: TTBXLabel
+          Width = 188
+          ExplicitWidth = 188
+        end
+      end
+      inherited TBXDockablePanel1: TTBXDockablePanel
+        Top = 456
+        TabOrder = 2
+        ExplicitTop = 456
+        ExplicitWidth = 188
+        ExplicitHeight = 40
+        inherited TBXButton1: TTBXButton
+          AlignWithMargins = True
+          Left = 3
+          Top = 3
+          Width = 182
+          Height = 37
+          Margins.Left = 8
+          Margins.Top = 8
+          Margins.Right = 8
+          Margins.Bottom = 8
+          Align = alTop
+          ExplicitLeft = 3
+          ExplicitTop = 3
+          ExplicitWidth = 182
+          ExplicitHeight = 37
+        end
+      end
+      inline frViewFiltroImportes1: TfrViewFiltroImportes
+        Left = 0
+        Top = 136
+        Width = 188
+        Height = 77
+        Align = alTop
+        AutoSize = True
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 1
+        ReadOnly = False
+        ExplicitTop = 136
+        ExplicitWidth = 188
+        ExplicitHeight = 77
+        inherited TBXLabel2: TTBXLabel
+          Width = 188
+          ExplicitWidth = 188
+        end
+        inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+          Width = 182
+          ExplicitWidth = 182
+          inherited eImporte: TcxSpinEdit
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+          end
+        end
+      end
+      inline frViewFiltroClientes1: TfrViewFiltroClientes
+        Left = 0
+        Top = 213
+        Width = 188
+        Height = 146
+        Align = alTop
+        AutoSize = True
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 3
+        ReadOnly = False
+        ExplicitTop = 213
+        ExplicitWidth = 188
+        ExplicitHeight = 146
+        inherited TBXLabel2: TTBXLabel
+          Width = 188
+          ExplicitWidth = 188
+        end
+        inherited bElegirCliente: TBitBtn
+          Width = 108
+          ExplicitWidth = 108
+        end
+        inherited edtCliente: TcxTextEdit
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 141
+          Width = 141
+        end
+      end
+    end
+  end
+end
diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.pas
new file mode 100644
index 00000000..2d2caace
--- /dev/null
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.pas	
@@ -0,0 +1,132 @@
+unit uEditorInformeFacturasClientePendientesReport;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uEditorPreview, frxExportText, frxExportRTF, frxExportMail,
+  frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
+  frxChBox, frxCross, frxRich, frxOLE, frxBarcode, JvAppStorage,
+  JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
+  StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
+  TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
+  JvExControls, JvNavigationPane, uCustomView,
+  uViewBase, uViewPeriodoFechas, uViewDatosYSeleccionClienteBase,
+  uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
+  FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
+  uIEditorInformeBase, uViewParametrosInforme,
+  uIEditorInformeFacturasClientePendientesReport;
+
+type
+  TfEditorInformeFacturasClientePendientesReport = class(TfEditorInformeBase, IEditorInformeFacturasClientePendientesReport)
+    TBXItem58: TTBXItem;
+    frViewPeriodoFechas1: TfrViewPeriodoFechas;
+    frViewFiltroImportes1: TfrViewFiltroImportes;
+    frViewFiltroClientes1: TfrViewFiltroClientes;
+    procedure actRefrescarExecute(Sender: TObject);
+  private
+    FListaIDClientes: TIntegerArray;
+    function GetFechaFin: TDateTime;
+    function GetFechaInicio: TDateTime;
+    function GetListaIDClientes: TIntegerArray;
+    function GetImporteMinimo: Currency;
+    function GetDesglosadoCliente: Boolean;
+
+    procedure RefrescarInforme;
+
+  public
+    property FechaInicio: TDateTime read GetFechaInicio;
+    property FechaFin: TDateTime read GetFechaFin;
+    property ListaIDClientes: TIntegerArray read GetListaIDClientes;
+    property DesglosadoCliente: Boolean read GetDesglosadoCliente;
+    property ImporteMinimo: Currency read GetImporteMinimo;
+
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+  end;
+
+
+implementation
+
+{$R *.dfm}
+
+uses uROTypes, uGestorInformesController, uFactuGES_App;
+
+{ TfEditorGestorInformesReport }
+
+procedure TfEditorInformeFacturasClientePendientesReport.actRefrescarExecute(Sender: TObject);
+begin
+  inherited;
+  RefrescarInforme;
+end;
+
+constructor TfEditorInformeFacturasClientePendientesReport.Create(AOwner: TComponent);
+begin
+  inherited;
+  FListaIDClientes := TIntegerArray.Create;
+end;
+
+destructor TfEditorInformeFacturasClientePendientesReport.Destroy;
+begin
+  FListaIDClientes.Free;
+  inherited;
+end;
+
+function TfEditorInformeFacturasClientePendientesReport.GetDesglosadoCliente: Boolean;
+begin
+  if frViewFiltroImportes1.cbxDesglosado.Enabled then
+    Result := frViewFiltroClientes1.cbxDesglosado.Checked
+  else
+     Result := False;
+end;
+
+function TfEditorInformeFacturasClientePendientesReport.GetFechaFin: TDateTime;
+begin
+  Result := frViewPeriodoFechas1.edtFechaFin.Date;
+end;
+
+function TfEditorInformeFacturasClientePendientesReport.GetFechaInicio: TDateTime;
+begin
+  Result := frViewPeriodoFechas1.edtFechaIni.Date;
+end;
+
+function TfEditorInformeFacturasClientePendientesReport.GetImporteMinimo: Currency;
+begin
+  if frViewFiltroImportes1.eImporte.Enabled then
+     Result := frViewFiltroImportes1.eImporte.Value
+  else
+     Result := 0;
+end;
+
+function TfEditorInformeFacturasClientePendientesReport.GetListaIDClientes: TIntegerArray;
+begin
+  FListaIDClientes.Clear;
+  if Assigned(frViewFiltroClientes1.Cliente) then
+     FListaIDClientes.Add(frViewFiltroClientes1.Cliente.ID);
+
+  Result := FListaIDClientes;
+end;
+
+procedure TfEditorInformeFacturasClientePendientesReport.RefrescarInforme;
+var
+  AStream: Binary;
+begin
+  ShowHourglassCursor;
+  try
+    AStream := (Controller as IGestorInformesController).DataModule.GetInformeListadoFacturasPendientes(
+      AppFactuGES.EmpresaActiva.ID,
+      FechaInicio,
+      FechaFin,
+      ListaIDClientes,
+      DesglosadoCliente,
+      ImporteMinimo);
+
+    LoadFromStream(AStream);
+    Report.ShowPreparedReport;
+  finally
+    FreeAndNil(AStream);
+    HideHourglassCursor;
+  end;
+end;
+
+end.
diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.dfm
index de4a1e11..9018c2cb 100644
--- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.dfm	
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.dfm	
@@ -82,7 +82,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
           Width = 182
           ExplicitWidth = 182
           inherited Label3: TLabel
-            Width = 85
+            Width = 172
           end
           inherited edtFechaFin: TcxDateEdit
             Style.LookAndFeel.SkinName = ''
@@ -107,10 +107,11 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
         end
       end
       inherited TBXDockablePanel1: TTBXDockablePanel
-        Top = 368
+        Top = 446
         TabOrder = 2
-        ExplicitTop = 368
+        ExplicitTop = 440
         ExplicitWidth = 188
+        ExplicitHeight = 50
         inherited TBXButton1: TTBXButton
           AlignWithMargins = True
           Left = 3
@@ -165,8 +166,9 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
         Left = 0
         Top = 213
         Width = 188
-        Height = 195
+        Height = 146
         Align = alTop
+        AutoSize = True
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
         Font.Height = -11
@@ -177,18 +179,22 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
         ReadOnly = False
         ExplicitTop = 213
         ExplicitWidth = 188
+        ExplicitHeight = 146
         inherited TBXLabel2: TTBXLabel
           Width = 188
           ExplicitWidth = 188
         end
         inherited bElegirCliente: TBitBtn
-          ExplicitWidth = 382
+          Width = 108
+          ExplicitWidth = 108
         end
         inherited edtCliente: TcxTextEdit
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 141
+          Width = 141
         end
       end
     end
diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.dfm
index 9348cfdb..b74db8c4 100644
--- a/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.dfm	
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.dfm	
@@ -107,11 +107,11 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
         end
       end
       inherited TBXDockablePanel1: TTBXDockablePanel
-        Top = 368
+        Top = 446
         TabOrder = 2
-        ExplicitTop = 368
+        ExplicitTop = 424
         ExplicitWidth = 188
-        ExplicitHeight = 128
+        ExplicitHeight = 50
         inherited TBXButton1: TTBXButton
           AlignWithMargins = True
           Left = 3
@@ -166,8 +166,9 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
         Left = 0
         Top = 213
         Width = 188
-        Height = 195
+        Height = 146
         Align = alTop
+        AutoSize = True
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
         Font.Height = -11
@@ -178,18 +179,22 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
         ReadOnly = False
         ExplicitTop = 213
         ExplicitWidth = 188
+        ExplicitHeight = 146
         inherited TBXLabel2: TTBXLabel
           Width = 188
           ExplicitWidth = 188
         end
         inherited bElegirCliente: TBitBtn
-          ExplicitWidth = 382
+          Width = 108
+          ExplicitWidth = 108
         end
         inherited edtCliente: TcxTextEdit
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 141
+          Width = 141
         end
       end
     end
diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.pas
index fe6117db..81381d1f 100644
--- a/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.pas	
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.pas	
@@ -14,10 +14,10 @@ uses
   uViewBase, uViewPeriodoFechas, uViewDatosYSeleccionClienteBase,
   uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
   FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
-  uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasClienteReport;
+  uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeIVAClientesReport;
 
 type
-  TfEditorInformeIVAClientesReport = class(TfEditorInformeBase, IEditorInformeFacturasClienteReport)
+  TfEditorInformeIVAClientesReport = class(TfEditorInformeBase, IEditorInformeIVAClientesReport)
     TBXItem58: TTBXItem;
     frViewPeriodoFechas1: TfrViewPeriodoFechas;
     frViewFiltroImportes1: TfrViewFiltroImportes;
diff --git a/Source/Modulos/Gestor de informes/Views/uGestorInformesViewRegister.pas b/Source/Modulos/Gestor de informes/Views/uGestorInformesViewRegister.pas
index 8d21c0df..c0c4fa9d 100644
--- a/Source/Modulos/Gestor de informes/Views/uGestorInformesViewRegister.pas	
+++ b/Source/Modulos/Gestor de informes/Views/uGestorInformesViewRegister.pas	
@@ -8,12 +8,15 @@ procedure UnregisterViews;
 implementation
 
 uses
-  uEditorRegistryUtils, uEditorInformeIVAClientesReport, uEditorInformeFacturasClienteReport;
+  uEditorRegistryUtils, uEditorInformeIVAClientesReport, uEditorInformeFacturasClienteReport,
+  uEditorInformeFacturasClientePendientesReport
+  ;
 
 procedure RegisterViews;
 begin
   EditorRegistry.RegisterClass(TfEditorInformeIVAClientesReport, 'EditorInformeIVAClientesReport');
-  EditorRegistry.RegisterClass(TfEditorInformeFacturasClienteReport, 'EditorInformeFacturasClienteReport');  
+  EditorRegistry.RegisterClass(TfEditorInformeFacturasClienteReport, 'EditorInformeFacturasClienteReport');
+  EditorRegistry.RegisterClass(TfEditorInformeFacturasClientePendientesReport, 'EditorInformeFacturasClientePendientesReport');
 end;
 
 procedure UnregisterViews;
diff --git a/Source/Modulos/Gestor de informes/Views/uViewFiltroClientes.dfm b/Source/Modulos/Gestor de informes/Views/uViewFiltroClientes.dfm
index 1285c08f..f6e4da86 100644
--- a/Source/Modulos/Gestor de informes/Views/uViewFiltroClientes.dfm	
+++ b/Source/Modulos/Gestor de informes/Views/uViewFiltroClientes.dfm	
@@ -1,13 +1,16 @@
 inherited frViewFiltroClientes: TfrViewFiltroClientes
-  Width = 184
+  Width = 211
   Align = alTop
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
   ExplicitWidth = 451
+  DesignSize = (
+    211
+    195)
   object TBXLabel2: TTBXLabel
     Left = 0
     Top = 0
-    Width = 184
+    Width = 211
     Height = 29
     Margins.Top = 5
     Margins.Bottom = 10
@@ -27,7 +30,7 @@ inherited frViewFiltroClientes: TfrViewFiltroClientes
     AlignWithMargins = True
     Left = 61
     Top = 123
-    Width = 115
+    Width = 142
     Height = 23
     Margins.Left = 0
     Margins.Top = 0
@@ -73,11 +76,12 @@ inherited frViewFiltroClientes: TfrViewFiltroClientes
       AA00C315D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
       FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
       E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
+    ExplicitWidth = 382
   end
   object cbxDesglosado: TCheckBox
     Left = 23
     Top = 49
-    Width = 176
+    Width = 146
     Height = 17
     Caption = 'Desglosar por cliente'
     Checked = True
@@ -105,8 +109,9 @@ inherited frViewFiltroClientes: TfrViewFiltroClientes
     StyleHot.LookAndFeel.NativeStyle = True
     StyleHot.LookAndFeel.SkinName = ''
     TabOrder = 3
+    ExplicitWidth = 415
     Height = 21
-    Width = 148
+    Width = 175
   end
   object rbTodosClientes: TRadioButton
     Left = 6
diff --git a/Source/Modulos/Gestor de informes/Views/uViewFiltroClientes.pas b/Source/Modulos/Gestor de informes/Views/uViewFiltroClientes.pas
index 5359f4b6..bf164933 100644
--- a/Source/Modulos/Gestor de informes/Views/uViewFiltroClientes.pas	
+++ b/Source/Modulos/Gestor de informes/Views/uViewFiltroClientes.pas	
@@ -75,6 +75,7 @@ begin
     cbxDesglosado.Enabled := True;
     FCliente := NIL;
     bElegirCliente.Enabled := False;
+    edtCliente.Enabled := False;    
   end;
 end;
 
@@ -84,7 +85,7 @@ begin
   begin
     cbxDesglosado.Enabled := False;
     bElegirCliente.Enabled := True;
-
+    edtCliente.Enabled := True;
     if not Assigned(FClientesController) then
       FClientesController := TClientesController.Create;
   end;