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@704 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-10-20 10:27:58 +00:00
parent 5a5303568f
commit 075b96ade5
17 changed files with 232 additions and 136 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Source/Cliente/uPantallaPrincipal.dfm
View File

@ -302,6 +302,12 @@ object fPantallaPrincipal: TfPantallaPrincipal
Caption = 'Empresa' Caption = 'Empresa'
OnUpdate = actMenuComprasUpdate OnUpdate = actMenuComprasUpdate
end end
object actMenuInformes: TAction
Category = 'Menus'
Caption = 'Informes'
OnExecute = actMenuInformesExecute
OnUpdate = actMenuComprasUpdate
end
end end
object ModulesSmallImageList: TPngImageList object ModulesSmallImageList: TPngImageList
PngImages = < PngImages = <
@ -648,6 +654,10 @@ object fPantallaPrincipal: TfPantallaPrincipal
Caption = '-' Caption = '-'
end end
end end
object Informes1: TMenuItem
Tag = 6000
Caption = 'Informes'
end
end end
object JvXPMenuItemPainter1: TJvXPMenuItemPainter object JvXPMenuItemPainter1: TJvXPMenuItemPainter
SelectionFrameBrush.Color = 13811126 SelectionFrameBrush.Color = 13811126

8
Source/Cliente/uPantallaPrincipal.pas
View File

@ -89,6 +89,8 @@ type
N9: TMenuItem; N9: TMenuItem;
N10: TMenuItem; N10: TMenuItem;
actMenuEmpresa: TAction; actMenuEmpresa: TAction;
Informes1: TMenuItem;
actMenuInformes: TAction;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure Salir1Click(Sender: TObject); procedure Salir1Click(Sender: TObject);
procedure actSalirExecute(Sender: TObject); procedure actSalirExecute(Sender: TObject);
@ -113,6 +115,7 @@ type
procedure Perfiles1Click(Sender: TObject); procedure Perfiles1Click(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure actMenuInformesExecute(Sender: TObject);
private private
FContenido : TCustomEditor; FContenido : TCustomEditor;
procedure ShowEmbedded(AEditor : ICustomEditor); procedure ShowEmbedded(AEditor : ICustomEditor);
@ -362,6 +365,11 @@ begin
(Sender as TAction).Enabled := Assigned(AppFactuGES.EmpresaActiva); (Sender as TAction).Enabled := Assigned(AppFactuGES.EmpresaActiva);
end; end;
procedure TfPantallaPrincipal.actMenuInformesExecute(Sender: TObject);
begin
//
end;
procedure TfPantallaPrincipal.actMenuLogisticaExecute(Sender: TObject); procedure TfPantallaPrincipal.actMenuLogisticaExecute(Sender: TObject);
begin begin
// //

2
Source/GUIBase/uEditorPreview.dfm
View File

@ -6,7 +6,7 @@ inherited fEditorPreview: TfEditorPreview
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnResize = FormResize OnResize = FormResize
ExplicitWidth = 803 ExplicitWidth = 803
ExplicitHeight = 485 ExplicitHeight = 492
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader

8
Source/GUIBase/uEditorPreview.pas
View File

@ -382,14 +382,14 @@ end;
procedure TfEditorPreview.actToolHandExecute(Sender: TObject); procedure TfEditorPreview.actToolHandExecute(Sender: TObject);
begin begin
if tbxMano.Checked then actToolHand.Checked := True;
FPreview.Preview.Tool := ptHand FPreview.Preview.Tool := ptHand
end; end;
procedure TfEditorPreview.actToolZoomExecute(Sender: TObject); procedure TfEditorPreview.actToolZoomExecute(Sender: TObject);
begin begin
if tbxZoom.Checked then actToolZoom.Checked := True;
FPreview.Preview.Tool := ptZoom; FPreview.Preview.Tool := ptZoom;
end; end;
procedure TfEditorPreview.OnPageChanged(Sender: TfrxPreview; procedure TfEditorPreview.OnPageChanged(Sender: TfrxPreview;

16
Source/Modulos/Gestor de informes/GestorInformes_Group.groupproj
View File

@ -9,6 +9,7 @@
<Projects Include="..\..\Cliente\FactuGES.dproj" /> <Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" /> <Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" /> <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Contactos\Model\Contactos_model.dproj" />
<Projects Include="Controller\GestorInformes_controller.dproj" /> <Projects Include="Controller\GestorInformes_controller.dproj" />
<Projects Include="Data\GestorInformes_data.dproj" /> <Projects Include="Data\GestorInformes_data.dproj" />
<Projects Include="Model\GestorInformes_model.dproj" /> <Projects Include="Model\GestorInformes_model.dproj" />
@ -48,6 +49,15 @@
<Target Name="ApplicationBase:Make"> <Target Name="ApplicationBase:Make">
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Make" /> <MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Contactos_model">
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="" />
</Target>
<Target Name="Contactos_model:Clean">
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_model:Make">
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="Make" />
</Target>
<Target Name="GestorInformes_model"> <Target Name="GestorInformes_model">
<MSBuild Projects="Model\GestorInformes_model.dproj" Targets="" /> <MSBuild Projects="Model\GestorInformes_model.dproj" Targets="" />
</Target> </Target>
@ -112,13 +122,13 @@
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" /> <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;GestorInformes_model;GestorInformes_data;GestorInformes_controller;GestorInformes_view;GestorInformes_plugin;FactuGES;FactuGES_Server" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;GestorInformes_model;GestorInformes_data;GestorInformes_controller;GestorInformes_view;GestorInformes_plugin;FactuGES;FactuGES_Server" />
</Target> </Target>
<Target Name="Clean"> <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" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;GestorInformes_view:Clean;GestorInformes_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;GestorInformes_view:Make;GestorInformes_plugin:Make;FactuGES:Make;FactuGES_Server:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;GestorInformes_view:Make;GestorInformes_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

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

@ -38,28 +38,11 @@
<DelphiCompile Include="GestorInformes_plugin.dpk"> <DelphiCompile Include="GestorInformes_plugin.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Controller\View\ApplicationBase.dcp" /> <DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Controller\View\BaApplicationBase.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\Controller\View\BApplicationBase.dcp" /> <DCCReference Include="..\GestorInformes_controller.dcp" />
<DCCReference Include="..\Controller\View\BasApplicationBase.dcp" /> <DCCReference Include="..\GestorInformes_view.dcp" />
<DCCReference Include="..\Controller\View\Base.dcp" /> <DCCReference Include="..\GUIBase.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" /> <DCCReference Include="uPluginGestorInformes.pas" />
</ItemGroup> </ItemGroup>
</Project> </Project>

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

Binary file not shown.

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

@ -25,20 +25,21 @@ package GestorInformes_view;
{$IMPLICITBUILD OFF} {$IMPLICITBUILD OFF}
requires requires
rtl,
vcl,
Base, Base,
GUIBase, GUIBase,
ApplicationBase, ApplicationBase,
Contactos_view, Contactos_view,
GestorInformes_controller, GestorInformes_controller,
rtl, Contactos_model,
vcl; Contactos_controller;
contains contains
uGestorInformesViewRegister in 'uGestorInformesViewRegister.pas', uGestorInformesViewRegister in 'uGestorInformesViewRegister.pas',
uEditorInformeIVAClientesReport in 'uEditorInformeIVAClientesReport.pas' {fEditorInformeIVAClientesReport: TfEditorElegirFacturasCliente}, uEditorInformeIVAClientesReport in 'uEditorInformeIVAClientesReport.pas' {fEditorInformeIVAClientesReport: TfEditorElegirFacturasCliente},
uViewPeriodoFechas in 'uViewPeriodoFechas.pas' {frViewPeriodoFechas: TFrame}, uViewPeriodoFechas in 'uViewPeriodoFechas.pas' {frViewPeriodoFechas: TFrame},
uViewFiltroImportes in 'uViewFiltroImportes.pas' {frViewFiltroImportes: TFrame}, uViewFiltroImportes in 'uViewFiltroImportes.pas' {frViewFiltroImportes: TFrame},
uViewFiltroClientes_anterior in 'uViewFiltroClientes_anterior.pas' {frViewFiltroClientes_anterior: TFrame},
uEditorInformeFacturasClienteReport in 'uEditorInformeFacturasClienteReport.pas' {TfEditorInformeFacturasClienteReport: TForm}, uEditorInformeFacturasClienteReport in 'uEditorInformeFacturasClienteReport.pas' {TfEditorInformeFacturasClienteReport: TForm},
uEditorInformeBase in 'uEditorInformeBase.pas' {fEditorInformeBase: TForm}, uEditorInformeBase in 'uEditorInformeBase.pas' {fEditorInformeBase: TForm},
uViewFiltroClientes in 'uViewFiltroClientes.pas' {frViewFiltroClientes: TFrame}, uViewFiltroClientes in 'uViewFiltroClientes.pas' {frViewFiltroClientes: TFrame},

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

@ -38,16 +38,18 @@
<DelphiCompile Include="GestorInformes_view.dpk"> <DelphiCompile Include="GestorInformes_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" /> <DCCReference Include="..\..\Contactos\Model\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="..\..\Contactos\Model\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" /> <DCCReference Include="..\..\Contactos\Model\Contactos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GestorInformes_controller.dcp" /> <DCCReference Include="..\..\Contactos\Model\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" /> <DCCReference Include="..\..\Contactos\Model\Contactos_view.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="..\..\Contactos\Model\GestorInformes_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="..\..\Contactos\Model\GUIBase.dcp" />
<DCCReference Include="..\..\Contactos\Model\rtl.dcp" />
<DCCReference Include="..\..\Contactos\Model\vcl.dcp" />
<DCCReference Include="uEditorInformeBase.pas"> <DCCReference Include="uEditorInformeBase.pas">
<DesignClass>T</DesignClass>
<Form>fEditorInformeBase</Form> <Form>fEditorInformeBase</Form>
<DesignClass>TForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorInformeFacturasClienteReport.pas"> <DCCReference Include="uEditorInformeFacturasClienteReport.pas">
<Form>TfEditorInformeFacturasClienteReport</Form> <Form>TfEditorInformeFacturasClienteReport</Form>
@ -60,10 +62,6 @@
<DCCReference Include="uGestorInformesViewRegister.pas" /> <DCCReference Include="uGestorInformesViewRegister.pas" />
<DCCReference Include="uViewFiltroClientes.pas"> <DCCReference Include="uViewFiltroClientes.pas">
<Form>frViewFiltroClientes</Form> <Form>frViewFiltroClientes</Form>
<DesignClass>T</DesignClass>
</DCCReference>
<DCCReference Include="uViewFiltroClientes_anterior.pas">
<Form>frViewFiltroClientes_anterior</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewFiltroImportes.pas"> <DCCReference Include="uViewFiltroImportes.pas">

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

Binary file not shown.

11
Source/Modulos/Gestor de informes/Views/uEditorInformeBase.dfm
View File

@ -44,6 +44,8 @@ inherited fEditorInformeBase: TfEditorInformeBase
Left = 0 Left = 0
Top = 0 Top = 0
Caption = 'Par'#225'metros' Caption = 'Par'#225'metros'
CloseButton = False
CloseButtonWhenDocked = False
DefaultDock = TBXMultiDockDerecho DefaultDock = TBXMultiDockDerecho
DockableTo = [dpLeft, dpRight] DockableTo = [dpLeft, dpRight]
DockedWidth = 150 DockedWidth = 150
@ -55,20 +57,23 @@ inherited fEditorInformeBase: TfEditorInformeBase
TabOrder = 0 TabOrder = 0
object TBXDockablePanel1: TTBXDockablePanel object TBXDockablePanel1: TTBXDockablePanel
Left = 0 Left = 0
Top = 280 Top = 279
MaxClientHeight = 50
Align = alBottom Align = alBottom
Caption = 'TBXDockablePanel1' Caption = 'TBXDockablePanel1'
FloatingWidth = 128 FloatingWidth = 128
FloatingHeight = 128 FloatingHeight = 128
SupportedDocks = [dkStandardDock, dkMultiDock] SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 0 TabOrder = 0
ExplicitTop = 196
object TBXButton1: TTBXButton object TBXButton1: TTBXButton
Left = 16 Left = 16
Top = 12 Top = 12
Width = 121 Width = 121
Height = 21 Height = 24
Action = actRefrescar Action = actRefrescar
ImageIndex = 0 ImageIndex = 9
Images = SmallImages
TabOrder = 0 TabOrder = 0
end end
end end

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

@ -1,9 +1,9 @@
inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteReport inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteReport
Caption = 'fEditorInformeFacturasClienteReport' Caption = 'fEditorInformeFacturasClienteReport'
ClientHeight = 514 ClientHeight = 655
ClientWidth = 895 ClientWidth = 895
ExplicitWidth = 903 ExplicitWidth = 903
ExplicitHeight = 548 ExplicitHeight = 689
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -30,26 +30,26 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 495 Top = 636
Width = 895 Width = 895
ExplicitTop = 495 ExplicitTop = 554
ExplicitWidth = 895 ExplicitWidth = 895
end end
inherited TBXMultiDockIzquierdo: TTBXMultiDock inherited TBXMultiDockIzquierdo: TTBXMultiDock
Height = 393 Height = 534
ExplicitHeight = 393 ExplicitHeight = 452
end end
inherited TBXMultiDockDerecho: TTBXMultiDock inherited TBXMultiDockDerecho: TTBXMultiDock
Left = 703 Left = 703
Width = 192 Width = 192
Height = 393 Height = 534
ExplicitLeft = 703 ExplicitLeft = 703
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 393 ExplicitHeight = 452
inherited pnlParametros: TTBXDockablePanel inherited pnlParametros: TTBXDockablePanel
DockedWidth = 188 DockedWidth = 188
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 377 ExplicitHeight = 518
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0] inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
Left = 0 Left = 0
Top = 0 Top = 0
@ -64,23 +64,23 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 223 ExplicitWidth = 188
ExplicitHeight = 136 ExplicitHeight = 136
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 182 Width = 182
ExplicitWidth = 217 ExplicitWidth = 182
inherited cbPeriodo: TcxComboBox inherited cbPeriodo: TcxComboBox
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 188 ExplicitWidth = 153
Width = 153 Width = 153
end end
end end
inherited TBXAlignmentPanel2: TTBXAlignmentPanel inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182 Width = 182
ExplicitWidth = 217 ExplicitWidth = 182
inherited Label3: TLabel inherited Label3: TLabel
Width = 172 Width = 172
end end
@ -89,7 +89,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 134 ExplicitWidth = 99
Width = 99 Width = 99
end end
inherited edtFechaIni: TcxDateEdit inherited edtFechaIni: TcxDateEdit
@ -97,21 +97,37 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 132 ExplicitWidth = 97
Width = 97 Width = 97
end end
end end
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel
Width = 188 Width = 188
ExplicitWidth = 223 ExplicitWidth = 188
end end
end end
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
Top = 227 Top = 448
TabOrder = 2 TabOrder = 2
ExplicitTop = 227 ExplicitTop = 366
ExplicitWidth = 223 ExplicitWidth = 188
ExplicitHeight = 128 ExplicitHeight = 48
inherited TBXButton1: TTBXButton
AlignWithMargins = True
Left = 3
Top = 3
Width = 182
Height = 37
Margins.Left = 8
Margins.Top = 8
Margins.Right = 8
Margins.Bottom = 8
Align = alTop
ExplicitLeft = 3
ExplicitTop = 3
ExplicitWidth = 182
ExplicitHeight = 37
end
end end
inline frViewFiltroImportes1: TfrViewFiltroImportes inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 0 Left = 0
@ -129,15 +145,15 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitTop = 136 ExplicitTop = 136
ExplicitWidth = 223 ExplicitWidth = 188
ExplicitHeight = 77 ExplicitHeight = 77
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel
Width = 188 Width = 188
ExplicitWidth = 223 ExplicitWidth = 188
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 182 Width = 182
ExplicitWidth = 217 ExplicitWidth = 182
inherited eImporte: TcxSpinEdit inherited eImporte: TcxSpinEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -146,6 +162,30 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
end end
end end
end end
inline frViewFiltroClientes1: TfrViewFiltroClientes
Left = 0
Top = 213
Width = 188
Height = 195
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 3
ReadOnly = False
inherited TBXLabel2: TTBXLabel
Width = 188
end
inherited edtCliente: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
end
end end
end end
end end

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

@ -21,6 +21,7 @@ type
TBXItem58: TTBXItem; TBXItem58: TTBXItem;
frViewPeriodoFechas1: TfrViewPeriodoFechas; frViewPeriodoFechas1: TfrViewPeriodoFechas;
frViewFiltroImportes1: TfrViewFiltroImportes; frViewFiltroImportes1: TfrViewFiltroImportes;
frViewFiltroClientes1: TfrViewFiltroClientes;
procedure actRefrescarExecute(Sender: TObject); procedure actRefrescarExecute(Sender: TObject);
private private
FListaIDClientes: TIntegerArray; FListaIDClientes: TIntegerArray;
@ -29,7 +30,6 @@ type
function GetListaIDClientes: TIntegerArray; function GetListaIDClientes: TIntegerArray;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
function GetDesglosadoCliente: Boolean; function GetDesglosadoCliente: Boolean;
procedure OnClienteChanged(Sender: TObject);
procedure RefrescarInforme; procedure RefrescarInforme;
@ -38,7 +38,7 @@ type
property FechaFin: TDateTime read GetFechaFin; property FechaFin: TDateTime read GetFechaFin;
property ListaIDClientes: TIntegerArray read GetListaIDClientes; property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente; property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property ImporteMinimo: Currency read getImporteMinimo; property ImporteMinimo: Currency read GetImporteMinimo;
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -63,22 +63,20 @@ constructor TfEditorInformeFacturasClienteReport.Create(AOwner: TComponent);
begin begin
inherited; inherited;
FListaIDClientes := TIntegerArray.Create; FListaIDClientes := TIntegerArray.Create;
//frViewFiltroClientes1.OnClienteChanged := OnClienteChanged;
end; end;
destructor TfEditorInformeFacturasClienteReport.Destroy; destructor TfEditorInformeFacturasClienteReport.Destroy;
begin begin
FListaIDClientes.Free; FListaIDClientes.Free;
//frViewFiltroClientes1.OnClienteChanged := Nil;
inherited; inherited;
end; end;
function TfEditorInformeFacturasClienteReport.GetDesglosadoCliente: Boolean; function TfEditorInformeFacturasClienteReport.GetDesglosadoCliente: Boolean;
begin begin
{ if frViewFiltroClientes1.cbxDesglosado.Enabled then if frViewFiltroImportes1.cbxDesglosado.Enabled then
Result := frViewFiltroClientes1.cbxDesglosado.Checked Result := frViewFiltroClientes1.cbxDesglosado.Checked
else else
Result := False;} Result := False;
end; end;
function TfEditorInformeFacturasClienteReport.GetFechaFin: TDateTime; function TfEditorInformeFacturasClienteReport.GetFechaFin: TDateTime;
@ -100,27 +98,33 @@ begin
end; end;
function TfEditorInformeFacturasClienteReport.GetListaIDClientes: TIntegerArray; function TfEditorInformeFacturasClienteReport.GetListaIDClientes: TIntegerArray;
begin
Result := FListaIDClientes;
end;
procedure TfEditorInformeFacturasClienteReport.OnClienteChanged(Sender: TObject);
begin begin
FListaIDClientes.Clear; FListaIDClientes.Clear;
{ if Assigned(frViewFiltroClientes1.Cliente) then if Assigned(frViewFiltroClientes1.Cliente) then
FListaIDClientes.Add(frViewFiltroClientes1.Cliente.ID);} FListaIDClientes.Add(frViewFiltroClientes1.Cliente.ID);
Result := FListaIDClientes;
end; end;
procedure TfEditorInformeFacturasClienteReport.RefrescarInforme; procedure TfEditorInformeFacturasClienteReport.RefrescarInforme;
var var
AStream: Binary; AStream: Binary;
begin begin
ShowHourglassCursor;
try try
AStream := (Controller as IGestorInformesController).DataModule.GetInformeIVAClientes(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo); AStream := (Controller as IGestorInformesController).DataModule.GetInformeIVAClientes(
AppFactuGES.EmpresaActiva.ID,
FechaInicio,
FechaFin,
ListaIDClientes,
DesglosadoCliente,
ImporteMinimo);
LoadFromStream(AStream); LoadFromStream(AStream);
Report.ShowPreparedReport; Report.ShowPreparedReport;
finally finally
FreeAndNil(AStream); FreeAndNil(AStream);
HideHourglassCursor;
end; end;
end; end;

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

@ -1,11 +1,13 @@
inherited frViewFiltroClientes: TfrViewFiltroClientes inherited frViewFiltroClientes: TfrViewFiltroClientes
Width = 188 Width = 184
Align = alTop Align = alTop
ExplicitWidth = 188 OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
ExplicitWidth = 451
object TBXLabel2: TTBXLabel object TBXLabel2: TTBXLabel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 188 Width = 184
Height = 29 Height = 29
Margins.Top = 5 Margins.Top = 5
Margins.Bottom = 10 Margins.Bottom = 10
@ -21,7 +23,7 @@ inherited frViewFiltroClientes: TfrViewFiltroClientes
Underline = True Underline = True
ExplicitWidth = 451 ExplicitWidth = 451
end end
object BitBtn1: TBitBtn object bElegirCliente: TBitBtn
AlignWithMargins = True AlignWithMargins = True
Left = 61 Left = 61
Top = 123 Top = 123
@ -31,8 +33,11 @@ inherited frViewFiltroClientes: TfrViewFiltroClientes
Margins.Top = 0 Margins.Top = 0
Margins.Right = 2 Margins.Right = 2
Margins.Bottom = 0 Margins.Bottom = 0
Anchors = [akLeft, akTop, akRight]
Caption = 'Elegir un cliente' Caption = 'Elegir un cliente'
Enabled = False
TabOrder = 1 TabOrder = 1
OnClick = bElegirClienteClick
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000000000000000000000000000000000000FF00FF00FF00 2000000000000004000000000000000000000000000000000000FF00FF00FF00
@ -79,13 +84,12 @@ inherited frViewFiltroClientes: TfrViewFiltroClientes
State = cbChecked State = cbChecked
TabOrder = 2 TabOrder = 2
end end
object cxDBTextEdit1: TcxDBTextEdit object edtCliente: TcxTextEdit
Left = 23 Left = 28
Top = 99 Top = 99
Anchors = [akLeft, akTop, akRight]
AutoSize = False AutoSize = False
DataBinding.DataField = 'NOMBRE'
Enabled = False Enabled = False
ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -102,9 +106,9 @@ inherited frViewFiltroClientes: TfrViewFiltroClientes
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3 TabOrder = 3
Height = 21 Height = 21
Width = 153 Width = 148
end end
object rd1: TRadioButton object rbTodosClientes: TRadioButton
Left = 6 Left = 6
Top = 29 Top = 29
Width = 147 Width = 147
@ -113,15 +117,15 @@ inherited frViewFiltroClientes: TfrViewFiltroClientes
Checked = True Checked = True
TabOrder = 4 TabOrder = 4
TabStop = True TabStop = True
OnClick = rd1Click OnClick = rbTodosClientesClick
end end
object rd2: TRadioButton object rbUnCliente: TRadioButton
Left = 6 Left = 6
Top = 76 Top = 76
Width = 175 Width = 175
Height = 17 Height = 17
Caption = 'S'#243'lo listar el cliente siguiente:' Caption = 'S'#243'lo listar el cliente siguiente:'
TabOrder = 5 TabOrder = 5
OnClick = rd2Click OnClick = rbUnClienteClick
end end
end end

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

@ -5,7 +5,8 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
StdCtrls, Buttons, TBXDkPanels, uViewParametrosInforme; StdCtrls, Buttons, TBXDkPanels, uViewParametrosInforme, uBizContactos,
uClientesController;
type type
IViewFiltroClientes = interface(IViewParametrosInforme) IViewFiltroClientes = interface(IViewParametrosInforme)
@ -14,41 +15,78 @@ type
TfrViewFiltroClientes = class(TfrViewParametrosInforme, IViewFiltroClientes) TfrViewFiltroClientes = class(TfrViewParametrosInforme, IViewFiltroClientes)
TBXLabel2: TTBXLabel; TBXLabel2: TTBXLabel;
rd1: TRadioButton; rbTodosClientes: TRadioButton;
rd2: TRadioButton; rbUnCliente: TRadioButton;
cbxDesglosado: TCheckBox; cbxDesglosado: TCheckBox;
BitBtn1: TBitBtn; bElegirCliente: TBitBtn;
cxDBTextEdit1: TcxDBTextEdit; edtCliente: TcxTextEdit;
procedure rd1Click(Sender: TObject); procedure rbTodosClientesClick(Sender: TObject);
procedure rd2Click(Sender: TObject); procedure rbUnClienteClick(Sender: TObject);
procedure CustomViewCreate(Sender: TObject);
procedure bElegirClienteClick(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
private private
{ Private declarations } FCliente : IBizCliente;
FClientesController : IClientesController;
public public
{ Public declarations } property Cliente : IBizCliente read FCliente;
end; end;
implementation implementation
{$R *.dfm} {$R *.dfm}
procedure TfrViewFiltroClientes.rd1Click(Sender: TObject); procedure TfrViewFiltroClientes.bElegirClienteClick(Sender: TObject);
var
AClientes : IBizCliente;
begin begin
if rd1.Checked then inherited;
begin AClientes := IBizCliente(FClientesController.BuscarTodos);
cbxDesglosado.Enabled := True; try
{ actElegirContacto.Enabled := False; FCliente := IBizCliente(FClientesController.ElegirContacto(AClientes, '', False));
actVerContacto.Enabled := False; if Assigned(FCliente) then
Cliente := Nil;} begin
FCliente.Open;
edtCliente.Text := FCliente.NOMBRE;
end;
finally
AClientes := NIL;
end; end;
end; end;
procedure TfrViewFiltroClientes.rd2Click(Sender: TObject); procedure TfrViewFiltroClientes.CustomViewCreate(Sender: TObject);
begin begin
if rd2.Checked then inherited;
FCliente := NIL;
FClientesController := NIL;
end;
procedure TfrViewFiltroClientes.CustomViewDestroy(Sender: TObject);
begin
inherited;
FCliente := NIL;
FClientesController := NIL;
end;
procedure TfrViewFiltroClientes.rbTodosClientesClick(Sender: TObject);
begin
if rbTodosClientes.Checked then
begin
cbxDesglosado.Enabled := True;
FCliente := NIL;
bElegirCliente.Enabled := False;
end;
end;
procedure TfrViewFiltroClientes.rbUnClienteClick(Sender: TObject);
begin
if rbUnCliente.Checked then
begin begin
cbxDesglosado.Enabled := False; cbxDesglosado.Enabled := False;
{ actElegirContacto.Enabled := True; bElegirCliente.Enabled := True;
actVerContacto.Enabled := True;}
if not Assigned(FClientesController) then
FClientesController := TClientesController.Create;
end; end;
end; end;

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

@ -1,5 +1,5 @@
inherited frViewFiltroImportes: TfrViewFiltroImportes inherited frViewFiltroImportes: TfrViewFiltroImportes
Width = 181 Width = 451
Height = 93 Height = 93
Align = alTop Align = alTop
ExplicitWidth = 451 ExplicitWidth = 451
@ -7,7 +7,7 @@ inherited frViewFiltroImportes: TfrViewFiltroImportes
object TBXLabel2: TTBXLabel object TBXLabel2: TTBXLabel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 181 Width = 451
Height = 29 Height = 29
Margins.Top = 5 Margins.Top = 5
Margins.Bottom = 10 Margins.Bottom = 10
@ -21,30 +21,28 @@ inherited frViewFiltroImportes: TfrViewFiltroImportes
ParentColor = True ParentColor = True
ParentFont = False ParentFont = False
Underline = True Underline = True
ExplicitWidth = 451
end end
object TBXAlignmentPanel1: TTBXAlignmentPanel object TBXAlignmentPanel1: TTBXAlignmentPanel
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 3
Top = 32 Top = 32
Width = 175 Width = 445
Height = 42 Height = 42
Margins.Left = 5 Margins.Left = 5
Margins.Right = 5 Margins.Right = 5
Align = alTop Align = alTop
AutoSize = True AutoSize = True
TabOrder = 1 TabOrder = 1
ExplicitWidth = 445 object cbxDesglosado: TCheckBox
object CheckBox1: TCheckBox
Left = 7 Left = 7
Top = 0 Top = 0
Width = 159 Width = 159
Height = 17 Height = 17
Caption = 'Solo facturas que superen:' Caption = 'Solo facturas que superen:'
Checked = True Color = clBtnFace
State = cbChecked ParentColor = False
TabOrder = 0 TabOrder = 0
OnClick = CheckBox1Click OnClick = cbxDesglosadoClick
end end
object eImporte: TcxSpinEdit object eImporte: TcxSpinEdit
Left = 24 Left = 24

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

@ -13,23 +13,20 @@ type
end; end;
TfrViewFiltroImportes = class(TfrViewParametrosInforme, IViewFiltroImportes) TfrViewFiltroImportes = class(TfrViewParametrosInforme, IViewFiltroImportes)
CheckBox1: TCheckBox; cbxDesglosado: TCheckBox;
eImporte: TcxSpinEdit; eImporte: TcxSpinEdit;
TBXLabel2: TTBXLabel; TBXLabel2: TTBXLabel;
TBXAlignmentPanel1: TTBXAlignmentPanel; TBXAlignmentPanel1: TTBXAlignmentPanel;
procedure CheckBox1Click(Sender: TObject); procedure cbxDesglosadoClick(Sender: TObject);
end; end;
implementation implementation
{$R *.dfm} {$R *.dfm}
procedure TfrViewFiltroImportes.CheckBox1Click(Sender: TObject); procedure TfrViewFiltroImportes.cbxDesglosadoClick(Sender: TObject);
begin begin
inherited; inherited;
if not CheckBox1.Checked then eImporte.Enabled := not eImporte.Enabled;
eImporte.Enabled := True
else
eImporte.Enabled := False;
end; end;
end. end.