From d774f30d97521b513c6b1dce6aeede111844025e Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Thu, 22 Aug 2013 11:45:12 +0000
Subject: [PATCH] Se arregla informe que no tiene evaluacion perezosa y al no
 tener datos falla en la empresa Keiblair S.C

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@192 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
---
 Source/Informes/2/InformeListadoBeneficiosGrafComp.fr3 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Source/Informes/2/InformeListadoBeneficiosGrafComp.fr3 b/Source/Informes/2/InformeListadoBeneficiosGrafComp.fr3
index b06e5f2..9dcba46 100644
--- a/Source/Informes/2/InformeListadoBeneficiosGrafComp.fr3
+++ b/Source/Informes/2/InformeListadoBeneficiosGrafComp.fr3
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40652,541591794" ScriptLanguage="PascalScript" ScriptText.Text="procedure Chart1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;&#13;&#10;  if (&#60;Ano1&#62; &#60;&#62; 0) then&#13;&#10;  begin              &#13;&#10;     TLineSeries(Chart1.Series[0]).Title := 'Ingresos ' + VarToStr(&#60;Ano1&#62;);&#13;&#10;     TLineSeries(Chart1.Series[1]).Title := 'Gastos ' + VarToStr(&#60;Ano1&#62;);&#13;&#10;     TLineSeries(Chart1.Series[2]).Title := 'Beneficios ' + VarToStr(&#60;Ano1&#62;);&#13;&#10;  end;&#13;&#10;      &#13;&#10;  if (&#60;Ano2&#62; &#62; 0) then&#13;&#10;  begin              &#13;&#10;     TLineSeries(Chart1.Series[3]).Title := 'Ingresos ' + VarToStr(&#60;Ano2&#62;);&#13;&#10;     TLineSeries(Chart1.Series[4]).Title := 'Gastos ' + VarToStr(&#60;Ano2&#62;);&#13;&#10;     TLineSeries(Chart1.Series[5]).Title := 'Beneficios ' + VarToStr(&#60;Ano2&#62;);&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;    Chart1.Series[3].Active := False;&#13;&#10;    Chart1.Series[4].Active := False;&#13;&#10;    Chart1.Series[5].Active := False;&#13;&#10;  end;&#13;&#10;    &#13;&#10;  if (&#60;Serie&#62; &#60;&#62; 0) then&#13;&#10;  begin&#13;&#10;//Solo Ingresos                               &#13;&#10;    if (&#60;Serie&#62; = 1) then&#13;&#10;    begin&#13;&#10;     Chart1.Series[0].Active := True;&#13;&#10;     Chart1.Series[1].Active := False;&#13;&#10;     Chart1.Series[2].Active := False;&#13;&#10;     Chart1.Series[3].Active := True;&#13;&#10;     Chart1.Series[4].Active := False;&#13;&#10;     Chart1.Series[5].Active := False;&#13;&#10;    end&#13;&#10;//Solo Gastos                                   &#13;&#10;    else if (&#60;Serie&#62; = 2) then&#13;&#10;    begin&#13;&#10;     Chart1.Series[0].Active := False;&#13;&#10;     Chart1.Series[1].Active := True;&#13;&#10;     Chart1.Series[2].Active := False;&#13;&#10;     Chart1.Series[3].Active := False;&#13;&#10;     Chart1.Series[4].Active := True;&#13;&#10;     Chart1.Series[5].Active := False;&#13;&#10;    end&#13;&#10;//Solo Beneficios                                         &#13;&#10;    else if (&#60;Serie&#62; = 3) then&#13;&#10;    begin&#13;&#10;     Chart1.Series[0].Active := False;&#13;&#10;     Chart1.Series[1].Active := False;&#13;&#10;     Chart1.Series[2].Active := True;&#13;&#10;     Chart1.Series[3].Active := False;&#13;&#10;     Chart1.Series[4].Active := False;&#13;&#10;     Chart1.Series[5].Active := True;&#13;&#10;    end;              &#13;&#10;          &#13;&#10;  end;            &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo16OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; Valor:Double;                            &#13;&#10;begin&#13;&#10;{    &#13;&#10;  Valor := SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;IMPORTE_TOTAL1&#34;&#62;) * 100;    &#13;&#10;  if (SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;IMPORTE_TOTAL&#34;&#62;) = 0) then&#13;&#10;     Valor := 100 - Valor              &#13;&#10;  else&#13;&#10;     Valor := 100 - (Valor/SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;IMPORTE_TOTAL&#34;&#62;));              &#13;&#10;&#13;&#10;  memo16.lines.add(FormatFloat('#,##0.00 %',Valor));&#13;&#10;}      &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;end.          " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C6000000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D70220000095661726961626C657301010C0E000000204E616D653D222053657269652200010C0D000000204E616D653D2253657269652200010C0C000000204E616D653D22416E6F312200010C0C000000204E616D653D22416E6F32220000055374796C650100">
+<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41508,5705697338" ScriptLanguage="PascalScript" ScriptText.Text="procedure Chart1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;&#13;&#10;  if (&#60;Ano1&#62; &#60;&#62; 0) then&#13;&#10;  begin              &#13;&#10;     TLineSeries(Chart1.Series[0]).Title := 'Ingresos ' + VarToStr(&#60;Ano1&#62;);&#13;&#10;     TLineSeries(Chart1.Series[1]).Title := 'Gastos ' + VarToStr(&#60;Ano1&#62;);&#13;&#10;     TLineSeries(Chart1.Series[2]).Title := 'Beneficios ' + VarToStr(&#60;Ano1&#62;);&#13;&#10;  end;&#13;&#10;      &#13;&#10;  if (&#60;Ano2&#62; &#62; 0) then&#13;&#10;  begin              &#13;&#10;     TLineSeries(Chart1.Series[3]).Title := 'Ingresos ' + VarToStr(&#60;Ano2&#62;);&#13;&#10;     TLineSeries(Chart1.Series[4]).Title := 'Gastos ' + VarToStr(&#60;Ano2&#62;);&#13;&#10;     TLineSeries(Chart1.Series[5]).Title := 'Beneficios ' + VarToStr(&#60;Ano2&#62;);&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;    Chart1.Series[3].Active := False;&#13;&#10;    Chart1.Series[4].Active := False;&#13;&#10;    Chart1.Series[5].Active := False;&#13;&#10;  end;&#13;&#10;    &#13;&#10;  if (&#60;Serie&#62; &#60;&#62; 0) then&#13;&#10;  begin&#13;&#10;//Solo Ingresos                               &#13;&#10;    if (&#60;Serie&#62; = 1) then&#13;&#10;    begin&#13;&#10;     Chart1.Series[0].Active := True;&#13;&#10;     Chart1.Series[1].Active := False;&#13;&#10;     Chart1.Series[2].Active := False;&#13;&#10;     Chart1.Series[3].Active := True;&#13;&#10;     Chart1.Series[4].Active := False;&#13;&#10;     Chart1.Series[5].Active := False;&#13;&#10;    end&#13;&#10;//Solo Gastos                                   &#13;&#10;    else if (&#60;Serie&#62; = 2) then&#13;&#10;    begin&#13;&#10;     Chart1.Series[0].Active := False;&#13;&#10;     Chart1.Series[1].Active := True;&#13;&#10;     Chart1.Series[2].Active := False;&#13;&#10;     Chart1.Series[3].Active := False;&#13;&#10;     Chart1.Series[4].Active := True;&#13;&#10;     Chart1.Series[5].Active := False;&#13;&#10;    end&#13;&#10;//Solo Beneficios                                         &#13;&#10;    else if (&#60;Serie&#62; = 3) then&#13;&#10;    begin&#13;&#10;     Chart1.Series[0].Active := False;&#13;&#10;     Chart1.Series[1].Active := False;&#13;&#10;     Chart1.Series[2].Active := True;&#13;&#10;     Chart1.Series[3].Active := False;&#13;&#10;     Chart1.Series[4].Active := False;&#13;&#10;     Chart1.Series[5].Active := True;&#13;&#10;    end;              &#13;&#10;          &#13;&#10;  end;            &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo16OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; Valor:Double;                            &#13;&#10;begin&#13;&#10;{    &#13;&#10;  Valor := SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;IMPORTE_TOTAL1&#34;&#62;) * 100;    &#13;&#10;  if (SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;IMPORTE_TOTAL&#34;&#62;) = 0) then&#13;&#10;     Valor := 100 - Valor              &#13;&#10;  else&#13;&#10;     Valor := 100 - (Valor/SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;IMPORTE_TOTAL&#34;&#62;));              &#13;&#10;&#13;&#10;  memo16.lines.add(FormatFloat('#,##0.00 %',Valor));&#13;&#10;}      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo49OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; Valor:Double;  &#13;&#10;begin&#13;&#10;  Valor := 0;                            &#13;&#10;  Memo49.Clear;  &#13;&#10;  if (SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;INGRESOS_ANO1&#34;&#62;) &#60;&#62; 0) then&#13;&#10;  begin              &#13;&#10;      Valor := SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;BENEFICIO_ANO1&#34;&#62;)*100;&#13;&#10;      Valor := Valor/SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;INGRESOS_ANO1&#34;&#62;);&#13;&#10;      Memo49.Lines.add(FormatFloat('#,##0.00 %',Valor));  &#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo48OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; Valor:Double;  &#13;&#10;begin&#13;&#10;  Valor := 0;                            &#13;&#10;  Memo48.Clear;  &#13;&#10;  if (SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;INGRESOS_ANO2&#34;&#62;) &#60;&#62; 0) then&#13;&#10;  begin              &#13;&#10;      Valor := SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;BENEFICIO_ANO2&#34;&#62;)*100;&#13;&#10;      Valor := Valor/SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;INGRESOS_ANO2&#34;&#62;);&#13;&#10;      Memo48.Lines.add(FormatFloat('#,##0.00 %',Valor));  &#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;end.          " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C6000000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D70220000095661726961626C657301010C0E000000204E616D653D222053657269652200010C0D000000204E616D653D2253657269652200010C0C000000204E616D653D22416E6F312200010C0C000000204E616D653D22416E6F32220000055374796C650100">
   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
   <TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
     <TfrxMasterData Name="MasterData1" Height="15" Left="0" Top="294" Width="1046,920361175" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasGrafComp" DataSetName="frxDBInformeListadoFacturasGrafComp" RowCount="0">
@@ -63,8 +63,8 @@
       <TfrxMemoView Name="Memo45" Align="baLeft" Left="760" Top="0" Width="40" Height="15" ShowHint="False" Color="13095676" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[IIF((SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;INGRESOS_ANO2&#34;&#62;) = 0), 0, (SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;DIFERENCIA_INGRESOS&#34;&#62;)*100)/SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;INGRESOS_ANO2&#34;&#62;))]"/>
       <TfrxMemoView Name="Memo46" Align="baLeft" Left="880" Top="0" Width="40" Height="15" ShowHint="False" Color="13095676" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[IIF((SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;GASTOS_ANO2&#34;&#62;) = 0), 0, (SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;DIFERENCIA_GASTOS&#34;&#62;)*100)/SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;GASTOS_ANO2&#34;&#62;))]"/>
       <TfrxMemoView Name="Memo47" Left="1000" Top="0" Width="40" Height="15" ShowHint="False" Color="13095676" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[IIF((SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;BENEFICIO_ANO2&#34;&#62;) = 0), 0, (SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;DIFERENCIA_BENEFICIOS&#34;&#62;)*100)/SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;BENEFICIO_ANO2&#34;&#62;))]"/>
-      <TfrxMemoView Name="Memo48" Align="baLeft" Left="621" Top="0" Width="40" Height="15" ShowHint="False" Color="13095676" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[IIF((SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;INGRESOS_ANO2&#34;&#62;) = 0), 0, (SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;BENEFICIO_ANO2&#34;&#62;)*100)/SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;INGRESOS_ANO2&#34;&#62;))]"/>
-      <TfrxMemoView Name="Memo49" Align="baLeft" Left="320" Top="0" Width="40" Height="15" ShowHint="False" Color="13095676" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[IIF((SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;INGRESOS_ANO1&#34;&#62;) = 0), 0, SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;BENEFICIO_ANO1&#34;&#62;)*100)/SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;INGRESOS_ANO1&#34;&#62;)]"/>
+      <TfrxMemoView Name="Memo48" Align="baLeft" Left="621" Top="0" Width="40" Height="15" OnBeforePrint="Memo48OnBeforePrint" ShowHint="False" Color="13095676" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=""/>
+      <TfrxMemoView Name="Memo49" Align="baLeft" Left="320" Top="0" Width="40" Height="15" OnBeforePrint="Memo49OnBeforePrint" ShowHint="False" Color="13095676" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=""/>
     </TfrxFooter>
   </TfrxReportPage>
 </TfrxReport>