Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se adaptan los informes para tener en cuenta la fecha vencimiento

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@805 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-12-15 09:03:56 +00:00
parent ff3005e4fc
commit 3161f242b2
50 changed files with 2089 additions and 1167 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
View File

@ -89,13 +89,13 @@ type
FConnection: IDAConnection; FConnection: IDAConnection;
//Genera cada una de las facturas a imprimir //Genera cada una de las facturas a imprimir
procedure _GenerarFactura(const ID: Integer; const VerSello: Boolean = True); procedure _GenerarFactura(const ID: Integer; const VerSello: Boolean = True);
function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary; function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary;
public public
function GenerarFactura(const ListaID : TIntegerArray; const VerSello: Boolean = True): Binary; function GenerarFactura(const ListaID : TIntegerArray; const VerSello: Boolean = True): Binary;
function GenerarFacturaEnPDF(const ListaID : TIntegerArray; const VerSello: Boolean = True): Binary; function GenerarFacturaEnPDF(const ListaID : TIntegerArray; const VerSello: Boolean = True): Binary;
function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
end; end;
implementation implementation
@ -165,7 +165,7 @@ begin
end; end;
end; end;
function TRptFacturasCliente.GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function TRptFacturasCliente.GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
var var
ATipoInforme: String; ATipoInforme: String;
@ -180,7 +180,7 @@ begin
end; end;
function TRptFacturasCliente.GenerarInformeListadoFacturas(const IdEmpresa: Integer; function TRptFacturasCliente.GenerarInformeListadoFacturas(const IdEmpresa: Integer;
const FechaInicio, FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const FechaInicio, FechaFin: Variant; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
var var
ATipoInforme: String; ATipoInforme: String;
@ -197,7 +197,7 @@ begin
end; end;
function TRptFacturasCliente.GenerarInformeListadoFacturasPendientes( function TRptFacturasCliente.GenerarInformeListadoFacturasPendientes(
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
var var
@ -265,7 +265,7 @@ begin
end; end;
function TRptFacturasCliente._GenerarInforme(const TipoInforme: String; function TRptFacturasCliente._GenerarInforme(const TipoInforme: String;
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary; const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary;
var var
Condicion: TDAWhereExpression; Condicion: TDAWhereExpression;

56
Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas
View File

@ -84,11 +84,12 @@ type
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
private private
FConnection: IDAConnection; FConnection: IDAConnection;
function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const ImporteMinimo: Currency): Binary; function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const ImporteMinimo: Currency): Binary;
public public
function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
end; end;
implementation implementation
@ -119,8 +120,10 @@ begin
frxDBDetalles.DataSource := DADSDetalles; frxDBDetalles.DataSource := DADSDetalles;
end; end;
function TRptFacturasProveedor.GenerarInformeIVA(const IdEmpresa: Integer;
function TRptFacturasProveedor.GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaInicio, FechaFin: Variant;
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary;
var var
ATipoInforme: String; ATipoInforme: String;
@ -132,12 +135,14 @@ begin
else else
ATipoInforme := rptInformeIVA; ATipoInforme := rptInformeIVA;
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, ImporteMinimo); Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, Null, Null, ListaIDProveedores, ImporteMinimo);
end; end;
function TRptFacturasProveedor.GenerarInformeListadoFacturas(const IdEmpresa: Integer; function TRptFacturasProveedor.GenerarInformeListadoFacturas(
const FechaInicio, FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenInicio, FechaVenFin: Variant;
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary;
var var
ATipoInforme: String; ATipoInforme: String;
@ -149,11 +154,12 @@ begin
else else
ATipoInforme := rptInformeListadoFacturasProveedor; ATipoInforme := rptInformeListadoFacturasProveedor;
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, ImporteMinimo); Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, ImporteMinimo);
end; end;
function TRptFacturasProveedor.GenerarInformeListadoFacturasPendientes( function TRptFacturasProveedor.GenerarInformeListadoFacturasPendientes(
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const FechaVenInicio, FechaVenFin: Variant;
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
var var
@ -183,11 +189,12 @@ begin
ATipoInforme := rptInformeListadoFactuasProveedorPendiente; ATipoInforme := rptInformeListadoFactuasProveedorPendiente;
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, ImporteMinimo); Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, ImporteMinimo);
end; end;
function TRptFacturasProveedor._GenerarInforme(const TipoInforme: String; function TRptFacturasProveedor._GenerarInforme(const TipoInforme: String;
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const FechaVenInicio: Variant; const FechaVenFin: Variant;
const ListaIDProveedores: TIntegerArray; const ImporteMinimo: Currency): Binary; const ListaIDProveedores: TIntegerArray; const ImporteMinimo: Currency): Binary;
var var
Condicion: TDAWhereExpression; Condicion: TDAWhereExpression;
@ -230,7 +237,24 @@ begin
end; end;
end; end;
// Filtrar el informe por Proveedor // Filtrar el informe por fechas de vencimiento
{ if not VarIsNull(FechaVenInicio)
and not VarIsNull(FechaVenFin) then
begin
with tbl_InformeListadoFacturas.DynamicWhere do
begin
// (FECHA_VENCIMIENTO_INICIO between FECHA_VENCIMIENTO_FIN)
Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorFECHA_VENCIMIENTO), NewConstant(FechaVenInicio, datDateTime), dboGreaterOrEqual);
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_FacturasProveedorFECHA_VENCIMIENTO), NewConstant(FechaVenFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
end;
}
// Filtrar el informe por proveedor
if Assigned(ListaIDProveedores) then if Assigned(ListaIDProveedores) then
begin begin
with tbl_InformeListadoFacturas.DynamicWhere do with tbl_InformeListadoFacturas.DynamicWhere do
@ -265,7 +289,7 @@ begin
tbl_InformeListadoFacturas.Active := True; tbl_InformeListadoFacturas.Active := True;
AInforme := DarRutaFichero(DarRutaInformes, TipoInforme, IntToStr(IdEmpresa)); AInforme := DarRutaFichero(DarRutaInformes, TipoInforme, IntTostr(IdEmpresa));
if VarIsNull(AInforme) then if VarIsNull(AInforme) then
raise Exception.Create (('Error Servidor: _GenerarInforme, no encuentra informe ' + TipoInforme)); raise Exception.Create (('Error Servidor: _GenerarInforme, no encuentra informe ' + TipoInforme));

8
Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClientePendientesReport.pas
View File

@ -8,13 +8,13 @@ uses
type type
IEditorInformeFacturasClientePendientesReport = interface(IEditorInformeBase) IEditorInformeFacturasClientePendientesReport = interface(IEditorInformeBase)
['{6ADD8C8B-34D8-4F51-9C9C-4A9ED54DDE34}'] ['{6ADD8C8B-34D8-4F51-9C9C-4A9ED54DDE34}']
function GetFechaFin: TDateTime; function GetFechaFin: Variant;
function GetFechaInicio: TDateTime; function GetFechaInicio: Variant;
function GetListaIDClientes: TIntegerArray; function GetListaIDClientes: TIntegerArray;
function GetDesglosadoCliente: Boolean; function GetDesglosadoCliente: Boolean;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
property FechaInicio: TDateTime read GetFechaInicio; property FechaInicio: Variant read GetFechaInicio;
property FechaFin: TDateTime read GetFechaFin; property FechaFin: Variant read GetFechaFin;
property ListaIDClientes: TIntegerArray read GetListaIDClientes; property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente; property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property ImporteMinimo: Currency read getImporteMinimo; property ImporteMinimo: Currency read getImporteMinimo;

8
Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClienteReport.pas
View File

@ -8,13 +8,13 @@ uses
type type
IEditorInformeFacturasClienteReport = interface(IEditorInformeBase) IEditorInformeFacturasClienteReport = interface(IEditorInformeBase)
['{AE5DD69C-6360-4A6A-A764-C0DAF5B5A948}'] ['{AE5DD69C-6360-4A6A-A764-C0DAF5B5A948}']
function GetFechaFin: TDateTime; function GetFechaFin: Variant;
function GetFechaInicio: TDateTime; function GetFechaInicio: Variant;
function GetListaIDClientes: TIntegerArray; function GetListaIDClientes: TIntegerArray;
function GetDesglosadoCliente: Boolean; function GetDesglosadoCliente: Boolean;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
property FechaInicio: TDateTime read GetFechaInicio; property FechaInicio: Variant read GetFechaInicio;
property FechaFin: TDateTime read GetFechaFin; property FechaFin: Variant read GetFechaFin;
property ListaIDClientes: TIntegerArray read GetListaIDClientes; property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente; property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property ImporteMinimo: Currency read getImporteMinimo; property ImporteMinimo: Currency read getImporteMinimo;

12
Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasProveedorPendientesReport.pas
View File

@ -8,13 +8,17 @@ uses
type type
IEditorInformeFacturasProveedorPendientesReport = interface(IEditorInformeBase) IEditorInformeFacturasProveedorPendientesReport = interface(IEditorInformeBase)
['{C0EFEC01-BF2C-4B56-9876-2818892FABFA}'] ['{C0EFEC01-BF2C-4B56-9876-2818892FABFA}']
function GetFechaFin: TDateTime; function GetFechaFin: Variant;
function GetFechaInicio: TDateTime; function GetFechaInicio: Variant;
function GetFechaVenFin: Variant;
function GetFechaVenInicio: Variant;
function GetListaIDProveedores: TIntegerArray; function GetListaIDProveedores: TIntegerArray;
function GetDesglosadoProveedor: Boolean; function GetDesglosadoProveedor: Boolean;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
property FechaInicio: TDateTime read GetFechaInicio; property FechaInicio: Variant read GetFechaInicio;
property FechaFin: TDateTime read GetFechaFin; property FechaFin: Variant read GetFechaFin;
property FechaVenInicio: Variant read GetFechaVenInicio;
property FechaVenFin: Variant read GetFechaVenFin;
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores; property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor; property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
property ImporteMinimo: Currency read getImporteMinimo; property ImporteMinimo: Currency read getImporteMinimo;

12
Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasProveedorReport.pas
View File

@ -8,13 +8,17 @@ uses
type type
IEditorInformeFacturasProveedorReport = interface(IEditorInformeBase) IEditorInformeFacturasProveedorReport = interface(IEditorInformeBase)
['{0E60C309-336C-455D-825B-7E4892A6CBC5}'] ['{0E60C309-336C-455D-825B-7E4892A6CBC5}']
function GetFechaFin: TDateTime; function GetFechaFin: Variant;
function GetFechaInicio: TDateTime; function GetFechaInicio: Variant;
function GetFechaVenFin: Variant;
function GetFechaVenInicio: Variant;
function GetListaIDProveedores: TIntegerArray; function GetListaIDProveedores: TIntegerArray;
function GetDesglosadoProveedor: Boolean; function GetDesglosadoProveedor: Boolean;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
property FechaInicio: TDateTime read GetFechaInicio; property FechaInicio: Variant read GetFechaInicio;
property FechaFin: TDateTime read GetFechaFin; property FechaFin: Variant read GetFechaFin;
property FechaVenInicio: Variant read GetFechaVenInicio;
property FechaVenFin: Variant read GetFechaVenFin;
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores; property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor; property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
property ImporteMinimo: Currency read getImporteMinimo; property ImporteMinimo: Currency read getImporteMinimo;

8
Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeIVAClientesReport.pas
View File

@ -8,13 +8,13 @@ uses
type type
IEditorInformeIVAClientesReport = interface(IEditorInformeBase) IEditorInformeIVAClientesReport = interface(IEditorInformeBase)
['{66F6F909-B1EC-4117-A115-12DFB62E6120}'] ['{66F6F909-B1EC-4117-A115-12DFB62E6120}']
function GetFechaFin: TDateTime; function GetFechaFin: Variant;
function GetFechaInicio: TDateTime; function GetFechaInicio: Variant;
function GetListaIDClientes: TIntegerArray; function GetListaIDClientes: TIntegerArray;
function GetDesglosadoCliente: Boolean; function GetDesglosadoCliente: Boolean;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
property FechaInicio: TDateTime read GetFechaInicio; property FechaInicio: Variant read GetFechaInicio;
property FechaFin: TDateTime read GetFechaFin; property FechaFin: Variant read GetFechaFin;
property ListaIDClientes: TIntegerArray read GetListaIDClientes; property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente; property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property ImporteMinimo: Currency read getImporteMinimo; property ImporteMinimo: Currency read getImporteMinimo;

8
Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeIVAProveedoresReport.pas
View File

@ -8,13 +8,13 @@ uses
type type
IEditorInformeIVAProveedoresReport = interface(IEditorInformeBase) IEditorInformeIVAProveedoresReport = interface(IEditorInformeBase)
['{1EC723DF-B7F7-49F9-83FA-DF628FEF4B26}'] ['{1EC723DF-B7F7-49F9-83FA-DF628FEF4B26}']
function GetFechaFin: TDateTime; function GetFechaFin: Variant;
function GetFechaInicio: TDateTime; function GetFechaInicio: Variant;
function GetListaIDProveedores: TIntegerArray; function GetListaIDProveedores: TIntegerArray;
function GetDesglosadoProveedor: Boolean; function GetDesglosadoProveedor: Boolean;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
property FechaInicio: TDateTime read GetFechaInicio; property FechaInicio: Variant read GetFechaInicio;
property FechaFin: TDateTime read GetFechaFin; property FechaFin: Variant read GetFechaFin;
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores; property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor; property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
property ImporteMinimo: Currency read getImporteMinimo; property ImporteMinimo: Currency read getImporteMinimo;

8
Source/Modulos/Gestor de informes/Controller/View/uIEditorInformePedidosReport.pas
View File

@ -8,13 +8,13 @@ uses
type type
IEditorInformePedidosReport = interface(IEditorInformeBase) IEditorInformePedidosReport = interface(IEditorInformeBase)
['{70B07429-BCB2-416F-8C42-6D7BFFA152D5}'] ['{70B07429-BCB2-416F-8C42-6D7BFFA152D5}']
function GetFechaFin: TDateTime; function GetFechaFin: Variant;
function GetFechaInicio: TDateTime; function GetFechaInicio: Variant;
function GetListaIDProveedores: TIntegerArray; function GetListaIDProveedores: TIntegerArray;
function GetDesglosadoProveedor: Boolean; function GetDesglosadoProveedor: Boolean;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
property FechaInicio: TDateTime read GetFechaInicio; property FechaInicio: Variant read GetFechaInicio;
property FechaFin: TDateTime read GetFechaFin; property FechaFin: Variant read GetFechaFin;
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores; property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor; property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
property ImporteMinimo: Currency read getImporteMinimo; property ImporteMinimo: Currency read getImporteMinimo;

8
Source/Modulos/Gestor de informes/Controller/View/uIEditorInformePresupuestosReport.pas
View File

@ -8,13 +8,13 @@ uses
type type
IEditorInformePresupuestosReport = interface(IEditorInformeBase) IEditorInformePresupuestosReport = interface(IEditorInformeBase)
['{99BBD05C-8AEF-4BA7-83C6-FC467F14488C}'] ['{99BBD05C-8AEF-4BA7-83C6-FC467F14488C}']
function GetFechaFin: TDateTime; function GetFechaFin: Variant;
function GetFechaInicio: TDateTime; function GetFechaInicio: Variant;
function GetListaIDClientes: TIntegerArray; function GetListaIDClientes: TIntegerArray;
function GetDesglosadoCliente: Boolean; function GetDesglosadoCliente: Boolean;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
property FechaInicio: TDateTime read GetFechaInicio; property FechaInicio: Variant read GetFechaInicio;
property FechaFin: TDateTime read GetFechaFin; property FechaFin: Variant read GetFechaFin;
property ListaIDClientes: TIntegerArray read GetListaIDClientes; property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente; property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property ImporteMinimo: Currency read getImporteMinimo; property ImporteMinimo: Currency read getImporteMinimo;

12
Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeRecibosCliPendientesReport.pas
View File

@ -8,13 +8,17 @@ uses
type type
IEditorInformeRecibosCliPendientesReport = interface(IEditorInformeBase) IEditorInformeRecibosCliPendientesReport = interface(IEditorInformeBase)
['{BD1EA0DE-B610-4170-9BFC-4A7C0F7ABF0E}'] ['{BD1EA0DE-B610-4170-9BFC-4A7C0F7ABF0E}']
function GetFechaFin: TDateTime; function GetFechaFin: Variant;
function GetFechaInicio: TDateTime; function GetFechaInicio: Variant;
function GetFechaVenFin: Variant;
function GetFechaVenInicio: Variant;
function GetListaIDClientes: TIntegerArray; function GetListaIDClientes: TIntegerArray;
function GetDesglosadoCliente: Boolean; function GetDesglosadoCliente: Boolean;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
property FechaInicio: TDateTime read GetFechaInicio; property FechaInicio: Variant read GetFechaInicio;
property FechaFin: TDateTime read GetFechaFin; property FechaFin: Variant read GetFechaFin;
property FechaVenInicio: Variant read GetFechaVenInicio;
property FechaVenFin: Variant read GetFechaVenFin;
property ListaIDClientes: TIntegerArray read GetListaIDClientes; property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente; property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property ImporteMinimo: Currency read getImporteMinimo; property ImporteMinimo: Currency read getImporteMinimo;

12
Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeRecibosClienteReport.pas
View File

@ -8,13 +8,17 @@ uses
type type
IEditorInformeRecibosClienteReport = interface(IEditorInformeBase) IEditorInformeRecibosClienteReport = interface(IEditorInformeBase)
['{F0DAD68E-198D-41BE-B04E-C76486208631}'] ['{F0DAD68E-198D-41BE-B04E-C76486208631}']
function GetFechaFin: TDateTime; function GetFechaFin: Variant;
function GetFechaInicio: TDateTime; function GetFechaInicio: Variant;
function GetFechaVenFin: Variant;
function GetFechaVenInicio: Variant;
function GetListaIDClientes: TIntegerArray; function GetListaIDClientes: TIntegerArray;
function GetDesglosadoCliente: Boolean; function GetDesglosadoCliente: Boolean;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
property FechaInicio: TDateTime read GetFechaInicio; property FechaInicio: Variant read GetFechaInicio;
property FechaFin: TDateTime read GetFechaFin; property FechaFin: Variant read GetFechaFin;
property FechaVenInicio: Variant read GetFechaVenInicio;
property FechaVenFin: Variant read GetFechaVenFin;
property ListaIDClientes: TIntegerArray read GetListaIDClientes; property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente; property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property ImporteMinimo: Currency read getImporteMinimo; property ImporteMinimo: Currency read getImporteMinimo;

12
Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeRecibosProvPendientesReport.pas
View File

@ -8,13 +8,17 @@ uses
type type
IEditorInformeRecibosProvPendientesReport = interface(IEditorInformeBase) IEditorInformeRecibosProvPendientesReport = interface(IEditorInformeBase)
['{DC6AA05C-24F5-4F2A-BCB7-625629BF4297}'] ['{DC6AA05C-24F5-4F2A-BCB7-625629BF4297}']
function GetFechaFin: TDateTime; function GetFechaFin: Variant;
function GetFechaInicio: TDateTime; function GetFechaInicio: Variant;
function GetFechaVenFin: Variant;
function GetFechaVenInicio: Variant;
function GetListaIDProveedores: TIntegerArray; function GetListaIDProveedores: TIntegerArray;
function GetDesglosadoProveedor: Boolean; function GetDesglosadoProveedor: Boolean;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
property FechaInicio: TDateTime read GetFechaInicio; property FechaInicio: Variant read GetFechaInicio;
property FechaFin: TDateTime read GetFechaFin; property FechaFin: Variant read GetFechaFin;
property FechaVenInicio: Variant read GetFechaVenInicio;
property FechaVenFin: Variant read GetFechaVenFin;
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores; property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor; property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
property ImporteMinimo: Currency read getImporteMinimo; property ImporteMinimo: Currency read getImporteMinimo;

12
Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeRecibosProveedorReport.pas
View File

@ -8,13 +8,17 @@ uses
type type
IEditorInformeRecibosProveedorReport = interface(IEditorInformeBase) IEditorInformeRecibosProveedorReport = interface(IEditorInformeBase)
['{63D1B0D1-9BDD-48B6-BD3B-C05AC6B49C9C}'] ['{63D1B0D1-9BDD-48B6-BD3B-C05AC6B49C9C}']
function GetFechaFin: TDateTime; function GetFechaFin: Variant;
function GetFechaInicio: TDateTime; function GetFechaInicio: Variant;
function GetFechaVenFin: Variant;
function GetFechaVenInicio: Variant;
function GetListaIDProveedores: TIntegerArray; function GetListaIDProveedores: TIntegerArray;
function GetDesglosadoProveedor: Boolean; function GetDesglosadoProveedor: Boolean;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
property FechaInicio: TDateTime read GetFechaInicio; property FechaInicio: Variant read GetFechaInicio;
property FechaFin: TDateTime read GetFechaFin; property FechaFin: Variant read GetFechaFin;
property FechaVenInicio: Variant read GetFechaVenInicio;
property FechaVenFin: Variant read GetFechaVenFin;
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores; property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor; property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
property ImporteMinimo: Currency read getImporteMinimo; property ImporteMinimo: Currency read getImporteMinimo;

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

@ -383,7 +383,7 @@ begin
AEditor.Controller := Self; AEditor.Controller := Self;
AEditor.Title := 'Listado de facturas de proveedor'; AEditor.Title := 'Listado de facturas de proveedor';
AStream := FDataModule.GenerarInformeListadoFacturasProv(AppFactuGES.EmpresaActiva.ID, AStream := FDataModule.GenerarInformeListadoFacturasProv(AppFactuGES.EmpresaActiva.ID,
AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDProveedores, AEditor.FechaInicio, AEditor.FechaFin, AEditor.FechaVenInicio, AEditor.FechaVenFin, AEditor.ListaIDProveedores,
AEditor.DesglosadoProveedor, AEditor.ImporteMinimo); AEditor.DesglosadoProveedor, AEditor.ImporteMinimo);
AEditor.LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
AEditor.Preview; AEditor.Preview;
@ -406,7 +406,7 @@ begin
AEditor.Controller := Self; AEditor.Controller := Self;
AEditor.Title := 'Listado de facturas de proveedor pendientes'; AEditor.Title := 'Listado de facturas de proveedor pendientes';
AStream := FDataModule.GenerarInformeListadoFacturasProvPendientes(AppFactuGES.EmpresaActiva.ID, AStream := FDataModule.GenerarInformeListadoFacturasProvPendientes(AppFactuGES.EmpresaActiva.ID,
AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDProveedores, AEditor.FechaInicio, AEditor.FechaFin, AEditor.FechaVenInicio, AEditor.FechaVenFin, AEditor.ListaIDProveedores,
AEditor.DesglosadoProveedor, AEditor.ImporteMinimo); AEditor.DesglosadoProveedor, AEditor.ImporteMinimo);
AEditor.LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
AEditor.Preview; AEditor.Preview;
@ -476,7 +476,7 @@ begin
try try
AEditor.Controller := Self; AEditor.Controller := Self;
AStream := FDataModule.GenerarInformeListadoRecibosCliente(AppFactuGES.EmpresaActiva.ID, AStream := FDataModule.GenerarInformeListadoRecibosCliente(AppFactuGES.EmpresaActiva.ID,
AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDClientes, AEditor.FechaInicio, AEditor.FechaFin, AEditor.FechaVenInicio, AEditor.FechaVenFin, AEditor.ListaIDClientes,
AEditor.DesglosadoCliente, AEditor.ImporteMinimo); AEditor.DesglosadoCliente, AEditor.ImporteMinimo);
AEditor.LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
AEditor.Preview; AEditor.Preview;
@ -499,7 +499,7 @@ begin
try try
AEditor.Controller := Self; AEditor.Controller := Self;
AStream := FDataModule.GenerarInformeListadoRecibosCliPendientes(AppFactuGES.EmpresaActiva.ID, AStream := FDataModule.GenerarInformeListadoRecibosCliPendientes(AppFactuGES.EmpresaActiva.ID,
AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDClientes, AEditor.FechaInicio, AEditor.FechaFin, AEditor.FechaVenInicio, AEditor.FechaVenFin, AEditor.ListaIDClientes,
AEditor.DesglosadoCliente, AEditor.ImporteMinimo); AEditor.DesglosadoCliente, AEditor.ImporteMinimo);
AEditor.LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
AEditor.Preview; AEditor.Preview;
@ -523,7 +523,7 @@ begin
try try
AEditor.Controller := Self; AEditor.Controller := Self;
AStream := FDataModule.GenerarInformeListadoRecibosProveedor(AppFactuGES.EmpresaActiva.ID, AStream := FDataModule.GenerarInformeListadoRecibosProveedor(AppFactuGES.EmpresaActiva.ID,
AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDProveedores, AEditor.FechaInicio, AEditor.FechaFin, AEditor.FechaVenInicio, AEditor.FechaVenFin, AEditor.ListaIDProveedores,
AEditor.DesglosadoProveedor, AEditor.ImporteMinimo); AEditor.DesglosadoProveedor, AEditor.ImporteMinimo);
AEditor.LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
AEditor.Preview; AEditor.Preview;
@ -546,7 +546,7 @@ begin
try try
AEditor.Controller := Self; AEditor.Controller := Self;
AStream := FDataModule.GenerarInformeListadoRecibosProvPendientes(AppFactuGES.EmpresaActiva.ID, AStream := FDataModule.GenerarInformeListadoRecibosProvPendientes(AppFactuGES.EmpresaActiva.ID,
AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDProveedores, AEditor.FechaInicio, AEditor.FechaFin, AEditor.FechaVenInicio, AEditor.FechaVenFin, AEditor.ListaIDProveedores,
AEditor.DesglosadoProveedor, AEditor.ImporteMinimo); AEditor.DesglosadoProveedor, AEditor.ImporteMinimo);
AEditor.LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
AEditor.Preview; AEditor.Preview;

64
Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas
View File

@ -23,28 +23,28 @@ type
// function GetItems : IBizFacturaCliente; // function GetItems : IBizFacturaCliente;
//MODULO PRESUPUESTOS DE CLIENTE //MODULO PRESUPUESTOS DE CLIENTE
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
//MODULO FACTURAS DE CLIENTE //MODULO FACTURAS DE CLIENTE
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
//MODULO RECIBOS DE CLIENTE //MODULO RECIBOS DE CLIENTE
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
//MODULO PEDIDOS DE PROVEEDOR //MODULO PEDIDOS DE PROVEEDOR
function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
//MODULO FACTURAS DE PROVEEDOR //MODULO FACTURAS DE PROVEEDOR
function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
//MODULO RECIBOS DE CLIENTE //MODULO RECIBOS DE CLIENTE
function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
procedure getInforme; procedure getInforme;
end; end;
@ -65,7 +65,7 @@ begin
RORemoteService.Message := dmConexion.Message; RORemoteService.Message := dmConexion.Message;
end; end;
function TDataModuleGestorInformes.GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function TDataModuleGestorInformes.GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
begin begin
try try
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeIVAClientes(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo); Result := (RORemoteService as IsrvGestorInformes).GenerarInformeIVAClientes(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo);
@ -74,7 +74,7 @@ begin
end; end;
function TDataModuleGestorInformes.GenerarInformeIVAProveedores( function TDataModuleGestorInformes.GenerarInformeIVAProveedores(
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
begin begin
@ -85,7 +85,7 @@ begin
end; end;
function TDataModuleGestorInformes.GenerarInformeListadoFacturasCli( function TDataModuleGestorInformes.GenerarInformeListadoFacturasCli(
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
begin begin
@ -96,7 +96,7 @@ begin
end; end;
function TDataModuleGestorInformes.GenerarInformeListadoFacturasCliPendientes( function TDataModuleGestorInformes.GenerarInformeListadoFacturasCliPendientes(
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
begin begin
@ -107,29 +107,31 @@ begin
end; end;
function TDataModuleGestorInformes.GenerarInformeListadoFacturasProv( function TDataModuleGestorInformes.GenerarInformeListadoFacturasProv(
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const FechaVenInicio: Variant; const FechaVenFin: Variant;
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
begin begin
try try
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasProv(IdEmpresa, FechaInicio, FechaFin, ListaIdProveedores, Desglosado, ImporteMinimo); Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasProv(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdProveedores, Desglosado, ImporteMinimo);
finally finally
end; end;
end; end;
function TDataModuleGestorInformes.GenerarInformeListadoFacturasProvPendientes( function TDataModuleGestorInformes.GenerarInformeListadoFacturasProvPendientes(
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const FechaVenInicio: Variant; const FechaVenFin: Variant;
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
begin begin
try try
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasProvPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIdProveedores, Desglosado, ImporteMinimo); Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasProvPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdProveedores, Desglosado, ImporteMinimo);
finally finally
end; end;
end; end;
function TDataModuleGestorInformes.GenerarInformeListadoPedidos( function TDataModuleGestorInformes.GenerarInformeListadoPedidos(
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
begin begin
@ -151,45 +153,49 @@ begin
end; end;
function TDataModuleGestorInformes.GenerarInformeListadoRecibosCliente( function TDataModuleGestorInformes.GenerarInformeListadoRecibosCliente(
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const FechaVenInicio: Variant; const FechaVenFin: Variant;
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
begin begin
try try
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosCliente(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo); Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosCliente(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdClientes, Desglosado, ImporteMinimo);
finally finally
end; end;
end; end;
function TDataModuleGestorInformes.GenerarInformeListadoRecibosCliPendientes( function TDataModuleGestorInformes.GenerarInformeListadoRecibosCliPendientes(
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const FechaVenInicio: Variant; const FechaVenFin: Variant;
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
begin begin
try try
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosCliPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo); Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosCliPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdClientes, Desglosado, ImporteMinimo);
finally finally
end; end;
end; end;
function TDataModuleGestorInformes.GenerarInformeListadoRecibosProveedor( function TDataModuleGestorInformes.GenerarInformeListadoRecibosProveedor(
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const FechaVenInicio: Variant; const FechaVenFin: Variant;
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
begin begin
try try
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosProveedor(IdEmpresa, FechaInicio, FechaFin, ListaIdProveedores, Desglosado, ImporteMinimo); Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosProveedor(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdProveedores, Desglosado, ImporteMinimo);
finally finally
end; end;
end; end;
function TDataModuleGestorInformes.GenerarInformeListadoRecibosProvPendientes( function TDataModuleGestorInformes.GenerarInformeListadoRecibosProvPendientes(
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const FechaVenInicio: Variant; const FechaVenFin: Variant;
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
begin begin
try try
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosProvPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIdProveedores, Desglosado, ImporteMinimo); Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosProvPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdProveedores, Desglosado, ImporteMinimo);
finally finally
end; end;
end; end;

24
Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas
View File

@ -12,28 +12,28 @@ type
procedure getInforme; procedure getInforme;
//MODULO PRESUPUESTOS DE CLIENTE //MODULO PRESUPUESTOS DE CLIENTE
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
//MODULO FACTURAS DE CLIENTE //MODULO FACTURAS DE CLIENTE
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
//MODULO RECIBOS DE CLIENTE //MODULO RECIBOS DE CLIENTE
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
//MODULO PEDIDOS DE PROVEEDOR //MODULO PEDIDOS DE PROVEEDOR
function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
//MODULO FACTURAS DE PROVEEDOR //MODULO FACTURAS DE PROVEEDOR
function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
//MODULO RECIBOS DE CLIENTE //MODULO RECIBOS DE CLIENTE
function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
end; end;

66
Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas
View File

@ -32,28 +32,28 @@ type
Bin2DataStreamer: TDABin2DataStreamer; Bin2DataStreamer: TDABin2DataStreamer;
public public
//MODULO PRESUPUESTOS CLIENTE //MODULO PRESUPUESTOS CLIENTE
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
//MODULO FACTURAS CLIENTE //MODULO FACTURAS CLIENTE
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
//MODULO RECIBOS CLIENTE //MODULO RECIBOS CLIENTE
function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
//MODULO PEDIDOS PROVEEDOR //MODULO PEDIDOS PROVEEDOR
function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
//MODULO FACTURAS PROVEEDOR //MODULO FACTURAS PROVEEDOR
function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
//MODULO RECIBOS PROVEEDOR //MODULO RECIBOS PROVEEDOR
function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
end; end;
implementation implementation
@ -69,7 +69,7 @@ begin
anInstance := TsrvGestorInformes.Create(nil); anInstance := TsrvGestorInformes.Create(nil);
end; end;
function TsrvGestorInformes.GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function TsrvGestorInformes.GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
var var
AReportGenerator : TRptFacturasCliente; AReportGenerator : TRptFacturasCliente;
begin begin
@ -82,7 +82,7 @@ begin
end; end;
function TsrvGestorInformes.GenerarInformeIVAProveedores(const IdEmpresa: Integer; function TsrvGestorInformes.GenerarInformeIVAProveedores(const IdEmpresa: Integer;
const FechaInicio, FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const FechaInicio, FechaFin: Variant; const ListaIDProveedores: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
var var
AReportGenerator : TRptFacturasProveedor; AReportGenerator : TRptFacturasProveedor;
@ -96,7 +96,7 @@ begin
end; end;
function TsrvGestorInformes.GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; function TsrvGestorInformes.GenerarInformeListadoFacturasCli(const IdEmpresa: Integer;
const FechaInicio, FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const FechaInicio, FechaFin: Variant; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
var var
AReportGenerator : TRptFacturasCliente; AReportGenerator : TRptFacturasCliente;
@ -110,7 +110,7 @@ begin
end; end;
function TsrvGestorInformes.GenerarInformeListadoFacturasCliPendientes( function TsrvGestorInformes.GenerarInformeListadoFacturasCliPendientes(
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant;
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
var var
@ -125,7 +125,8 @@ begin
end; end;
function TsrvGestorInformes.GenerarInformeListadoFacturasProv( function TsrvGestorInformes.GenerarInformeListadoFacturasProv(
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const FechaVenInicio, FechaVenFin: Variant;
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
var var
@ -133,14 +134,15 @@ var
begin begin
AReportGenerator := TRptFacturasProveedor.Create(nil); AReportGenerator := TRptFacturasProveedor.Create(nil);
try try
Result := AReportGenerator.GenerarInformeListadoFacturas(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo); Result := AReportGenerator.GenerarInformeListadoFacturas(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;
end; end;
function TsrvGestorInformes.GenerarInformeListadoFacturasProvPendientes( function TsrvGestorInformes.GenerarInformeListadoFacturasProvPendientes(
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const FechaVenInicio, FechaVenFin: Variant;
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
var var
@ -148,14 +150,14 @@ var
begin begin
AReportGenerator := TRptFacturasProveedor.Create(nil); AReportGenerator := TRptFacturasProveedor.Create(nil);
try try
Result := AReportGenerator.GenerarInformeListadoFacturasPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo); Result := AReportGenerator.GenerarInformeListadoFacturasPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;
end; end;
function TsrvGestorInformes.GenerarInformeListadoPedidos(const IdEmpresa: Integer; function TsrvGestorInformes.GenerarInformeListadoPedidos(const IdEmpresa: Integer;
const FechaInicio, FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const FechaInicio, FechaFin: Variant; const ListaIDProveedores: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
var var
AReportGenerator : TRptPedidosProveedor; AReportGenerator : TRptPedidosProveedor;
@ -169,7 +171,7 @@ begin
end; end;
function TsrvGestorInformes.GenerarInformeListadoPresupuestos( function TsrvGestorInformes.GenerarInformeListadoPresupuestos(
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
var var
@ -184,7 +186,8 @@ begin
end; end;
function TsrvGestorInformes.GenerarInformeListadoRecibosCliente( function TsrvGestorInformes.GenerarInformeListadoRecibosCliente(
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const FechaVenInicio: Variant; const FechaVenFin: Variant;
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
var var
@ -192,14 +195,15 @@ var
begin begin
AReportGenerator := TRptRecibosCliente.Create(nil); AReportGenerator := TRptRecibosCliente.Create(nil);
try try
Result := AReportGenerator.GenerarInformeListadoRecibos(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo); Result := AReportGenerator.GenerarInformeListadoRecibos(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, Desglosado, ImporteMinimo);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;
end; end;
function TsrvGestorInformes.GenerarInformeListadoRecibosCliPendientes( function TsrvGestorInformes.GenerarInformeListadoRecibosCliPendientes(
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const FechaVenInicio, FechaVenFin: Variant;
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
var var
@ -207,14 +211,15 @@ var
begin begin
AReportGenerator := TRptRecibosCliente.Create(nil); AReportGenerator := TRptRecibosCliente.Create(nil);
try try
Result := AReportGenerator.GenerarInformeListadoRecibosPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo); Result := AReportGenerator.GenerarInformeListadoRecibosPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, Desglosado, ImporteMinimo);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;
end; end;
function TsrvGestorInformes.GenerarInformeListadoRecibosProveedor( function TsrvGestorInformes.GenerarInformeListadoRecibosProveedor(
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const FechaVenInicio, FechaVenFin: Variant;
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
var var
@ -222,14 +227,15 @@ var
begin begin
AReportGenerator := TRptRecibosProveedor.Create(nil); AReportGenerator := TRptRecibosProveedor.Create(nil);
try try
Result := AReportGenerator.GenerarInformeListadoRecibos(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo); Result := AReportGenerator.GenerarInformeListadoRecibos(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;
end; end;
function TsrvGestorInformes.GenerarInformeListadoRecibosProvPendientes( function TsrvGestorInformes.GenerarInformeListadoRecibosProvPendientes(
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const FechaVenInicio, FechaVenFin: Variant;
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
var var
@ -237,7 +243,7 @@ var
begin begin
AReportGenerator := TRptRecibosProveedor.Create(nil); AReportGenerator := TRptRecibosProveedor.Create(nil);
try try
Result := AReportGenerator.GenerarInformeListadoRecibosPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo); Result := AReportGenerator.GenerarInformeListadoRecibosPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;

66
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.dfm
View File

@ -66,18 +66,6 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 136 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 inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182 Width = 182
ExplicitWidth = 182 ExplicitWidth = 182
@ -85,6 +73,44 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
Width = 85 Width = 85
end end
inherited edtFechaFin: TcxDateEdit inherited edtFechaFin: TcxDateEdit
Left = 72
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 72
ExplicitWidth = 100
Width = 100
end
inherited edtFechaIni: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 100
Width = 100
end
inherited cbPeriodo: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 170
Width = 170
end
end
inherited TBXLabel2: TTBXLabel
Width = 188
ExplicitWidth = 188
end
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Width = 182
Visible = False
ExplicitWidth = 182
inherited Label4: TLabel
Width = 160
end
inherited edtFechaVenFin: TcxDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
@ -92,7 +118,7 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
ExplicitWidth = 99 ExplicitWidth = 99
Width = 99 Width = 99
end end
inherited edtFechaIni: TcxDateEdit inherited edtFechaVenIni: TcxDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
@ -100,18 +126,20 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
ExplicitWidth = 97 ExplicitWidth = 97
Width = 97 Width = 97
end end
end inherited cbPeriodo2: TcxComboBox
inherited TBXLabel2: TTBXLabel Style.LookAndFeel.SkinName = ''
Width = 188 StyleDisabled.LookAndFeel.SkinName = ''
ExplicitWidth = 188 StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 212
end
end end
end end
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
Top = 368 Top = 368
TabOrder = 2 TabOrder = 2
ExplicitTop = 456 ExplicitTop = 368
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 40
inherited TBXButton1: TTBXButton inherited TBXButton1: TTBXButton
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 3

18
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.pas
View File

@ -11,7 +11,7 @@ uses
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
JvExControls, JvNavigationPane, uCustomView, JvExControls, JvNavigationPane, uCustomView,
uViewBase, uViewPeriodoFechas, uViewDatosYSeleccionClienteBase, uViewBase, uViewPeriodoFechas,
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes, uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf, TBXDkPanels, uEditorInformeBase, FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeBase, uViewParametrosInforme,
@ -26,8 +26,8 @@ type
procedure actRefrescarExecute(Sender: TObject); procedure actRefrescarExecute(Sender: TObject);
private private
FListaIDClientes: TIntegerArray; FListaIDClientes: TIntegerArray;
function GetFechaFin: TDateTime; function GetFechaFin: Variant;
function GetFechaInicio: TDateTime; function GetFechaInicio: Variant;
function GetListaIDClientes: TIntegerArray; function GetListaIDClientes: TIntegerArray;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
function GetDesglosadoCliente: Boolean; function GetDesglosadoCliente: Boolean;
@ -35,8 +35,8 @@ type
procedure RefrescarInforme; procedure RefrescarInforme;
public public
property FechaInicio: TDateTime read GetFechaInicio; property FechaInicio: Variant read GetFechaInicio;
property FechaFin: TDateTime read GetFechaFin; property FechaFin: Variant read GetFechaFin;
property ListaIDClientes: TIntegerArray read GetListaIDClientes; property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente; property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property ImporteMinimo: Currency read GetImporteMinimo; property ImporteMinimo: Currency read GetImporteMinimo;
@ -80,14 +80,14 @@ begin
Result := False; Result := False;
end; end;
function TfEditorInformeFacturasClientePendientesReport.GetFechaFin: TDateTime; function TfEditorInformeFacturasClientePendientesReport.GetFechaFin: Variant;
begin begin
Result := frViewPeriodoFechas1.edtFechaFin.Date; Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
end; end;
function TfEditorInformeFacturasClientePendientesReport.GetFechaInicio: TDateTime; function TfEditorInformeFacturasClientePendientesReport.GetFechaInicio: Variant;
begin begin
Result := frViewPeriodoFechas1.edtFechaIni.Date; Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
end; end;
function TfEditorInformeFacturasClientePendientesReport.GetImporteMinimo: Currency; function TfEditorInformeFacturasClientePendientesReport.GetImporteMinimo: Currency;

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

@ -66,25 +66,59 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 136 ExplicitHeight = 136
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182 Width = 182
Height = 98
ExplicitWidth = 182 ExplicitWidth = 182
ExplicitHeight = 98
inherited Label3: TLabel
Width = 85
end
inherited edtFechaFin: TcxDateEdit
Left = 74
Top = 77
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 74
ExplicitTop = 77
ExplicitWidth = 99
Width = 99
end
inherited edtFechaIni: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 97
Width = 97
end
inherited cbPeriodo: TcxComboBox inherited cbPeriodo: TcxComboBox
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 153 ExplicitWidth = 170
Width = 153 Width = 170
end end
end end
inherited TBXAlignmentPanel2: TTBXAlignmentPanel inherited TBXLabel2: TTBXLabel
Width = 188
ExplicitWidth = 188
end
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Top = 136
Width = 182 Width = 182
Visible = False
ExplicitTop = 136
ExplicitWidth = 182 ExplicitWidth = 182
inherited Label3: TLabel inherited Label4: TLabel
Width = 85 Width = 160
end end
inherited edtFechaFin: TcxDateEdit inherited edtFechaVenFin: TcxDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
@ -92,7 +126,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
ExplicitWidth = 99 ExplicitWidth = 99
Width = 99 Width = 99
end end
inherited edtFechaIni: TcxDateEdit inherited edtFechaVenIni: TcxDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
@ -100,18 +134,20 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
ExplicitWidth = 97 ExplicitWidth = 97
Width = 97 Width = 97
end end
end inherited cbPeriodo2: TcxComboBox
inherited TBXLabel2: TTBXLabel Style.LookAndFeel.SkinName = ''
Width = 188 StyleDisabled.LookAndFeel.SkinName = ''
ExplicitWidth = 188 StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 212
end
end end
end end
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
Top = 368 Top = 368
TabOrder = 2 TabOrder = 2
ExplicitTop = 440 ExplicitTop = 368
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 50
inherited TBXButton1: TTBXButton inherited TBXButton1: TTBXButton
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 3

18
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.pas
View File

@ -11,7 +11,7 @@ uses
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
JvExControls, JvNavigationPane, uCustomView, JvExControls, JvNavigationPane, uCustomView,
uViewBase, uViewPeriodoFechas, uViewDatosYSeleccionClienteBase, uViewBase, uViewPeriodoFechas,
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes, uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf, TBXDkPanels, uEditorInformeBase, FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasClienteReport; uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasClienteReport;
@ -25,8 +25,8 @@ type
procedure actRefrescarExecute(Sender: TObject); procedure actRefrescarExecute(Sender: TObject);
private private
FListaIDClientes: TIntegerArray; FListaIDClientes: TIntegerArray;
function GetFechaFin: TDateTime; function GetFechaFin: Variant;
function GetFechaInicio: TDateTime; function GetFechaInicio: Variant;
function GetListaIDClientes: TIntegerArray; function GetListaIDClientes: TIntegerArray;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
function GetDesglosadoCliente: Boolean; function GetDesglosadoCliente: Boolean;
@ -34,8 +34,8 @@ type
procedure RefrescarInforme; procedure RefrescarInforme;
public public
property FechaInicio: TDateTime read GetFechaInicio; property FechaInicio: Variant read GetFechaInicio;
property FechaFin: TDateTime read GetFechaFin; property FechaFin: Variant read GetFechaFin;
property ListaIDClientes: TIntegerArray read GetListaIDClientes; property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente; property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property ImporteMinimo: Currency read GetImporteMinimo; property ImporteMinimo: Currency read GetImporteMinimo;
@ -79,14 +79,14 @@ begin
Result := False; Result := False;
end; end;
function TfEditorInformeFacturasClienteReport.GetFechaFin: TDateTime; function TfEditorInformeFacturasClienteReport.GetFechaFin: Variant;
begin begin
Result := frViewPeriodoFechas1.edtFechaFin.Date; Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
end; end;
function TfEditorInformeFacturasClienteReport.GetFechaInicio: TDateTime; function TfEditorInformeFacturasClienteReport.GetFechaInicio: Variant;
begin begin
Result := frViewPeriodoFechas1.edtFechaIni.Date; Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
end; end;
function TfEditorInformeFacturasClienteReport.GetImporteMinimo: Currency; function TfEditorInformeFacturasClienteReport.GetImporteMinimo: Currency;

99
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorPendientesReport.dfm
View File

@ -54,7 +54,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
Left = 0 Left = 0
Top = 0 Top = 0
Width = 188 Width = 188
Height = 136 Height = 240
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -65,46 +65,81 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 136 ExplicitHeight = 240
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182 Width = 182
ExplicitWidth = 182 ExplicitWidth = 182
inherited Label3: TLabel
Width = 85
end
inherited edtFechaFin: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 97
Width = 97
end
inherited edtFechaIni: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 97
Width = 97
end
inherited cbPeriodo: TcxComboBox inherited cbPeriodo: TcxComboBox
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 153 ExplicitWidth = 170
Width = 153 Width = 170
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
end end
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188 ExplicitWidth = 188
end end
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Width = 182
ExplicitWidth = 182
inherited Label4: TLabel
Width = 160
end
inherited edtFechaVenFin: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 97
Width = 97
end
inherited edtFechaVenIni: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 97
Width = 97
end
inherited cbPeriodo2: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 170
Width = 170
end
end
end end
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
Top = 368 Top = 368
@ -130,7 +165,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
end end
inline frViewFiltroImportes1: TfrViewFiltroImportes inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 0 Left = 0
Top = 136 Top = 240
Width = 188 Width = 188
Height = 77 Height = 77
Align = alTop Align = alTop
@ -143,7 +178,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitTop = 136 ExplicitTop = 240
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 77 ExplicitHeight = 77
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel
@ -163,7 +198,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
end end
inline frViewFiltroProveedores1: TfrViewFiltroProveedores inline frViewFiltroProveedores1: TfrViewFiltroProveedores
Left = 0 Left = 0
Top = 213 Top = 317
Width = 188 Width = 188
Height = 146 Height = 146
Align = alTop Align = alTop
@ -176,7 +211,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitTop = 213 ExplicitTop = 317
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 146 ExplicitHeight = 146
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel

32
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorPendientesReport.pas
View File

@ -26,8 +26,10 @@ type
procedure actRefrescarExecute(Sender: TObject); procedure actRefrescarExecute(Sender: TObject);
private private
FListaIDProveedores: TIntegerArray; FListaIDProveedores: TIntegerArray;
function GetFechaFin: TDateTime; function GetFechaFin: Variant;
function GetFechaInicio: TDateTime; function GetFechaInicio: Variant;
function GetFechaVenFin: Variant;
function GetFechaVenInicio: Variant;
function GetListaIDProveedores: TIntegerArray; function GetListaIDProveedores: TIntegerArray;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
function GetDesglosadoProveedor: Boolean; function GetDesglosadoProveedor: Boolean;
@ -35,8 +37,10 @@ type
procedure RefrescarInforme; procedure RefrescarInforme;
public public
property FechaInicio: TDateTime read GetFechaInicio; property FechaInicio: Variant read GetFechaInicio;
property FechaFin: TDateTime read GetFechaFin; property FechaFin: Variant read GetFechaFin;
property FechaVenInicio: Variant read GetFechaVenInicio;
property FechaVenFin: Variant read GetFechaVenFin;
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores; property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor; property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
property ImporteMinimo: Currency read GetImporteMinimo; property ImporteMinimo: Currency read GetImporteMinimo;
@ -80,14 +84,24 @@ begin
Result := False; Result := False;
end; end;
function TfEditorInformeFacturasProveedorPendientesReport.GetFechaFin: TDateTime; function TfEditorInformeFacturasProveedorPendientesReport.GetFechaFin: Variant;
begin begin
Result := frViewPeriodoFechas1.edtFechaFin.Date; Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
end; end;
function TfEditorInformeFacturasProveedorPendientesReport.GetFechaInicio: TDateTime; function TfEditorInformeFacturasProveedorPendientesReport.GetFechaInicio: Variant;
begin begin
Result := frViewPeriodoFechas1.edtFechaIni.Date; Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
end;
function TfEditorInformeFacturasProveedorPendientesReport.GetFechaVenFin: Variant;
begin
Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue;
end;
function TfEditorInformeFacturasProveedorPendientesReport.GetFechaVenInicio: Variant;
begin
Result := frViewPeriodoFechas1.edtFechaVenIni.EditValue;
end; end;
function TfEditorInformeFacturasProveedorPendientesReport.GetImporteMinimo: Currency; function TfEditorInformeFacturasProveedorPendientesReport.GetImporteMinimo: Currency;
@ -117,6 +131,8 @@ begin
AppFactuGES.EmpresaActiva.ID, AppFactuGES.EmpresaActiva.ID,
FechaInicio, FechaInicio,
FechaFin, FechaFin,
FechaVenInicio,
FechaVenFin,
ListaIDProveedores, ListaIDProveedores,
DesglosadoProveedor, DesglosadoProveedor,
ImporteMinimo); ImporteMinimo);

99
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.dfm
View File

@ -54,7 +54,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
Left = 0 Left = 0
Top = 0 Top = 0
Width = 188 Width = 188
Height = 136 Height = 240
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -65,46 +65,81 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 136 ExplicitHeight = 240
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182 Width = 182
ExplicitWidth = 182 ExplicitWidth = 182
inherited Label3: TLabel
Width = 85
end
inherited edtFechaFin: TcxDateEdit
Left = 77
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 77
ExplicitWidth = 96
Width = 96
end
inherited edtFechaIni: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 97
Width = 97
end
inherited cbPeriodo: TcxComboBox inherited cbPeriodo: TcxComboBox
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 153 ExplicitWidth = 170
Width = 153 Width = 170
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
end end
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188 ExplicitWidth = 188
end end
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Width = 182
ExplicitWidth = 182
inherited Label4: TLabel
Width = 160
end
inherited edtFechaVenFin: TcxDateEdit
Left = 77
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 77
ExplicitWidth = 96
Width = 96
end
inherited edtFechaVenIni: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 97
Width = 97
end
inherited cbPeriodo2: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 170
Width = 170
end
end
end end
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
Top = 368 Top = 368
@ -130,7 +165,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
end end
inline frViewFiltroImportes1: TfrViewFiltroImportes inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 0 Left = 0
Top = 136 Top = 240
Width = 188 Width = 188
Height = 77 Height = 77
Align = alTop Align = alTop
@ -143,7 +178,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitTop = 136 ExplicitTop = 240
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 77 ExplicitHeight = 77
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel
@ -163,7 +198,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
end end
inline frViewFiltroProveedores1: TfrViewFiltroProveedores inline frViewFiltroProveedores1: TfrViewFiltroProveedores
Left = 0 Left = 0
Top = 213 Top = 317
Width = 188 Width = 188
Height = 146 Height = 146
Align = alTop Align = alTop
@ -176,7 +211,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitTop = 213 ExplicitTop = 317
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 146 ExplicitHeight = 146
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel

32
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.pas
View File

@ -25,8 +25,10 @@ type
procedure actRefrescarExecute(Sender: TObject); procedure actRefrescarExecute(Sender: TObject);
private private
FListaIDProveedores: TIntegerArray; FListaIDProveedores: TIntegerArray;
function GetFechaFin: TDateTime; function GetFechaFin: Variant;
function GetFechaInicio: TDateTime; function GetFechaInicio: Variant;
function GetFechaVenFin: Variant;
function GetFechaVenInicio: Variant;
function GetListaIDProveedores: TIntegerArray; function GetListaIDProveedores: TIntegerArray;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
function GetDesglosadoProveedor: Boolean; function GetDesglosadoProveedor: Boolean;
@ -34,8 +36,10 @@ type
procedure RefrescarInforme; procedure RefrescarInforme;
public public
property FechaInicio: TDateTime read GetFechaInicio; property FechaInicio: Variant read GetFechaInicio;
property FechaFin: TDateTime read GetFechaFin; property FechaFin: Variant read GetFechaFin;
property FechaVenInicio: Variant read GetFechaVenInicio;
property FechaVenFin: Variant read GetFechaVenFin;
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores; property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor; property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
property ImporteMinimo: Currency read GetImporteMinimo; property ImporteMinimo: Currency read GetImporteMinimo;
@ -79,14 +83,24 @@ begin
Result := False; Result := False;
end; end;
function TfEditorInformeFacturasProveedorReport.GetFechaFin: TDateTime; function TfEditorInformeFacturasProveedorReport.GetFechaFin: Variant;
begin begin
Result := frViewPeriodoFechas1.edtFechaFin.Date; Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
end; end;
function TfEditorInformeFacturasProveedorReport.GetFechaInicio: TDateTime; function TfEditorInformeFacturasProveedorReport.GetFechaInicio: Variant;
begin begin
Result := frViewPeriodoFechas1.edtFechaIni.Date; Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
end;
function TfEditorInformeFacturasProveedorReport.GetFechaVenFin: Variant;
begin
Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue;
end;
function TfEditorInformeFacturasProveedorReport.GetFechaVenInicio: Variant;
begin
Result := frViewPeriodoFechas1.edtFechaVenIni.EditValue;
end; end;
function TfEditorInformeFacturasProveedorReport.GetImporteMinimo: Currency; function TfEditorInformeFacturasProveedorReport.GetImporteMinimo: Currency;
@ -116,6 +130,8 @@ begin
AppFactuGES.EmpresaActiva.ID, AppFactuGES.EmpresaActiva.ID,
FechaInicio, FechaInicio,
FechaFin, FechaFin,
FechaVenInicio,
FechaVenFin,
ListaIDProveedores, ListaIDProveedores,
DesglosadoProveedor, DesglosadoProveedor,
ImporteMinimo); ImporteMinimo);

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

@ -66,25 +66,53 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 136 ExplicitHeight = 136
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182 Width = 182
ExplicitWidth = 182 ExplicitWidth = 182
inherited Label3: TLabel
Width = 85
end
inherited edtFechaFin: TcxDateEdit
Left = 77
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 77
ExplicitWidth = 96
Width = 96
end
inherited edtFechaIni: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 97
Width = 97
end
inherited cbPeriodo: TcxComboBox inherited cbPeriodo: TcxComboBox
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 153 ExplicitWidth = 170
Width = 153 Width = 170
end end
end end
inherited TBXAlignmentPanel2: TTBXAlignmentPanel inherited TBXLabel2: TTBXLabel
Width = 188
ExplicitWidth = 188
end
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Width = 182 Width = 182
Visible = False
ExplicitWidth = 182 ExplicitWidth = 182
inherited Label3: TLabel inherited Label4: TLabel
Width = 172 Width = 160
end end
inherited edtFechaFin: TcxDateEdit inherited edtFechaVenFin: TcxDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
@ -92,7 +120,7 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
ExplicitWidth = 99 ExplicitWidth = 99
Width = 99 Width = 99
end end
inherited edtFechaIni: TcxDateEdit inherited edtFechaVenIni: TcxDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
@ -100,10 +128,13 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
ExplicitWidth = 97 ExplicitWidth = 97
Width = 97 Width = 97
end end
end inherited cbPeriodo2: TcxComboBox
inherited TBXLabel2: TTBXLabel Style.LookAndFeel.SkinName = ''
Width = 188 StyleDisabled.LookAndFeel.SkinName = ''
ExplicitWidth = 188 StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 212
end
end end
end end
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel

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

@ -25,8 +25,8 @@ type
procedure actRefrescarExecute(Sender: TObject); procedure actRefrescarExecute(Sender: TObject);
private private
FListaIDClientes: TIntegerArray; FListaIDClientes: TIntegerArray;
function GetFechaFin: TDateTime; function GetFechaFin: Variant;
function GetFechaInicio: TDateTime; function GetFechaInicio: Variant;
function GetListaIDClientes: TIntegerArray; function GetListaIDClientes: TIntegerArray;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
function GetDesglosadoCliente: Boolean; function GetDesglosadoCliente: Boolean;
@ -34,8 +34,8 @@ type
procedure RefrescarInforme; procedure RefrescarInforme;
public public
property FechaInicio: TDateTime read GetFechaInicio; property FechaInicio: Variant read GetFechaInicio;
property FechaFin: TDateTime read GetFechaFin; property FechaFin: Variant read GetFechaFin;
property ListaIDClientes: TIntegerArray read GetListaIDClientes; property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente; property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property ImporteMinimo: Currency read GetImporteMinimo; property ImporteMinimo: Currency read GetImporteMinimo;
@ -79,14 +79,14 @@ begin
Result := False; Result := False;
end; end;
function TfEditorInformeIVAClientesReport.GetFechaFin: TDateTime; function TfEditorInformeIVAClientesReport.GetFechaFin: Variant;
begin begin
Result := frViewPeriodoFechas1.edtFechaFin.Date; Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
end; end;
function TfEditorInformeIVAClientesReport.GetFechaInicio: TDateTime; function TfEditorInformeIVAClientesReport.GetFechaInicio: Variant;
begin begin
Result := frViewPeriodoFechas1.edtFechaIni.Date; Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
end; end;
function TfEditorInformeIVAClientesReport.GetImporteMinimo: Currency; function TfEditorInformeIVAClientesReport.GetImporteMinimo: Currency;

65
Source/Modulos/Gestor de informes/Views/uEditorInformeIVAProveedoresReport.dfm
View File

@ -66,18 +66,6 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 136 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 inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182 Width = 182
ExplicitWidth = 182 ExplicitWidth = 182
@ -85,6 +73,46 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
Width = 85 Width = 85
end end
inherited edtFechaFin: TcxDateEdit inherited edtFechaFin: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 97
Width = 97
end
inherited edtFechaIni: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 97
Width = 97
end
inherited cbPeriodo: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 170
Width = 170
end
end
inherited TBXLabel2: TTBXLabel
Width = 188
ExplicitWidth = 188
end
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Width = 182
Visible = False
ExplicitWidth = 182
inherited Label4: TLabel
Width = 160
end
inherited edtFechaVenFin: TcxDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
@ -92,7 +120,7 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
ExplicitWidth = 99 ExplicitWidth = 99
Width = 99 Width = 99
end end
inherited edtFechaIni: TcxDateEdit inherited edtFechaVenIni: TcxDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
@ -100,10 +128,13 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
ExplicitWidth = 97 ExplicitWidth = 97
Width = 97 Width = 97
end end
end inherited cbPeriodo2: TcxComboBox
inherited TBXLabel2: TTBXLabel Style.LookAndFeel.SkinName = ''
Width = 188 StyleDisabled.LookAndFeel.SkinName = ''
ExplicitWidth = 188 StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 212
end
end end
end end
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel

16
Source/Modulos/Gestor de informes/Views/uEditorInformeIVAProveedoresReport.pas
View File

@ -25,8 +25,8 @@ type
procedure actRefrescarExecute(Sender: TObject); procedure actRefrescarExecute(Sender: TObject);
private private
FListaIDProveedores: TIntegerArray; FListaIDProveedores: TIntegerArray;
function GetFechaFin: TDateTime; function GetFechaFin: Variant;
function GetFechaInicio: TDateTime; function GetFechaInicio: Variant;
function GetListaIDProveedores: TIntegerArray; function GetListaIDProveedores: TIntegerArray;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
function GetDesglosadoProveedor: Boolean; function GetDesglosadoProveedor: Boolean;
@ -34,8 +34,8 @@ type
procedure RefrescarInforme; procedure RefrescarInforme;
public public
property FechaInicio: TDateTime read GetFechaInicio; property FechaInicio: Variant read GetFechaInicio;
property FechaFin: TDateTime read GetFechaFin; property FechaFin: Variant read GetFechaFin;
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores; property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor; property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
property ImporteMinimo: Currency read GetImporteMinimo; property ImporteMinimo: Currency read GetImporteMinimo;
@ -79,14 +79,14 @@ begin
Result := False; Result := False;
end; end;
function TfEditorInformeIVAProveedoresReport.GetFechaFin: TDateTime; function TfEditorInformeIVAProveedoresReport.GetFechaFin: Variant;
begin begin
Result := frViewPeriodoFechas1.edtFechaFin.Date; Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
end; end;
function TfEditorInformeIVAProveedoresReport.GetFechaInicio: TDateTime; function TfEditorInformeIVAProveedoresReport.GetFechaInicio: Variant;
begin begin
Result := frViewPeriodoFechas1.edtFechaIni.Date; Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
end; end;
function TfEditorInformeIVAProveedoresReport.GetImporteMinimo: Currency; function TfEditorInformeIVAProveedoresReport.GetImporteMinimo: Currency;

65
Source/Modulos/Gestor de informes/Views/uEditorInformePresupuestosReport.dfm
View File

@ -66,18 +66,6 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 136 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 inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182 Width = 182
ExplicitWidth = 182 ExplicitWidth = 182
@ -85,6 +73,45 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport
Width = 85 Width = 85
end end
inherited edtFechaFin: TcxDateEdit inherited edtFechaFin: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 97
Width = 97
end
inherited edtFechaIni: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 97
Width = 97
end
inherited cbPeriodo: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 170
Width = 170
end
end
inherited TBXLabel2: TTBXLabel
Width = 188
ExplicitWidth = 188
end
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Width = 182
ExplicitWidth = 182
inherited Label4: TLabel
Width = 160
end
inherited edtFechaVenFin: TcxDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
@ -92,7 +119,7 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport
ExplicitWidth = 99 ExplicitWidth = 99
Width = 99 Width = 99
end end
inherited edtFechaIni: TcxDateEdit inherited edtFechaVenIni: TcxDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
@ -100,10 +127,14 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport
ExplicitWidth = 97 ExplicitWidth = 97
Width = 97 Width = 97
end end
end inherited cbPeriodo2: TcxComboBox
inherited TBXLabel2: TTBXLabel Style.LookAndFeel.SkinName = ''
Width = 188 StyleDisabled.LookAndFeel.SkinName = ''
ExplicitWidth = 188 StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 166
Width = 166
end
end end
end end
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel

18
Source/Modulos/Gestor de informes/Views/uEditorInformePresupuestosReport.pas
View File

@ -11,7 +11,7 @@ uses
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
JvExControls, JvNavigationPane, uCustomView, JvExControls, JvNavigationPane, uCustomView,
uViewBase, uViewPeriodoFechas, uViewDatosYSeleccionClienteBase, uViewBase, uViewPeriodoFechas,
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes, uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf, TBXDkPanels, uEditorInformeBase, FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformePresupuestosReport; uIEditorInformeBase, uViewParametrosInforme, uIEditorInformePresupuestosReport;
@ -25,8 +25,8 @@ type
procedure actRefrescarExecute(Sender: TObject); procedure actRefrescarExecute(Sender: TObject);
private private
FListaIDClientes: TIntegerArray; FListaIDClientes: TIntegerArray;
function GetFechaFin: TDateTime; function GetFechaFin: Variant;
function GetFechaInicio: TDateTime; function GetFechaInicio: Variant;
function GetListaIDClientes: TIntegerArray; function GetListaIDClientes: TIntegerArray;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
function GetDesglosadoCliente: Boolean; function GetDesglosadoCliente: Boolean;
@ -34,8 +34,8 @@ type
procedure RefrescarInforme; procedure RefrescarInforme;
public public
property FechaInicio: TDateTime read GetFechaInicio; property FechaInicio: Variant read GetFechaInicio;
property FechaFin: TDateTime read GetFechaFin; property FechaFin: Variant read GetFechaFin;
property ListaIDClientes: TIntegerArray read GetListaIDClientes; property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente; property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property ImporteMinimo: Currency read GetImporteMinimo; property ImporteMinimo: Currency read GetImporteMinimo;
@ -79,14 +79,14 @@ begin
Result := False; Result := False;
end; end;
function TfEditorInformePresupuestosReport.GetFechaFin: TDateTime; function TfEditorInformePresupuestosReport.GetFechaFin: Variant;
begin begin
Result := frViewPeriodoFechas1.edtFechaFin.Date; Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
end; end;
function TfEditorInformePresupuestosReport.GetFechaInicio: TDateTime; function TfEditorInformePresupuestosReport.GetFechaInicio: Variant;
begin begin
Result := frViewPeriodoFechas1.edtFechaIni.Date; Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
end; end;
function TfEditorInformePresupuestosReport.GetImporteMinimo: Currency; function TfEditorInformePresupuestosReport.GetImporteMinimo: Currency;

99
Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosCliPendientesReport.dfm
View File

@ -54,7 +54,7 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
Left = 0 Left = 0
Top = 0 Top = 0
Width = 188 Width = 188
Height = 136 Height = 240
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -65,46 +65,81 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 136 ExplicitHeight = 240
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182 Width = 182
ExplicitWidth = 182 ExplicitWidth = 182
inherited Label3: TLabel
Width = 172
end
inherited edtFechaFin: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 97
Width = 97
end
inherited edtFechaIni: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 97
Width = 97
end
inherited cbPeriodo: TcxComboBox inherited cbPeriodo: TcxComboBox
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 153 ExplicitWidth = 170
Width = 153 Width = 170
end
end
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182
ExplicitWidth = 182
inherited Label3: TLabel
Width = 85
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
end end
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188 ExplicitWidth = 188
end end
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Width = 182
ExplicitWidth = 182
inherited Label4: TLabel
Width = 172
end
inherited edtFechaVenFin: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 97
Width = 97
end
inherited edtFechaVenIni: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 97
Width = 97
end
inherited cbPeriodo2: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 170
Width = 170
end
end
end end
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
Top = 368 Top = 368
@ -130,7 +165,7 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
end end
inline frViewFiltroImportes1: TfrViewFiltroImportes inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 0 Left = 0
Top = 136 Top = 240
Width = 188 Width = 188
Height = 77 Height = 77
Align = alTop Align = alTop
@ -143,7 +178,7 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitTop = 136 ExplicitTop = 240
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 77 ExplicitHeight = 77
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel
@ -163,7 +198,7 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
end end
inline frViewFiltroClientes1: TfrViewFiltroClientes inline frViewFiltroClientes1: TfrViewFiltroClientes
Left = 0 Left = 0
Top = 213 Top = 317
Width = 188 Width = 188
Height = 146 Height = 146
Align = alTop Align = alTop
@ -176,7 +211,7 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitTop = 213 ExplicitTop = 317
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 146 ExplicitHeight = 146
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel

34
Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosCliPendientesReport.pas
View File

@ -11,7 +11,7 @@ uses
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
JvExControls, JvNavigationPane, uCustomView, JvExControls, JvNavigationPane, uCustomView,
uViewBase, uViewPeriodoFechas, uViewDatosYSeleccionClienteBase, uViewBase, uViewPeriodoFechas,
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes, uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf, TBXDkPanels, uEditorInformeBase, FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeRecibosCliPendientesReport; uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeRecibosCliPendientesReport;
@ -25,8 +25,10 @@ type
procedure actRefrescarExecute(Sender: TObject); procedure actRefrescarExecute(Sender: TObject);
private private
FListaIDClientes: TIntegerArray; FListaIDClientes: TIntegerArray;
function GetFechaFin: TDateTime; function GetFechaFin: Variant;
function GetFechaInicio: TDateTime; function GetFechaInicio: Variant;
function GetFechaVenFin: Variant;
function GetFechaVenInicio: Variant;
function GetListaIDClientes: TIntegerArray; function GetListaIDClientes: TIntegerArray;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
function GetDesglosadoCliente: Boolean; function GetDesglosadoCliente: Boolean;
@ -34,8 +36,10 @@ type
procedure RefrescarInforme; procedure RefrescarInforme;
public public
property FechaInicio: TDateTime read GetFechaInicio; property FechaInicio: Variant read GetFechaInicio;
property FechaFin: TDateTime read GetFechaFin; property FechaFin: Variant read GetFechaFin;
property FechaVenInicio: Variant read GetFechaVenInicio;
property FechaVenFin: Variant read GetFechaVenFin;
property ListaIDClientes: TIntegerArray read GetListaIDClientes; property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente; property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property ImporteMinimo: Currency read GetImporteMinimo; property ImporteMinimo: Currency read GetImporteMinimo;
@ -79,14 +83,24 @@ begin
Result := False; Result := False;
end; end;
function TfEditorInformeRecibosCliPendientesReport.GetFechaFin: TDateTime; function TfEditorInformeRecibosCliPendientesReport.GetFechaFin: Variant;
begin begin
Result := frViewPeriodoFechas1.edtFechaFin.Date; Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
end; end;
function TfEditorInformeRecibosCliPendientesReport.GetFechaInicio: TDateTime; function TfEditorInformeRecibosCliPendientesReport.GetFechaInicio: Variant;
begin begin
Result := frViewPeriodoFechas1.edtFechaIni.Date; Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
end;
function TfEditorInformeRecibosCliPendientesReport.GetFechaVenFin: Variant;
begin
Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue;
end;
function TfEditorInformeRecibosCliPendientesReport.GetFechaVenInicio: Variant;
begin
Result := frViewPeriodoFechas1.edtFechaVenIni.EditValue;
end; end;
function TfEditorInformeRecibosCliPendientesReport.GetImporteMinimo: Currency; function TfEditorInformeRecibosCliPendientesReport.GetImporteMinimo: Currency;
@ -116,6 +130,8 @@ begin
AppFactuGES.EmpresaActiva.ID, AppFactuGES.EmpresaActiva.ID,
FechaInicio, FechaInicio,
FechaFin, FechaFin,
FechaVenInicio,
FechaVenFin,
ListaIDClientes, ListaIDClientes,
DesglosadoCliente, DesglosadoCliente,
ImporteMinimo); ImporteMinimo);

99
Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosClienteReport.dfm
View File

@ -54,7 +54,7 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 188 Width = 188
Height = 136 Height = 240
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -65,46 +65,81 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 136 ExplicitHeight = 240
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182 Width = 182
ExplicitWidth = 182 ExplicitWidth = 182
inherited Label3: TLabel
Width = 172
end
inherited edtFechaFin: TcxDateEdit
Left = 77
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 77
ExplicitWidth = 96
Width = 96
end
inherited edtFechaIni: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 97
Width = 97
end
inherited cbPeriodo: TcxComboBox inherited cbPeriodo: TcxComboBox
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 153 ExplicitWidth = 170
Width = 153 Width = 170
end
end
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182
ExplicitWidth = 182
inherited Label3: TLabel
Width = 85
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
end end
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188 ExplicitWidth = 188
end end
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Width = 182
ExplicitWidth = 182
inherited Label4: TLabel
Width = 172
end
inherited edtFechaVenFin: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 97
Width = 97
end
inherited edtFechaVenIni: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 97
Width = 97
end
inherited cbPeriodo2: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 170
Width = 170
end
end
end end
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
Top = 368 Top = 368
@ -130,7 +165,7 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
end end
inline frViewFiltroImportes1: TfrViewFiltroImportes inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 0 Left = 0
Top = 136 Top = 240
Width = 188 Width = 188
Height = 77 Height = 77
Align = alTop Align = alTop
@ -143,7 +178,7 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitTop = 136 ExplicitTop = 240
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 77 ExplicitHeight = 77
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel
@ -163,7 +198,7 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
end end
inline frViewFiltroClientes1: TfrViewFiltroClientes inline frViewFiltroClientes1: TfrViewFiltroClientes
Left = 0 Left = 0
Top = 213 Top = 317
Width = 188 Width = 188
Height = 146 Height = 146
Align = alTop Align = alTop
@ -176,7 +211,7 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitTop = 213 ExplicitTop = 317
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 146 ExplicitHeight = 146
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel

34
Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosClienteReport.pas
View File

@ -11,7 +11,7 @@ uses
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
JvExControls, JvNavigationPane, uCustomView, JvExControls, JvNavigationPane, uCustomView,
uViewBase, uViewPeriodoFechas, uViewDatosYSeleccionClienteBase, uViewBase, uViewPeriodoFechas,
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes, uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf, TBXDkPanels, uEditorInformeBase, FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeRecibosClienteReport; uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeRecibosClienteReport;
@ -25,8 +25,10 @@ type
procedure actRefrescarExecute(Sender: TObject); procedure actRefrescarExecute(Sender: TObject);
private private
FListaIDClientes: TIntegerArray; FListaIDClientes: TIntegerArray;
function GetFechaFin: TDateTime; function GetFechaFin: Variant;
function GetFechaInicio: TDateTime; function GetFechaInicio: Variant;
function GetFechaVenFin: Variant;
function GetFechaVenInicio: Variant;
function GetListaIDClientes: TIntegerArray; function GetListaIDClientes: TIntegerArray;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
function GetDesglosadoCliente: Boolean; function GetDesglosadoCliente: Boolean;
@ -34,8 +36,10 @@ type
procedure RefrescarInforme; procedure RefrescarInforme;
public public
property FechaInicio: TDateTime read GetFechaInicio; property FechaInicio: Variant read GetFechaInicio;
property FechaFin: TDateTime read GetFechaFin; property FechaFin: Variant read GetFechaFin;
property FechaVenInicio: Variant read GetFechaVenInicio;
property FechaVenFin: Variant read GetFechaVenFin;
property ListaIDClientes: TIntegerArray read GetListaIDClientes; property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente; property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property ImporteMinimo: Currency read GetImporteMinimo; property ImporteMinimo: Currency read GetImporteMinimo;
@ -79,14 +83,24 @@ begin
Result := False; Result := False;
end; end;
function TfEditorInformeRecibosClienteReport.GetFechaFin: TDateTime; function TfEditorInformeRecibosClienteReport.GetFechaFin: Variant;
begin begin
Result := frViewPeriodoFechas1.edtFechaFin.Date; Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
end; end;
function TfEditorInformeRecibosClienteReport.GetFechaInicio: TDateTime; function TfEditorInformeRecibosClienteReport.GetFechaInicio: Variant;
begin begin
Result := frViewPeriodoFechas1.edtFechaIni.Date; Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
end;
function TfEditorInformeRecibosClienteReport.GetFechaVenFin: Variant;
begin
Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue;
end;
function TfEditorInformeRecibosClienteReport.GetFechaVenInicio: Variant;
begin
Result := frViewPeriodoFechas1.edtFechaVenIni.EditValue;
end; end;
function TfEditorInformeRecibosClienteReport.GetImporteMinimo: Currency; function TfEditorInformeRecibosClienteReport.GetImporteMinimo: Currency;
@ -116,6 +130,8 @@ begin
AppFactuGES.EmpresaActiva.ID, AppFactuGES.EmpresaActiva.ID,
FechaInicio, FechaInicio,
FechaFin, FechaFin,
FechaVenInicio,
FechaVenFin,
ListaIDClientes, ListaIDClientes,
DesglosadoCliente, DesglosadoCliente,
ImporteMinimo); ImporteMinimo);

87
Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProvPendientesReport.dfm
View File

@ -54,7 +54,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
Left = 0 Left = 0
Top = 0 Top = 0
Width = 188 Width = 188
Height = 136 Height = 240
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -65,19 +65,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 136 ExplicitHeight = 240
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 inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182 Width = 182
ExplicitWidth = 182 ExplicitWidth = 182
@ -85,26 +73,73 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
Width = 85 Width = 85
end end
inherited edtFechaFin: TcxDateEdit inherited edtFechaFin: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 99 ExplicitLeft = 76
Width = 99
end
inherited edtFechaIni: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 97 ExplicitWidth = 97
Width = 97 Width = 97
end end
inherited edtFechaIni: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 97
Width = 97
end
inherited cbPeriodo: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 170
Width = 170
end
end end
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188 ExplicitWidth = 188
end end
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Width = 182
ExplicitWidth = 182
inherited Label4: TLabel
Width = 160
end
inherited edtFechaVenFin: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 97
Width = 97
end
inherited edtFechaVenIni: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 97
Width = 97
end
inherited cbPeriodo2: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 170
Width = 170
end
end
end end
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
Top = 368 Top = 368
@ -130,7 +165,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
end end
inline frViewFiltroImportes1: TfrViewFiltroImportes inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 0 Left = 0
Top = 136 Top = 240
Width = 188 Width = 188
Height = 77 Height = 77
Align = alTop Align = alTop
@ -143,7 +178,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitTop = 136 ExplicitTop = 240
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 77 ExplicitHeight = 77
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel
@ -163,7 +198,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
end end
inline frViewFiltroProveedores1: TfrViewFiltroProveedores inline frViewFiltroProveedores1: TfrViewFiltroProveedores
Left = 0 Left = 0
Top = 213 Top = 317
Width = 188 Width = 188
Height = 146 Height = 146
Align = alTop Align = alTop
@ -176,7 +211,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitTop = 213 ExplicitTop = 317
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 146 ExplicitHeight = 146
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel

32
Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProvPendientesReport.pas
View File

@ -25,8 +25,10 @@ type
procedure actRefrescarExecute(Sender: TObject); procedure actRefrescarExecute(Sender: TObject);
private private
FListaIDProveedores: TIntegerArray; FListaIDProveedores: TIntegerArray;
function GetFechaFin: TDateTime; function GetFechaFin: Variant;
function GetFechaInicio: TDateTime; function GetFechaInicio: Variant;
function GetFechaVenFin: Variant;
function GetFechaVenInicio: Variant;
function GetListaIDProveedores: TIntegerArray; function GetListaIDProveedores: TIntegerArray;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
function GetDesglosadoProveedor: Boolean; function GetDesglosadoProveedor: Boolean;
@ -34,8 +36,10 @@ type
procedure RefrescarInforme; procedure RefrescarInforme;
public public
property FechaInicio: TDateTime read GetFechaInicio; property FechaInicio: Variant read GetFechaInicio;
property FechaFin: TDateTime read GetFechaFin; property FechaFin: Variant read GetFechaFin;
property FechaVenInicio: Variant read GetFechaVenInicio;
property FechaVenFin: Variant read GetFechaVenFin;
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores; property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor; property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
property ImporteMinimo: Currency read GetImporteMinimo; property ImporteMinimo: Currency read GetImporteMinimo;
@ -79,14 +83,24 @@ begin
Result := False; Result := False;
end; end;
function TfEditorInformeRecibosProvPendientesReport.GetFechaFin: TDateTime; function TfEditorInformeRecibosProvPendientesReport.GetFechaFin: Variant;
begin begin
Result := frViewPeriodoFechas1.edtFechaFin.Date; Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
end; end;
function TfEditorInformeRecibosProvPendientesReport.GetFechaInicio: TDateTime; function TfEditorInformeRecibosProvPendientesReport.GetFechaInicio: Variant;
begin begin
Result := frViewPeriodoFechas1.edtFechaIni.Date; Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
end;
function TfEditorInformeRecibosProvPendientesReport.GetFechaVenFin: Variant;
begin
Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue;
end;
function TfEditorInformeRecibosProvPendientesReport.GetFechaVenInicio: Variant;
begin
Result := frViewPeriodoFechas1.edtFechaVenIni.EditValue;
end; end;
function TfEditorInformeRecibosProvPendientesReport.GetImporteMinimo: Currency; function TfEditorInformeRecibosProvPendientesReport.GetImporteMinimo: Currency;
@ -116,6 +130,8 @@ begin
AppFactuGES.EmpresaActiva.ID, AppFactuGES.EmpresaActiva.ID,
FechaInicio, FechaInicio,
FechaFin, FechaFin,
FechaVenInicio,
FechaVenFin,
ListaIDProveedores, ListaIDProveedores,
DesglosadoProveedor, DesglosadoProveedor,
ImporteMinimo); ImporteMinimo);

91
Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProveedorReport.dfm
View File

@ -54,7 +54,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
Left = 0 Left = 0
Top = 0 Top = 0
Width = 188 Width = 188
Height = 136 Height = 240
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -65,19 +65,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 136 ExplicitHeight = 240
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 inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182 Width = 182
ExplicitWidth = 182 ExplicitWidth = 182
@ -85,26 +73,77 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
Width = 85 Width = 85
end end
inherited edtFechaFin: TcxDateEdit inherited edtFechaFin: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 99 ExplicitLeft = 76
Width = 99
end
inherited edtFechaIni: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 97 ExplicitWidth = 97
Width = 97 Width = 97
end end
inherited edtFechaIni: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 97
Width = 97
end
inherited cbPeriodo: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 170
Width = 170
end
end end
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188 ExplicitWidth = 188
end end
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Width = 182
Height = 99
ExplicitWidth = 182
ExplicitHeight = 99
inherited Label4: TLabel
Width = 160
end
inherited edtFechaVenFin: TcxDateEdit
Left = 76
Top = 78
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitTop = 78
ExplicitWidth = 97
Width = 97
end
inherited edtFechaVenIni: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 97
Width = 97
end
inherited cbPeriodo2: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 170
Width = 170
end
end
end end
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
Top = 368 Top = 368
@ -130,7 +169,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
end end
inline frViewFiltroImportes1: TfrViewFiltroImportes inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 0 Left = 0
Top = 136 Top = 240
Width = 188 Width = 188
Height = 77 Height = 77
Align = alTop Align = alTop
@ -143,7 +182,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitTop = 136 ExplicitTop = 240
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 77 ExplicitHeight = 77
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel
@ -163,7 +202,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
end end
inline frViewFiltroProveedores1: TfrViewFiltroProveedores inline frViewFiltroProveedores1: TfrViewFiltroProveedores
Left = 0 Left = 0
Top = 213 Top = 317
Width = 188 Width = 188
Height = 146 Height = 146
Align = alTop Align = alTop
@ -176,7 +215,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitTop = 213 ExplicitTop = 317
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 146 ExplicitHeight = 146
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel

32
Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProveedorReport.pas
View File

@ -25,8 +25,10 @@ type
procedure actRefrescarExecute(Sender: TObject); procedure actRefrescarExecute(Sender: TObject);
private private
FListaIDProveedores: TIntegerArray; FListaIDProveedores: TIntegerArray;
function GetFechaFin: TDateTime; function GetFechaFin: Variant;
function GetFechaInicio: TDateTime; function GetFechaInicio: Variant;
function GetFechaVenFin: Variant;
function GetFechaVenInicio: Variant;
function GetListaIDProveedores: TIntegerArray; function GetListaIDProveedores: TIntegerArray;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
function GetDesglosadoProveedor: Boolean; function GetDesglosadoProveedor: Boolean;
@ -34,8 +36,10 @@ type
procedure RefrescarInforme; procedure RefrescarInforme;
public public
property FechaInicio: TDateTime read GetFechaInicio; property FechaInicio: Variant read GetFechaInicio;
property FechaFin: TDateTime read GetFechaFin; property FechaFin: Variant read GetFechaFin;
property FechaVenInicio: Variant read GetFechaVenInicio;
property FechaVenFin: Variant read GetFechaVenFin;
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores; property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor; property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
property ImporteMinimo: Currency read GetImporteMinimo; property ImporteMinimo: Currency read GetImporteMinimo;
@ -79,14 +83,24 @@ begin
Result := False; Result := False;
end; end;
function TfEditorInformeRecibosProveedorReport.GetFechaFin: TDateTime; function TfEditorInformeRecibosProveedorReport.GetFechaFin: Variant;
begin begin
Result := frViewPeriodoFechas1.edtFechaFin.Date; Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
end; end;
function TfEditorInformeRecibosProveedorReport.GetFechaInicio: TDateTime; function TfEditorInformeRecibosProveedorReport.GetFechaInicio: Variant;
begin begin
Result := frViewPeriodoFechas1.edtFechaIni.Date; Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
end;
function TfEditorInformeRecibosProveedorReport.GetFechaVenFin: Variant;
begin
Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue;
end;
function TfEditorInformeRecibosProveedorReport.GetFechaVenInicio: Variant;
begin
Result := frViewPeriodoFechas1.edtFechaVenIni.EditValue;
end; end;
function TfEditorInformeRecibosProveedorReport.GetImporteMinimo: Currency; function TfEditorInformeRecibosProveedorReport.GetImporteMinimo: Currency;
@ -116,6 +130,8 @@ begin
AppFactuGES.EmpresaActiva.ID, AppFactuGES.EmpresaActiva.ID,
FechaInicio, FechaInicio,
FechaFin, FechaFin,
FechaVenInicio,
FechaVenFin,
ListaIDProveedores, ListaIDProveedores,
DesglosadoProveedor, DesglosadoProveedor,
ImporteMinimo); ImporteMinimo);

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

@ -10,11 +10,11 @@ implementation
uses uses
uEditorRegistryUtils, uEditorRegistryUtils,
uEditorInformeIVAClientesReport, uEditorInformeFacturasClienteReport, uEditorInformeFacturasClientePendientesReport, uEditorInformeIVAClientesReport, uEditorInformeFacturasClienteReport, uEditorInformeFacturasClientePendientesReport,
uEditorInformeRecibosClienteReport, uEditorInformeRecibosCliPendientesReport, uEditorInformePresupuestosReport, uEditorInformeRecibosClienteReport, uEditorInformeRecibosCliPendientesReport,
uEditorInformePresupuestosReport,
uEditorInformeIVAProveedoresReport, uEditorInformeFacturasProveedorReport, uEditorInformeFacturasProveedorPendientesReport, uEditorInformeIVAProveedoresReport, uEditorInformeFacturasProveedorReport, uEditorInformeFacturasProveedorPendientesReport,
uEditorInformeRecibosProveedorReport, uEditorInformeRecibosProvPendientesReport, uEditorInformePedidosReport uEditorInformeRecibosProveedorReport, uEditorInformeRecibosProvPendientesReport;
;
procedure RegisterViews; procedure RegisterViews;
begin begin
@ -25,7 +25,6 @@ begin
EditorRegistry.RegisterClass(TfEditorInformeRecibosClienteReport, 'EditorInformeRecibosClienteReport'); EditorRegistry.RegisterClass(TfEditorInformeRecibosClienteReport, 'EditorInformeRecibosClienteReport');
EditorRegistry.RegisterClass(TfEditorInformeRecibosCliPendientesReport, 'EditorInformeRecibosCliPendientesReport'); EditorRegistry.RegisterClass(TfEditorInformeRecibosCliPendientesReport, 'EditorInformeRecibosCliPendientesReport');
EditorRegistry.RegisterClass(TfEditorInformePedidosReport, 'EditorInformePedidosReport');
EditorRegistry.RegisterClass(TfEditorInformeIVAProveedoresReport, 'EditorInformeIVAProveedoresReport'); EditorRegistry.RegisterClass(TfEditorInformeIVAProveedoresReport, 'EditorInformeIVAProveedoresReport');
EditorRegistry.RegisterClass(TfEditorInformeFacturasProveedorReport, 'EditorInformeFacturasProveedorReport'); EditorRegistry.RegisterClass(TfEditorInformeFacturasProveedorReport, 'EditorInformeFacturasProveedorReport');
EditorRegistry.RegisterClass(TfEditorInformeFacturasProveedorPendientesReport, 'EditorInformeFacturasProveedorPendientesReport'); EditorRegistry.RegisterClass(TfEditorInformeFacturasProveedorPendientesReport, 'EditorInformeFacturasProveedorPendientesReport');
@ -42,7 +41,6 @@ begin
EditorRegistry.UnRegisterClass(TfEditorInformeRecibosClienteReport); EditorRegistry.UnRegisterClass(TfEditorInformeRecibosClienteReport);
EditorRegistry.UnRegisterClass(TfEditorInformeRecibosCliPendientesReport); EditorRegistry.UnRegisterClass(TfEditorInformeRecibosCliPendientesReport);
EditorRegistry.UnRegisterClass(TfEditorInformePedidosReport);
EditorRegistry.UnRegisterClass(TfEditorInformeIVAProveedoresReport); EditorRegistry.UnRegisterClass(TfEditorInformeIVAProveedoresReport);
EditorRegistry.UnRegisterClass(TfEditorInformeFacturasProveedorReport); EditorRegistry.UnRegisterClass(TfEditorInformeFacturasProveedorReport);
EditorRegistry.UnRegisterClass(TfEditorInformeFacturasProveedorPendientesReport); EditorRegistry.UnRegisterClass(TfEditorInformeFacturasProveedorPendientesReport);

218
Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.dfm
View File

@ -1,66 +1,24 @@
inherited frViewPeriodoFechas: TfrViewPeriodoFechas inherited frViewPeriodoFechas: TfrViewPeriodoFechas
Width = 451 Width = 451
Height = 177 Height = 248
Align = alTop Align = alTop
ExplicitWidth = 451 ExplicitWidth = 451
ExplicitHeight = 177 ExplicitHeight = 248
object TBXAlignmentPanel1: TTBXAlignmentPanel object TBXAlignmentPanel2: TTBXAlignmentPanel
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 3
Top = 32 Top = 32
Width = 445 Width = 445
Height = 21 Height = 97
Margins.Left = 5 Margins.Left = 5
Margins.Top = 5
Margins.Right = 5 Margins.Right = 5
Align = alTop Align = alTop
AutoSize = True AutoSize = True
TabOrder = 0 TabOrder = 0
DesignSize = ( DesignSize = (
445 445
21) 97)
object cbPeriodo: TcxComboBox
Left = 16
Top = 0
RepositoryItem = cxRepositoryPeriodos
Anchors = [akLeft, akTop, akRight]
Properties.OnChange = cbPeriodoPropertiesChange
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0
Text = 'Este mes'
Width = 416
end
end
object TBXAlignmentPanel2: TTBXAlignmentPanel
AlignWithMargins = True
Left = 3
Top = 59
Width = 445
Height = 74
Margins.Left = 5
Margins.Top = 5
Margins.Right = 5
Align = alTop
AutoSize = True
TabOrder = 1
DesignSize = (
445
74)
object Label3: TLabel object Label3: TLabel
Left = 5 Left = 5
Top = 5 Top = 5
@ -73,7 +31,7 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
end end
object Label1: TLabel object Label1: TLabel
Left = 29 Left = 29
Top = 29 Top = 52
Width = 34 Width = 34
Height = 13 Height = 13
Caption = 'Desde:' Caption = 'Desde:'
@ -81,15 +39,15 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
end end
object Label2: TLabel object Label2: TLabel
Left = 32 Left = 32
Top = 56 Top = 79
Width = 31 Width = 31
Height = 13 Height = 13
Caption = 'hasta:' Caption = 'hasta:'
Transparent = True Transparent = True
end end
object edtFechaFin: TcxDateEdit object edtFechaFin: TcxDateEdit
Left = 72 Left = 69
Top = 53 Top = 76
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Properties.DateButtons = [btnToday] Properties.DateButtons = [btnToday]
Properties.PostPopupValueOnTab = True Properties.PostPopupValueOnTab = True
@ -118,7 +76,7 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
end end
object edtFechaIni: TcxDateEdit object edtFechaIni: TcxDateEdit
Left = 72 Left = 72
Top = 26 Top = 49
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Properties.DateButtons = [btnToday] Properties.DateButtons = [btnToday]
Properties.PostPopupValueOnTab = True Properties.PostPopupValueOnTab = True
@ -145,6 +103,33 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
TabOrder = 1 TabOrder = 1
Width = 360 Width = 360
end end
object cbPeriodo: TcxComboBox
Left = 3
Top = 21
RepositoryItem = cxRepositoryPeriodos
Anchors = [akLeft, akTop, akRight]
Properties.OnChange = cbPeriodoPropertiesChange
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2
Text = 'Este mes'
Width = 429
end
end end
object TBXLabel2: TTBXLabel object TBXLabel2: TTBXLabel
Left = 0 Left = 0
@ -164,6 +149,133 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
ParentFont = False ParentFont = False
Underline = True Underline = True
end end
object TBXAlignmentPanel3: TTBXAlignmentPanel
AlignWithMargins = True
Left = 3
Top = 135
Width = 445
Height = 98
Margins.Left = 5
Margins.Top = 5
Margins.Right = 5
Align = alTop
AutoSize = True
TabOrder = 2
DesignSize = (
445
98)
object Label4: TLabel
Left = 5
Top = 5
Width = 435
Height = 13
Align = alTop
Caption = 'Rango de fechas de vencimiento:'
Transparent = True
ExplicitWidth = 160
end
object Label5: TLabel
Left = 29
Top = 53
Width = 34
Height = 13
Caption = 'Desde:'
Transparent = True
end
object Label6: TLabel
Left = 32
Top = 80
Width = 31
Height = 13
Caption = 'hasta:'
Transparent = True
end
object edtFechaVenFin: TcxDateEdit
Left = 70
Top = 77
Anchors = [akLeft, akTop, akRight]
Properties.DateButtons = [btnToday]
Properties.PostPopupValueOnTab = True
Properties.SaveTime = False
Properties.ShowTime = False
Properties.OnValidate = edtFechaVenFinPropertiesValidate
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0
Width = 362
end
object edtFechaVenIni: TcxDateEdit
Left = 72
Top = 50
Anchors = [akLeft, akTop, akRight]
Properties.DateButtons = [btnToday]
Properties.PostPopupValueOnTab = True
Properties.SaveTime = False
Properties.ShowTime = False
Properties.OnValidate = edtFechaVenIniPropertiesValidate
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1
Width = 360
end
object cbPeriodo2: TcxComboBox
Left = 3
Top = 21
RepositoryItem = cxRepositoryPeriodos
Anchors = [akLeft, akTop, akRight]
Properties.OnChange = cbPeriodo2PropertiesChange
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2
Text = 'Este mes'
Width = 429
end
end
object cxRepository: TcxEditRepository object cxRepository: TcxEditRepository
Left = 32 Left = 32
Top = 24 Top = 24

346
Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.pas
View File

@ -14,18 +14,26 @@ type
['{793084E2-873E-4C57-8BD6-9087816CCF3A}'] ['{793084E2-873E-4C57-8BD6-9087816CCF3A}']
end; end;
TTipoFecha = (TFecha, TFechaVencimiento);
TfrViewPeriodoFechas = class(TfrViewParametrosInforme, IViewPeriodoFechas) TfrViewPeriodoFechas = class(TfrViewParametrosInforme, IViewPeriodoFechas)
cxRepository: TcxEditRepository; cxRepository: TcxEditRepository;
cxRepositoryPeriodos: TcxEditRepositoryComboBoxItem; cxRepositoryPeriodos: TcxEditRepositoryComboBoxItem;
cbPeriodo: TcxComboBox;
edtFechaIni: TcxDateEdit; edtFechaIni: TcxDateEdit;
edtFechaFin: TcxDateEdit; edtFechaFin: TcxDateEdit;
TBXLabel2: TTBXLabel; TBXLabel2: TTBXLabel;
TBXAlignmentPanel1: TTBXAlignmentPanel;
TBXAlignmentPanel2: TTBXAlignmentPanel; TBXAlignmentPanel2: TTBXAlignmentPanel;
Label1: TLabel; Label1: TLabel;
Label2: TLabel; Label2: TLabel;
Label3: TLabel; Label3: TLabel;
TBXAlignmentPanel3: TTBXAlignmentPanel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
edtFechaVenFin: TcxDateEdit;
edtFechaVenIni: TcxDateEdit;
cbPeriodo: TcxComboBox;
cbPeriodo2: TcxComboBox;
procedure cbPeriodoPropertiesChange(Sender: TObject); procedure cbPeriodoPropertiesChange(Sender: TObject);
procedure edtFechaIni2PropertiesValidate(Sender: TObject; procedure edtFechaIni2PropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var DisplayValue: Variant; var ErrorText: TCaption;
@ -33,25 +41,38 @@ type
procedure edtFechaFinPropertiesValidate(Sender: TObject; procedure edtFechaFinPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean); var Error: Boolean);
procedure cbPeriodo2PropertiesChange(Sender: TObject);
procedure edtFechaVenIniPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure edtFechaVenFinPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
private private
function GetFechaFinal: TDateTime; function GetFechaFinal: Variant;
function GetFechaInicial: TDateTime; function GetFechaInicial: Variant;
procedure SetFechaFinal(const Value: TDateTime); procedure SetFechaFinal(const Value: Variant);
procedure SetFechaInicial(const Value: TDateTime); procedure SetFechaInicial(const Value: Variant);
function GetFechaVenFinal: Variant;
function GetFechaVenInicial: Variant;
procedure SetFechaVenFinal(const Value: Variant);
procedure SetFechaVenInicial(const Value: Variant);
public public
procedure Hoy; procedure Hoy(const ATipoFecha: TTipoFecha);
procedure Ayer; procedure Ayer(const ATipoFecha: TTipoFecha);
procedure EstaSemana; procedure EstaSemana(const ATipoFecha: TTipoFecha);
procedure EsteMes; procedure EsteMes(const ATipoFecha: TTipoFecha);
procedure EsteAno; procedure EsteAno(const ATipoFecha: TTipoFecha);
procedure Ultimos7dias; procedure Ultimos7dias(const ATipoFecha: TTipoFecha);
procedure Ultimos30dias; procedure Ultimos30dias(const ATipoFecha: TTipoFecha);
procedure Ultimos3meses; procedure Ultimos3meses(const ATipoFecha: TTipoFecha);
procedure MesAnterior; procedure MesAnterior(const ATipoFecha: TTipoFecha);
procedure AnoAnterior; procedure AnoAnterior(const ATipoFecha: TTipoFecha);
procedure Personalizado; procedure Personalizado(const ATipoFecha: TTipoFecha);
property FechaInicial : TDateTime read GetFechaInicial write SetFechaInicial; property FechaInicial : Variant read GetFechaInicial write SetFechaInicial;
property FechaFinal : TDateTime read GetFechaFinal write SetFechaFinal; property FechaFinal : Variant read GetFechaFinal write SetFechaFinal;
property FechaVenInicial : Variant read GetFechaVenInicial write SetFechaVenInicial;
property FechaVenFinal : Variant read GetFechaVenFinal write SetFechaVenFinal;
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
end; end;
@ -61,106 +82,231 @@ uses DateUtils;
{$R *.dfm} {$R *.dfm}
procedure TfrViewPeriodoFechas.AnoAnterior; procedure TfrViewPeriodoFechas.AnoAnterior(const ATipoFecha: TTipoFecha);
begin begin
edtFechaIni.Date := StartOfTheYear(IncYear(Today, -1)); case ATipoFecha of
edtFechaFin.Date := EndOfTheYear(IncYear(Today, -1)); TFecha: begin
edtFechaIni.Date := StartOfTheYear(IncYear(Today, -1));
edtFechaFin.Date := EndOfTheYear(IncYear(Today, -1));
end;
TFechaVencimiento: begin
edtFechaVenIni.Date := StartOfTheYear(IncYear(Today, -1));
edtFechaVenFin.Date := EndOfTheYear(IncYear(Today, -1));
end;
end;
end; end;
procedure TfrViewPeriodoFechas.Ayer; procedure TfrViewPeriodoFechas.Ayer(const ATipoFecha: TTipoFecha);
begin begin
edtFechaIni.Date := Yesterday; case ATipoFecha of
edtFechaFin.Date := Yesterday; TFecha: begin
edtFechaIni.Date := Yesterday;
edtFechaFin.Date := Yesterday;
end;
TFechaVencimiento: begin
edtFechaVenIni.Date := Yesterday;
edtFechaVenFin.Date := Yesterday;
end;
end;
end; end;
procedure TfrViewPeriodoFechas.EstaSemana; procedure TfrViewPeriodoFechas.EstaSemana(const ATipoFecha: TTipoFecha);
begin begin
edtFechaIni.Date := StartOfTheWeek(Today); case ATipoFecha of
edtFechaFin.Date := EndOfTheWeek(Today); TFecha: begin
edtFechaIni.Date := StartOfTheWeek(Today);
edtFechaFin.Date := EndOfTheWeek(Today);
end;
TFechaVencimiento: begin
edtFechaVenIni.Date := StartOfTheWeek(Today);
edtFechaVenFin.Date := EndOfTheWeek(Today);
end;
end;
end; end;
procedure TfrViewPeriodoFechas.EsteAno; procedure TfrViewPeriodoFechas.EsteAno(const ATipoFecha: TTipoFecha);
begin begin
edtFechaIni.Date := StartOfTheYear(Today); case ATipoFecha of
edtFechaFin.Date := EndOfTheYear(Today); TFecha: begin
edtFechaIni.Date := StartOfTheYear(Today);
edtFechaFin.Date := EndOfTheYear(Today);
end;
TFechaVencimiento: begin
edtFechaVenIni.Date := StartOfTheYear(Today);
edtFechaVenFin.Date := EndOfTheYear(Today);
end;
end;
end; end;
procedure TfrViewPeriodoFechas.EsteMes; procedure TfrViewPeriodoFechas.EsteMes(const ATipoFecha: TTipoFecha);
begin begin
edtFechaIni.Date := StartOfTheMonth(Today); case ATipoFecha of
edtFechaFin.Date := EndOfTheMonth(Today); TFecha: begin
edtFechaIni.Date := StartOfTheMonth(Today);
edtFechaFin.Date := EndOfTheMonth(Today);
end;
TFechaVencimiento: begin
edtFechaVenIni.Date := StartOfTheMonth(Today);
edtFechaVenFin.Date := EndOfTheMonth(Today);
end;
end;
end; end;
function TfrViewPeriodoFechas.GetFechaFinal: TDateTime; function TfrViewPeriodoFechas.GetFechaFinal: Variant;
begin begin
Result := DateOf(edtFechaFin.Date); Result := edtFechaFin.EditValue;
end; end;
function TfrViewPeriodoFechas.GetFechaInicial: TDateTime; function TfrViewPeriodoFechas.GetFechaInicial: Variant;
begin begin
Result := DateOf(edtFechaIni.Date); Result := edtFechaIni.EditValue;
end; end;
procedure TfrViewPeriodoFechas.Hoy; function TfrViewPeriodoFechas.GetFechaVenFinal: Variant;
begin begin
edtFechaIni.Date := Today; Result := edtFechaVenFin.EditValue;
edtFechaFin.Date := Today;
end; end;
procedure TfrViewPeriodoFechas.MesAnterior; function TfrViewPeriodoFechas.GetFechaVenInicial: Variant;
begin begin
edtFechaIni.Date := StartOfTheMonth(IncMonth(Today, -1)); Result := edtFechaVenIni.EditValue;
edtFechaFin.Date := EndOfTheMonth(IncMonth(Today, -1));
end; end;
procedure TfrViewPeriodoFechas.Personalizado; procedure TfrViewPeriodoFechas.Hoy(const ATipoFecha: TTipoFecha);
begin begin
edtFechaIni.SetFocus; case ATipoFecha of
TFecha: begin
edtFechaIni.Date := Today;
edtFechaFin.Date := Today;
end;
TFechaVencimiento: begin
edtFechaVenIni.Date := Today;
edtFechaVenFin.Date := Today;
end;
end;
end; end;
procedure TfrViewPeriodoFechas.SetFechaFinal(const Value: TDateTime); procedure TfrViewPeriodoFechas.MesAnterior(const ATipoFecha: TTipoFecha);
begin begin
edtFechaFin.Date := Value; case ATipoFecha of
TFecha: begin
edtFechaIni.Date := StartOfTheMonth(IncMonth(Today, -1));
edtFechaFin.Date := EndOfTheMonth(IncMonth(Today, -1));
end;
TFechaVencimiento: begin
edtFechaVenIni.Date := StartOfTheMonth(IncMonth(Today, -1));
edtFechaVenFin.Date := EndOfTheMonth(IncMonth(Today, -1));
end;
end;
end; end;
procedure TfrViewPeriodoFechas.SetFechaInicial(const Value: TDateTime); procedure TfrViewPeriodoFechas.Personalizado(const ATipoFecha: TTipoFecha);
begin begin
edtFechaIni.Date := Value; case ATipoFecha of
TFecha: begin
edtFechaIni.SetFocus;
end;
TFechaVencimiento: begin
edtFechaVenIni.SetFocus;
end;
end;
end; end;
procedure TfrViewPeriodoFechas.Ultimos30dias; procedure TfrViewPeriodoFechas.SetFechaFinal(const Value: Variant);
begin begin
edtFechaIni.Date := IncDay(Today, -30); edtFechaFin.EditValue := Value;
edtFechaFin.Date := Today
end; end;
procedure TfrViewPeriodoFechas.Ultimos3meses; procedure TfrViewPeriodoFechas.SetFechaInicial(const Value: Variant);
begin begin
edtFechaIni.Date := IncMonth(Today, -3); edtFechaIni.EditValue := Value;
edtFechaFin.Date := Today
end; end;
procedure TfrViewPeriodoFechas.Ultimos7dias; procedure TfrViewPeriodoFechas.SetFechaVenFinal(const Value: Variant);
begin begin
edtFechaIni.Date := IncDay(Today, -7); edtFechaVenFin.EditValue := Value;
edtFechaFin.Date := Today end;
procedure TfrViewPeriodoFechas.SetFechaVenInicial(const Value: Variant);
begin
edtFechaVenIni.EditValue := Value;
end;
procedure TfrViewPeriodoFechas.Ultimos30dias(const ATipoFecha: TTipoFecha);
begin
case ATipoFecha of
TFecha: begin
edtFechaIni.Date := IncDay(Today, -30);
edtFechaFin.Date := Today
end;
TFechaVencimiento: begin
edtFechaVenIni.Date := IncDay(Today, -30);
edtFechaVenFin.Date := Today
end;
end;
end;
procedure TfrViewPeriodoFechas.Ultimos3meses(const ATipoFecha: TTipoFecha);
begin
case ATipoFecha of
TFecha: begin
edtFechaIni.Date := IncMonth(Today, -3);
edtFechaFin.Date := Today
end;
TFechaVencimiento: begin
edtFechaVenIni.Date := IncMonth(Today, -3);
edtFechaVenFin.Date := Today
end;
end;
end;
procedure TfrViewPeriodoFechas.Ultimos7dias(const ATipoFecha: TTipoFecha);
begin
case ATipoFecha of
TFecha: begin
edtFechaIni.Date := IncDay(Today, -7);
edtFechaFin.Date := Today
end;
TFechaVencimiento: begin
edtFechaVenIni.Date := IncDay(Today, -7);
edtFechaVenFin.Date := Today
end;
end;
end;
procedure TfrViewPeriodoFechas.cbPeriodo2PropertiesChange(Sender: TObject);
begin
case (Sender as TcxComboBox).ItemIndex of
0 : Hoy(TFechaVencimiento);
1 : Ayer(TFechaVencimiento);
2 : EstaSemana(TFechaVencimiento);
3 : EsteMes(TFechaVencimiento);
4 : EsteAno(TFechaVencimiento);
5 : Ultimos7dias(TFechaVencimiento);
6 : Ultimos30dias(TFechaVencimiento);
7 : Ultimos3meses(TFechaVencimiento);
8 : MesAnterior(TFechaVencimiento);
9 : AnoAnterior(TFechaVencimiento);
else
Personalizado(TFechaVencimiento);
end;
end; end;
procedure TfrViewPeriodoFechas.cbPeriodoPropertiesChange(Sender: TObject); procedure TfrViewPeriodoFechas.cbPeriodoPropertiesChange(Sender: TObject);
begin begin
case (Sender as TcxComboBox).ItemIndex of case (Sender as TcxComboBox).ItemIndex of
0 : Hoy; 0 : Hoy(TFecha);
1 : Ayer; 1 : Ayer(TFecha);
2 : EstaSemana; 2 : EstaSemana(TFecha);
3 : EsteMes; 3 : EsteMes(TFecha);
4 : EsteAno; 4 : EsteAno(TFecha);
5 : Ultimos7dias; 5 : Ultimos7dias(TFecha);
6 : Ultimos30dias; 6 : Ultimos30dias(TFecha);
7 : Ultimos3meses; 7 : Ultimos3meses(TFecha);
8 : MesAnterior; 8 : MesAnterior(TFecha);
9 : AnoAnterior; 9 : AnoAnterior(TFecha);
else else
Personalizado; Personalizado(TFecha);
end; end;
end; end;
@ -168,7 +314,8 @@ constructor TfrViewPeriodoFechas.Create(AOwner: TComponent);
begin begin
inherited; inherited;
cbPeriodo.ItemIndex := 3; cbPeriodo.ItemIndex := 3;
EsteMes; cbPeriodo2.ItemIndex := -1;
EsteMes(TFecha);
end; end;
procedure TfrViewPeriodoFechas.edtFechaIni2PropertiesValidate( procedure TfrViewPeriodoFechas.edtFechaIni2PropertiesValidate(
@ -176,12 +323,46 @@ procedure TfrViewPeriodoFechas.edtFechaIni2PropertiesValidate(
var Error: Boolean); var Error: Boolean);
begin begin
inherited; inherited;
if DisplayValue <> edtFechaIni.Date then if Length(VarToStr(DisplayValue)) > 0 then
cbPeriodo.ItemIndex := 12;
if DisplayValue > edtFechaFin.Date then
begin begin
edtFechaFin.EditText := DisplayValue; if DisplayValue <> edtFechaIni.Date then
edtFechaFin.ValidateEdit(True); cbPeriodo.ItemIndex := 12;
if DisplayValue > edtFechaFin.Date then
begin
edtFechaFin.EditText := DisplayValue;
edtFechaFin.ValidateEdit(True);
end;
end;
end;
procedure TfrViewPeriodoFechas.edtFechaVenFinPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
begin
if Length(VarToStr(DisplayValue)) > 0 then
begin
if DisplayValue <> edtFechaVenFin.Date then
cbPeriodo2.ItemIndex := 12;
if DisplayValue < edtFechaVenIni.Date then
begin
edtFechaVenIni.EditText := DisplayValue;
edtFechaVenIni.ValidateEdit(True);
end;
end;
end;
procedure TfrViewPeriodoFechas.edtFechaVenIniPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
begin
inherited;
if Length(VarToStr(DisplayValue)) > 0 then
begin
if DisplayValue <> edtFechaVenIni.Date then
cbPeriodo2.ItemIndex := 12;
if DisplayValue > edtFechaVenFin.Date then
begin
edtFechaVenFin.EditText := DisplayValue;
edtFechaVenFin.ValidateEdit(True);
end;
end; end;
end; end;
@ -190,12 +371,15 @@ procedure TfrViewPeriodoFechas.edtFechaFinPropertiesValidate(
var Error: Boolean); var Error: Boolean);
begin begin
inherited; inherited;
if DisplayValue <> edtFechaFin.Date then if Length(VarToStr(DisplayValue)) > 0 then
cbPeriodo.ItemIndex := 12;
if DisplayValue < edtFechaIni.Date then
begin begin
edtFechaIni.EditText := DisplayValue; if DisplayValue <> edtFechaFin.Date then
edtFechaIni.ValidateEdit(True); cbPeriodo.ItemIndex := 12;
if DisplayValue < edtFechaIni.Date then
begin
edtFechaIni.EditText := DisplayValue;
edtFechaIni.ValidateEdit(True);
end;
end; end;
end; end;

47
Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas
View File

@ -35,11 +35,13 @@ type
private private
FConnection: IDAConnection; FConnection: IDAConnection;
procedure _GenerarRecibo(const ID : Integer); procedure _GenerarRecibo(const ID : Integer);
function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary; function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; const FechaVenInicio: Variant; FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary;
public public
function GenerarRecibo(const ListaID : TIntegerArray): Binary; function GenerarRecibo(const ListaID : TIntegerArray): Binary;
function GenerarInformeListadoRecibos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibos(const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; const FechaVenInicio: Variant; FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoRecibosPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibosPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
end; end;
implementation implementation
@ -88,7 +90,8 @@ begin
end; end;
function TRptRecibosCliente.GenerarInformeListadoRecibos( function TRptRecibosCliente.GenerarInformeListadoRecibos(
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const FechaVenInicio: Variant; FechaVenFin: Variant;
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
var var
@ -101,11 +104,12 @@ begin
else else
ATipoInforme := rptInformeListadoRecibosCliente; ATipoInforme := rptInformeListadoRecibosCliente;
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, ImporteMinimo); Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, ImporteMinimo);
end; end;
function TRptRecibosCliente.GenerarInformeListadoRecibosPendientes( function TRptRecibosCliente.GenerarInformeListadoRecibosPendientes(
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const FechaVenInicio, FechaVenFin: Variant;
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
var var
@ -135,11 +139,12 @@ begin
ATipoInforme := rptInformeListadoRecibosCliPendientes; ATipoInforme := rptInformeListadoRecibosCliPendientes;
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, ImporteMinimo); Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, ImporteMinimo);
end; end;
function TRptRecibosCliente._GenerarInforme(const TipoInforme: String; function TRptRecibosCliente._GenerarInforme(const TipoInforme: String;
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const FechaVenInicio: Variant; FechaVenFin: Variant;
const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary; const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary;
var var
Condicion: TDAWhereExpression; Condicion: TDAWhereExpression;
@ -173,8 +178,24 @@ begin
with tbl_InformeListadoRecibos.DynamicWhere do with tbl_InformeListadoRecibos.DynamicWhere do
begin begin
// (FECHA_INICIO between FECHA_FIN) // (FECHA_INICIO between FECHA_FIN)
Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_VENCIMIENTO), NewConstant(FechaInicio, datDateTime), dboGreaterOrEqual); Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_EMISION), NewConstant(FechaInicio, datDateTime), dboGreaterOrEqual);
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_VENCIMIENTO), NewConstant(FechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd); Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_EMISION), NewConstant(FechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
end;
// Filtrar el informe por fechas de vencimiento
if not VarIsNull(FechaVenInicio)
and not VarIsNull(FechaVenFin) then
begin
with tbl_InformeListadoRecibos.DynamicWhere do
begin
// (FECHA_VENCIMIENTO_INICIO between FECHA_VENCIMIENTO_FIN)
Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_VENCIMIENTO), NewConstant(FechaVenInicio, datDateTime), dboGreaterOrEqual);
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_VENCIMIENTO), NewConstant(FechaVenFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
if IsEmpty then if IsEmpty then
Expression := Condicion Expression := Condicion
else else
@ -216,7 +237,7 @@ begin
tbl_InformeListadoRecibos.Active := True; tbl_InformeListadoRecibos.Active := True;
AInforme := DarRutaFichero(DarRutaInformes, TipoInforme, IntToStr(IdEmpresa)); AInforme := DarRutaFichero(DarRutaInformes, TipoInforme, IntToStr(IDEmpresa));
if VarIsNull(AInforme) then if VarIsNull(AInforme) then
raise Exception.Create (('Error Servidor: _GenerarInforme, no encuentra informe ' + TipoInforme)); raise Exception.Create (('Error Servidor: _GenerarInforme, no encuentra informe ' + TipoInforme));
@ -230,12 +251,12 @@ begin
finally finally
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
end; end;
end; end;
procedure TRptRecibosCliente._GenerarRecibo(const ID: Integer); procedure TRptRecibosCliente._GenerarRecibo(const ID: Integer);
Var var
AInforme: Variant; AInforme: Variant;
begin begin
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
try try

60
Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.pas
View File

@ -34,10 +34,10 @@ type
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
private private
FConnection: IDAConnection; FConnection: IDAConnection;
function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedors: TIntegerArray; const ImporteMinimo: Currency): Binary; function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const ImporteMinimo: Currency): Binary;
public public
function GenerarInformeListadoRecibos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedors: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoRecibosPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedors: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibosPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
end; end;
implementation implementation
@ -72,25 +72,27 @@ begin
end; end;
function TRptRecibosProveedor.GenerarInformeListadoRecibos( function TRptRecibosProveedor.GenerarInformeListadoRecibos(
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const ListaIDProveedors: TIntegerArray; const Desglosado: Boolean; const FechaVenInicio, FechaVenFin: Variant;
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
var var
ATipoInforme: String; ATipoInforme: String;
begin begin
//DESGLOSADO POR CLIENTE EN ESTE INFORME NO SE DESGLOSARÁ POR CLIENTE //DESGLOSADO POR PROVEEDOR EN ESTE INFORME NO SE DESGLOSARÁ POR PROVEEDOR
if Desglosado then if Desglosado then
ATipoInforme := rptInformeListadoRecibosProveedorDesglosado ATipoInforme := rptInformeListadoRecibosProveedorDesglosado
else else
ATipoInforme := rptInformeListadoRecibosProveedor; ATipoInforme := rptInformeListadoRecibosProveedor;
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDProveedors, ImporteMinimo); Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, ImporteMinimo);
end; end;
function TRptRecibosProveedor.GenerarInformeListadoRecibosPendientes( function TRptRecibosProveedor.GenerarInformeListadoRecibosPendientes(
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const ListaIDProveedors: TIntegerArray; const Desglosado: Boolean; const FechaVenInicio, FechaVenFin: Variant;
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
var var
Condicion: TDAWhereExpression; Condicion: TDAWhereExpression;
@ -112,18 +114,20 @@ begin
end; end;
//DESGLOSADO POR CLIENTE EN ESTE INFORME NO SE DESGLOSARÁ POR CLIENTE //DESGLOSADO POR PROVEEDOR EN ESTE INFORME NO SE DESGLOSARÁ POR PROVEEDOR
if Desglosado then if Desglosado then
ATipoInforme := rptInformeListadoRecibosProvPendientesDesglosado ATipoInforme := rptInformeListadoRecibosProvPendientesDesglosado
else else
ATipoInforme := rptInformeListadoRecibosProvPendientes; ATipoInforme := rptInformeListadoRecibosProvPendientes;
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDProveedors, ImporteMinimo); Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, ImporteMinimo);
end; end;
function TRptRecibosProveedor._GenerarInforme(const TipoInforme: String; function TRptRecibosProveedor._GenerarInforme(const TipoInforme: String;
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const ListaIDProveedors: TIntegerArray; const ImporteMinimo: Currency): Binary; const FechaVenInicio, FechaVenFin: Variant;
const ListaIDProveedores: TIntegerArray;
const ImporteMinimo: Currency): Binary;
var var
Condicion: TDAWhereExpression; Condicion: TDAWhereExpression;
i: Integer; i: Integer;
@ -156,8 +160,8 @@ begin
with tbl_InformeListadoRecibos.DynamicWhere do with tbl_InformeListadoRecibos.DynamicWhere do
begin begin
// (FECHA_INICIO between FECHA_FIN) // (FECHA_INICIO between FECHA_FIN)
Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorFECHA_VENCIMIENTO), NewConstant(FechaInicio, datDateTime), dboGreaterOrEqual); Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorFECHA_EMISION), NewConstant(FechaInicio, datDateTime), dboGreaterOrEqual);
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_RecibosProveedorFECHA_VENCIMIENTO), NewConstant(FechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd); Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_RecibosProveedorFECHA_EMISION), NewConstant(FechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
if IsEmpty then if IsEmpty then
Expression := Condicion Expression := Condicion
else else
@ -165,16 +169,32 @@ begin
end; end;
end; end;
// Filtrar el informe por cliente // Filtrar el informe por fechas de vencimiento
if Assigned(ListaIDProveedors) then if not VarIsNull(FechaVenInicio)
and not VarIsNull(FechaVenFin) then
begin begin
with tbl_InformeListadoRecibos.DynamicWhere do with tbl_InformeListadoRecibos.DynamicWhere do
begin begin
for i := 0 to ListaIDProveedors.Count - 1 do // (FECHA_VENCIMIENTO_INICIO between FECHA_VENCIMIENTO_FIN)
Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorFECHA_VENCIMIENTO), NewConstant(FechaVenInicio, datDateTime), dboGreaterOrEqual);
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_RecibosProveedorFECHA_VENCIMIENTO), NewConstant(FechaVenFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
end;
// Filtrar el informe por proveedor
if Assigned(ListaIDProveedores) then
begin
with tbl_InformeListadoRecibos.DynamicWhere do
begin
for i := 0 to ListaIDProveedores.Count - 1 do
begin begin
// (ID_CLIENTE = ID) // (ID_PROVEEDOR = ID)
Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorID_PROVEEDOR), NewConstant(ListaIDProveedors.Items[i], datInteger), dboEqual); Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorID_PROVEEDOR), NewConstant(ListaIDProveedores.Items[i], datInteger), dboEqual);
if IsEmpty then if IsEmpty then
Expression := Condicion Expression := Condicion
else else

72
Source/Servicios/FactuGES.RODL
View File

@ -581,9 +581,9 @@
</Parameter> </Parameter>
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" > <Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" > <Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" > <Parameter Name="FechaFin" DataType="Variant" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" > <Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
</Parameter> </Parameter>
@ -599,9 +599,9 @@
</Parameter> </Parameter>
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" > <Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" > <Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" > <Parameter Name="FechaFin" DataType="Variant" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" > <Parameter Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
</Parameter> </Parameter>
@ -617,9 +617,9 @@
</Parameter> </Parameter>
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" > <Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" > <Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" > <Parameter Name="FechaFin" DataType="Variant" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="ListadoIDClientes" DataType="TIntegerArray" Flag="In" > <Parameter Name="ListadoIDClientes" DataType="TIntegerArray" Flag="In" >
</Parameter> </Parameter>
@ -635,9 +635,13 @@
</Parameter> </Parameter>
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" > <Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" > <Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" > <Parameter Name="FechaFin" DataType="Variant" Flag="In" >
</Parameter>
<Parameter Name="FechaVenInicio" DataType="Variant" Flag="In" >
</Parameter>
<Parameter Name="FechaVenFin" DataType="Variant" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" > <Parameter Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
</Parameter> </Parameter>
@ -653,9 +657,9 @@
</Parameter> </Parameter>
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" > <Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" > <Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" > <Parameter Name="FechaFin" DataType="Variant" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" > <Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
</Parameter> </Parameter>
@ -671,9 +675,13 @@
</Parameter> </Parameter>
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" > <Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" > <Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" > <Parameter Name="FechaFin" DataType="Variant" Flag="In" >
</Parameter>
<Parameter Name="FechaVenInicio" DataType="Variant" Flag="In" >
</Parameter>
<Parameter Name="FechaVenFin" DataType="Variant" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" > <Parameter Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
</Parameter> </Parameter>
@ -689,9 +697,13 @@
</Parameter> </Parameter>
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" > <Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" > <Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" > <Parameter Name="FechaFin" DataType="Variant" Flag="In" >
</Parameter>
<Parameter Name="FechaVenInicio" DataType="Variant" Flag="In" >
</Parameter>
<Parameter Name="FechaVenFin" DataType="Variant" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" > <Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
</Parameter> </Parameter>
@ -707,9 +719,13 @@
</Parameter> </Parameter>
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" > <Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" > <Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" > <Parameter Name="FechaFin" DataType="Variant" Flag="In" >
</Parameter>
<Parameter Name="FechaVenInicio" DataType="Variant" Flag="In" >
</Parameter>
<Parameter Name="FechaVenFin" DataType="Variant" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" > <Parameter Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
</Parameter> </Parameter>
@ -725,9 +741,13 @@
</Parameter> </Parameter>
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" > <Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" > <Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" > <Parameter Name="FechaFin" DataType="Variant" Flag="In" >
</Parameter>
<Parameter Name="FechaVenInicio" DataType="Variant" Flag="In" >
</Parameter>
<Parameter Name="FechaVenFin" DataType="Variant" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" > <Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
</Parameter> </Parameter>
@ -743,9 +763,13 @@
</Parameter> </Parameter>
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" > <Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" > <Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" > <Parameter Name="FechaFin" DataType="Variant" Flag="In" >
</Parameter>
<Parameter Name="FechaVenInicio" DataType="Variant" Flag="In" >
</Parameter>
<Parameter Name="FechaVenFin" DataType="Variant" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" > <Parameter Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
</Parameter> </Parameter>
@ -761,9 +785,9 @@
</Parameter> </Parameter>
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" > <Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" > <Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" > <Parameter Name="FechaFin" DataType="Variant" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" > <Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
</Parameter> </Parameter>
@ -779,9 +803,9 @@
</Parameter> </Parameter>
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" > <Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" > <Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" > <Parameter Name="FechaFin" DataType="Variant" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" > <Parameter Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
</Parameter> </Parameter>

168
Source/Servicios/FactuGES_Intf.pas
View File

@ -755,29 +755,29 @@ type
{ IsrvGestorInformes } { IsrvGestorInformes }
IsrvGestorInformes = interface(IDataAbstractService) IsrvGestorInformes = interface(IDataAbstractService)
['{9ACA4D42-EA9A-4D2C-B233-19CD299EAE91}'] ['{9ACA4D42-EA9A-4D2C-B233-19CD299EAE91}']
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListadoIDClientes: TIntegerArray; function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
end; end;
@ -791,29 +791,29 @@ type
protected protected
function __GetInterfaceName:string; override; function __GetInterfaceName:string; override;
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListadoIDClientes: TIntegerArray; function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
end; end;
@ -2239,15 +2239,15 @@ begin
result := 'srvGestorInformes'; result := 'srvGestorInformes';
end; end;
function TsrvGestorInformes_Proxy.GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; function TsrvGestorInformes_Proxy.GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
begin begin
try try
result := nil; result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeIVAClientes'); __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeIVAClientes');
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); __Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); __Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []); __Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
@ -2262,15 +2262,15 @@ begin
end end
end; end;
function TsrvGestorInformes_Proxy.GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; function TsrvGestorInformes_Proxy.GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
begin begin
try try
result := nil; result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeIVAProveedores'); __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeIVAProveedores');
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); __Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); __Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []); __Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
@ -2285,15 +2285,15 @@ begin
end end
end; end;
function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListadoIDClientes: TIntegerArray; function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
begin begin
try try
result := nil; result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasCli'); __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasCli');
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); __Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); __Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Write('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []); __Message.Write('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []);
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
@ -2308,15 +2308,17 @@ begin
end end
end; end;
function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
begin begin
try try
result := nil; result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasProv'); __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasProv');
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); __Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); __Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Write('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
__Message.Write('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
__Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []); __Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
@ -2331,15 +2333,15 @@ begin
end end
end; end;
function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
begin begin
try try
result := nil; result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasCliPendientes'); __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasCliPendientes');
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); __Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); __Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []); __Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
@ -2354,15 +2356,17 @@ begin
end end
end; end;
function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
begin begin
try try
result := nil; result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasProvPendientes'); __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasProvPendientes');
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); __Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); __Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Write('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
__Message.Write('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
__Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []); __Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
@ -2377,15 +2381,17 @@ begin
end end
end; end;
function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
begin begin
try try
result := nil; result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosCliente'); __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosCliente');
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); __Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); __Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Write('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
__Message.Write('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
__Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []); __Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
@ -2400,15 +2406,17 @@ begin
end end
end; end;
function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
begin begin
try try
result := nil; result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosProveedor'); __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosProveedor');
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); __Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); __Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Write('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
__Message.Write('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
__Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []); __Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
@ -2423,15 +2431,17 @@ begin
end end
end; end;
function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
begin begin
try try
result := nil; result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosCliPendientes'); __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosCliPendientes');
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); __Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); __Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Write('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
__Message.Write('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
__Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []); __Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
@ -2446,15 +2456,17 @@ begin
end end
end; end;
function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
begin begin
try try
result := nil; result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosProvPendientes'); __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosProvPendientes');
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); __Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); __Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Write('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
__Message.Write('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
__Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []); __Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
@ -2469,15 +2481,15 @@ begin
end end
end; end;
function TsrvGestorInformes_Proxy.GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; function TsrvGestorInformes_Proxy.GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
begin begin
try try
result := nil; result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoPresupuestos'); __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoPresupuestos');
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); __Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); __Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []); __Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
@ -2492,15 +2504,15 @@ begin
end end
end; end;
function TsrvGestorInformes_Proxy.GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; function TsrvGestorInformes_Proxy.GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
begin begin
try try
result := nil; result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoPedidos'); __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoPedidos');
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); __Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); __Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []); __Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);

168
Source/Servicios/FactuGES_Invk.pas
View File

@ -1294,12 +1294,12 @@ end;
{ TsrvGestorInformes_Invoker } { TsrvGestorInformes_Invoker }
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeIVAClientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeIVAClientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; { function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
var var
IdEmpresa: Integer; IdEmpresa: Integer;
FechaInicio: DateTime; FechaInicio: Variant;
FechaFin: DateTime; FechaFin: Variant;
ListaIDClientes: FactuGES_Intf.TIntegerArray; ListaIDClientes: FactuGES_Intf.TIntegerArray;
Desglosado: Boolean; Desglosado: Boolean;
ImporteMinimo: Currency; ImporteMinimo: Currency;
@ -1310,8 +1310,8 @@ begin
lResult := nil; lResult := nil;
try try
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); __Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); __Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []); __Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
@ -1335,12 +1335,12 @@ begin
end; end;
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeIVAProveedores(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeIVAProveedores(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; { function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
var var
IdEmpresa: Integer; IdEmpresa: Integer;
FechaInicio: DateTime; FechaInicio: Variant;
FechaFin: DateTime; FechaFin: Variant;
ListaIDProveedores: FactuGES_Intf.TIntegerArray; ListaIDProveedores: FactuGES_Intf.TIntegerArray;
Desglosado: Boolean; Desglosado: Boolean;
ImporteMinimo: Currency; ImporteMinimo: Currency;
@ -1351,8 +1351,8 @@ begin
lResult := nil; lResult := nil;
try try
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); __Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); __Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []); __Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
@ -1376,12 +1376,12 @@ begin
end; end;
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasCli(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasCli(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListadoIDClientes: TIntegerArray; { function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
var var
IdEmpresa: Integer; IdEmpresa: Integer;
FechaInicio: DateTime; FechaInicio: Variant;
FechaFin: DateTime; FechaFin: Variant;
ListadoIDClientes: FactuGES_Intf.TIntegerArray; ListadoIDClientes: FactuGES_Intf.TIntegerArray;
Desglosado: Boolean; Desglosado: Boolean;
ImporteMinimo: Currency; ImporteMinimo: Currency;
@ -1392,8 +1392,8 @@ begin
lResult := nil; lResult := nil;
try try
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); __Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); __Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Read('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []); __Message.Read('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []);
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
@ -1417,12 +1417,14 @@ begin
end; end;
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasProv(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasProv(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; { function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
var var
IdEmpresa: Integer; IdEmpresa: Integer;
FechaInicio: DateTime; FechaInicio: Variant;
FechaFin: DateTime; FechaFin: Variant;
FechaVenInicio: Variant;
FechaVenFin: Variant;
ListaIDProveedores: FactuGES_Intf.TIntegerArray; ListaIDProveedores: FactuGES_Intf.TIntegerArray;
Desglosado: Boolean; Desglosado: Boolean;
ImporteMinimo: Currency; ImporteMinimo: Currency;
@ -1433,13 +1435,15 @@ begin
lResult := nil; lResult := nil;
try try
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); __Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); __Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Read('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
__Message.Read('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
__Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []); __Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasProv(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo); lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasProv(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoFacturasProvResponse'); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoFacturasProvResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -1458,12 +1462,12 @@ begin
end; end;
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasCliPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasCliPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; { function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
var var
IdEmpresa: Integer; IdEmpresa: Integer;
FechaInicio: DateTime; FechaInicio: Variant;
FechaFin: DateTime; FechaFin: Variant;
ListaIDClientes: FactuGES_Intf.TIntegerArray; ListaIDClientes: FactuGES_Intf.TIntegerArray;
Desglosado: Boolean; Desglosado: Boolean;
ImporteMinimo: Currency; ImporteMinimo: Currency;
@ -1474,8 +1478,8 @@ begin
lResult := nil; lResult := nil;
try try
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); __Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); __Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []); __Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
@ -1499,12 +1503,14 @@ begin
end; end;
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasProvPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasProvPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; { function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
var var
IdEmpresa: Integer; IdEmpresa: Integer;
FechaInicio: DateTime; FechaInicio: Variant;
FechaFin: DateTime; FechaFin: Variant;
FechaVenInicio: Variant;
FechaVenFin: Variant;
ListaIDProveedores: FactuGES_Intf.TIntegerArray; ListaIDProveedores: FactuGES_Intf.TIntegerArray;
Desglosado: Boolean; Desglosado: Boolean;
ImporteMinimo: Currency; ImporteMinimo: Currency;
@ -1515,13 +1521,15 @@ begin
lResult := nil; lResult := nil;
try try
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); __Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); __Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Read('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
__Message.Read('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
__Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []); __Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasProvPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo); lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasProvPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoFacturasProvPendientesResponse'); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoFacturasProvPendientesResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -1540,12 +1548,14 @@ begin
end; end;
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoRecibosCliente(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoRecibosCliente(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; { function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
var var
IdEmpresa: Integer; IdEmpresa: Integer;
FechaInicio: DateTime; FechaInicio: Variant;
FechaFin: DateTime; FechaFin: Variant;
FechaVenInicio: Variant;
FechaVenFin: Variant;
ListaIDClientes: FactuGES_Intf.TIntegerArray; ListaIDClientes: FactuGES_Intf.TIntegerArray;
Desglosado: Boolean; Desglosado: Boolean;
ImporteMinimo: Currency; ImporteMinimo: Currency;
@ -1556,13 +1566,15 @@ begin
lResult := nil; lResult := nil;
try try
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); __Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); __Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Read('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
__Message.Read('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
__Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []); __Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosCliente(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo); lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosCliente(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, Desglosado, ImporteMinimo);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoRecibosClienteResponse'); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoRecibosClienteResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -1581,12 +1593,14 @@ begin
end; end;
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoRecibosProveedor(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoRecibosProveedor(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; { function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
var var
IdEmpresa: Integer; IdEmpresa: Integer;
FechaInicio: DateTime; FechaInicio: Variant;
FechaFin: DateTime; FechaFin: Variant;
FechaVenInicio: Variant;
FechaVenFin: Variant;
ListaIDProveedores: FactuGES_Intf.TIntegerArray; ListaIDProveedores: FactuGES_Intf.TIntegerArray;
Desglosado: Boolean; Desglosado: Boolean;
ImporteMinimo: Currency; ImporteMinimo: Currency;
@ -1597,13 +1611,15 @@ begin
lResult := nil; lResult := nil;
try try
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); __Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); __Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Read('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
__Message.Read('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
__Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []); __Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosProveedor(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo); lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosProveedor(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoRecibosProveedorResponse'); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoRecibosProveedorResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -1622,12 +1638,14 @@ begin
end; end;
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoRecibosCliPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoRecibosCliPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; { function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
var var
IdEmpresa: Integer; IdEmpresa: Integer;
FechaInicio: DateTime; FechaInicio: Variant;
FechaFin: DateTime; FechaFin: Variant;
FechaVenInicio: Variant;
FechaVenFin: Variant;
ListaIDClientes: FactuGES_Intf.TIntegerArray; ListaIDClientes: FactuGES_Intf.TIntegerArray;
Desglosado: Boolean; Desglosado: Boolean;
ImporteMinimo: Currency; ImporteMinimo: Currency;
@ -1638,13 +1656,15 @@ begin
lResult := nil; lResult := nil;
try try
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); __Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); __Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Read('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
__Message.Read('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
__Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []); __Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosCliPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo); lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosCliPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, Desglosado, ImporteMinimo);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoRecibosCliPendientesResponse'); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoRecibosCliPendientesResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -1663,12 +1683,14 @@ begin
end; end;
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoRecibosProvPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoRecibosProvPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; { function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
var var
IdEmpresa: Integer; IdEmpresa: Integer;
FechaInicio: DateTime; FechaInicio: Variant;
FechaFin: DateTime; FechaFin: Variant;
FechaVenInicio: Variant;
FechaVenFin: Variant;
ListaIDProveedores: FactuGES_Intf.TIntegerArray; ListaIDProveedores: FactuGES_Intf.TIntegerArray;
Desglosado: Boolean; Desglosado: Boolean;
ImporteMinimo: Currency; ImporteMinimo: Currency;
@ -1679,13 +1701,15 @@ begin
lResult := nil; lResult := nil;
try try
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); __Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); __Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Read('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
__Message.Read('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
__Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []); __Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosProvPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo); lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosProvPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoRecibosProvPendientesResponse'); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoRecibosProvPendientesResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -1704,12 +1728,12 @@ begin
end; end;
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoPresupuestos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoPresupuestos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; { function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
var var
IdEmpresa: Integer; IdEmpresa: Integer;
FechaInicio: DateTime; FechaInicio: Variant;
FechaFin: DateTime; FechaFin: Variant;
ListaIDClientes: FactuGES_Intf.TIntegerArray; ListaIDClientes: FactuGES_Intf.TIntegerArray;
Desglosado: Boolean; Desglosado: Boolean;
ImporteMinimo: Currency; ImporteMinimo: Currency;
@ -1720,8 +1744,8 @@ begin
lResult := nil; lResult := nil;
try try
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); __Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); __Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []); __Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
@ -1745,12 +1769,12 @@ begin
end; end;
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoPedidos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoPedidos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; { function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
var var
IdEmpresa: Integer; IdEmpresa: Integer;
FechaInicio: DateTime; FechaInicio: Variant;
FechaFin: DateTime; FechaFin: Variant;
ListaIDProveedores: FactuGES_Intf.TIntegerArray; ListaIDProveedores: FactuGES_Intf.TIntegerArray;
Desglosado: Boolean; Desglosado: Boolean;
ImporteMinimo: Currency; ImporteMinimo: Currency;
@ -1761,8 +1785,8 @@ begin
lResult := nil; lResult := nil;
try try
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); __Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); __Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []); __Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.

640
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,327 +1,327 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage> <DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe> <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN> <DCC_DebugVN>True</DCC_DebugVN>
<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath> <DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath> <DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath> <DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath> <DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType />
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">7</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.4.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.4.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 27 de noviembre de 2008 16:53</VersionInfoKeys></VersionInfoKeys><Excluded_Packages/><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">7</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.4.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.4.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 27 de noviembre de 2008 16:53</VersionInfoKeys></VersionInfoKeys><Excluded_Packages /><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr"> <DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form> <Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas"> <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones_Impl</Form> <Form>srvProvinciasPoblaciones_Impl</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
<Form>srvUsuarios</Form> <Form>srvUsuarios</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Base\schBase_Intf.pas"/> <DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/> <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/> <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
<Form>RptAlbaranesCliente</Form> <Form>RptAlbaranesCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
<Form>RptWordAlbaranCliente</Form> <Form>RptWordAlbaranCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form> <Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form> <Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form> <Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
<Form>srvArticulos</Form> <Form>srvArticulos</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form> <Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<Form>RptFichasEmpleado</Form> <Form>RptFichasEmpleado</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form> <Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas"> <DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
<Form>srvFabricantes</Form> <Form>srvFabricantes</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form> <Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
<Form>RptWordFacturaCliente</Form> <Form>RptWordFacturaCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form> <Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form> <Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form> <Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
<Form>srvFamilias</Form> <Form>srvFamilias</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
<Form>srvFormasPago</Form> <Form>srvFormasPago</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas"> <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form> <Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas"> <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form> <Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form> <Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form> <Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/> <DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/> <DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas"> <DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
<Form>srvObras</Form> <Form>srvObras</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<Form>RptPedidosProveedor</Form> <Form>RptPedidosProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
<Form>RptWordPedidoProveedor</Form> <Form>RptWordPedidoProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form> <Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form> <Form>RptPresupuestosCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
<Form>RptWordCertificadoTrabajo</Form> <Form>RptWordCertificadoTrabajo</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
<Form>RptWordPresupuestoCliente</Form> <Form>RptWordPresupuestoCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form> <Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form> <Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form> <Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form> <Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form> <Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas"> <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form> <Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form> <Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form> <Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
<Form>srvTiposIVA</Form> <Form>srvTiposIVA</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form> <Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/> <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form> <Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas"> <DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form> <Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas"> <DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form> <Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas"> <DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form> <Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form> <Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="srvLogin_Impl.pas"> <DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form> <Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uAcercaDe.pas"> <DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form> <Form>fAcercaDe</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uDataModuleServer.pas"> <DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form> <Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uServerMainForm.pas"> <DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form> <Form>fServerForm</Form>
</DCCReference> </DCCReference>
<DCCReference Include="Utiles\AHWord97.pas"/> <DCCReference Include="Utiles\AHWord97.pas" />
<DCCReference Include="Utiles\RegExpr.pas"/> <DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas"/> <DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas"/> <DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas"/> <DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/> <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas"/> <DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas"/> <DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6011 EurekaLog Version=6006
Activate=0 Activate=0
Activate Handle=1 Activate Handle=1
Save Log File=1 Save Log File=1