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@707 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-10-20 15:25:01 +00:00
parent d8f08008e8
commit e3a4498104
19 changed files with 462 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -33,6 +33,7 @@ contains
uGestorInformesController in 'uGestorInformesController.pas',
uIEditorInformeFacturasClienteReport in 'View\uIEditorInformeFacturasClienteReport.pas',
uIEditorInformeBase in 'View\uIEditorInformeBase.pas',
uIEditorInformeIVAClientesReport in 'View\uIEditorInformeIVAClientesReport.pas';
uIEditorInformeIVAClientesReport in 'View\uIEditorInformeIVAClientesReport.pas',
uIEditorInformeFacturasClientePendientesReport in 'View\uIEditorInformeFacturasClientePendientesReport.pas';
end.

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

@ -43,6 +43,7 @@
<DCCReference Include="View\Base.dcp" />
<DCCReference Include="View\GestorInformes_data.dcp" />
<DCCReference Include="View\uIEditorInformeBase.pas" />
<DCCReference Include="View\uIEditorInformeFacturasClientePendientesReport.pas" />
<DCCReference Include="View\uIEditorInformeFacturasClienteReport.pas" />
<DCCReference Include="View\uIEditorInformeIVAClientesReport.pas" />
</ItemGroup>

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.

26
Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClientePendientesReport.pas Normal file
View File

@ -0,0 +1,26 @@
unit uIEditorInformeFacturasClientePendientesReport;
interface
uses
FactuGES_Intf, uIEditorInformeBase;
type
IEditorInformeFacturasClientePendientesReport = interface(IEditorInformeBase)
['{6ADD8C8B-34D8-4F51-9C9C-4A9ED54DDE34}']
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.

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

@ -66,7 +66,8 @@ uses
uDAInterfaces, uDataTableUtils, uDateUtils, uNumUtils,
DateUtils, Forms, uIntegerListUtils, uDataModuleGestorInformes,
uSistemaFunc, uDialogElegirEMail, uEMailUtils, Dialogs,
uIEditorInformeIVAClientesReport, uIEditorInformeFacturasClienteReport;
uIEditorInformeIVAClientesReport, uIEditorInformeFacturasClienteReport,
uIEditorInformeFacturasClientePendientesReport;
{procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente;
@ -251,6 +252,7 @@ begin
with AEditor do
begin
AEditor.Controller := Self;
AEditor.Title := 'Listado de IVA de facturas de cliente';
AStream := FDataModule.GetInformeIVAClientes(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo);
LoadFromStream(AStream);
Preview;
@ -279,6 +281,7 @@ begin
with AEditor do
begin
AEditor.Controller := Self;
AEditor.Title := 'Listado de facturas de cliente';
AStream := FDataModule.GetInformeListadoFacturas(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo);
LoadFromStream(AStream);
Preview;
@ -296,17 +299,18 @@ end;
procedure TGestorInformesController.VerInformeListadoFacturasPendientes;
var
AStream: Binary;
AEditor : IEditorInformeIVAClientesReport;
AEditor : IEditorInformeFacturasClientePendientesReport;
begin
AEditor := NIL;
ShowHourglassCursor;
try
try
CreateEditor('EditorInformeIVAClientesReport', IEditorInformeIVAClientesReport, AEditor);
CreateEditor('EditorInformeFacturasClientePendientesReport', IEditorInformeFacturasClientePendientesReport, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
AEditor.Controller := Self;
AEditor.Title := 'Listado de facturas de cliente pendientes';
AStream := FDataModule.GetInformeListadoFacturasPendientes(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo);
LoadFromStream(AStream);
Preview;

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

@ -49,6 +49,18 @@ object PluginGestorInformes: TPluginGestorInformes
ImageIndex = 0
OnExecute = actInformeFacturasClienteExecute
end
object actInformeFacturasClientePendientes: TAction
Category = 'Facturas de cliente'
Caption = 'Listado de facturas de cliente pendientes'
ImageIndex = 0
OnExecute = actInformeFacturasClientePendientesExecute
end
object actInformeFacturasClienteIVA: TAction
Category = 'Facturas de cliente'
Caption = 'Listado de IVA de facturas de cliente'
ImageIndex = 0
OnExecute = actInformeFacturasClienteIVAExecute
end
end
object MainMenu: TMainMenu
Images = LargeImages
@ -59,6 +71,12 @@ object PluginGestorInformes: TPluginGestorInformes
object Listadodefacturasdecliente1: TMenuItem
Action = actInformeFacturasCliente
end
object Listadodefacturasdeclientependientes1: TMenuItem
Action = actInformeFacturasClientePendientes
end
object ListadodeIVAdefacturasdecliente1: TMenuItem
Action = actInformeFacturasClienteIVA
end
end
end
object SmallImages: TPngImageList

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

@ -20,7 +20,13 @@ type
Informes1: TMenuItem;
actInformeFacturasCliente: TAction;
Listadodefacturasdecliente1: TMenuItem;
actInformeFacturasClientePendientes: TAction;
actInformeFacturasClienteIVA: TAction;
Listadodefacturasdeclientependientes1: TMenuItem;
ListadodeIVAdefacturasdecliente1: TMenuItem;
procedure actInformeFacturasClienteExecute(Sender: TObject);
procedure actInformeFacturasClientePendientesExecute(Sender: TObject);
procedure actInformeFacturasClienteIVAExecute(Sender: TObject);
private
FController : IGestorInformesController;
public
@ -50,6 +56,18 @@ begin
FController.VerInformeListadoFacturas;
end;
procedure TPluginGestorInformes.actInformeFacturasClienteIVAExecute(
Sender: TObject);
begin
FController.VerInformeIVAClientes;
end;
procedure TPluginGestorInformes.actInformeFacturasClientePendientesExecute(
Sender: TObject);
begin
FController.VerInformeListadoFacturasPendientes;
end;
constructor TPluginGestorInformes.Create(AOwner: TComponent);
begin
inherited;

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

@ -43,6 +43,7 @@ contains
uEditorInformeBase in 'uEditorInformeBase.pas' {fEditorInformeBase: TForm},
uViewFiltroClientes in 'uViewFiltroClientes.pas' {frViewFiltroClientes: TFrame},
uViewParametrosInforme in 'uViewParametrosInforme.pas' {frViewParametrosInforme: TFrame},
uEditorInformeFacturasClientePendientesReport in 'uEditorInformeFacturasClientePendientesReport.pas' {fEditorInformeFacturasClientePendientesReport: t},
uEditorInformeFacturasClienteReport in 'uEditorInformeFacturasClienteReport.pas' {fEditorInformeFacturasClienteReport: TForm};
end.

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

@ -38,23 +38,26 @@
<DelphiCompile Include="GestorInformes_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<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_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.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="ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="Contactos_controller.dcp" />
<DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="Contactos_view.dcp" />
<DCCReference Include="GestorInformes_controller.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="uEditorInformeBase.pas">
<Form>fEditorInformeBase</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="uEditorInformeFacturasClienteReport.pas">
<Form>fEditorInformeFacturasClienteReport</Form>
<DCCReference Include="uEditorInformeFacturasClientePendientesReport.pas">
<Form>fEditorInformeFacturasClientePendientesReport</Form>
<DesignClass>t</DesignClass>
</DCCReference>
<DCCReference Include="uEditorInformeFacturasClienteReport.pas">
<Form>EditorInformeFacturasClienteReport</Form>
<DesignClass>T</DesignClass>
</DCCReference>
<DCCReference Include="uEditorInformeIVAClientesReport.pas">
<Form>fEditorInformeIVAClientesReport</Form>
<DesignClass>TForm</DesignClass>
@ -76,6 +79,7 @@
<Form>frViewPeriodoFechas</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

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

Binary file not shown.

202
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.dfm Normal file
View File

@ -0,0 +1,202 @@
inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturasClientePendientesReport
Caption = 'fEditorInformeFacturasClientePendientesReport'
ClientHeight = 655
ClientWidth = 895
ExplicitWidth = 903
ExplicitHeight = 689
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 = 636
Width = 895
ExplicitTop = 636
ExplicitWidth = 895
end
inherited TBXMultiDockIzquierdo: TTBXMultiDock
Height = 534
ExplicitHeight = 534
end
inherited TBXMultiDockDerecho: TTBXMultiDock
Left = 703
Width = 192
Height = 534
ExplicitLeft = 703
ExplicitWidth = 192
ExplicitHeight = 534
inherited pnlParametros: TTBXDockablePanel
DockedWidth = 188
ExplicitWidth = 192
ExplicitHeight = 518
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 = 188
ExplicitHeight = 136
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 182
ExplicitWidth = 182
inherited cbPeriodo: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 153
Width = 153
end
end
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182
ExplicitWidth = 182
inherited Label3: TLabel
Width = 172
end
inherited edtFechaFin: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 99
Width = 99
end
inherited edtFechaIni: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 97
Width = 97
end
end
inherited TBXLabel2: TTBXLabel
Width = 188
ExplicitWidth = 188
end
end
inherited TBXDockablePanel1: TTBXDockablePanel
Top = 456
TabOrder = 2
ExplicitTop = 456
ExplicitWidth = 188
ExplicitHeight = 40
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
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 = 188
ExplicitHeight = 77
inherited TBXLabel2: TTBXLabel
Width = 188
ExplicitWidth = 188
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 182
ExplicitWidth = 182
inherited eImporte: TcxSpinEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
end
end
inline frViewFiltroClientes1: TfrViewFiltroClientes
Left = 0
Top = 213
Width = 188
Height = 146
Align = alTop
AutoSize = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 3
ReadOnly = False
ExplicitTop = 213
ExplicitWidth = 188
ExplicitHeight = 146
inherited TBXLabel2: TTBXLabel
Width = 188
ExplicitWidth = 188
end
inherited bElegirCliente: TBitBtn
Width = 108
ExplicitWidth = 108
end
inherited edtCliente: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 141
Width = 141
end
end
end
end
end

132
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.pas Normal file
View File

@ -0,0 +1,132 @@
unit uEditorInformeFacturasClientePendientesReport;
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, uCustomView,
uViewBase, uViewPeriodoFechas, uViewDatosYSeleccionClienteBase,
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
uIEditorInformeBase, uViewParametrosInforme,
uIEditorInformeFacturasClientePendientesReport;
type
TfEditorInformeFacturasClientePendientesReport = class(TfEditorInformeBase, IEditorInformeFacturasClientePendientesReport)
TBXItem58: TTBXItem;
frViewPeriodoFechas1: TfrViewPeriodoFechas;
frViewFiltroImportes1: TfrViewFiltroImportes;
frViewFiltroClientes1: TfrViewFiltroClientes;
procedure actRefrescarExecute(Sender: TObject);
private
FListaIDClientes: TIntegerArray;
function GetFechaFin: TDateTime;
function GetFechaInicio: TDateTime;
function GetListaIDClientes: TIntegerArray;
function GetImporteMinimo: Currency;
function GetDesglosadoCliente: Boolean;
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 TfEditorInformeFacturasClientePendientesReport.actRefrescarExecute(Sender: TObject);
begin
inherited;
RefrescarInforme;
end;
constructor TfEditorInformeFacturasClientePendientesReport.Create(AOwner: TComponent);
begin
inherited;
FListaIDClientes := TIntegerArray.Create;
end;
destructor TfEditorInformeFacturasClientePendientesReport.Destroy;
begin
FListaIDClientes.Free;
inherited;
end;
function TfEditorInformeFacturasClientePendientesReport.GetDesglosadoCliente: Boolean;
begin
if frViewFiltroImportes1.cbxDesglosado.Enabled then
Result := frViewFiltroClientes1.cbxDesglosado.Checked
else
Result := False;
end;
function TfEditorInformeFacturasClientePendientesReport.GetFechaFin: TDateTime;
begin
Result := frViewPeriodoFechas1.edtFechaFin.Date;
end;
function TfEditorInformeFacturasClientePendientesReport.GetFechaInicio: TDateTime;
begin
Result := frViewPeriodoFechas1.edtFechaIni.Date;
end;
function TfEditorInformeFacturasClientePendientesReport.GetImporteMinimo: Currency;
begin
if frViewFiltroImportes1.eImporte.Enabled then
Result := frViewFiltroImportes1.eImporte.Value
else
Result := 0;
end;
function TfEditorInformeFacturasClientePendientesReport.GetListaIDClientes: TIntegerArray;
begin
FListaIDClientes.Clear;
if Assigned(frViewFiltroClientes1.Cliente) then
FListaIDClientes.Add(frViewFiltroClientes1.Cliente.ID);
Result := FListaIDClientes;
end;
procedure TfEditorInformeFacturasClientePendientesReport.RefrescarInforme;
var
AStream: Binary;
begin
ShowHourglassCursor;
try
AStream := (Controller as IGestorInformesController).DataModule.GetInformeListadoFacturasPendientes(
AppFactuGES.EmpresaActiva.ID,
FechaInicio,
FechaFin,
ListaIDClientes,
DesglosadoCliente,
ImporteMinimo);
LoadFromStream(AStream);
Report.ShowPreparedReport;
finally
FreeAndNil(AStream);
HideHourglassCursor;
end;
end;
end.

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

@ -82,7 +82,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
Width = 182
ExplicitWidth = 182
inherited Label3: TLabel
Width = 85
Width = 172
end
inherited edtFechaFin: TcxDateEdit
Style.LookAndFeel.SkinName = ''
@ -107,10 +107,11 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
end
end
inherited TBXDockablePanel1: TTBXDockablePanel
Top = 368
Top = 446
TabOrder = 2
ExplicitTop = 368
ExplicitTop = 440
ExplicitWidth = 188
ExplicitHeight = 50
inherited TBXButton1: TTBXButton
AlignWithMargins = True
Left = 3
@ -165,8 +166,9 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
Left = 0
Top = 213
Width = 188
Height = 195
Height = 146
Align = alTop
AutoSize = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
@ -177,18 +179,22 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
ReadOnly = False
ExplicitTop = 213
ExplicitWidth = 188
ExplicitHeight = 146
inherited TBXLabel2: TTBXLabel
Width = 188
ExplicitWidth = 188
end
inherited bElegirCliente: TBitBtn
ExplicitWidth = 382
Width = 108
ExplicitWidth = 108
end
inherited edtCliente: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 141
Width = 141
end
end
end

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

@ -107,11 +107,11 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
end
end
inherited TBXDockablePanel1: TTBXDockablePanel
Top = 368
Top = 446
TabOrder = 2
ExplicitTop = 368
ExplicitTop = 424
ExplicitWidth = 188
ExplicitHeight = 128
ExplicitHeight = 50
inherited TBXButton1: TTBXButton
AlignWithMargins = True
Left = 3
@ -166,8 +166,9 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
Left = 0
Top = 213
Width = 188
Height = 195
Height = 146
Align = alTop
AutoSize = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
@ -178,18 +179,22 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
ReadOnly = False
ExplicitTop = 213
ExplicitWidth = 188
ExplicitHeight = 146
inherited TBXLabel2: TTBXLabel
Width = 188
ExplicitWidth = 188
end
inherited bElegirCliente: TBitBtn
ExplicitWidth = 382
Width = 108
ExplicitWidth = 108
end
inherited edtCliente: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 141
Width = 141
end
end
end

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

@ -14,10 +14,10 @@ uses
uViewBase, uViewPeriodoFechas, uViewDatosYSeleccionClienteBase,
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasClienteReport;
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeIVAClientesReport;
type
TfEditorInformeIVAClientesReport = class(TfEditorInformeBase, IEditorInformeFacturasClienteReport)
TfEditorInformeIVAClientesReport = class(TfEditorInformeBase, IEditorInformeIVAClientesReport)
TBXItem58: TTBXItem;
frViewPeriodoFechas1: TfrViewPeriodoFechas;
frViewFiltroImportes1: TfrViewFiltroImportes;

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

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

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

@ -1,13 +1,16 @@
inherited frViewFiltroClientes: TfrViewFiltroClientes
Width = 184
Width = 211
Align = alTop
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
ExplicitWidth = 451
DesignSize = (
211
195)
object TBXLabel2: TTBXLabel
Left = 0
Top = 0
Width = 184
Width = 211
Height = 29
Margins.Top = 5
Margins.Bottom = 10
@ -27,7 +30,7 @@ inherited frViewFiltroClientes: TfrViewFiltroClientes
AlignWithMargins = True
Left = 61
Top = 123
Width = 115
Width = 142
Height = 23
Margins.Left = 0
Margins.Top = 0
@ -73,11 +76,12 @@ inherited frViewFiltroClientes: TfrViewFiltroClientes
AA00C315D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
ExplicitWidth = 382
end
object cbxDesglosado: TCheckBox
Left = 23
Top = 49
Width = 176
Width = 146
Height = 17
Caption = 'Desglosar por cliente'
Checked = True
@ -105,8 +109,9 @@ inherited frViewFiltroClientes: TfrViewFiltroClientes
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3
ExplicitWidth = 415
Height = 21
Width = 148
Width = 175
end
object rbTodosClientes: TRadioButton
Left = 6

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

@ -75,6 +75,7 @@ begin
cbxDesglosado.Enabled := True;
FCliente := NIL;
bElegirCliente.Enabled := False;
edtCliente.Enabled := False;
end;
end;
@ -84,7 +85,7 @@ begin
begin
cbxDesglosado.Enabled := False;
bElegirCliente.Enabled := True;
edtCliente.Enabled := True;
if not Assigned(FClientesController) then
FClientesController := TClientesController.Create;
end;