From f82d149927abdc9ab28054d6bf59fd7694b5b743 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Mon, 21 Apr 2025 18:00:31 +0200
Subject: [PATCH] =?UTF-8?q?Se=20modifica=20el=20literal=20de=20total=20ya?=
 =?UTF-8?q?=20que=20pon=C3=ADa=20total=20presupuesto?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Source/Informes/1/InfFacturaCliente.fr3 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Source/Informes/1/InfFacturaCliente.fr3 b/Source/Informes/1/InfFacturaCliente.fr3
index 9000840..18b0c11 100644
--- a/Source/Informes/1/InfFacturaCliente.fr3
+++ b/Source/Informes/1/InfFacturaCliente.fr3
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<TfrxReport Version="4.8.11" 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="44999,413985787" ScriptLanguage="PascalScript" ScriptText.Text="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 Memo45OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{    &#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;&#13;&#10;}  &#13;&#10;//  Memo11.lines.add(&#60;frxDBCapitulos.&#34;CONCEPTO&#34;&#62;);  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo47OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  &#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;}        &#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;{    &#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;)]&#13;&#10;  else                     &#13;&#10;     AText := '[FormatFloat(''#,##0.##'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)];  &#13;&#10;         &#13;&#10;  frxDBDetallesCANTIDAD.Memo.Add(AText);&#13;&#10;}      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ATexto : string;                                           &#13;&#10;begin            &#13;&#10;  &#13;&#10;  ATexto := '';                                                       &#13;&#10;  DatosCliente.Lines.Clear;&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;CALLE&#34;&#62; &#60;&#62; '') then                 &#13;&#10;     DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '')&#13;&#10;     or (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;  begin&#13;&#10;     ATexto := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;;&#13;&#10;     if ATexto &#60;&#62; '' then&#13;&#10;        ATexto := ATexto + ' ';                                                                                               &#13;&#10;     ATexto := ATexto + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;;                                                                          &#13;&#10;     DatosCliente.Lines.Add(ATexto);&#13;&#10;  end;                   &#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;     DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;{      &#13;&#10;  ATexto := '';    &#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') or&#13;&#10;     (&#60;frxDBCabecera.&#34;MOVIL&#34;&#62; &#60;&#62; '') then                                   &#13;&#10;  begin&#13;&#10;     if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') then                          &#13;&#10;        ATexto := 'Tlf: ' + &#60;frxDBCabecera.&#34;TELEFONO&#34;&#62;;&#13;&#10;&#13;&#10;     if (&#60;frxDBCabecera.&#34;MOVIL&#34;&#62; &#60;&#62; '') then&#13;&#10;     begin                 &#13;&#10;       if ATexto &#60;&#62; '' then&#13;&#10;          ATexto := ATexto + ' / ';&#13;&#10;       ATexto := ATexto + 'Móvil: ';            &#13;&#10;       ATexto := ATexto + &#60;frxDBCabecera.&#34;MOVIL&#34;&#62;;&#13;&#10;     end;                        &#13;&#10;     DatosCliente.Lines.Add(ATexto);&#13;&#10;  end;&#13;&#10;}            &#13;&#10;  ATexto := '';                                                  &#13;&#10;  if (&#60;frxDBCabecera.&#34;NIF_CIF&#34;&#62; &#60;&#62; '') then&#13;&#10;      ATexto := 'NIF/CIF: ' + &#60;frxDBCabecera.&#34;NIF_CIF&#34;&#62;;&#13;&#10;{    &#13;&#10;  if ATexto &#60;&#62; '' then&#13;&#10;       ATexto := ATexto + '  ';    &#13;&#10;  ATexto := ATexto + 'Cód. cliente: ' + &#60;frxDBCabecera.&#34;REF_CLIENTE&#34;&#62;;&#13;&#10;}        &#13;&#10;  DatosCliente.Lines.Add(ATexto);&#13;&#10;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;       if (&#60;frxDBCabecera.&#34;DESCUENTO&#34;&#62; = 0) then&#13;&#10;       begin&#13;&#10;{         eBaseimponible.Top := eBaseimponible.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         Baseimponible.Top := Baseimponible.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         eIva.Top := eIva.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         Iva.Top := Iva.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         eRe.Top := eRe.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         Re.Top := Re.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         eImportetotal.Top := eImportetotal.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         Importetotal.Top := Importetotal.Top - (eImporteneto.Height + eDescuento.Height);                                             &#13;&#10;         eRetencion.Top := eRetencion.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         Retencion.Top := Retencion.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         etotalfinal.Top := etotalfinal.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         totalfinal.Top := totalfinal.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;}             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eImporteneto.Visible := True;&#13;&#10;         Importeneto.Visible := True;&#13;&#10;         eDescuento.Visible := True;&#13;&#10;         Descuento.Visible := True;     &#13;&#10;       end;&#13;&#10;&#13;&#10;       if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; = 0) then&#13;&#10;       begin                     &#13;&#10;{         eRe.Top := eRe.Top - eIva.Height;                &#13;&#10;         Re.Top := Re.Top - eIva.Height;&#13;&#10;         eImportetotal.Top := eImportetotal.Top - eIva.Height;&#13;&#10;         Importetotal.Top := Importetotal.Top - eIva.Height;&#13;&#10;         eRetencion.Top := eRetencion.Top - eIva.Height;&#13;&#10;         Retencion.Top := Retencion.Top - eIva.Height;&#13;&#10;         etotalfinal.Top := etotalfinal.Top - eIva.Height;&#13;&#10;         totalfinal.Top := totalfinal.Top - eIva.Height;&#13;&#10;}             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eIva.Visible := True;&#13;&#10;         Iva.Visible := True;         &#13;&#10;       end;  &#13;&#10;                       &#13;&#10;       if (&#60;frxDBCabecera.&#34;RE&#34;&#62; = 0) then&#13;&#10;       begin&#13;&#10;{         eImportetotal.Top := eImportetotal.Top - eRe.Height;&#13;&#10;         Importetotal.Top := Importetotal.Top - eRe.Height;                                             &#13;&#10;         eRetencion.Top := eRetencion.Top - eRe.Height;&#13;&#10;         Retencion.Top := Retencion.Top - eRe.Height;&#13;&#10;         etotalfinal.Top := etotalfinal.Top - eRe.Height;&#13;&#10;         totalfinal.Top := totalfinal.Top - eRe.Height;&#13;&#10;}             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eRe.Visible := True;&#13;&#10;         Re.Visible := True;         &#13;&#10;       end;  &#13;&#10;{        &#13;&#10;       if (&#60;frxDBCabecera.&#34;RETENCION&#34;&#62; &#60;&#62; 0) then&#13;&#10;       begin&#13;&#10;         eRetencion.Visible := True;&#13;&#10;         Retencion.Visible := True;&#13;&#10;         eTotalFinal.Visible := True;&#13;&#10;         TotalFinal.Visible := True;&#13;&#10;       end;&#13;&#10;}  &#13;&#10;       eBaseimponible.Visible := True;&#13;&#10;       Baseimponible.Visible := True;&#13;&#10;       eImportetotal.Visible := True;         &#13;&#10;       Importetotal.Visible := True;&#13;&#10;//    end&#13;&#10;  end; //Engine.FinalPass      &#13;&#10;&#13;&#10; if Engine.FreeSpace &#62; ReportSummary1.Height then    &#13;&#10;    Engine.CurY := Engine.PageHeight - ReportSummary1.Height - PageFooter1.Height - 1;    &#13;&#10;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo20OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{    &#13;&#10;  if (&#60;frxDBCapitulos.&#34;IMPORTE_TOTAL&#34;&#62; = 0)  &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_DETALLE&#34;&#62; = 'Titulo_opc')&#13;&#10;  or not &#60;VerTotales&#62; then&#13;&#10;  begin&#13;&#10;    Footer1.Height := 24;&#13;&#10;//    Memo13.Visible := False;&#13;&#10;    Memo20.Visible := False;  &#13;&#10;    Memo21.Visible := False;  &#13;&#10;    Memo11.Visible := False;&#13;&#10;    Memo24.Visible := False;&#13;&#10;//    Memo1.Visible := False;&#13;&#10;    Memo4.Visible := False;&#13;&#10;    Memo2.Visible := False;                                                      &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Footer1.Height := 60;&#13;&#10;    Memo13.Visible := True;  &#13;&#10;    Memo20.Visible := True;&#13;&#10;    Memo21.Visible := True;&#13;&#10;    if (&#60;frxDBCapitulos.&#34;IMPORTE_DESCUENTO&#34;&#62; = 0) then&#13;&#10;    begin&#13;&#10;      Footer1.Height := 24;    &#13;&#10;      Memo11.Visible := False;&#13;&#10;      Memo24.Visible := False;&#13;&#10;//      Memo1.Visible := False;&#13;&#10;      Memo4.Visible := False;&#13;&#10;      Memo2.Visible := False;          &#13;&#10;    end&#13;&#10;    else&#13;&#10;    begin&#13;&#10;      Memo11.Visible := True;&#13;&#10;      Memo24.Visible := True;&#13;&#10;//      Memo1.Visible := True;&#13;&#10;      Memo4.Visible := True;&#13;&#10;      Memo2.Visible := True;          &#13;&#10;    end;&#13;&#10;  end;&#13;&#10;}      &#13;&#10;end;&#13;&#10;&#13;&#10;&#13;&#10;procedure MasterData1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Titulo')    &#13;&#10;  or (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Subtotal')&#13;&#10;  or (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Descuento') then&#13;&#10;  begin              &#13;&#10;    precio_unidad.font.style := fsbold;                                          &#13;&#10;    frxDBDetallesCANTIDAD.font.style := fsbold;  &#13;&#10;    importe_total.font.style := fsbold;  &#13;&#10;    RichConcepto.font.style := fsbold;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    precio_unidad.font.style := 0;                                          &#13;&#10;    frxDBDetallesCANTIDAD.font.style := 0;  &#13;&#10;    importe_total.font.style := 0;  &#13;&#10;    RichConcepto.font.style := 0;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo19OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if not &#60;VerDatosCliente&#62; then&#13;&#10;  begin&#13;&#10;     Memo19.Visible := False;&#13;&#10;     DatosCliente.Visible := False;                                                                       &#13;&#10;  end;            &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end.  " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F732200010C18000000204E616D653D22546578746F4E756D4361706974756C6F2200010C13000000204E616D653D225665724C6F676F7469706F2200010C15000000204E616D653D224E6F6D627265456D70726573612200010C12000000204E616D653D2256657250726563696F732200010C12000000204E616D653D22566572546F74616C65732200010C17000000204E616D653D225665724461746F73436C69656E7465220000055374796C6501010C80000000204E616D653D225374796C654E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31312220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D22302200010C89000000204E616D653D225374796C65546974756C6F537562746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31312220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D2231220000">
+<TfrxReport Version="4.8.11" 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="45768,5823383102" ScriptLanguage="PascalScript" ScriptText.Text="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 Memo45OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{    &#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;&#13;&#10;}  &#13;&#10;//  Memo11.lines.add(&#60;frxDBCapitulos.&#34;CONCEPTO&#34;&#62;);  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo47OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  &#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;}        &#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;{    &#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;)]&#13;&#10;  else                     &#13;&#10;     AText := '[FormatFloat(''#,##0.##'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)];  &#13;&#10;         &#13;&#10;  frxDBDetallesCANTIDAD.Memo.Add(AText);&#13;&#10;}      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ATexto : string;                                           &#13;&#10;begin            &#13;&#10;  &#13;&#10;  ATexto := '';                                                       &#13;&#10;  DatosCliente.Lines.Clear;&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;CALLE&#34;&#62; &#60;&#62; '') then                 &#13;&#10;     DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '')&#13;&#10;     or (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;  begin&#13;&#10;     ATexto := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;;&#13;&#10;     if ATexto &#60;&#62; '' then&#13;&#10;        ATexto := ATexto + ' ';                                                                                               &#13;&#10;     ATexto := ATexto + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;;                                                                          &#13;&#10;     DatosCliente.Lines.Add(ATexto);&#13;&#10;  end;                   &#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;     DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;{      &#13;&#10;  ATexto := '';    &#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') or&#13;&#10;     (&#60;frxDBCabecera.&#34;MOVIL&#34;&#62; &#60;&#62; '') then                                   &#13;&#10;  begin&#13;&#10;     if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') then                          &#13;&#10;        ATexto := 'Tlf: ' + &#60;frxDBCabecera.&#34;TELEFONO&#34;&#62;;&#13;&#10;&#13;&#10;     if (&#60;frxDBCabecera.&#34;MOVIL&#34;&#62; &#60;&#62; '') then&#13;&#10;     begin                 &#13;&#10;       if ATexto &#60;&#62; '' then&#13;&#10;          ATexto := ATexto + ' / ';&#13;&#10;       ATexto := ATexto + 'Móvil: ';            &#13;&#10;       ATexto := ATexto + &#60;frxDBCabecera.&#34;MOVIL&#34;&#62;;&#13;&#10;     end;                        &#13;&#10;     DatosCliente.Lines.Add(ATexto);&#13;&#10;  end;&#13;&#10;}            &#13;&#10;  ATexto := '';                                                  &#13;&#10;  if (&#60;frxDBCabecera.&#34;NIF_CIF&#34;&#62; &#60;&#62; '') then&#13;&#10;      ATexto := 'NIF/CIF: ' + &#60;frxDBCabecera.&#34;NIF_CIF&#34;&#62;;&#13;&#10;{    &#13;&#10;  if ATexto &#60;&#62; '' then&#13;&#10;       ATexto := ATexto + '  ';    &#13;&#10;  ATexto := ATexto + 'Cód. cliente: ' + &#60;frxDBCabecera.&#34;REF_CLIENTE&#34;&#62;;&#13;&#10;}        &#13;&#10;  DatosCliente.Lines.Add(ATexto);&#13;&#10;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;       if (&#60;frxDBCabecera.&#34;DESCUENTO&#34;&#62; = 0) then&#13;&#10;       begin&#13;&#10;{         eBaseimponible.Top := eBaseimponible.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         Baseimponible.Top := Baseimponible.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         eIva.Top := eIva.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         Iva.Top := Iva.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         eRe.Top := eRe.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         Re.Top := Re.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         eImportetotal.Top := eImportetotal.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         Importetotal.Top := Importetotal.Top - (eImporteneto.Height + eDescuento.Height);                                             &#13;&#10;         eRetencion.Top := eRetencion.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         Retencion.Top := Retencion.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         etotalfinal.Top := etotalfinal.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         totalfinal.Top := totalfinal.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;}             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eImporteneto.Visible := True;&#13;&#10;         Importeneto.Visible := True;&#13;&#10;         eDescuento.Visible := True;&#13;&#10;         Descuento.Visible := True;     &#13;&#10;       end;&#13;&#10;&#13;&#10;       if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; = 0) then&#13;&#10;       begin                     &#13;&#10;{         eRe.Top := eRe.Top - eIva.Height;                &#13;&#10;         Re.Top := Re.Top - eIva.Height;&#13;&#10;         eImportetotal.Top := eImportetotal.Top - eIva.Height;&#13;&#10;         Importetotal.Top := Importetotal.Top - eIva.Height;&#13;&#10;         eRetencion.Top := eRetencion.Top - eIva.Height;&#13;&#10;         Retencion.Top := Retencion.Top - eIva.Height;&#13;&#10;         etotalfinal.Top := etotalfinal.Top - eIva.Height;&#13;&#10;         totalfinal.Top := totalfinal.Top - eIva.Height;&#13;&#10;}             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eIva.Visible := True;&#13;&#10;         Iva.Visible := True;         &#13;&#10;       end;  &#13;&#10;                       &#13;&#10;       if (&#60;frxDBCabecera.&#34;RE&#34;&#62; = 0) then&#13;&#10;       begin&#13;&#10;{         eImportetotal.Top := eImportetotal.Top - eRe.Height;&#13;&#10;         Importetotal.Top := Importetotal.Top - eRe.Height;                                             &#13;&#10;         eRetencion.Top := eRetencion.Top - eRe.Height;&#13;&#10;         Retencion.Top := Retencion.Top - eRe.Height;&#13;&#10;         etotalfinal.Top := etotalfinal.Top - eRe.Height;&#13;&#10;         totalfinal.Top := totalfinal.Top - eRe.Height;&#13;&#10;}             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eRe.Visible := True;&#13;&#10;         Re.Visible := True;         &#13;&#10;       end;  &#13;&#10;{        &#13;&#10;       if (&#60;frxDBCabecera.&#34;RETENCION&#34;&#62; &#60;&#62; 0) then&#13;&#10;       begin&#13;&#10;         eRetencion.Visible := True;&#13;&#10;         Retencion.Visible := True;&#13;&#10;         eTotalFinal.Visible := True;&#13;&#10;         TotalFinal.Visible := True;&#13;&#10;       end;&#13;&#10;}  &#13;&#10;       eBaseimponible.Visible := True;&#13;&#10;       Baseimponible.Visible := True;&#13;&#10;       eImportetotal.Visible := True;         &#13;&#10;       Importetotal.Visible := True;&#13;&#10;//    end&#13;&#10;  end; //Engine.FinalPass      &#13;&#10;&#13;&#10; if Engine.FreeSpace &#62; ReportSummary1.Height then    &#13;&#10;    Engine.CurY := Engine.PageHeight - ReportSummary1.Height - PageFooter1.Height - 1;    &#13;&#10;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo20OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{    &#13;&#10;  if (&#60;frxDBCapitulos.&#34;IMPORTE_TOTAL&#34;&#62; = 0)  &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_DETALLE&#34;&#62; = 'Titulo_opc')&#13;&#10;  or not &#60;VerTotales&#62; then&#13;&#10;  begin&#13;&#10;    Footer1.Height := 24;&#13;&#10;//    Memo13.Visible := False;&#13;&#10;    Memo20.Visible := False;  &#13;&#10;    Memo21.Visible := False;  &#13;&#10;    Memo11.Visible := False;&#13;&#10;    Memo24.Visible := False;&#13;&#10;//    Memo1.Visible := False;&#13;&#10;    Memo4.Visible := False;&#13;&#10;    Memo2.Visible := False;                                                      &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Footer1.Height := 60;&#13;&#10;    Memo13.Visible := True;  &#13;&#10;    Memo20.Visible := True;&#13;&#10;    Memo21.Visible := True;&#13;&#10;    if (&#60;frxDBCapitulos.&#34;IMPORTE_DESCUENTO&#34;&#62; = 0) then&#13;&#10;    begin&#13;&#10;      Footer1.Height := 24;    &#13;&#10;      Memo11.Visible := False;&#13;&#10;      Memo24.Visible := False;&#13;&#10;//      Memo1.Visible := False;&#13;&#10;      Memo4.Visible := False;&#13;&#10;      Memo2.Visible := False;          &#13;&#10;    end&#13;&#10;    else&#13;&#10;    begin&#13;&#10;      Memo11.Visible := True;&#13;&#10;      Memo24.Visible := True;&#13;&#10;//      Memo1.Visible := True;&#13;&#10;      Memo4.Visible := True;&#13;&#10;      Memo2.Visible := True;          &#13;&#10;    end;&#13;&#10;  end;&#13;&#10;}      &#13;&#10;end;&#13;&#10;&#13;&#10;&#13;&#10;procedure MasterData1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Titulo')    &#13;&#10;  or (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Subtotal')&#13;&#10;  or (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Descuento') then&#13;&#10;  begin              &#13;&#10;    precio_unidad.font.style := fsbold;                                          &#13;&#10;    frxDBDetallesCANTIDAD.font.style := fsbold;  &#13;&#10;    importe_total.font.style := fsbold;  &#13;&#10;    RichConcepto.font.style := fsbold;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    precio_unidad.font.style := 0;                                          &#13;&#10;    frxDBDetallesCANTIDAD.font.style := 0;  &#13;&#10;    importe_total.font.style := 0;  &#13;&#10;    RichConcepto.font.style := 0;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo19OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if not &#60;VerDatosCliente&#62; then&#13;&#10;  begin&#13;&#10;     Memo19.Visible := False;&#13;&#10;     DatosCliente.Visible := False;                                                                       &#13;&#10;  end;            &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end.  " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F732200010C18000000204E616D653D22546578746F4E756D4361706974756C6F2200010C13000000204E616D653D225665724C6F676F7469706F2200010C15000000204E616D653D224E6F6D627265456D70726573612200010C12000000204E616D653D2256657250726563696F732200010C12000000204E616D653D22566572546F74616C65732200010C17000000204E616D653D225665724461746F73436C69656E7465220000055374796C6501010C80000000204E616D653D225374796C654E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31312220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D22302200010C89000000204E616D653D225374796C65546974756C6F537562746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31312220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D2231220000">
   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
   <TfrxReportPage Name="Page3" Font.Charset="1" Font.Color="13056" Font.Height="-13" Font.Name="Arial" Font.Style="0" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
     <TfrxPageHeader Name="PageHeader2" Height="197" Left="0" Top="16" Width="718,101251175" OnBeforePrint="PageHeader1OnBeforePrint">
@@ -34,7 +34,7 @@
       <TfrxMemoView Name="Baseimponible" Align="baRight" Left="256,45669291" Top="30" Width="150" Height="22" Visible="False" ShowHint="False" Color="15263976" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;BASE_IMPONIBLE&#34;]"/>
       <TfrxMemoView Name="eDescuento" Align="baRight" Left="156,45669291" Top="6" Width="100" Height="22" Visible="False" ShowHint="False" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="Dto [frxDBCabecera.&#34;DESCUENTO&#34;] "/>
       <TfrxMemoView Name="Descuento" Align="baRight" Left="156,45669291" Top="30" Width="100" Height="22" Visible="False" ShowHint="False" Color="15263976" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="- [frxDBCabecera.&#34;IMPORTE_DESCUENTO&#34;]"/>
-      <TfrxMemoView Name="eImportetotal" Left="596,45669291" Top="6" Width="120" Height="22" Visible="False" ShowHint="False" Color="16777215" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total presupuesto"/>
+      <TfrxMemoView Name="eImportetotal" Left="596,45669291" Top="6" Width="120" Height="22" Visible="False" ShowHint="False" Color="16777215" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total"/>
       <TfrxMemoView Name="Importetotal" Left="596,45669291" Top="30" Width="120" Height="22" Visible="False" ShowHint="False" Color="15263976" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTE_TOTAL&#34;]"/>
       <TfrxMemoView Name="Memo40" Align="baRight" Left="629,613057315" Top="141" Width="88,48819386" Height="16" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" HAlign="haRight" HideZeros="True" ParentFont="False" Text="Notas"/>
       <TfrxMemoView Name="Memo37" Left="161" Top="160" Width="555,48819386" Height="29" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBCabecera.&#34;OBSERVACIONES&#34;]"/>