diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.dfm index f22ee6b1..01898dd7 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.dfm +++ b/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 diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.pas index a3f5c826..abfa267f 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.pas +++ b/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; diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.dfm index d8c31f17..10bfe850 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.dfm +++ b/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 diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.pas index 2bcc2183..f0477300 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.pas +++ b/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; diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorPendientesReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorPendientesReport.dfm index e762203c..e3db8a31 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorPendientesReport.dfm +++ b/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 diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorPendientesReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorPendientesReport.pas index 10a55d1e..13727853 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorPendientesReport.pas +++ b/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; diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.dfm index 0f1cd118..47bbbded 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.dfm +++ b/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 diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.pas index 3f7fd418..62408cd9 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.pas +++ b/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; 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/uEditorInformeIVAProveedoresReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAProveedoresReport.dfm index 0067dea3..1ebea350 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAProveedoresReport.dfm +++ b/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 diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAProveedoresReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAProveedoresReport.pas index ff8741e9..0c868dbe 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAProveedoresReport.pas +++ b/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; 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..7323cbb0 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; @@ -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; 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;