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@693 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-10-17 14:08:01 +00:00
parent 3e5797e4c0
commit 8de8c70927
4 changed files with 60 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

Binary file not shown.

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

Binary file not shown.

BIN
Source/Modulos/Gestor de informes/Controller/uGestorInformesController.dcu
View File

Binary file not shown.

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

@ -14,6 +14,8 @@ type
// procedure Preview(AFactura : IBizFacturaCliente; AllItems: Boolean = false); // procedure Preview(AFactura : IBizFacturaCliente; AllItems: Boolean = false);
// procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false); // procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false);
procedure GetInformeIVAClientes; procedure GetInformeIVAClientes;
procedure GetInformeListadoFacturas;
procedure GetInformeListadoFacturasPendientes;
end; end;
TGestorInformesController = class(TControllerBase, IGestorInformesController) TGestorInformesController = class(TControllerBase, IGestorInformesController)
@ -40,8 +42,8 @@ type
} }
property DataModule: IDataModuleGestorInformes read GetDataModule; property DataModule: IDataModuleGestorInformes read GetDataModule;
procedure GetInformeIVAClientes; procedure GetInformeIVAClientes;
procedure GetInformeListadoFacturas;
procedure GetInformeListadoFacturasPendientes;
end; end;
implementation implementation
@ -249,6 +251,62 @@ begin
end; end;
end; end;
procedure TGestorInformesController.GetInformeListadoFacturas;
var
AStream: Binary;
AEditor : IEditorInformeIVAClientesReport;
begin
AEditor := NIL;
ShowHourglassCursor;
try
try
CreateEditor('EditorInformeIVAClientesReport', IEditorInformeIVAClientesReport, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
AEditor.Controller := Self;
AStream := FDataModule.GetInformeListadoFacturas(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo);
LoadFromStream(AStream);
Preview;
Release;
end;
finally
FreeAndNil(AStream);
AEditor := Nil;
end;
finally
HideHourglassCursor;
end;
end;
procedure TGestorInformesController.GetInformeListadoFacturasPendientes;
var
AStream: Binary;
AEditor : IEditorInformeIVAClientesReport;
begin
AEditor := NIL;
ShowHourglassCursor;
try
try
CreateEditor('EditorInformeIVAClientesReport', IEditorInformeIVAClientesReport, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
AEditor.Controller := Self;
AStream := FDataModule.GetInformeListadoFacturasPendientes(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo);
LoadFromStream(AStream);
Preview;
Release;
end;
finally
FreeAndNil(AStream);
AEditor := Nil;
end;
finally
HideHourglassCursor;
end;
end;
{ {
procedure TGestorInformesController.Ver(AFactura: IBizFacturaCliente); procedure TGestorInformesController.Ver(AFactura: IBizFacturaCliente);
var var