Tecistel/Tecsitel_FactuGES2
0
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.Tecsitel_FactuGES2/trunk@873 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2009-01-23 10:55:39 +00:00
parent 8cc4cfb9b2
commit ae87e09b5b
13 changed files with 112 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

82
Source/Modulos/Gestor de informes/Views/GestorInformes_view.dproj
View File

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

BIN
Source/Modulos/Gestor de informes/Views/GestorInformes_view.res
View File

Binary file not shown.

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

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

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;

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

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

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

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;