From ae87e09b5b4e701c36a200bb357261f57e500eb9 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Fri, 23 Jan 2009 10:55:39 +0000
Subject: [PATCH] Se arreglan los editores de informes para que al recoger las
 fechas de fin, no exista redondeo (31/12/2008 23:59 -> 01/01/2009)

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@873 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 .../Views/GestorInformes_view.dproj           |  82 +++++++++---------
 .../Views/GestorInformes_view.res             | Bin 384 -> 4748 bytes
 ...InformeFacturasClientePendientesReport.pas |  10 ++-
 .../uEditorInformeFacturasClienteReport.pas   |  10 ++-
 .../Views/uEditorInformeIVAClientesReport.dfm |   5 +-
 .../Views/uEditorInformeIVAClientesReport.pas |   6 +-
 .../Views/uEditorInformePedidosReport.pas     |   6 +-
 ...ditorInformeRecibosCliPendientesReport.pas |  10 ++-
 .../uEditorInformeRecibosClienteReport.pas    |  10 ++-
 ...itorInformeRecibosProvPendientesReport.dfm |   4 +-
 ...itorInformeRecibosProvPendientesReport.pas |  12 ++-
 .../uEditorInformeRecibosProveedorReport.dfm  |   4 +-
 .../uEditorInformeRecibosProveedorReport.pas  |  10 ++-
 13 files changed, 112 insertions(+), 57 deletions(-)

diff --git a/Source/Modulos/Gestor de informes/Views/GestorInformes_view.dproj b/Source/Modulos/Gestor de informes/Views/GestorInformes_view.dproj
index c18eec45..89d4735c 100644
--- a/Source/Modulos/Gestor de informes/Views/GestorInformes_view.dproj	
+++ b/Source/Modulos/Gestor de informes/Views/GestorInformes_view.dproj	
@@ -38,40 +38,46 @@
     <DelphiCompile Include="GestorInformes_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="ApplicationBase.dcp" />
-    <DCCReference Include="Base.dcp" />
-    <DCCReference Include="ccpackD11.dcp" />
-    <DCCReference Include="cfpack_d11.dcp" />
-    <DCCReference Include="Contactos_controller.dcp" />
-    <DCCReference Include="Contactos_model.dcp" />
-    <DCCReference Include="Contactos_view.dcp" />
-    <DCCReference Include="cxDataD11.dcp" />
-    <DCCReference Include="cxEditorsD11.dcp" />
-    <DCCReference Include="cxLibraryD11.dcp" />
-    <DCCReference Include="dbrtl.dcp" />
-    <DCCReference Include="designide.dcp" />
-    <DCCReference Include="dxComnD11.dcp" />
-    <DCCReference Include="dxGDIPlusD11.dcp" />
-    <DCCReference Include="dxLayoutControlD11.dcp" />
-    <DCCReference Include="dxThemeD11.dcp" />
-    <DCCReference Include="frx11.dcp" />
-    <DCCReference Include="frxe11.dcp" />
-    <DCCReference Include="fs11.dcp" />
-    <DCCReference Include="GestorInformes_controller.dcp" />
-    <DCCReference Include="GUIBase.dcp" />
-    <DCCReference Include="GUISDK_D11.dcp" />
-    <DCCReference Include="Jcl.dcp" />
-    <DCCReference Include="JclVcl.dcp" />
-    <DCCReference Include="JvCoreD11R.dcp" />
-    <DCCReference Include="JvPageCompsD11R.dcp" />
-    <DCCReference Include="JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="JvSystemD11R.dcp" />
-    <DCCReference Include="PngComponentsD10.dcp" />
-    <DCCReference Include="PNG_D10.dcp" />
-    <DCCReference Include="RemObjects_Core_D11.dcp" />
-    <DCCReference Include="rtl.dcp" />
-    <DCCReference Include="tb2k_d10.dcp" />
-    <DCCReference Include="tbx_d10.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\ApplicationBase.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\Base.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\ccpackD11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\cfpack_d11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\Contactos_controller.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\Contactos_model.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\Contactos_view.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\cxDataD11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\cxEditorsD11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\cxLibraryD11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\dbrtl.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\designide.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\dxComnD11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\dxLayoutControlD11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\dxThemeD11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\frx11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\frxe11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\fs11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\GestorInformes_controller.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\GUIBase.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\GUISDK_D11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\Jcl.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\JclVcl.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\JvCoreD11R.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\JvSystemD11R.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\PngComponentsD10.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\PNG_D10.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\rtl.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\tb2k_d10.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\tbx_d10.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\vcl.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\vclactnband.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\vcldb.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\vcljpg.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\vclx.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\xmlrtl.dcp" />
     <DCCReference Include="uEditorInformeBase.pas">
       <Form>fEditorInformeBase</Form>
       <DesignClass>TForm</DesignClass>
@@ -113,7 +119,7 @@
       <DesignClass>T</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorInformeRecibosProveedorReport.pas">
-      <Form>fEditorInformeIVAProveedoresReport</Form>
+      <Form>fEditorInformeRecibosProveedorReport</Form>
       <DesignClass>TForm</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorInformeRecibosProvPendientesReport.pas">
@@ -141,12 +147,6 @@
       <Form>frViewPeriodoFechas</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
-    <DCCReference Include="vcl.dcp" />
-    <DCCReference Include="vclactnband.dcp" />
-    <DCCReference Include="vcldb.dcp" />
-    <DCCReference Include="vcljpg.dcp" />
-    <DCCReference Include="vclx.dcp" />
-    <DCCReference Include="xmlrtl.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.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.pas
index aa90a30d..5f8cc520 100644
--- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.pas	
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.pas	
@@ -54,7 +54,7 @@ implementation
 
 {$R *.dfm}
 
-uses uROTypes, uGestorInformesController, uFactuGES_App;
+uses uROTypes, DateUtils, uGestorInformesController, uFactuGES_App;
 
 { TfEditorGestorInformesReport }
 
@@ -87,6 +87,10 @@ end;
 function TfEditorInformeFacturasClientePendientesReport.GetFechaFin: Variant;
 begin
   Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
+
+  //Esto es para quitar la hora del timestamp para que luego no me redondee al dia siguiente
+  if not VarIsNull(Result) then
+     Result := DateOf(frViewPeriodoFechas1.edtFechaFin.Date);
 end;
 
 function TfEditorInformeFacturasClientePendientesReport.GetFechaInicio: Variant;
@@ -97,6 +101,10 @@ end;
 function TfEditorInformeFacturasClientePendientesReport.GetFechaVenFin: Variant;
 begin
   Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue;
+
+  //Esto es para quitar la hora del timestamp para que luego no me redondee al dia siguiente
+  if not VarIsNull(Result) then
+     Result := DateOf(frViewPeriodoFechas1.edtFechaVenFin.Date);
 end;
 
 function TfEditorInformeFacturasClientePendientesReport.GetFechaVenInicio: Variant;
diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.pas
index 13d8c527..7aecd1b3 100644
--- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.pas	
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.pas	
@@ -53,7 +53,7 @@ implementation
 
 {$R *.dfm}
 
-uses uROTypes, uGestorInformesController, uFactuGES_App;
+uses uROTypes, DateUtils, uGestorInformesController, uFactuGES_App;
 
 { TfEditorGestorInformesReport }
 
@@ -86,6 +86,10 @@ end;
 function TfEditorInformeFacturasClienteReport.GetFechaFin: Variant;
 begin
   Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
+
+  //Esto es para quitar la hora del timestamp para que luego no me redondee al dia siguiente
+  if not VarIsNull(Result) then
+     Result := DateOf(frViewPeriodoFechas1.edtFechaFin.Date);
 end;
 
 function TfEditorInformeFacturasClienteReport.GetFechaInicio: Variant;
@@ -96,6 +100,10 @@ end;
 function TfEditorInformeFacturasClienteReport.GetFechaVenFin: Variant;
 begin
   Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue;
+
+  //Esto es para quitar la hora del timestamp para que luego no me redondee al dia siguiente
+  if not VarIsNull(Result) then
+     Result := DateOf(frViewPeriodoFechas1.edtFechaVenFin.Date);
 end;
 
 function TfEditorInformeFacturasClienteReport.GetFechaVenInicio: Variant;
diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.dfm
index 9ad0aa44..ac518a1d 100644
--- a/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.dfm	
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.dfm	
@@ -70,7 +70,7 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
           Width = 182
           ExplicitWidth = 182
           inherited Label3: TLabel
-            Width = 85
+            Width = 172
           end
           inherited edtFechaFin: TcxDateEdit
             Left = 77
@@ -110,7 +110,7 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
           Visible = False
           ExplicitWidth = 182
           inherited Label4: TLabel
-            Width = 160
+            Width = 172
           end
           inherited edtFechaVenFin: TcxDateEdit
             Style.LookAndFeel.SkinName = ''
@@ -133,7 +133,6 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitWidth = 212
           end
         end
       end
diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.pas
index afacfa44..66212afc 100644
--- a/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.pas	
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.pas	
@@ -49,7 +49,7 @@ implementation
 
 {$R *.dfm}
 
-uses uROTypes, uGestorInformesController, uFactuGES_App;
+uses uROTypes, DateUtils, uGestorInformesController, uFactuGES_App;
 
 { TfEditorGestorInformesReport }
 
@@ -82,6 +82,10 @@ end;
 function TfEditorInformeIVAClientesReport.GetFechaFin: Variant;
 begin
   Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
+
+  //Esto es para quitar la hora del timestamp para que luego no me redondee al dia siguiente
+  if not VarIsNull(Result) then
+     Result := DateOf(frViewPeriodoFechas1.edtFechaFin.Date);
 end;
 
 function TfEditorInformeIVAClientesReport.GetFechaInicio: Variant;
diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformePedidosReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformePedidosReport.pas
index 134007cf..a16b1c40 100644
--- a/Source/Modulos/Gestor de informes/Views/uEditorInformePedidosReport.pas	
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformePedidosReport.pas	
@@ -49,7 +49,7 @@ implementation
 
 {$R *.dfm}
 
-uses uROTypes, uGestorInformesController, uFactuGES_App;
+uses uROTypes, DateUtils, uGestorInformesController, uFactuGES_App;
 
 { TfEditorGestorInformesReport }
 
@@ -82,6 +82,10 @@ end;
 function TfEditorInformePedidosReport.GetFechaFin: Variant;
 begin
   Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
+
+  //Esto es para quitar la hora del timestamp para que luego no me redondee al dia siguiente
+  if not VarIsNull(Result) then
+     Result := DateOf(frViewPeriodoFechas1.edtFechaFin.Date);
 end;
 
 function TfEditorInformePedidosReport.GetFechaInicio: Variant;
diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosCliPendientesReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosCliPendientesReport.pas
index 0b706b90..29e59980 100644
--- a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosCliPendientesReport.pas	
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosCliPendientesReport.pas	
@@ -53,7 +53,7 @@ implementation
 
 {$R *.dfm}
 
-uses uROTypes, uGestorInformesController, uFactuGES_App;
+uses uROTypes, DateUtils, uGestorInformesController, uFactuGES_App;
 
 { TfEditorGestorInformesReport }
 
@@ -86,6 +86,10 @@ end;
 function TfEditorInformeRecibosCliPendientesReport.GetFechaFin: Variant;
 begin
   Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
+
+  //Esto es para quitar la hora del timestamp para que luego no me redondee al dia siguiente
+  if not VarIsNull(Result) then
+     Result := DateOf(frViewPeriodoFechas1.edtFechaFin.Date);
 end;
 
 function TfEditorInformeRecibosCliPendientesReport.GetFechaInicio: Variant;
@@ -96,6 +100,10 @@ end;
 function TfEditorInformeRecibosCliPendientesReport.GetFechaVenFin: Variant;
 begin
   Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue;
+
+  //Esto es para quitar la hora del timestamp para que luego no me redondee al dia siguiente
+  if not VarIsNull(Result) then
+     Result := DateOf(frViewPeriodoFechas1.edtFechaVenFin.Date);
 end;
 
 function TfEditorInformeRecibosCliPendientesReport.GetFechaVenInicio: Variant;
diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosClienteReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosClienteReport.pas
index 3b2b3dac..e3a3d670 100644
--- a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosClienteReport.pas	
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosClienteReport.pas	
@@ -53,7 +53,7 @@ implementation
 
 {$R *.dfm}
 
-uses uROTypes, uGestorInformesController, uFactuGES_App;
+uses uROTypes, DateUtils, uGestorInformesController, uFactuGES_App;
 
 { TfEditorGestorInformesReport }
 
@@ -86,6 +86,10 @@ end;
 function TfEditorInformeRecibosClienteReport.GetFechaFin: Variant;
 begin
   Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
+
+  //Esto es para quitar la hora del timestamp para que luego no me redondee al dia siguiente
+  if not VarIsNull(Result) then
+     Result := DateOf(frViewPeriodoFechas1.edtFechaFin.Date);
 end;
 
 function TfEditorInformeRecibosClienteReport.GetFechaInicio: Variant;
@@ -96,6 +100,10 @@ end;
 function TfEditorInformeRecibosClienteReport.GetFechaVenFin: Variant;
 begin
   Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue;
+
+  //Esto es para quitar la hora del timestamp para que luego no me redondee al dia siguiente
+  if not VarIsNull(Result) then
+     Result := DateOf(frViewPeriodoFechas1.edtFechaVenFin.Date);
 end;
 
 function TfEditorInformeRecibosClienteReport.GetFechaVenInicio: Variant;
diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProvPendientesReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProvPendientesReport.dfm
index bbd5a211..12127f83 100644
--- a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProvPendientesReport.dfm	
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProvPendientesReport.dfm	
@@ -70,7 +70,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
           Width = 182
           ExplicitWidth = 182
           inherited Label3: TLabel
-            Width = 85
+            Width = 172
           end
           inherited edtFechaFin: TcxDateEdit
             Left = 76
@@ -109,7 +109,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
           Width = 182
           ExplicitWidth = 182
           inherited Label4: TLabel
-            Width = 160
+            Width = 172
           end
           inherited edtFechaVenFin: TcxDateEdit
             Left = 76
diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProvPendientesReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProvPendientesReport.pas
index 22214157..2b442561 100644
--- a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProvPendientesReport.pas	
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProvPendientesReport.pas	
@@ -53,7 +53,7 @@ implementation
 
 {$R *.dfm}
 
-uses uROTypes, uGestorInformesController, uFactuGES_App;
+uses uROTypes, DateUtils, uGestorInformesController, uFactuGES_App;
 
 { TfEditorGestorInformesReport }
 
@@ -86,6 +86,10 @@ end;
 function TfEditorInformeRecibosProvPendientesReport.GetFechaFin: Variant;
 begin
   Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
+
+  //Esto es para quitar la hora del timestamp para que luego no me redondee al dia siguiente
+  if not VarIsNull(Result) then
+     Result := DateOf(frViewPeriodoFechas1.edtFechaFin.Date);
 end;
 
 function TfEditorInformeRecibosProvPendientesReport.GetFechaInicio: Variant;
@@ -100,7 +104,11 @@ end;
 
 function TfEditorInformeRecibosProvPendientesReport.GetFechaVenInicio: Variant;
 begin
-  Result := frViewPeriodoFechas1.edtFechaVenIni.EditValue;
+  Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue;
+
+  //Esto es para quitar la hora del timestamp para que luego no me redondee al dia siguiente
+  if not VarIsNull(Result) then
+     Result := DateOf(frViewPeriodoFechas1.edtFechaVenFin.Date);
 end;
 
 function TfEditorInformeRecibosProvPendientesReport.GetImporteMinimo: Currency;
diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProveedorReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProveedorReport.dfm
index 7f871e7d..1967711d 100644
--- a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProveedorReport.dfm	
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProveedorReport.dfm	
@@ -70,7 +70,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
           Width = 182
           ExplicitWidth = 182
           inherited Label3: TLabel
-            Width = 85
+            Width = 172
           end
           inherited edtFechaFin: TcxDateEdit
             Left = 76
@@ -111,7 +111,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
           ExplicitWidth = 182
           ExplicitHeight = 99
           inherited Label4: TLabel
-            Width = 160
+            Width = 172
           end
           inherited edtFechaVenFin: TcxDateEdit
             Left = 76
diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProveedorReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProveedorReport.pas
index 71727f1f..3aeb0d75 100644
--- a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProveedorReport.pas	
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProveedorReport.pas	
@@ -53,7 +53,7 @@ implementation
 
 {$R *.dfm}
 
-uses uROTypes, uGestorInformesController, uFactuGES_App;
+uses uROTypes, DateUtils, uGestorInformesController, uFactuGES_App;
 
 { TfEditorGestorInformesReport }
 
@@ -86,6 +86,10 @@ end;
 function TfEditorInformeRecibosProveedorReport.GetFechaFin: Variant;
 begin
   Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
+
+  //Esto es para quitar la hora del timestamp para que luego no me redondee al dia siguiente
+  if not VarIsNull(Result) then
+     Result := DateOf(frViewPeriodoFechas1.edtFechaFin.Date);
 end;
 
 function TfEditorInformeRecibosProveedorReport.GetFechaInicio: Variant;
@@ -96,6 +100,10 @@ end;
 function TfEditorInformeRecibosProveedorReport.GetFechaVenFin: Variant;
 begin
   Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue;
+
+  //Esto es para quitar la hora del timestamp para que luego no me redondee al dia siguiente
+  if not VarIsNull(Result) then
+     Result := DateOf(frViewPeriodoFechas1.edtFechaVenFin.Date);
 end;
 
 function TfEditorInformeRecibosProveedorReport.GetFechaVenInicio: Variant;