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

Modulo nuevo para los informes estadisticos e informes que ya tenian anteriormente

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@690 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-10-16 08:24:10 +00:00
parent 88dd43d22a
commit b82450d674
15 changed files with 378 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

Binary file not shown.

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

@ -58,13 +58,19 @@ requires
DataAbstract_Core_D11,
dsnap,
adortl,
RemObjects_Core_D11;
RemObjects_Core_D11,
GUISDK_D11,
xmlrtl,
cfpack_d11,
designide,
ccpackD11;
contains
uGestorInformesViewRegister in 'uGestorInformesViewRegister.pas',
uEditorGestorInformesReport in 'uEditorGestorInformesReport.pas' {fEditorGestorInformesReport: TfEditorElegirFacturasCliente},
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 in 'uViewFiltroClientes.pas' {frViewFiltroClientes: TFrame},
uEditorInformeFacturasClienteReport in 'uEditorInformeFacturasClienteReport.pas' {fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteReport};
end.

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

@ -39,12 +39,15 @@
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="adortl.dcp" />
<DCCReference Include="ccpackD11.dcp" />
<DCCReference Include="cfpack_d11.dcp" />
<DCCReference Include="Contactos_view.dcp" />
<DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="designide.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="dxComnD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
@ -55,6 +58,7 @@
<DCCReference Include="fs11.dcp" />
<DCCReference Include="GestorInformes_controller.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="GUISDK_D11.dcp" />
<DCCReference Include="Jcl.dcp" />
<DCCReference Include="JclVcl.dcp" />
<DCCReference Include="JvCoreD11R.dcp" />
@ -67,8 +71,12 @@
<DCCReference Include="rtl.dcp" />
<DCCReference Include="tb2k_d10.dcp" />
<DCCReference Include="tbx_d10.dcp" />
<DCCReference Include="uEditorGestorInformesReport.pas">
<Form>fEditorGestorInformesReport</Form>
<DCCReference Include="uEditorInformeFacturasClienteReport.pas">
<Form>fEditorInformeFacturasClienteReport</Form>
<DesignClass>TfEditorElegirFacturasCliente</DesignClass>
</DCCReference>
<DCCReference Include="uEditorInformeIVAClientesReport.pas">
<Form>fEditorInformeIVAClientesReport</Form>
<DesignClass>TfEditorElegirFacturasCliente</DesignClass>
</DCCReference>
<DCCReference Include="uGestorInformesViewRegister.pas" />
@ -89,6 +97,7 @@
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="xmlrtl.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

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

Binary file not shown.

BIN
Source/Modulos/Gestor de informes/Views/uEditorGestorInformesReport.dcu
View File

Binary file not shown.

6
Source/Modulos/Gestor de informes/Views/uEditorGestorInformesReport.dfm → Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.dfm
View File

@ -1,5 +1,5 @@
inherited fEditorGestorInformesReport: TfEditorGestorInformesReport
Caption = 'fEditorGestorInformesReport'
inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteReport
Caption = 'fEditorInformeFacturasClienteReport'
ClientHeight = 790
ClientWidth = 895
ExplicitWidth = 903
@ -62,12 +62,10 @@ inherited fEditorGestorInformesReport: TfEditorGestorInformesReport
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 = ''

133
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.pas Normal file
View File

@ -0,0 +1,133 @@
unit uEditorInformeFacturasClienteReport;
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, uIEditorGestorInformesReport, uCustomView,
uViewBase, uViewPeriodoFechas, uViewDatosYSeleccionClienteBase,
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf;
type
TfEditorInformeFacturasClienteReport = class(TfEditorPreview, IEditorGestorInformesReport)
frViewPeriodoFechas1: TfrViewPeriodoFechas;
frViewFiltroClientes1: TfrViewFiltroClientes;
frViewFiltroImportes1: TfrViewFiltroImportes;
dxLayoutControl1Group_Root: TdxLayoutGroup;
dxLayoutControl1: TdxLayoutControl;
dxLayoutControl1Item1: TdxLayoutItem;
dxLayoutControl1Item2: TdxLayoutItem;
dxLayoutControl1Item3: TdxLayoutItem;
dxLayoutControl1Group1: TdxLayoutGroup;
TBXItem58: TTBXItem;
procedure actRefrescarExecute(Sender: TObject);
private
FListaIDClientes: TIntegerArray;
function GetFechaFin: TDateTime;
function GetFechaInicio: TDateTime;
function GetListaIDClientes: TIntegerArray;
function GetImporteMinimo: Currency;
function GetDesglosadoCliente: Boolean;
procedure OnClienteChanged(Sender: TObject);
procedure RefrescarInforme;
public
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;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
implementation
{$R *.dfm}
uses uROTypes, uGestorInformesController, uFactuGES_App;
{ TfEditorGestorInformesReport }
procedure TfEditorInformeFacturasClienteReport.actRefrescarExecute(Sender: TObject);
begin
inherited;
RefrescarInforme;
end;
constructor TfEditorInformeFacturasClienteReport.Create(AOwner: TComponent);
begin
inherited;
FListaIDClientes := TIntegerArray.Create;
frViewFiltroClientes1.OnClienteChanged := OnClienteChanged;
end;
destructor TfEditorInformeFacturasClienteReport.Destroy;
begin
FListaIDClientes.Free;
frViewFiltroClientes1.OnClienteChanged := Nil;
inherited;
end;
function TfEditorInformeFacturasClienteReport.GetDesglosadoCliente: Boolean;
begin
if frViewFiltroClientes1.cbxDesglosado.Enabled then
Result := frViewFiltroClientes1.cbxDesglosado.Checked
else
Result := False;
end;
function TfEditorInformeFacturasClienteReport.GetFechaFin: TDateTime;
begin
Result := frViewPeriodoFechas1.edtFechaFin.Date;
end;
function TfEditorInformeFacturasClienteReport.GetFechaInicio: TDateTime;
begin
Result := frViewPeriodoFechas1.edtFechaIni.Date;
end;
function TfEditorInformeFacturasClienteReport.GetImporteMinimo: Currency;
begin
if frViewFiltroImportes1.eImporte.Enabled then
Result := frViewFiltroImportes1.eImporte.Value
else
Result := 0;
end;
function TfEditorInformeFacturasClienteReport.GetListaIDClientes: TIntegerArray;
begin
Result := FListaIDClientes;
end;
procedure TfEditorInformeFacturasClienteReport.OnClienteChanged(Sender: TObject);
begin
FListaIDClientes.Clear;
if Assigned(frViewFiltroClientes1.Cliente) then
FListaIDClientes.Add(frViewFiltroClientes1.Cliente.ID);
end;
procedure TfEditorInformeFacturasClienteReport.RefrescarInforme;
var
AStream: Binary;
begin
try
AStream := (Controller as IGestorInformesController).DataModule.GetInformeIVAClientes(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo);
LoadFromStream(AStream);
Report.ShowPreparedReport;
finally
FreeAndNil(AStream);
end;
end;
end.

198
Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.dfm Normal file
View File

@ -0,0 +1,198 @@
inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
Caption = 'fEditorInformeIVAClientesReport'
ClientHeight = 790
ClientWidth = 895
ExplicitWidth = 903
ExplicitHeight = 824
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 895
ExplicitWidth = 895
inherited Image1: TImage
Left = 868
ExplicitLeft = 868
end
end
inherited TBXDock: TTBXDock
Width = 895
ExplicitWidth = 895
inherited tbxMenu: TTBXToolbar
ExplicitWidth = 895
end
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 591
object TBXItem58: TTBXItem [0]
Action = actRefrescar
DisplayMode = nbdmImageAndText
Images = SmallImages
end
end
end
inherited StatusBar: TJvStatusBar
Top = 771
Width = 895
ExplicitTop = 771
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
inherited dxLayoutControl1: TdxLayoutControl
Width = 795
Align = alLeft
ExplicitWidth = 795
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
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

25
Source/Modulos/Gestor de informes/Views/uEditorGestorInformesReport.pas → Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.pas
View File

@ -1,4 +1,4 @@
unit uEditorGestorInformesReport;
unit uEditorInformeIVAClientesReport;
interface
@ -16,7 +16,7 @@ uses
FactuGES_Intf;
type
TfEditorGestorInformesReport = class(TfEditorPreview, IEditorGestorInformesReport)
TfEditorInformeIVAClientesReport = class(TfEditorPreview, IEditorGestorInformesReport)
frViewPeriodoFechas1: TfrViewPeriodoFechas;
frViewFiltroClientes1: TfrViewFiltroClientes;
frViewFiltroImportes1: TfrViewFiltroImportes;
@ -59,27 +59,27 @@ uses uROTypes, uGestorInformesController, uFactuGES_App;
{ TfEditorGestorInformesReport }
procedure TfEditorGestorInformesReport.actRefrescarExecute(Sender: TObject);
procedure TfEditorInformeIVAClientesReport.actRefrescarExecute(Sender: TObject);
begin
inherited;
RefrescarInforme;
end;
constructor TfEditorGestorInformesReport.Create(AOwner: TComponent);
constructor TfEditorInformeIVAClientesReport.Create(AOwner: TComponent);
begin
inherited;
FListaIDClientes := TIntegerArray.Create;
frViewFiltroClientes1.OnClienteChanged := OnClienteChanged;
end;
destructor TfEditorGestorInformesReport.Destroy;
destructor TfEditorInformeIVAClientesReport.Destroy;
begin
FListaIDClientes.Free;
frViewFiltroClientes1.OnClienteChanged := Nil;
inherited;
end;
function TfEditorGestorInformesReport.GetDesglosadoCliente: Boolean;
function TfEditorInformeIVAClientesReport.GetDesglosadoCliente: Boolean;
begin
if frViewFiltroClientes1.cbxDesglosado.Enabled then
Result := frViewFiltroClientes1.cbxDesglosado.Checked
@ -87,17 +87,17 @@ begin
Result := False;
end;
function TfEditorGestorInformesReport.GetFechaFin: TDateTime;
function TfEditorInformeIVAClientesReport.GetFechaFin: TDateTime;
begin
Result := frViewPeriodoFechas1.edtFechaFin.Date;
end;
function TfEditorGestorInformesReport.GetFechaInicio: TDateTime;
function TfEditorInformeIVAClientesReport.GetFechaInicio: TDateTime;
begin
Result := frViewPeriodoFechas1.edtFechaIni.Date;
end;
function TfEditorGestorInformesReport.GetImporteMinimo: Currency;
function TfEditorInformeIVAClientesReport.GetImporteMinimo: Currency;
begin
if frViewFiltroImportes1.eImporte.Enabled then
Result := frViewFiltroImportes1.eImporte.Value
@ -105,19 +105,19 @@ begin
Result := 0;
end;
function TfEditorGestorInformesReport.GetListaIDClientes: TIntegerArray;
function TfEditorInformeIVAClientesReport.GetListaIDClientes: TIntegerArray;
begin
Result := FListaIDClientes;
end;
procedure TfEditorGestorInformesReport.OnClienteChanged(Sender: TObject);
procedure TfEditorInformeIVAClientesReport.OnClienteChanged(Sender: TObject);
begin
FListaIDClientes.Clear;
if Assigned(frViewFiltroClientes1.Cliente) then
FListaIDClientes.Add(frViewFiltroClientes1.Cliente.ID);
end;
procedure TfEditorGestorInformesReport.RefrescarInforme;
procedure TfEditorInformeIVAClientesReport.RefrescarInforme;
var
AStream: Binary;
begin
@ -125,7 +125,6 @@ begin
AStream := (Controller as IGestorInformesController).DataModule.GetInformeIVAClientes(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo);
LoadFromStream(AStream);
Report.ShowPreparedReport;
finally
FreeAndNil(AStream);
end;

BIN
Source/Modulos/Gestor de informes/Views/uGestorInformesViewRegister.dcu
View File

Binary file not shown.

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

@ -8,16 +8,16 @@ procedure UnregisterViews;
implementation
uses
uEditorRegistryUtils, uEditorGestorInformesReport;
uEditorRegistryUtils, uEditorInformeIVAClientesReport;
procedure RegisterViews;
begin
EditorRegistry.RegisterClass(TfEditorGestorInformesReport, 'EditorGestorInformesReport');
EditorRegistry.RegisterClass(TfEditorInformeIVAClientesReport, 'EditorInformeIVAClientesReport');
end;
procedure UnregisterViews;
begin
EditorRegistry.UnRegisterClass(TfEditorGestorInformesReport);
EditorRegistry.UnRegisterClass(TfEditorInformeIVAClientesReport);
end;
end.

BIN
Source/Modulos/Gestor de informes/Views/uViewFiltroClientes.dcu
View File

Binary file not shown.

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

@ -114,8 +114,6 @@ inherited frViewFiltroClientes: TfrViewFiltroClientes
Margins.Bottom = 0
Align = alTop
Caption = 'Elija una de las siguientes opciones para generar el listado'
Ctl3D = False
ParentCtl3D = False
TabOrder = 2
object rd1: TRadioButton
Left = 16
@ -146,7 +144,13 @@ inherited frViewFiltroClientes: TfrViewFiltroClientes
TabOrder = 2
end
end
inherited dsCliente: TDADataSource
Left = 112
Top = 40
end
inherited ActionList1: TActionList
Left = 80
Top = 40
inherited actElegirContacto: TAction
Enabled = False
end
@ -164,4 +168,8 @@ inherited frViewFiltroClientes: TfrViewFiltroClientes
Enabled = False
end
end
inherited PngImageList: TPngImageList
Left = 144
Top = 40
end
end

BIN
Source/Modulos/Gestor de informes/Views/uViewFiltroImportes.dcu
View File

Binary file not shown.

BIN
Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.dcu
View File

Binary file not shown.