diff --git a/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dcu b/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dcu index 66dca687..193dc5da 100644 Binary files a/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dcu and b/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dcu differ diff --git a/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.identcache b/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.identcache index aa5a7f05..bdbaa3db 100644 Binary files a/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.identcache and b/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.identcache differ diff --git a/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.dcu b/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.dcu index 967e0efe..67930949 100644 Binary files a/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.dcu and b/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.dcu differ diff --git a/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas b/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas index 66759e16..0fc0eff9 100644 --- a/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas +++ b/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas @@ -14,6 +14,8 @@ type // procedure Preview(AFactura : IBizFacturaCliente; AllItems: Boolean = false); // procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false); procedure GetInformeIVAClientes; + procedure GetInformeListadoFacturas; + procedure GetInformeListadoFacturasPendientes; end; TGestorInformesController = class(TControllerBase, IGestorInformesController) @@ -40,8 +42,8 @@ type } property DataModule: IDataModuleGestorInformes read GetDataModule; procedure GetInformeIVAClientes; - - + procedure GetInformeListadoFacturas; + procedure GetInformeListadoFacturasPendientes; end; implementation @@ -249,6 +251,62 @@ begin 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); var