From 1c57e70cd0c0e5f5a5a57cd60cc18bf2555c27c7 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Tue, 3 Nov 2009 16:07:22 +0000
Subject: [PATCH] Ticket #201 -> Error en informe de presupuesto - Contabiliza
 los capitulos opcionales

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@973 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Source/Informes/1/InfPresupuestoCliente.fr3                | 2 +-
 Source/Informes/2/InfPresupuestoCliente.fr3                | 2 +-
 .../Reports/uRptWordPresupuestoCliente.pas                 | 7 +++++--
 3 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/Source/Informes/1/InfPresupuestoCliente.fr3 b/Source/Informes/1/InfPresupuestoCliente.fr3
index c2b90e55..d090f51f 100644
--- a/Source/Informes/1/InfPresupuestoCliente.fr3
+++ b/Source/Informes/1/InfPresupuestoCliente.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="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40078,431257581" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena: String;&#13;&#10;begin&#13;&#10;{  DatosEmpresa.Lines.Clear;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;}&#13;&#10;end;&#13;&#10;&#13;&#10;procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  NombreEmpresa.Lines.Clear;&#13;&#10;  NombreEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;NOMBRE_EMPRESA&#34;&#62;);&#13;&#10;}&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ACadena : String;&#13;&#10;begin&#13;&#10;{  ACadena := '';&#13;&#10;  DireccionEnvio.Lines.Clear;&#13;&#10;  if (&#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62;;&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + '  ' + &#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62;;&#13;&#10;&#13;&#10;  DireccionEnvio.Lines.Add(ACadena);&#13;&#10;  ACadena := '';&#13;&#10;  DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + ' ';&#13;&#10;  if (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;;&#13;&#10;&#13;&#10;  if (ACadena &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(ACadena);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62;);&#13;&#10;}&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if not Engine.FinalPass then&#13;&#10;     Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10;  if Engine.FinalPass then&#13;&#10;     Set('Pagina', (&#60;Pagina&#62; + 1));  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Set('Pagina', 0);&#13;&#10;  Set('TotalPaginas', 0);&#13;&#10;  Set('Capitulo', '0');&#13;&#10;  Set('NumCapitulos', 0);&#13;&#10;  Set('TextoNumCapitulo', ''' ''');      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Rich3OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if Engine.FinalPass then&#13;&#10;  begin              &#13;&#10;     Set('Capitulo', (&#60;Capitulo&#62; + 1));&#13;&#10;     if (&#60;NumCapitulos&#62; = 1) then&#13;&#10;       MasterData1.Visible := False;                                                                   &#13;&#10;  end&#13;&#10;  else&#13;&#10;     Set('NumCapitulos', (&#60;NumCapitulos&#62; + 1));               &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Page2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;MEMORIA&#34;&#62;) = 0) then&#13;&#10;       Page2.Visible := False;                                                 &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo45OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;     Set('Capitulo', (&#60;Capitulo&#62; + 1));                                 &#13;&#10;     Set('TextoNumCapitulo', &#60;Capitulo&#62;);&#13;&#10;&#13;&#10;     if ((&#60;NumCapitulos&#62; = 1) and (&#60;frxDBCapitulos.&#34;CONCEPTO&#34;&#62; = 'General')) then&#13;&#10;       MasterData1.Visible := False&#13;&#10;     else begin                                     &#13;&#10;       if (&#60;frxDBCapitulos.&#34;TIPO_DETALLE&#34;&#62; = 'Titulo opcional') then&#13;&#10;       begin&#13;&#10;         Set('TextoNumCapitulo', '''OPCIONAL''');&#13;&#10;       end&#13;&#10;     end                      &#13;&#10;  end&#13;&#10;  else             &#13;&#10;     Set('NumCapitulos', (&#60;NumCapitulos&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo47OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;    if (Length(&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62;) = 0) then&#13;&#10;    begin&#13;&#10;       Memo11.Visible := False;                                                                                      &#13;&#10;       Memo47.Visible := False;&#13;&#10;    end                               &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Footer2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if not ((&#60;frxDBCabecera.&#34;IMPORTE_BONIFICACION&#34;&#62;) &#62; 0) then&#13;&#10;  begin&#13;&#10;    mBonificacion.Visible := False;&#13;&#10;    mImporteFinal.Visible := False;                                                                      &#13;&#10;  end;            &#13;&#10;end;&#13;&#10;&#13;&#10;&#13;&#10;procedure frxDBDetallesCANTIDADOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var    &#13;&#10;  ACantidad: String;  &#13;&#10;  AIndice: Integer;&#13;&#10;  AText : String;                                    &#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62; &#60;&#62; 0) then&#13;&#10;  begin              &#13;&#10;    frxDBDetallesCANTIDAD.Memo.Clear;  &#13;&#10;    ACantidad := FloatToStr(&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;);  &#13;&#10;    AIndice := Pos(',', ACantidad);&#13;&#10;    if AIndice &#62; 0 then                                           &#13;&#10;       AText := '[FormatFloat(''#,##0.00'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)] [frxDBDetalles.&#34;UNIDAD_MEDIDA&#34;]'&#13;&#10;    else                     &#13;&#10;       AText := '[FormatFloat(''#,##0.##'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)] [frxDBDetalles.&#34;UNIDAD_MEDIDA&#34;]';  &#13;&#10;         &#13;&#10;    frxDBDetallesCANTIDAD.Memo.Add(AText);&#13;&#10;  end;            &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3600000020446174615365743D2266727844424361706974756C6F732220446174615365744E616D653D2266727844424361706974756C6F732200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C3200000020446174615365743D226672784442526573756D656E2220446174615365744E616D653D226672784442526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F732200010C18000000204E616D653D22546578746F4E756D4361706974756C6F220000055374796C650100">
+<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="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40120,6915798264" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena: String;&#13;&#10;begin&#13;&#10;{  DatosEmpresa.Lines.Clear;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;}&#13;&#10;end;&#13;&#10;&#13;&#10;procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  NombreEmpresa.Lines.Clear;&#13;&#10;  NombreEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;NOMBRE_EMPRESA&#34;&#62;);&#13;&#10;}&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ACadena : String;&#13;&#10;begin&#13;&#10;{  ACadena := '';&#13;&#10;  DireccionEnvio.Lines.Clear;&#13;&#10;  if (&#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62;;&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + '  ' + &#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62;;&#13;&#10;&#13;&#10;  DireccionEnvio.Lines.Add(ACadena);&#13;&#10;  ACadena := '';&#13;&#10;  DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + ' ';&#13;&#10;  if (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;;&#13;&#10;&#13;&#10;  if (ACadena &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(ACadena);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62;);&#13;&#10;}&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if not Engine.FinalPass then&#13;&#10;     Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10;  if Engine.FinalPass then&#13;&#10;     Set('Pagina', (&#60;Pagina&#62; + 1));  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Set('Pagina', 0);&#13;&#10;  Set('TotalPaginas', 0);&#13;&#10;  Set('Capitulo', '0');&#13;&#10;  Set('NumCapitulos', 0);&#13;&#10;  Set('TextoNumCapitulo', ''' ''');      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Rich3OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if Engine.FinalPass then&#13;&#10;  begin              &#13;&#10;     Set('Capitulo', (&#60;Capitulo&#62; + 1));&#13;&#10;     if (&#60;NumCapitulos&#62; = 1) then&#13;&#10;       MasterData1.Visible := False;                                                                   &#13;&#10;  end&#13;&#10;  else&#13;&#10;     Set('NumCapitulos', (&#60;NumCapitulos&#62; + 1));               &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Page2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;MEMORIA&#34;&#62;) = 0) then&#13;&#10;       Page2.Visible := False;                                                 &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo45OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;     if (&#60;frxDBCapitulos.&#34;TIPO_DETALLE&#34;&#62; &#60;&#62; 'Titulo opcional') then                        &#13;&#10;        Set('Capitulo', (&#60;Capitulo&#62; + 1));&#13;&#10;&#13;&#10;     Set('TextoNumCapitulo', &#60;Capitulo&#62;);&#13;&#10;&#13;&#10;     if ((&#60;NumCapitulos&#62; = 1) and (&#60;frxDBCapitulos.&#34;CONCEPTO&#34;&#62; = 'General')) then&#13;&#10;       MasterData1.Visible := False&#13;&#10;     else begin                                     &#13;&#10;       if (&#60;frxDBCapitulos.&#34;TIPO_DETALLE&#34;&#62; = 'Titulo opcional') then&#13;&#10;       begin&#13;&#10;         Set('TextoNumCapitulo', '''OPCIONAL''');&#13;&#10;       end&#13;&#10;     end                      &#13;&#10;  end&#13;&#10;  else             &#13;&#10;     Set('NumCapitulos', (&#60;NumCapitulos&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo47OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;    if (Length(&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62;) = 0) then&#13;&#10;    begin&#13;&#10;       Memo11.Visible := False;                                                                                      &#13;&#10;       Memo47.Visible := False;&#13;&#10;    end                               &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Footer2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if not ((&#60;frxDBCabecera.&#34;IMPORTE_BONIFICACION&#34;&#62;) &#62; 0) then&#13;&#10;  begin&#13;&#10;    mBonificacion.Visible := False;&#13;&#10;    mImporteFinal.Visible := False;                                                                      &#13;&#10;  end;            &#13;&#10;end;&#13;&#10;&#13;&#10;&#13;&#10;procedure frxDBDetallesCANTIDADOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var    &#13;&#10;  ACantidad: String;  &#13;&#10;  AIndice: Integer;&#13;&#10;  AText : String;                                    &#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62; &#60;&#62; 0) then&#13;&#10;  begin              &#13;&#10;    frxDBDetallesCANTIDAD.Memo.Clear;  &#13;&#10;    ACantidad := FloatToStr(&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;);  &#13;&#10;    AIndice := Pos(',', ACantidad);&#13;&#10;    if AIndice &#62; 0 then                                           &#13;&#10;       AText := '[FormatFloat(''#,##0.00'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)] [frxDBDetalles.&#34;UNIDAD_MEDIDA&#34;]'&#13;&#10;    else                     &#13;&#10;       AText := '[FormatFloat(''#,##0.##'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)] [frxDBDetalles.&#34;UNIDAD_MEDIDA&#34;]';  &#13;&#10;         &#13;&#10;    frxDBDetallesCANTIDAD.Memo.Add(AText);&#13;&#10;  end;            &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3600000020446174615365743D2266727844424361706974756C6F732220446174615365744E616D653D2266727844424361706974756C6F732200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C3200000020446174615365743D226672784442526573756D656E2220446174615365744E616D653D226672784442526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F732200010C18000000204E616D653D22546578746F4E756D4361706974756C6F220000055374796C650100">
   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
   <TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="256" LeftMargin="20" RightMargin="20" TopMargin="20" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
     <TfrxMasterData Name="MasterData2" Height="370,39394" Left="0" Top="567" Width="642,5201" ColumnWidth="0" ColumnGap="0" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" RowCount="0" Stretched="True">
diff --git a/Source/Informes/2/InfPresupuestoCliente.fr3 b/Source/Informes/2/InfPresupuestoCliente.fr3
index 5639e547..ca2c380f 100644
--- a/Source/Informes/2/InfPresupuestoCliente.fr3
+++ b/Source/Informes/2/InfPresupuestoCliente.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="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40078,4332644213" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena: String;&#13;&#10;begin&#13;&#10;{  DatosEmpresa.Lines.Clear;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;}&#13;&#10;end;&#13;&#10;&#13;&#10;procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  NombreEmpresa.Lines.Clear;&#13;&#10;  NombreEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;NOMBRE_EMPRESA&#34;&#62;);&#13;&#10;}&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ACadena : String;&#13;&#10;begin&#13;&#10;{  ACadena := '';&#13;&#10;  DireccionEnvio.Lines.Clear;&#13;&#10;  if (&#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62;;&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + '  ' + &#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62;;&#13;&#10;&#13;&#10;  DireccionEnvio.Lines.Add(ACadena);&#13;&#10;  ACadena := '';&#13;&#10;  DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + ' ';&#13;&#10;  if (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;;&#13;&#10;&#13;&#10;  if (ACadena &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(ACadena);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62;);&#13;&#10;}&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if not Engine.FinalPass then&#13;&#10;     Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10;  if Engine.FinalPass then&#13;&#10;     Set('Pagina', (&#60;Pagina&#62; + 1));  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Set('Pagina', 0);&#13;&#10;  Set('TotalPaginas', 0);&#13;&#10;  Set('Capitulo', '0');&#13;&#10;  Set('NumCapitulos', 0);&#13;&#10;  Set('TextoNumCapitulo', ''' ''');      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Rich3OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if Engine.FinalPass then&#13;&#10;  begin              &#13;&#10;     Set('Capitulo', (&#60;Capitulo&#62; + 1));&#13;&#10;     if (&#60;NumCapitulos&#62; = 1) then&#13;&#10;       MasterData1.Visible := False;                                                                   &#13;&#10;  end&#13;&#10;  else&#13;&#10;     Set('NumCapitulos', (&#60;NumCapitulos&#62; + 1));               &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Page2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;MEMORIA&#34;&#62;) = 0) then&#13;&#10;       Page2.Visible := False;                                                 &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo45OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;     Set('Capitulo', (&#60;Capitulo&#62; + 1));                                 &#13;&#10;     Set('TextoNumCapitulo', &#60;Capitulo&#62;);&#13;&#10;&#13;&#10;     if ((&#60;NumCapitulos&#62; = 1) and (&#60;frxDBCapitulos.&#34;CONCEPTO&#34;&#62; = 'General')) then&#13;&#10;       MasterData1.Visible := False&#13;&#10;     else begin                                     &#13;&#10;       if (&#60;frxDBCapitulos.&#34;TIPO_DETALLE&#34;&#62; = 'Titulo opcional') then&#13;&#10;       begin&#13;&#10;         Set('TextoNumCapitulo', '''OPCIONAL''');&#13;&#10;       end&#13;&#10;     end                      &#13;&#10;  end&#13;&#10;  else             &#13;&#10;     Set('NumCapitulos', (&#60;NumCapitulos&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo47OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;    if (Length(&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62;) = 0) then&#13;&#10;    begin&#13;&#10;       Memo59.Visible := False;                                                                                      &#13;&#10;       Memo47.Visible := False;&#13;&#10;    end                               &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Footer2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if not ((&#60;frxDBCabecera.&#34;IMPORTE_BONIFICACION&#34;&#62;) &#62; 0) then&#13;&#10;  begin&#13;&#10;    mBonificacion.Visible := False;&#13;&#10;    mImporteFinal.Visible := False;                                                                      &#13;&#10;  end;            &#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxDBDetallesCANTIDADOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var    &#13;&#10;  ACantidad: String;  &#13;&#10;  AIndice: Integer;&#13;&#10;  AText : String;                                    &#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62; &#60;&#62; 0) then&#13;&#10;  begin              &#13;&#10;    frxDBDetallesCANTIDAD.Memo.Clear;  &#13;&#10;    ACantidad := FloatToStr(&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;);  &#13;&#10;    AIndice := Pos(',', ACantidad);&#13;&#10;    if AIndice &#62; 0 then                                           &#13;&#10;       AText := '[FormatFloat(''#,##0.00'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)] [frxDBDetalles.&#34;UNIDAD_MEDIDA&#34;]'&#13;&#10;    else                     &#13;&#10;       AText := '[FormatFloat(''#,##0.##'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)] [frxDBDetalles.&#34;UNIDAD_MEDIDA&#34;]';  &#13;&#10;         &#13;&#10;    frxDBDetallesCANTIDAD.Memo.Add(AText);&#13;&#10;  end;              &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3600000020446174615365743D2266727844424361706974756C6F732220446174615365744E616D653D2266727844424361706974756C6F732200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C3200000020446174615365743D226672784442526573756D656E2220446174615365744E616D653D226672784442526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F732200010C18000000204E616D653D22546578746F4E756D4361706974756C6F220000055374796C650100">
+<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="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40120,6917606829" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena: String;&#13;&#10;begin&#13;&#10;{  DatosEmpresa.Lines.Clear;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;}&#13;&#10;end;&#13;&#10;&#13;&#10;procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  NombreEmpresa.Lines.Clear;&#13;&#10;  NombreEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;NOMBRE_EMPRESA&#34;&#62;);&#13;&#10;}&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ACadena : String;&#13;&#10;begin&#13;&#10;{  ACadena := '';&#13;&#10;  DireccionEnvio.Lines.Clear;&#13;&#10;  if (&#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62;;&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + '  ' + &#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62;;&#13;&#10;&#13;&#10;  DireccionEnvio.Lines.Add(ACadena);&#13;&#10;  ACadena := '';&#13;&#10;  DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + ' ';&#13;&#10;  if (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;;&#13;&#10;&#13;&#10;  if (ACadena &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(ACadena);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62;);&#13;&#10;}&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if not Engine.FinalPass then&#13;&#10;     Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10;  if Engine.FinalPass then&#13;&#10;     Set('Pagina', (&#60;Pagina&#62; + 1));  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Set('Pagina', 0);&#13;&#10;  Set('TotalPaginas', 0);&#13;&#10;  Set('Capitulo', '0');&#13;&#10;  Set('NumCapitulos', 0);&#13;&#10;  Set('TextoNumCapitulo', ''' ''');      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Rich3OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if Engine.FinalPass then&#13;&#10;  begin              &#13;&#10;     Set('Capitulo', (&#60;Capitulo&#62; + 1));&#13;&#10;     if (&#60;NumCapitulos&#62; = 1) then&#13;&#10;       MasterData1.Visible := False;                                                                   &#13;&#10;  end&#13;&#10;  else&#13;&#10;     Set('NumCapitulos', (&#60;NumCapitulos&#62; + 1));               &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Page2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;MEMORIA&#34;&#62;) = 0) then&#13;&#10;       Page2.Visible := False;                                                 &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo45OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;     if (&#60;frxDBCapitulos.&#34;TIPO_DETALLE&#34;&#62; &#60;&#62; 'Titulo opcional') then                        &#13;&#10;        Set('Capitulo', (&#60;Capitulo&#62; + 1));&#13;&#10;          &#13;&#10;     Set('TextoNumCapitulo', &#60;Capitulo&#62;);&#13;&#10;&#13;&#10;     if ((&#60;NumCapitulos&#62; = 1) and (&#60;frxDBCapitulos.&#34;CONCEPTO&#34;&#62; = 'General')) then&#13;&#10;       MasterData1.Visible := False&#13;&#10;     else begin                                     &#13;&#10;       if (&#60;frxDBCapitulos.&#34;TIPO_DETALLE&#34;&#62; = 'Titulo opcional') then&#13;&#10;       begin&#13;&#10;         Set('TextoNumCapitulo', '''OPCIONAL''');&#13;&#10;       end&#13;&#10;     end                      &#13;&#10;  end&#13;&#10;  else             &#13;&#10;     Set('NumCapitulos', (&#60;NumCapitulos&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo47OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;    if (Length(&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62;) = 0) then&#13;&#10;    begin&#13;&#10;       Memo59.Visible := False;                                                                                      &#13;&#10;       Memo47.Visible := False;&#13;&#10;    end                               &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Footer2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if not ((&#60;frxDBCabecera.&#34;IMPORTE_BONIFICACION&#34;&#62;) &#62; 0) then&#13;&#10;  begin&#13;&#10;    mBonificacion.Visible := False;&#13;&#10;    mImporteFinal.Visible := False;                                                                      &#13;&#10;  end;            &#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxDBDetallesCANTIDADOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var    &#13;&#10;  ACantidad: String;  &#13;&#10;  AIndice: Integer;&#13;&#10;  AText : String;                                    &#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62; &#60;&#62; 0) then&#13;&#10;  begin              &#13;&#10;    frxDBDetallesCANTIDAD.Memo.Clear;  &#13;&#10;    ACantidad := FloatToStr(&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;);  &#13;&#10;    AIndice := Pos(',', ACantidad);&#13;&#10;    if AIndice &#62; 0 then                                           &#13;&#10;       AText := '[FormatFloat(''#,##0.00'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)] [frxDBDetalles.&#34;UNIDAD_MEDIDA&#34;]'&#13;&#10;    else                     &#13;&#10;       AText := '[FormatFloat(''#,##0.##'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)] [frxDBDetalles.&#34;UNIDAD_MEDIDA&#34;]';  &#13;&#10;         &#13;&#10;    frxDBDetallesCANTIDAD.Memo.Add(AText);&#13;&#10;  end;              &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3600000020446174615365743D2266727844424361706974756C6F732220446174615365744E616D653D2266727844424361706974756C6F732200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C3200000020446174615365743D226672784442526573756D656E2220446174615365744E616D653D226672784442526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F732200010C18000000204E616D653D22546578746F4E756D4361706974756C6F220000055374796C650100">
   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
   <TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="256" LeftMargin="20" RightMargin="20" TopMargin="20" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
     <TfrxMasterData Name="MasterData2" Height="476,44125" Left="0" Top="548" Width="642,5201" ColumnWidth="0" ColumnGap="0" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" RowCount="0" Stretched="True">
diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas
index 7ed8a87b..9288d053 100644
--- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas	
@@ -342,8 +342,12 @@ begin
         NombreCapitulo := '';
         Estilo := 'TituloCapitulo';
         FWordApp.Application.Selection.Set_Style(Estilo);
+
         if (FieldByName('TIPO_DETALLE').AsString = 'Titulo') then
-          NombreCapitulo := 'Capítulo ' + IntToStr(FContadorCap + 1) + '. ' + FieldByName('CONCEPTO').AsString
+        begin
+          NombreCapitulo := 'Capítulo ' + IntToStr(FContadorCap + 1) + '. ' + FieldByName('CONCEPTO').AsString;
+          Inc(FContadorCap);
+        end
         else begin
           NombreCapitulo := 'Capítulo opcional. ' + FieldByName('CONCEPTO').AsString;
           Inc(FNumCapOpc);
@@ -351,7 +355,6 @@ begin
         FWordApp.InsertText(NombreCapitulo);
         FWordApp.InsertText(#13);
 
-        Inc(FContadorCap);
         ListaCapitulos[FContadorCap].Tipo := FieldByName('TIPO_DETALLE').AsString;
         ListaCapitulos[FContadorCap].Nombre := NombreCapitulo;
         { Pegar una tabla para rellenarla }