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

38
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,15 +176,15 @@ 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;
begin begin
//DESGLOSADO POR CLIENTE EN ESTE INFORME NO SE DESGLOSARÁ POR CLIENTE //DESGLOSADO POR CLIENTE EN ESTE INFORME NO SE DESGLOSARÁ POR CLIENTE
@ -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,12 +267,13 @@ 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;
i: Integer; i: Integer;
AInforme: Variant; AInforme: Variant;
begin begin
Result := Binary.Create; Result := Binary.Create;
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
@ -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.

638
Source/Servidor/FactuGES_Server.dproj
View File

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

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"