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.Acana_FactuGES2/trunk@388 f4e31baf-9722-1c47-927c-6f952f962d4b

Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.dfm

@@ -70,7 +70,7 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
           Width = 182
           ExplicitWidth = 182
           inherited Label3: TLabel
-            Width = 85
+            Width = 172
           end
           inherited edtFechaFin: TcxDateEdit
             Left = 72
@@ -108,7 +108,7 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
           Visible = False
           ExplicitWidth = 182
           inherited Label4: TLabel
-            Width = 160
+            Width = 172
           end
           inherited edtFechaVenFin: TcxDateEdit
             Style.LookAndFeel.SkinName = ''
@@ -131,7 +131,6 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitWidth = 212
           end
         end
       end

Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.pas

@@ -50,7 +50,7 @@ implementation
 
 {$R *.dfm}
 
-uses uROTypes, uGestorInformesController, uFactuGES_App;
+uses uROTypes, DateUtils, uGestorInformesController, uFactuGES_App;
 
 { TfEditorGestorInformesReport }
 
@@ -83,6 +83,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;

Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.dfm

@@ -72,7 +72,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
           ExplicitWidth = 182
           ExplicitHeight = 98
           inherited Label3: TLabel
-            Width = 85
+            Width = 172
           end
           inherited edtFechaFin: TcxDateEdit
             Left = 74
@@ -116,7 +116,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
           ExplicitTop = 136
           ExplicitWidth = 182
           inherited Label4: TLabel
-            Width = 160
+            Width = 172
           end
           inherited edtFechaVenFin: TcxDateEdit
             Style.LookAndFeel.SkinName = ''
@@ -139,7 +139,6 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitWidth = 212
           end
         end
       end

Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.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 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;

Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorPendientesReport.dfm

@@ -70,7 +70,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
           Width = 182
           ExplicitWidth = 182
           inherited Label3: TLabel
-            Width = 85
+            Width = 172
           end
           inherited edtFechaFin: TcxDateEdit
             Left = 76
@@ -109,7 +109,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
           Width = 182
           ExplicitWidth = 182
           inherited Label4: TLabel
-            Width = 160
+            Width = 172
           end
           inherited edtFechaVenFin: TcxDateEdit
             Left = 76

Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorPendientesReport.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 TfEditorInformeFacturasProveedorPendientesReport.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 TfEditorInformeFacturasProveedorPendientesReport.GetFechaInicio: Variant;
@@ -97,6 +101,10 @@ end;
 function TfEditorInformeFacturasProveedorPendientesReport.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 TfEditorInformeFacturasProveedorPendientesReport.GetFechaVenInicio: Variant;

Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.dfm

@@ -70,7 +70,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
           Width = 182
           ExplicitWidth = 182
           inherited Label3: TLabel
-            Width = 85
+            Width = 172
           end
           inherited edtFechaFin: TcxDateEdit
             Left = 77
@@ -109,7 +109,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
           Width = 182
           ExplicitWidth = 182
           inherited Label4: TLabel
-            Width = 160
+            Width = 172
           end
           inherited edtFechaVenFin: TcxDateEdit
             Left = 77

Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.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 TfEditorInformeFacturasProveedorReport.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 TfEditorInformeFacturasProveedorReport.GetFechaInicio: Variant;
@@ -96,6 +100,10 @@ end;
 function TfEditorInformeFacturasProveedorReport.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 TfEditorInformeFacturasProveedorReport.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/uEditorInformeIVAProveedoresReport.dfm

@@ -70,7 +70,7 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
           Width = 182
           ExplicitWidth = 182
           inherited Label3: TLabel
-            Width = 85
+            Width = 172
           end
           inherited edtFechaFin: TcxDateEdit
             Left = 76
@@ -110,7 +110,7 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
           Visible = False
           ExplicitWidth = 182
           inherited Label4: TLabel
-            Width = 160
+            Width = 172
           end
           inherited edtFechaVenFin: TcxDateEdit
             Style.LookAndFeel.SkinName = ''
@@ -133,7 +133,6 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitWidth = 212
           end
         end
       end

Source/Modulos/Gestor de informes/Views/uEditorInformeIVAProveedoresReport.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 TfEditorInformeIVAProveedoresReport.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 TfEditorInformeIVAProveedoresReport.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;
@@ -96,6 +100,10 @@ end;
 function TfEditorInformeRecibosProvPendientesReport.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 TfEditorInformeRecibosProvPendientesReport.GetFechaVenInicio: Variant;

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;