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

Se arreglan varios detalles de los listados de informes

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@831 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2009-01-08 17:45:28 +00:00
parent baba1a5e06
commit 80370d76e5
28 changed files with 531 additions and 438 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Database/scripts/factuges.sql
View File

@ -58,7 +58,7 @@ CREATE DOMAIN TIPO_ID AS
INTEGER; INTEGER;
CREATE DOMAIN TIPO_IMPORTE AS CREATE DOMAIN TIPO_IMPORTE AS
NUMERIC(11,2); NUMERIC(11,4);
CREATE DOMAIN TIPO_NOTAS AS CREATE DOMAIN TIPO_NOTAS AS
BLOB SUB_TYPE 1 SEGMENT SIZE 80; BLOB SUB_TYPE 1 SEGMENT SIZE 80;

BIN
Source/Base/Base.res
View File

Binary file not shown.

50
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
View File

@ -466,30 +466,32 @@ object RptFacturasCliente: TRptFacturasCliente
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'V_FACTURAS_CLIENTE' TargetTable = 'V_FACTURAS_CLIENTE'
SQL = SQL =
'select ID_EMPRESA,'#10'extract (year from fecha_factura) as ANO,'#10'ext' + 'select ID_EMPRESA,'#10'extract (year from fecha_vencimiento) as ANO,' +
'ract (month from fecha_factura) as MES,'#10'case'#10'when extract (month' + #10'extract (month from fecha_vencimiento) as MES,'#10'case'#10'when extrac' +
' from fecha_factura) = 1 then '#39'ENERO - '#39' || extract (year from f' + 't (month from fecha_vencimiento) = 1 then '#39'ENERO - '#39' || extract ' +
'echa_factura)'#10'when extract (month from fecha_factura) = 2 then '#39 + '(year from fecha_vencimiento)'#10'when extract (month from fecha_ven' +
'FEBRERO - '#39' || extract (year from fecha_factura)'#10'when extract (m' + 'cimiento) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_venc' +
'onth from fecha_factura) = 3 then '#39'MARZO - '#39' || extract (year fr' + 'imiento)'#10'when extract (month from fecha_vencimiento) = 3 then '#39'M' +
'om fecha_factura)'#10'when extract (month from fecha_factura) = 4 th' + 'ARZO - '#39' || extract (year from fecha_vencimiento)'#10'when extract (' +
'en '#39'ABRIL - '#39' || extract (year from fecha_factura)'#10'when extract ' + 'month from fecha_vencimiento) = 4 then '#39'ABRIL - '#39' || extract (ye' +
'(month from fecha_factura) = 5 then '#39'MAYO - '#39' || extract (year f' + 'ar from fecha_vencimiento)'#10'when extract (month from fecha_vencim' +
'rom fecha_factura)'#10'when extract (month from fecha_factura) = 6 t' + 'iento) = 5 then '#39'MAYO - '#39' || extract (year from fecha_vencimient' +
'hen '#39'JUNIO - '#39' || extract (year from fecha_factura)'#10'when extract' + 'o)'#10'when extract (month from fecha_vencimiento) = 6 then '#39'JUNIO -' +
' (month from fecha_factura) = 7 then '#39'JULIO - '#39' || extract (year' + ' '#39' || extract (year from fecha_vencimiento)'#10'when extract (month ' +
' from fecha_factura)'#10'when extract (month from fecha_factura) = 8' + 'from fecha_vencimiento) = 7 then '#39'JULIO - '#39' || extract (year fro' +
' then '#39'AGOSTO - '#39' || extract (year from fecha_factura)'#10'when extr' + 'm fecha_vencimiento)'#10'when extract (month from fecha_vencimiento)' +
'act (month from fecha_factura) = 9 then '#39'SEPTIEMBRE - '#39' || extra' + ' = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_vencimiento)'#10'w' +
'ct (year from fecha_factura)'#10'when extract (month from fecha_fact' + 'hen extract (month from fecha_vencimiento) = 9 then '#39'SEPTIEMBRE ' +
'ura) = 10 then '#39'OCTUBRE - '#39' || extract (year from fecha_factura)' + '- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' +
#10'when extract (month from fecha_factura) = 11 then '#39'NOVIEMBRE - ' + ' from fecha_vencimiento) = 10 then '#39'OCTUBRE - '#39' || extract (year' +
#39' || extract (year from fecha_factura)'#10'when extract (month from ' + ' from fecha_vencimiento)'#10'when extract (month from fecha_vencimie' +
'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' + 'nto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_vencim' +
'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SIT' + 'iento)'#10'when extract (month from fecha_vencimiento) = 12 then '#39'DI' +
'UACION, NIF_CIF, FECHA_FACTURA, FECHA_VENCIMIENTO, BASE_IMPONIBL' + 'CIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'end as TITU' +
'E, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from V_facturas_cliente'#10'where {wh' + 'LO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SITUACION, NIF_CIF, FECHA_F' +
'ere}'#10'order by ANO, MES, NOMBRE'#10#10 'ACTURA, FECHA_VENCIMIENTO, BASE_IMPONIBLE, IMPORTE_IVA, IMPORTE_' +
'TOTAL'#10#10'from V_facturas_cliente'#10'where {where}'#10'order by ANO, MES, ' +
'NOMBRE'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item

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

@ -89,13 +89,13 @@ type
FConnection: IDAConnection; FConnection: IDAConnection;
//Genera cada una de las facturas a imprimir //Genera cada una de las facturas a imprimir
procedure _GenerarFactura(const ID: Integer; const VerSello: Boolean = True); procedure _GenerarFactura(const ID: Integer; const VerSello: Boolean = True);
function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: 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 ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary;
public public
function GenerarFactura(const ListaID : TIntegerArray; const VerSello: Boolean = True): Binary; function GenerarFactura(const ListaID : TIntegerArray; const VerSello: Boolean = True): Binary;
function GenerarFacturaEnPDF(const ListaID : TIntegerArray; const VerSello: Boolean = True): Binary; function GenerarFacturaEnPDF(const ListaID : TIntegerArray; const VerSello: Boolean = True): Binary;
function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; 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 GenerarInformeListadoFacturas(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 GenerarInformeListadoFacturasPendientes(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 FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
end; end;
implementation implementation
@ -176,12 +176,12 @@ begin
else else
ATipoInforme := rptInformeIVA; ATipoInforme := rptInformeIVA;
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, ImporteMinimo); Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, Null, Null, ListaIDClientes, ImporteMinimo);
end; end;
function TRptFacturasCliente.GenerarInformeListadoFacturas(const IdEmpresa: Integer; function TRptFacturasCliente.GenerarInformeListadoFacturas(const IdEmpresa: Integer;
const FechaInicio, FechaFin: Variant; const ListaIDClientes: TIntegerArray; const FechaInicio, FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
var var
ATipoInforme: String; ATipoInforme: String;
@ -193,11 +193,12 @@ begin
else else
ATipoInforme := rptInformeListadoFacturasCliente; ATipoInforme := rptInformeListadoFacturasCliente;
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, ImporteMinimo); Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, ImporteMinimo);
end; end;
function TRptFacturasCliente.GenerarInformeListadoFacturasPendientes( function TRptFacturasCliente.GenerarInformeListadoFacturasPendientes(
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const FechaVenInicio: Variant; const FechaVenFin: Variant;
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
var var
@ -227,7 +228,7 @@ begin
ATipoInforme := rptInformeListadoFactuasClientePendiente; ATipoInforme := rptInformeListadoFactuasClientePendiente;
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, ImporteMinimo); Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, ImporteMinimo);
end; end;
procedure TRptFacturasCliente._GenerarFactura(const ID: Integer; const VerSello: Boolean = True); procedure TRptFacturasCliente._GenerarFactura(const ID: Integer; const VerSello: Boolean = True);
@ -266,6 +267,7 @@ end;
function TRptFacturasCliente._GenerarInforme(const TipoInforme: String; function TRptFacturasCliente._GenerarInforme(const TipoInforme: String;
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const FechaVenInicio: Variant; const FechaVenFin: Variant;
const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary; const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary;
var var
Condicion: TDAWhereExpression; Condicion: TDAWhereExpression;
@ -308,6 +310,22 @@ begin
end; end;
end; end;
// 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_FacturasClienteFECHA_VENCIMIENTO), NewConstant(FechaVenInicio, datDateTime), dboGreaterOrEqual);
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_FacturasClienteFECHA_VENCIMIENTO), NewConstant(FechaVenFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
end;
// Filtrar el informe por cliente // Filtrar el informe por cliente
if Assigned(ListaIDClientes) then if Assigned(ListaIDClientes) then
begin begin

1
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
View File

@ -56,6 +56,7 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Width = 28 Width = 28
end end
object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn
Caption = 'Fecha vto.'
DataBinding.FieldName = 'FECHA_VENCIMIENTO' DataBinding.FieldName = 'FECHA_VENCIMIENTO'
PropertiesClassName = 'TcxDateEditProperties' PropertiesClassName = 'TcxDateEditProperties'
end end

50
Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm
View File

@ -421,30 +421,32 @@ object RptFacturasProveedor: TRptFacturasProveedor
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'V_FACTURAS_PROVEEDOR' TargetTable = 'V_FACTURAS_PROVEEDOR'
SQL = SQL =
'select ID_EMPRESA,'#10'extract (year from fecha_factura) as ANO,'#10'ext' + 'select ID_EMPRESA,'#10'extract (year from fecha_vencimiento) as ANO,' +
'ract (month from fecha_factura) as MES,'#10'case'#10'when extract (month' + #10'extract (month from fecha_vencimiento) as MES,'#10'case'#10'when extrac' +
' from fecha_factura) = 1 then '#39'ENERO - '#39' || extract (year from f' + 't (month from fecha_vencimiento) = 1 then '#39'ENERO - '#39' || extract ' +
'echa_factura)'#10'when extract (month from fecha_factura) = 2 then '#39 + '(year from fecha_vencimiento)'#10'when extract (month from fecha_ven' +
'FEBRERO - '#39' || extract (year from fecha_factura)'#10'when extract (m' + 'cimiento) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_venc' +
'onth from fecha_factura) = 3 then '#39'MARZO - '#39' || extract (year fr' + 'imiento)'#10'when extract (month from fecha_vencimiento) = 3 then '#39'M' +
'om fecha_factura)'#10'when extract (month from fecha_factura) = 4 th' + 'ARZO - '#39' || extract (year from fecha_vencimiento)'#10'when extract (' +
'en '#39'ABRIL - '#39' || extract (year from fecha_factura)'#10'when extract ' + 'month from fecha_vencimiento) = 4 then '#39'ABRIL - '#39' || extract (ye' +
'(month from fecha_factura) = 5 then '#39'MAYO - '#39' || extract (year f' + 'ar from fecha_vencimiento)'#10'when extract (month from fecha_vencim' +
'rom fecha_factura)'#10'when extract (month from fecha_factura) = 6 t' + 'iento) = 5 then '#39'MAYO - '#39' || extract (year from fecha_vencimient' +
'hen '#39'JUNIO - '#39' || extract (year from fecha_factura)'#10'when extract' + 'o)'#10'when extract (month from fecha_vencimiento) = 6 then '#39'JUNIO -' +
' (month from fecha_factura) = 7 then '#39'JULIO - '#39' || extract (year' + ' '#39' || extract (year from fecha_vencimiento)'#10'when extract (month ' +
' from fecha_factura)'#10'when extract (month from fecha_factura) = 8' + 'from fecha_vencimiento) = 7 then '#39'JULIO - '#39' || extract (year fro' +
' then '#39'AGOSTO - '#39' || extract (year from fecha_factura)'#10'when extr' + 'm fecha_vencimiento)'#10'when extract (month from fecha_vencimiento)' +
'act (month from fecha_factura) = 9 then '#39'SEPTIEMBRE - '#39' || extra' + ' = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_vencimiento)'#10'w' +
'ct (year from fecha_factura)'#10'when extract (month from fecha_fact' + 'hen extract (month from fecha_vencimiento) = 9 then '#39'SEPTIEMBRE ' +
'ura) = 10 then '#39'OCTUBRE - '#39' || extract (year from fecha_factura)' + '- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' +
#10'when extract (month from fecha_factura) = 11 then '#39'NOVIEMBRE - ' + ' from fecha_vencimiento) = 10 then '#39'OCTUBRE - '#39' || extract (year' +
#39' || extract (year from fecha_factura)'#10'when extract (month from ' + ' from fecha_vencimiento)'#10'when extract (month from fecha_vencimie' +
'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' + 'nto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_vencim' +
'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE, S' + 'iento)'#10'when extract (month from fecha_vencimiento) = 12 then '#39'DI' +
'ITUACION, NIF_CIF, FECHA_FACTURA, FECHA_VENCIMIENTO, BASE_IMPONI' + 'CIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'end as TITU' +
'BLE, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from V_facturas_proveedor'#10'where' + 'LO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE, SITUACION, NIF_CIF, FECHA' +
' {where}'#10'order by ANO, MES, NOMBRE'#10#10 '_FACTURA, FECHA_VENCIMIENTO, BASE_IMPONIBLE, IMPORTE_IVA, IMPORT' +
'E_TOTAL'#10#10'from V_facturas_proveedor'#10'where {where}'#10'order by ANO, M' +
'ES, NOMBRE'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item

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

@ -238,7 +238,7 @@ begin
end; end;
// Filtrar el informe por fechas de vencimiento // Filtrar el informe por fechas de vencimiento
{ if not VarIsNull(FechaVenInicio) if not VarIsNull(FechaVenInicio)
and not VarIsNull(FechaVenFin) then and not VarIsNull(FechaVenFin) then
begin begin
with tbl_InformeListadoFacturas.DynamicWhere do with tbl_InformeListadoFacturas.DynamicWhere do
@ -252,7 +252,6 @@ begin
Expression := NewBinaryExpression(Expression, Condicion, dboAnd); Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; end;
end; end;
}
// Filtrar el informe por proveedor // Filtrar el informe por proveedor
if Assigned(ListaIDProveedores) then if Assigned(ListaIDProveedores) then

1
Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm
View File

@ -72,6 +72,7 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
Width = 27 Width = 27
end end
object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn
Caption = 'Fecha vto.'
DataBinding.FieldName = 'FECHA_VENCIMIENTO' DataBinding.FieldName = 'FECHA_VENCIMIENTO'
PropertiesClassName = 'TcxDateEditProperties' PropertiesClassName = 'TcxDateEditProperties'
end end

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

@ -10,11 +10,15 @@ type
['{6ADD8C8B-34D8-4F51-9C9C-4A9ED54DDE34}'] ['{6ADD8C8B-34D8-4F51-9C9C-4A9ED54DDE34}']
function GetFechaFin: Variant; function GetFechaFin: Variant;
function GetFechaInicio: Variant; function GetFechaInicio: Variant;
function GetFechaVenFin: Variant;
function GetFechaVenInicio: Variant;
function GetListaIDClientes: TIntegerArray; function GetListaIDClientes: TIntegerArray;
function GetDesglosadoCliente: Boolean; function GetDesglosadoCliente: Boolean;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
property FechaInicio: Variant read GetFechaInicio; property FechaInicio: Variant read GetFechaInicio;
property FechaFin: Variant read GetFechaFin; property FechaFin: Variant read GetFechaFin;
property FechaVenInicio: Variant read GetFechaVenInicio;
property FechaVenFin: Variant read GetFechaVenFin;
property ListaIDClientes: TIntegerArray read GetListaIDClientes; property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente; property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property ImporteMinimo: Currency read getImporteMinimo; property ImporteMinimo: Currency read getImporteMinimo;

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

@ -10,11 +10,15 @@ type
['{AE5DD69C-6360-4A6A-A764-C0DAF5B5A948}'] ['{AE5DD69C-6360-4A6A-A764-C0DAF5B5A948}']
function GetFechaFin: Variant; function GetFechaFin: Variant;
function GetFechaInicio: Variant; function GetFechaInicio: Variant;
function GetFechaVenFin: Variant;
function GetFechaVenInicio: Variant;
function GetListaIDClientes: TIntegerArray; function GetListaIDClientes: TIntegerArray;
function GetDesglosadoCliente: Boolean; function GetDesglosadoCliente: Boolean;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
property FechaInicio: Variant read GetFechaInicio; property FechaInicio: Variant read GetFechaInicio;
property FechaFin: Variant read GetFechaFin; property FechaFin: Variant read GetFechaFin;
property FechaVenInicio: Variant read GetFechaVenInicio;
property FechaVenFin: Variant read GetFechaVenFin;
property ListaIDClientes: TIntegerArray read GetListaIDClientes; property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente; property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property ImporteMinimo: Currency read getImporteMinimo; property ImporteMinimo: Currency read getImporteMinimo;

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

@ -336,7 +336,7 @@ begin
AEditor.Controller := Self; AEditor.Controller := Self;
AEditor.Title := 'Listado de facturas de cliente'; AEditor.Title := 'Listado de facturas de cliente';
AStream := FDataModule.GenerarInformeListadoFacturasCli(AppFactuGES.EmpresaActiva.ID, AStream := FDataModule.GenerarInformeListadoFacturasCli(AppFactuGES.EmpresaActiva.ID,
AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDClientes, AEditor.FechaInicio, AEditor.FechaFin, AEditor.FechaVenInicio, AEditor.FechaVenFin, AEditor.ListaIDClientes,
AEditor.DesglosadoCliente, AEditor.ImporteMinimo); AEditor.DesglosadoCliente, AEditor.ImporteMinimo);
AEditor.LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
AEditor.Preview; AEditor.Preview;
@ -360,7 +360,7 @@ begin
AEditor.Controller := Self; AEditor.Controller := Self;
AEditor.Title := 'Listado de facturas de cliente pendientes'; AEditor.Title := 'Listado de facturas de cliente pendientes';
AStream := FDataModule.GenerarInformeListadoFacturasCliPendientes(AppFactuGES.EmpresaActiva.ID, AStream := FDataModule.GenerarInformeListadoFacturasCliPendientes(AppFactuGES.EmpresaActiva.ID,
AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDClientes, AEditor.FechaInicio, AEditor.FechaFin, AEditor.FechaVenInicio, AEditor.FechaVenFin, AEditor.ListaIDClientes,
AEditor.DesglosadoCliente, AEditor.ImporteMinimo); AEditor.DesglosadoCliente, AEditor.ImporteMinimo);
AEditor.LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
AEditor.Preview; AEditor.Preview;

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

@ -27,8 +27,8 @@ type
//MODULO FACTURAS DE CLIENTE //MODULO FACTURAS DE CLIENTE
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; 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 GenerarInformeListadoFacturasCli(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 GenerarInformeListadoFacturasCliPendientes(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 FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
//MODULO RECIBOS DE CLIENTE //MODULO RECIBOS DE CLIENTE
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: 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;
@ -86,22 +86,24 @@ end;
function TDataModuleGestorInformes.GenerarInformeListadoFacturasCli( function TDataModuleGestorInformes.GenerarInformeListadoFacturasCli(
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const FechaVenInicio, FechaVenFin: Variant;
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
begin begin
try try
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasCli(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo); Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasCli(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdClientes, Desglosado, ImporteMinimo);
finally finally
end; end;
end; end;
function TDataModuleGestorInformes.GenerarInformeListadoFacturasCliPendientes( function TDataModuleGestorInformes.GenerarInformeListadoFacturasCliPendientes(
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const FechaVenInicio, FechaVenFin: Variant;
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
begin begin
try try
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasCliPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo); Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasCliPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdClientes, Desglosado, ImporteMinimo);
finally finally
end; end;
end; end;

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

@ -16,8 +16,8 @@ type
//MODULO FACTURAS DE CLIENTE //MODULO FACTURAS DE CLIENTE
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; 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 GenerarInformeListadoFacturasCli(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 GenerarInformeListadoFacturasCliPendientes(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 FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
//MODULO RECIBOS DE CLIENTE //MODULO RECIBOS DE CLIENTE
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: 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;

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

@ -36,8 +36,8 @@ type
//MODULO FACTURAS CLIENTE //MODULO FACTURAS CLIENTE
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; 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 GenerarInformeListadoFacturasCli(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 GenerarInformeListadoFacturasCliPendientes(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 FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
//MODULO RECIBOS CLIENTE //MODULO RECIBOS CLIENTE
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 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;
@ -96,14 +96,14 @@ begin
end; end;
function TsrvGestorInformes.GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; function TsrvGestorInformes.GenerarInformeListadoFacturasCli(const IdEmpresa: Integer;
const FechaInicio, FechaFin: Variant; const ListaIDClientes: TIntegerArray; const FechaInicio, FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
var var
AReportGenerator : TRptFacturasCliente; AReportGenerator : TRptFacturasCliente;
begin begin
AReportGenerator := TRptFacturasCliente.Create(nil); AReportGenerator := TRptFacturasCliente.Create(nil);
try try
Result := AReportGenerator.GenerarInformeListadoFacturas(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo); Result := AReportGenerator.GenerarInformeListadoFacturas(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, Desglosado, ImporteMinimo);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;
@ -111,6 +111,7 @@ end;
function TsrvGestorInformes.GenerarInformeListadoFacturasCliPendientes( function TsrvGestorInformes.GenerarInformeListadoFacturasCliPendientes(
const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant;
const FechaVenInicio: Variant; const FechaVenFin: Variant;
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary; const ImporteMinimo: Currency): Binary;
var var
@ -118,7 +119,7 @@ var
begin begin
AReportGenerator := TRptFacturasCliente.Create(nil); AReportGenerator := TRptFacturasCliente.Create(nil);
try try
Result := AReportGenerator.GenerarInformeListadoFacturasPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo); Result := AReportGenerator.GenerarInformeListadoFacturasPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, Desglosado, ImporteMinimo);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;

1
Source/Modulos/Gestor de informes/Views/uEditorInformeBase.dfm
View File

@ -65,7 +65,6 @@ inherited fEditorInformeBase: TfEditorInformeBase
FloatingHeight = 128 FloatingHeight = 128
SupportedDocks = [dkStandardDock, dkMultiDock] SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 0 TabOrder = 0
ExplicitTop = 274
ExplicitWidth = 128 ExplicitWidth = 128
object TBXButton1: TTBXButton object TBXButton1: TTBXButton
Left = 16 Left = 16

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

@ -54,7 +54,7 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
Left = 0 Left = 0
Top = 0 Top = 0
Width = 188 Width = 188
Height = 136 Height = 236
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -65,12 +65,12 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 136 ExplicitHeight = 236
inherited TBXAlignmentPanel2: TTBXAlignmentPanel inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182 Width = 182
ExplicitWidth = 182 ExplicitWidth = 182
inherited Label3: TLabel inherited Label3: TLabel
Width = 85 Width = 172
end end
inherited edtFechaFin: TcxDateEdit inherited edtFechaFin: TcxDateEdit
Left = 72 Left = 72
@ -105,24 +105,27 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
end end
inherited TBXAlignmentPanel3: TTBXAlignmentPanel inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Width = 182 Width = 182
Visible = False
ExplicitWidth = 182 ExplicitWidth = 182
inherited Label4: TLabel inherited Label4: TLabel
Width = 160 Width = 172
end end
inherited edtFechaVenFin: TcxDateEdit inherited edtFechaVenFin: TcxDateEdit
Left = 75
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 75
ExplicitWidth = 99 ExplicitWidth = 99
Width = 99 Width = 99
end end
inherited edtFechaVenIni: TcxDateEdit inherited edtFechaVenIni: TcxDateEdit
Left = 75
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 75
ExplicitWidth = 97 ExplicitWidth = 97
Width = 97 Width = 97
end end
@ -131,7 +134,8 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 212 ExplicitWidth = 170
Width = 170
end end
end end
end end
@ -159,7 +163,7 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
end end
inline frViewFiltroImportes1: TfrViewFiltroImportes inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 0 Left = 0
Top = 136 Top = 236
Width = 188 Width = 188
Height = 77 Height = 77
Align = alTop Align = alTop
@ -172,7 +176,7 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitTop = 136 ExplicitTop = 236
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 77 ExplicitHeight = 77
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel
@ -192,7 +196,7 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
end end
inline frViewFiltroClientes1: TfrViewFiltroClientes inline frViewFiltroClientes1: TfrViewFiltroClientes
Left = 0 Left = 0
Top = 213 Top = 313
Width = 188 Width = 188
Height = 146 Height = 146
Align = alTop Align = alTop
@ -205,7 +209,7 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitTop = 213 ExplicitTop = 313
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 146 ExplicitHeight = 146
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel

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

@ -28,6 +28,8 @@ type
FListaIDClientes: TIntegerArray; FListaIDClientes: TIntegerArray;
function GetFechaFin: Variant; function GetFechaFin: Variant;
function GetFechaInicio: Variant; function GetFechaInicio: Variant;
function GetFechaVenFin: Variant;
function GetFechaVenInicio: Variant;
function GetListaIDClientes: TIntegerArray; function GetListaIDClientes: TIntegerArray;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
function GetDesglosadoCliente: Boolean; function GetDesglosadoCliente: Boolean;
@ -37,6 +39,8 @@ type
public public
property FechaInicio: Variant read GetFechaInicio; property FechaInicio: Variant read GetFechaInicio;
property FechaFin: Variant read GetFechaFin; property FechaFin: Variant read GetFechaFin;
property FechaVenInicio: Variant read GetFechaVenInicio;
property FechaVenFin: Variant read GetFechaVenFin;
property ListaIDClientes: TIntegerArray read GetListaIDClientes; property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente; property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property ImporteMinimo: Currency read GetImporteMinimo; property ImporteMinimo: Currency read GetImporteMinimo;
@ -90,6 +94,16 @@ begin
Result := frViewPeriodoFechas1.edtFechaIni.EditValue; Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
end; end;
function TfEditorInformeFacturasClientePendientesReport.GetFechaVenFin: Variant;
begin
Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue;
end;
function TfEditorInformeFacturasClientePendientesReport.GetFechaVenInicio: Variant;
begin
Result := frViewPeriodoFechas1.edtFechaVenIni.EditValue;
end;
function TfEditorInformeFacturasClientePendientesReport.GetImporteMinimo: Currency; function TfEditorInformeFacturasClientePendientesReport.GetImporteMinimo: Currency;
begin begin
if frViewFiltroImportes1.eImporte.Enabled then if frViewFiltroImportes1.eImporte.Enabled then
@ -117,6 +131,8 @@ begin
AppFactuGES.EmpresaActiva.ID, AppFactuGES.EmpresaActiva.ID,
FechaInicio, FechaInicio,
FechaFin, FechaFin,
FechaVenInicio,
FechaVenFin,
ListaIDClientes, ListaIDClientes,
DesglosadoCliente, DesglosadoCliente,
ImporteMinimo); ImporteMinimo);

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

@ -54,7 +54,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
Left = 0 Left = 0
Top = 0 Top = 0
Width = 188 Width = 188
Height = 136 Height = 236
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -65,14 +65,14 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 136 ExplicitHeight = 236
inherited TBXAlignmentPanel2: TTBXAlignmentPanel inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182 Width = 182
Height = 98 Height = 98
ExplicitWidth = 182 ExplicitWidth = 182
ExplicitHeight = 98 ExplicitHeight = 98
inherited Label3: TLabel inherited Label3: TLabel
Width = 85 Width = 172
end end
inherited edtFechaFin: TcxDateEdit inherited edtFechaFin: TcxDateEdit
Left = 74 Left = 74
@ -112,25 +112,28 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
inherited TBXAlignmentPanel3: TTBXAlignmentPanel inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Top = 136 Top = 136
Width = 182 Width = 182
Visible = False
ExplicitTop = 136 ExplicitTop = 136
ExplicitWidth = 182 ExplicitWidth = 182
inherited Label4: TLabel inherited Label4: TLabel
Width = 160 Width = 172
end end
inherited edtFechaVenFin: TcxDateEdit inherited edtFechaVenFin: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 99 ExplicitWidth = 99
Width = 99 Width = 99
end end
inherited edtFechaVenIni: TcxDateEdit inherited edtFechaVenIni: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 97 ExplicitWidth = 97
Width = 97 Width = 97
end end
@ -139,7 +142,8 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 212 ExplicitWidth = 170
Width = 170
end end
end end
end end
@ -167,7 +171,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
end end
inline frViewFiltroImportes1: TfrViewFiltroImportes inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 0 Left = 0
Top = 136 Top = 236
Width = 188 Width = 188
Height = 77 Height = 77
Align = alTop Align = alTop
@ -180,7 +184,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitTop = 136 ExplicitTop = 236
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 77 ExplicitHeight = 77
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel
@ -200,7 +204,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
end end
inline frViewFiltroClientes1: TfrViewFiltroClientes inline frViewFiltroClientes1: TfrViewFiltroClientes
Left = 0 Left = 0
Top = 213 Top = 313
Width = 188 Width = 188
Height = 146 Height = 146
Align = alTop Align = alTop
@ -213,7 +217,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitTop = 213 ExplicitTop = 313
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 146 ExplicitHeight = 146
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel

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

@ -27,6 +27,8 @@ type
FListaIDClientes: TIntegerArray; FListaIDClientes: TIntegerArray;
function GetFechaFin: Variant; function GetFechaFin: Variant;
function GetFechaInicio: Variant; function GetFechaInicio: Variant;
function GetFechaVenFin: Variant;
function GetFechaVenInicio: Variant;
function GetListaIDClientes: TIntegerArray; function GetListaIDClientes: TIntegerArray;
function GetImporteMinimo: Currency; function GetImporteMinimo: Currency;
function GetDesglosadoCliente: Boolean; function GetDesglosadoCliente: Boolean;
@ -36,6 +38,8 @@ type
public public
property FechaInicio: Variant read GetFechaInicio; property FechaInicio: Variant read GetFechaInicio;
property FechaFin: Variant read GetFechaFin; property FechaFin: Variant read GetFechaFin;
property FechaVenInicio: Variant read GetFechaVenInicio;
property FechaVenFin: Variant read GetFechaVenFin;
property ListaIDClientes: TIntegerArray read GetListaIDClientes; property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente; property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property ImporteMinimo: Currency read GetImporteMinimo; property ImporteMinimo: Currency read GetImporteMinimo;
@ -89,6 +93,16 @@ begin
Result := frViewPeriodoFechas1.edtFechaIni.EditValue; Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
end; end;
function TfEditorInformeFacturasClienteReport.GetFechaVenFin: Variant;
begin
Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue;
end;
function TfEditorInformeFacturasClienteReport.GetFechaVenInicio: Variant;
begin
Result := frViewPeriodoFechas1.edtFechaVenIni.EditValue;
end;
function TfEditorInformeFacturasClienteReport.GetImporteMinimo: Currency; function TfEditorInformeFacturasClienteReport.GetImporteMinimo: Currency;
begin begin
if frViewFiltroImportes1.eImporte.Enabled then if frViewFiltroImportes1.eImporte.Enabled then
@ -116,6 +130,8 @@ begin
AppFactuGES.EmpresaActiva.ID, AppFactuGES.EmpresaActiva.ID,
FechaInicio, FechaInicio,
FechaFin, FechaFin,
FechaVenInicio,
FechaVenFin,
ListaIDClientes, ListaIDClientes,
DesglosadoCliente, DesglosadoCliente,
ImporteMinimo); ImporteMinimo);

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

@ -70,7 +70,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
Width = 182 Width = 182
ExplicitWidth = 182 ExplicitWidth = 182
inherited Label3: TLabel inherited Label3: TLabel
Width = 85 Width = 172
end end
inherited edtFechaFin: TcxDateEdit inherited edtFechaFin: TcxDateEdit
Left = 77 Left = 77
@ -109,7 +109,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
Width = 182 Width = 182
ExplicitWidth = 182 ExplicitWidth = 182
inherited Label4: TLabel inherited Label4: TLabel
Width = 160 Width = 172
end end
inherited edtFechaVenFin: TcxDateEdit inherited edtFechaVenFin: TcxDateEdit
Left = 77 Left = 77

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

@ -313,9 +313,9 @@ end;
constructor TfrViewPeriodoFechas.Create(AOwner: TComponent); constructor TfrViewPeriodoFechas.Create(AOwner: TComponent);
begin begin
inherited; inherited;
cbPeriodo.ItemIndex := 3; cbPeriodo.ItemIndex := -1;
cbPeriodo2.ItemIndex := -1; cbPeriodo2.ItemIndex := -1;
EsteMes(TFecha); // EsteMes(TFecha);
end; end;
procedure TfrViewPeriodoFechas.edtFechaIni2PropertiesValidate( procedure TfrViewPeriodoFechas.edtFechaIni2PropertiesValidate(

8
Source/Servicios/FactuGES.RODL
View File

@ -621,6 +621,10 @@
</Parameter> </Parameter>
<Parameter Name="FechaFin" DataType="Variant" Flag="In" > <Parameter Name="FechaFin" DataType="Variant" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="FechaVenInicio" DataType="Variant" Flag="In" >
</Parameter>
<Parameter Name="FechaVenFin" DataType="Variant" Flag="In" >
</Parameter>
<Parameter Name="ListadoIDClientes" DataType="TIntegerArray" Flag="In" > <Parameter Name="ListadoIDClientes" DataType="TIntegerArray" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="Desglosado" DataType="Boolean" Flag="In" > <Parameter Name="Desglosado" DataType="Boolean" Flag="In" >
@ -661,6 +665,10 @@
</Parameter> </Parameter>
<Parameter Name="FechaFin" DataType="Variant" Flag="In" > <Parameter Name="FechaFin" DataType="Variant" Flag="In" >
</Parameter> </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 Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="Desglosado" DataType="Boolean" Flag="In" > <Parameter Name="Desglosado" DataType="Boolean" Flag="In" >

28
Source/Servicios/FactuGES_Intf.pas
View File

@ -759,12 +759,12 @@ type
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray; function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; 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; 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; function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; 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; 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; function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
@ -795,12 +795,12 @@ type
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray; function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; 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; 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; function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; 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; 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; function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
@ -2285,8 +2285,8 @@ begin
end end
end; end;
function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray; function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
begin begin
try try
result := nil; result := nil;
@ -2294,6 +2294,8 @@ begin
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []); __Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []); __Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Write('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
__Message.Write('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
__Message.Write('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []); __Message.Write('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []);
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
@ -2333,8 +2335,8 @@ begin
end end
end; end;
function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
begin begin
try try
result := nil; result := nil;
@ -2342,6 +2344,8 @@ begin
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []); __Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []); __Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Write('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
__Message.Write('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
__Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []); __Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);

20
Source/Servicios/FactuGES_Invk.pas
View File

@ -1376,12 +1376,14 @@ begin
end; end;
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasCli(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasCli(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray; { function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } const FechaVenFin: Variant; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
var var
IdEmpresa: Integer; IdEmpresa: Integer;
FechaInicio: Variant; FechaInicio: Variant;
FechaFin: Variant; FechaFin: Variant;
FechaVenInicio: Variant;
FechaVenFin: Variant;
ListadoIDClientes: FactuGES_Intf.TIntegerArray; ListadoIDClientes: FactuGES_Intf.TIntegerArray;
Desglosado: Boolean; Desglosado: Boolean;
ImporteMinimo: Currency; ImporteMinimo: Currency;
@ -1394,11 +1396,13 @@ begin
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []); __Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []); __Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Read('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
__Message.Read('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
__Message.Read('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []); __Message.Read('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []);
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasCli(IdEmpresa, FechaInicio, FechaFin, ListadoIDClientes, Desglosado, ImporteMinimo); lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasCli(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListadoIDClientes, Desglosado, ImporteMinimo);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoFacturasCliResponse'); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoFacturasCliResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -1462,12 +1466,14 @@ begin
end; end;
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasCliPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasCliPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; { function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
var var
IdEmpresa: Integer; IdEmpresa: Integer;
FechaInicio: Variant; FechaInicio: Variant;
FechaFin: Variant; FechaFin: Variant;
FechaVenInicio: Variant;
FechaVenFin: Variant;
ListaIDClientes: FactuGES_Intf.TIntegerArray; ListaIDClientes: FactuGES_Intf.TIntegerArray;
Desglosado: Boolean; Desglosado: Boolean;
ImporteMinimo: Currency; ImporteMinimo: Currency;
@ -1480,11 +1486,13 @@ begin
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []); __Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []); __Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Read('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
__Message.Read('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
__Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []); __Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasCliPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo); lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasCliPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, Desglosado, ImporteMinimo);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoFacturasCliPendientesResponse'); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoFacturasCliPendientesResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.5.0.0\0" VALUE "FileVersion", "1.5.0.0\0"
VALUE "ProductVersion", "1.5.0.0\0" VALUE "ProductVersion", "1.5.0.0\0"
VALUE "CompileDate", "jueves, 08 de enero de 2009 12:21\0" VALUE "CompileDate", "jueves, 08 de enero de 2009 16:10\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"