diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index bef056fc..44e841a0 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -53,7 +53,7 @@
Delphi.Personality
VCLApplication
-FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1890FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.8.9.0FactuGESFactuGES1.8.9.0FactuGES.dprFalse
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1900FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.9.0.0FactuGESFactuGES1.9.0.0FactuGES.dprFalse
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index 6f9749e4..51a1af51 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Informes/1/InformeListadoBeneficiosGrafComp.fr3 b/Source/Informes/1/InformeListadoBeneficiosGrafComp.fr3
index f6c7c0d3..ca440aec 100644
--- a/Source/Informes/1/InformeListadoBeneficiosGrafComp.fr3
+++ b/Source/Informes/1/InformeListadoBeneficiosGrafComp.fr3
@@ -1,5 +1,5 @@
-
+
@@ -21,7 +21,6 @@
-
@@ -62,9 +61,9 @@
-
-
-
+
+
+
diff --git a/Source/Informes/2/InformeListadoBeneficiosGrafComp.fr3 b/Source/Informes/2/InformeListadoBeneficiosGrafComp.fr3
new file mode 100644
index 00000000..626c350b
--- /dev/null
+++ b/Source/Informes/2/InformeListadoBeneficiosGrafComp.fr3
@@ -0,0 +1,70 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
index ebd953ef..671e0012 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
@@ -1730,39 +1730,41 @@ object RptFacturasCliente: TRptFacturasCliente
'OTAL = 0) then (100 - ((periodo_gastos1.IMPORTE_TOTAL - periodo_' +
'gastos2.IMPORTE_TOTAL)*100))'#10'else (((periodo_gastos1.IMPORTE_TOT' +
'AL - periodo_gastos2.IMPORTE_TOTAL)*100)/periodo_gastos2.IMPORTE' +
- '_TOTAL)'#10'end as Porcentaje_Aumento_Gastos,'#10#10'((coalesce(periodo_in' +
- 'gresos1.IMPORTE_TOTAL, 0) - coalesce(periodo_gastos1.IMPORTE_TOT' +
- 'AL, 0)) - (coalesce(periodo_ingresos2.IMPORTE_TOTAL, 0) - coales' +
- 'ce(periodo_gastos2.IMPORTE_TOTAL, 0))) as Diferencia_Beneficios,' +
- #10#10'case'#10'when ((coalesce(periodo_ingresos2.IMPORTE_TOTAL, 0) - coa' +
- 'lesce(periodo_gastos2.IMPORTE_TOTAL, 0)) = 0) then (100 - (((coa' +
- 'lesce(periodo_ingresos1.IMPORTE_TOTAL, 0) - coalesce(periodo_gas' +
- 'tos1.IMPORTE_TOTAL, 0)) - (coalesce(periodo_ingresos2.IMPORTE_TO' +
- 'TAL, 0) - coalesce(periodo_gastos2.IMPORTE_TOTAL, 0)))*100))'#10'els' +
- 'e (((((coalesce(periodo_ingresos1.IMPORTE_TOTAL, 0) - coalesce(p' +
- 'eriodo_gastos1.IMPORTE_TOTAL, 0)) - (coalesce(periodo_ingresos2.' +
- 'IMPORTE_TOTAL, 0) - coalesce(periodo_gastos2.IMPORTE_TOTAL, 0)))' +
- '*100) / (coalesce(periodo_ingresos2.IMPORTE_TOTAL, 0) - coalesce' +
- '(periodo_gastos2.IMPORTE_TOTAL, 0))))'#10'end as Porcentaje_Aumento_' +
- 'Beneficios'#10#10'FROM'#10'periodos_aux'#10'left join'#10'(select comp1.ID_EMPRESA' +
- ', comp1.ANO, MES as NFILA, SUM(comp1.IMPORTE_TOTAL) as IMPORTE_T' +
- 'OTAL'#10'from V_INF_FAC_CLIENTE comp1'#10'where ID_EMPRESA = :ID_EMPRESA' +
- '1'#10'and (ANO = :ANO1)'#10'group by 1,2,3'#10'order by 1 desc,2 asc) period' +
- 'o_ingresos1 on (VALOR = periodo_ingresos1.NFILA)'#10#10'left join'#10'(sel' +
- 'ect comp2.ID_EMPRESA, comp2.ANO, MES as NFILA, SUM(comp2.IMPORTE' +
- '_TOTAL) as IMPORTE_TOTAL'#10'from V_INF_FAC_PROVEEDOR comp2'#10'where ID' +
- '_EMPRESA = :ID_EMPRESA1'#10'and (ANO = :ANO1)'#10'group by 1,2,3'#10'order b' +
- 'y 1 desc,2 asc) periodo_gastos1 on (VALOR = periodo_gastos1.NFIL' +
- 'A)'#10#10'left join'#10'(select comp3.ID_EMPRESA, comp3.ANO, MES as NFILA,' +
- ' SUM(comp3.IMPORTE_TOTAL) as IMPORTE_TOTAL'#10'from V_INF_FAC_CLIENT' +
- 'E comp3'#10'where ID_EMPRESA = :ID_EMPRESA2'#10'and (ANO = :ANO2)'#10'group ' +
- 'by 1,2,3'#10'order by 1 desc,2 asc) periodo_ingresos2 on (VALOR = pe' +
- 'riodo_ingresos2.NFILA)'#10#10'left join'#10'(select comp4.ID_EMPRESA, comp' +
- '4.ANO, MES as NFILA, SUM(comp4.IMPORTE_TOTAL) as IMPORTE_TOTAL'#10'f' +
- 'rom V_INF_FAC_PROVEEDOR comp4'#10'where ID_EMPRESA = :ID_EMPRESA2'#10'an' +
- 'd (ANO = :ANO2)'#10'group by 1,2,3'#10'order by 1 desc,2 asc) periodo_ga' +
- 'stos2 on (VALOR = periodo_gastos2.NFILA)'#10#10#10'where periodo= '#39'MENSU' +
- 'AL'#39#10'order by valor asc'#10
+ '_TOTAL)'#10'end as Porcentaje_Aumento_Gastos,'#10#10'case when periodo_ing' +
+ 'resos2.ANO is null then 0'#10'else'#10'((coalesce(periodo_ingresos1.IMPO' +
+ 'RTE_TOTAL, 0) - coalesce(periodo_gastos1.IMPORTE_TOTAL, 0)) - (c' +
+ 'oalesce(periodo_ingresos2.IMPORTE_TOTAL, 0) - coalesce(periodo_g' +
+ 'astos2.IMPORTE_TOTAL, 0)))'#10'end as Diferencia_Beneficios,'#10#10'case w' +
+ 'hen periodo_ingresos2.ANO is null then 0'#10'else'#10'case'#10'when ((coales' +
+ 'ce(periodo_ingresos2.IMPORTE_TOTAL, 0) - coalesce(periodo_gastos' +
+ '2.IMPORTE_TOTAL, 0)) = 0) then (100 - (((coalesce(periodo_ingres' +
+ 'os1.IMPORTE_TOTAL, 0) - coalesce(periodo_gastos1.IMPORTE_TOTAL, ' +
+ '0)) - (coalesce(periodo_ingresos2.IMPORTE_TOTAL, 0) - coalesce(p' +
+ 'eriodo_gastos2.IMPORTE_TOTAL, 0)))*100))'#10'else (((((coalesce(peri' +
+ 'odo_ingresos1.IMPORTE_TOTAL, 0) - coalesce(periodo_gastos1.IMPOR' +
+ 'TE_TOTAL, 0)) - (coalesce(periodo_ingresos2.IMPORTE_TOTAL, 0) - ' +
+ 'coalesce(periodo_gastos2.IMPORTE_TOTAL, 0)))*100) / (coalesce(pe' +
+ 'riodo_ingresos2.IMPORTE_TOTAL, 0) - coalesce(periodo_gastos2.IMP' +
+ 'ORTE_TOTAL, 0))))'#10'end'#10'end as Porcentaje_Aumento_Beneficios'#10#10'FROM' +
+ #10'periodos_aux'#10'left join'#10'(select comp1.ID_EMPRESA, comp1.ANO, MES' +
+ ' as NFILA, SUM(comp1.IMPORTE_TOTAL) as IMPORTE_TOTAL'#10'from V_INF_' +
+ 'FAC_CLIENTE comp1'#10'where ID_EMPRESA = :ID_EMPRESA1'#10'and (ANO = :AN' +
+ 'O1)'#10'group by 1,2,3'#10'order by 1 desc,2 asc) periodo_ingresos1 on (' +
+ 'VALOR = periodo_ingresos1.NFILA)'#10#10'left join'#10'(select comp2.ID_EMP' +
+ 'RESA, comp2.ANO, MES as NFILA, SUM(comp2.IMPORTE_TOTAL) as IMPOR' +
+ 'TE_TOTAL'#10'from V_INF_FAC_PROVEEDOR comp2'#10'where ID_EMPRESA = :ID_E' +
+ 'MPRESA1'#10'and (ANO = :ANO1)'#10'group by 1,2,3'#10'order by 1 desc,2 asc) ' +
+ 'periodo_gastos1 on (VALOR = periodo_gastos1.NFILA)'#10#10'left join'#10'(s' +
+ 'elect comp3.ID_EMPRESA, comp3.ANO, MES as NFILA, SUM(comp3.IMPOR' +
+ 'TE_TOTAL) as IMPORTE_TOTAL'#10'from V_INF_FAC_CLIENTE comp3'#10'where ID' +
+ '_EMPRESA = :ID_EMPRESA2'#10'and (ANO = :ANO2)'#10'group by 1,2,3'#10'order b' +
+ 'y 1 desc,2 asc) periodo_ingresos2 on (VALOR = periodo_ingresos2.' +
+ 'NFILA)'#10#10'left join'#10'(select comp4.ID_EMPRESA, comp4.ANO, MES as NF' +
+ 'ILA, SUM(comp4.IMPORTE_TOTAL) as IMPORTE_TOTAL'#10'from V_INF_FAC_PR' +
+ 'OVEEDOR comp4'#10'where ID_EMPRESA = :ID_EMPRESA2'#10'and (ANO = :ANO2)'#10 +
+ 'group by 1,2,3'#10'order by 1 desc,2 asc) periodo_gastos2 on (VALOR ' +
+ '= periodo_gastos2.NFILA)'#10#10#10'where periodo= '#39'MENSUAL'#39#10'order by val' +
+ 'or asc'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -2977,26 +2979,78 @@ object RptFacturasCliente: TRptFacturasCliente
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37800.807714351900000000
- ReportOptions.LastChange = 40605.777136655100000000
+ ReportOptions.LastChange = 40610.539457418990000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
'procedure Chart1OnBeforePrint(Sender: TfrxComponent);'
'begin'
- '{ '
+ ' '
+ ' if ( <> 0) then'
+ ' begin '
- ' if ( <> 0) then ' +
- ' '
+ ' TLineSeries(Chart1.Series[0]).Title := '#39'Ingresos '#39' + IntToS' +
+ 'tr();'
- ' TLineSeries(Chart1.Series[0]).Title := '#39'Total Facturado '#39' +' +
- ' IntToStr();'
- ''
+ ' TLineSeries(Chart1.Series[1]).Title := '#39'Gastos '#39' + IntToStr' +
+ '();'
+
+ ' TLineSeries(Chart1.Series[2]).Title := '#39'Beneficios '#39' + IntT' +
+ 'oStr(); '
+ ' end;'
+ ' '
' if ( <> 0) then'
+ ' begin '
- ' TLineSeries(Chart1.Series[1]).Title := '#39'Total Facturado '#39' +' +
- ' IntToStr()'
+ ' TLineSeries(Chart1.Series[3]).Title := '#39'Ingresos '#39' + IntToS' +
+ 'tr();'
+
+ ' TLineSeries(Chart1.Series[4]).Title := '#39'Gastos '#39' + IntToStr' +
+ '();'
+
+ ' TLineSeries(Chart1.Series[5]).Title := '#39'Beneficios '#39' + IntT' +
+ 'oStr(); '
+ ' end'
' else'
- ' Chart1.Series[1].Active := False;'
- '} '
+ ' begin '
+ ' Chart1.Series[3].Active := False;'
+ ' Chart1.Series[4].Active := False;'
+ ' Chart1.Series[5].Active := False; '
+ ' end;'
+ ''
+ ' if ( <> 0) then'
+ ' begin'
+ '//Solo Ingresos '
+ ' if ( = 1) then'
+ ' begin'
+ ' Chart1.Series[0].Active := True;'
+ ' Chart1.Series[1].Active := False;'
+ ' Chart1.Series[2].Active := False;'
+ ' Chart1.Series[3].Active := True;'
+ ' Chart1.Series[4].Active := False;'
+ ' Chart1.Series[5].Active := False;'
+ ' end'
+ '//Solo Gastos '
+ ' else if ( = 2) then'
+ ' begin'
+ ' Chart1.Series[0].Active := False;'
+ ' Chart1.Series[1].Active := True;'
+ ' Chart1.Series[2].Active := False;'
+ ' Chart1.Series[3].Active := False;'
+ ' Chart1.Series[4].Active := True;'
+ ' Chart1.Series[5].Active := False;'
+ ' end'
+ '//Solo Beneficios '
+ ' else if ( = 3) then'
+ ' begin'
+ ' Chart1.Series[0].Active := False;'
+ ' Chart1.Series[1].Active := False;'
+ ' Chart1.Series[2].Active := True;'
+ ' Chart1.Series[3].Active := False;'
+ ' Chart1.Series[4].Active := False;'
+ ' Chart1.Series[5].Active := True;'
+ ' end; '
+ ' '
+ ' end; '
'end;'
''
'procedure Memo16OnBeforePrint(Sender: TfrxComponent);'
diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
index 4201bf3a..3535cef6 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
@@ -139,7 +139,7 @@ type
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;
function GenerarInformeFacturasGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer): Binary;
- function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant): Binary;
+ function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
end;
implementation
@@ -226,7 +226,7 @@ begin
end;
end;
-function TRptFacturasCliente.GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant): Binary;
+function TRptFacturasCliente.GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant; const Serie: Variant): Binary;
var
AStream: TMemoryStream;
AInforme: Variant;
@@ -259,6 +259,7 @@ begin
frxReport.LoadFromFile(AInforme, True);
// IniciarParametrosInforme;
+ frxReport.Variables.Variables['Serie']:= Serie;
frxReport.PrepareReport(False);
frxReport.PreviewPages.SaveToStream(Result);
diff --git a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeBeneficiosReportGrafComp.pas b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeBeneficiosReportGrafComp.pas
index 0e1aa9cc..017cba4b 100644
--- a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeBeneficiosReportGrafComp.pas
+++ b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeBeneficiosReportGrafComp.pas
@@ -12,10 +12,12 @@ type
function GetIntervalo: Variant;
function GetAno1: Variant;
function GetAno2: Variant;
+ function GetSerie: Variant;
property Intervalo: Variant read GetIntervalo;
property Ano1: Variant read GetAno1;
property Ano2: Variant read GetAno2;
+ property Serie: Variant read GetSerie;
end;
diff --git a/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas b/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas
index 16bf3729..18041774 100644
--- a/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas
+++ b/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas
@@ -318,7 +318,7 @@ begin
AEditor.Title := 'Informe comparativo de beneficios';
AStream := FDataModule.GenerarInformeBeneficiosGrafComp(AppFactuGES.EmpresaActiva.ID,
- AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2);
+ AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2, AEditor.Serie);
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 5b439958..998b6dae 100644
--- a/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas
+++ b/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas
@@ -32,7 +32,7 @@ type
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 GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant): Binary;
function DarListaAnosFacturasCli: TStringList;
- function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant): Binary;
+ function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): 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;
@@ -80,7 +80,7 @@ begin
try
AResultado := (RORemoteService as IsrvGestorInformes).DarListaAnosFacturasCli;
Result := TStringList.Create;
- for i:= 0 to AResultado.Count - 1 do
+ for i:= 0 to AResultado.Count - 2 do //Quitamos la opcion todos
Result.Add(AResultado.Items[i]);
finally
FreeANDNIL(AResultado)
@@ -96,7 +96,7 @@ begin
try
AResultado := (RORemoteService as IsrvGestorInformes).DarListaAnosFacturasProv;
Result := TStringList.Create;
- for i:= 0 to AResultado.Count - 1 do
+ for i:= 0 to AResultado.Count - 2 do //Quitamos la opcion todos
Result.Add(AResultado.Items[i]);
finally
FreeANDNIL(AResultado)
@@ -120,10 +120,10 @@ begin
end;
function TDataModuleGestorInformes.GenerarInformeBeneficiosGrafComp(
- const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant): Binary;
+ const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant; const Serie: Variant): Binary;
begin
try
- Result := (RORemoteService as IsrvGestorInformes).GenerarInformeBeneficiosGrafComp(IdEmpresa, Intervalo, Ano1, Ano2);
+ Result := (RORemoteService as IsrvGestorInformes).GenerarInformeBeneficiosGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, Serie);
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 04e3419e..eb5b0683 100644
--- a/Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas
+++ b/Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas
@@ -22,7 +22,7 @@ type
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 GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant): Binary;
function DarListaAnosFacturasCli: TStringList;
- function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant): Binary;
+ function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): 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 b7c708b7..466d14b6 100644
--- a/Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas
+++ b/Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas
@@ -48,7 +48,7 @@ type
function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer): Binary;
function DarListaAnosFacturasCli: StringArray;
- function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant): Binary;
+ function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): 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;
@@ -121,13 +121,13 @@ begin
end;
function TsrvGestorInformes.GenerarInformeBeneficiosGrafComp(
- const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant): Binary;
+ const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant; const Serie: Variant): Binary;
var
AReportGenerator : TRptFacturasCliente;
begin
AReportGenerator := TRptFacturasCliente.Create(nil);
try
- Result := AReportGenerator.GenerarInformeBeneficiosGrafComp(IdEmpresa, Intervalo, Ano1, Ano2);
+ Result := AReportGenerator.GenerarInformeBeneficiosGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, Serie);
finally
FreeAndNIL(AReportGenerator);
end;
diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeBeneficiosReportGrafComp.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeBeneficiosReportGrafComp.dfm
index 3cb01a20..c0b68b28 100644
--- a/Source/Modulos/Gestor de informes/Views/uEditorInformeBeneficiosReportGrafComp.dfm
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeBeneficiosReportGrafComp.dfm
@@ -90,6 +90,9 @@ inherited fEditorInformeBeneficiosReportGrafComp: TfEditorInformeBeneficiosRepor
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182
ExplicitWidth = 182
+ DesignSize = (
+ 182
+ 42)
inherited Label3: TLabel
Width = 172
end
@@ -109,6 +112,9 @@ inherited fEditorInformeBeneficiosReportGrafComp: TfEditorInformeBeneficiosRepor
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Width = 182
ExplicitWidth = 182
+ DesignSize = (
+ 182
+ 42)
inherited lis: TLabel
Width = 172
end
@@ -124,6 +130,9 @@ inherited fEditorInformeBeneficiosReportGrafComp: TfEditorInformeBeneficiosRepor
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 182
ExplicitWidth = 182
+ DesignSize = (
+ 182
+ 42)
inherited Label1: TLabel
Width = 172
end
@@ -144,6 +153,22 @@ inherited fEditorInformeBeneficiosReportGrafComp: TfEditorInformeBeneficiosRepor
Width = 172
end
end
+ inherited TBXAlignmentPanel5: TTBXAlignmentPanel
+ Width = 182
+ ExplicitTop = 225
+ ExplicitWidth = 182
+ inherited Label4: TLabel
+ Width = 172
+ end
+ inherited cbSerie: TcxComboBox
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 166
+ Width = 166
+ end
+ end
end
inline frViewFiltroClientes1: TfrViewFiltroClientes
Left = 0
diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeBeneficiosReportGrafComp.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeBeneficiosReportGrafComp.pas
index 19473b75..a5f7964c 100644
--- a/Source/Modulos/Gestor de informes/Views/uEditorInformeBeneficiosReportGrafComp.pas
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeBeneficiosReportGrafComp.pas
@@ -30,6 +30,7 @@ type
function GetIntervalo: Variant;
function GetAno1: Variant;
function GetAno2: Variant;
+ function GetSerie: variant;
function GetListaIDClientes: TIntegerArray;
function GetNTop: Variant;
@@ -42,6 +43,7 @@ type
property Intervalo: Variant read GetIntervalo;
property Ano1: Variant read GetAno1;
property Ano2: Variant read GetAno2;
+ property Serie: Variant read GetSerie;
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property NTop: Variant read GetNTop;
@@ -111,6 +113,11 @@ begin
Result := frViewIntervaloComparativo1.stopN.Value;
end;
+function TfEditorInformeBeneficiosReportGrafComp.GetSerie: Variant;
+begin
+ Result := frViewIntervaloComparativo1.Serie;
+end;
+
procedure TfEditorInformeBeneficiosReportGrafComp.RefrescarInforme;
var
AStream: Binary;
@@ -122,7 +129,8 @@ begin
AppFactuGES.EmpresaActiva.ID,
Intervalo,
Ano1,
- Ano2);
+ Ano2,
+ Serie);
LoadFromStream(AStream);
Report.ShowPreparedReport;
diff --git a/Source/Modulos/Gestor de informes/Views/uViewIntervaloComparativo.dfm b/Source/Modulos/Gestor de informes/Views/uViewIntervaloComparativo.dfm
index b3ce068f..a90c3211 100644
--- a/Source/Modulos/Gestor de informes/Views/uViewIntervaloComparativo.dfm
+++ b/Source/Modulos/Gestor de informes/Views/uViewIntervaloComparativo.dfm
@@ -1,14 +1,14 @@
inherited frViewIntervaloComparativo: TfrViewIntervaloComparativo
- Width = 451
- Height = 220
+ Width = 326
+ Height = 273
Align = alTop
- ExplicitWidth = 451
- ExplicitHeight = 220
+ ExplicitWidth = 326
+ ExplicitHeight = 273
object TBXAlignmentPanel2: TTBXAlignmentPanel
AlignWithMargins = True
Left = 3
Top = 32
- Width = 445
+ Width = 320
Height = 42
Margins.Left = 5
Margins.Top = 5
@@ -16,13 +16,14 @@ inherited frViewIntervaloComparativo: TfrViewIntervaloComparativo
Align = alTop
AutoSize = True
TabOrder = 0
+ ExplicitWidth = 445
DesignSize = (
- 445
+ 320
42)
object Label3: TLabel
Left = 5
Top = 5
- Width = 435
+ Width = 310
Height = 13
Align = alTop
Caption = 'Intervalo comparativo'
@@ -52,13 +53,14 @@ inherited frViewIntervaloComparativo: TfrViewIntervaloComparativo
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0
- Width = 429
+ ExplicitWidth = 429
+ Width = 304
end
end
object TBXLabel2: TTBXLabel
Left = 0
Top = 0
- Width = 451
+ Width = 326
Height = 29
Margins.Top = 5
Margins.Bottom = 10
@@ -72,12 +74,13 @@ inherited frViewIntervaloComparativo: TfrViewIntervaloComparativo
ParentColor = True
ParentFont = False
Underline = True
+ ExplicitWidth = 451
end
object TBXAlignmentPanel3: TTBXAlignmentPanel
AlignWithMargins = True
Left = 3
Top = 80
- Width = 445
+ Width = 320
Height = 42
Margins.Left = 5
Margins.Top = 5
@@ -85,13 +88,14 @@ inherited frViewIntervaloComparativo: TfrViewIntervaloComparativo
Align = alTop
AutoSize = True
TabOrder = 2
+ ExplicitWidth = 445
DesignSize = (
- 445
+ 320
42)
object lis: TLabel
Left = 5
Top = 5
- Width = 435
+ Width = 310
Height = 13
Align = alTop
Caption = 'A'#241'o'
@@ -121,14 +125,15 @@ inherited frViewIntervaloComparativo: TfrViewIntervaloComparativo
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0
- Width = 429
+ ExplicitWidth = 429
+ Width = 304
end
end
object TBXAlignmentPanel1: TTBXAlignmentPanel
AlignWithMargins = True
Left = 3
Top = 128
- Width = 445
+ Width = 320
Height = 42
Margins.Left = 5
Margins.Top = 5
@@ -136,13 +141,14 @@ inherited frViewIntervaloComparativo: TfrViewIntervaloComparativo
Align = alTop
AutoSize = True
TabOrder = 3
+ ExplicitWidth = 445
DesignSize = (
- 445
+ 320
42)
object Label1: TLabel
Left = 5
Top = 5
- Width = 435
+ Width = 310
Height = 13
Align = alTop
Caption = 'Comparar con a'#241'o'
@@ -172,25 +178,27 @@ inherited frViewIntervaloComparativo: TfrViewIntervaloComparativo
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0
- Width = 429
+ ExplicitWidth = 429
+ Width = 304
end
end
object TBXAlignmentPanel4: TTBXAlignmentPanel
AlignWithMargins = True
Left = 3
Top = 176
- Width = 445
- Height = 42
+ Width = 320
+ Height = 43
Margins.Left = 5
Margins.Top = 5
Margins.Right = 5
Align = alTop
AutoSize = True
TabOrder = 4
+ ExplicitWidth = 445
object Label2: TLabel
Left = 5
Top = 5
- Width = 435
+ Width = 310
Height = 13
Align = alTop
Caption = 'Top N:'
@@ -199,10 +207,70 @@ inherited frViewIntervaloComparativo: TfrViewIntervaloComparativo
end
object stopN: TcxSpinEdit
Left = 3
- Top = 21
+ Top = 22
TabOrder = 0
Value = 5
Width = 110
end
end
+ object TBXAlignmentPanel5: TTBXAlignmentPanel
+ AlignWithMargins = True
+ Left = 3
+ Top = 225
+ Width = 320
+ Height = 42
+ Margins.Left = 5
+ Margins.Top = 5
+ Margins.Right = 5
+ Align = alTop
+ AutoSize = True
+ TabOrder = 5
+ ExplicitTop = 181
+ ExplicitWidth = 445
+ DesignSize = (
+ 320
+ 42)
+ object Label4: TLabel
+ Left = 5
+ Top = 5
+ Width = 310
+ Height = 13
+ Align = alTop
+ Caption = 'Mostrar gr'#225'fico de:'
+ Transparent = True
+ ExplicitWidth = 92
+ end
+ object cbSerie: TcxComboBox
+ Left = 3
+ Top = 21
+ Anchors = [akLeft, akTop, akRight]
+ Properties.DropDownListStyle = lsFixedList
+ Properties.Items.Strings = (
+ 'Todos'
+ 'Ingresos'
+ 'Gastos'
+ 'Beneficios')
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.HotTrack = False
+ Style.LookAndFeel.Kind = lfStandard
+ Style.LookAndFeel.NativeStyle = True
+ Style.LookAndFeel.SkinName = ''
+ Style.ButtonStyle = bts3D
+ Style.PopupBorderStyle = epbsFrame3D
+ StyleDisabled.LookAndFeel.Kind = lfStandard
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.Kind = lfStandard
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.Kind = lfStandard
+ StyleHot.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.SkinName = ''
+ TabOrder = 0
+ Text = 'Todos'
+ ExplicitWidth = 429
+ Width = 304
+ end
+ end
end
diff --git a/Source/Modulos/Gestor de informes/Views/uViewIntervaloComparativo.pas b/Source/Modulos/Gestor de informes/Views/uViewIntervaloComparativo.pas
index 788e757d..78aacd0b 100644
--- a/Source/Modulos/Gestor de informes/Views/uViewIntervaloComparativo.pas
+++ b/Source/Modulos/Gestor de informes/Views/uViewIntervaloComparativo.pas
@@ -28,19 +28,25 @@ type
TBXAlignmentPanel4: TTBXAlignmentPanel;
Label2: TLabel;
stopN: TcxSpinEdit;
+ TBXAlignmentPanel5: TTBXAlignmentPanel;
+ Label4: TLabel;
+ cbSerie: TcxComboBox;
private
function GetIntervalo: Variant;
function GetAno1: Variant;
function GetAno2: Variant;
+ function GetSerie: Variant;
procedure SetIntervalo(const Value: Variant);
procedure SetAno1(const Value: Variant);
procedure SetAno2(const Value: Variant);
+ procedure SetSerie(const Value: Variant);
public
property Intevalo : Variant read GetIntervalo write SetIntervalo;
property Ano1 : Variant read GetAno1 write SetAno1;
property Ano2 : Variant read GetAno2 write SetAno2;
+ property Serie : Variant read GetSerie write SetSerie;
constructor Create(AOwner: TComponent); override;
end;
@@ -57,6 +63,11 @@ begin
Result := cbIntervalo.EditValue;
end;
+function TfrViewIntervaloComparativo.GetSerie: Variant;
+begin
+ Result := cbSerie.ItemIndex;
+end;
+
function TfrViewIntervaloComparativo.GetAno1: Variant;
begin
Result := cbAno1.EditValue;
@@ -72,6 +83,11 @@ begin
cbIntervalo.EditValue := Value;
end;
+procedure TfrViewIntervaloComparativo.SetSerie(const Value: Variant);
+begin
+ cbSerie.ItemIndex := Value;
+end;
+
procedure TfrViewIntervaloComparativo.SetAno1(const Value: Variant);
begin
cbAno1.EditValue := Value;
diff --git a/Source/Servicios/FactuGES.RODL b/Source/Servicios/FactuGES.RODL
index 87fdcca4..a11276fe 100644
--- a/Source/Servicios/FactuGES.RODL
+++ b/Source/Servicios/FactuGES.RODL
@@ -768,6 +768,8 @@
+
+
diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas
index d781df7c..a9ac6654 100644
--- a/Source/Servicios/FactuGES_Intf.pas
+++ b/Source/Servicios/FactuGES_Intf.pas
@@ -779,7 +779,7 @@ type
const TopN: Integer): Binary;
function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray;
const TopN: Integer): Binary;
- function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant): Binary;
+ function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): 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;
@@ -823,7 +823,7 @@ type
const TopN: Integer): Binary;
function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray;
const TopN: Integer): Binary;
- function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant): Binary;
+ function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): 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;
@@ -2519,7 +2519,7 @@ begin
end
end;
-function TsrvGestorInformes_Proxy.GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant): Binary;
+function TsrvGestorInformes_Proxy.GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
begin
try
result := nil;
@@ -2528,6 +2528,7 @@ begin
__Message.Write('Intervalo', TypeInfo(Variant), Intervalo, []);
__Message.Write('Ano1', TypeInfo(Variant), Ano1, []);
__Message.Write('Ano2', TypeInfo(Variant), Ano2, []);
+ __Message.Write('Serie', TypeInfo(Variant), Serie, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas
index 8cf44ced..6c282684 100644
--- a/Source/Servicios/FactuGES_Invk.pas
+++ b/Source/Servicios/FactuGES_Invk.pas
@@ -2004,12 +2004,13 @@ begin
end;
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeBeneficiosGrafComp(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant): Binary; }
+{ function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary; }
var
IdEmpresa: Integer;
Intervalo: Variant;
Ano1: Variant;
Ano2: Variant;
+ Serie: Variant;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
@@ -2019,8 +2020,9 @@ begin
__Message.Read('Intervalo', TypeInfo(Variant), Intervalo, []);
__Message.Read('Ano1', TypeInfo(Variant), Ano1, []);
__Message.Read('Ano2', TypeInfo(Variant), Ano2, []);
+ __Message.Read('Serie', TypeInfo(Variant), Serie, []);
- lResult := (__Instance as IsrvGestorInformes).GenerarInformeBeneficiosGrafComp(IdEmpresa, Intervalo, Ano1, Ano2);
+ lResult := (__Instance as IsrvGestorInformes).GenerarInformeBeneficiosGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, Serie);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeBeneficiosGrafCompResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
diff --git a/Source/Servicios/RODLFILE.res b/Source/Servicios/RODLFILE.res
index 88acce32..14492bed 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 f3566bfc..9525bc30 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 23064033..1e11700d 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,334 +1,341 @@
-
+
-
- {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_D11R;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
- C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
- C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
- C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
- C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
-
-
- Delphi.Personality
-
-
- FalseTrueFalse/standaloneTrueFalse1890FalseFalseFalseFalseFalse308212521.8.9.01.8.9.0viernes, 04 de febrero de 2011 13:14
- ExpressPrinting System by Developer Express Inc.
- FactuGES_Server.dpr
-
-
-
-
- MainSource
-
-
-
-
-
-
- TDARemoteService
-
-
-
- TDataModule
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- 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_D11R;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
+ C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+ C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+ C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+ C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+
+
+ Delphi.Personality
+
+
+FalseTrueFalse/standaloneTrueFalse1900FalseFalseFalseFalseFalse308212521.9.0.01.9.0.0viernes, 25 de febrero de 2011 16:25
+
+
+
+
+
+
+
+ ExpressPrinting System by Developer Express Inc.
+ FactuGES_Server.dpr
+
+
+
+
+ MainSource
+
+
+
+
+
+
+ TDARemoteService
+
+
+
+ TDataModule
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ 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
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+