diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 832e442b..5dc01726 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -44,6 +44,8 @@ Package FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + Microsoft Office 2000 Sample Automation Server Wrapper Components Microsoft Office XP Sample Automation Server Wrapper Components Base.dpk @@ -53,57 +55,57 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index 52f774ce..a06fb814 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico" 1 VERSIONINFO -FILEVERSION 1,3,9,0 -PRODUCTVERSION 1,3,9,0 +FILEVERSION 1,3,7,0 +PRODUCTVERSION 1,3,7,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,10 +13,10 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "1.3.9.0\0" + VALUE "FileVersion", "1.3.7.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" - VALUE "ProductVersion", "1.3.9.0\0" + VALUE "ProductVersion", "1.3.7.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index c92c1b07..5d085937 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/GUIBase/uEditorPreview.pas b/Source/GUIBase/uEditorPreview.pas index b169bb47..98f31618 100644 --- a/Source/GUIBase/uEditorPreview.pas +++ b/Source/GUIBase/uEditorPreview.pas @@ -29,8 +29,6 @@ type procedure Print; procedure Preview; - procedure Refresh; - function GetController : IControllerBase; procedure SetController (const Value : IControllerBase); property Controller : IControllerBase read GetController @@ -167,7 +165,6 @@ type write SetController; property Title: string read GetTitle write SetTitle; property Report: TfrxReport read GetReport; - procedure Refresh; procedure Print; procedure Preview; procedure LoadFromStream(AStream : TStream); @@ -453,11 +450,6 @@ begin Enabled := True; end; -procedure TfEditorPreview.Refresh; -begin -// Report.Preview.Repaint; -end; - procedure TfEditorPreview.SetController(const Value: IControllerBase); begin FController := Value; diff --git a/Source/Informes/InformeIVAClientes.fr3 b/Source/Informes/InformeIVAClientes.fr3 index 9ffba56a..a25a3d02 100644 --- a/Source/Informes/InformeIVAClientes.fr3 +++ b/Source/Informes/InformeIVAClientes.fr3 @@ -1,5 +1,5 @@ - + @@ -15,7 +15,7 @@ - + @@ -23,22 +23,22 @@ - + - - - - - - - - + + + + + + + + - - - - + + + + diff --git a/Source/Informes/InformeListadoFacturasClienteDesglosado.fr3 b/Source/Informes/InformeListadoFacturasClienteDesglosado.fr3 new file mode 100644 index 00000000..29665e4b --- /dev/null +++ b/Source/Informes/InformeListadoFacturasClienteDesglosado.fr3 @@ -0,0 +1,49 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Informes/InformeListadoFacturasClientePendientes.fr3 b/Source/Informes/InformeListadoFacturasClientePendientes.fr3 new file mode 100644 index 00000000..6e745478 --- /dev/null +++ b/Source/Informes/InformeListadoFacturasClientePendientes.fr3 @@ -0,0 +1,40 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Informes/InformeListadoRecibosCliPendientes.fr3 b/Source/Informes/InformeListadoRecibosCliPendientes.fr3 new file mode 100644 index 00000000..e80c8d95 --- /dev/null +++ b/Source/Informes/InformeListadoRecibosCliPendientes.fr3 @@ -0,0 +1,41 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Informes/InformeListadoRecibosCliente.fr3 b/Source/Informes/InformeListadoRecibosCliente.fr3 new file mode 100644 index 00000000..7fffee61 --- /dev/null +++ b/Source/Informes/InformeListadoRecibosCliente.fr3 @@ -0,0 +1,41 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Informes/InformeListadoRecibosClienteDesglosado.fr3 b/Source/Informes/InformeListadoRecibosClienteDesglosado.fr3 new file mode 100644 index 00000000..f31d305b --- /dev/null +++ b/Source/Informes/InformeListadoRecibosClienteDesglosado.fr3 @@ -0,0 +1,41 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res index 1641339f..8b251f31 100644 Binary files a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res and b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res differ diff --git a/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.identcache b/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.identcache index bdbaa3db..6431bbd4 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/GestorInformes_controller.res b/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.res index 1641339f..8b251f31 100644 Binary files a/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.res and b/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.res differ diff --git a/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas b/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas index 0fc0eff9..44615d8b 100644 --- a/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas +++ b/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas @@ -4,7 +4,8 @@ interface uses - Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleGestorInformes; + Classes, SysUtils, uDADataTable, uControllerBase, uROTypes, uIDataModuleGestorInformes, + uIEditorInformeReportBase; type IGestorInformesController = interface(IControllerBase) @@ -13,9 +14,15 @@ type property DataModule: IDataModuleGestorInformes read GetDataModule; // procedure Preview(AFactura : IBizFacturaCliente; AllItems: Boolean = false); // procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false); + + //MODULO FACTURAS DE CLIENTE procedure GetInformeIVAClientes; procedure GetInformeListadoFacturas; procedure GetInformeListadoFacturasPendientes; + + //MODULO RECIBOS DE CLIENTE + procedure GetInformeListadoRecibosCliPendientes; + procedure GetInformeListadoRecibosCliente; end; TGestorInformesController = class(TControllerBase, IGestorInformesController) @@ -41,9 +48,15 @@ type procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false); } property DataModule: IDataModuleGestorInformes read GetDataModule; + + //MODULO FACTURAS DE CLIENTE procedure GetInformeIVAClientes; procedure GetInformeListadoFacturas; procedure GetInformeListadoFacturasPendientes; + + //MODULO RECIBOS DE CLIENTE + procedure GetInformeListadoRecibosCliPendientes; + procedure GetInformeListadoRecibosCliente; end; implementation @@ -51,7 +64,7 @@ implementation uses Windows, Controls, cxControls, DB, uEditorRegistryUtils, uFactuGES_App, uDAInterfaces, uDataTableUtils, uDateUtils, uNumUtils, - uROTypes, DateUtils, Forms, uIntegerListUtils, uDataModuleGestorInformes, + DateUtils, Forms, uIntegerListUtils, uDataModuleGestorInformes, uSistemaFunc, uDialogElegirEMail, uEMailUtils, Dialogs, uIEditorInformeIVAClientesReport; @@ -307,6 +320,63 @@ begin end; end; +procedure TGestorInformesController.GetInformeListadoRecibosCliente; +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.GetInformeListadoRecibosCliente(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.GetInformeListadoRecibosCliPendientes; +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.GetInformeListadoRecibosCliPendientes(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 diff --git a/Source/Modulos/Gestor de informes/Data/GestorInformes_data.dcu b/Source/Modulos/Gestor de informes/Data/GestorInformes_data.dcu index 337e86d1..c9d2ace0 100644 Binary files a/Source/Modulos/Gestor de informes/Data/GestorInformes_data.dcu and b/Source/Modulos/Gestor de informes/Data/GestorInformes_data.dcu differ diff --git a/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas b/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas index af097d14..a497afe5 100644 --- a/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas +++ b/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas @@ -22,10 +22,16 @@ type public // function GetItems : IBizFacturaCliente; - // Report + //MODULO FACTURAS DE CLIENTE function GetInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GetInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GetInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + + //MODULO RECIBOS DE CLIENTE + function GetInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GetInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + + procedure getInforme; end; @@ -75,6 +81,28 @@ begin end; end; +function TDataModuleGestorInformes.GetInformeListadoRecibosCliente( + const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime; + const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; + const ImporteMinimo: Currency): Binary; +begin + try + Result := (RORemoteService as IsrvGestorInformes).GetInformeListadoRecibosCliente(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo); + finally + end; +end; + +function TDataModuleGestorInformes.GetInformeListadoRecibosCliPendientes( + const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime; + const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; + const ImporteMinimo: Currency): Binary; +begin + try + Result := (RORemoteService as IsrvGestorInformes).GetInformeListadoRecibosCliPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo); + finally + end; +end; + procedure TDataModuleGestorInformes.getInforme; begin tbl_DirectoryData.close; diff --git a/Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas b/Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas index d09d84b5..ee6f6775 100644 --- a/Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas +++ b/Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas @@ -10,9 +10,14 @@ type ['{65FB8E9E-5218-43DC-80AD-BDB4383B7064}'] // function GetItems: IBizFacturaCliente; procedure getInforme; + //MODULO FACTURAS CLIENTE function GetInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GetInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GetInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + + //MODULO RECIBOS CLIENTE + function GetInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GetInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; end; implementation diff --git a/Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas b/Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas index fc9a48e4..9a4a5e99 100644 --- a/Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas +++ b/Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas @@ -45,16 +45,22 @@ type procedure FillWinDirDataset(const aDataset: IDAEditableDataset); public + //MODULO FACTURAS CLIENTE function GetInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GetInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GetInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + + //MODULO RECIBOS CLIENTE + function GetInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GetInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; end; implementation {$R *.dfm} uses - {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, Dialogs, uRptFacturasCliente_Server; + {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, Dialogs, + uRptFacturasCliente_Server, uRptRecibosCliente_Server; procedure Create_srvGestorInformes(out anInstance: IUnknown); begin @@ -185,6 +191,36 @@ begin end; end; +function TsrvGestorInformes.GetInformeListadoRecibosCliente( + const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; + const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; + const ImporteMinimo: Currency): Binary; +var + AReportGenerator : TRptRecibosCliente; +begin + AReportGenerator := TRptRecibosCliente.Create(nil); + try + Result := AReportGenerator.GetInformeListadoRecibosCliente(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo); + finally + FreeAndNIL(AReportGenerator); + end; +end; + +function TsrvGestorInformes.GetInformeListadoRecibosCliPendientes( + const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; + const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; + const ImporteMinimo: Currency): Binary; +var + AReportGenerator : TRptRecibosCliente; +begin + AReportGenerator := TRptRecibosCliente.Create(nil); + try + Result := AReportGenerator.GetInformeListadoRecibosCliPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo); + finally + FreeAndNIL(AReportGenerator); + end; +end; + procedure TsrvGestorInformes.DataAbstractServiceBeforeGetDatasetData( aSender: TObject; const aDataset: IDADataset; const aIncludeSchema: Boolean; const aMaxRecords: Integer); diff --git a/Source/Modulos/Gestor de informes/Views/GestorInformes_view.dpk b/Source/Modulos/Gestor de informes/Views/GestorInformes_view.dpk index ef493454..697a8d17 100644 --- a/Source/Modulos/Gestor de informes/Views/GestorInformes_view.dpk +++ b/Source/Modulos/Gestor de informes/Views/GestorInformes_view.dpk @@ -70,7 +70,6 @@ contains uEditorInformeIVAClientesReport in 'uEditorInformeIVAClientesReport.pas' {fEditorInformeIVAClientesReport: TfEditorElegirFacturasCliente}, uViewPeriodoFechas in 'uViewPeriodoFechas.pas' {frViewPeriodoFechas: TFrame}, uViewFiltroImportes in 'uViewFiltroImportes.pas' {frViewFiltroImportes: TFrame}, - uViewFiltroClientes in 'uViewFiltroClientes.pas' {frViewFiltroClientes: TFrame}, - uEditorInformeFacturasClienteReport in 'uEditorInformeFacturasClienteReport.pas' {fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteReport}; + uViewFiltroClientes in 'uViewFiltroClientes.pas' {frViewFiltroClientes: TFrame}; end. diff --git a/Source/Modulos/Gestor de informes/Views/GestorInformes_view.dproj b/Source/Modulos/Gestor de informes/Views/GestorInformes_view.dproj index 743016d3..50ff71e1 100644 --- a/Source/Modulos/Gestor de informes/Views/GestorInformes_view.dproj +++ b/Source/Modulos/Gestor de informes/Views/GestorInformes_view.dproj @@ -38,43 +38,45 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
fEditorInformeFacturasClienteReport
- TfEditorElegirFacturasCliente - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fEditorInformeIVAClientesReport
TfEditorElegirFacturasCliente @@ -92,12 +94,6 @@
frViewPeriodoFechas
TFrame - - - - - -