Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Módulo de informes (sin terminar)

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@702 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-10-17 19:42:07 +00:00
parent e5541ee67f
commit 38697847b8
54 changed files with 1393 additions and 1156 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Source/Cliente/FactuGES.dproj
View File

@ -59,6 +59,10 @@
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\PluginSDK_D10R.bpl">PluginSDK for Delphi 10 (Runtime)</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\PluginSDK_D10R.bpl">PluginSDK for Delphi 10 (Runtime)</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

48
Source/GUIBase/GUIBase.dproj
View File

@ -58,30 +58,30 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Recibos de proveedor\Base.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\Base.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\cxTreeListD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxBarD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxBarExtItemsD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxComnD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dxComnD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxPSCoreD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxPsPrVwAdvD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\frx11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\frx11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\frxe11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\frxe11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\fs11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\fs11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvAppFrmD11R.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\rtl.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\rtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vcl.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\vcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vcldb.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\vcldb.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vclx.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

8
Source/GUIBase/uViewGridBase.pas
View File

@ -225,8 +225,8 @@ procedure TfrViewGridBase.AjustarAncho;
begin begin
if Assigned(_FocusedView) then if Assigned(_FocusedView) then
begin begin
BestFitAllColumns; //BestFitAllColumns;
_FocusedView.ApplyBestFit; _FocusedView.ApplyBestFit(nil, True, False);
end; end;
end; end;
@ -424,8 +424,6 @@ procedure TfrViewGridBase.RestoreFromIniFile;
var var
AIniFile : String; AIniFile : String;
begin begin
Exit;
inherited;
if Assigned(_FocusedView) then if Assigned(_FocusedView) then
begin begin
@ -449,8 +447,6 @@ procedure TfrViewGridBase.StoreToIniFile;
var var
AIniFile : String; AIniFile : String;
begin begin
inherited;
Exit;
if Assigned(_FocusedView) then if Assigned(_FocusedView) then
begin begin

42
Source/Modulos/Facturas de cliente/FacturasCliente_Group.groupproj
View File

@ -228,24 +228,6 @@
<Target Name="FacturasCliente_plugin:Make"> <Target Name="FacturasCliente_plugin:Make">
<MSBuild Projects="Plugin\FacturasCliente_plugin.dproj" Targets="Make" /> <MSBuild Projects="Plugin\FacturasCliente_plugin.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FactuGES">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
</Target>
<Target Name="FactuGES:Clean">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
</Target>
<Target Name="FactuGES:Make">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
</Target>
<Target Name="FactuGES_Server">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
</Target>
<Target Name="FactuGES_Server:Clean">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Clean" />
</Target>
<Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target>
<Target Name="AlbaranesCliente_view"> <Target Name="AlbaranesCliente_view">
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="" /> <MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="" />
</Target> </Target>
@ -291,14 +273,32 @@
<Target Name="GestorInformes_plugin:Make"> <Target Name="GestorInformes_plugin:Make">
<MSBuild Projects="..\Gestor de informes\Plugin\GestorInformes_plugin.dproj" Targets="Make" /> <MSBuild Projects="..\Gestor de informes\Plugin\GestorInformes_plugin.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FactuGES">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
</Target>
<Target Name="FactuGES:Clean">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
</Target>
<Target Name="FactuGES:Make">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
</Target>
<Target Name="FactuGES_Server">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
</Target>
<Target Name="FactuGES_Server:Clean">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Clean" />
</Target>
<Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;GestorInformes_model;GestorInformes_data;GestorInformes_controller;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;PreCli_FacCli_relation;AlbCli_FacCli_relation;FacturasCliente_view;FacturasCliente_plugin;FactuGES;FactuGES_Server;AlbaranesCliente_view;PresupuestosCliente_controller;GestorInformes_view;AlbaranesCliente_controller;GestorInformes_plugin" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;GestorInformes_model;GestorInformes_data;GestorInformes_controller;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;PreCli_FacCli_relation;AlbCli_FacCli_relation;FacturasCliente_view;FacturasCliente_plugin;AlbaranesCliente_view;PresupuestosCliente_controller;GestorInformes_view;AlbaranesCliente_controller;GestorInformes_plugin;FactuGES;FactuGES_Server" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;PreCli_FacCli_relation:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesCliente_view:Clean;PresupuestosCliente_controller:Clean;GestorInformes_view:Clean;AlbaranesCliente_controller:Clean;GestorInformes_plugin:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;PreCli_FacCli_relation:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;AlbaranesCliente_view:Clean;PresupuestosCliente_controller:Clean;GestorInformes_view:Clean;AlbaranesCliente_controller:Clean;GestorInformes_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;PreCli_FacCli_relation:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesCliente_view:Make;PresupuestosCliente_controller:Make;GestorInformes_view:Make;AlbaranesCliente_controller:Make;GestorInformes_plugin:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;PreCli_FacCli_relation:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;AlbaranesCliente_view:Make;PresupuestosCliente_controller:Make;GestorInformes_view:Make;AlbaranesCliente_controller:Make;GestorInformes_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

BIN
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk
View File

Binary file not shown.

64
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj
View File

@ -49,34 +49,42 @@
<DelphiCompile Include="FacturasCliente_view.dpk"> <DelphiCompile Include="FacturasCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Gestor de informes\Views\AlbCli_FacCli_relation.dcp" /> <DCCReference Include="..\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\Articulos_view.dcp" /> <DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\Contactos_view.dcp" /> <DCCReference Include="..\Contactos_view.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\dbrtl.dcp" /> <DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\FacturasCliente_controller.dcp" /> <DCCReference Include="..\FacturasCliente_controller.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\FacturasCliente_model.dcp" /> <DCCReference Include="..\FacturasCliente_model.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\frx11.dcp" /> <DCCReference Include="..\frx11.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\frxe11.dcp" /> <DCCReference Include="..\frxe11.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\fs11.dcp" /> <DCCReference Include="..\fs11.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\GestorInformes_controller.dcp" /> <DCCReference Include="..\GestorInformes_controller.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\Jcl.dcp" /> <DCCReference Include="..\Jcl.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\JclVcl.dcp" /> <DCCReference Include="..\JclVcl.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\JvCoreD11R.dcp" /> <DCCReference Include="..\JvCoreD11R.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\JvPageCompsD11R.dcp" /> <DCCReference Include="..\JvPageCompsD11R.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\JvSystemD11R.dcp" /> <DCCReference Include="..\JvSystemD11R.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\PngComponentsD10.dcp" /> <DCCReference Include="..\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\PNG_D10.dcp" /> <DCCReference Include="..\PNG_D10.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\PreCli_FacCli_relation.dcp" /> <DCCReference Include="..\PreCli_FacCli_relation.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\rtl.dcp" /> <DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\tb2k_d10.dcp" /> <DCCReference Include="..\tb2k_d10.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\tbx_d10.dcp" /> <DCCReference Include="..\tbx_d10.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\vcl.dcp" /> <DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\vclactnband.dcp" /> <DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\vcldb.dcp" /> <DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\vcljpg.dcp" /> <DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\vclx.dcp" /> <DCCReference Include="..\vclx.dcp" />
<DCCReference Include="uEditorElegirArticulosFacturaCliente.pas">
<Form>fEditorElegirArticulosFacturaCliente</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="uEditorElegirFacturasCliente.pas">
<Form>fEditorElegirFacturasCliente</Form>
<DesignClass>TfEditorElegirFacturasCliente</DesignClass>
</DCCReference>
<DCCReference Include="uEditorElegirArticulosFacturaCliente.pas"> <DCCReference Include="uEditorElegirArticulosFacturaCliente.pas">
<Form>fEditorElegirArticulosFacturaCliente</Form> <Form>fEditorElegirArticulosFacturaCliente</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

BIN
Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dpk
View File

Binary file not shown.

15
Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dproj
View File

@ -39,21 +39,12 @@
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="uGestorInformesController.pas" /> <DCCReference Include="uGestorInformesController.pas" />
<DCCReference Include="View\adortl.dcp" />
<DCCReference Include="View\ApplicationBase.dcp" /> <DCCReference Include="View\ApplicationBase.dcp" />
<DCCReference Include="View\cxLibraryD11.dcp" /> <DCCReference Include="View\Base.dcp" />
<DCCReference Include="View\DataAbstract_Core_D11.dcp" />
<DCCReference Include="View\dbrtl.dcp" />
<DCCReference Include="View\dsnap.dcp" />
<DCCReference Include="View\dxGDIPlusD11.dcp" />
<DCCReference Include="View\dxThemeD11.dcp" />
<DCCReference Include="View\GestorInformes_data.dcp" /> <DCCReference Include="View\GestorInformes_data.dcp" />
<DCCReference Include="View\RemObjects_Core_D11.dcp" /> <DCCReference Include="View\uIEditorInformeBase.pas" />
<DCCReference Include="View\rtl.dcp" /> <DCCReference Include="View\uIEditorInformeFacturasClienteReport.pas" />
<DCCReference Include="View\uIEditorInformeIVAClientesReport.pas" /> <DCCReference Include="View\uIEditorInformeIVAClientesReport.pas" />
<DCCReference Include="View\uIEditorInformeReportBase.pas" />
<DCCReference Include="View\vcl.dcp" />
<DCCReference Include="View\vcldb.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

BIN
Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.identcache
View File

Binary file not shown.

BIN
Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.res
View File

Binary file not shown.

16
Source/Modulos/Gestor de informes/Controller/View/uIEditorGestorInformesReport.pas.bak
View File

@ -1,16 +0,0 @@
unit uIEditorFacturasClientePreview;
interface
uses
uEditorPreview, uBizFacturasCliente, uFacturasClienteReportController;
type
IEditorFacturasClientePreview = interface(IEditorPreview)
['{0B893ED1-261A-4358-814E-18D7FD768E14}']
end;
implementation
end.

16
Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeBase.pas Normal file
View File

@ -0,0 +1,16 @@
unit uIEditorInformeBase;
interface
uses
uEditorPreview;
type
IEditorInformeBase = interface(IEditorPreview)
['{5D57EB76-FD78-4B7E-BBC9-DE1AB5DFECCB}']
end;
implementation
end.

8
Source/Modulos/Gestor de informes/Controller/View/uIEditorGestorInformesReport.pas → Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClienteReport.pas
View File

@ -1,13 +1,13 @@
unit uIEditorGestorInformesReport; unit uIEditorInformeFacturasClienteReport;
interface interface
uses uses
FactuGES_Intf, uEditorPreview; FactuGES_Intf, uIEditorInformeBase;
type type
IEditorGestorInformesReport = interface(IEditorPreview) IEditorInformeFacturasClienteReport = interface(IEditorInformeBase)
['{22B97B8E-04B8-4439-965B-D4AF8216DCEA}'] ['{AE5DD69C-6360-4A6A-A764-C0DAF5B5A948}']
function GetFechaFin: TDateTime; function GetFechaFin: TDateTime;
function GetFechaInicio: TDateTime; function GetFechaInicio: TDateTime;
function GetListaIDClientes: TIntegerArray; function GetListaIDClientes: TIntegerArray;

16
Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeIVAClientesReport.pas
View File

@ -3,11 +3,21 @@ unit uIEditorInformeIVAClientesReport;
interface interface
uses uses
FactuGES_Intf, uIEditorInformeReportBase; FactuGES_Intf, uIEditorInformeBase;
type type
IEditorInformeIVAClientesReport = interface(IEditorInformeReportBase) IEditorInformeIVAClientesReport = interface(IEditorInformeBase)
['{5C334CFF-D952-4332-8689-D82ECCC726C1}'] ['{66F6F909-B1EC-4117-A115-12DFB62E6120}']
function GetFechaFin: TDateTime;
function GetFechaInicio: TDateTime;
function GetListaIDClientes: TIntegerArray;
function GetDesglosadoCliente: Boolean;
function GetImporteMinimo: Currency;
property FechaInicio: TDateTime read GetFechaInicio;
property FechaFin: TDateTime read GetFechaFin;
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property ImporteMinimo: Currency read getImporteMinimo;
end; end;

26
Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeReportBase.pas
View File

@ -1,26 +0,0 @@
unit uIEditorInformeReportBase;
interface
uses
FactuGES_Intf, uEditorPreview;
type
IEditorInformeReportBase = interface(IEditorPreview)
['{22B97B8E-04B8-4439-965B-D4AF8216DCEA}']
function GetFechaFin: TDateTime;
function GetFechaInicio: TDateTime;
function GetListaIDClientes: TIntegerArray;
function GetDesglosadoCliente: Boolean;
function GetImporteMinimo: Currency;
property FechaInicio: TDateTime read GetFechaInicio;
property FechaFin: TDateTime read GetFechaFin;
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property ImporteMinimo: Currency read getImporteMinimo;
end;
implementation
end.

39
Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas
View File

@ -5,7 +5,7 @@ interface
uses uses
Classes, SysUtils, uDADataTable, uControllerBase, uROTypes, uIDataModuleGestorInformes, Classes, SysUtils, uDADataTable, uControllerBase, uROTypes, uIDataModuleGestorInformes,
uIEditorInformeReportBase; uIEditorInformeBase;
type type
IGestorInformesController = interface(IControllerBase) IGestorInformesController = interface(IControllerBase)
@ -16,13 +16,13 @@ type
// procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false); // procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false);
//MODULO FACTURAS DE CLIENTE //MODULO FACTURAS DE CLIENTE
procedure GetInformeIVAClientes; procedure VerInformeIVAClientes;
procedure GetInformeListadoFacturas; procedure VerInformeListadoFacturas;
procedure GetInformeListadoFacturasPendientes; procedure VerInformeListadoFacturasPendientes;
//MODULO RECIBOS DE CLIENTE //MODULO RECIBOS DE CLIENTE
procedure GetInformeListadoRecibosCliPendientes; procedure VerInformeListadoRecibosCliPendientes;
procedure GetInformeListadoRecibosCliente; procedure VerInformeListadoRecibosCliente;
end; end;
TGestorInformesController = class(TControllerBase, IGestorInformesController) TGestorInformesController = class(TControllerBase, IGestorInformesController)
@ -50,13 +50,13 @@ type
property DataModule: IDataModuleGestorInformes read GetDataModule; property DataModule: IDataModuleGestorInformes read GetDataModule;
//MODULO FACTURAS DE CLIENTE //MODULO FACTURAS DE CLIENTE
procedure GetInformeIVAClientes; procedure VerInformeIVAClientes;
procedure GetInformeListadoFacturas; procedure VerInformeListadoFacturas;
procedure GetInformeListadoFacturasPendientes; procedure VerInformeListadoFacturasPendientes;
//MODULO RECIBOS DE CLIENTE //MODULO RECIBOS DE CLIENTE
procedure GetInformeListadoRecibosCliPendientes; procedure VerInformeListadoRecibosCliPendientes;
procedure GetInformeListadoRecibosCliente; procedure VerInformeListadoRecibosCliente;
end; end;
implementation implementation
@ -65,7 +65,8 @@ uses
Windows, Controls, cxControls, DB, uEditorRegistryUtils, uFactuGES_App, Windows, Controls, cxControls, DB, uEditorRegistryUtils, uFactuGES_App,
uDAInterfaces, uDataTableUtils, uDateUtils, uNumUtils, uDAInterfaces, uDataTableUtils, uDateUtils, uNumUtils,
DateUtils, Forms, uIntegerListUtils, uDataModuleGestorInformes, DateUtils, Forms, uIntegerListUtils, uDataModuleGestorInformes,
uSistemaFunc, uDialogElegirEMail, uEMailUtils, Dialogs, uIEditorInformeIVAClientesReport; uSistemaFunc, uDialogElegirEMail, uEMailUtils, Dialogs,
uIEditorInformeIVAClientesReport, uIEditorInformeFacturasClienteReport;
{procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente; {procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente;
@ -236,7 +237,7 @@ begin
Result := FDataModule; Result := FDataModule;
end; end;
procedure TGestorInformesController.GetInformeIVAClientes; procedure TGestorInformesController.VerInformeIVAClientes;
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorInformeIVAClientesReport; AEditor : IEditorInformeIVAClientesReport;
@ -264,16 +265,16 @@ begin
end; end;
end; end;
procedure TGestorInformesController.GetInformeListadoFacturas; procedure TGestorInformesController.VerInformeListadoFacturas;
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorInformeIVAClientesReport; AEditor : IEditorInformeFacturasClienteReport;
begin begin
AEditor := NIL; AEditor := NIL;
ShowHourglassCursor; ShowHourglassCursor;
try try
try try
CreateEditor('EditorInformeIVAClientesReport', IEditorInformeIVAClientesReport, AEditor); CreateEditor('EditorInformeFacturasClienteReport', IEditorInformeFacturasClienteReport, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do with AEditor do
begin begin
@ -292,7 +293,7 @@ begin
end; end;
end; end;
procedure TGestorInformesController.GetInformeListadoFacturasPendientes; procedure TGestorInformesController.VerInformeListadoFacturasPendientes;
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorInformeIVAClientesReport; AEditor : IEditorInformeIVAClientesReport;
@ -320,7 +321,7 @@ begin
end; end;
end; end;
procedure TGestorInformesController.GetInformeListadoRecibosCliente; procedure TGestorInformesController.VerInformeListadoRecibosCliente;
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorInformeIVAClientesReport; AEditor : IEditorInformeIVAClientesReport;
@ -348,7 +349,7 @@ begin
end; end;
end; end;
procedure TGestorInformesController.GetInformeListadoRecibosCliPendientes; procedure TGestorInformesController.VerInformeListadoRecibosCliPendientes;
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorInformeIVAClientesReport; AEditor : IEditorInformeIVAClientesReport;

BIN
Source/Modulos/Gestor de informes/Data/GestorInformes_data.dpk
View File

Binary file not shown.

57
Source/Modulos/Gestor de informes/Data/GestorInformes_data.dproj
View File

@ -31,69 +31,18 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject> <Delphi.Personality> <Parameters> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">GestorInformes_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="ImplicitBuild">False</Package_Options>
<Package_Options Name="DesigntimeOnly">False</Package_Options>
<Package_Options Name="RuntimeOnly">False</Package_Options>
</Package_Options>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">3082</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<Source>
<Source Name="MainSource">GestorInformes_data.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="GestorInformes_data.dpk"> <DelphiCompile Include="GestorInformes_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Controller\adortl.dcp" /> <DCCReference Include="..\Plugin\Base.dcp" />
<DCCReference Include="..\Controller\cxLibraryD11.dcp" /> <DCCReference Include="..\Plugin\GestorInformes_model.dcp" />
<DCCReference Include="..\Controller\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Controller\dbrtl.dcp" />
<DCCReference Include="..\Controller\dsnap.dcp" />
<DCCReference Include="..\Controller\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Controller\dxThemeD11.dcp" />
<DCCReference Include="..\Controller\GestorInformes_model.dcp" />
<DCCReference Include="..\Controller\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Controller\rtl.dcp" />
<DCCReference Include="..\Controller\vcl.dcp" />
<DCCReference Include="..\Controller\vcldb.dcp" />
<DCCReference Include="uDataModuleGestorInformes.pas" /> <DCCReference Include="uDataModuleGestorInformes.pas" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6011 EurekaLog Version=6011

BIN
Source/Modulos/Gestor de informes/Data/GestorInformes_data.identcache
View File

Binary file not shown.

BIN
Source/Modulos/Gestor de informes/Data/GestorInformes_data.res
View File

Binary file not shown.

124
Source/Modulos/Gestor de informes/GestorInformes_Group.groupproj Normal file
View File

@ -0,0 +1,124 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{d51b0489-bd4f-4ed4-a8cc-05ea2af327dd}</ProjectGuid>
</PropertyGroup>
<ItemGroup />
<ItemGroup>
<Projects Include="..\..\ApplicationBase\ApplicationBase.dproj" />
<Projects Include="..\..\Base\Base.dproj" />
<Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="Controller\GestorInformes_controller.dproj" />
<Projects Include="Data\GestorInformes_data.dproj" />
<Projects Include="Model\GestorInformes_model.dproj" />
<Projects Include="Plugin\GestorInformes_plugin.dproj" />
<Projects Include="Views\GestorInformes_view.dproj" />
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Default.Personality</Borland.Personality>
<Borland.ProjectType />
<BorlandProject>
<BorlandProject xmlns=""><Default.Personality></Default.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Target Name="Base">
<MSBuild Projects="..\..\Base\Base.dproj" Targets="" />
</Target>
<Target Name="Base:Clean">
<MSBuild Projects="..\..\Base\Base.dproj" Targets="Clean" />
</Target>
<Target Name="Base:Make">
<MSBuild Projects="..\..\Base\Base.dproj" Targets="Make" />
</Target>
<Target Name="GUIBase">
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="" />
</Target>
<Target Name="GUIBase:Clean">
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="Clean" />
</Target>
<Target Name="GUIBase:Make">
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="Make" />
</Target>
<Target Name="ApplicationBase">
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="" />
</Target>
<Target Name="ApplicationBase:Clean">
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Clean" />
</Target>
<Target Name="ApplicationBase:Make">
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Make" />
</Target>
<Target Name="GestorInformes_model">
<MSBuild Projects="Model\GestorInformes_model.dproj" Targets="" />
</Target>
<Target Name="GestorInformes_model:Clean">
<MSBuild Projects="Model\GestorInformes_model.dproj" Targets="Clean" />
</Target>
<Target Name="GestorInformes_model:Make">
<MSBuild Projects="Model\GestorInformes_model.dproj" Targets="Make" />
</Target>
<Target Name="GestorInformes_data">
<MSBuild Projects="Data\GestorInformes_data.dproj" Targets="" />
</Target>
<Target Name="GestorInformes_data:Clean">
<MSBuild Projects="Data\GestorInformes_data.dproj" Targets="Clean" />
</Target>
<Target Name="GestorInformes_data:Make">
<MSBuild Projects="Data\GestorInformes_data.dproj" Targets="Make" />
</Target>
<Target Name="GestorInformes_controller">
<MSBuild Projects="Controller\GestorInformes_controller.dproj" Targets="" />
</Target>
<Target Name="GestorInformes_controller:Clean">
<MSBuild Projects="Controller\GestorInformes_controller.dproj" Targets="Clean" />
</Target>
<Target Name="GestorInformes_controller:Make">
<MSBuild Projects="Controller\GestorInformes_controller.dproj" Targets="Make" />
</Target>
<Target Name="GestorInformes_view">
<MSBuild Projects="Views\GestorInformes_view.dproj" Targets="" />
</Target>
<Target Name="GestorInformes_view:Clean">
<MSBuild Projects="Views\GestorInformes_view.dproj" Targets="Clean" />
</Target>
<Target Name="GestorInformes_view:Make">
<MSBuild Projects="Views\GestorInformes_view.dproj" Targets="Make" />
</Target>
<Target Name="GestorInformes_plugin">
<MSBuild Projects="Plugin\GestorInformes_plugin.dproj" Targets="" />
</Target>
<Target Name="GestorInformes_plugin:Clean">
<MSBuild Projects="Plugin\GestorInformes_plugin.dproj" Targets="Clean" />
</Target>
<Target Name="GestorInformes_plugin:Make">
<MSBuild Projects="Plugin\GestorInformes_plugin.dproj" Targets="Make" />
</Target>
<Target Name="FactuGES">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
</Target>
<Target Name="FactuGES:Clean">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
</Target>
<Target Name="FactuGES:Make">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
</Target>
<Target Name="FactuGES_Server">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
</Target>
<Target Name="FactuGES_Server:Clean">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Clean" />
</Target>
<Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;GestorInformes_model;GestorInformes_data;GestorInformes_controller;GestorInformes_view;GestorInformes_plugin;FactuGES;FactuGES_Server" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;GestorInformes_view:Clean;GestorInformes_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;GestorInformes_view:Make;GestorInformes_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

BIN
Source/Modulos/Gestor de informes/Model/GestorInformes_model.dpk
View File

Binary file not shown.

45
Source/Modulos/Gestor de informes/Model/GestorInformes_model.dproj
View File

@ -31,58 +31,17 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject> <Delphi.Personality> <Parameters> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">GestorInformes_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="ImplicitBuild">False</Package_Options>
<Package_Options Name="DesigntimeOnly">False</Package_Options>
<Package_Options Name="RuntimeOnly">False</Package_Options>
</Package_Options>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">3082</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<Source>
<Source Name="MainSource">GestorInformes_model.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="GestorInformes_model.dpk"> <DelphiCompile Include="GestorInformes_model.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Controller\Base.dcp" /> <DCCReference Include="..\..\..\Servidor\Base.dcp" />
<DCCReference Include="Data\uIDataModuleGestorInformes.pas" /> <DCCReference Include="Data\uIDataModuleGestorInformes.pas" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6011 EurekaLog Version=6011

BIN
Source/Modulos/Gestor de informes/Model/GestorInformes_model.identcache
View File

Binary file not shown.

BIN
Source/Modulos/Gestor de informes/Plugin/GestorInformes_plugin.dpk
View File

Binary file not shown.

32
Source/Modulos/Gestor de informes/Plugin/GestorInformes_plugin.dproj
View File

@ -38,16 +38,28 @@
<DelphiCompile Include="GestorInformes_plugin.dpk"> <DelphiCompile Include="GestorInformes_plugin.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" /> <DCCReference Include="..\Controller\View\ApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" /> <DCCReference Include="..\Controller\View\BaApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\GestorInformes_view.dcp" /> <DCCReference Include="..\Controller\View\BApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\PluginSDK_D10R.dcp" /> <DCCReference Include="..\Controller\View\BasApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\PngComponentsD10.dcp" /> <DCCReference Include="..\Controller\View\Base.dcp" />
<DCCReference Include="..\..\Lib\PNG_D10.dcp" /> <DCCReference Include="..\Controller\View\BaseApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" /> <DCCReference Include="..\Controller\View\GApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" /> <DCCReference Include="..\Controller\View\GestorInformes_controller.dcp" />
<DCCReference Include="..\..\Lib\vclactnband.dcp" /> <DCCReference Include="..\Controller\View\GestorInformes_view.dcp" />
<DCCReference Include="..\..\Lib\vclx.dcp" /> <DCCReference Include="..\Controller\View\GUApplicationBase.dcp" />
<DCCReference Include="..\Controller\View\GUIApplicationBase.dcp" />
<DCCReference Include="..\Controller\View\GUIBaApplicationBase.dcp" />
<DCCReference Include="..\Controller\View\GUIBApplicationBase.dcp" />
<DCCReference Include="..\Controller\View\GUIBasApplicationBase.dcp" />
<DCCReference Include="..\Controller\View\GUIBaseApplicationBase.dcp" />
<DCCReference Include="..\Controller\View\PluginSDK_D10R.dcp" />
<DCCReference Include="..\Controller\View\PngComponentsD10.dcp" />
<DCCReference Include="..\Controller\View\PNG_D10.dcp" />
<DCCReference Include="..\Controller\View\rtl.dcp" />
<DCCReference Include="..\Controller\View\vcl.dcp" />
<DCCReference Include="..\Controller\View\vclactnband.dcp" />
<DCCReference Include="..\Controller\View\vclx.dcp" />
<DCCReference Include="uPluginGestorInformes.pas" /> <DCCReference Include="uPluginGestorInformes.pas" />
</ItemGroup> </ItemGroup>
</Project> </Project>

BIN
Source/Modulos/Gestor de informes/Plugin/GestorInformes_plugin.res
View File

Binary file not shown.

14
Source/Modulos/Gestor de informes/Plugin/uPluginGestorInformes.dfm
View File

@ -40,14 +40,26 @@ object PluginGestorInformes: TPluginGestorInformes
Bitmap = {} Bitmap = {}
end end
object ModuleActionList: TActionList object ModuleActionList: TActionList
Images = LargeImages Images = SmallImages
Left = 40 Left = 40
Top = 72 Top = 72
object actInformeFacturasCliente: TAction
Category = 'Facturas de cliente'
Caption = 'Listado de facturas de cliente'
ImageIndex = 0
OnExecute = actInformeFacturasClienteExecute
end
end end
object MainMenu: TMainMenu object MainMenu: TMainMenu
Images = LargeImages Images = LargeImages
Left = 40 Left = 40
Top = 16 Top = 16
object Informes1: TMenuItem
Caption = 'Informes'
object Listadodefacturasdecliente1: TMenuItem
Action = actInformeFacturasCliente
end
end
end end
object SmallImages: TPngImageList object SmallImages: TPngImageList
PngImages = < PngImages = <

18
Source/Modulos/Gestor de informes/Plugin/uPluginGestorInformes.pas
View File

@ -4,7 +4,7 @@ interface
uses uses
uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList, uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
ImgList, Controls, PngImageList; ImgList, Controls, PngImageList, uGestorInformesController;
type type
IMCGestorInformes = interface(IInterface) IMCGestorInformes = interface(IInterface)
@ -17,6 +17,12 @@ type
MainMenu: TMainMenu; MainMenu: TMainMenu;
ModuleActionList: TActionList; ModuleActionList: TActionList;
SmallImages: TPngImageList; SmallImages: TPngImageList;
Informes1: TMenuItem;
actInformeFacturasCliente: TAction;
Listadodefacturasdecliente1: TMenuItem;
procedure actInformeFacturasClienteExecute(Sender: TObject);
private
FController : IGestorInformesController;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -28,7 +34,7 @@ implementation
uses uses
Forms, Dialogs, SysUtils, Forms, Dialogs, SysUtils,
uGestorInformesController, uGestorInformesViewRegister; uGestorInformesViewRegister;
function GetModule : TModuleController; function GetModule : TModuleController;
begin begin
@ -38,14 +44,22 @@ end;
exports exports
GetModule name GET_MODULE_FUNC; GetModule name GET_MODULE_FUNC;
procedure TPluginGestorInformes.actInformeFacturasClienteExecute(
Sender: TObject);
begin
FController.VerInformeListadoFacturas;
end;
constructor TPluginGestorInformes.Create(AOwner: TComponent); constructor TPluginGestorInformes.Create(AOwner: TComponent);
begin begin
inherited; inherited;
uGestorInformesViewRegister.RegisterViews; uGestorInformesViewRegister.RegisterViews;
FController := TGestorInformesController.Create;
end; end;
destructor TPluginGestorInformes.Destroy; destructor TPluginGestorInformes.Destroy;
begin begin
FController := NIL;
uGestorInformesViewRegister.UnregisterViews; uGestorInformesViewRegister.UnregisterViews;
inherited; inherited;
end; end;

48
Source/Modulos/Gestor de informes/Views/GestorInformes_view.dpk
View File

@ -25,51 +25,23 @@ package GestorInformes_view;
{$IMPLICITBUILD OFF} {$IMPLICITBUILD OFF}
requires requires
Base,
GUIBase, GUIBase,
vcl, ApplicationBase,
rtl,
PNG_D10,
PngComponentsD10,
vclactnband,
vclx,
tb2k_d10,
tbx_d10,
JvCoreD11R,
vcldb,
dbrtl,
vcljpg,
Jcl,
JclVcl,
JvSystemD11R,
JvStdCtrlsD11R,
JvPageCompsD11R,
frx11,
fs11,
frxe11,
GestorInformes_controller,
cxLibraryD11,
dxThemeD11,
dxGDIPlusD11,
cxEditorsD11,
cxDataD11,
dxLayoutControlD11,
dxComnD11,
Contactos_view, Contactos_view,
DataAbstract_Core_D11, GestorInformes_controller,
dsnap, rtl,
adortl, vcl;
RemObjects_Core_D11,
GUISDK_D11,
xmlrtl,
cfpack_d11,
designide,
ccpackD11;
contains contains
uGestorInformesViewRegister in 'uGestorInformesViewRegister.pas', uGestorInformesViewRegister in 'uGestorInformesViewRegister.pas',
uEditorInformeIVAClientesReport in 'uEditorInformeIVAClientesReport.pas' {fEditorInformeIVAClientesReport: TfEditorElegirFacturasCliente}, uEditorInformeIVAClientesReport in 'uEditorInformeIVAClientesReport.pas' {fEditorInformeIVAClientesReport: TfEditorElegirFacturasCliente},
uViewPeriodoFechas in 'uViewPeriodoFechas.pas' {frViewPeriodoFechas: TFrame}, uViewPeriodoFechas in 'uViewPeriodoFechas.pas' {frViewPeriodoFechas: TFrame},
uViewFiltroImportes in 'uViewFiltroImportes.pas' {frViewFiltroImportes: TFrame}, uViewFiltroImportes in 'uViewFiltroImportes.pas' {frViewFiltroImportes: TFrame},
uViewFiltroClientes in 'uViewFiltroClientes.pas' {frViewFiltroClientes: TFrame}; uViewFiltroClientes_anterior in 'uViewFiltroClientes_anterior.pas' {frViewFiltroClientes_anterior: TFrame},
uEditorInformeFacturasClienteReport in 'uEditorInformeFacturasClienteReport.pas' {TfEditorInformeFacturasClienteReport: TForm},
uEditorInformeBase in 'uEditorInformeBase.pas' {fEditorInformeBase: TForm},
uViewFiltroClientes in 'uViewFiltroClientes.pas' {frViewFiltroClientes: TFrame},
uViewParametrosInforme in 'uViewParametrosInforme.pas' {frViewParametrosInforme: TFrame};
end. end.

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

@ -38,45 +38,21 @@
<DelphiCompile Include="GestorInformes_view.dpk"> <DelphiCompile Include="GestorInformes_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Facturas de cliente\adortl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="..\..\Facturas de cliente\ccpackD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="..\..\Facturas de cliente\cfpack_d11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Contactos_view.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GestorInformes_controller.dcp" />
<DCCReference Include="..\..\Facturas de cliente\cxDataD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="..\..\Facturas de cliente\cxEditorsD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\cxLibraryD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\DataAbstract_Core_D11.dcp" /> <DCCReference Include="uEditorInformeBase.pas">
<DCCReference Include="..\..\Facturas de cliente\dbrtl.dcp" /> <DesignClass>T</DesignClass>
<DCCReference Include="..\..\Facturas de cliente\designide.dcp" /> <Form>fEditorInformeBase</Form>
<DCCReference Include="..\..\Facturas de cliente\dsnap.dcp" /> </DCCReference>
<DCCReference Include="..\..\Facturas de cliente\dxComnD11.dcp" /> <DCCReference Include="uEditorInformeFacturasClienteReport.pas">
<DCCReference Include="..\..\Facturas de cliente\dxGDIPlusD11.dcp" /> <Form>TfEditorInformeFacturasClienteReport</Form>
<DCCReference Include="..\..\Facturas de cliente\dxLayoutControlD11.dcp" /> <DesignClass>TForm</DesignClass>
<DCCReference Include="..\..\Facturas de cliente\dxThemeD11.dcp" /> </DCCReference>
<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="uEditorInformeIVAClientesReport.pas"> <DCCReference Include="uEditorInformeIVAClientesReport.pas">
<Form>fEditorInformeIVAClientesReport</Form> <Form>fEditorInformeIVAClientesReport</Form>
<DesignClass>TfEditorElegirFacturasCliente</DesignClass> <DesignClass>TfEditorElegirFacturasCliente</DesignClass>
@ -84,12 +60,20 @@
<DCCReference Include="uGestorInformesViewRegister.pas" /> <DCCReference Include="uGestorInformesViewRegister.pas" />
<DCCReference Include="uViewFiltroClientes.pas"> <DCCReference Include="uViewFiltroClientes.pas">
<Form>frViewFiltroClientes</Form> <Form>frViewFiltroClientes</Form>
<DesignClass>T</DesignClass>
</DCCReference>
<DCCReference Include="uViewFiltroClientes_anterior.pas">
<Form>frViewFiltroClientes_anterior</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewFiltroImportes.pas"> <DCCReference Include="uViewFiltroImportes.pas">
<Form>frViewFiltroImportes</Form> <Form>frViewFiltroImportes</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewParametrosInforme.pas">
<Form>frViewParametrosInforme</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewPeriodoFechas.pas"> <DCCReference Include="uViewPeriodoFechas.pas">
<Form>frViewPeriodoFechas</Form> <Form>frViewPeriodoFechas</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>

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

Binary file not shown.

120
Source/Modulos/Gestor de informes/Views/uEditorInformeBase.dfm Normal file
View File

@ -0,0 +1,120 @@
inherited fEditorInformeBase: TfEditorInformeBase
Caption = ''
ClientHeight = 483
ClientWidth = 787
ExplicitWidth = 795
ExplicitHeight = 517
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 787
ExplicitWidth = 787
inherited Image1: TImage
Left = 760
ExplicitLeft = 760
end
end
inherited TBXDock: TTBXDock
Width = 787
ExplicitWidth = 787
inherited tbxMenu: TTBXToolbar
ExplicitWidth = 787
end
end
inherited StatusBar: TJvStatusBar
Top = 464
Width = 787
ExplicitTop = 464
ExplicitWidth = 787
end
object TBXMultiDockIzquierdo: TTBXMultiDock [3]
Left = 0
Top = 102
Width = 7
Height = 362
Position = dpLeft
end
object TBXMultiDockDerecho: TTBXMultiDock [4]
Left = 633
Top = 102
Width = 154
Height = 362
Position = dpRight
object pnlParametros: TTBXDockablePanel
Left = 0
Top = 0
Caption = 'Par'#225'metros'
DefaultDock = TBXMultiDockDerecho
DockableTo = [dpLeft, dpRight]
DockedWidth = 150
DockMode = dmCannotFloat
DockPos = 6
FloatingWidth = 128
FloatingHeight = 128
SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 0
object TBXDockablePanel1: TTBXDockablePanel
Left = 0
Top = 280
Align = alBottom
Caption = 'TBXDockablePanel1'
FloatingWidth = 128
FloatingHeight = 128
SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 0
object TBXButton1: TTBXButton
Left = 16
Top = 12
Width = 121
Height = 21
Action = actRefrescar
ImageIndex = 0
TabOrder = 0
end
end
end
end
inherited frxOLEObject1: TfrxOLEObject
Top = 200
end
inherited frxRichObject1: TfrxRichObject
Top = 232
end
inherited frxCrossObject1: TfrxCrossObject
Top = 200
end
inherited frxCheckBoxObject1: TfrxCheckBoxObject
Top = 232
end
inherited frxDialogControls1: TfrxDialogControls
Top = 264
end
inherited frxTIFFExport1: TfrxTIFFExport
Left = 136
Top = 152
end
inherited frxPDFExport1: TfrxPDFExport
Left = 176
Top = 152
end
inherited frxBMPExport1: TfrxBMPExport
Left = 208
Top = 152
end
inherited frxXLSExport1: TfrxXLSExport
Left = 56
Top = 152
end
inherited frxMailExport1: TfrxMailExport
Left = 96
Top = 152
end
inherited frxRTFExport: TfrxRTFExport
Left = 248
Top = 152
end
inherited frxSimpleTextExport1: TfrxSimpleTextExport
Left = 280
Top = 152
end
end

32
Source/Modulos/Gestor de informes/Views/uEditorInformeBase.pas Normal file
View File

@ -0,0 +1,32 @@
unit uEditorInformeBase;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorPreview, frxExportText, frxExportRTF, frxExportMail,
frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
frxChBox, frxCross, frxRich, frxOLE, frxBarcode, JvAppStorage,
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
JvExControls, JvNavigationPane, uIEditorInformeBase, TBXDkPanels;
type
TfEditorInformeBase = class(TfEditorPreview, IEditorInformeBase)
TBXMultiDockIzquierdo: TTBXMultiDock;
TBXMultiDockDerecho: TTBXMultiDock;
pnlParametros: TTBXDockablePanel;
TBXDockablePanel1: TTBXDockablePanel;
TBXButton1: TTBXButton;
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
{$R *.dfm}
end.

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

@ -1,9 +1,9 @@
inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteReport inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteReport
Caption = 'fEditorInformeFacturasClienteReport' Caption = 'fEditorInformeFacturasClienteReport'
ClientHeight = 790 ClientHeight = 514
ClientWidth = 895 ClientWidth = 895
ExplicitWidth = 903 ExplicitWidth = 903
ExplicitHeight = 824 ExplicitHeight = 548
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -30,171 +30,122 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 771 Top = 495
Width = 895 Width = 895
ExplicitTop = 771 ExplicitTop = 495
ExplicitWidth = 895 ExplicitWidth = 895
end end
object dxLayoutControl1: TdxLayoutControl [3] inherited TBXMultiDockIzquierdo: TTBXMultiDock
Left = 0 Height = 393
Top = 102 ExplicitHeight = 393
Width = 895 end
Height = 275 inherited TBXMultiDockDerecho: TTBXMultiDock
Align = alTop Left = 703
TabOrder = 3 Width = 192
TabStop = False Height = 393
inline frViewPeriodoFechas1: TfrViewPeriodoFechas ExplicitLeft = 703
Left = 10 ExplicitWidth = 192
Top = 10 ExplicitHeight = 393
Width = 450 inherited pnlParametros: TTBXDockablePanel
Height = 75 DockedWidth = 188
Align = alClient ExplicitWidth = 192
Font.Charset = DEFAULT_CHARSET ExplicitHeight = 377
Font.Color = clWindowText inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
Font.Height = -11 Left = 0
Font.Name = 'Tahoma' Top = 0
Font.Style = [] Width = 188
ParentFont = False Height = 136
TabOrder = 0 Align = alTop
ReadOnly = False Font.Charset = DEFAULT_CHARSET
ExplicitLeft = 10 Font.Color = clWindowText
ExplicitTop = 10 Font.Height = -11
ExplicitWidth = 450 Font.Name = 'Tahoma'
inherited TBXDockablePanel1: TTBXDockablePanel Font.Style = []
ExplicitWidth = 450 ParentFont = False
ExplicitHeight = 75 TabOrder = 0
inherited dxLayoutControl1: TdxLayoutControl ReadOnly = False
Width = 795 ExplicitWidth = 223
Align = alLeft ExplicitHeight = 136
ExplicitWidth = 795 inherited TBXAlignmentPanel1: TTBXAlignmentPanel
ExplicitHeight = 75 Width = 182
ExplicitWidth = 217
inherited cbPeriodo: TcxComboBox inherited cbPeriodo: TcxComboBox
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 188
Width = 153
end end
inherited edtFechaIni: TcxDateEdit end
Style.LookAndFeel.SkinName = '' inherited TBXAlignmentPanel2: TTBXAlignmentPanel
StyleDisabled.LookAndFeel.SkinName = '' Width = 182
StyleFocused.LookAndFeel.SkinName = '' ExplicitWidth = 217
StyleHot.LookAndFeel.SkinName = '' inherited Label3: TLabel
Width = 172
end end
inherited edtFechaFin: TcxDateEdit inherited edtFechaFin: TcxDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 134
Width = 99
end
inherited edtFechaIni: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 132
Width = 97
end
end
inherited TBXLabel2: TTBXLabel
Width = 188
ExplicitWidth = 223
end
end
inherited TBXDockablePanel1: TTBXDockablePanel
Top = 227
TabOrder = 2
ExplicitTop = 227
ExplicitWidth = 223
ExplicitHeight = 128
end
inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 0
Top = 136
Width = 188
Height = 77
Align = alTop
AutoSize = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 1
ReadOnly = False
ExplicitTop = 136
ExplicitWidth = 223
ExplicitHeight = 77
inherited TBXLabel2: TTBXLabel
Width = 188
ExplicitWidth = 223
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 182
ExplicitWidth = 217
inherited eImporte: TcxSpinEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
end end
end end
end end
inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 466
Top = 10
Width = 318
Height = 70
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 1
ReadOnly = False
ExplicitLeft = 466
ExplicitTop = 10
ExplicitHeight = 70
inherited dxLayoutControl1: TdxLayoutControl
Height = 70
ExplicitHeight = 70
inherited eImporte: TcxSpinEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
end
end
inline frViewFiltroClientes1: TfrViewFiltroClientes
Left = 10
Top = 91
Width = 795
Height = 170
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 2
ReadOnly = False
ExplicitLeft = 10
ExplicitTop = 91
ExplicitWidth = 795
ExplicitHeight = 170
inherited dxLayoutControl1: TdxLayoutControl
Width = 795
Height = 41
ExplicitWidth = 795
ExplicitHeight = 41
inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 200
Width = 200
end
inherited edtNIFCIF: TcxDBTextEdit
Left = 544
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 544
ExplicitWidth = 100
Width = 100
end
end
inherited Panel1: TPanel
Width = 795
ExplicitWidth = 795
end
inherited GroupBox1: TGroupBox
Width = 795
ExplicitWidth = 795
end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Group1: TdxLayoutGroup
AutoAligns = [aaHorizontal]
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item1: TdxLayoutItem
AutoAligns = [aaHorizontal]
Control = frViewPeriodoFechas1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem
Control = frViewFiltroImportes1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item3: TdxLayoutItem
Control = frViewFiltroClientes1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
end end
end end

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

@ -13,20 +13,14 @@ uses
JvExControls, JvNavigationPane, uCustomView, JvExControls, JvNavigationPane, uCustomView,
uViewBase, uViewPeriodoFechas, uViewDatosYSeleccionClienteBase, uViewBase, uViewPeriodoFechas, uViewDatosYSeleccionClienteBase,
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes, uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf; FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasClienteReport;
type type
TfEditorInformeFacturasClienteReport = class(TfEditorPreview, IEditorGestorInformesReport) TfEditorInformeFacturasClienteReport = class(TfEditorInformeBase, IEditorInformeFacturasClienteReport)
frViewPeriodoFechas1: TfrViewPeriodoFechas;
frViewFiltroClientes1: TfrViewFiltroClientes;
frViewFiltroImportes1: TfrViewFiltroImportes;
dxLayoutControl1Group_Root: TdxLayoutGroup;
dxLayoutControl1: TdxLayoutControl;
dxLayoutControl1Item1: TdxLayoutItem;
dxLayoutControl1Item2: TdxLayoutItem;
dxLayoutControl1Item3: TdxLayoutItem;
dxLayoutControl1Group1: TdxLayoutGroup;
TBXItem58: TTBXItem; TBXItem58: TTBXItem;
frViewPeriodoFechas1: TfrViewPeriodoFechas;
frViewFiltroImportes1: TfrViewFiltroImportes;
procedure actRefrescarExecute(Sender: TObject); procedure actRefrescarExecute(Sender: TObject);
private private
FListaIDClientes: TIntegerArray; FListaIDClientes: TIntegerArray;
@ -69,22 +63,22 @@ constructor TfEditorInformeFacturasClienteReport.Create(AOwner: TComponent);
begin begin
inherited; inherited;
FListaIDClientes := TIntegerArray.Create; FListaIDClientes := TIntegerArray.Create;
frViewFiltroClientes1.OnClienteChanged := OnClienteChanged; //frViewFiltroClientes1.OnClienteChanged := OnClienteChanged;
end; end;
destructor TfEditorInformeFacturasClienteReport.Destroy; destructor TfEditorInformeFacturasClienteReport.Destroy;
begin begin
FListaIDClientes.Free; FListaIDClientes.Free;
frViewFiltroClientes1.OnClienteChanged := Nil; //frViewFiltroClientes1.OnClienteChanged := Nil;
inherited; inherited;
end; end;
function TfEditorInformeFacturasClienteReport.GetDesglosadoCliente: Boolean; function TfEditorInformeFacturasClienteReport.GetDesglosadoCliente: Boolean;
begin begin
if frViewFiltroClientes1.cbxDesglosado.Enabled then { if frViewFiltroClientes1.cbxDesglosado.Enabled then
Result := frViewFiltroClientes1.cbxDesglosado.Checked Result := frViewFiltroClientes1.cbxDesglosado.Checked
else else
Result := False; Result := False;}
end; end;
function TfEditorInformeFacturasClienteReport.GetFechaFin: TDateTime; function TfEditorInformeFacturasClienteReport.GetFechaFin: TDateTime;
@ -113,8 +107,8 @@ end;
procedure TfEditorInformeFacturasClienteReport.OnClienteChanged(Sender: TObject); procedure TfEditorInformeFacturasClienteReport.OnClienteChanged(Sender: TObject);
begin begin
FListaIDClientes.Clear; FListaIDClientes.Clear;
if Assigned(frViewFiltroClientes1.Cliente) then { if Assigned(frViewFiltroClientes1.Cliente) then
FListaIDClientes.Add(frViewFiltroClientes1.Cliente.ID); FListaIDClientes.Add(frViewFiltroClientes1.Cliente.ID);}
end; end;
procedure TfEditorInformeFacturasClienteReport.RefrescarInforme; procedure TfEditorInformeFacturasClienteReport.RefrescarInforme;

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

@ -60,34 +60,40 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
ExplicitLeft = 10 ExplicitLeft = 10
ExplicitTop = 10 ExplicitTop = 10
ExplicitWidth = 450 ExplicitWidth = 450
inherited TBXDockablePanel1: TTBXDockablePanel ExplicitHeight = 75
ExplicitWidth = 450 inherited TBXAlignmentPanel1: TTBXAlignmentPanel
ExplicitHeight = 75 Width = 444
inherited dxLayoutControl1: TdxLayoutControl ExplicitWidth = 444
Width = 795 inherited cbPeriodo: TcxComboBox
Align = alLeft Style.LookAndFeel.SkinName = ''
ExplicitWidth = 795 StyleDisabled.LookAndFeel.SkinName = ''
ExplicitHeight = 75 StyleFocused.LookAndFeel.SkinName = ''
inherited cbPeriodo: TcxComboBox StyleHot.LookAndFeel.SkinName = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaIni: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaFin: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
end end
end end
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 444
ExplicitWidth = 444
inherited Label3: TLabel
Width = 434
end
inherited edtFechaFin: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaIni: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
end
inherited TBXLabel2: TTBXLabel
Width = 450
ExplicitWidth = 450
end
end end
inline frViewFiltroImportes1: TfrViewFiltroImportes inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 466 Left = 466
@ -105,10 +111,15 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
ReadOnly = False ReadOnly = False
ExplicitLeft = 466 ExplicitLeft = 466
ExplicitTop = 10 ExplicitTop = 10
ExplicitWidth = 318
ExplicitHeight = 70 ExplicitHeight = 70
inherited dxLayoutControl1: TdxLayoutControl inherited TBXLabel2: TTBXLabel
Height = 70 Width = 318
ExplicitHeight = 70 ExplicitWidth = 318
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 312
ExplicitWidth = 312
inherited eImporte: TcxSpinEdit inherited eImporte: TcxSpinEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -135,37 +146,15 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
ExplicitTop = 91 ExplicitTop = 91
ExplicitWidth = 795 ExplicitWidth = 795
ExplicitHeight = 170 ExplicitHeight = 170
inherited dxLayoutControl1: TdxLayoutControl inherited TBXLabel2: TTBXLabel
Width = 795
Height = 41
ExplicitWidth = 795
ExplicitHeight = 41
inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 200
Width = 200
end
inherited edtNIFCIF: TcxDBTextEdit
Left = 544
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 544
ExplicitWidth = 100
Width = 100
end
end
inherited Panel1: TPanel
Width = 795 Width = 795
ExplicitWidth = 795 ExplicitWidth = 795
end end
inherited GroupBox1: TGroupBox inherited cxDBTextEdit1: TcxDBTextEdit
Width = 795 Style.LookAndFeel.SkinName = ''
ExplicitWidth = 795 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup

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

@ -11,9 +11,9 @@ uses
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
JvExControls, JvNavigationPane, uIEditorInformeIVAClientesReport, uCustomView, JvExControls, JvNavigationPane, uIEditorInformeIVAClientesReport, uCustomView,
uViewBase, uViewPeriodoFechas, uViewDatosYSeleccionClienteBase, uViewBase, uViewPeriodoFechas,
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes, uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf; FactuGES_Intf, uViewParametrosInforme;
type type
TfEditorInformeIVAClientesReport = class(TfEditorPreview, IEditorInformeIVAClientesReport) TfEditorInformeIVAClientesReport = class(TfEditorPreview, IEditorInformeIVAClientesReport)
@ -69,22 +69,22 @@ constructor TfEditorInformeIVAClientesReport.Create(AOwner: TComponent);
begin begin
inherited; inherited;
FListaIDClientes := TIntegerArray.Create; FListaIDClientes := TIntegerArray.Create;
frViewFiltroClientes1.OnClienteChanged := OnClienteChanged; // frViewFiltroClientes1.OnClienteChanged := OnClienteChanged;
end; end;
destructor TfEditorInformeIVAClientesReport.Destroy; destructor TfEditorInformeIVAClientesReport.Destroy;
begin begin
FListaIDClientes.Free; FListaIDClientes.Free;
frViewFiltroClientes1.OnClienteChanged := Nil; // frViewFiltroClientes1.OnClienteChanged := Nil;
inherited; inherited;
end; end;
function TfEditorInformeIVAClientesReport.GetDesglosadoCliente: Boolean; function TfEditorInformeIVAClientesReport.GetDesglosadoCliente: Boolean;
begin begin
if frViewFiltroClientes1.cbxDesglosado.Enabled then { if frViewFiltroClientes1.cbxDesglosado.Enabled then
Result := frViewFiltroClientes1.cbxDesglosado.Checked Result := frViewFiltroClientes1.cbxDesglosado.Checked
else else
Result := False; Result := False;}
end; end;
function TfEditorInformeIVAClientesReport.GetFechaFin: TDateTime; function TfEditorInformeIVAClientesReport.GetFechaFin: TDateTime;
@ -113,8 +113,8 @@ end;
procedure TfEditorInformeIVAClientesReport.OnClienteChanged(Sender: TObject); procedure TfEditorInformeIVAClientesReport.OnClienteChanged(Sender: TObject);
begin begin
FListaIDClientes.Clear; FListaIDClientes.Clear;
if Assigned(frViewFiltroClientes1.Cliente) then { if Assigned(frViewFiltroClientes1.Cliente) then
FListaIDClientes.Add(frViewFiltroClientes1.Cliente.ID); FListaIDClientes.Add(frViewFiltroClientes1.Cliente.ID);}
end; end;
procedure TfEditorInformeIVAClientesReport.RefrescarInforme; procedure TfEditorInformeIVAClientesReport.RefrescarInforme;

3
Source/Modulos/Gestor de informes/Views/uGestorInformesViewRegister.pas
View File

@ -8,11 +8,12 @@ procedure UnregisterViews;
implementation implementation
uses uses
uEditorRegistryUtils, uEditorInformeIVAClientesReport; uEditorRegistryUtils, uEditorInformeIVAClientesReport, uEditorInformeFacturasClienteReport;
procedure RegisterViews; procedure RegisterViews;
begin begin
EditorRegistry.RegisterClass(TfEditorInformeIVAClientesReport, 'EditorInformeIVAClientesReport'); EditorRegistry.RegisterClass(TfEditorInformeIVAClientesReport, 'EditorInformeIVAClientesReport');
EditorRegistry.RegisterClass(TfEditorInformeFacturasClienteReport, 'EditorInformeFacturasClienteReport');
end; end;
procedure UnregisterViews; procedure UnregisterViews;

280
Source/Modulos/Gestor de informes/Views/uViewFiltroClientes.dfm
View File

@ -1,177 +1,127 @@
inherited frViewFiltroClientes: TfrViewFiltroClientes inherited frViewFiltroClientes: TfrViewFiltroClientes
Width = 694 Width = 188
Height = 184 Align = alTop
ExplicitWidth = 694 ExplicitWidth = 188
ExplicitHeight = 184 object TBXLabel2: TTBXLabel
inherited dxLayoutControl1: TdxLayoutControl
Top = 129
Width = 694
Height = 55
ExplicitTop = 129
ExplicitWidth = 694
ExplicitHeight = 55
DesignSize = (
694
55)
object edtlNombre: TcxDBTextEdit [0]
Left = 56
Top = 10
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = dsCliente
Enabled = False
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0
Height = 21
Width = 200
end
object edtNIFCIF: TcxDBTextEdit [1]
Left = 481
Top = 10
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'NIF_CIF'
DataBinding.DataSource = dsCliente
Enabled = False
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1
Height = 21
Width = 100
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
LayoutDirection = ldHorizontal
object dxLayoutControl1Item1: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Nombre:'
Control = edtlNombre
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'NIF/CIF:'
Control = edtNIFCIF
ControlOptions.ShowBorder = False
end
end
end
inherited Panel1: TPanel
Top = 94
Width = 694
ExplicitTop = 94
ExplicitWidth = 694
inherited bElegirCliente: TBitBtn
ExplicitLeft = 4
ExplicitTop = 4
end
inherited bNuevoCliente: TBitBtn
ExplicitLeft = 266
ExplicitTop = 4
end
inherited bVerFicha: TBitBtn
ExplicitLeft = 121
ExplicitTop = 4
end
end
object GroupBox1: TGroupBox [2]
Left = 0 Left = 0
Top = 0 Top = 0
Width = 694 Width = 188
Height = 94 Height = 29
Margins.Top = 5
Margins.Bottom = 10
Align = alTop
Caption = 'Clientes'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
Underline = True
ExplicitWidth = 451
end
object BitBtn1: TBitBtn
AlignWithMargins = True
Left = 61
Top = 123
Width = 115
Height = 23
Margins.Left = 0 Margins.Left = 0
Margins.Top = 0 Margins.Top = 0
Margins.Right = 0 Margins.Right = 2
Margins.Bottom = 0 Margins.Bottom = 0
Align = alTop Caption = 'Elegir un cliente'
Caption = 'Elija una de las siguientes opciones para generar el listado' TabOrder = 1
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000000000000000000000000000000000000FF00FF00FF00
FF00FF00FF00EB00EB00C507C600AB13AD00A119A2009F19A000A215A400AA10
AC00B608B800CE00CE00EF00EF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00B426B000526840004A823400478F310043962F0042992F0043972F004690
3100488533004B7237005A405100D201D200FF00FF00FF00FF00FF00FF00FF00
FF0062654E004F81350047903100409C2E003AA62C0038AA2B0039A72B003E9E
2D00459230004D84340056753800A0189F00FF00FF00FF00FF00FF00FF00FF00
FF005F6B4C004B89330042992F0039A82B0032B428002EBB260031B6270037AB
2A00409C2E00498C3200527B3600B015B100FF00FF00FF00FF00FF00FF00FF00
FF0090488700488D32003E9E2D0035AF290035B631007ACB7B002DBF280033B2
28003DA12D0047903100576A4800EC01EC00FF00FF00FF00FF00FF00FF00FF00
FF00F008F1005F7351003E9F2D0034B0290080AC8100D2D3D30081BB820032B2
28003DA22D004A863A00C519C500FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00EE09EF007861730036923E00598CAE00498CBB004A81A6002B70
3A00606D5900D613D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00EA0CF400608CD00054A2D80053A1D6004F9DD300488B
C2009D11AC00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF008C67DE005CA9DD005CA9DD005AA7DC0056A4D900519F
D400565FAB00EA00EA00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00EC0DF60060A7DE0063B0E30063B0E30061AEE1005CA9DD0056A4
D9004E94CC00C105C600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00C532ED0066B2E5006BB7E9006BB7E90067B3E60061AEE1005AA7
DC00539FD500A817BE00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00BA3AE7004989B1004A85AC005895BD0068B2E30064B0E4005CA9
DE0053A0D400AA1BC300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00CA23E8005098C400539AC7004E93BE00437DA2005190BA005198
C6003C79A000BE08C300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00F804FC006995D40062ACDA005DA6D3005299C6004284AD003C7F
A900535AA100F300F300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00C140ED0071BAEA0068B2E00059A1CF004990BC004378
AA00C315D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
end
object cbxDesglosado: TCheckBox
Left = 23
Top = 49
Width = 176
Height = 17
Caption = 'Desglosar por cliente'
Checked = True
State = cbChecked
TabOrder = 2 TabOrder = 2
object rd1: TRadioButton
Left = 16
Top = 24
Width = 321
Height = 17
Caption = 'Listar informe de todos los clientes'
Checked = True
TabOrder = 0
TabStop = True
OnClick = rd1Click
end
object rd2: TRadioButton
Left = 16
Top = 56
Width = 361
Height = 17
Caption = 'Listar informe del cliente siguiente'
TabOrder = 1
OnClick = rd2Click
end
object cbxDesglosado: TCheckBox
Left = 261
Top = 24
Width = 282
Height = 17
Caption = 'Desglosar por cliente'
Checked = True
State = cbChecked
TabOrder = 2
end
end end
inherited dsCliente: TDADataSource object cxDBTextEdit1: TcxDBTextEdit
Left = 112 Left = 23
Top = 40 Top = 99
AutoSize = False
DataBinding.DataField = 'NOMBRE'
Enabled = False
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3
Height = 21
Width = 153
end end
inherited ActionList1: TActionList object rd1: TRadioButton
Left = 80 Left = 6
Top = 40 Top = 29
inherited actElegirContacto: TAction Width = 147
Enabled = False Height = 17
end Caption = 'Incluir a todos los clientes'
inherited actAnadirContacto: TAction Checked = True
Enabled = False TabOrder = 4
Visible = False TabStop = True
end OnClick = rd1Click
inherited actVerContacto: TAction
Enabled = False
end
inherited actElegirDireccion: TAction
Enabled = False
end
inherited actElegirPersonaContacto: TAction
Enabled = False
end
end end
inherited PngImageList: TPngImageList object rd2: TRadioButton
Left = 144 Left = 6
Top = 40 Top = 76
Width = 175
Height = 17
Caption = 'S'#243'lo listar el cliente siguiente:'
TabOrder = 5
OnClick = rd2Click
end end
end end

34
Source/Modulos/Gestor de informes/Views/uViewFiltroClientes.pas
View File

@ -4,47 +4,51 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewDatosYSeleccionClienteBase, ImgList, PngImageList, ActnList, DB, Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
uDAInterfaces, uDADataTable, StdCtrls, Buttons, ExtCtrls, dxLayoutControl, StdCtrls, Buttons, TBXDkPanels, uViewParametrosInforme;
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit;
type type
TfrViewFiltroClientes = class(TfrViewDatosYSeleccionClienteBase) IViewFiltroClientes = interface(IViewParametrosInforme)
dxLayoutControl1Item1: TdxLayoutItem; ['{129906DA-8E64-4312-8095-A04F8007CF7F}']
edtlNombre: TcxDBTextEdit; end;
dxLayoutControl1Item2: TdxLayoutItem;
edtNIFCIF: TcxDBTextEdit; TfrViewFiltroClientes = class(TfrViewParametrosInforme, IViewFiltroClientes)
GroupBox1: TGroupBox; TBXLabel2: TTBXLabel;
rd1: TRadioButton; rd1: TRadioButton;
rd2: TRadioButton; rd2: TRadioButton;
cbxDesglosado: TCheckBox; cbxDesglosado: TCheckBox;
BitBtn1: TBitBtn;
cxDBTextEdit1: TcxDBTextEdit;
procedure rd1Click(Sender: TObject); procedure rd1Click(Sender: TObject);
procedure rd2Click(Sender: TObject); procedure rd2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; end;
implementation implementation
{$R *.dfm} {$R *.dfm}
procedure TfrViewFiltroClientes.rd1Click(Sender: TObject); procedure TfrViewFiltroClientes.rd1Click(Sender: TObject);
begin begin
inherited;
if rd1.Checked then if rd1.Checked then
begin begin
cbxDesglosado.Enabled := True; cbxDesglosado.Enabled := True;
actElegirContacto.Enabled := False; { actElegirContacto.Enabled := False;
actVerContacto.Enabled := False; actVerContacto.Enabled := False;
Cliente := Nil; Cliente := Nil;}
end; end;
end; end;
procedure TfrViewFiltroClientes.rd2Click(Sender: TObject); procedure TfrViewFiltroClientes.rd2Click(Sender: TObject);
begin begin
inherited;
if rd2.Checked then if rd2.Checked then
begin begin
cbxDesglosado.Enabled := False; cbxDesglosado.Enabled := False;
actElegirContacto.Enabled := True; { actElegirContacto.Enabled := True;
actVerContacto.Enabled := True; actVerContacto.Enabled := True;}
end; end;
end; end;

276
Source/Modulos/Gestor de informes/Views/uViewFiltroClientes_anterior.dfm Normal file
View File

@ -0,0 +1,276 @@
inherited frViewFiltroClientes_anterior: TfrViewFiltroClientes_anterior
Width = 528
Height = 414
ExplicitWidth = 528
ExplicitHeight = 414
inherited dxLayoutControl1: TdxLayoutControl
Top = 288
Width = 528
Height = 126
Align = alBottom
ExplicitTop = 288
ExplicitWidth = 528
ExplicitHeight = 126
DesignSize = (
528
126)
object edtlNombre: TcxDBTextEdit [0]
Left = 56
Top = 10
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = dsCliente
Enabled = False
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0
Height = 21
Width = 200
end
object edtNIFCIF: TcxDBTextEdit [1]
Left = 377
Top = 10
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'NIF_CIF'
DataBinding.DataSource = dsCliente
Enabled = False
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1
Height = 21
Width = 100
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
LayoutDirection = ldHorizontal
object dxLayoutControl1Item1: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Nombre:'
Control = edtlNombre
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'NIF/CIF:'
Control = edtNIFCIF
ControlOptions.ShowBorder = False
end
end
end
inherited Panel1: TPanel
Top = 162
Width = 528
ExplicitTop = 162
ExplicitWidth = 528
inherited bElegirCliente: TBitBtn
ExplicitLeft = 4
ExplicitTop = 4
end
inherited bNuevoCliente: TBitBtn
ExplicitLeft = 266
ExplicitTop = 4
end
inherited bVerFicha: TBitBtn
ExplicitLeft = 121
ExplicitTop = 4
end
end
object GroupBox1: TGroupBox [2]
Left = 0
Top = 29
Width = 528
Height = 133
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 0
Align = alTop
Caption = 'Elija una de las siguientes opciones para generar el listado'
TabOrder = 2
DesignSize = (
528
133)
object rd1: TRadioButton
Left = 16
Top = 24
Width = 273
Height = 17
Caption = 'Incluir en el informe a todos los clientes'
Checked = True
TabOrder = 0
TabStop = True
OnClick = rd1Click
end
object rd2: TRadioButton
Left = 16
Top = 71
Width = 361
Height = 17
Caption = 'S'#243'lo listar el informe con el cliente siguiente:'
TabOrder = 1
OnClick = rd2Click
end
object cbxDesglosado: TCheckBox
Left = 33
Top = 44
Width = 176
Height = 17
Caption = 'Desglosar por cliente'
Checked = True
State = cbChecked
TabOrder = 2
end
object BitBtn1: TBitBtn
AlignWithMargins = True
Left = 401
Top = 93
Width = 115
Height = 23
Margins.Left = 0
Margins.Top = 0
Margins.Right = 2
Margins.Bottom = 0
Action = actElegirContacto
Anchors = [akTop, akRight]
Caption = 'Elegir un cliente'
TabOrder = 3
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000000000000000000000000000000000000FF00FF00FF00
FF00FF00FF00EB00EB00C507C600AB13AD00A119A2009F19A000A215A400AA10
AC00B608B800CE00CE00EF00EF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00B426B000526840004A823400478F310043962F0042992F0043972F004690
3100488533004B7237005A405100D201D200FF00FF00FF00FF00FF00FF00FF00
FF0062654E004F81350047903100409C2E003AA62C0038AA2B0039A72B003E9E
2D00459230004D84340056753800A0189F00FF00FF00FF00FF00FF00FF00FF00
FF005F6B4C004B89330042992F0039A82B0032B428002EBB260031B6270037AB
2A00409C2E00498C3200527B3600B015B100FF00FF00FF00FF00FF00FF00FF00
FF0090488700488D32003E9E2D0035AF290035B631007ACB7B002DBF280033B2
28003DA12D0047903100576A4800EC01EC00FF00FF00FF00FF00FF00FF00FF00
FF00F008F1005F7351003E9F2D0034B0290080AC8100D2D3D30081BB820032B2
28003DA22D004A863A00C519C500FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00EE09EF007861730036923E00598CAE00498CBB004A81A6002B70
3A00606D5900D613D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00EA0CF400608CD00054A2D80053A1D6004F9DD300488B
C2009D11AC00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF008C67DE005CA9DD005CA9DD005AA7DC0056A4D900519F
D400565FAB00EA00EA00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00EC0DF60060A7DE0063B0E30063B0E30061AEE1005CA9DD0056A4
D9004E94CC00C105C600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00C532ED0066B2E5006BB7E9006BB7E90067B3E60061AEE1005AA7
DC00539FD500A817BE00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00BA3AE7004989B1004A85AC005895BD0068B2E30064B0E4005CA9
DE0053A0D400AA1BC300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00CA23E8005098C400539AC7004E93BE00437DA2005190BA005198
C6003C79A000BE08C300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00F804FC006995D40062ACDA005DA6D3005299C6004284AD003C7F
A900535AA100F300F300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00C140ED0071BAEA0068B2E00059A1CF004990BC004378
AA00C315D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
end
object cxDBTextEdit1: TcxDBTextEdit
Left = 33
Top = 94
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = dsCliente
Enabled = False
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4
Height = 21
Width = 365
end
end
object TBXLabel2: TTBXLabel [3]
Left = 0
Top = 0
Width = 528
Height = 29
Margins.Top = 5
Margins.Bottom = 10
Align = alTop
Caption = 'Clientes'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
Underline = True
end
inherited dsCliente: TDADataSource
Left = 88
Top = 224
end
inherited ActionList1: TActionList
Left = 56
Top = 224
inherited actElegirContacto: TAction
Enabled = False
end
inherited actAnadirContacto: TAction
Enabled = False
Visible = False
end
inherited actVerContacto: TAction
Enabled = False
end
inherited actElegirDireccion: TAction
Enabled = False
end
inherited actElegirPersonaContacto: TAction
Enabled = False
end
end
inherited PngImageList: TPngImageList
Left = 120
Top = 224
end
end

56
Source/Modulos/Gestor de informes/Views/uViewFiltroClientes_anterior.pas Normal file
View File

@ -0,0 +1,56 @@
unit uViewFiltroClientes_anterior;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ImgList, PngImageList, ActnList, DB,
uDAInterfaces, uDADataTable, StdCtrls, Buttons, ExtCtrls, dxLayoutControl,
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, TBXDkPanels,
uViewDatosYSeleccionClienteBase;
type
TfrViewFiltroClientes_anterior = class(TfrViewDatosYSeleccionClienteBase)
dxLayoutControl1Item1: TdxLayoutItem;
edtlNombre: TcxDBTextEdit;
dxLayoutControl1Item2: TdxLayoutItem;
edtNIFCIF: TcxDBTextEdit;
GroupBox1: TGroupBox;
rd1: TRadioButton;
rd2: TRadioButton;
cbxDesglosado: TCheckBox;
TBXLabel2: TTBXLabel;
BitBtn1: TBitBtn;
cxDBTextEdit1: TcxDBTextEdit;
procedure rd1Click(Sender: TObject);
procedure rd2Click(Sender: TObject);
end;
implementation
{$R *.dfm}
procedure TfrViewFiltroClientes_anterior.rd1Click(Sender: TObject);
begin
inherited;
if rd1.Checked then
begin
cbxDesglosado.Enabled := True;
actElegirContacto.Enabled := False;
actVerContacto.Enabled := False;
Cliente := Nil;
end;
end;
procedure TfrViewFiltroClientes_anterior.rd2Click(Sender: TObject);
begin
inherited;
if rd2.Checked then
begin
cbxDesglosado.Enabled := False;
actElegirContacto.Enabled := True;
actVerContacto.Enabled := True;
end;
end;
end.

72
Source/Modulos/Gestor de informes/Views/uViewFiltroImportes.dfm
View File

@ -1,19 +1,43 @@
inherited frViewFiltroImportes: TfrViewFiltroImportes inherited frViewFiltroImportes: TfrViewFiltroImportes
Width = 318 Width = 181
Height = 44 Height = 93
ExplicitWidth = 318 Align = alTop
ExplicitHeight = 44 ExplicitWidth = 451
object dxLayoutControl1: TdxLayoutControl ExplicitHeight = 93
object TBXLabel2: TTBXLabel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 318 Width = 181
Height = 44 Height = 29
Align = alClient Margins.Top = 5
TabOrder = 0 Margins.Bottom = 10
TabStop = False Align = alTop
Caption = 'Importes'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
Underline = True
ExplicitWidth = 451
end
object TBXAlignmentPanel1: TTBXAlignmentPanel
AlignWithMargins = True
Left = 3
Top = 32
Width = 175
Height = 42
Margins.Left = 5
Margins.Right = 5
Align = alTop
AutoSize = True
TabOrder = 1
ExplicitWidth = 445
object CheckBox1: TCheckBox object CheckBox1: TCheckBox
Left = 10 Left = 7
Top = 10 Top = 0
Width = 159 Width = 159
Height = 17 Height = 17
Caption = 'Solo facturas que superen:' Caption = 'Solo facturas que superen:'
@ -23,8 +47,8 @@ inherited frViewFiltroImportes: TfrViewFiltroImportes
OnClick = CheckBox1Click OnClick = CheckBox1Click
end end
object eImporte: TcxSpinEdit object eImporte: TcxSpinEdit
Left = 175 Left = 24
Top = 10 Top = 21
Enabled = False Enabled = False
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = ',0.00 '#8364';-,0.00 '#8364 Properties.DisplayFormat = ',0.00 '#8364';-,0.00 '#8364
@ -40,24 +64,8 @@ inherited frViewFiltroImportes: TfrViewFiltroImportes
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1 TabOrder = 1
Width = 121 Value = 3000.000000000000000000
end Width = 142
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item1: TdxLayoutItem
Caption = 'CheckBox1'
ShowCaption = False
Control = CheckBox1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem
Control = eImporte
ControlOptions.ShowBorder = False
end
end end
end end
end end

14
Source/Modulos/Gestor de informes/Views/uViewFiltroImportes.pas
View File

@ -5,16 +5,18 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxSpinEdit, Dialogs, uViewBase, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxSpinEdit,
dxLayoutControl, StdCtrls, cxControls; dxLayoutControl, StdCtrls, cxControls, TBXDkPanels, uViewParametrosInforme;
type type
TfrViewFiltroImportes = class(TfrViewBase) IViewFiltroImportes = interface(IViewParametrosInforme)
dxLayoutControl1Group_Root: TdxLayoutGroup; ['{AE773F0B-E72A-4A71-9C5C-8E68EC61456A}']
dxLayoutControl1: TdxLayoutControl; end;
TfrViewFiltroImportes = class(TfrViewParametrosInforme, IViewFiltroImportes)
CheckBox1: TCheckBox; CheckBox1: TCheckBox;
dxLayoutControl1Item1: TdxLayoutItem;
eImporte: TcxSpinEdit; eImporte: TcxSpinEdit;
dxLayoutControl1Item2: TdxLayoutItem; TBXLabel2: TTBXLabel;
TBXAlignmentPanel1: TTBXAlignmentPanel;
procedure CheckBox1Click(Sender: TObject); procedure CheckBox1Click(Sender: TObject);
end; end;

6
Source/Modulos/Gestor de informes/Views/uViewParametrosInforme.dfm Normal file
View File

@ -0,0 +1,6 @@
inherited frViewParametrosInforme: TfrViewParametrosInforme
Width = 369
Height = 195
ExplicitWidth = 369
ExplicitHeight = 195
end

26
Source/Modulos/Gestor de informes/Views/uViewParametrosInforme.pas Normal file
View File

@ -0,0 +1,26 @@
unit uViewParametrosInforme;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase;
type
IViewParametrosInforme = interface(IViewBase)
['{2578FF9E-F084-4603-81D8-32450E3865B7}']
end;
TfrViewParametrosInforme = class(TfrViewBase, IViewParametrosInforme)
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
{$R *.dfm}
end.

303
Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.dfm
View File

@ -1,145 +1,172 @@
inherited frViewPeriodoFechas: TfrViewPeriodoFechas inherited frViewPeriodoFechas: TfrViewPeriodoFechas
Width = 769 Width = 451
Height = 75 Height = 177
ExplicitWidth = 769 Align = alTop
ExplicitHeight = 75 ExplicitWidth = 451
object TBXDockablePanel1: TTBXDockablePanel ExplicitHeight = 177
Left = 0 object TBXAlignmentPanel1: TTBXAlignmentPanel
Top = 0 AlignWithMargins = True
Align = alClient Left = 3
Caption = 'TBXDockablePanel1' Top = 32
FloatingWidth = 128 Width = 445
FloatingHeight = 128 Height = 21
SupportedDocks = [dkStandardDock, dkMultiDock] Margins.Left = 5
Margins.Right = 5
Align = alTop
AutoSize = True
TabOrder = 0 TabOrder = 0
object dxLayoutControl1: TdxLayoutControl DesignSize = (
Left = 0 445
21)
object cbPeriodo: TcxComboBox
Left = 16
Top = 0 Top = 0
Width = 769 RepositoryItem = cxRepositoryPeriodos
Height = 75 Anchors = [akLeft, akTop, akRight]
Align = alClient Properties.OnChange = cbPeriodoPropertiesChange
ParentBackground = True Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0 TabOrder = 0
TabStop = False Text = 'Este mes'
LookAndFeel = dxLayoutStandardLookAndFeel1 Width = 416
DesignSize = (
769
75)
object cbPeriodo: TcxComboBox
Left = 55
Top = 37
RepositoryItem = cxRepositoryPeriodos
Anchors = [akLeft, akTop, akRight]
Properties.OnChange = cbPeriodoPropertiesChange
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2
Text = 'Este mes'
Width = 385
end
object edtFechaIni: TcxDateEdit
Left = 55
Top = 10
Properties.DateButtons = [btnToday]
Properties.PostPopupValueOnTab = True
Properties.SaveTime = False
Properties.ShowTime = False
Properties.OnValidate = edtFechaIni2PropertiesValidate
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0
Width = 170
end
object edtFechaFin: TcxDateEdit
Left = 268
Top = 10
Properties.DateButtons = [btnToday]
Properties.PostPopupValueOnTab = True
Properties.SaveTime = False
Properties.ShowTime = False
Properties.OnValidate = edtFechaFinPropertiesValidate
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1
Width = 170
end
object dxLayoutGroup1: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutGroup2: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item2: TdxLayoutItem
Caption = 'Desde:'
Control = edtFechaIni
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item3: TdxLayoutItem
Caption = 'Hasta:'
Control = edtFechaFin
ControlOptions.ShowBorder = False
end
end
object dxLayoutItem1: TdxLayoutItem
AutoAligns = [aaVertical]
Caption = 'Periodo:'
Control = cbPeriodo
ControlOptions.ShowBorder = False
end
end
end end
end end
object TBXAlignmentPanel2: TTBXAlignmentPanel
AlignWithMargins = True
Left = 3
Top = 59
Width = 445
Height = 74
Margins.Left = 5
Margins.Top = 5
Margins.Right = 5
Align = alTop
AutoSize = True
TabOrder = 1
DesignSize = (
445
74)
object Label3: TLabel
Left = 5
Top = 5
Width = 435
Height = 13
Align = alTop
Caption = 'Rango de fechas:'
Transparent = True
ExplicitWidth = 85
end
object Label1: TLabel
Left = 29
Top = 29
Width = 34
Height = 13
Caption = 'Desde:'
Transparent = True
end
object Label2: TLabel
Left = 32
Top = 56
Width = 31
Height = 13
Caption = 'hasta:'
Transparent = True
end
object edtFechaFin: TcxDateEdit
Left = 72
Top = 53
Anchors = [akLeft, akTop, akRight]
Properties.DateButtons = [btnToday]
Properties.PostPopupValueOnTab = True
Properties.SaveTime = False
Properties.ShowTime = False
Properties.OnValidate = edtFechaFinPropertiesValidate
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0
Width = 362
end
object edtFechaIni: TcxDateEdit
Left = 72
Top = 26
Anchors = [akLeft, akTop, akRight]
Properties.DateButtons = [btnToday]
Properties.PostPopupValueOnTab = True
Properties.SaveTime = False
Properties.ShowTime = False
Properties.OnValidate = edtFechaIni2PropertiesValidate
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1
Width = 360
end
end
object TBXLabel2: TTBXLabel
Left = 0
Top = 0
Width = 451
Height = 29
Margins.Top = 5
Margins.Bottom = 10
Align = alTop
Caption = 'Periodo'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
Underline = True
end
object cxRepository: TcxEditRepository object cxRepository: TcxEditRepository
Left = 184 Left = 32
Top = 32 Top = 24
object cxRepositoryPeriodos: TcxEditRepositoryComboBoxItem object cxRepositoryPeriodos: TcxEditRepositoryComboBoxItem
Properties.BeepOnError = True Properties.BeepOnError = True
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
@ -162,10 +189,4 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
Properties.ReadOnly = False Properties.ReadOnly = False
end end
end end
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
Left = 136
Top = 16
object dxLayoutStandardLookAndFeel1: TdxLayoutStandardLookAndFeel
end
end
end end

21
Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.pas
View File

@ -7,28 +7,25 @@ uses
Dialogs, cxGraphics, cxEdit, cxDropDownEdit, cxCalendar, StdCtrls, Dialogs, cxGraphics, cxEdit, cxDropDownEdit, cxCalendar, StdCtrls,
cxControls, cxContainer, cxTextEdit, cxMaskEdit, TBXDkPanels, cxControls, cxContainer, cxTextEdit, cxMaskEdit, TBXDkPanels,
cxEditRepositoryItems, dxLayoutControl, dxLayoutLookAndFeels, uViewBase, cxEditRepositoryItems, dxLayoutControl, dxLayoutLookAndFeels, uViewBase,
Mask, JvExMask, JvToolEdit, TB2Dock; Mask, JvExMask, JvToolEdit, TB2Dock, uViewParametrosInforme;
type type
IViewPeriodoFechas = interface IViewPeriodoFechas = interface(IViewParametrosInforme)
['{793084E2-873E-4C57-8BD6-9087816CCF3A}'] ['{793084E2-873E-4C57-8BD6-9087816CCF3A}']
end; end;
TfrViewPeriodoFechas = class(TfrViewBase, IViewPeriodoFechas) TfrViewPeriodoFechas = class(TfrViewParametrosInforme, IViewPeriodoFechas)
cxRepository: TcxEditRepository; cxRepository: TcxEditRepository;
cxRepositoryPeriodos: TcxEditRepositoryComboBoxItem; cxRepositoryPeriodos: TcxEditRepositoryComboBoxItem;
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutStandardLookAndFeel1: TdxLayoutStandardLookAndFeel;
TBXDockablePanel1: TTBXDockablePanel;
dxLayoutControl1: TdxLayoutControl;
cbPeriodo: TcxComboBox; cbPeriodo: TcxComboBox;
edtFechaIni: TcxDateEdit; edtFechaIni: TcxDateEdit;
edtFechaFin: TcxDateEdit; edtFechaFin: TcxDateEdit;
dxLayoutGroup1: TdxLayoutGroup; TBXLabel2: TTBXLabel;
dxLayoutGroup2: TdxLayoutGroup; TBXAlignmentPanel1: TTBXAlignmentPanel;
dxLayoutControl1Item2: TdxLayoutItem; TBXAlignmentPanel2: TTBXAlignmentPanel;
dxLayoutControl1Item3: TdxLayoutItem; Label1: TLabel;
dxLayoutItem1: TdxLayoutItem; Label2: TLabel;
Label3: TLabel;
procedure cbPeriodoPropertiesChange(Sender: TObject); procedure cbPeriodoPropertiesChange(Sender: TObject);
procedure edtFechaIni2PropertiesValidate(Sender: TObject; procedure edtFechaIni2PropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var DisplayValue: Variant; var ErrorText: TCaption;

206
Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.pas.bak
View File

@ -1,206 +0,0 @@
unit uViewPeriodoFechas;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxEdit, cxDropDownEdit, cxCalendar, StdCtrls,
cxControls, cxContainer, cxTextEdit, cxMaskEdit, TBXDkPanels,
cxEditRepositoryItems, dxLayoutControl, dxLayoutLookAndFeels, uViewBase,
Mask, JvExMask, JvToolEdit, uViewInformeBaseParametros, TB2Dock;
type
IViewPeriodoFechas = interface(IViewInformeBaseParametros)
['{793084E2-873E-4C57-8BD6-9087816CCF3A}']
end;
TfrViewPeriodoFechas = class(TfrViewInformeBaseParametros, IViewPeriodoFechas)
cxRepository: TcxEditRepository;
cxRepositoryPeriodos: TcxEditRepositoryComboBoxItem;
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutStandardLookAndFeel1: TdxLayoutStandardLookAndFeel;
TBXDockablePanel1: TTBXDockablePanel;
dxLayoutControl1: TdxLayoutControl;
cbPeriodo: TcxComboBox;
edtFechaIni: TcxDateEdit;
edtFechaFin: TcxDateEdit;
dxLayoutGroup1: TdxLayoutGroup;
dxLayoutGroup2: TdxLayoutGroup;
dxLayoutControl1Item2: TdxLayoutItem;
dxLayoutControl1Item3: TdxLayoutItem;
dxLayoutItem1: TdxLayoutItem;
procedure cbPeriodoPropertiesChange(Sender: TObject);
procedure edtFechaIni2PropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
procedure edtFechaFinPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
private
function GetFechaFinal: TDateTime;
function GetFechaInicial: TDateTime;
procedure SetFechaFinal(const Value: TDateTime);
procedure SetFechaInicial(const Value: TDateTime);
public
procedure Hoy;
procedure Ayer;
procedure EstaSemana;
procedure EsteMes;
procedure EsteAno;
procedure Ultimos7dias;
procedure Ultimos30dias;
procedure Ultimos3meses;
procedure MesAnterior;
procedure AnoAnterior;
procedure Personalizado;
property FechaInicial : TDateTime read GetFechaInicial write SetFechaInicial;
property FechaFinal : TDateTime read GetFechaFinal write SetFechaFinal;
constructor Create(AOwner: TComponent); override;
end;
implementation
uses DateUtils;
{$R *.dfm}
procedure TfrViewPeriodoFechas.AnoAnterior;
begin
edtFechaIni.Date := StartOfTheYear(IncYear(Today, -1));
edtFechaFin.Date := EndOfTheYear(IncYear(Today, -1));
end;
procedure TfrViewPeriodoFechas.Ayer;
begin
edtFechaIni.Date := Yesterday;
edtFechaFin.Date := Yesterday;
end;
procedure TfrViewPeriodoFechas.EstaSemana;
begin
edtFechaIni.Date := StartOfTheWeek(Today);
edtFechaFin.Date := EndOfTheWeek(Today);
end;
procedure TfrViewPeriodoFechas.EsteAno;
begin
edtFechaIni.Date := StartOfTheYear(Today);
edtFechaFin.Date := EndOfTheYear(Today);
end;
procedure TfrViewPeriodoFechas.EsteMes;
begin
edtFechaIni.Date := StartOfTheMonth(Today);
edtFechaFin.Date := EndOfTheMonth(Today);
end;
function TfrViewPeriodoFechas.GetFechaFinal: TDateTime;
begin
Result := DateOf(edtFechaFin.Date);
end;
function TfrViewPeriodoFechas.GetFechaInicial: TDateTime;
begin
Result := DateOf(edtFechaIni.Date);
end;
procedure TfrViewPeriodoFechas.Hoy;
begin
edtFechaIni.Date := Today;
edtFechaFin.Date := Today;
end;
procedure TfrViewPeriodoFechas.MesAnterior;
begin
edtFechaIni.Date := StartOfTheMonth(IncMonth(Today, -1));
edtFechaFin.Date := EndOfTheMonth(IncMonth(Today, -1));
end;
procedure TfrViewPeriodoFechas.Personalizado;
begin
edtFechaIni.SetFocus;
end;
procedure TfrViewPeriodoFechas.SetFechaFinal(const Value: TDateTime);
begin
edtFechaFin.Date := Value;
end;
procedure TfrViewPeriodoFechas.SetFechaInicial(const Value: TDateTime);
begin
edtFechaIni.Date := Value;
end;
procedure TfrViewPeriodoFechas.Ultimos30dias;
begin
edtFechaIni.Date := IncDay(Today, -30);
edtFechaFin.Date := Today
end;
procedure TfrViewPeriodoFechas.Ultimos3meses;
begin
edtFechaIni.Date := IncMonth(Today, -3);
edtFechaFin.Date := Today
end;
procedure TfrViewPeriodoFechas.Ultimos7dias;
begin
edtFechaIni.Date := IncDay(Today, -7);
edtFechaFin.Date := Today
end;
procedure TfrViewPeriodoFechas.cbPeriodoPropertiesChange(Sender: TObject);
begin
case (Sender as TcxComboBox).ItemIndex of
0 : Hoy;
1 : Ayer;
2 : EstaSemana;
3 : EsteMes;
4 : EsteAno;
5 : Ultimos7dias;
6 : Ultimos30dias;
7 : Ultimos3meses;
8 : MesAnterior;
9 : AnoAnterior;
else
Personalizado;
end;
end;
constructor TfrViewPeriodoFechas.Create(AOwner: TComponent);
begin
inherited;
cbPeriodo.ItemIndex := 3;
EsteMes;
end;
procedure TfrViewPeriodoFechas.edtFechaIni2PropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
begin
inherited;
if DisplayValue <> edtFechaIni.Date then
cbPeriodo.ItemIndex := 12;
if DisplayValue > edtFechaFin.Date then
begin
edtFechaFin.EditText := DisplayValue;
edtFechaFin.ValidateEdit(True);
end;
end;
procedure TfrViewPeriodoFechas.edtFechaFinPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
begin
inherited;
if DisplayValue <> edtFechaFin.Date then
cbPeriodo.ItemIndex := 12;
if DisplayValue < edtFechaIni.Date then
begin
edtFechaIni.EditText := DisplayValue;
edtFechaIni.ValidateEdit(True);
end;
end;
end.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.3.7.0\0" VALUE "FileVersion", "1.3.7.0\0"
VALUE "ProductVersion", "1.3.7.0\0" VALUE "ProductVersion", "1.3.7.0\0"
VALUE "CompileDate", "viernes, 17 de octubre de 2008 18:27\0" VALUE "CompileDate", "viernes, 17 de octubre de 2008 19:20\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"