diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index 55449dfc..0c70f85f 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -58,7 +58,7 @@ CREATE DOMAIN TIPO_ID AS
INTEGER;
CREATE DOMAIN TIPO_IMPORTE AS
-NUMERIC(11,2);
+NUMERIC(11,4);
CREATE DOMAIN TIPO_NOTAS AS
BLOB SUB_TYPE 1 SEGMENT SIZE 80;
diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 1641339f..8b251f31 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
index 9d64eccb..c2c2e64c 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
@@ -466,30 +466,32 @@ object RptFacturasCliente: TRptFacturasCliente
Connection = 'IBX'
TargetTable = 'V_FACTURAS_CLIENTE'
SQL =
- 'select ID_EMPRESA,'#10'extract (year from fecha_factura) as ANO,'#10'ext' +
- 'ract (month from fecha_factura) as MES,'#10'case'#10'when extract (month' +
- ' from fecha_factura) = 1 then '#39'ENERO - '#39' || extract (year from f' +
- 'echa_factura)'#10'when extract (month from fecha_factura) = 2 then '#39 +
- 'FEBRERO - '#39' || extract (year from fecha_factura)'#10'when extract (m' +
- 'onth from fecha_factura) = 3 then '#39'MARZO - '#39' || extract (year fr' +
- 'om fecha_factura)'#10'when extract (month from fecha_factura) = 4 th' +
- 'en '#39'ABRIL - '#39' || extract (year from fecha_factura)'#10'when extract ' +
- '(month from fecha_factura) = 5 then '#39'MAYO - '#39' || extract (year f' +
- 'rom fecha_factura)'#10'when extract (month from fecha_factura) = 6 t' +
- 'hen '#39'JUNIO - '#39' || extract (year from fecha_factura)'#10'when extract' +
- ' (month from fecha_factura) = 7 then '#39'JULIO - '#39' || extract (year' +
- ' from fecha_factura)'#10'when extract (month from fecha_factura) = 8' +
- ' then '#39'AGOSTO - '#39' || extract (year from fecha_factura)'#10'when extr' +
- 'act (month from fecha_factura) = 9 then '#39'SEPTIEMBRE - '#39' || extra' +
- 'ct (year from fecha_factura)'#10'when extract (month from fecha_fact' +
- 'ura) = 10 then '#39'OCTUBRE - '#39' || extract (year from fecha_factura)' +
- #10'when extract (month from fecha_factura) = 11 then '#39'NOVIEMBRE - ' +
- #39' || extract (year from fecha_factura)'#10'when extract (month from ' +
- 'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' +
- 'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SIT' +
- 'UACION, NIF_CIF, FECHA_FACTURA, FECHA_VENCIMIENTO, BASE_IMPONIBL' +
- 'E, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from V_facturas_cliente'#10'where {wh' +
- 'ere}'#10'order by ANO, MES, NOMBRE'#10#10
+ 'select ID_EMPRESA,'#10'extract (year from fecha_vencimiento) as ANO,' +
+ #10'extract (month from fecha_vencimiento) as MES,'#10'case'#10'when extrac' +
+ 't (month from fecha_vencimiento) = 1 then '#39'ENERO - '#39' || extract ' +
+ '(year from fecha_vencimiento)'#10'when extract (month from fecha_ven' +
+ 'cimiento) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_venc' +
+ 'imiento)'#10'when extract (month from fecha_vencimiento) = 3 then '#39'M' +
+ 'ARZO - '#39' || extract (year from fecha_vencimiento)'#10'when extract (' +
+ 'month from fecha_vencimiento) = 4 then '#39'ABRIL - '#39' || extract (ye' +
+ 'ar from fecha_vencimiento)'#10'when extract (month from fecha_vencim' +
+ 'iento) = 5 then '#39'MAYO - '#39' || extract (year from fecha_vencimient' +
+ 'o)'#10'when extract (month from fecha_vencimiento) = 6 then '#39'JUNIO -' +
+ ' '#39' || extract (year from fecha_vencimiento)'#10'when extract (month ' +
+ 'from fecha_vencimiento) = 7 then '#39'JULIO - '#39' || extract (year fro' +
+ 'm fecha_vencimiento)'#10'when extract (month from fecha_vencimiento)' +
+ ' = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_vencimiento)'#10'w' +
+ 'hen extract (month from fecha_vencimiento) = 9 then '#39'SEPTIEMBRE ' +
+ '- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' +
+ ' from fecha_vencimiento) = 10 then '#39'OCTUBRE - '#39' || extract (year' +
+ ' from fecha_vencimiento)'#10'when extract (month from fecha_vencimie' +
+ 'nto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_vencim' +
+ 'iento)'#10'when extract (month from fecha_vencimiento) = 12 then '#39'DI' +
+ 'CIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'end as TITU' +
+ 'LO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SITUACION, NIF_CIF, FECHA_F' +
+ '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
ColumnMappings = <
item
diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
index da341879..edf88c6c 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
@@ -89,13 +89,13 @@ type
FConnection: IDAConnection;
//Genera cada una de las facturas a imprimir
procedure _GenerarFactura(const ID: Integer; const VerSello: Boolean = True);
- function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: 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
function GenerarFactura(const ListaID : TIntegerArray; const VerSello: Boolean = True): Binary;
function GenerarFacturaEnPDF(const ListaID : TIntegerArray; const VerSello: Boolean = True): Binary;
function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
- function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
- function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
+ 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 FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
end;
implementation
@@ -176,15 +176,15 @@ begin
else
ATipoInforme := rptInformeIVA;
- Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, ImporteMinimo);
+ Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, Null, Null, ListaIDClientes, ImporteMinimo);
end;
function TRptFacturasCliente.GenerarInformeListadoFacturas(const IdEmpresa: Integer;
- const FechaInicio, FechaFin: Variant; const ListaIDClientes: TIntegerArray;
- const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
+ const FechaInicio, FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant;
+ const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
var
ATipoInforme: String;
-
+
begin
//DESGLOSADO POR CLIENTE EN ESTE INFORME NO SE DESGLOSARÁ POR CLIENTE
@@ -193,11 +193,12 @@ begin
else
ATipoInforme := rptInformeListadoFacturasCliente;
- Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, ImporteMinimo);
+ Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, ImporteMinimo);
end;
function TRptFacturasCliente.GenerarInformeListadoFacturasPendientes(
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
+ const FechaVenInicio: Variant; const FechaVenFin: Variant;
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary;
var
@@ -227,7 +228,7 @@ begin
ATipoInforme := rptInformeListadoFactuasClientePendiente;
- Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, ImporteMinimo);
+ Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, ImporteMinimo);
end;
procedure TRptFacturasCliente._GenerarFactura(const ID: Integer; const VerSello: Boolean = True);
@@ -266,12 +267,13 @@ end;
function TRptFacturasCliente._GenerarInforme(const TipoInforme: String;
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
+ const FechaVenInicio: Variant; const FechaVenFin: Variant;
const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary;
var
Condicion: TDAWhereExpression;
i: Integer;
AInforme: Variant;
-
+
begin
Result := Binary.Create;
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
@@ -308,6 +310,22 @@ begin
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
if Assigned(ListaIDClientes) then
begin
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
index b09fedc7..8874d0f1 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
@@ -56,6 +56,7 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Width = 28
end
object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn
+ Caption = 'Fecha vto.'
DataBinding.FieldName = 'FECHA_VENCIMIENTO'
PropertiesClassName = 'TcxDateEditProperties'
end
diff --git a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm
index 6c5c1ad6..4d4dd97c 100644
--- a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm
+++ b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm
@@ -421,30 +421,32 @@ object RptFacturasProveedor: TRptFacturasProveedor
Connection = 'IBX'
TargetTable = 'V_FACTURAS_PROVEEDOR'
SQL =
- 'select ID_EMPRESA,'#10'extract (year from fecha_factura) as ANO,'#10'ext' +
- 'ract (month from fecha_factura) as MES,'#10'case'#10'when extract (month' +
- ' from fecha_factura) = 1 then '#39'ENERO - '#39' || extract (year from f' +
- 'echa_factura)'#10'when extract (month from fecha_factura) = 2 then '#39 +
- 'FEBRERO - '#39' || extract (year from fecha_factura)'#10'when extract (m' +
- 'onth from fecha_factura) = 3 then '#39'MARZO - '#39' || extract (year fr' +
- 'om fecha_factura)'#10'when extract (month from fecha_factura) = 4 th' +
- 'en '#39'ABRIL - '#39' || extract (year from fecha_factura)'#10'when extract ' +
- '(month from fecha_factura) = 5 then '#39'MAYO - '#39' || extract (year f' +
- 'rom fecha_factura)'#10'when extract (month from fecha_factura) = 6 t' +
- 'hen '#39'JUNIO - '#39' || extract (year from fecha_factura)'#10'when extract' +
- ' (month from fecha_factura) = 7 then '#39'JULIO - '#39' || extract (year' +
- ' from fecha_factura)'#10'when extract (month from fecha_factura) = 8' +
- ' then '#39'AGOSTO - '#39' || extract (year from fecha_factura)'#10'when extr' +
- 'act (month from fecha_factura) = 9 then '#39'SEPTIEMBRE - '#39' || extra' +
- 'ct (year from fecha_factura)'#10'when extract (month from fecha_fact' +
- 'ura) = 10 then '#39'OCTUBRE - '#39' || extract (year from fecha_factura)' +
- #10'when extract (month from fecha_factura) = 11 then '#39'NOVIEMBRE - ' +
- #39' || extract (year from fecha_factura)'#10'when extract (month from ' +
- 'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' +
- 'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE, S' +
- 'ITUACION, NIF_CIF, FECHA_FACTURA, FECHA_VENCIMIENTO, BASE_IMPONI' +
- 'BLE, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from V_facturas_proveedor'#10'where' +
- ' {where}'#10'order by ANO, MES, NOMBRE'#10#10
+ 'select ID_EMPRESA,'#10'extract (year from fecha_vencimiento) as ANO,' +
+ #10'extract (month from fecha_vencimiento) as MES,'#10'case'#10'when extrac' +
+ 't (month from fecha_vencimiento) = 1 then '#39'ENERO - '#39' || extract ' +
+ '(year from fecha_vencimiento)'#10'when extract (month from fecha_ven' +
+ 'cimiento) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_venc' +
+ 'imiento)'#10'when extract (month from fecha_vencimiento) = 3 then '#39'M' +
+ 'ARZO - '#39' || extract (year from fecha_vencimiento)'#10'when extract (' +
+ 'month from fecha_vencimiento) = 4 then '#39'ABRIL - '#39' || extract (ye' +
+ 'ar from fecha_vencimiento)'#10'when extract (month from fecha_vencim' +
+ 'iento) = 5 then '#39'MAYO - '#39' || extract (year from fecha_vencimient' +
+ 'o)'#10'when extract (month from fecha_vencimiento) = 6 then '#39'JUNIO -' +
+ ' '#39' || extract (year from fecha_vencimiento)'#10'when extract (month ' +
+ 'from fecha_vencimiento) = 7 then '#39'JULIO - '#39' || extract (year fro' +
+ 'm fecha_vencimiento)'#10'when extract (month from fecha_vencimiento)' +
+ ' = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_vencimiento)'#10'w' +
+ 'hen extract (month from fecha_vencimiento) = 9 then '#39'SEPTIEMBRE ' +
+ '- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' +
+ ' from fecha_vencimiento) = 10 then '#39'OCTUBRE - '#39' || extract (year' +
+ ' from fecha_vencimiento)'#10'when extract (month from fecha_vencimie' +
+ 'nto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_vencim' +
+ 'iento)'#10'when extract (month from fecha_vencimiento) = 12 then '#39'DI' +
+ 'CIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'end as TITU' +
+ 'LO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE, SITUACION, NIF_CIF, FECHA' +
+ '_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
ColumnMappings = <
item
diff --git a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas
index 7a103ca3..da3cfd9f 100644
--- a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas
+++ b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas
@@ -238,7 +238,7 @@ begin
end;
// Filtrar el informe por fechas de vencimiento
-{ if not VarIsNull(FechaVenInicio)
+ if not VarIsNull(FechaVenInicio)
and not VarIsNull(FechaVenFin) then
begin
with tbl_InformeListadoFacturas.DynamicWhere do
@@ -252,7 +252,6 @@ begin
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
end;
-}
// Filtrar el informe por proveedor
if Assigned(ListaIDProveedores) then
diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm
index 2e8184e0..bf4624d1 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm
+++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm
@@ -72,6 +72,7 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
Width = 27
end
object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn
+ Caption = 'Fecha vto.'
DataBinding.FieldName = 'FECHA_VENCIMIENTO'
PropertiesClassName = 'TcxDateEditProperties'
end
diff --git a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClientePendientesReport.pas b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClientePendientesReport.pas
index 850679b4..50d638cc 100644
--- a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClientePendientesReport.pas
+++ b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClientePendientesReport.pas
@@ -10,11 +10,15 @@ type
['{6ADD8C8B-34D8-4F51-9C9C-4A9ED54DDE34}']
function GetFechaFin: Variant;
function GetFechaInicio: Variant;
+ function GetFechaVenFin: Variant;
+ function GetFechaVenInicio: Variant;
function GetListaIDClientes: TIntegerArray;
function GetDesglosadoCliente: Boolean;
function GetImporteMinimo: Currency;
property FechaInicio: Variant read GetFechaInicio;
property FechaFin: Variant read GetFechaFin;
+ property FechaVenInicio: Variant read GetFechaVenInicio;
+ property FechaVenFin: Variant read GetFechaVenFin;
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property ImporteMinimo: Currency read getImporteMinimo;
diff --git a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClienteReport.pas b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClienteReport.pas
index e623b0be..dfcb47dc 100644
--- a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClienteReport.pas
+++ b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClienteReport.pas
@@ -10,11 +10,15 @@ type
['{AE5DD69C-6360-4A6A-A764-C0DAF5B5A948}']
function GetFechaFin: Variant;
function GetFechaInicio: Variant;
+ function GetFechaVenFin: Variant;
+ function GetFechaVenInicio: Variant;
function GetListaIDClientes: TIntegerArray;
function GetDesglosadoCliente: Boolean;
function GetImporteMinimo: Currency;
property FechaInicio: Variant read GetFechaInicio;
property FechaFin: Variant read GetFechaFin;
+ property FechaVenInicio: Variant read GetFechaVenInicio;
+ property FechaVenFin: Variant read GetFechaVenFin;
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property ImporteMinimo: Currency read getImporteMinimo;
diff --git a/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas b/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas
index 998a8408..39161e61 100644
--- a/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas
+++ b/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas
@@ -336,7 +336,7 @@ begin
AEditor.Controller := Self;
AEditor.Title := 'Listado de facturas de cliente';
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.LoadFromStream(AStream);
AEditor.Preview;
@@ -360,7 +360,7 @@ begin
AEditor.Controller := Self;
AEditor.Title := 'Listado de facturas de cliente pendientes';
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.LoadFromStream(AStream);
AEditor.Preview;
diff --git a/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas b/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas
index 45cb43c1..1731b9a4 100644
--- a/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas
+++ b/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas
@@ -27,8 +27,8 @@ type
//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 GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
- function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
+ 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 FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
//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;
@@ -86,22 +86,24 @@ end;
function TDataModuleGestorInformes.GenerarInformeListadoFacturasCli(
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
+ const FechaVenInicio, FechaVenFin: Variant;
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary;
begin
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
end;
end;
function TDataModuleGestorInformes.GenerarInformeListadoFacturasCliPendientes(
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
+ const FechaVenInicio, FechaVenFin: Variant;
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary;
begin
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
end;
end;
diff --git a/Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas b/Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas
index 62f91787..1e85096f 100644
--- a/Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas
+++ b/Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas
@@ -16,8 +16,8 @@ type
//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 GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
- function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
+ 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 FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
//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;
diff --git a/Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas b/Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas
index 0332ad7a..6419edd5 100644
--- a/Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas
+++ b/Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas
@@ -36,8 +36,8 @@ type
//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 GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
- function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
+ 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 FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
//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;
@@ -96,14 +96,14 @@ begin
end;
function TsrvGestorInformes.GenerarInformeListadoFacturasCli(const IdEmpresa: Integer;
- const FechaInicio, FechaFin: Variant; const ListaIDClientes: TIntegerArray;
- const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
+ const FechaInicio, FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant;
+ const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
var
AReportGenerator : TRptFacturasCliente;
begin
AReportGenerator := TRptFacturasCliente.Create(nil);
try
- Result := AReportGenerator.GenerarInformeListadoFacturas(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo);
+ Result := AReportGenerator.GenerarInformeListadoFacturas(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, Desglosado, ImporteMinimo);
finally
FreeAndNIL(AReportGenerator);
end;
@@ -111,6 +111,7 @@ end;
function TsrvGestorInformes.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;
var
@@ -118,7 +119,7 @@ var
begin
AReportGenerator := TRptFacturasCliente.Create(nil);
try
- Result := AReportGenerator.GenerarInformeListadoFacturasPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo);
+ Result := AReportGenerator.GenerarInformeListadoFacturasPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, Desglosado, ImporteMinimo);
finally
FreeAndNIL(AReportGenerator);
end;
diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeBase.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeBase.dfm
index cb500f4f..585cd3ef 100644
--- a/Source/Modulos/Gestor de informes/Views/uEditorInformeBase.dfm
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeBase.dfm
@@ -65,7 +65,6 @@ inherited fEditorInformeBase: TfEditorInformeBase
FloatingHeight = 128
SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 0
- ExplicitTop = 274
ExplicitWidth = 128
object TBXButton1: TTBXButton
Left = 16
diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.dfm
index f22ee6b1..edaf55d0 100644
--- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.dfm
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.dfm
@@ -54,7 +54,7 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
Left = 0
Top = 0
Width = 188
- Height = 136
+ Height = 236
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -65,12 +65,12 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
TabOrder = 0
ReadOnly = False
ExplicitWidth = 188
- ExplicitHeight = 136
+ ExplicitHeight = 236
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182
ExplicitWidth = 182
inherited Label3: TLabel
- Width = 85
+ Width = 172
end
inherited edtFechaFin: TcxDateEdit
Left = 72
@@ -105,24 +105,27 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
end
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Width = 182
- Visible = False
ExplicitWidth = 182
inherited Label4: TLabel
- Width = 160
+ Width = 172
end
inherited edtFechaVenFin: TcxDateEdit
+ Left = 75
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 75
ExplicitWidth = 99
Width = 99
end
inherited edtFechaVenIni: TcxDateEdit
+ Left = 75
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 75
ExplicitWidth = 97
Width = 97
end
@@ -131,7 +134,8 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitWidth = 212
+ ExplicitWidth = 170
+ Width = 170
end
end
end
@@ -159,7 +163,7 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
end
inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 0
- Top = 136
+ Top = 236
Width = 188
Height = 77
Align = alTop
@@ -172,7 +176,7 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
ParentFont = False
TabOrder = 1
ReadOnly = False
- ExplicitTop = 136
+ ExplicitTop = 236
ExplicitWidth = 188
ExplicitHeight = 77
inherited TBXLabel2: TTBXLabel
@@ -192,7 +196,7 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
end
inline frViewFiltroClientes1: TfrViewFiltroClientes
Left = 0
- Top = 213
+ Top = 313
Width = 188
Height = 146
Align = alTop
@@ -205,7 +209,7 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
ParentFont = False
TabOrder = 3
ReadOnly = False
- ExplicitTop = 213
+ ExplicitTop = 313
ExplicitWidth = 188
ExplicitHeight = 146
inherited TBXLabel2: TTBXLabel
diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.pas
index a3f5c826..aa90a30d 100644
--- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.pas
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.pas
@@ -28,6 +28,8 @@ type
FListaIDClientes: TIntegerArray;
function GetFechaFin: Variant;
function GetFechaInicio: Variant;
+ function GetFechaVenFin: Variant;
+ function GetFechaVenInicio: Variant;
function GetListaIDClientes: TIntegerArray;
function GetImporteMinimo: Currency;
function GetDesglosadoCliente: Boolean;
@@ -37,6 +39,8 @@ type
public
property FechaInicio: Variant read GetFechaInicio;
property FechaFin: Variant read GetFechaFin;
+ property FechaVenInicio: Variant read GetFechaVenInicio;
+ property FechaVenFin: Variant read GetFechaVenFin;
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property ImporteMinimo: Currency read GetImporteMinimo;
@@ -90,6 +94,16 @@ begin
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
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;
begin
if frViewFiltroImportes1.eImporte.Enabled then
@@ -117,6 +131,8 @@ begin
AppFactuGES.EmpresaActiva.ID,
FechaInicio,
FechaFin,
+ FechaVenInicio,
+ FechaVenFin,
ListaIDClientes,
DesglosadoCliente,
ImporteMinimo);
diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.dfm
index d8c31f17..6227c8a0 100644
--- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.dfm
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.dfm
@@ -54,7 +54,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
Left = 0
Top = 0
Width = 188
- Height = 136
+ Height = 236
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -65,14 +65,14 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
TabOrder = 0
ReadOnly = False
ExplicitWidth = 188
- ExplicitHeight = 136
+ ExplicitHeight = 236
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182
Height = 98
ExplicitWidth = 182
ExplicitHeight = 98
inherited Label3: TLabel
- Width = 85
+ Width = 172
end
inherited edtFechaFin: TcxDateEdit
Left = 74
@@ -112,25 +112,28 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Top = 136
Width = 182
- Visible = False
ExplicitTop = 136
ExplicitWidth = 182
inherited Label4: TLabel
- Width = 160
+ Width = 172
end
inherited edtFechaVenFin: TcxDateEdit
+ Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 76
ExplicitWidth = 99
Width = 99
end
inherited edtFechaVenIni: TcxDateEdit
+ Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 76
ExplicitWidth = 97
Width = 97
end
@@ -139,7 +142,8 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitWidth = 212
+ ExplicitWidth = 170
+ Width = 170
end
end
end
@@ -167,7 +171,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
end
inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 0
- Top = 136
+ Top = 236
Width = 188
Height = 77
Align = alTop
@@ -180,7 +184,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
ParentFont = False
TabOrder = 1
ReadOnly = False
- ExplicitTop = 136
+ ExplicitTop = 236
ExplicitWidth = 188
ExplicitHeight = 77
inherited TBXLabel2: TTBXLabel
@@ -200,7 +204,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
end
inline frViewFiltroClientes1: TfrViewFiltroClientes
Left = 0
- Top = 213
+ Top = 313
Width = 188
Height = 146
Align = alTop
@@ -213,7 +217,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
ParentFont = False
TabOrder = 3
ReadOnly = False
- ExplicitTop = 213
+ ExplicitTop = 313
ExplicitWidth = 188
ExplicitHeight = 146
inherited TBXLabel2: TTBXLabel
diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.pas
index 2bcc2183..13d8c527 100644
--- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.pas
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.pas
@@ -27,6 +27,8 @@ type
FListaIDClientes: TIntegerArray;
function GetFechaFin: Variant;
function GetFechaInicio: Variant;
+ function GetFechaVenFin: Variant;
+ function GetFechaVenInicio: Variant;
function GetListaIDClientes: TIntegerArray;
function GetImporteMinimo: Currency;
function GetDesglosadoCliente: Boolean;
@@ -36,6 +38,8 @@ type
public
property FechaInicio: Variant read GetFechaInicio;
property FechaFin: Variant read GetFechaFin;
+ property FechaVenInicio: Variant read GetFechaVenInicio;
+ property FechaVenFin: Variant read GetFechaVenFin;
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property ImporteMinimo: Currency read GetImporteMinimo;
@@ -89,6 +93,16 @@ begin
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
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;
begin
if frViewFiltroImportes1.eImporte.Enabled then
@@ -116,6 +130,8 @@ begin
AppFactuGES.EmpresaActiva.ID,
FechaInicio,
FechaFin,
+ FechaVenInicio,
+ FechaVenFin,
ListaIDClientes,
DesglosadoCliente,
ImporteMinimo);
diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.dfm
index 0f1cd118..47bbbded 100644
--- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.dfm
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.dfm
@@ -70,7 +70,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
Width = 182
ExplicitWidth = 182
inherited Label3: TLabel
- Width = 85
+ Width = 172
end
inherited edtFechaFin: TcxDateEdit
Left = 77
@@ -109,7 +109,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
Width = 182
ExplicitWidth = 182
inherited Label4: TLabel
- Width = 160
+ Width = 172
end
inherited edtFechaVenFin: TcxDateEdit
Left = 77
diff --git a/Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.pas b/Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.pas
index 682c621e..1b9175b8 100644
--- a/Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.pas
+++ b/Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.pas
@@ -313,9 +313,9 @@ end;
constructor TfrViewPeriodoFechas.Create(AOwner: TComponent);
begin
inherited;
- cbPeriodo.ItemIndex := 3;
+ cbPeriodo.ItemIndex := -1;
cbPeriodo2.ItemIndex := -1;
- EsteMes(TFecha);
+// EsteMes(TFecha);
end;
procedure TfrViewPeriodoFechas.edtFechaIni2PropertiesValidate(
diff --git a/Source/Servicios/FactuGES.RODL b/Source/Servicios/FactuGES.RODL
index 0e9809ba..0fa9295e 100644
--- a/Source/Servicios/FactuGES.RODL
+++ b/Source/Servicios/FactuGES.RODL
@@ -621,6 +621,10 @@
+
+
+
+
@@ -661,6 +665,10 @@
+
+
+
+
diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas
index 13cbfca6..4dbf6b58 100644
--- a/Source/Servicios/FactuGES_Intf.pas
+++ b/Source/Servicios/FactuGES_Intf.pas
@@ -759,12 +759,12 @@ type
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
- function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: 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 ListadoIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
- function 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;
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
@@ -795,12 +795,12 @@ type
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
- function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: 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 ListadoIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
- function 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;
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
@@ -2285,8 +2285,8 @@ begin
end
end;
-function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray;
- const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
+function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
+ const FechaVenFin: Variant; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
begin
try
result := nil;
@@ -2294,6 +2294,8 @@ begin
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
+ __Message.Write('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
+ __Message.Write('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
__Message.Write('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []);
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
@@ -2333,8 +2335,8 @@ begin
end
end;
-function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
- const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
+function TsrvGestorInformes_Proxy.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;
begin
try
result := nil;
@@ -2342,6 +2344,8 @@ begin
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
+ __Message.Write('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
+ __Message.Write('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
__Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas
index 683163ae..6a74aa54 100644
--- a/Source/Servicios/FactuGES_Invk.pas
+++ b/Source/Servicios/FactuGES_Invk.pas
@@ -1376,12 +1376,14 @@ begin
end;
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasCli(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: 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 ListadoIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
var
IdEmpresa: Integer;
FechaInicio: Variant;
FechaFin: Variant;
+ FechaVenInicio: Variant;
+ FechaVenFin: Variant;
ListadoIDClientes: FactuGES_Intf.TIntegerArray;
Desglosado: Boolean;
ImporteMinimo: Currency;
@@ -1394,11 +1396,13 @@ begin
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
+ __Message.Read('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
+ __Message.Read('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
__Message.Read('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []);
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
__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.Write('Result', TypeInfo(Binary), lResult, []);
@@ -1462,12 +1466,14 @@ begin
end;
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasCliPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: 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; }
var
IdEmpresa: Integer;
FechaInicio: Variant;
FechaFin: Variant;
+ FechaVenInicio: Variant;
+ FechaVenFin: Variant;
ListaIDClientes: FactuGES_Intf.TIntegerArray;
Desglosado: Boolean;
ImporteMinimo: Currency;
@@ -1480,11 +1486,13 @@ begin
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
+ __Message.Read('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
+ __Message.Read('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
__Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
- lResult := (__Instance as IsrvGestorInformes).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.Write('Result', TypeInfo(Binary), lResult, []);
diff --git a/Source/Servicios/RODLFILE.res b/Source/Servicios/RODLFILE.res
index 646f7a32..ac6b4bf2 100644
Binary files a/Source/Servicios/RODLFILE.res and b/Source/Servicios/RODLFILE.res differ
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index d6ea0cdb..fceb465f 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index de62a65e..2f8a826a 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,323 +1,323 @@
-
+
-
- {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
- FactuGES_Server.dpr
- Debug
- AnyCPU
- DCC32
- ..\..\Output\Debug\Servidor\FactuGES_Server.exe
- 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
-
-
- 7.0
- False
- False
- 0
- 3
- ..\..\Output\Release\Servidor
- RELEASE
-
-
- 7.0
- 3
- ..\..\Output\Debug\Servidor
- DEBUG;
- True
- True
- True
- $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
- $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
- $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
- $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
-
-
- Delphi.Personality
-
-
-FalseTrueFalse/standaloneTrueFalse1500FalseFalseFalseFalseFalse308212521.5.0.01.5.0.0miércoles, 07 de enero de 2009 10:01FactuGES_Server.dpr
-
-
-
-
- MainSource
-
-
-
-
-
-
- TDARemoteService
-
-
-
- TDataModule
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDARemoteService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TDataAbstractService
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TFrame
-
-
-
- TFrame
-
-
-
- TForm
-
-
-
- TFrame
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+ {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
+ FactuGES_Server.dpr
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\Output\Debug\Servidor\FactuGES_Server.exe
+ 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
+
+
+ 7.0
+ False
+ False
+ 0
+ 3
+ ..\..\Output\Release\Servidor
+ RELEASE
+
+
+ 7.0
+ 3
+ ..\..\Output\Debug\Servidor
+ DEBUG;
+ True
+ True
+ True
+ $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+ $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+ $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+ $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+
+
+ Delphi.Personality
+
+
+ FalseTrueFalse/standaloneTrueFalse1500FalseFalseFalseFalseFalse308212521.5.0.01.5.0.0miércoles, 07 de enero de 2009 10:01FactuGES_Server.dpr
+
+
+
+
+ MainSource
+
+
+
+
+
+
+ TDARemoteService
+
+
+
+ TDataModule
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDARemoteService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TDataAbstractService
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TForm
+
+
+
+ TFrame
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+
+