From 8de8c7092712c4231defe9f5b8a2a60a84e8ce64 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Fri, 17 Oct 2008 14:08:01 +0000
Subject: [PATCH] Modulo nuevo para los informes estadisticos e informes que ya
 tenian anteriormente

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@693 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 .../Controller/GestorInformes_controller.dcu  | Bin 23462 -> 23466 bytes
 .../GestorInformes_controller.identcache      | Bin 224 -> 453 bytes
 .../Controller/uGestorInformesController.dcu  | Bin 5371 -> 7211 bytes
 .../Controller/uGestorInformesController.pas  |  62 +++++++++++++++++-
 4 files changed, 60 insertions(+), 2 deletions(-)

diff --git a/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dcu b/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dcu
index 66dca6875cef89d4667ac3dd4ae09764ef42cd06..193dc5da0cdeeae4ebbf694b26c0c533e9940075 100644
GIT binary patch
delta 2114
zcma)-acrDr9mntc-d*o^*DGw3nYYfFjc)Uux@A+=T$QQ=OWp$t+_oEc9UZ%@M|xr1
z+O8!nq09<3E3vxUOUX(oS&b!hT0_MOHCC;0K#e1eIOB{n%rL?TGt}6`{?Wt_;9n*t
zHu=1t=lT79&-1*`^FD2#dr4<r(u$f;Xw{j0q0nS&rmlSd!m09#8?`prUt1m7+S2(z
z`Th;D13$dG&T0QB7Tem={@_AWru^QcUt8CmZfGfW9qCLTe&9%FTQR+N=dFiI#lv02
zqq~ajM>@Mgp@YTh|0?=8b4%f9@x=k{x#{-*W0F+|cl_^JLZKTD)`s{goUA>uqB$8V
zCDMmWU8TaI(!<4kaJtrwWs{*pS6bG;_^aCMtAn>{EqMLzO~*1xQzq#uVybZUDbuG@
z`iyCv=|<BA(<e=?t4$`))#prK@U_*n&GbdnO`d8^DOX=M-E8`*>FX)oV)}-s+f2Uc
zcGI1vyG-|(cA55g+H1<0noRe3+HX2w!9(|4cg%Fi(_vG)sngVDddSq{>S5C(z8*Dw
z)77_3kDI=2I&ONx^c_#%HJxyE()46XPnk}co;E#Wde(H>)%Q(5aP^$&dD9uwk6iuO
z^n&Rprk|RAW_sE5bJH(e{n9e}wdpse-@1Cm^qT2+rr-DIb<-QBH%))=^heX5On)~0
z#noR;Z~6M0>21?Hrgu|%&-A|O@1_r2{loOnT(Boo8#Qfq+~9ken$?`J<0<Qy@=mLo
zal!F|S2H#Bra{No5RtNz(l8!zT#e!}MvUVL`jdDHPvaSwg*j&U?5>&}rmIw5BeFon
zB3@#~Wvp<IqG3}!?5hf|gw;?T_JU)()^O@|;gsr$?4+Urr*R|Bgj<!x`LL&ET);(K
zqP`7xKsWS;bLzwW;pa7g2g9z0a2XHd5g3Ir7>5a%gem5kK1O2(W?_zn&*FJr`5ZnE
z7vLgXg3IBIqboG7!ZlccMOfm^ma!t9qFmuPRKZGE4b>4>Yw`MsuZ?&!Y=P|&3r_9+
z1m7qfNd+(LUbB(iQQJnY1G=G?ejn~<?g2a)@q!O_uW4i-WG0DBk(tIbcoxsWS(t}&
zaGtsg_#*jB_%d99t8fh#B7TtD^H>9GMLqRJSu5&l01wh1!e#oycmzgaESl0do`6Z1
ziu#(yGf_8Kmt9lET8y|v<Z{#x{OrNC?69IojTL-Ve!sIgU*W467b@J~wd_7>=V*C*
zj~2NRF<135ZUk<?X=sEDWFa3*sTmi@7jY@(s||NRH}n$k!~HM-gVYb<G7Q5=to7u*
zpJ&PWm>X=n_rptgHOBQNwE&B-M1L8}Oi_qK6|6K*t8umQN%4BT5pRYqupM?l9n`~4
z>Kkwx8X;r8vN+GUW?Ud&+)txKpbd9etGaP7^g%xiz#xS~xD3NELj5Qn!{c}YCSi)Y
zX*@%G7SGx7z{}NaWQ%035m_L!h?ig)*qfpdkGny8?!#lLi@zM4&V7l$7#(p}-Q;?4
zAMTHz3f}!_wuyL7lSHP-Oye0mi|61h%u~57e+Nffok(eIf}=`sRCqINf$gvZ>YyHW
zCXTBCrxTtUaVF8DEY3qS6cRZVaS7U>gSu|qOI;uCPxu<ZgRC=z%P@Qwj}Zc+c#Hw#
zc!K^Uo?^f>o}oXB=kQrP59i=KT!4#k2`(qxz;F5r*L!^>Td8C#m8sxF)2$qCM<p*q
zq_;AsKHLujFbG3Xu5^QcHSN2P<7ez5k)_I3En_A9WH#yW?=O+ee{3g_NH+hcNz`$i
l>#WK-;p{)(Qg)mJp_8GYqGCnJ3GH3QBX<LjrYA#%e*>XipnCuS

delta 2160
zcmaKte@xtG9mnteJ+6E>z_i;i-^wtw3_a|+h+Ugw+GUKf-l^C23RjQzXuQF7oP!=e
z?hI5ZqGC!F)7uR*oER~q8QU=8#0?`xrl=Tetg*(L)mU}Lsu)o*X$*<4X8T)`*S((S
z^Z7i_^Zh>0^9|3xtV=IzdyU6)$EA}VPyK}>4G&gsy_Vm;d+)tX4<sHr(iDp{pQ}&A
z26D;%bSBYs<nW{6Lj+n=J-vy}?CE_E2k*=F^yZJ=bLjS9r?;J9O_|R0<C*H#RL4L%
zo9a%qWODr-sYE2xnd{CBBo3tpvYGzs&Qx{!%;`*jPilY>XR`g7?(S57BLA@}?~lgA
z`De~m-JJ_Jcc!U*V?_AP>SL+iOn>&JxLWUj=l?C?tvU{P_-icuXaB{0u`*BEA3l@L
zrjy<2v#BWEyB<1}${tO2Jdu1nb$j~O<YV2bNSUX5wX@pm@z_f%2kLi@gv(6fGFL^W
zZLVC?+k(2=^mbFVX}9Sv(_3BLV|s_HfazT!-D|qf^lsC80=nOHz*W%nfa!gv2ZMUZ
z^l(6rm>xBSOz$^+&~(^z)O0MMR?~4)+;k$Kgz1!x=)<PROr56FrY_S*0_rxMG4-1I
zO<B`NT@9MfhV*gMIai-BebV%4(`QWQO&0?CoaytfE}EVU>M7F~Oi!D>X!?@r%dWm+
z`l_pEO_xm1nVxs`qUmd<ubaNX(%&?F%k+xr+pfN2`mX7FrdM74!1P1Yk4--r)K5)6
zGyUB3i-3M<`jzR|rr)@F&Gg%lerNi<>5ryA1@&jsUrc{9{oU0+O#h7Q-&QyhJ>YXy
z=UCxFw5B4UsAGybU24PaPC!XAuSRPQhBQuO!U-ymCmmN)c$$hCJWGEL&*KHW2urX`
zeuWu!AFJ6P&`l!iRBYf)C!||=%NdlsCZ9K?5?l^Dpu!u_POlZt9;+M)s)5KsDjIP!
z4&#WoOHmx7vJJQ6Bu;sQO5+~rgPb?6Aw2ATPNR6t>uMZN;5?p$DVT;Cn1wl*XPyPT
zIKs~oEVJ+mUiA)Y4PS;Ua22k>b#K(s4H~b*O<0Ew*yPD>;VpdoF8iPa%3%jo6uH`o
ztBOL}g=?V>_CkG;6$&kP`hp76dZDGV)>WE#5A;Efu|s&cD4<b1hR3P=YfEK>Ga)ih
zWC1VYCA<tPunKE%nHjF&tK_fY>u>{Jhnuj@Q*AI~OY5ha0~+$N7B^-TkNH>&Ptecf
zNtl9Zo^}S$!W_)|LR!F!)Ghg}P#LQ%cXf@(buu@IG{riq1{L1Msq&#maco;iZMdC&
za+?*tA3MqD6<RgN2U4yYin$TRt{QPOgdqY^h!qFbhTF*}ajH0^H12^u$PpjH!!QbC
z)Q{r{$irlDm!^uX@ZaNmSaXfmo)1-yaDU0I!v<^?bEbF;WSl9KK)D6916LSlimUK0
zTnlxu7wTa@G{8aX8*wv)Az~p#ag1?oxSf0wr%n+_)9A4-_2C>0!7z-%7=`0_0`f3P
z{S=<YGk6x}V4k`KyhwZrFWY&o7~2}JspS=ktdrTmn{W%ZfOnIx#8pX&6`qLi@x7u3
zTF=DyRk-RSmm@cXhfAK;D49PnTU>KQ=E*GJMZAQUVFgyHT%&SN+Xwi-cly~XKU;-s
zp$_&!J?w`DIOspGM%?TVD2yZiK}B&4+MwMZR}!Zn4L#KL;T&~Cc-SA(C>~>-aXbNe
zm^@5iipDepX7DWiIXusR1-wXq2`}Rnyb5b@8Lq%pxCYnB-|%yrPrR4=y{nX0DGjQw
z)C!+H(ZuHV5y_RtHH3#@6vkj2CQA8+sQlN7lPzpNk<HRB-NIX?!Lmr1!#_fQS@aD%
ret%i)%_dRDao%F(&P6A&(3y9fQ=TV1g`%SE9>;V14u0ZKd6NGFmEW&g

diff --git a/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.identcache b/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.identcache
index aa5a7f0520a1e81ec054348eb41f54bde116cf51..bdbaa3dbcfa9168e5ca21f26d9a22b237ce8f615 100644
GIT binary patch
delta 93
zcmaFBc$AruWg_E!#-xe)zDk~XY57IDsX?g)`9&p8iN&dU1&PHBNFWoaN&~9OGtALB
PCo?s#B()f#0bMZwNWK}~

delta 9
QcmX@g{D6^>X(Ho&01wpz9smFU

diff --git a/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.dcu b/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.dcu
index 967e0efe1559b10af13f0dc79f24c90d7162669b..6793094990cb4b05d46425eceec603fcb576ffa6 100644
GIT binary patch
delta 2025
zcmbtUZ){Ul6hH6Yvu^F)+P6`$ZMv-+FxQPWYw3_G8)N*D>L6}`IhIjZS;va7v8_Wf
z!A=s;5scRBkeH5S1``cVv#c0tfJh<{2u2e>z>FsP#UL(3j8P`p@Z7FLzbt5c&F}pA
zy>rez_uTt>$9Zyvwg@1v+zv3>+2D&ked}0ETg6XyHjFi1=Xm4!?Nj45IH+X)5ZL_U
z4x3ASm|?}wJf5$_&l&4CIQsqT+QX6VUVm3dckk|yziIWFUExqyB-Ga!+SA<|0q7{a
zPsoOW_JiX+I<9259dMm1UJmq3h-hYER`P@7p~X;U6|3}C-79eQ+PB{E3z<(T)_Io|
zZha-*y?yJ72<e}|X=x<%VT36%iVXEQBbgpUvyKr1W8zDLS6N2oZAFiTBI!NUhx;PI
z_U`q;?UDZ8VBY}nx!7`pm1P2GC8pA9nN&V+(vzXC_SrEE0NzVioZ^mQi?UEOWS1({
z;)QIxxthuCng|1NWp%20u^3h@9Ro~*%DA#_mNL1l^R6|(^1u^U{Bx0u=8gPESIi9F
zxUx}P&VIO{A-yS=x~4Z2jD%)S6yWCMk+`x&6sq~kR#B}!Xxo+!tjt^+>WlPt@B5U^
z+;(Tgm7wTSOO=p#ODze8=c>)$F|eCfb}X*!o(ugqEmM+HCiRGO>LxLzE+Cj$QK2y9
zY*J7Javl=<bFv6ETOX%!ZYBf>MFc0oO{gX)1U(^_U`_iS&u(dX?V~@|kGVcsw(I-o
z?w!P&3G%5Y98FmO&BAS5FkWc<hOM|;zpS-!!n5Yk;5FBk&r8nVrKf<x?)No_gQgpb
zS?tjU|6d7<EaCcZU5G`wtL;t(Y66r*jZ)L0er#Yf8q+h4SqV<@TyD9D=U$2)R;|pT
zSeczU46IX=)~u(JG7yYx@-pB19$6Y&t}%zoN($sFwli%JH%lK@om9$suM}Cco=VC<
zm@DP{yOgg$zDw7V{JmN}W>kF4qMWgjqNOyIp>jseVXqGaPV}&8@p9gy#p*@or6dEb
zX=h%YnH951wvcJMGQuNhQ!k1Wd5)-`#TXmPgf|Su02X5jz*3L>0S2eI(Y}Pi5;WSY
z7!09N935i}=$8NlbJ<E@)7;z!>NL05T;8UBo?r+TTLKx_5;_KsL>7bMgn_~0B&C(r
z%7n5cGlHv%hxmSep1W}*iUz=G?(uUqttUZ;Uh<Qe1)fo!kFVkkQ7gUuJgL)xw<%DU
zM;Wzl{v*+~HBO$Sg=*?7L^g%_Z6cd$xA7z`T$@xGH0c>pEzN^GX+&raSf$(AGR2b`
zLQ6D2S3!q?)-WdX5LyFuW@<A~w=gAjDVdd$hLluO(kSJ1+7%p;yQ<<#OH=Bmq<*3K
ztm6&*SJHmczoqr>q&JekN2WCJUM5wPduQE0Db-{j_i2h8vgvBDawdaO#y*-<jx<a=
zApFc(p35K$Vl=!9e1abU-87GJ1$&T=%m_n#n2+)?eu|&v-|@HQ;S3Rxf%(`^bL^Di
zBRm&h!o|`Y<3&-7VH;8>=lNbqr49v;t7Kl_RroF*&m;2^_u>2a4kPmmUX7!;T*gjt
zKc2>&()@{U#Y>o<>eK%93atW*WS<JUu?qc27s&`2m_vOO;S#LCjo2n<>&BH8shqW;
zj_@$LWlj%{(6XnIZk-YOaX<AP!yz2Tv)Cq2Vg!A1Lb1#@H;CirhNZO@&>HjUhUc@>
Ye8$OAeg*jz()Te3{U6b{LlT020e|%uQUCw|

delta 1126
zcmaJ<Uu;uV82`@s&TiZ5ZF@Jm(sskpigg=yb_VA*ySbH)xd2ldjHJf6CUk;fb}OC9
zW^{8;&VX?qG=Y>QD3B~V2(A!!GZMh~s0j(aC@;Pk6tW;O23@xKoy&aEcy7Mm@B4T1
z{W<sZmgRc$5rC>?A3)Rl&$o8etlXS7pT#eZ_gzTeLUDHS-k0+oVv0F-RG%DrEz~H_
zRRl%-FJsr_?TQ_pwIjXV`wtfLg`V7D!rnIq@`b_N;dE{&Unl|$)cj9)F>YO&AJvd~
zmp<FN9BBqRqdZC_UeJU31gzEUyt@S&g38q1gWBf?XXd|kyu_;iv#4x$#YO7CWV0N0
z?G#C+TyY%~-Aak+yTo>-yshukdPsp&@<)A}{PUsRtV;G6b!?LyGHQLBxaz@6GErh-
z?f@_&@;7(DIl)bcm)N87VfWLCdOHyHHX7Rtxok1_U;zM2caD@;?4O{!Cs#~mi`m`z
z{Ue8R6kRQqSd*M~Zwx)Po)dSZXlsT1=oP+tzp0|cTIDr&9c!1j-BH#h3!Xmbp*@vC
zwIur;A?fr!!MJSkJ|^?t=5QPNQzU&Pl_WuuFiDJrk+|e{-i^TwY4o)A*+uxyy1q|_
z%?<OF<`2B#gSQqUUy0V#CokVPKk2{u>l&R9rTzP1<*>hNLm7-RuyP0M7%(pBeAVPs
z$-h;u`M-`#8bR)1K^|a>AtHlEO@j-zXt?=@ote|a{G=QUJTrckxAJMu=QQ|8ivR@l
zC_vqlwbdNv&?CogaG<XY0({W~@D=p+gRz2vP(wUDh-EGy5Go4}p|Zwdvqj0#PL&q5
zxDE|5d<92v0d){7*w}@}I^O|J#L2eAxPZnpxJq_Qd=M>7gLpcVtfKTpJ^oDYL|Ygw
zCx^CVfSl<p-X~`|@giC}hlFKtNV_<>GJD@e%OhZKCh4R4nWW!F%|@q<x{Zd79)-7n
zj{_W0{l@U|I-8bg1h`A{wqq~eBkm&peVzXx?k0OkUFpRFw`to0>o0YaseM5Or^I0z
z-K`Y3h?N|iFh!fVjMs5e<xe54*aNQ~#gFj}&f*+i#P9KhTF_B)98fvOaf_l^>=#4}
y_@=TJa7K-A8E2}9uHvVviEpr3#jfM)ihjbNYGYPA)*{c<>@haeA7pZcko_CYLm}}1

diff --git a/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas b/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas
index 66759e16..0fc0eff9 100644
--- a/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas	
+++ b/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas	
@@ -14,6 +14,8 @@ type
 //    procedure Preview(AFactura : IBizFacturaCliente; AllItems: Boolean = false);
 //    procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false);
     procedure GetInformeIVAClientes;
+    procedure GetInformeListadoFacturas;
+    procedure GetInformeListadoFacturasPendientes;
   end;
 
   TGestorInformesController = class(TControllerBase, IGestorInformesController)
@@ -40,8 +42,8 @@ type
 }
     property DataModule: IDataModuleGestorInformes read GetDataModule;
     procedure GetInformeIVAClientes;
-
-
+    procedure GetInformeListadoFacturas;
+    procedure GetInformeListadoFacturasPendientes;
   end;
 
 implementation
@@ -249,6 +251,62 @@ begin
   end;
 end;
 
+procedure TGestorInformesController.GetInformeListadoFacturas;
+var
+  AStream: Binary;
+  AEditor : IEditorInformeIVAClientesReport;
+begin
+  AEditor := NIL;
+  ShowHourglassCursor;
+  try
+   try
+      CreateEditor('EditorInformeIVAClientesReport', IEditorInformeIVAClientesReport, AEditor);
+      if Assigned(AEditor) then
+      with AEditor do
+      begin
+        AEditor.Controller := Self;
+        AStream := FDataModule.GetInformeListadoFacturas(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo);
+        LoadFromStream(AStream);
+        Preview;
+        Release;
+      end;
+    finally
+      FreeAndNil(AStream);
+      AEditor := Nil;
+    end;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+procedure TGestorInformesController.GetInformeListadoFacturasPendientes;
+var
+  AStream: Binary;
+  AEditor : IEditorInformeIVAClientesReport;
+begin
+  AEditor := NIL;
+  ShowHourglassCursor;
+  try
+   try
+      CreateEditor('EditorInformeIVAClientesReport', IEditorInformeIVAClientesReport, AEditor);
+      if Assigned(AEditor) then
+      with AEditor do
+      begin
+        AEditor.Controller := Self;
+        AStream := FDataModule.GetInformeListadoFacturasPendientes(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo);
+        LoadFromStream(AStream);
+        Preview;
+        Release;
+      end;
+    finally
+      FreeAndNil(AStream);
+      AEditor := Nil;
+    end;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
 {
 procedure TGestorInformesController.Ver(AFactura: IBizFacturaCliente);
 var