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

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="..\..\Facturas de cliente\ApplicationBase.dcp" />
-    <DCCReference Include="Base.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\Base.dcp" />
-    <DCCReference Include="ccpackD11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\ccpackD11.dcp" />
-    <DCCReference Include="cfpack_d11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\cfpack_d11.dcp" />
-    <DCCReference Include="Contactos_controller.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\Contactos_controller.dcp" />
-    <DCCReference Include="Contactos_model.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\Contactos_model.dcp" />
-    <DCCReference Include="Contactos_view.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\Contactos_view.dcp" />
-    <DCCReference Include="cxDataD11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\cxDataD11.dcp" />
-    <DCCReference Include="cxEditorsD11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\cxEditorsD11.dcp" />
-    <DCCReference Include="cxLibraryD11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\cxLibraryD11.dcp" />
-    <DCCReference Include="dbrtl.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\dbrtl.dcp" />
-    <DCCReference Include="designide.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\designide.dcp" />
-    <DCCReference Include="dxComnD11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\dxComnD11.dcp" />
-    <DCCReference Include="dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\dxGDIPlusD11.dcp" />
-    <DCCReference Include="dxLayoutControlD11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\dxLayoutControlD11.dcp" />
-    <DCCReference Include="dxThemeD11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\dxThemeD11.dcp" />
-    <DCCReference Include="frx11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\frx11.dcp" />
-    <DCCReference Include="frxe11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\frxe11.dcp" />
-    <DCCReference Include="fs11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\fs11.dcp" />
-    <DCCReference Include="GestorInformes_controller.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\GestorInformes_controller.dcp" />
-    <DCCReference Include="GUIBase.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\GUIBase.dcp" />
-    <DCCReference Include="GUISDK_D11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\GUISDK_D11.dcp" />
-    <DCCReference Include="Jcl.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\Jcl.dcp" />
-    <DCCReference Include="JclVcl.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\JclVcl.dcp" />
-    <DCCReference Include="JvCoreD11R.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\JvCoreD11R.dcp" />
-    <DCCReference Include="JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\JvPageCompsD11R.dcp" />
-    <DCCReference Include="JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="JvSystemD11R.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\JvSystemD11R.dcp" />
-    <DCCReference Include="PngComponentsD10.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\PngComponentsD10.dcp" />
-    <DCCReference Include="PNG_D10.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\PNG_D10.dcp" />
-    <DCCReference Include="RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="rtl.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\rtl.dcp" />
-    <DCCReference Include="tb2k_d10.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\tb2k_d10.dcp" />
-    <DCCReference Include="tbx_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

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;

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;

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

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;

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;

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;

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;

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

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;

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

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;