Se adaptan los informes para tener en cuenta la fecha vencimiento
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@805 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
ff3005e4fc
commit
3161f242b2
@ -89,13 +89,13 @@ type
|
||||
FConnection: IDAConnection;
|
||||
//Genera cada una de las facturas a imprimir
|
||||
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
|
||||
function GenerarFactura(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 GenerarInformeListadoFacturas(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: 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: Variant; const FechaFin: Variant; 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;
|
||||
|
||||
implementation
|
||||
@ -165,7 +165,7 @@ begin
|
||||
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
|
||||
ATipoInforme: String;
|
||||
|
||||
@ -180,7 +180,7 @@ begin
|
||||
end;
|
||||
|
||||
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;
|
||||
var
|
||||
ATipoInforme: String;
|
||||
@ -197,7 +197,7 @@ begin
|
||||
end;
|
||||
|
||||
function TRptFacturasCliente.GenerarInformeListadoFacturasPendientes(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -265,7 +265,7 @@ begin
|
||||
end;
|
||||
|
||||
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;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
|
||||
@ -84,11 +84,12 @@ type
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
private
|
||||
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
|
||||
function GenerarInformeIVA(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: DateTime; const FechaFin: DateTime; 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 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: 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: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -119,8 +120,10 @@ begin
|
||||
frxDBDetalles.DataSource := DADSDetalles;
|
||||
end;
|
||||
|
||||
|
||||
function TRptFacturasProveedor.GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function TRptFacturasProveedor.GenerarInformeIVA(const IdEmpresa: Integer;
|
||||
const FechaInicio, FechaFin: Variant;
|
||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
ATipoInforme: String;
|
||||
|
||||
@ -132,12 +135,14 @@ begin
|
||||
else
|
||||
ATipoInforme := rptInformeIVA;
|
||||
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, ImporteMinimo);
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, Null, Null, ListaIDProveedores, ImporteMinimo);
|
||||
end;
|
||||
|
||||
function TRptFacturasProveedor.GenerarInformeListadoFacturas(const IdEmpresa: Integer;
|
||||
const FechaInicio, FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function TRptFacturasProveedor.GenerarInformeListadoFacturas(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||
const FechaVenInicio, FechaVenFin: Variant;
|
||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
ATipoInforme: String;
|
||||
|
||||
@ -149,11 +154,12 @@ begin
|
||||
else
|
||||
ATipoInforme := rptInformeListadoFacturasProveedor;
|
||||
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, ImporteMinimo);
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, ImporteMinimo);
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -183,11 +189,12 @@ begin
|
||||
ATipoInforme := rptInformeListadoFactuasProveedorPendiente;
|
||||
|
||||
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, ImporteMinimo);
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, ImporteMinimo);
|
||||
end;
|
||||
|
||||
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;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
@ -230,7 +237,24 @@ begin
|
||||
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
|
||||
begin
|
||||
with tbl_InformeListadoFacturas.DynamicWhere do
|
||||
@ -265,7 +289,7 @@ begin
|
||||
|
||||
tbl_InformeListadoFacturas.Active := True;
|
||||
|
||||
AInforme := DarRutaFichero(DarRutaInformes, TipoInforme, IntToStr(IdEmpresa));
|
||||
AInforme := DarRutaFichero(DarRutaInformes, TipoInforme, IntTostr(IdEmpresa));
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: _GenerarInforme, no encuentra informe ' + TipoInforme));
|
||||
|
||||
|
||||
@ -8,13 +8,13 @@ uses
|
||||
type
|
||||
IEditorInformeFacturasClientePendientesReport = interface(IEditorInformeBase)
|
||||
['{6ADD8C8B-34D8-4F51-9C9C-4A9ED54DDE34}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
|
||||
@ -8,13 +8,13 @@ uses
|
||||
type
|
||||
IEditorInformeFacturasClienteReport = interface(IEditorInformeBase)
|
||||
['{AE5DD69C-6360-4A6A-A764-C0DAF5B5A948}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
|
||||
@ -8,13 +8,17 @@ uses
|
||||
type
|
||||
IEditorInformeFacturasProveedorPendientesReport = interface(IEditorInformeBase)
|
||||
['{C0EFEC01-BF2C-4B56-9876-2818892FABFA}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetFechaVenFin: Variant;
|
||||
function GetFechaVenInicio: Variant;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||
property FechaVenFin: Variant read GetFechaVenFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
|
||||
@ -8,13 +8,17 @@ uses
|
||||
type
|
||||
IEditorInformeFacturasProveedorReport = interface(IEditorInformeBase)
|
||||
['{0E60C309-336C-455D-825B-7E4892A6CBC5}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetFechaVenFin: Variant;
|
||||
function GetFechaVenInicio: Variant;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||
property FechaVenFin: Variant read GetFechaVenFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
|
||||
@ -8,13 +8,13 @@ uses
|
||||
type
|
||||
IEditorInformeIVAClientesReport = interface(IEditorInformeBase)
|
||||
['{66F6F909-B1EC-4117-A115-12DFB62E6120}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
|
||||
@ -8,13 +8,13 @@ uses
|
||||
type
|
||||
IEditorInformeIVAProveedoresReport = interface(IEditorInformeBase)
|
||||
['{1EC723DF-B7F7-49F9-83FA-DF628FEF4B26}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
|
||||
@ -8,13 +8,13 @@ uses
|
||||
type
|
||||
IEditorInformePedidosReport = interface(IEditorInformeBase)
|
||||
['{70B07429-BCB2-416F-8C42-6D7BFFA152D5}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
|
||||
@ -8,13 +8,13 @@ uses
|
||||
type
|
||||
IEditorInformePresupuestosReport = interface(IEditorInformeBase)
|
||||
['{99BBD05C-8AEF-4BA7-83C6-FC467F14488C}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
|
||||
@ -8,13 +8,17 @@ uses
|
||||
type
|
||||
IEditorInformeRecibosCliPendientesReport = interface(IEditorInformeBase)
|
||||
['{BD1EA0DE-B610-4170-9BFC-4A7C0F7ABF0E}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetFechaVenFin: Variant;
|
||||
function GetFechaVenInicio: Variant;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||
property FechaVenFin: Variant read GetFechaVenFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
|
||||
@ -8,13 +8,17 @@ uses
|
||||
type
|
||||
IEditorInformeRecibosClienteReport = interface(IEditorInformeBase)
|
||||
['{F0DAD68E-198D-41BE-B04E-C76486208631}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetFechaVenFin: Variant;
|
||||
function GetFechaVenInicio: Variant;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||
property FechaVenFin: Variant read GetFechaVenFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
|
||||
@ -8,13 +8,17 @@ uses
|
||||
type
|
||||
IEditorInformeRecibosProvPendientesReport = interface(IEditorInformeBase)
|
||||
['{DC6AA05C-24F5-4F2A-BCB7-625629BF4297}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetFechaVenFin: Variant;
|
||||
function GetFechaVenInicio: Variant;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||
property FechaVenFin: Variant read GetFechaVenFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
|
||||
@ -8,13 +8,17 @@ uses
|
||||
type
|
||||
IEditorInformeRecibosProveedorReport = interface(IEditorInformeBase)
|
||||
['{63D1B0D1-9BDD-48B6-BD3B-C05AC6B49C9C}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetFechaVenFin: Variant;
|
||||
function GetFechaVenInicio: Variant;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||
property FechaVenFin: Variant read GetFechaVenFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
|
||||
@ -383,7 +383,7 @@ begin
|
||||
AEditor.Controller := Self;
|
||||
AEditor.Title := 'Listado de facturas de proveedor';
|
||||
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.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
@ -406,7 +406,7 @@ begin
|
||||
AEditor.Controller := Self;
|
||||
AEditor.Title := 'Listado de facturas de proveedor pendientes';
|
||||
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.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
@ -476,7 +476,7 @@ begin
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
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.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
@ -499,7 +499,7 @@ begin
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
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.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
@ -523,7 +523,7 @@ begin
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
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.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
@ -546,7 +546,7 @@ begin
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
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.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
|
||||
@ -23,28 +23,28 @@ type
|
||||
// function GetItems : IBizFacturaCliente;
|
||||
|
||||
//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
|
||||
function GenerarInformeIVAClientes(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: TDateTime; const FechaFin: TDateTime; 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 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: Variant; const FechaFin: Variant; 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
|
||||
function GenerarInformeListadoRecibosCliPendientes(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: 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: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
//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
|
||||
function GenerarInformeIVAProveedores(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: TDateTime; const FechaFin: TDateTime; 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 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: 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: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
//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 GenerarInformeListadoRecibosProveedor(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: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
procedure getInforme;
|
||||
end;
|
||||
@ -65,7 +65,7 @@ begin
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
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
|
||||
try
|
||||
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeIVAClientes(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo);
|
||||
@ -74,7 +74,7 @@ begin
|
||||
end;
|
||||
|
||||
function TDataModuleGestorInformes.GenerarInformeIVAProveedores(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
@ -85,7 +85,7 @@ begin
|
||||
end;
|
||||
|
||||
function TDataModuleGestorInformes.GenerarInformeListadoFacturasCli(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
@ -96,7 +96,7 @@ begin
|
||||
end;
|
||||
|
||||
function TDataModuleGestorInformes.GenerarInformeListadoFacturasCliPendientes(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
@ -107,29 +107,31 @@ begin
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
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
|
||||
end;
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
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
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleGestorInformes.GenerarInformeListadoPedidos(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
@ -151,45 +153,49 @@ begin
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
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
|
||||
end;
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
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
|
||||
end;
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
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
|
||||
end;
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
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
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -12,28 +12,28 @@ type
|
||||
procedure getInforme;
|
||||
|
||||
//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
|
||||
function GenerarInformeIVAClientes(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: TDateTime; const FechaFin: TDateTime; 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 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: Variant; const FechaFin: Variant; 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
|
||||
function GenerarInformeListadoRecibosCliPendientes(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: 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: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
//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
|
||||
function GenerarInformeIVAProveedores(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: TDateTime; const FechaFin: TDateTime; 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 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: 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: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
//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 GenerarInformeListadoRecibosProveedor(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: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
end;
|
||||
|
||||
|
||||
@ -32,28 +32,28 @@ type
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
public
|
||||
//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
|
||||
function GenerarInformeIVAClientes(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: DateTime; const FechaFin: DateTime; 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 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: Variant; const FechaFin: Variant; 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
|
||||
function GenerarInformeListadoRecibosCliente(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: 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: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
//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
|
||||
function GenerarInformeIVAProveedores(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: DateTime; const FechaFin: DateTime; 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 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: 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: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
//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 GenerarInformeListadoRecibosProvPendientes(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: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -69,7 +69,7 @@ begin
|
||||
anInstance := TsrvGestorInformes.Create(nil);
|
||||
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
|
||||
AReportGenerator : TRptFacturasCliente;
|
||||
begin
|
||||
@ -82,7 +82,7 @@ begin
|
||||
end;
|
||||
|
||||
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;
|
||||
var
|
||||
AReportGenerator : TRptFacturasProveedor;
|
||||
@ -96,7 +96,7 @@ begin
|
||||
end;
|
||||
|
||||
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;
|
||||
var
|
||||
AReportGenerator : TRptFacturasCliente;
|
||||
@ -110,7 +110,7 @@ begin
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -125,7 +125,8 @@ begin
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -133,14 +134,15 @@ var
|
||||
begin
|
||||
AReportGenerator := TRptFacturasProveedor.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeListadoFacturas(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||
Result := AReportGenerator.GenerarInformeListadoFacturas(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -148,14 +150,14 @@ var
|
||||
begin
|
||||
AReportGenerator := TRptFacturasProveedor.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeListadoFacturasPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||
Result := AReportGenerator.GenerarInformeListadoFacturasPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
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;
|
||||
var
|
||||
AReportGenerator : TRptPedidosProveedor;
|
||||
@ -169,7 +171,7 @@ begin
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes.GenerarInformeListadoPresupuestos(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -184,7 +186,8 @@ begin
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -192,14 +195,15 @@ var
|
||||
begin
|
||||
AReportGenerator := TRptRecibosCliente.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeListadoRecibos(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo);
|
||||
Result := AReportGenerator.GenerarInformeListadoRecibos(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -207,14 +211,15 @@ var
|
||||
begin
|
||||
AReportGenerator := TRptRecibosCliente.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeListadoRecibosPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo);
|
||||
Result := AReportGenerator.GenerarInformeListadoRecibosPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -222,14 +227,15 @@ var
|
||||
begin
|
||||
AReportGenerator := TRptRecibosProveedor.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeListadoRecibos(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||
Result := AReportGenerator.GenerarInformeListadoRecibos(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -237,7 +243,7 @@ var
|
||||
begin
|
||||
AReportGenerator := TRptRecibosProveedor.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeListadoRecibosPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||
Result := AReportGenerator.GenerarInformeListadoRecibosPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
|
||||
@ -66,18 +66,6 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
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
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
@ -85,6 +73,44 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
|
||||
Width = 85
|
||||
end
|
||||
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 = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
@ -92,7 +118,7 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
|
||||
ExplicitWidth = 99
|
||||
Width = 99
|
||||
end
|
||||
inherited edtFechaIni: TcxDateEdit
|
||||
inherited edtFechaVenIni: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
@ -100,18 +126,20 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
|
||||
ExplicitWidth = 97
|
||||
Width = 97
|
||||
end
|
||||
end
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
inherited cbPeriodo2: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 212
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
Top = 368
|
||||
TabOrder = 2
|
||||
ExplicitTop = 456
|
||||
ExplicitTop = 368
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 40
|
||||
inherited TBXButton1: TTBXButton
|
||||
AlignWithMargins = True
|
||||
Left = 3
|
||||
|
||||
@ -11,7 +11,7 @@ uses
|
||||
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
|
||||
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
||||
JvExControls, JvNavigationPane, uCustomView,
|
||||
uViewBase, uViewPeriodoFechas, uViewDatosYSeleccionClienteBase,
|
||||
uViewBase, uViewPeriodoFechas,
|
||||
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||
uIEditorInformeBase, uViewParametrosInforme,
|
||||
@ -26,8 +26,8 @@ type
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDClientes: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
@ -35,8 +35,8 @@ type
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
@ -80,14 +80,14 @@ begin
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasClientePendientesReport.GetFechaFin: TDateTime;
|
||||
function TfEditorInformeFacturasClientePendientesReport.GetFechaFin: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasClientePendientesReport.GetFechaInicio: TDateTime;
|
||||
function TfEditorInformeFacturasClientePendientesReport.GetFechaInicio: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasClientePendientesReport.GetImporteMinimo: Currency;
|
||||
|
||||
@ -66,25 +66,59 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 136
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
Height = 98
|
||||
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
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 153
|
||||
Width = 153
|
||||
ExplicitWidth = 170
|
||||
Width = 170
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
||||
Top = 136
|
||||
Width = 182
|
||||
Visible = False
|
||||
ExplicitTop = 136
|
||||
ExplicitWidth = 182
|
||||
inherited Label3: TLabel
|
||||
Width = 85
|
||||
inherited Label4: TLabel
|
||||
Width = 160
|
||||
end
|
||||
inherited edtFechaFin: TcxDateEdit
|
||||
inherited edtFechaVenFin: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
@ -92,7 +126,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
|
||||
ExplicitWidth = 99
|
||||
Width = 99
|
||||
end
|
||||
inherited edtFechaIni: TcxDateEdit
|
||||
inherited edtFechaVenIni: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
@ -100,18 +134,20 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
|
||||
ExplicitWidth = 97
|
||||
Width = 97
|
||||
end
|
||||
end
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
inherited cbPeriodo2: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 212
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
Top = 368
|
||||
TabOrder = 2
|
||||
ExplicitTop = 440
|
||||
ExplicitTop = 368
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 50
|
||||
inherited TBXButton1: TTBXButton
|
||||
AlignWithMargins = True
|
||||
Left = 3
|
||||
|
||||
@ -11,7 +11,7 @@ uses
|
||||
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
|
||||
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
||||
JvExControls, JvNavigationPane, uCustomView,
|
||||
uViewBase, uViewPeriodoFechas, uViewDatosYSeleccionClienteBase,
|
||||
uViewBase, uViewPeriodoFechas,
|
||||
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasClienteReport;
|
||||
@ -25,8 +25,8 @@ type
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDClientes: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
@ -34,8 +34,8 @@ type
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
@ -79,14 +79,14 @@ begin
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasClienteReport.GetFechaFin: TDateTime;
|
||||
function TfEditorInformeFacturasClienteReport.GetFechaFin: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasClienteReport.GetFechaInicio: TDateTime;
|
||||
function TfEditorInformeFacturasClienteReport.GetFechaInicio: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasClienteReport.GetImporteMinimo: Currency;
|
||||
|
||||
@ -54,7 +54,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 188
|
||||
Height = 136
|
||||
Height = 240
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -65,46 +65,81 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 136
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
ExplicitHeight = 240
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
Width = 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
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 153
|
||||
Width = 153
|
||||
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
|
||||
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
|
||||
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
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
Top = 368
|
||||
@ -130,7 +165,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
||||
end
|
||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||
Left = 0
|
||||
Top = 136
|
||||
Top = 240
|
||||
Width = 188
|
||||
Height = 77
|
||||
Align = alTop
|
||||
@ -143,7 +178,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitTop = 136
|
||||
ExplicitTop = 240
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 77
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
@ -163,7 +198,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
||||
end
|
||||
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
||||
Left = 0
|
||||
Top = 213
|
||||
Top = 317
|
||||
Width = 188
|
||||
Height = 146
|
||||
Align = alTop
|
||||
@ -176,7 +211,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 213
|
||||
ExplicitTop = 317
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 146
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
|
||||
@ -26,8 +26,10 @@ type
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDProveedores: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetFechaVenFin: Variant;
|
||||
function GetFechaVenInicio: Variant;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
@ -35,8 +37,10 @@ type
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||
property FechaVenFin: Variant read GetFechaVenFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
@ -80,14 +84,24 @@ begin
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorPendientesReport.GetFechaFin: TDateTime;
|
||||
function TfEditorInformeFacturasProveedorPendientesReport.GetFechaFin: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorPendientesReport.GetFechaInicio: TDateTime;
|
||||
function TfEditorInformeFacturasProveedorPendientesReport.GetFechaInicio: Variant;
|
||||
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;
|
||||
|
||||
function TfEditorInformeFacturasProveedorPendientesReport.GetImporteMinimo: Currency;
|
||||
@ -117,6 +131,8 @@ begin
|
||||
AppFactuGES.EmpresaActiva.ID,
|
||||
FechaInicio,
|
||||
FechaFin,
|
||||
FechaVenInicio,
|
||||
FechaVenFin,
|
||||
ListaIDProveedores,
|
||||
DesglosadoProveedor,
|
||||
ImporteMinimo);
|
||||
|
||||
@ -54,7 +54,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 188
|
||||
Height = 136
|
||||
Height = 240
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -65,46 +65,81 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 136
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
ExplicitHeight = 240
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
Width = 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
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 153
|
||||
Width = 153
|
||||
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
|
||||
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
|
||||
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
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
Top = 368
|
||||
@ -130,7 +165,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
|
||||
end
|
||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||
Left = 0
|
||||
Top = 136
|
||||
Top = 240
|
||||
Width = 188
|
||||
Height = 77
|
||||
Align = alTop
|
||||
@ -143,7 +178,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitTop = 136
|
||||
ExplicitTop = 240
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 77
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
@ -163,7 +198,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
|
||||
end
|
||||
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
||||
Left = 0
|
||||
Top = 213
|
||||
Top = 317
|
||||
Width = 188
|
||||
Height = 146
|
||||
Align = alTop
|
||||
@ -176,7 +211,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 213
|
||||
ExplicitTop = 317
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 146
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
|
||||
@ -25,8 +25,10 @@ type
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDProveedores: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetFechaVenFin: Variant;
|
||||
function GetFechaVenInicio: Variant;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
@ -34,8 +36,10 @@ type
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||
property FechaVenFin: Variant read GetFechaVenFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
@ -79,14 +83,24 @@ begin
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorReport.GetFechaFin: TDateTime;
|
||||
function TfEditorInformeFacturasProveedorReport.GetFechaFin: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorReport.GetFechaInicio: TDateTime;
|
||||
function TfEditorInformeFacturasProveedorReport.GetFechaInicio: Variant;
|
||||
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;
|
||||
|
||||
function TfEditorInformeFacturasProveedorReport.GetImporteMinimo: Currency;
|
||||
@ -116,6 +130,8 @@ begin
|
||||
AppFactuGES.EmpresaActiva.ID,
|
||||
FechaInicio,
|
||||
FechaFin,
|
||||
FechaVenInicio,
|
||||
FechaVenFin,
|
||||
ListaIDProveedores,
|
||||
DesglosadoProveedor,
|
||||
ImporteMinimo);
|
||||
|
||||
@ -66,25 +66,53 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 136
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
Width = 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
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 153
|
||||
Width = 153
|
||||
ExplicitWidth = 170
|
||||
Width = 170
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
Visible = False
|
||||
ExplicitWidth = 182
|
||||
inherited Label3: TLabel
|
||||
Width = 172
|
||||
inherited Label4: TLabel
|
||||
Width = 160
|
||||
end
|
||||
inherited edtFechaFin: TcxDateEdit
|
||||
inherited edtFechaVenFin: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
@ -92,7 +120,7 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
|
||||
ExplicitWidth = 99
|
||||
Width = 99
|
||||
end
|
||||
inherited edtFechaIni: TcxDateEdit
|
||||
inherited edtFechaVenIni: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
@ -100,10 +128,13 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
|
||||
ExplicitWidth = 97
|
||||
Width = 97
|
||||
end
|
||||
end
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
inherited cbPeriodo2: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 212
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
|
||||
@ -25,8 +25,8 @@ type
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDClientes: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
@ -34,8 +34,8 @@ type
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
@ -79,14 +79,14 @@ begin
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformeIVAClientesReport.GetFechaFin: TDateTime;
|
||||
function TfEditorInformeIVAClientesReport.GetFechaFin: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeIVAClientesReport.GetFechaInicio: TDateTime;
|
||||
function TfEditorInformeIVAClientesReport.GetFechaInicio: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeIVAClientesReport.GetImporteMinimo: Currency;
|
||||
|
||||
@ -66,18 +66,6 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
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
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
@ -85,6 +73,46 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
|
||||
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
|
||||
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 = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
@ -92,7 +120,7 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
|
||||
ExplicitWidth = 99
|
||||
Width = 99
|
||||
end
|
||||
inherited edtFechaIni: TcxDateEdit
|
||||
inherited edtFechaVenIni: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
@ -100,10 +128,13 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
|
||||
ExplicitWidth = 97
|
||||
Width = 97
|
||||
end
|
||||
end
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
inherited cbPeriodo2: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 212
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
|
||||
@ -25,8 +25,8 @@ type
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDProveedores: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
@ -34,8 +34,8 @@ type
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
@ -79,14 +79,14 @@ begin
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformeIVAProveedoresReport.GetFechaFin: TDateTime;
|
||||
function TfEditorInformeIVAProveedoresReport.GetFechaFin: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeIVAProveedoresReport.GetFechaInicio: TDateTime;
|
||||
function TfEditorInformeIVAProveedoresReport.GetFechaInicio: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeIVAProveedoresReport.GetImporteMinimo: Currency;
|
||||
|
||||
@ -66,18 +66,6 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
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
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
@ -85,6 +73,45 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport
|
||||
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
|
||||
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 = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
@ -92,7 +119,7 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport
|
||||
ExplicitWidth = 99
|
||||
Width = 99
|
||||
end
|
||||
inherited edtFechaIni: TcxDateEdit
|
||||
inherited edtFechaVenIni: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
@ -100,10 +127,14 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport
|
||||
ExplicitWidth = 97
|
||||
Width = 97
|
||||
end
|
||||
end
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
inherited cbPeriodo2: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 166
|
||||
Width = 166
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
|
||||
@ -11,7 +11,7 @@ uses
|
||||
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
|
||||
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
||||
JvExControls, JvNavigationPane, uCustomView,
|
||||
uViewBase, uViewPeriodoFechas, uViewDatosYSeleccionClienteBase,
|
||||
uViewBase, uViewPeriodoFechas,
|
||||
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformePresupuestosReport;
|
||||
@ -25,8 +25,8 @@ type
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDClientes: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
@ -34,8 +34,8 @@ type
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
@ -79,14 +79,14 @@ begin
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformePresupuestosReport.GetFechaFin: TDateTime;
|
||||
function TfEditorInformePresupuestosReport.GetFechaFin: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformePresupuestosReport.GetFechaInicio: TDateTime;
|
||||
function TfEditorInformePresupuestosReport.GetFechaInicio: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformePresupuestosReport.GetImporteMinimo: Currency;
|
||||
|
||||
@ -54,7 +54,7 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 188
|
||||
Height = 136
|
||||
Height = 240
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -65,46 +65,81 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 136
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
ExplicitHeight = 240
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
Width = 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
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 153
|
||||
Width = 153
|
||||
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
|
||||
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 = 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
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
Top = 368
|
||||
@ -130,7 +165,7 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
|
||||
end
|
||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||
Left = 0
|
||||
Top = 136
|
||||
Top = 240
|
||||
Width = 188
|
||||
Height = 77
|
||||
Align = alTop
|
||||
@ -143,7 +178,7 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitTop = 136
|
||||
ExplicitTop = 240
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 77
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
@ -163,7 +198,7 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
|
||||
end
|
||||
inline frViewFiltroClientes1: TfrViewFiltroClientes
|
||||
Left = 0
|
||||
Top = 213
|
||||
Top = 317
|
||||
Width = 188
|
||||
Height = 146
|
||||
Align = alTop
|
||||
@ -176,7 +211,7 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 213
|
||||
ExplicitTop = 317
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 146
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
|
||||
@ -11,7 +11,7 @@ uses
|
||||
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
|
||||
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
||||
JvExControls, JvNavigationPane, uCustomView,
|
||||
uViewBase, uViewPeriodoFechas, uViewDatosYSeleccionClienteBase,
|
||||
uViewBase, uViewPeriodoFechas,
|
||||
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeRecibosCliPendientesReport;
|
||||
@ -25,8 +25,10 @@ type
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDClientes: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetFechaVenFin: Variant;
|
||||
function GetFechaVenInicio: Variant;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
@ -34,8 +36,10 @@ type
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||
property FechaVenFin: Variant read GetFechaVenFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
@ -79,14 +83,24 @@ begin
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformeRecibosCliPendientesReport.GetFechaFin: TDateTime;
|
||||
function TfEditorInformeRecibosCliPendientesReport.GetFechaFin: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeRecibosCliPendientesReport.GetFechaInicio: TDateTime;
|
||||
function TfEditorInformeRecibosCliPendientesReport.GetFechaInicio: Variant;
|
||||
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;
|
||||
|
||||
function TfEditorInformeRecibosCliPendientesReport.GetImporteMinimo: Currency;
|
||||
@ -116,6 +130,8 @@ begin
|
||||
AppFactuGES.EmpresaActiva.ID,
|
||||
FechaInicio,
|
||||
FechaFin,
|
||||
FechaVenInicio,
|
||||
FechaVenFin,
|
||||
ListaIDClientes,
|
||||
DesglosadoCliente,
|
||||
ImporteMinimo);
|
||||
|
||||
@ -54,7 +54,7 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 188
|
||||
Height = 136
|
||||
Height = 240
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -65,46 +65,81 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 136
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
ExplicitHeight = 240
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
Width = 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
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 153
|
||||
Width = 153
|
||||
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
|
||||
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 = 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
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
Top = 368
|
||||
@ -130,7 +165,7 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
|
||||
end
|
||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||
Left = 0
|
||||
Top = 136
|
||||
Top = 240
|
||||
Width = 188
|
||||
Height = 77
|
||||
Align = alTop
|
||||
@ -143,7 +178,7 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitTop = 136
|
||||
ExplicitTop = 240
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 77
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
@ -163,7 +198,7 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
|
||||
end
|
||||
inline frViewFiltroClientes1: TfrViewFiltroClientes
|
||||
Left = 0
|
||||
Top = 213
|
||||
Top = 317
|
||||
Width = 188
|
||||
Height = 146
|
||||
Align = alTop
|
||||
@ -176,7 +211,7 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 213
|
||||
ExplicitTop = 317
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 146
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
|
||||
@ -11,7 +11,7 @@ uses
|
||||
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
|
||||
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
||||
JvExControls, JvNavigationPane, uCustomView,
|
||||
uViewBase, uViewPeriodoFechas, uViewDatosYSeleccionClienteBase,
|
||||
uViewBase, uViewPeriodoFechas,
|
||||
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeRecibosClienteReport;
|
||||
@ -25,8 +25,10 @@ type
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDClientes: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetFechaVenFin: Variant;
|
||||
function GetFechaVenInicio: Variant;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
@ -34,8 +36,10 @@ type
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||
property FechaVenFin: Variant read GetFechaVenFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
@ -79,14 +83,24 @@ begin
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformeRecibosClienteReport.GetFechaFin: TDateTime;
|
||||
function TfEditorInformeRecibosClienteReport.GetFechaFin: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeRecibosClienteReport.GetFechaInicio: TDateTime;
|
||||
function TfEditorInformeRecibosClienteReport.GetFechaInicio: Variant;
|
||||
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;
|
||||
|
||||
function TfEditorInformeRecibosClienteReport.GetImporteMinimo: Currency;
|
||||
@ -116,6 +130,8 @@ begin
|
||||
AppFactuGES.EmpresaActiva.ID,
|
||||
FechaInicio,
|
||||
FechaFin,
|
||||
FechaVenInicio,
|
||||
FechaVenFin,
|
||||
ListaIDClientes,
|
||||
DesglosadoCliente,
|
||||
ImporteMinimo);
|
||||
|
||||
@ -54,7 +54,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 188
|
||||
Height = 136
|
||||
Height = 240
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -65,19 +65,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
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
|
||||
ExplicitHeight = 240
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
@ -85,26 +73,73 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
|
||||
Width = 85
|
||||
end
|
||||
inherited edtFechaFin: TcxDateEdit
|
||||
Left = 76
|
||||
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 = ''
|
||||
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
|
||||
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
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
Top = 368
|
||||
@ -130,7 +165,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
|
||||
end
|
||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||
Left = 0
|
||||
Top = 136
|
||||
Top = 240
|
||||
Width = 188
|
||||
Height = 77
|
||||
Align = alTop
|
||||
@ -143,7 +178,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitTop = 136
|
||||
ExplicitTop = 240
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 77
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
@ -163,7 +198,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
|
||||
end
|
||||
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
||||
Left = 0
|
||||
Top = 213
|
||||
Top = 317
|
||||
Width = 188
|
||||
Height = 146
|
||||
Align = alTop
|
||||
@ -176,7 +211,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 213
|
||||
ExplicitTop = 317
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 146
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
|
||||
@ -25,8 +25,10 @@ type
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDProveedores: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetFechaVenFin: Variant;
|
||||
function GetFechaVenInicio: Variant;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
@ -34,8 +36,10 @@ type
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||
property FechaVenFin: Variant read GetFechaVenFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
@ -79,14 +83,24 @@ begin
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformeRecibosProvPendientesReport.GetFechaFin: TDateTime;
|
||||
function TfEditorInformeRecibosProvPendientesReport.GetFechaFin: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeRecibosProvPendientesReport.GetFechaInicio: TDateTime;
|
||||
function TfEditorInformeRecibosProvPendientesReport.GetFechaInicio: Variant;
|
||||
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;
|
||||
|
||||
function TfEditorInformeRecibosProvPendientesReport.GetImporteMinimo: Currency;
|
||||
@ -116,6 +130,8 @@ begin
|
||||
AppFactuGES.EmpresaActiva.ID,
|
||||
FechaInicio,
|
||||
FechaFin,
|
||||
FechaVenInicio,
|
||||
FechaVenFin,
|
||||
ListaIDProveedores,
|
||||
DesglosadoProveedor,
|
||||
ImporteMinimo);
|
||||
|
||||
@ -54,7 +54,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 188
|
||||
Height = 136
|
||||
Height = 240
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -65,19 +65,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
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
|
||||
ExplicitHeight = 240
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
@ -85,26 +73,77 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
|
||||
Width = 85
|
||||
end
|
||||
inherited edtFechaFin: TcxDateEdit
|
||||
Left = 76
|
||||
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 = ''
|
||||
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
|
||||
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
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
Top = 368
|
||||
@ -130,7 +169,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
|
||||
end
|
||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||
Left = 0
|
||||
Top = 136
|
||||
Top = 240
|
||||
Width = 188
|
||||
Height = 77
|
||||
Align = alTop
|
||||
@ -143,7 +182,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitTop = 136
|
||||
ExplicitTop = 240
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 77
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
@ -163,7 +202,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
|
||||
end
|
||||
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
||||
Left = 0
|
||||
Top = 213
|
||||
Top = 317
|
||||
Width = 188
|
||||
Height = 146
|
||||
Align = alTop
|
||||
@ -176,7 +215,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 213
|
||||
ExplicitTop = 317
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 146
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
|
||||
@ -25,8 +25,10 @@ type
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDProveedores: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetFechaVenFin: Variant;
|
||||
function GetFechaVenInicio: Variant;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
@ -34,8 +36,10 @@ type
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||
property FechaVenFin: Variant read GetFechaVenFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
@ -79,14 +83,24 @@ begin
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformeRecibosProveedorReport.GetFechaFin: TDateTime;
|
||||
function TfEditorInformeRecibosProveedorReport.GetFechaFin: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeRecibosProveedorReport.GetFechaInicio: TDateTime;
|
||||
function TfEditorInformeRecibosProveedorReport.GetFechaInicio: Variant;
|
||||
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;
|
||||
|
||||
function TfEditorInformeRecibosProveedorReport.GetImporteMinimo: Currency;
|
||||
@ -116,6 +130,8 @@ begin
|
||||
AppFactuGES.EmpresaActiva.ID,
|
||||
FechaInicio,
|
||||
FechaFin,
|
||||
FechaVenInicio,
|
||||
FechaVenFin,
|
||||
ListaIDProveedores,
|
||||
DesglosadoProveedor,
|
||||
ImporteMinimo);
|
||||
|
||||
@ -10,11 +10,11 @@ implementation
|
||||
uses
|
||||
uEditorRegistryUtils,
|
||||
uEditorInformeIVAClientesReport, uEditorInformeFacturasClienteReport, uEditorInformeFacturasClientePendientesReport,
|
||||
uEditorInformeRecibosClienteReport, uEditorInformeRecibosCliPendientesReport, uEditorInformePresupuestosReport,
|
||||
uEditorInformeRecibosClienteReport, uEditorInformeRecibosCliPendientesReport,
|
||||
uEditorInformePresupuestosReport,
|
||||
|
||||
uEditorInformeIVAProveedoresReport, uEditorInformeFacturasProveedorReport, uEditorInformeFacturasProveedorPendientesReport,
|
||||
uEditorInformeRecibosProveedorReport, uEditorInformeRecibosProvPendientesReport, uEditorInformePedidosReport
|
||||
;
|
||||
uEditorInformeRecibosProveedorReport, uEditorInformeRecibosProvPendientesReport;
|
||||
|
||||
procedure RegisterViews;
|
||||
begin
|
||||
@ -25,7 +25,6 @@ begin
|
||||
EditorRegistry.RegisterClass(TfEditorInformeRecibosClienteReport, 'EditorInformeRecibosClienteReport');
|
||||
EditorRegistry.RegisterClass(TfEditorInformeRecibosCliPendientesReport, 'EditorInformeRecibosCliPendientesReport');
|
||||
|
||||
EditorRegistry.RegisterClass(TfEditorInformePedidosReport, 'EditorInformePedidosReport');
|
||||
EditorRegistry.RegisterClass(TfEditorInformeIVAProveedoresReport, 'EditorInformeIVAProveedoresReport');
|
||||
EditorRegistry.RegisterClass(TfEditorInformeFacturasProveedorReport, 'EditorInformeFacturasProveedorReport');
|
||||
EditorRegistry.RegisterClass(TfEditorInformeFacturasProveedorPendientesReport, 'EditorInformeFacturasProveedorPendientesReport');
|
||||
@ -42,7 +41,6 @@ begin
|
||||
EditorRegistry.UnRegisterClass(TfEditorInformeRecibosClienteReport);
|
||||
EditorRegistry.UnRegisterClass(TfEditorInformeRecibosCliPendientesReport);
|
||||
|
||||
EditorRegistry.UnRegisterClass(TfEditorInformePedidosReport);
|
||||
EditorRegistry.UnRegisterClass(TfEditorInformeIVAProveedoresReport);
|
||||
EditorRegistry.UnRegisterClass(TfEditorInformeFacturasProveedorReport);
|
||||
EditorRegistry.UnRegisterClass(TfEditorInformeFacturasProveedorPendientesReport);
|
||||
|
||||
@ -1,66 +1,24 @@
|
||||
inherited frViewPeriodoFechas: TfrViewPeriodoFechas
|
||||
Width = 451
|
||||
Height = 177
|
||||
Height = 248
|
||||
Align = alTop
|
||||
ExplicitWidth = 451
|
||||
ExplicitHeight = 177
|
||||
object TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
ExplicitHeight = 248
|
||||
object TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
AlignWithMargins = True
|
||||
Left = 3
|
||||
Top = 32
|
||||
Width = 445
|
||||
Height = 21
|
||||
Height = 97
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
TabOrder = 0
|
||||
DesignSize = (
|
||||
445
|
||||
21)
|
||||
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)
|
||||
97)
|
||||
object Label3: TLabel
|
||||
Left = 5
|
||||
Top = 5
|
||||
@ -73,7 +31,7 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 29
|
||||
Top = 29
|
||||
Top = 52
|
||||
Width = 34
|
||||
Height = 13
|
||||
Caption = 'Desde:'
|
||||
@ -81,15 +39,15 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 32
|
||||
Top = 56
|
||||
Top = 79
|
||||
Width = 31
|
||||
Height = 13
|
||||
Caption = 'hasta:'
|
||||
Transparent = True
|
||||
end
|
||||
object edtFechaFin: TcxDateEdit
|
||||
Left = 72
|
||||
Top = 53
|
||||
Left = 69
|
||||
Top = 76
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Properties.DateButtons = [btnToday]
|
||||
Properties.PostPopupValueOnTab = True
|
||||
@ -118,7 +76,7 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
|
||||
end
|
||||
object edtFechaIni: TcxDateEdit
|
||||
Left = 72
|
||||
Top = 26
|
||||
Top = 49
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Properties.DateButtons = [btnToday]
|
||||
Properties.PostPopupValueOnTab = True
|
||||
@ -145,6 +103,33 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
|
||||
TabOrder = 1
|
||||
Width = 360
|
||||
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
|
||||
object TBXLabel2: TTBXLabel
|
||||
Left = 0
|
||||
@ -164,6 +149,133 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
|
||||
ParentFont = False
|
||||
Underline = True
|
||||
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
|
||||
Left = 32
|
||||
Top = 24
|
||||
|
||||
@ -14,18 +14,26 @@ type
|
||||
['{793084E2-873E-4C57-8BD6-9087816CCF3A}']
|
||||
end;
|
||||
|
||||
TTipoFecha = (TFecha, TFechaVencimiento);
|
||||
|
||||
TfrViewPeriodoFechas = class(TfrViewParametrosInforme, IViewPeriodoFechas)
|
||||
cxRepository: TcxEditRepository;
|
||||
cxRepositoryPeriodos: TcxEditRepositoryComboBoxItem;
|
||||
cbPeriodo: TcxComboBox;
|
||||
edtFechaIni: TcxDateEdit;
|
||||
edtFechaFin: TcxDateEdit;
|
||||
TBXLabel2: TTBXLabel;
|
||||
TBXAlignmentPanel1: TTBXAlignmentPanel;
|
||||
TBXAlignmentPanel2: TTBXAlignmentPanel;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
TBXAlignmentPanel3: TTBXAlignmentPanel;
|
||||
Label4: TLabel;
|
||||
Label5: TLabel;
|
||||
Label6: TLabel;
|
||||
edtFechaVenFin: TcxDateEdit;
|
||||
edtFechaVenIni: TcxDateEdit;
|
||||
cbPeriodo: TcxComboBox;
|
||||
cbPeriodo2: TcxComboBox;
|
||||
procedure cbPeriodoPropertiesChange(Sender: TObject);
|
||||
procedure edtFechaIni2PropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption;
|
||||
@ -33,25 +41,38 @@ type
|
||||
procedure edtFechaFinPropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption;
|
||||
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
|
||||
function GetFechaFinal: TDateTime;
|
||||
function GetFechaInicial: TDateTime;
|
||||
procedure SetFechaFinal(const Value: TDateTime);
|
||||
procedure SetFechaInicial(const Value: TDateTime);
|
||||
function GetFechaFinal: Variant;
|
||||
function GetFechaInicial: Variant;
|
||||
procedure SetFechaFinal(const Value: Variant);
|
||||
procedure SetFechaInicial(const Value: Variant);
|
||||
|
||||
function GetFechaVenFinal: Variant;
|
||||
function GetFechaVenInicial: Variant;
|
||||
procedure SetFechaVenFinal(const Value: Variant);
|
||||
procedure SetFechaVenInicial(const Value: Variant);
|
||||
|
||||
public
|
||||
procedure Hoy;
|
||||
procedure Ayer;
|
||||
procedure EstaSemana;
|
||||
procedure EsteMes;
|
||||
procedure EsteAno;
|
||||
procedure Ultimos7dias;
|
||||
procedure Ultimos30dias;
|
||||
procedure Ultimos3meses;
|
||||
procedure MesAnterior;
|
||||
procedure AnoAnterior;
|
||||
procedure Personalizado;
|
||||
property FechaInicial : TDateTime read GetFechaInicial write SetFechaInicial;
|
||||
property FechaFinal : TDateTime read GetFechaFinal write SetFechaFinal;
|
||||
procedure Hoy(const ATipoFecha: TTipoFecha);
|
||||
procedure Ayer(const ATipoFecha: TTipoFecha);
|
||||
procedure EstaSemana(const ATipoFecha: TTipoFecha);
|
||||
procedure EsteMes(const ATipoFecha: TTipoFecha);
|
||||
procedure EsteAno(const ATipoFecha: TTipoFecha);
|
||||
procedure Ultimos7dias(const ATipoFecha: TTipoFecha);
|
||||
procedure Ultimos30dias(const ATipoFecha: TTipoFecha);
|
||||
procedure Ultimos3meses(const ATipoFecha: TTipoFecha);
|
||||
procedure MesAnterior(const ATipoFecha: TTipoFecha);
|
||||
procedure AnoAnterior(const ATipoFecha: TTipoFecha);
|
||||
procedure Personalizado(const ATipoFecha: TTipoFecha);
|
||||
property FechaInicial : Variant read GetFechaInicial write SetFechaInicial;
|
||||
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;
|
||||
end;
|
||||
|
||||
@ -61,106 +82,231 @@ uses DateUtils;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrViewPeriodoFechas.AnoAnterior;
|
||||
procedure TfrViewPeriodoFechas.AnoAnterior(const ATipoFecha: TTipoFecha);
|
||||
begin
|
||||
edtFechaIni.Date := StartOfTheYear(IncYear(Today, -1));
|
||||
edtFechaFin.Date := EndOfTheYear(IncYear(Today, -1));
|
||||
case ATipoFecha of
|
||||
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;
|
||||
|
||||
procedure TfrViewPeriodoFechas.Ayer;
|
||||
procedure TfrViewPeriodoFechas.Ayer(const ATipoFecha: TTipoFecha);
|
||||
begin
|
||||
edtFechaIni.Date := Yesterday;
|
||||
edtFechaFin.Date := Yesterday;
|
||||
case ATipoFecha of
|
||||
TFecha: begin
|
||||
edtFechaIni.Date := Yesterday;
|
||||
edtFechaFin.Date := Yesterday;
|
||||
end;
|
||||
TFechaVencimiento: begin
|
||||
edtFechaVenIni.Date := Yesterday;
|
||||
edtFechaVenFin.Date := Yesterday;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewPeriodoFechas.EstaSemana;
|
||||
procedure TfrViewPeriodoFechas.EstaSemana(const ATipoFecha: TTipoFecha);
|
||||
begin
|
||||
edtFechaIni.Date := StartOfTheWeek(Today);
|
||||
edtFechaFin.Date := EndOfTheWeek(Today);
|
||||
case ATipoFecha of
|
||||
TFecha: begin
|
||||
edtFechaIni.Date := StartOfTheWeek(Today);
|
||||
edtFechaFin.Date := EndOfTheWeek(Today);
|
||||
end;
|
||||
TFechaVencimiento: begin
|
||||
edtFechaVenIni.Date := StartOfTheWeek(Today);
|
||||
edtFechaVenFin.Date := EndOfTheWeek(Today);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewPeriodoFechas.EsteAno;
|
||||
procedure TfrViewPeriodoFechas.EsteAno(const ATipoFecha: TTipoFecha);
|
||||
begin
|
||||
edtFechaIni.Date := StartOfTheYear(Today);
|
||||
edtFechaFin.Date := EndOfTheYear(Today);
|
||||
case ATipoFecha of
|
||||
TFecha: begin
|
||||
edtFechaIni.Date := StartOfTheYear(Today);
|
||||
edtFechaFin.Date := EndOfTheYear(Today);
|
||||
end;
|
||||
TFechaVencimiento: begin
|
||||
edtFechaVenIni.Date := StartOfTheYear(Today);
|
||||
edtFechaVenFin.Date := EndOfTheYear(Today);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewPeriodoFechas.EsteMes;
|
||||
procedure TfrViewPeriodoFechas.EsteMes(const ATipoFecha: TTipoFecha);
|
||||
begin
|
||||
edtFechaIni.Date := StartOfTheMonth(Today);
|
||||
edtFechaFin.Date := EndOfTheMonth(Today);
|
||||
case ATipoFecha of
|
||||
TFecha: begin
|
||||
edtFechaIni.Date := StartOfTheMonth(Today);
|
||||
edtFechaFin.Date := EndOfTheMonth(Today);
|
||||
end;
|
||||
TFechaVencimiento: begin
|
||||
edtFechaVenIni.Date := StartOfTheMonth(Today);
|
||||
edtFechaVenFin.Date := EndOfTheMonth(Today);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TfrViewPeriodoFechas.GetFechaFinal: TDateTime;
|
||||
function TfrViewPeriodoFechas.GetFechaFinal: Variant;
|
||||
begin
|
||||
Result := DateOf(edtFechaFin.Date);
|
||||
Result := edtFechaFin.EditValue;
|
||||
end;
|
||||
|
||||
function TfrViewPeriodoFechas.GetFechaInicial: TDateTime;
|
||||
function TfrViewPeriodoFechas.GetFechaInicial: Variant;
|
||||
begin
|
||||
Result := DateOf(edtFechaIni.Date);
|
||||
Result := edtFechaIni.EditValue;
|
||||
end;
|
||||
|
||||
procedure TfrViewPeriodoFechas.Hoy;
|
||||
function TfrViewPeriodoFechas.GetFechaVenFinal: Variant;
|
||||
begin
|
||||
edtFechaIni.Date := Today;
|
||||
edtFechaFin.Date := Today;
|
||||
Result := edtFechaVenFin.EditValue;
|
||||
end;
|
||||
|
||||
procedure TfrViewPeriodoFechas.MesAnterior;
|
||||
function TfrViewPeriodoFechas.GetFechaVenInicial: Variant;
|
||||
begin
|
||||
edtFechaIni.Date := StartOfTheMonth(IncMonth(Today, -1));
|
||||
edtFechaFin.Date := EndOfTheMonth(IncMonth(Today, -1));
|
||||
Result := edtFechaVenIni.EditValue;
|
||||
end;
|
||||
|
||||
procedure TfrViewPeriodoFechas.Personalizado;
|
||||
procedure TfrViewPeriodoFechas.Hoy(const ATipoFecha: TTipoFecha);
|
||||
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;
|
||||
|
||||
procedure TfrViewPeriodoFechas.SetFechaFinal(const Value: TDateTime);
|
||||
procedure TfrViewPeriodoFechas.MesAnterior(const ATipoFecha: TTipoFecha);
|
||||
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;
|
||||
|
||||
procedure TfrViewPeriodoFechas.SetFechaInicial(const Value: TDateTime);
|
||||
procedure TfrViewPeriodoFechas.Personalizado(const ATipoFecha: TTipoFecha);
|
||||
begin
|
||||
edtFechaIni.Date := Value;
|
||||
case ATipoFecha of
|
||||
TFecha: begin
|
||||
edtFechaIni.SetFocus;
|
||||
end;
|
||||
TFechaVencimiento: begin
|
||||
edtFechaVenIni.SetFocus;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewPeriodoFechas.Ultimos30dias;
|
||||
procedure TfrViewPeriodoFechas.SetFechaFinal(const Value: Variant);
|
||||
begin
|
||||
edtFechaIni.Date := IncDay(Today, -30);
|
||||
edtFechaFin.Date := Today
|
||||
edtFechaFin.EditValue := Value;
|
||||
end;
|
||||
|
||||
procedure TfrViewPeriodoFechas.Ultimos3meses;
|
||||
procedure TfrViewPeriodoFechas.SetFechaInicial(const Value: Variant);
|
||||
begin
|
||||
edtFechaIni.Date := IncMonth(Today, -3);
|
||||
edtFechaFin.Date := Today
|
||||
edtFechaIni.EditValue := Value;
|
||||
end;
|
||||
|
||||
procedure TfrViewPeriodoFechas.Ultimos7dias;
|
||||
procedure TfrViewPeriodoFechas.SetFechaVenFinal(const Value: Variant);
|
||||
begin
|
||||
edtFechaIni.Date := IncDay(Today, -7);
|
||||
edtFechaFin.Date := Today
|
||||
edtFechaVenFin.EditValue := Value;
|
||||
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;
|
||||
|
||||
procedure TfrViewPeriodoFechas.cbPeriodoPropertiesChange(Sender: TObject);
|
||||
begin
|
||||
case (Sender as TcxComboBox).ItemIndex of
|
||||
0 : Hoy;
|
||||
1 : Ayer;
|
||||
2 : EstaSemana;
|
||||
3 : EsteMes;
|
||||
4 : EsteAno;
|
||||
5 : Ultimos7dias;
|
||||
6 : Ultimos30dias;
|
||||
7 : Ultimos3meses;
|
||||
8 : MesAnterior;
|
||||
9 : AnoAnterior;
|
||||
0 : Hoy(TFecha);
|
||||
1 : Ayer(TFecha);
|
||||
2 : EstaSemana(TFecha);
|
||||
3 : EsteMes(TFecha);
|
||||
4 : EsteAno(TFecha);
|
||||
5 : Ultimos7dias(TFecha);
|
||||
6 : Ultimos30dias(TFecha);
|
||||
7 : Ultimos3meses(TFecha);
|
||||
8 : MesAnterior(TFecha);
|
||||
9 : AnoAnterior(TFecha);
|
||||
else
|
||||
Personalizado;
|
||||
Personalizado(TFecha);
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -168,7 +314,8 @@ constructor TfrViewPeriodoFechas.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
cbPeriodo.ItemIndex := 3;
|
||||
EsteMes;
|
||||
cbPeriodo2.ItemIndex := -1;
|
||||
EsteMes(TFecha);
|
||||
end;
|
||||
|
||||
procedure TfrViewPeriodoFechas.edtFechaIni2PropertiesValidate(
|
||||
@ -176,12 +323,46 @@ procedure TfrViewPeriodoFechas.edtFechaIni2PropertiesValidate(
|
||||
var Error: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
if DisplayValue <> edtFechaIni.Date then
|
||||
cbPeriodo.ItemIndex := 12;
|
||||
if DisplayValue > edtFechaFin.Date then
|
||||
if Length(VarToStr(DisplayValue)) > 0 then
|
||||
begin
|
||||
edtFechaFin.EditText := DisplayValue;
|
||||
edtFechaFin.ValidateEdit(True);
|
||||
if DisplayValue <> edtFechaIni.Date then
|
||||
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;
|
||||
|
||||
@ -190,12 +371,15 @@ procedure TfrViewPeriodoFechas.edtFechaFinPropertiesValidate(
|
||||
var Error: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
if DisplayValue <> edtFechaFin.Date then
|
||||
cbPeriodo.ItemIndex := 12;
|
||||
if DisplayValue < edtFechaIni.Date then
|
||||
if Length(VarToStr(DisplayValue)) > 0 then
|
||||
begin
|
||||
edtFechaIni.EditText := DisplayValue;
|
||||
edtFechaIni.ValidateEdit(True);
|
||||
if DisplayValue <> edtFechaFin.Date then
|
||||
cbPeriodo.ItemIndex := 12;
|
||||
if DisplayValue < edtFechaIni.Date then
|
||||
begin
|
||||
edtFechaIni.EditText := DisplayValue;
|
||||
edtFechaIni.ValidateEdit(True);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
@ -35,11 +35,13 @@ type
|
||||
private
|
||||
FConnection: IDAConnection;
|
||||
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
|
||||
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 GenerarInformeListadoRecibosPendientes(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: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -88,7 +90,8 @@ begin
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -101,11 +104,12 @@ begin
|
||||
else
|
||||
ATipoInforme := rptInformeListadoRecibosCliente;
|
||||
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, ImporteMinimo);
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, ImporteMinimo);
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -135,11 +139,12 @@ begin
|
||||
ATipoInforme := rptInformeListadoRecibosCliPendientes;
|
||||
|
||||
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, ImporteMinimo);
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, ImporteMinimo);
|
||||
end;
|
||||
|
||||
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;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
@ -173,8 +178,24 @@ begin
|
||||
with tbl_InformeListadoRecibos.DynamicWhere do
|
||||
begin
|
||||
// (FECHA_INICIO between FECHA_FIN)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_VENCIMIENTO), NewConstant(FechaInicio, datDateTime), dboGreaterOrEqual);
|
||||
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_VENCIMIENTO), NewConstant(FechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
|
||||
Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_EMISION), NewConstant(FechaInicio, datDateTime), dboGreaterOrEqual);
|
||||
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
|
||||
Expression := Condicion
|
||||
else
|
||||
@ -216,7 +237,7 @@ begin
|
||||
|
||||
tbl_InformeListadoRecibos.Active := True;
|
||||
|
||||
AInforme := DarRutaFichero(DarRutaInformes, TipoInforme, IntToStr(IdEmpresa));
|
||||
AInforme := DarRutaFichero(DarRutaInformes, TipoInforme, IntToStr(IDEmpresa));
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: _GenerarInforme, no encuentra informe ' + TipoInforme));
|
||||
|
||||
@ -230,12 +251,12 @@ begin
|
||||
finally
|
||||
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TRptRecibosCliente._GenerarRecibo(const ID: Integer);
|
||||
Var
|
||||
var
|
||||
AInforme: Variant;
|
||||
|
||||
begin
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
try
|
||||
|
||||
@ -34,10 +34,10 @@ type
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
private
|
||||
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
|
||||
function GenerarInformeListadoRecibos(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: 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: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -72,25 +72,27 @@ begin
|
||||
end;
|
||||
|
||||
function TRptRecibosProveedor.GenerarInformeListadoRecibos(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
||||
const ListaIDProveedors: TIntegerArray; const Desglosado: Boolean;
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||
const FechaVenInicio, FechaVenFin: Variant;
|
||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
ATipoInforme: String;
|
||||
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
|
||||
ATipoInforme := rptInformeListadoRecibosProveedorDesglosado
|
||||
else
|
||||
ATipoInforme := rptInformeListadoRecibosProveedor;
|
||||
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDProveedors, ImporteMinimo);
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, ImporteMinimo);
|
||||
end;
|
||||
|
||||
function TRptRecibosProveedor.GenerarInformeListadoRecibosPendientes(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
||||
const ListaIDProveedors: TIntegerArray; const Desglosado: Boolean;
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||
const FechaVenInicio, FechaVenFin: Variant;
|
||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
@ -112,18 +114,20 @@ begin
|
||||
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
|
||||
ATipoInforme := rptInformeListadoRecibosProvPendientesDesglosado
|
||||
else
|
||||
ATipoInforme := rptInformeListadoRecibosProvPendientes;
|
||||
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDProveedors, ImporteMinimo);
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, ImporteMinimo);
|
||||
end;
|
||||
|
||||
function TRptRecibosProveedor._GenerarInforme(const TipoInforme: String;
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
||||
const ListaIDProveedors: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||
const FechaVenInicio, FechaVenFin: Variant;
|
||||
const ListaIDProveedores: TIntegerArray;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
i: Integer;
|
||||
@ -156,8 +160,8 @@ begin
|
||||
with tbl_InformeListadoRecibos.DynamicWhere do
|
||||
begin
|
||||
// (FECHA_INICIO between FECHA_FIN)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorFECHA_VENCIMIENTO), NewConstant(FechaInicio, datDateTime), dboGreaterOrEqual);
|
||||
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_RecibosProveedorFECHA_VENCIMIENTO), NewConstant(FechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
|
||||
Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorFECHA_EMISION), NewConstant(FechaInicio, datDateTime), dboGreaterOrEqual);
|
||||
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_RecibosProveedorFECHA_EMISION), NewConstant(FechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
@ -165,16 +169,32 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
// Filtrar el informe por cliente
|
||||
if Assigned(ListaIDProveedors) then
|
||||
// Filtrar el informe por fechas de vencimiento
|
||||
if not VarIsNull(FechaVenInicio)
|
||||
and not VarIsNull(FechaVenFin) then
|
||||
begin
|
||||
with tbl_InformeListadoRecibos.DynamicWhere do
|
||||
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
|
||||
|
||||
// (ID_CLIENTE = ID)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorID_PROVEEDOR), NewConstant(ListaIDProveedors.Items[i], datInteger), dboEqual);
|
||||
// (ID_PROVEEDOR = ID)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorID_PROVEEDOR), NewConstant(ListaIDProveedores.Items[i], datInteger), dboEqual);
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
|
||||
@ -581,9 +581,9 @@
|
||||
</Parameter>
|
||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaFin" DataType="Variant" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
|
||||
</Parameter>
|
||||
@ -599,9 +599,9 @@
|
||||
</Parameter>
|
||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaFin" DataType="Variant" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
|
||||
</Parameter>
|
||||
@ -617,9 +617,9 @@
|
||||
</Parameter>
|
||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaFin" DataType="Variant" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="ListadoIDClientes" DataType="TIntegerArray" Flag="In" >
|
||||
</Parameter>
|
||||
@ -635,9 +635,13 @@
|
||||
</Parameter>
|
||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||
</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 Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
|
||||
</Parameter>
|
||||
@ -653,9 +657,9 @@
|
||||
</Parameter>
|
||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaFin" DataType="Variant" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
|
||||
</Parameter>
|
||||
@ -671,9 +675,13 @@
|
||||
</Parameter>
|
||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||
</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 Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
|
||||
</Parameter>
|
||||
@ -689,9 +697,13 @@
|
||||
</Parameter>
|
||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||
</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 Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
|
||||
</Parameter>
|
||||
@ -707,9 +719,13 @@
|
||||
</Parameter>
|
||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||
</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 Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
|
||||
</Parameter>
|
||||
@ -725,9 +741,13 @@
|
||||
</Parameter>
|
||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||
</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 Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
|
||||
</Parameter>
|
||||
@ -743,9 +763,13 @@
|
||||
</Parameter>
|
||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||
</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 Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
|
||||
</Parameter>
|
||||
@ -761,9 +785,9 @@
|
||||
</Parameter>
|
||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaFin" DataType="Variant" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
|
||||
</Parameter>
|
||||
@ -779,9 +803,9 @@
|
||||
</Parameter>
|
||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaFin" DataType="Variant" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
|
||||
</Parameter>
|
||||
|
||||
@ -755,29 +755,29 @@ type
|
||||
{ IsrvGestorInformes }
|
||||
IsrvGestorInformes = interface(IDataAbstractService)
|
||||
['{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;
|
||||
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;
|
||||
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;
|
||||
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; 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 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 GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: 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 GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: 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 GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; 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 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;
|
||||
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 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 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 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 GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
|
||||
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;
|
||||
end;
|
||||
|
||||
@ -791,29 +791,29 @@ type
|
||||
protected
|
||||
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;
|
||||
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;
|
||||
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;
|
||||
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; 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 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 GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: 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 GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: 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 GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; 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 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;
|
||||
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 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 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 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 GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
|
||||
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;
|
||||
end;
|
||||
|
||||
@ -2239,15 +2239,15 @@ begin
|
||||
result := 'srvGestorInformes';
|
||||
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;
|
||||
begin
|
||||
try
|
||||
result := nil;
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeIVAClientes');
|
||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||
__Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
||||
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -2262,15 +2262,15 @@ begin
|
||||
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;
|
||||
begin
|
||||
try
|
||||
result := nil;
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeIVAProveedores');
|
||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||
__Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
|
||||
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -2285,15 +2285,15 @@ begin
|
||||
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;
|
||||
begin
|
||||
try
|
||||
result := nil;
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasCli');
|
||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||
__Message.Write('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []);
|
||||
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -2308,15 +2308,17 @@ begin
|
||||
end
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function TsrvGestorInformes_Proxy.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;
|
||||
begin
|
||||
try
|
||||
result := nil;
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasProv');
|
||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__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('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -2331,15 +2333,15 @@ begin
|
||||
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;
|
||||
begin
|
||||
try
|
||||
result := nil;
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasCliPendientes');
|
||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||
__Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
||||
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -2354,15 +2356,17 @@ begin
|
||||
end
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function TsrvGestorInformes_Proxy.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;
|
||||
begin
|
||||
try
|
||||
result := nil;
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasProvPendientes');
|
||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__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('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -2377,15 +2381,17 @@ begin
|
||||
end
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function TsrvGestorInformes_Proxy.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;
|
||||
begin
|
||||
try
|
||||
result := nil;
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosCliente');
|
||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__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('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -2400,15 +2406,17 @@ begin
|
||||
end
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function TsrvGestorInformes_Proxy.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;
|
||||
begin
|
||||
try
|
||||
result := nil;
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosProveedor');
|
||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__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('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -2423,15 +2431,17 @@ begin
|
||||
end
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function TsrvGestorInformes_Proxy.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;
|
||||
begin
|
||||
try
|
||||
result := nil;
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosCliPendientes');
|
||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__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('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -2446,15 +2456,17 @@ begin
|
||||
end
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function TsrvGestorInformes_Proxy.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;
|
||||
begin
|
||||
try
|
||||
result := nil;
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosProvPendientes');
|
||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__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('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -2469,15 +2481,15 @@ begin
|
||||
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;
|
||||
begin
|
||||
try
|
||||
result := nil;
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoPresupuestos');
|
||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||
__Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
||||
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -2492,15 +2504,15 @@ begin
|
||||
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;
|
||||
begin
|
||||
try
|
||||
result := nil;
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoPedidos');
|
||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||
__Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
|
||||
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
|
||||
@ -1294,12 +1294,12 @@ end;
|
||||
{ TsrvGestorInformes_Invoker }
|
||||
|
||||
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; }
|
||||
var
|
||||
IdEmpresa: Integer;
|
||||
FechaInicio: DateTime;
|
||||
FechaFin: DateTime;
|
||||
FechaInicio: Variant;
|
||||
FechaFin: Variant;
|
||||
ListaIDClientes: FactuGES_Intf.TIntegerArray;
|
||||
Desglosado: Boolean;
|
||||
ImporteMinimo: Currency;
|
||||
@ -1310,8 +1310,8 @@ begin
|
||||
lResult := nil;
|
||||
try
|
||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||
__Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
||||
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -1335,12 +1335,12 @@ begin
|
||||
end;
|
||||
|
||||
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; }
|
||||
var
|
||||
IdEmpresa: Integer;
|
||||
FechaInicio: DateTime;
|
||||
FechaFin: DateTime;
|
||||
FechaInicio: Variant;
|
||||
FechaFin: Variant;
|
||||
ListaIDProveedores: FactuGES_Intf.TIntegerArray;
|
||||
Desglosado: Boolean;
|
||||
ImporteMinimo: Currency;
|
||||
@ -1351,8 +1351,8 @@ begin
|
||||
lResult := nil;
|
||||
try
|
||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||
__Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
|
||||
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -1376,12 +1376,12 @@ begin
|
||||
end;
|
||||
|
||||
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; }
|
||||
var
|
||||
IdEmpresa: Integer;
|
||||
FechaInicio: DateTime;
|
||||
FechaFin: DateTime;
|
||||
FechaInicio: Variant;
|
||||
FechaFin: Variant;
|
||||
ListadoIDClientes: FactuGES_Intf.TIntegerArray;
|
||||
Desglosado: Boolean;
|
||||
ImporteMinimo: Currency;
|
||||
@ -1392,8 +1392,8 @@ begin
|
||||
lResult := nil;
|
||||
try
|
||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||
__Message.Read('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []);
|
||||
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -1417,12 +1417,14 @@ begin
|
||||
end;
|
||||
|
||||
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;
|
||||
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; }
|
||||
var
|
||||
IdEmpresa: Integer;
|
||||
FechaInicio: DateTime;
|
||||
FechaFin: DateTime;
|
||||
FechaInicio: Variant;
|
||||
FechaFin: Variant;
|
||||
FechaVenInicio: Variant;
|
||||
FechaVenFin: Variant;
|
||||
ListaIDProveedores: FactuGES_Intf.TIntegerArray;
|
||||
Desglosado: Boolean;
|
||||
ImporteMinimo: Currency;
|
||||
@ -1433,13 +1435,15 @@ begin
|
||||
lResult := nil;
|
||||
try
|
||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__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('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__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.Write('Result', TypeInfo(Binary), lResult, []);
|
||||
@ -1458,12 +1462,12 @@ begin
|
||||
end;
|
||||
|
||||
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; }
|
||||
var
|
||||
IdEmpresa: Integer;
|
||||
FechaInicio: DateTime;
|
||||
FechaFin: DateTime;
|
||||
FechaInicio: Variant;
|
||||
FechaFin: Variant;
|
||||
ListaIDClientes: FactuGES_Intf.TIntegerArray;
|
||||
Desglosado: Boolean;
|
||||
ImporteMinimo: Currency;
|
||||
@ -1474,8 +1478,8 @@ begin
|
||||
lResult := nil;
|
||||
try
|
||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||
__Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
||||
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -1499,12 +1503,14 @@ begin
|
||||
end;
|
||||
|
||||
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;
|
||||
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; }
|
||||
var
|
||||
IdEmpresa: Integer;
|
||||
FechaInicio: DateTime;
|
||||
FechaFin: DateTime;
|
||||
FechaInicio: Variant;
|
||||
FechaFin: Variant;
|
||||
FechaVenInicio: Variant;
|
||||
FechaVenFin: Variant;
|
||||
ListaIDProveedores: FactuGES_Intf.TIntegerArray;
|
||||
Desglosado: Boolean;
|
||||
ImporteMinimo: Currency;
|
||||
@ -1515,13 +1521,15 @@ begin
|
||||
lResult := nil;
|
||||
try
|
||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__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('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__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.Write('Result', TypeInfo(Binary), lResult, []);
|
||||
@ -1540,12 +1548,14 @@ begin
|
||||
end;
|
||||
|
||||
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;
|
||||
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; }
|
||||
var
|
||||
IdEmpresa: Integer;
|
||||
FechaInicio: DateTime;
|
||||
FechaFin: DateTime;
|
||||
FechaInicio: Variant;
|
||||
FechaFin: Variant;
|
||||
FechaVenInicio: Variant;
|
||||
FechaVenFin: Variant;
|
||||
ListaIDClientes: FactuGES_Intf.TIntegerArray;
|
||||
Desglosado: Boolean;
|
||||
ImporteMinimo: Currency;
|
||||
@ -1556,13 +1566,15 @@ begin
|
||||
lResult := nil;
|
||||
try
|
||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__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('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__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.Write('Result', TypeInfo(Binary), lResult, []);
|
||||
@ -1581,12 +1593,14 @@ begin
|
||||
end;
|
||||
|
||||
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;
|
||||
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; }
|
||||
var
|
||||
IdEmpresa: Integer;
|
||||
FechaInicio: DateTime;
|
||||
FechaFin: DateTime;
|
||||
FechaInicio: Variant;
|
||||
FechaFin: Variant;
|
||||
FechaVenInicio: Variant;
|
||||
FechaVenFin: Variant;
|
||||
ListaIDProveedores: FactuGES_Intf.TIntegerArray;
|
||||
Desglosado: Boolean;
|
||||
ImporteMinimo: Currency;
|
||||
@ -1597,13 +1611,15 @@ begin
|
||||
lResult := nil;
|
||||
try
|
||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__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('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__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.Write('Result', TypeInfo(Binary), lResult, []);
|
||||
@ -1622,12 +1638,14 @@ begin
|
||||
end;
|
||||
|
||||
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;
|
||||
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; }
|
||||
var
|
||||
IdEmpresa: Integer;
|
||||
FechaInicio: DateTime;
|
||||
FechaFin: DateTime;
|
||||
FechaInicio: Variant;
|
||||
FechaFin: Variant;
|
||||
FechaVenInicio: Variant;
|
||||
FechaVenFin: Variant;
|
||||
ListaIDClientes: FactuGES_Intf.TIntegerArray;
|
||||
Desglosado: Boolean;
|
||||
ImporteMinimo: Currency;
|
||||
@ -1638,13 +1656,15 @@ begin
|
||||
lResult := nil;
|
||||
try
|
||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__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('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__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.Write('Result', TypeInfo(Binary), lResult, []);
|
||||
@ -1663,12 +1683,14 @@ begin
|
||||
end;
|
||||
|
||||
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;
|
||||
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; }
|
||||
var
|
||||
IdEmpresa: Integer;
|
||||
FechaInicio: DateTime;
|
||||
FechaFin: DateTime;
|
||||
FechaInicio: Variant;
|
||||
FechaFin: Variant;
|
||||
FechaVenInicio: Variant;
|
||||
FechaVenFin: Variant;
|
||||
ListaIDProveedores: FactuGES_Intf.TIntegerArray;
|
||||
Desglosado: Boolean;
|
||||
ImporteMinimo: Currency;
|
||||
@ -1679,13 +1701,15 @@ begin
|
||||
lResult := nil;
|
||||
try
|
||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__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('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__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.Write('Result', TypeInfo(Binary), lResult, []);
|
||||
@ -1704,12 +1728,12 @@ begin
|
||||
end;
|
||||
|
||||
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; }
|
||||
var
|
||||
IdEmpresa: Integer;
|
||||
FechaInicio: DateTime;
|
||||
FechaFin: DateTime;
|
||||
FechaInicio: Variant;
|
||||
FechaFin: Variant;
|
||||
ListaIDClientes: FactuGES_Intf.TIntegerArray;
|
||||
Desglosado: Boolean;
|
||||
ImporteMinimo: Currency;
|
||||
@ -1720,8 +1744,8 @@ begin
|
||||
lResult := nil;
|
||||
try
|
||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||
__Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
||||
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -1745,12 +1769,12 @@ begin
|
||||
end;
|
||||
|
||||
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; }
|
||||
var
|
||||
IdEmpresa: Integer;
|
||||
FechaInicio: DateTime;
|
||||
FechaFin: DateTime;
|
||||
FechaInicio: Variant;
|
||||
FechaFin: Variant;
|
||||
ListaIDProveedores: FactuGES_Intf.TIntegerArray;
|
||||
Desglosado: Boolean;
|
||||
ImporteMinimo: Currency;
|
||||
@ -1761,8 +1785,8 @@ begin
|
||||
lResult := nil;
|
||||
try
|
||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||
__Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
|
||||
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
|
||||
Binary file not shown.
@ -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">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<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>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
|
||||
<DCC_DebugVN>True</DCC_DebugVN>
|
||||
<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
|
||||
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
|
||||
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<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>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
|
||||
<Form>srvProvinciasPoblaciones_Impl</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
|
||||
<Form>srvUsuarios</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas"/>
|
||||
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
|
||||
<DCCReference Include="..\Base\Utiles\uStringsUtils.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\uBizAlbaranClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
|
||||
<Form>RptAlbaranesCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
|
||||
<Form>RptWordAlbaranCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizAlbaranProveedorServer.PAS"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
|
||||
<Form>srvArticulos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
|
||||
<Form>RptEtiquetasContacto</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
|
||||
<Form>RptFichasEmpleado</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
|
||||
<Form>srvFabricantes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizFacturasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<Form>RptFacturasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
|
||||
<Form>RptWordFacturaCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizFacturasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
|
||||
<Form>RptFacturasProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
|
||||
<Form>srvFamilias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\Servidor\srvFormasPago_Impl.pas">
|
||||
<Form>srvFormasPago</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
|
||||
<Form>srvGestorDocumentos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
|
||||
<Form>srvGestorInformes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
|
||||
<Form>srvObras</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizPedidosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
|
||||
<Form>RptPedidosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
|
||||
<Form>RptWordPedidoProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizPresupuestosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
|
||||
<Form>RptWordCertificadoTrabajo</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
|
||||
<Form>RptWordPresupuestoCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\Reports\uRptRecibosCliente_Server.pas">
|
||||
<Form>RptRecibosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\Reports\uRptRecibosProveedor_Server.pas">
|
||||
<Form>RptRecibosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
||||
<Form>srvReferencias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizRemesasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizRemesasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\Servidor\srvTiposIVA_Impl.pas">
|
||||
<Form>srvTiposIVA</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\Servidor\srvUnidadesMedida_Impl.pas">
|
||||
<Form>srvUnidadesMedida</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<Form>frConexionBD</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<Form>frConfGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<Form>fConfiguracion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<Form>FrameConfiguracion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<Form>srvLogin</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<Form>dmServer</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\AHWord97.pas"/>
|
||||
<DCCReference Include="Utiles\RegExpr.pas"/>
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
|
||||
</ItemGroup>
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<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>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
|
||||
<DCC_DebugVN>True</DCC_DebugVN>
|
||||
<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
|
||||
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
|
||||
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<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>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
|
||||
<Form>srvProvinciasPoblaciones_Impl</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
|
||||
<Form>srvUsuarios</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas" />
|
||||
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
|
||||
<DCCReference Include="..\Base\Utiles\uStringsUtils.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\uBizAlbaranClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
|
||||
<Form>RptAlbaranesCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
|
||||
<Form>RptWordAlbaranCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizAlbaranProveedorServer.PAS" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
|
||||
<Form>srvArticulos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
|
||||
<Form>RptEtiquetasContacto</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
|
||||
<Form>RptFichasEmpleado</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
|
||||
<Form>srvFabricantes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizFacturasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<Form>RptFacturasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
|
||||
<Form>RptWordFacturaCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizFacturasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
|
||||
<Form>RptFacturasProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
|
||||
<Form>srvFamilias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\Servidor\srvFormasPago_Impl.pas">
|
||||
<Form>srvFormasPago</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
|
||||
<Form>srvGestorDocumentos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
|
||||
<Form>srvGestorInformes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
|
||||
<Form>srvObras</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizPedidosProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
|
||||
<Form>RptPedidosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
|
||||
<Form>RptWordPedidoProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizPresupuestosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
|
||||
<Form>RptWordCertificadoTrabajo</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
|
||||
<Form>RptWordPresupuestoCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\Reports\uRptRecibosCliente_Server.pas">
|
||||
<Form>RptRecibosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\Reports\uRptRecibosProveedor_Server.pas">
|
||||
<Form>RptRecibosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
||||
<Form>srvReferencias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizRemesasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\uBizRemesasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\Servidor\srvTiposIVA_Impl.pas">
|
||||
<Form>srvTiposIVA</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<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\Servidor\srvUnidadesMedida_Impl.pas">
|
||||
<Form>srvUnidadesMedida</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<Form>frConexionBD</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<Form>frConfGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<Form>fConfiguracion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<Form>FrameConfiguracion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<Form>srvLogin</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<Form>dmServer</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\AHWord97.pas" />
|
||||
<DCCReference Include="Utiles\RegExpr.pas" />
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas" />
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6011
|
||||
EurekaLog Version=6006
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
|
||||
Loading…
Reference in New Issue
Block a user