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

Version 1.9.0 (Subida de informe de beneficios final)

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1042 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2011-03-08 12:18:42 +00:00
parent 087de0a24d
commit ea6860b7de
21 changed files with 674 additions and 419 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +53,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.8.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.8.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">9</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.9.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.9.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

9
Source/Informes/1/InformeListadoBeneficiosGrafComp.fr3
View File

File diff suppressed because one or more lines are too long

70
Source/Informes/2/InformeListadoBeneficiosGrafComp.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

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

@ -1730,39 +1730,41 @@ object RptFacturasCliente: TRptFacturasCliente
'OTAL = 0) then (100 - ((periodo_gastos1.IMPORTE_TOTAL - periodo_' + 'OTAL = 0) then (100 - ((periodo_gastos1.IMPORTE_TOTAL - periodo_' +
'gastos2.IMPORTE_TOTAL)*100))'#10'else (((periodo_gastos1.IMPORTE_TOT' + 'gastos2.IMPORTE_TOTAL)*100))'#10'else (((periodo_gastos1.IMPORTE_TOT' +
'AL - periodo_gastos2.IMPORTE_TOTAL)*100)/periodo_gastos2.IMPORTE' + 'AL - periodo_gastos2.IMPORTE_TOTAL)*100)/periodo_gastos2.IMPORTE' +
'_TOTAL)'#10'end as Porcentaje_Aumento_Gastos,'#10#10'((coalesce(periodo_in' + '_TOTAL)'#10'end as Porcentaje_Aumento_Gastos,'#10#10'case when periodo_ing' +
'gresos1.IMPORTE_TOTAL, 0) - coalesce(periodo_gastos1.IMPORTE_TOT' + 'resos2.ANO is null then 0'#10'else'#10'((coalesce(periodo_ingresos1.IMPO' +
'AL, 0)) - (coalesce(periodo_ingresos2.IMPORTE_TOTAL, 0) - coales' + 'RTE_TOTAL, 0) - coalesce(periodo_gastos1.IMPORTE_TOTAL, 0)) - (c' +
'ce(periodo_gastos2.IMPORTE_TOTAL, 0))) as Diferencia_Beneficios,' + 'oalesce(periodo_ingresos2.IMPORTE_TOTAL, 0) - coalesce(periodo_g' +
#10#10'case'#10'when ((coalesce(periodo_ingresos2.IMPORTE_TOTAL, 0) - coa' + 'astos2.IMPORTE_TOTAL, 0)))'#10'end as Diferencia_Beneficios,'#10#10'case w' +
'lesce(periodo_gastos2.IMPORTE_TOTAL, 0)) = 0) then (100 - (((coa' + 'hen periodo_ingresos2.ANO is null then 0'#10'else'#10'case'#10'when ((coales' +
'lesce(periodo_ingresos1.IMPORTE_TOTAL, 0) - coalesce(periodo_gas' + 'ce(periodo_ingresos2.IMPORTE_TOTAL, 0) - coalesce(periodo_gastos' +
'tos1.IMPORTE_TOTAL, 0)) - (coalesce(periodo_ingresos2.IMPORTE_TO' + '2.IMPORTE_TOTAL, 0)) = 0) then (100 - (((coalesce(periodo_ingres' +
'TAL, 0) - coalesce(periodo_gastos2.IMPORTE_TOTAL, 0)))*100))'#10'els' + 'os1.IMPORTE_TOTAL, 0) - coalesce(periodo_gastos1.IMPORTE_TOTAL, ' +
'e (((((coalesce(periodo_ingresos1.IMPORTE_TOTAL, 0) - coalesce(p' + '0)) - (coalesce(periodo_ingresos2.IMPORTE_TOTAL, 0) - coalesce(p' +
'eriodo_gastos1.IMPORTE_TOTAL, 0)) - (coalesce(periodo_ingresos2.' + 'eriodo_gastos2.IMPORTE_TOTAL, 0)))*100))'#10'else (((((coalesce(peri' +
'IMPORTE_TOTAL, 0) - coalesce(periodo_gastos2.IMPORTE_TOTAL, 0)))' + 'odo_ingresos1.IMPORTE_TOTAL, 0) - coalesce(periodo_gastos1.IMPOR' +
'*100) / (coalesce(periodo_ingresos2.IMPORTE_TOTAL, 0) - coalesce' + 'TE_TOTAL, 0)) - (coalesce(periodo_ingresos2.IMPORTE_TOTAL, 0) - ' +
'(periodo_gastos2.IMPORTE_TOTAL, 0))))'#10'end as Porcentaje_Aumento_' + 'coalesce(periodo_gastos2.IMPORTE_TOTAL, 0)))*100) / (coalesce(pe' +
'Beneficios'#10#10'FROM'#10'periodos_aux'#10'left join'#10'(select comp1.ID_EMPRESA' + 'riodo_ingresos2.IMPORTE_TOTAL, 0) - coalesce(periodo_gastos2.IMP' +
', comp1.ANO, MES as NFILA, SUM(comp1.IMPORTE_TOTAL) as IMPORTE_T' + 'ORTE_TOTAL, 0))))'#10'end'#10'end as Porcentaje_Aumento_Beneficios'#10#10'FROM' +
'OTAL'#10'from V_INF_FAC_CLIENTE comp1'#10'where ID_EMPRESA = :ID_EMPRESA' + #10'periodos_aux'#10'left join'#10'(select comp1.ID_EMPRESA, comp1.ANO, MES' +
'1'#10'and (ANO = :ANO1)'#10'group by 1,2,3'#10'order by 1 desc,2 asc) period' + ' as NFILA, SUM(comp1.IMPORTE_TOTAL) as IMPORTE_TOTAL'#10'from V_INF_' +
'o_ingresos1 on (VALOR = periodo_ingresos1.NFILA)'#10#10'left join'#10'(sel' + 'FAC_CLIENTE comp1'#10'where ID_EMPRESA = :ID_EMPRESA1'#10'and (ANO = :AN' +
'ect comp2.ID_EMPRESA, comp2.ANO, MES as NFILA, SUM(comp2.IMPORTE' + 'O1)'#10'group by 1,2,3'#10'order by 1 desc,2 asc) periodo_ingresos1 on (' +
'_TOTAL) as IMPORTE_TOTAL'#10'from V_INF_FAC_PROVEEDOR comp2'#10'where ID' + 'VALOR = periodo_ingresos1.NFILA)'#10#10'left join'#10'(select comp2.ID_EMP' +
'_EMPRESA = :ID_EMPRESA1'#10'and (ANO = :ANO1)'#10'group by 1,2,3'#10'order b' + 'RESA, comp2.ANO, MES as NFILA, SUM(comp2.IMPORTE_TOTAL) as IMPOR' +
'y 1 desc,2 asc) periodo_gastos1 on (VALOR = periodo_gastos1.NFIL' + 'TE_TOTAL'#10'from V_INF_FAC_PROVEEDOR comp2'#10'where ID_EMPRESA = :ID_E' +
'A)'#10#10'left join'#10'(select comp3.ID_EMPRESA, comp3.ANO, MES as NFILA,' + 'MPRESA1'#10'and (ANO = :ANO1)'#10'group by 1,2,3'#10'order by 1 desc,2 asc) ' +
' SUM(comp3.IMPORTE_TOTAL) as IMPORTE_TOTAL'#10'from V_INF_FAC_CLIENT' + 'periodo_gastos1 on (VALOR = periodo_gastos1.NFILA)'#10#10'left join'#10'(s' +
'E comp3'#10'where ID_EMPRESA = :ID_EMPRESA2'#10'and (ANO = :ANO2)'#10'group ' + 'elect comp3.ID_EMPRESA, comp3.ANO, MES as NFILA, SUM(comp3.IMPOR' +
'by 1,2,3'#10'order by 1 desc,2 asc) periodo_ingresos2 on (VALOR = pe' + 'TE_TOTAL) as IMPORTE_TOTAL'#10'from V_INF_FAC_CLIENTE comp3'#10'where ID' +
'riodo_ingresos2.NFILA)'#10#10'left join'#10'(select comp4.ID_EMPRESA, comp' + '_EMPRESA = :ID_EMPRESA2'#10'and (ANO = :ANO2)'#10'group by 1,2,3'#10'order b' +
'4.ANO, MES as NFILA, SUM(comp4.IMPORTE_TOTAL) as IMPORTE_TOTAL'#10'f' + 'y 1 desc,2 asc) periodo_ingresos2 on (VALOR = periodo_ingresos2.' +
'rom V_INF_FAC_PROVEEDOR comp4'#10'where ID_EMPRESA = :ID_EMPRESA2'#10'an' + 'NFILA)'#10#10'left join'#10'(select comp4.ID_EMPRESA, comp4.ANO, MES as NF' +
'd (ANO = :ANO2)'#10'group by 1,2,3'#10'order by 1 desc,2 asc) periodo_ga' + 'ILA, SUM(comp4.IMPORTE_TOTAL) as IMPORTE_TOTAL'#10'from V_INF_FAC_PR' +
'stos2 on (VALOR = periodo_gastos2.NFILA)'#10#10#10'where periodo= '#39'MENSU' + 'OVEEDOR comp4'#10'where ID_EMPRESA = :ID_EMPRESA2'#10'and (ANO = :ANO2)'#10 +
'AL'#39#10'order by valor asc'#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 StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -2977,26 +2979,78 @@ object RptFacturasCliente: TRptFacturasCliente
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37800.807714351900000000 ReportOptions.CreateDate = 37800.807714351900000000
ReportOptions.LastChange = 40605.777136655100000000 ReportOptions.LastChange = 40610.539457418990000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ScriptText.Strings = ( ScriptText.Strings = (
'procedure Chart1OnBeforePrint(Sender: TfrxComponent);' 'procedure Chart1OnBeforePrint(Sender: TfrxComponent);'
'begin' 'begin'
'{ '
' if (<frxDBInformeListadoFacturasGrafComp."ANO1"> <> 0) then ' +
' ' ' '
' if (<frxDBInformeListadoFacturasGrafComp."ANO1"> <> 0) then'
' begin '
' TLineSeries(Chart1.Series[0]).Title := '#39'Total Facturado '#39' +' + ' TLineSeries(Chart1.Series[0]).Title := '#39'Ingresos '#39' + IntToS' +
' IntToStr(<frxDBInformeListadoFacturasGrafComp."ANO1">);' 'tr(<frxDBInformeListadoFacturasGrafComp."ANO1">);'
' TLineSeries(Chart1.Series[1]).Title := '#39'Gastos '#39' + IntToStr' +
'(<frxDBInformeListadoFacturasGrafComp."ANO1">);'
' TLineSeries(Chart1.Series[2]).Title := '#39'Beneficios '#39' + IntT' +
'oStr(<frxDBInformeListadoFacturasGrafComp."ANO1">); '
' end;'
' ' ' '
' if (<frxDBInformeListadoFacturasGrafComp."ANO2"> <> 0) then' ' if (<frxDBInformeListadoFacturasGrafComp."ANO2"> <> 0) then'
' begin '
' TLineSeries(Chart1.Series[1]).Title := '#39'Total Facturado '#39' +' + ' TLineSeries(Chart1.Series[3]).Title := '#39'Ingresos '#39' + IntToS' +
' IntToStr(<frxDBInformeListadoFacturasGrafComp."ANO2">)' 'tr(<frxDBInformeListadoFacturasGrafComp."ANO2">);'
' TLineSeries(Chart1.Series[4]).Title := '#39'Gastos '#39' + IntToStr' +
'(<frxDBInformeListadoFacturasGrafComp."ANO2">);'
' TLineSeries(Chart1.Series[5]).Title := '#39'Beneficios '#39' + IntT' +
'oStr(<frxDBInformeListadoFacturasGrafComp."ANO2">); '
' end'
' else' ' else'
' begin '
' Chart1.Series[3].Active := False;'
' Chart1.Series[4].Active := False;'
' Chart1.Series[5].Active := False; '
' end;'
''
' if (<Serie> <> 0) then'
' begin'
'//Solo Ingresos '
' if (<Serie> = 1) then'
' begin'
' Chart1.Series[0].Active := True;'
' Chart1.Series[1].Active := False;' ' 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 (<Serie> = 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 (<Serie> = 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;' 'end;'
'' ''
'procedure Memo16OnBeforePrint(Sender: TfrxComponent);' 'procedure Memo16OnBeforePrint(Sender: TfrxComponent);'

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

@ -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 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 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 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; end;
implementation implementation
@ -226,7 +226,7 @@ begin
end; end;
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 var
AStream: TMemoryStream; AStream: TMemoryStream;
AInforme: Variant; AInforme: Variant;
@ -259,6 +259,7 @@ begin
frxReport.LoadFromFile(AInforme, True); frxReport.LoadFromFile(AInforme, True);
// IniciarParametrosInforme; // IniciarParametrosInforme;
frxReport.Variables.Variables['Serie']:= Serie;
frxReport.PrepareReport(False); frxReport.PrepareReport(False);
frxReport.PreviewPages.SaveToStream(Result); frxReport.PreviewPages.SaveToStream(Result);

2
Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeBeneficiosReportGrafComp.pas
View File

@ -12,10 +12,12 @@ type
function GetIntervalo: Variant; function GetIntervalo: Variant;
function GetAno1: Variant; function GetAno1: Variant;
function GetAno2: Variant; function GetAno2: Variant;
function GetSerie: Variant;
property Intervalo: Variant read GetIntervalo; property Intervalo: Variant read GetIntervalo;
property Ano1: Variant read GetAno1; property Ano1: Variant read GetAno1;
property Ano2: Variant read GetAno2; property Ano2: Variant read GetAno2;
property Serie: Variant read GetSerie;
end; end;

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

@ -318,7 +318,7 @@ begin
AEditor.Title := 'Informe comparativo de beneficios'; AEditor.Title := 'Informe comparativo de beneficios';
AStream := FDataModule.GenerarInformeBeneficiosGrafComp(AppFactuGES.EmpresaActiva.ID, AStream := FDataModule.GenerarInformeBeneficiosGrafComp(AppFactuGES.EmpresaActiva.ID,
AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2); AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2, AEditor.Serie);
AEditor.LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
AEditor.Preview; AEditor.Preview;

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

@ -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 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 GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant): Binary;
function DarListaAnosFacturasCli: TStringList; 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 //MODULO RECIBOS DE CLIENTE
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
@ -80,7 +80,7 @@ begin
try try
AResultado := (RORemoteService as IsrvGestorInformes).DarListaAnosFacturasCli; AResultado := (RORemoteService as IsrvGestorInformes).DarListaAnosFacturasCli;
Result := TStringList.Create; 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]); Result.Add(AResultado.Items[i]);
finally finally
FreeANDNIL(AResultado) FreeANDNIL(AResultado)
@ -96,7 +96,7 @@ begin
try try
AResultado := (RORemoteService as IsrvGestorInformes).DarListaAnosFacturasProv; AResultado := (RORemoteService as IsrvGestorInformes).DarListaAnosFacturasProv;
Result := TStringList.Create; 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]); Result.Add(AResultado.Items[i]);
finally finally
FreeANDNIL(AResultado) FreeANDNIL(AResultado)
@ -120,10 +120,10 @@ begin
end; end;
function TDataModuleGestorInformes.GenerarInformeBeneficiosGrafComp( 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 begin
try try
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeBeneficiosGrafComp(IdEmpresa, Intervalo, Ano1, Ano2); Result := (RORemoteService as IsrvGestorInformes).GenerarInformeBeneficiosGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, Serie);
finally finally
end; end;
end; end;

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

@ -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 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 GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant): Binary;
function DarListaAnosFacturasCli: TStringList; 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 //MODULO RECIBOS DE CLIENTE
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;

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

@ -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 GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer): Binary;
function DarListaAnosFacturasCli: StringArray; 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 //MODULO RECIBOS CLIENTE
function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
@ -121,13 +121,13 @@ begin
end; end;
function TsrvGestorInformes.GenerarInformeBeneficiosGrafComp( 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 var
AReportGenerator : TRptFacturasCliente; AReportGenerator : TRptFacturasCliente;
begin begin
AReportGenerator := TRptFacturasCliente.Create(nil); AReportGenerator := TRptFacturasCliente.Create(nil);
try try
Result := AReportGenerator.GenerarInformeBeneficiosGrafComp(IdEmpresa, Intervalo, Ano1, Ano2); Result := AReportGenerator.GenerarInformeBeneficiosGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, Serie);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;

25
Source/Modulos/Gestor de informes/Views/uEditorInformeBeneficiosReportGrafComp.dfm
View File

@ -90,6 +90,9 @@ inherited fEditorInformeBeneficiosReportGrafComp: TfEditorInformeBeneficiosRepor
inherited TBXAlignmentPanel2: TTBXAlignmentPanel inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182 Width = 182
ExplicitWidth = 182 ExplicitWidth = 182
DesignSize = (
182
42)
inherited Label3: TLabel inherited Label3: TLabel
Width = 172 Width = 172
end end
@ -109,6 +112,9 @@ inherited fEditorInformeBeneficiosReportGrafComp: TfEditorInformeBeneficiosRepor
inherited TBXAlignmentPanel3: TTBXAlignmentPanel inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Width = 182 Width = 182
ExplicitWidth = 182 ExplicitWidth = 182
DesignSize = (
182
42)
inherited lis: TLabel inherited lis: TLabel
Width = 172 Width = 172
end end
@ -124,6 +130,9 @@ inherited fEditorInformeBeneficiosReportGrafComp: TfEditorInformeBeneficiosRepor
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 182 Width = 182
ExplicitWidth = 182 ExplicitWidth = 182
DesignSize = (
182
42)
inherited Label1: TLabel inherited Label1: TLabel
Width = 172 Width = 172
end end
@ -144,6 +153,22 @@ inherited fEditorInformeBeneficiosReportGrafComp: TfEditorInformeBeneficiosRepor
Width = 172 Width = 172
end end
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 end
inline frViewFiltroClientes1: TfrViewFiltroClientes inline frViewFiltroClientes1: TfrViewFiltroClientes
Left = 0 Left = 0

10
Source/Modulos/Gestor de informes/Views/uEditorInformeBeneficiosReportGrafComp.pas
View File

@ -30,6 +30,7 @@ type
function GetIntervalo: Variant; function GetIntervalo: Variant;
function GetAno1: Variant; function GetAno1: Variant;
function GetAno2: Variant; function GetAno2: Variant;
function GetSerie: variant;
function GetListaIDClientes: TIntegerArray; function GetListaIDClientes: TIntegerArray;
function GetNTop: Variant; function GetNTop: Variant;
@ -42,6 +43,7 @@ type
property Intervalo: Variant read GetIntervalo; property Intervalo: Variant read GetIntervalo;
property Ano1: Variant read GetAno1; property Ano1: Variant read GetAno1;
property Ano2: Variant read GetAno2; property Ano2: Variant read GetAno2;
property Serie: Variant read GetSerie;
property ListaIDClientes: TIntegerArray read GetListaIDClientes; property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property NTop: Variant read GetNTop; property NTop: Variant read GetNTop;
@ -111,6 +113,11 @@ begin
Result := frViewIntervaloComparativo1.stopN.Value; Result := frViewIntervaloComparativo1.stopN.Value;
end; end;
function TfEditorInformeBeneficiosReportGrafComp.GetSerie: Variant;
begin
Result := frViewIntervaloComparativo1.Serie;
end;
procedure TfEditorInformeBeneficiosReportGrafComp.RefrescarInforme; procedure TfEditorInformeBeneficiosReportGrafComp.RefrescarInforme;
var var
AStream: Binary; AStream: Binary;
@ -122,7 +129,8 @@ begin
AppFactuGES.EmpresaActiva.ID, AppFactuGES.EmpresaActiva.ID,
Intervalo, Intervalo,
Ano1, Ano1,
Ano2); Ano2,
Serie);
LoadFromStream(AStream); LoadFromStream(AStream);
Report.ShowPreparedReport; Report.ShowPreparedReport;

110
Source/Modulos/Gestor de informes/Views/uViewIntervaloComparativo.dfm
View File

@ -1,14 +1,14 @@
inherited frViewIntervaloComparativo: TfrViewIntervaloComparativo inherited frViewIntervaloComparativo: TfrViewIntervaloComparativo
Width = 451 Width = 326
Height = 220 Height = 273
Align = alTop Align = alTop
ExplicitWidth = 451 ExplicitWidth = 326
ExplicitHeight = 220 ExplicitHeight = 273
object TBXAlignmentPanel2: TTBXAlignmentPanel object TBXAlignmentPanel2: TTBXAlignmentPanel
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 3
Top = 32 Top = 32
Width = 445 Width = 320
Height = 42 Height = 42
Margins.Left = 5 Margins.Left = 5
Margins.Top = 5 Margins.Top = 5
@ -16,13 +16,14 @@ inherited frViewIntervaloComparativo: TfrViewIntervaloComparativo
Align = alTop Align = alTop
AutoSize = True AutoSize = True
TabOrder = 0 TabOrder = 0
ExplicitWidth = 445
DesignSize = ( DesignSize = (
445 320
42) 42)
object Label3: TLabel object Label3: TLabel
Left = 5 Left = 5
Top = 5 Top = 5
Width = 435 Width = 310
Height = 13 Height = 13
Align = alTop Align = alTop
Caption = 'Intervalo comparativo' Caption = 'Intervalo comparativo'
@ -52,13 +53,14 @@ inherited frViewIntervaloComparativo: TfrViewIntervaloComparativo
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0 TabOrder = 0
Width = 429 ExplicitWidth = 429
Width = 304
end end
end end
object TBXLabel2: TTBXLabel object TBXLabel2: TTBXLabel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 451 Width = 326
Height = 29 Height = 29
Margins.Top = 5 Margins.Top = 5
Margins.Bottom = 10 Margins.Bottom = 10
@ -72,12 +74,13 @@ inherited frViewIntervaloComparativo: TfrViewIntervaloComparativo
ParentColor = True ParentColor = True
ParentFont = False ParentFont = False
Underline = True Underline = True
ExplicitWidth = 451
end end
object TBXAlignmentPanel3: TTBXAlignmentPanel object TBXAlignmentPanel3: TTBXAlignmentPanel
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 3
Top = 80 Top = 80
Width = 445 Width = 320
Height = 42 Height = 42
Margins.Left = 5 Margins.Left = 5
Margins.Top = 5 Margins.Top = 5
@ -85,13 +88,14 @@ inherited frViewIntervaloComparativo: TfrViewIntervaloComparativo
Align = alTop Align = alTop
AutoSize = True AutoSize = True
TabOrder = 2 TabOrder = 2
ExplicitWidth = 445
DesignSize = ( DesignSize = (
445 320
42) 42)
object lis: TLabel object lis: TLabel
Left = 5 Left = 5
Top = 5 Top = 5
Width = 435 Width = 310
Height = 13 Height = 13
Align = alTop Align = alTop
Caption = 'A'#241'o' Caption = 'A'#241'o'
@ -121,14 +125,15 @@ inherited frViewIntervaloComparativo: TfrViewIntervaloComparativo
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0 TabOrder = 0
Width = 429 ExplicitWidth = 429
Width = 304
end end
end end
object TBXAlignmentPanel1: TTBXAlignmentPanel object TBXAlignmentPanel1: TTBXAlignmentPanel
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 3
Top = 128 Top = 128
Width = 445 Width = 320
Height = 42 Height = 42
Margins.Left = 5 Margins.Left = 5
Margins.Top = 5 Margins.Top = 5
@ -136,13 +141,14 @@ inherited frViewIntervaloComparativo: TfrViewIntervaloComparativo
Align = alTop Align = alTop
AutoSize = True AutoSize = True
TabOrder = 3 TabOrder = 3
ExplicitWidth = 445
DesignSize = ( DesignSize = (
445 320
42) 42)
object Label1: TLabel object Label1: TLabel
Left = 5 Left = 5
Top = 5 Top = 5
Width = 435 Width = 310
Height = 13 Height = 13
Align = alTop Align = alTop
Caption = 'Comparar con a'#241'o' Caption = 'Comparar con a'#241'o'
@ -172,25 +178,27 @@ inherited frViewIntervaloComparativo: TfrViewIntervaloComparativo
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0 TabOrder = 0
Width = 429 ExplicitWidth = 429
Width = 304
end end
end end
object TBXAlignmentPanel4: TTBXAlignmentPanel object TBXAlignmentPanel4: TTBXAlignmentPanel
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 3
Top = 176 Top = 176
Width = 445 Width = 320
Height = 42 Height = 43
Margins.Left = 5 Margins.Left = 5
Margins.Top = 5 Margins.Top = 5
Margins.Right = 5 Margins.Right = 5
Align = alTop Align = alTop
AutoSize = True AutoSize = True
TabOrder = 4 TabOrder = 4
ExplicitWidth = 445
object Label2: TLabel object Label2: TLabel
Left = 5 Left = 5
Top = 5 Top = 5
Width = 435 Width = 310
Height = 13 Height = 13
Align = alTop Align = alTop
Caption = 'Top N:' Caption = 'Top N:'
@ -199,10 +207,70 @@ inherited frViewIntervaloComparativo: TfrViewIntervaloComparativo
end end
object stopN: TcxSpinEdit object stopN: TcxSpinEdit
Left = 3 Left = 3
Top = 21 Top = 22
TabOrder = 0 TabOrder = 0
Value = 5 Value = 5
Width = 110 Width = 110
end end
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 end

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

@ -28,19 +28,25 @@ type
TBXAlignmentPanel4: TTBXAlignmentPanel; TBXAlignmentPanel4: TTBXAlignmentPanel;
Label2: TLabel; Label2: TLabel;
stopN: TcxSpinEdit; stopN: TcxSpinEdit;
TBXAlignmentPanel5: TTBXAlignmentPanel;
Label4: TLabel;
cbSerie: TcxComboBox;
private private
function GetIntervalo: Variant; function GetIntervalo: Variant;
function GetAno1: Variant; function GetAno1: Variant;
function GetAno2: Variant; function GetAno2: Variant;
function GetSerie: Variant;
procedure SetIntervalo(const Value: Variant); procedure SetIntervalo(const Value: Variant);
procedure SetAno1(const Value: Variant); procedure SetAno1(const Value: Variant);
procedure SetAno2(const Value: Variant); procedure SetAno2(const Value: Variant);
procedure SetSerie(const Value: Variant);
public public
property Intevalo : Variant read GetIntervalo write SetIntervalo; property Intevalo : Variant read GetIntervalo write SetIntervalo;
property Ano1 : Variant read GetAno1 write SetAno1; property Ano1 : Variant read GetAno1 write SetAno1;
property Ano2 : Variant read GetAno2 write SetAno2; property Ano2 : Variant read GetAno2 write SetAno2;
property Serie : Variant read GetSerie write SetSerie;
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
end; end;
@ -57,6 +63,11 @@ begin
Result := cbIntervalo.EditValue; Result := cbIntervalo.EditValue;
end; end;
function TfrViewIntervaloComparativo.GetSerie: Variant;
begin
Result := cbSerie.ItemIndex;
end;
function TfrViewIntervaloComparativo.GetAno1: Variant; function TfrViewIntervaloComparativo.GetAno1: Variant;
begin begin
Result := cbAno1.EditValue; Result := cbAno1.EditValue;
@ -72,6 +83,11 @@ begin
cbIntervalo.EditValue := Value; cbIntervalo.EditValue := Value;
end; end;
procedure TfrViewIntervaloComparativo.SetSerie(const Value: Variant);
begin
cbSerie.ItemIndex := Value;
end;
procedure TfrViewIntervaloComparativo.SetAno1(const Value: Variant); procedure TfrViewIntervaloComparativo.SetAno1(const Value: Variant);
begin begin
cbAno1.EditValue := Value; cbAno1.EditValue := Value;

2
Source/Servicios/FactuGES.RODL
View File

@ -768,6 +768,8 @@
</Parameter> </Parameter>
<Parameter Name="Ano2" DataType="Variant" Flag="In" > <Parameter Name="Ano2" DataType="Variant" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="Serie" DataType="Variant" Flag="In" >
</Parameter>
</Parameters> </Parameters>
</Operation> </Operation>
<Operation Name="GenerarInformeListadoFacturasCliPendientes" UID="{09AD0E02-7104-4B03-A605-97897915E849}"> <Operation Name="GenerarInformeListadoFacturasCliPendientes" UID="{09AD0E02-7104-4B03-A605-97897915E849}">

7
Source/Servicios/FactuGES_Intf.pas
View File

@ -779,7 +779,7 @@ type
const TopN: Integer): Binary; const TopN: Integer): Binary;
function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray;
const TopN: Integer): Binary; 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; 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; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
@ -823,7 +823,7 @@ type
const TopN: Integer): Binary; const TopN: Integer): Binary;
function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray;
const TopN: Integer): Binary; 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; 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; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
@ -2519,7 +2519,7 @@ begin
end end
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 begin
try try
result := nil; result := nil;
@ -2528,6 +2528,7 @@ begin
__Message.Write('Intervalo', TypeInfo(Variant), Intervalo, []); __Message.Write('Intervalo', TypeInfo(Variant), Intervalo, []);
__Message.Write('Ano1', TypeInfo(Variant), Ano1, []); __Message.Write('Ano1', TypeInfo(Variant), Ano1, []);
__Message.Write('Ano2', TypeInfo(Variant), Ano2, []); __Message.Write('Ano2', TypeInfo(Variant), Ano2, []);
__Message.Write('Serie', TypeInfo(Variant), Serie, []);
__Message.Finalize; __Message.Finalize;
__TransportChannel.Dispatch(__Message); __TransportChannel.Dispatch(__Message);

6
Source/Servicios/FactuGES_Invk.pas
View File

@ -2004,12 +2004,13 @@ begin
end; end;
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeBeneficiosGrafComp(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); 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 var
IdEmpresa: Integer; IdEmpresa: Integer;
Intervalo: Variant; Intervalo: Variant;
Ano1: Variant; Ano1: Variant;
Ano2: Variant; Ano2: Variant;
Serie: Variant;
lResult: Binary; lResult: Binary;
__lObjectDisposer: TROObjectDisposer; __lObjectDisposer: TROObjectDisposer;
begin begin
@ -2019,8 +2020,9 @@ begin
__Message.Read('Intervalo', TypeInfo(Variant), Intervalo, []); __Message.Read('Intervalo', TypeInfo(Variant), Intervalo, []);
__Message.Read('Ano1', TypeInfo(Variant), Ano1, []); __Message.Read('Ano1', TypeInfo(Variant), Ano1, []);
__Message.Read('Ano2', TypeInfo(Variant), Ano2, []); __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.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeBeneficiosGrafCompResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

11
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@ -35,7 +35,14 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType /> <Borland.ProjectType />
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.8.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.8.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 04 de febrero de 2011 13:14</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">9</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.9.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.9.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 25 de febrero de 2011 16:25</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>