Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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)

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@388 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2009-01-23 11:06:57 +00:00
parent 9fcd4dba91
commit 74b104b228
18 changed files with 90 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.dfm
View File

@ -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

6
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.pas
View File

@ -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;

5
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.dfm
View File

@ -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

6
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.pas
View File

@ -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;

4
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorPendientesReport.dfm
View File

@ -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

10
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorPendientesReport.pas
View File

@ -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;

4
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.dfm
View File

@ -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

10
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.pas
View File

@ -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;

5
Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.dfm
View File

@ -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

6
Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.pas
View File

@ -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;

5
Source/Modulos/Gestor de informes/Views/uEditorInformeIVAProveedoresReport.dfm
View File

@ -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

6
Source/Modulos/Gestor de informes/Views/uEditorInformeIVAProveedoresReport.pas
View File

@ -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;

10
Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosCliPendientesReport.pas
View File

@ -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;

10
Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosClienteReport.pas
View File

@ -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;

4
Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProvPendientesReport.dfm
View File

@ -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

10
Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProvPendientesReport.pas
View File

@ -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;

4
Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProveedorReport.dfm
View File

@ -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

10
Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProveedorReport.pas
View File

@ -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;