From 1f2c3d1eecbb486a24934aa25f2f44bca2b451a4 Mon Sep 17 00:00:00 2001 From: roberto Date: Fri, 17 Oct 2008 14:08:19 +0000 Subject: [PATCH] Modulo nuevo para los informes estadisticos e informes que ya tenian anteriormente git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@694 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Data/uDataModuleGestorInformes.pas | 28 +++++++++++++++++-- 1 file changed, 26 insertions(+), 2 deletions(-) diff --git a/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas b/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas index 6e4914ce..af097d14 100644 --- a/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas +++ b/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas @@ -23,7 +23,9 @@ type // function GetItems : IBizFacturaCliente; // Report - function GetInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + 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; procedure getInforme; end; @@ -43,7 +45,7 @@ begin RORemoteService.Message := dmConexion.Message; end; -function TDataModuleGestorInformes.GetInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; +function TDataModuleGestorInformes.GetInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; begin try Result := (RORemoteService as IsrvGestorInformes).GetInformeIVAClientes(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo); @@ -51,6 +53,28 @@ begin end; end; +function TDataModuleGestorInformes.GetInformeListadoFacturas( + const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime; + const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; + const ImporteMinimo: Currency): Binary; +begin + try + Result := (RORemoteService as IsrvGestorInformes).GetInformeListadoFacturas(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo); + finally + end; +end; + +function TDataModuleGestorInformes.GetInformeListadoFacturasPendientes( + const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime; + const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; + const ImporteMinimo: Currency): Binary; +begin + try + Result := (RORemoteService as IsrvGestorInformes).GetInformeListadoFacturasPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo); + finally + end; +end; + procedure TDataModuleGestorInformes.getInforme; begin tbl_DirectoryData.close;