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

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">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Recibos de proveedor\Base.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxComnD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\frx11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\frxe11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\fs11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\rtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vcldb.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vclx.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\Base.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\dxComnD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\frx11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\frxe11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\fs11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\rtl.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\vcl.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\vcldb.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</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
if Assigned(_FocusedView) then
begin
BestFitAllColumns;
_FocusedView.ApplyBestFit;
//BestFitAllColumns;
_FocusedView.ApplyBestFit(nil, True, False);
end;
end;
@ -424,8 +424,6 @@ procedure TfrViewGridBase.RestoreFromIniFile;
var
AIniFile : String;
begin
Exit;
inherited;
if Assigned(_FocusedView) then
begin
@ -449,8 +447,6 @@ procedure TfrViewGridBase.StoreToIniFile;
var
AIniFile : String;
begin
inherited;
Exit;
if Assigned(_FocusedView) then
begin

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

@ -228,24 +228,6 @@
<Target Name="FacturasCliente_plugin:Make">
<MSBuild Projects="Plugin\FacturasCliente_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="AlbaranesCliente_view">
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="" />
</Target>
@ -291,14 +273,32 @@
<Target Name="GestorInformes_plugin:Make">
<MSBuild Projects="..\Gestor de informes\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;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 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 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>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</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">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Gestor de informes\Views\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\Articulos_view.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\Contactos_view.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\dbrtl.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\FacturasCliente_controller.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\FacturasCliente_model.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\frx11.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\frxe11.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\fs11.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\GestorInformes_controller.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\GUIBase.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\Jcl.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\JclVcl.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\JvCoreD11R.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\JvPageCompsD11R.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\JvSystemD11R.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\PNG_D10.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\PreCli_FacCli_relation.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\rtl.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\tb2k_d10.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\tbx_d10.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\vcl.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\vclactnband.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\vcldb.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\vcljpg.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\vclx.dcp" />
<DCCReference Include="..\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="..\Contactos_view.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\FacturasCliente_controller.dcp" />
<DCCReference Include="..\FacturasCliente_model.dcp" />
<DCCReference Include="..\frx11.dcp" />
<DCCReference Include="..\frxe11.dcp" />
<DCCReference Include="..\fs11.dcp" />
<DCCReference Include="..\GestorInformes_controller.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\Jcl.dcp" />
<DCCReference Include="..\JclVcl.dcp" />
<DCCReference Include="..\JvCoreD11R.dcp" />
<DCCReference Include="..\JvPageCompsD11R.dcp" />
<DCCReference Include="..\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\JvSystemD11R.dcp" />
<DCCReference Include="..\PngComponentsD10.dcp" />
<DCCReference Include="..\PNG_D10.dcp" />
<DCCReference Include="..\PreCli_FacCli_relation.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\tb2k_d10.dcp" />
<DCCReference Include="..\tbx_d10.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vcljpg.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">
<Form>fEditorElegirArticulosFacturaCliente</Form>
<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>
</DelphiCompile>
<DCCReference Include="uGestorInformesController.pas" />
<DCCReference Include="View\adortl.dcp" />
<DCCReference Include="View\ApplicationBase.dcp" />
<DCCReference Include="View\cxLibraryD11.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\Base.dcp" />
<DCCReference Include="View\GestorInformes_data.dcp" />
<DCCReference Include="View\RemObjects_Core_D11.dcp" />
<DCCReference Include="View\rtl.dcp" />
<DCCReference Include="View\uIEditorInformeBase.pas" />
<DCCReference Include="View\uIEditorInformeFacturasClienteReport.pas" />
<DCCReference Include="View\uIEditorInformeIVAClientesReport.pas" />
<DCCReference Include="View\uIEditorInformeReportBase.pas" />
<DCCReference Include="View\vcl.dcp" />
<DCCReference Include="View\vcldb.dcp" />
</ItemGroup>
</Project>
<!-- 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
uses
FactuGES_Intf, uEditorPreview;
FactuGES_Intf, uIEditorInformeBase;
type
IEditorGestorInformesReport = interface(IEditorPreview)
['{22B97B8E-04B8-4439-965B-D4AF8216DCEA}']
IEditorInformeFacturasClienteReport = interface(IEditorInformeBase)
['{AE5DD69C-6360-4A6A-A764-C0DAF5B5A948}']
function GetFechaFin: TDateTime;
function GetFechaInicio: TDateTime;
function GetListaIDClientes: TIntegerArray;

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

@ -3,11 +3,21 @@ unit uIEditorInformeIVAClientesReport;
interface
uses
FactuGES_Intf, uIEditorInformeReportBase;
FactuGES_Intf, uIEditorInformeBase;
type
IEditorInformeIVAClientesReport = interface(IEditorInformeReportBase)
['{5C334CFF-D952-4332-8689-D82ECCC726C1}']
IEditorInformeIVAClientesReport = interface(IEditorInformeBase)
['{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;

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
Classes, SysUtils, uDADataTable, uControllerBase, uROTypes, uIDataModuleGestorInformes,
uIEditorInformeReportBase;
uIEditorInformeBase;
type
IGestorInformesController = interface(IControllerBase)
@ -16,13 +16,13 @@ type
// procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false);
//MODULO FACTURAS DE CLIENTE
procedure GetInformeIVAClientes;
procedure GetInformeListadoFacturas;
procedure GetInformeListadoFacturasPendientes;
procedure VerInformeIVAClientes;
procedure VerInformeListadoFacturas;
procedure VerInformeListadoFacturasPendientes;
//MODULO RECIBOS DE CLIENTE
procedure GetInformeListadoRecibosCliPendientes;
procedure GetInformeListadoRecibosCliente;
procedure VerInformeListadoRecibosCliPendientes;
procedure VerInformeListadoRecibosCliente;
end;
TGestorInformesController = class(TControllerBase, IGestorInformesController)
@ -50,13 +50,13 @@ type
property DataModule: IDataModuleGestorInformes read GetDataModule;
//MODULO FACTURAS DE CLIENTE
procedure GetInformeIVAClientes;
procedure GetInformeListadoFacturas;
procedure GetInformeListadoFacturasPendientes;
procedure VerInformeIVAClientes;
procedure VerInformeListadoFacturas;
procedure VerInformeListadoFacturasPendientes;
//MODULO RECIBOS DE CLIENTE
procedure GetInformeListadoRecibosCliPendientes;
procedure GetInformeListadoRecibosCliente;
procedure VerInformeListadoRecibosCliPendientes;
procedure VerInformeListadoRecibosCliente;
end;
implementation
@ -65,7 +65,8 @@ uses
Windows, Controls, cxControls, DB, uEditorRegistryUtils, uFactuGES_App,
uDAInterfaces, uDataTableUtils, uDateUtils, uNumUtils,
DateUtils, Forms, uIntegerListUtils, uDataModuleGestorInformes,
uSistemaFunc, uDialogElegirEMail, uEMailUtils, Dialogs, uIEditorInformeIVAClientesReport;
uSistemaFunc, uDialogElegirEMail, uEMailUtils, Dialogs,
uIEditorInformeIVAClientesReport, uIEditorInformeFacturasClienteReport;
{procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente;
@ -236,7 +237,7 @@ begin
Result := FDataModule;
end;
procedure TGestorInformesController.GetInformeIVAClientes;
procedure TGestorInformesController.VerInformeIVAClientes;
var
AStream: Binary;
AEditor : IEditorInformeIVAClientesReport;
@ -264,16 +265,16 @@ begin
end;
end;
procedure TGestorInformesController.GetInformeListadoFacturas;
procedure TGestorInformesController.VerInformeListadoFacturas;
var
AStream: Binary;
AEditor : IEditorInformeIVAClientesReport;
AEditor : IEditorInformeFacturasClienteReport;
begin
AEditor := NIL;
ShowHourglassCursor;
try
try
CreateEditor('EditorInformeIVAClientesReport', IEditorInformeIVAClientesReport, AEditor);
CreateEditor('EditorInformeFacturasClienteReport', IEditorInformeFacturasClienteReport, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
@ -292,7 +293,7 @@ begin
end;
end;
procedure TGestorInformesController.GetInformeListadoFacturasPendientes;
procedure TGestorInformesController.VerInformeListadoFacturasPendientes;
var
AStream: Binary;
AEditor : IEditorInformeIVAClientesReport;
@ -320,7 +321,7 @@ begin
end;
end;
procedure TGestorInformesController.GetInformeListadoRecibosCliente;
procedure TGestorInformesController.VerInformeListadoRecibosCliente;
var
AStream: Binary;
AEditor : IEditorInformeIVAClientesReport;
@ -348,7 +349,7 @@ begin
end;
end;
procedure TGestorInformesController.GetInformeListadoRecibosCliPendientes;
procedure TGestorInformesController.VerInformeListadoRecibosCliPendientes;
var
AStream: Binary;
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.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<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>
<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>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="GestorInformes_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Controller\adortl.dcp" />
<DCCReference Include="..\Controller\cxLibraryD11.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="..\Plugin\Base.dcp" />
<DCCReference Include="..\Plugin\GestorInformes_model.dcp" />
<DCCReference Include="uDataModuleGestorInformes.pas" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
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.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<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>
<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>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="GestorInformes_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Controller\Base.dcp" />
<DCCReference Include="..\..\..\Servidor\Base.dcp" />
<DCCReference Include="Data\uIDataModuleGestorInformes.pas" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
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">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" />
<DCCReference Include="..\..\Lib\GestorInformes_view.dcp" />
<DCCReference Include="..\..\Lib\PluginSDK_D10R.dcp" />
<DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Lib\PNG_D10.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" />
<DCCReference Include="..\..\Lib\vclactnband.dcp" />
<DCCReference Include="..\..\Lib\vclx.dcp" />
<DCCReference Include="..\Controller\View\ApplicationBase.dcp" />
<DCCReference Include="..\Controller\View\BaApplicationBase.dcp" />
<DCCReference Include="..\Controller\View\BApplicationBase.dcp" />
<DCCReference Include="..\Controller\View\BasApplicationBase.dcp" />
<DCCReference Include="..\Controller\View\Base.dcp" />
<DCCReference Include="..\Controller\View\BaseApplicationBase.dcp" />
<DCCReference Include="..\Controller\View\GApplicationBase.dcp" />
<DCCReference Include="..\Controller\View\GestorInformes_controller.dcp" />
<DCCReference Include="..\Controller\View\GestorInformes_view.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" />
</ItemGroup>
</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 = {}
end
object ModuleActionList: TActionList
Images = LargeImages
Images = SmallImages
Left = 40
Top = 72
object actInformeFacturasCliente: TAction
Category = 'Facturas de cliente'
Caption = 'Listado de facturas de cliente'
ImageIndex = 0
OnExecute = actInformeFacturasClienteExecute
end
end
object MainMenu: TMainMenu
Images = LargeImages
Left = 40
Top = 16
object Informes1: TMenuItem
Caption = 'Informes'
object Listadodefacturasdecliente1: TMenuItem
Action = actInformeFacturasCliente
end
end
end
object SmallImages: TPngImageList
PngImages = <

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

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

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

@ -25,51 +25,23 @@ package GestorInformes_view;
{$IMPLICITBUILD OFF}
requires
Base,
GUIBase,
vcl,
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,
ApplicationBase,
Contactos_view,
DataAbstract_Core_D11,
dsnap,
adortl,
RemObjects_Core_D11,
GUISDK_D11,
xmlrtl,
cfpack_d11,
designide,
ccpackD11;
GestorInformes_controller,
rtl,
vcl;
contains
uGestorInformesViewRegister in 'uGestorInformesViewRegister.pas',
uEditorInformeIVAClientesReport in 'uEditorInformeIVAClientesReport.pas' {fEditorInformeIVAClientesReport: TfEditorElegirFacturasCliente},
uViewPeriodoFechas in 'uViewPeriodoFechas.pas' {frViewPeriodoFechas: 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.

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

@ -38,45 +38,21 @@
<DelphiCompile Include="GestorInformes_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Facturas de cliente\adortl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\ccpackD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\cfpack_d11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Contactos_view.dcp" />
<DCCReference Include="..\..\Facturas de cliente\cxDataD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\designide.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dsnap.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dxComnD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\frx11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\frxe11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\fs11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\GestorInformes_controller.dcp" />
<DCCReference Include="..\..\Facturas de cliente\GUIBase.dcp" />
<DCCReference Include="..\..\Facturas de cliente\GUISDK_D11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Jcl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\JclVcl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\..\Facturas de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\..\Facturas de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\Facturas de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\..\Facturas de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Facturas de cliente\PNG_D10.dcp" />
<DCCReference Include="..\..\Facturas de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\tb2k_d10.dcp" />
<DCCReference Include="..\..\Facturas de cliente\tbx_d10.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vclactnband.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcljpg.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vclx.dcp" />
<DCCReference Include="..\..\Facturas de cliente\xmlrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GestorInformes_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="uEditorInformeBase.pas">
<DesignClass>T</DesignClass>
<Form>fEditorInformeBase</Form>
</DCCReference>
<DCCReference Include="uEditorInformeFacturasClienteReport.pas">
<Form>TfEditorInformeFacturasClienteReport</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="uEditorInformeIVAClientesReport.pas">
<Form>fEditorInformeIVAClientesReport</Form>
<DesignClass>TfEditorElegirFacturasCliente</DesignClass>
@ -84,12 +60,20 @@
<DCCReference Include="uGestorInformesViewRegister.pas" />
<DCCReference Include="uViewFiltroClientes.pas">
<Form>frViewFiltroClientes</Form>
<DesignClass>T</DesignClass>
</DCCReference>
<DCCReference Include="uViewFiltroClientes_anterior.pas">
<Form>frViewFiltroClientes_anterior</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewFiltroImportes.pas">
<Form>frViewFiltroImportes</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewParametrosInforme.pas">
<Form>frViewParametrosInforme</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewPeriodoFechas.pas">
<Form>frViewPeriodoFechas</Form>
<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
Caption = 'fEditorInformeFacturasClienteReport'
ClientHeight = 790
ClientHeight = 514
ClientWidth = 895
ExplicitWidth = 903
ExplicitHeight = 824
ExplicitHeight = 548
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -30,171 +30,122 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
end
end
inherited StatusBar: TJvStatusBar
Top = 771
Top = 495
Width = 895
ExplicitTop = 771
ExplicitTop = 495
ExplicitWidth = 895
end
object dxLayoutControl1: TdxLayoutControl [3]
Left = 0
Top = 102
Width = 895
Height = 275
Align = alTop
TabOrder = 3
TabStop = False
inline frViewPeriodoFechas1: TfrViewPeriodoFechas
Left = 10
Top = 10
Width = 450
Height = 75
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitLeft = 10
ExplicitTop = 10
ExplicitWidth = 450
inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 450
ExplicitHeight = 75
inherited dxLayoutControl1: TdxLayoutControl
Width = 795
Align = alLeft
ExplicitWidth = 795
ExplicitHeight = 75
inherited TBXMultiDockIzquierdo: TTBXMultiDock
Height = 393
ExplicitHeight = 393
end
inherited TBXMultiDockDerecho: TTBXMultiDock
Left = 703
Width = 192
Height = 393
ExplicitLeft = 703
ExplicitWidth = 192
ExplicitHeight = 393
inherited pnlParametros: TTBXDockablePanel
DockedWidth = 188
ExplicitWidth = 192
ExplicitHeight = 377
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
Left = 0
Top = 0
Width = 188
Height = 136
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 223
ExplicitHeight = 136
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 182
ExplicitWidth = 217
inherited cbPeriodo: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 188
Width = 153
end
inherited edtFechaIni: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182
ExplicitWidth = 217
inherited Label3: TLabel
Width = 172
end
inherited edtFechaFin: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.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
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

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

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

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

@ -60,34 +60,40 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
ExplicitLeft = 10
ExplicitTop = 10
ExplicitWidth = 450
inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 450
ExplicitHeight = 75
inherited dxLayoutControl1: TdxLayoutControl
Width = 795
Align = alLeft
ExplicitWidth = 795
ExplicitHeight = 75
inherited cbPeriodo: TcxComboBox
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
ExplicitHeight = 75
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 444
ExplicitWidth = 444
inherited cbPeriodo: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
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
inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 466
@ -105,10 +111,15 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
ReadOnly = False
ExplicitLeft = 466
ExplicitTop = 10
ExplicitWidth = 318
ExplicitHeight = 70
inherited dxLayoutControl1: TdxLayoutControl
Height = 70
ExplicitHeight = 70
inherited TBXLabel2: TTBXLabel
Width = 318
ExplicitWidth = 318
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 312
ExplicitWidth = 312
inherited eImporte: TcxSpinEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
@ -135,37 +146,15 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
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
inherited TBXLabel2: TTBXLabel
Width = 795
ExplicitWidth = 795
end
inherited GroupBox1: TGroupBox
Width = 795
ExplicitWidth = 795
inherited cxDBTextEdit1: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
end
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,
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
JvExControls, JvNavigationPane, uIEditorInformeIVAClientesReport, uCustomView,
uViewBase, uViewPeriodoFechas, uViewDatosYSeleccionClienteBase,
uViewBase, uViewPeriodoFechas,
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf;
FactuGES_Intf, uViewParametrosInforme;
type
TfEditorInformeIVAClientesReport = class(TfEditorPreview, IEditorInformeIVAClientesReport)
@ -69,22 +69,22 @@ constructor TfEditorInformeIVAClientesReport.Create(AOwner: TComponent);
begin
inherited;
FListaIDClientes := TIntegerArray.Create;
frViewFiltroClientes1.OnClienteChanged := OnClienteChanged;
// frViewFiltroClientes1.OnClienteChanged := OnClienteChanged;
end;
destructor TfEditorInformeIVAClientesReport.Destroy;
begin
FListaIDClientes.Free;
frViewFiltroClientes1.OnClienteChanged := Nil;
// frViewFiltroClientes1.OnClienteChanged := Nil;
inherited;
end;
function TfEditorInformeIVAClientesReport.GetDesglosadoCliente: Boolean;
begin
if frViewFiltroClientes1.cbxDesglosado.Enabled then
{ if frViewFiltroClientes1.cbxDesglosado.Enabled then
Result := frViewFiltroClientes1.cbxDesglosado.Checked
else
Result := False;
Result := False;}
end;
function TfEditorInformeIVAClientesReport.GetFechaFin: TDateTime;
@ -113,8 +113,8 @@ end;
procedure TfEditorInformeIVAClientesReport.OnClienteChanged(Sender: TObject);
begin
FListaIDClientes.Clear;
if Assigned(frViewFiltroClientes1.Cliente) then
FListaIDClientes.Add(frViewFiltroClientes1.Cliente.ID);
{ if Assigned(frViewFiltroClientes1.Cliente) then
FListaIDClientes.Add(frViewFiltroClientes1.Cliente.ID);}
end;
procedure TfEditorInformeIVAClientesReport.RefrescarInforme;

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

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

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

@ -1,177 +1,127 @@
inherited frViewFiltroClientes: TfrViewFiltroClientes
Width = 694
Height = 184
ExplicitWidth = 694
ExplicitHeight = 184
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]
Width = 188
Align = alTop
ExplicitWidth = 188
object TBXLabel2: TTBXLabel
Left = 0
Top = 0
Width = 694
Height = 94
Width = 188
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.Top = 0
Margins.Right = 0
Margins.Right = 2
Margins.Bottom = 0
Align = alTop
Caption = 'Elija una de las siguientes opciones para generar el listado'
Caption = 'Elegir un cliente'
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
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
inherited dsCliente: TDADataSource
Left = 112
Top = 40
object cxDBTextEdit1: TcxDBTextEdit
Left = 23
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
inherited ActionList1: TActionList
Left = 80
Top = 40
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
object rd1: TRadioButton
Left = 6
Top = 29
Width = 147
Height = 17
Caption = 'Incluir a todos los clientes'
Checked = True
TabOrder = 4
TabStop = True
OnClick = rd1Click
end
inherited PngImageList: TPngImageList
Left = 144
Top = 40
object rd2: TRadioButton
Left = 6
Top = 76
Width = 175
Height = 17
Caption = 'S'#243'lo listar el cliente siguiente:'
TabOrder = 5
OnClick = rd2Click
end
end

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

@ -4,47 +4,51 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewDatosYSeleccionClienteBase, ImgList, PngImageList, ActnList, DB,
uDAInterfaces, uDADataTable, StdCtrls, Buttons, ExtCtrls, dxLayoutControl,
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit;
Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
StdCtrls, Buttons, TBXDkPanels, uViewParametrosInforme;
type
TfrViewFiltroClientes = class(TfrViewDatosYSeleccionClienteBase)
dxLayoutControl1Item1: TdxLayoutItem;
edtlNombre: TcxDBTextEdit;
dxLayoutControl1Item2: TdxLayoutItem;
edtNIFCIF: TcxDBTextEdit;
GroupBox1: TGroupBox;
IViewFiltroClientes = interface(IViewParametrosInforme)
['{129906DA-8E64-4312-8095-A04F8007CF7F}']
end;
TfrViewFiltroClientes = class(TfrViewParametrosInforme, IViewFiltroClientes)
TBXLabel2: TTBXLabel;
rd1: TRadioButton;
rd2: TRadioButton;
cbxDesglosado: TCheckBox;
BitBtn1: TBitBtn;
cxDBTextEdit1: TcxDBTextEdit;
procedure rd1Click(Sender: TObject);
procedure rd2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
{$R *.dfm}
procedure TfrViewFiltroClientes.rd1Click(Sender: TObject);
begin
inherited;
if rd1.Checked then
begin
cbxDesglosado.Enabled := True;
actElegirContacto.Enabled := False;
{ actElegirContacto.Enabled := False;
actVerContacto.Enabled := False;
Cliente := Nil;
Cliente := Nil;}
end;
end;
procedure TfrViewFiltroClientes.rd2Click(Sender: TObject);
begin
inherited;
if rd2.Checked then
begin
cbxDesglosado.Enabled := False;
actElegirContacto.Enabled := True;
actVerContacto.Enabled := True;
{ actElegirContacto.Enabled := True;
actVerContacto.Enabled := True;}
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
Width = 318
Height = 44
ExplicitWidth = 318
ExplicitHeight = 44
object dxLayoutControl1: TdxLayoutControl
Width = 181
Height = 93
Align = alTop
ExplicitWidth = 451
ExplicitHeight = 93
object TBXLabel2: TTBXLabel
Left = 0
Top = 0
Width = 318
Height = 44
Align = alClient
TabOrder = 0
TabStop = False
Width = 181
Height = 29
Margins.Top = 5
Margins.Bottom = 10
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
Left = 10
Top = 10
Left = 7
Top = 0
Width = 159
Height = 17
Caption = 'Solo facturas que superen:'
@ -23,8 +47,8 @@ inherited frViewFiltroImportes: TfrViewFiltroImportes
OnClick = CheckBox1Click
end
object eImporte: TcxSpinEdit
Left = 175
Top = 10
Left = 24
Top = 21
Enabled = False
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = ',0.00 '#8364';-,0.00 '#8364
@ -40,24 +64,8 @@ inherited frViewFiltroImportes: TfrViewFiltroImportes
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1
Width = 121
end
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
Value = 3000.000000000000000000
Width = 142
end
end
end

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

@ -5,16 +5,18 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxSpinEdit,
dxLayoutControl, StdCtrls, cxControls;
dxLayoutControl, StdCtrls, cxControls, TBXDkPanels, uViewParametrosInforme;
type
TfrViewFiltroImportes = class(TfrViewBase)
dxLayoutControl1Group_Root: TdxLayoutGroup;
dxLayoutControl1: TdxLayoutControl;
IViewFiltroImportes = interface(IViewParametrosInforme)
['{AE773F0B-E72A-4A71-9C5C-8E68EC61456A}']
end;
TfrViewFiltroImportes = class(TfrViewParametrosInforme, IViewFiltroImportes)
CheckBox1: TCheckBox;
dxLayoutControl1Item1: TdxLayoutItem;
eImporte: TcxSpinEdit;
dxLayoutControl1Item2: TdxLayoutItem;
TBXLabel2: TTBXLabel;
TBXAlignmentPanel1: TTBXAlignmentPanel;
procedure CheckBox1Click(Sender: TObject);
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
Width = 769
Height = 75
ExplicitWidth = 769
ExplicitHeight = 75
object TBXDockablePanel1: TTBXDockablePanel
Left = 0
Top = 0
Align = alClient
Caption = 'TBXDockablePanel1'
FloatingWidth = 128
FloatingHeight = 128
SupportedDocks = [dkStandardDock, dkMultiDock]
Width = 451
Height = 177
Align = alTop
ExplicitWidth = 451
ExplicitHeight = 177
object TBXAlignmentPanel1: TTBXAlignmentPanel
AlignWithMargins = True
Left = 3
Top = 32
Width = 445
Height = 21
Margins.Left = 5
Margins.Right = 5
Align = alTop
AutoSize = True
TabOrder = 0
object dxLayoutControl1: TdxLayoutControl
Left = 0
DesignSize = (
445
21)
object cbPeriodo: TcxComboBox
Left = 16
Top = 0
Width = 769
Height = 75
Align = alClient
ParentBackground = True
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 = 0
TabStop = False
LookAndFeel = dxLayoutStandardLookAndFeel1
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
Text = 'Este mes'
Width = 416
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
Left = 184
Top = 32
Left = 32
Top = 24
object cxRepositoryPeriodos: TcxEditRepositoryComboBoxItem
Properties.BeepOnError = True
Properties.DropDownListStyle = lsFixedList
@ -162,10 +189,4 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
Properties.ReadOnly = False
end
end
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
Left = 136
Top = 16
object dxLayoutStandardLookAndFeel1: TdxLayoutStandardLookAndFeel
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,
cxControls, cxContainer, cxTextEdit, cxMaskEdit, TBXDkPanels,
cxEditRepositoryItems, dxLayoutControl, dxLayoutLookAndFeels, uViewBase,
Mask, JvExMask, JvToolEdit, TB2Dock;
Mask, JvExMask, JvToolEdit, TB2Dock, uViewParametrosInforme;
type
IViewPeriodoFechas = interface
IViewPeriodoFechas = interface(IViewParametrosInforme)
['{793084E2-873E-4C57-8BD6-9087816CCF3A}']
end;
TfrViewPeriodoFechas = class(TfrViewBase, IViewPeriodoFechas)
TfrViewPeriodoFechas = class(TfrViewParametrosInforme, 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;
TBXLabel2: TTBXLabel;
TBXAlignmentPanel1: TTBXAlignmentPanel;
TBXAlignmentPanel2: TTBXAlignmentPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure cbPeriodoPropertiesChange(Sender: TObject);
procedure edtFechaIni2PropertiesValidate(Sender: TObject;
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
VALUE "FileVersion", "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
BLOCK "VarFileInfo"