From 66ba8d036831933b107e15a815381d56e42a2d80 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Wed, 18 Mar 2015 09:40:03 +0000
Subject: [PATCH] Tarea #1380 -> Ajustar el ancho de las columnas de importes
 en los presupuestos, contratos y facturas impresas

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@619 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 Source/Informes/InfContratoCliente.fr3 | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/Source/Informes/InfContratoCliente.fr3 b/Source/Informes/InfContratoCliente.fr3
index cf3ce32d..1c8a6139 100644
--- a/Source/Informes/InfContratoCliente.fr3
+++ b/Source/Informes/InfContratoCliente.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="42079,4659487269" 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 Rich3OnBeforePrint(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;     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;}         &#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;&#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;  ATexto := '';                                                       &#13;&#10;   TfrxMemoView(Sender).Lines.Clear;&#13;&#10;&#13;&#10;   TfrxMemoView(Sender).Lines.Add('&#60;b&#62;' + &#60;frxDBCabecera.&#34;NOMBRE&#34;&#62; + '&#60;/b&#62;');                  &#13;&#10;  &#13;&#10;  if (&#60;frxDBCabecera.&#34;CALLE&#34;&#62; &#60;&#62; '') then                 &#13;&#10;      TfrxMemoView(Sender).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;     TfrxMemoView(Sender).Lines.Add(ATexto);&#13;&#10;  end;                   &#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;     TfrxMemoView(Sender).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;     TfrxMemoView(Sender).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;  TfrxMemoView(Sender).Lines.Add(ATexto);         &#13;&#10;end;&#13;&#10;&#13;&#10;procedure MasterData1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'AF' ) &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'AI' )&#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'B' ) &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'C' ) then&#13;&#10;  begin&#13;&#10;    Header1.Visible := False;&#13;&#10;    DetailData1.Visible := False;                                                                  &#13;&#10;    DetailData2.Visible := True;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Header1.Visible := True;                                                          &#13;&#10;    DetailData1.Visible := True;                                                                  &#13;&#10;    DetailData2.Visible := False;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo29OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; &#62; 0) then&#13;&#10;  begin&#13;&#10;    Memo29.visible := True;&#13;&#10;    if (&#60;frxDBCabecera.&#34;RE&#34;&#62; &#62; 0) then&#13;&#10;    begin&#13;&#10;      Memo30.visible := True;  &#13;&#10;    end&#13;&#10;    else&#13;&#10;    begin&#13;&#10;      Memo30.visible := False;        &#13;&#10;      Shape10.Top := Shape9.Top;&#13;&#10;      Memo26.Top := Memo30.Top;&#13;&#10;      Memo25.Top := Memo31.Top;&#13;&#10;      Line8.height := Line8.height - Shape10.height;&#13;&#10;    end&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Memo29.visible := False;&#13;&#10;    Shape10.Top := Shape8.Top;&#13;&#10;    Memo26.Top := Memo29.Top;&#13;&#10;    Memo25.Top := Memo33.Top;&#13;&#10;    Line8.height := Line8.height - Shape10.height;&#13;&#10;    //Si IVA es 0 RE tambien&#13;&#10;    Memo30.Visible := False;&#13;&#10;    Shape9.Visible := False;}  &#13;&#10;    //Subimos comentarios&#13;&#10;    {Memo40.Top := Memo40.Top - Shape9.height;&#13;&#10;    Memo37.Top := Memo37.Top - Shape9.height;                                                              &#13;&#10;    Memo39.Top := Memo39.Top - Shape9.height;&#13;&#10;    Memo28.Top := Memo28.Top - Shape9.height;}                                                                &#13;&#10;//  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (Length(&#60;frxDBCabecera.&#34;FORMA_PAGO&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;    eFormaPago.Visible := False;&#13;&#10;    FormaPago.Visible := False;                                                              &#13;&#10;  end;              &#13;&#10;  &#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;    Memo40.Visible := False;&#13;&#10;    Memo37.Visible := False;                                                              &#13;&#10;  end;&#13;&#10;&#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;PLAZO_ENTREGA&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;    Memo39.Visible := False;&#13;&#10;    Memo28.Visible := False;&#13;&#10;    if (Length(&#60;frxDBCabecera.&#34;FORMA_PAGO&#34;&#62;) &#60;&#62; 0) then&#13;&#10;       Memo37.Height := Memo37.Height + (Memo39.Height + Memo28.Height);                                                                        &#13;&#10;  end;&#13;&#10;&#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;     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;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;     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;IVA&#34;&#62; = 0) then&#13;&#10;     begin                     &#13;&#10;       eImportetotal.Top := eImportetotal.Top - eIva.Height;                &#13;&#10;       Importetotal.Top := Importetotal.Top - eIva.Height;&#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;     eBaseimponible.Visible := True;&#13;&#10;     Baseimponible.Visible := True;&#13;&#10;     eImportetotal.Visible := True;         &#13;&#10;     Importetotal.Visible := True;&#13;&#10;  end; //Engine.FinalPass      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo20OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCapitulos.&#34;IMPORTE_TOTAL&#34;&#62; = 0)  &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_DETALLE&#34;&#62; = 'Titulo_opc') then&#13;&#10;  begin&#13;&#10;    Footer1.Height := 5;&#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;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Footer1.Height := 40;&#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;    end&#13;&#10;    else&#13;&#10;    begin&#13;&#10;      Memo11.Visible := True;&#13;&#10;      Memo24.Visible := True;&#13;&#10;    end;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PaginaCondicionesOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;if (length(&#60;frxDBCabecera.&#34;CONDICIONES&#34;&#62;) = 0) then&#13;&#10;begin                &#13;&#10;  PaginaCondiciones.Visible := False;&#13;&#10;  Set('TotalPaginas', (&#60;TotalPaginas&#62; - 1));&#13;&#10;end;                   &#13;&#10;end;&#13;&#10;&#13;&#10;&#13;&#10;procedure Page2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (MasterData2.DataSet.RecordCount &#62; 0) then&#13;&#10;  begin              &#13;&#10;    Page2.Visible := True;&#13;&#10;  end                &#13;&#10;  else&#13;&#10;  begin&#13;&#10;     Page2.Visible := False;&#13;&#10;     Set('TotalPaginas', (&#60;TotalPaginas&#62; - 1));      &#13;&#10;  end;            &#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader3OnBeforePrint(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;&#13;&#10;procedure DetailData1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;   if (Header1.Visible) then&#13;&#10;   begin                   &#13;&#10;       if (&#60;frxDBDetalles.&#34;VISIBLE2&#34;&#62; &#60;&#62; 1) then&#13;&#10;               DetailData1.Visible := False&#13;&#10;       else&#13;&#10;               DetailData1.Visible := True;&#13;&#10;   end;                                       &#13;&#10;end;&#13;&#10;&#13;&#10;procedure DetailData2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;   if (not Header1.Visible) then&#13;&#10;   begin    &#13;&#10;       if (&#60;frxDBDetalles.&#34;VISIBLE2&#34;&#62; &#60;&#62; 1) then&#13;&#10;               DetailData2.Visible := False&#13;&#10;       else&#13;&#10;               DetailData2.Visible := True;&#13;&#10;   end;                                                                                                 &#13;&#10;end;&#13;&#10;&#13;&#10;procedure pagCalidadesOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (length(&#60;frxDBCabecera.&#34;CALIDADES&#34;&#62;) = 0) then&#13;&#10;  begin                &#13;&#10;    pagCalidades.Visible := False;&#13;&#10;    Set('TotalPaginas', (&#60;TotalPaginas&#62; - 1));&#13;&#10;  end;                   &#13;&#10;  end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C1D00000020446174615365744E616D653D2266727844424361706974756C6F732200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C2500000020446174615365744E616D653D226672784442446574616C6C65734172746963756C6F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F732200010C18000000204E616D653D22546578746F4E756D4361706974756C6F2200010C1C000000204E616D653D22507265737570756573746F436F6E436F63696E61220000055374796C650100">
+<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="42081,4436012616" 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 Rich3OnBeforePrint(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;     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;}         &#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;&#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;  ATexto := '';                                                       &#13;&#10;   TfrxMemoView(Sender).Lines.Clear;&#13;&#10;&#13;&#10;   TfrxMemoView(Sender).Lines.Add('&#60;b&#62;' + &#60;frxDBCabecera.&#34;NOMBRE&#34;&#62; + '&#60;/b&#62;');                  &#13;&#10;  &#13;&#10;  if (&#60;frxDBCabecera.&#34;CALLE&#34;&#62; &#60;&#62; '') then                 &#13;&#10;      TfrxMemoView(Sender).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;     TfrxMemoView(Sender).Lines.Add(ATexto);&#13;&#10;  end;                   &#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;     TfrxMemoView(Sender).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;     TfrxMemoView(Sender).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;  TfrxMemoView(Sender).Lines.Add(ATexto);         &#13;&#10;end;&#13;&#10;&#13;&#10;procedure MasterData1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'AF' ) &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'AI' )&#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'B' ) &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'C' ) then&#13;&#10;  begin&#13;&#10;    Header1.Visible := False;&#13;&#10;    DetailData1.Visible := False;                                                                  &#13;&#10;    DetailData2.Visible := True;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Header1.Visible := True;                                                          &#13;&#10;    DetailData1.Visible := True;                                                                  &#13;&#10;    DetailData2.Visible := False;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo29OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; &#62; 0) then&#13;&#10;  begin&#13;&#10;    Memo29.visible := True;&#13;&#10;    if (&#60;frxDBCabecera.&#34;RE&#34;&#62; &#62; 0) then&#13;&#10;    begin&#13;&#10;      Memo30.visible := True;  &#13;&#10;    end&#13;&#10;    else&#13;&#10;    begin&#13;&#10;      Memo30.visible := False;        &#13;&#10;      Shape10.Top := Shape9.Top;&#13;&#10;      Memo26.Top := Memo30.Top;&#13;&#10;      Memo25.Top := Memo31.Top;&#13;&#10;      Line8.height := Line8.height - Shape10.height;&#13;&#10;    end&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Memo29.visible := False;&#13;&#10;    Shape10.Top := Shape8.Top;&#13;&#10;    Memo26.Top := Memo29.Top;&#13;&#10;    Memo25.Top := Memo33.Top;&#13;&#10;    Line8.height := Line8.height - Shape10.height;&#13;&#10;    //Si IVA es 0 RE tambien&#13;&#10;    Memo30.Visible := False;&#13;&#10;    Shape9.Visible := False;}  &#13;&#10;    //Subimos comentarios&#13;&#10;    {Memo40.Top := Memo40.Top - Shape9.height;&#13;&#10;    Memo37.Top := Memo37.Top - Shape9.height;                                                              &#13;&#10;    Memo39.Top := Memo39.Top - Shape9.height;&#13;&#10;    Memo28.Top := Memo28.Top - Shape9.height;}                                                                &#13;&#10;//  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (Length(&#60;frxDBCabecera.&#34;FORMA_PAGO&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;    eFormaPago.Visible := False;&#13;&#10;    FormaPago.Visible := False;                                                              &#13;&#10;  end;              &#13;&#10;  &#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;    Memo40.Visible := False;&#13;&#10;    Memo37.Visible := False;                                                              &#13;&#10;  end;&#13;&#10;&#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;PLAZO_ENTREGA&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;    Memo39.Visible := False;&#13;&#10;    Memo28.Visible := False;&#13;&#10;    if (Length(&#60;frxDBCabecera.&#34;FORMA_PAGO&#34;&#62;) &#60;&#62; 0) then&#13;&#10;       Memo37.Height := Memo37.Height + (Memo39.Height + Memo28.Height);                                                                        &#13;&#10;  end;&#13;&#10;&#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;     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;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;     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;IVA&#34;&#62; = 0) then&#13;&#10;     begin                     &#13;&#10;       eImportetotal.Top := eImportetotal.Top - eIva.Height;                &#13;&#10;       Importetotal.Top := Importetotal.Top - eIva.Height;&#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;     eBaseimponible.Visible := True;&#13;&#10;     Baseimponible.Visible := True;&#13;&#10;     eImportetotal.Visible := True;         &#13;&#10;     Importetotal.Visible := True;&#13;&#10;  end; //Engine.FinalPass      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo20OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCapitulos.&#34;IMPORTE_TOTAL&#34;&#62; = 0)  &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_DETALLE&#34;&#62; = 'Titulo_opc') then&#13;&#10;  begin&#13;&#10;    Footer1.Height := 5;&#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;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Footer1.Height := 40;&#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;    end&#13;&#10;    else&#13;&#10;    begin&#13;&#10;      Memo11.Visible := True;&#13;&#10;      Memo24.Visible := True;&#13;&#10;    end;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PaginaCondicionesOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;if (length(&#60;frxDBCabecera.&#34;CONDICIONES&#34;&#62;) = 0) then&#13;&#10;begin                &#13;&#10;  PaginaCondiciones.Visible := False;&#13;&#10;  Set('TotalPaginas', (&#60;TotalPaginas&#62; - 1));&#13;&#10;end;                   &#13;&#10;end;&#13;&#10;&#13;&#10;&#13;&#10;procedure Page2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (MasterData2.DataSet.RecordCount &#62; 0) then&#13;&#10;  begin              &#13;&#10;    Page2.Visible := True;&#13;&#10;  end                &#13;&#10;  else&#13;&#10;  begin&#13;&#10;     Page2.Visible := False;&#13;&#10;     Set('TotalPaginas', (&#60;TotalPaginas&#62; - 1));      &#13;&#10;  end;            &#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader3OnBeforePrint(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;&#13;&#10;procedure DetailData1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;   if (Header1.Visible) then&#13;&#10;   begin                   &#13;&#10;       if (&#60;frxDBDetalles.&#34;VISIBLE2&#34;&#62; &#60;&#62; 1) then&#13;&#10;               DetailData1.Visible := False&#13;&#10;       else&#13;&#10;               DetailData1.Visible := True;&#13;&#10;   end;                                       &#13;&#10;end;&#13;&#10;&#13;&#10;procedure DetailData2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;   if (not Header1.Visible) then&#13;&#10;   begin    &#13;&#10;       if (&#60;frxDBDetalles.&#34;VISIBLE2&#34;&#62; &#60;&#62; 1) then&#13;&#10;               DetailData2.Visible := False&#13;&#10;       else&#13;&#10;               DetailData2.Visible := True;&#13;&#10;   end;                                                                                                 &#13;&#10;end;&#13;&#10;&#13;&#10;procedure pagCalidadesOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (length(&#60;frxDBCabecera.&#34;CALIDADES&#34;&#62;) = 0) then&#13;&#10;  begin                &#13;&#10;    pagCalidades.Visible := False;&#13;&#10;    Set('TotalPaginas', (&#60;TotalPaginas&#62; - 1));&#13;&#10;  end;                   &#13;&#10;  end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C1D00000020446174615365744E616D653D2266727844424361706974756C6F732200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C2500000020446174615365744E616D653D226672784442446574616C6C65734172746963756C6F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F732200010C18000000204E616D653D22546578746F4E756D4361706974756C6F2200010C1C000000204E616D653D22507265737570756573746F436F6E436F63696E61220000055374796C650100">
   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
   <TfrxReportPage Name="Page1" 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="" OnBeforePrint="Page1OnBeforePrint">
     <TfrxPageHeader Name="PageHeader2" Height="220" Left="0" Top="16" Width="718,101251175" OnBeforePrint="PageHeader1OnBeforePrint">
@@ -13,18 +13,18 @@
       <TfrxMemoView Name="Memo45" Left="0" Top="4" Width="715,74057" Height="21" OnBeforePrint="Memo45OnBeforePrint" ShowHint="False" StretchMode="smActualHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" GapX="0" ParentFont="False" Text="[&#60;frxDBCapitulos.&#34;CONCEPTO&#34;&#62;]"/>
     </TfrxMasterData>
     <TfrxDetailData Name="DetailData1" Font.Charset="1" Font.Color="13056" Font.Height="-7" Font.Name="Arial" Font.Style="0" Height="16" Left="0" ParentFont="False" Top="384" Width="718,101251175" OnBeforePrint="DetailData1OnBeforePrint" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" PrintIfDetailEmpty="True" RowCount="0" Stretched="True">
-      <TfrxMemoView Name="Rich4" Align="baLeft" Left="0" Top="0" Width="548" Height="16" ShowHint="False" StretchMode="smActualHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" Frame.Typ="3" Frame.RightLine.Style="fsDot" GapX="5" GapY="2" ParentFont="False" Text="[frxDBDetalles.&#34;CONCEPTO&#34;]"/>
-      <TfrxMemoView Name="frxDBDetallesCANTIDAD" Align="baLeft" Left="548" Top="0" Width="27" Height="16" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" Frame.Typ="2" Frame.RightLine.Style="fsDot" GapX="0" GapY="2" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaBottom" Text="[frxDBDetalles.&#34;CANTIDAD&#34;]"/>
-      <TfrxMemoView Name="Memo35" Align="baLeft" Left="575" Top="0" Width="44" Height="16" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.## €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" Frame.Typ="2" Frame.RightLine.Style="fsDot" GapX="0" GapY="2" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaBottom" Text="[frxDBDetalles.&#34;IMPORTE_UNIDAD&#34;]"/>
-      <TfrxMemoView Name="Memo36" Align="baLeft" Left="653" Top="0" Width="65" Height="16" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" Frame.Typ="2" GapX="0" GapY="2" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaBottom" Text="[frxDBDetalles.&#34;IMPORTE_TOTAL&#34;]"/>
-      <TfrxMemoView Name="DescuentoLinea" Align="baLeft" Left="619" Top="0" Width="34" Height="16" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.##%" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" Frame.Typ="2" GapX="0" GapY="2" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaBottom" Text="[frxDBDetalles.&#34;DESCUENTO&#34;]"/>
+      <TfrxMemoView Name="Rich4" Left="0" Top="0" Width="540" Height="16" ShowHint="False" StretchMode="smActualHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" Frame.Typ="3" Frame.RightLine.Style="fsDot" GapX="5" GapY="2" ParentFont="False" Text="[frxDBDetalles.&#34;CONCEPTO&#34;]"/>
+      <TfrxMemoView Name="frxDBDetallesCANTIDAD" Left="540" Top="0" Width="27" Height="16" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" Frame.Typ="2" Frame.RightLine.Style="fsDot" GapY="2" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaBottom" Text="[frxDBDetalles.&#34;CANTIDAD&#34;]"/>
+      <TfrxMemoView Name="Memo35" Left="567" Top="0" Width="52" Height="16" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.## €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" Frame.Typ="2" Frame.RightLine.Style="fsDot" GapY="2" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaBottom" Text="[frxDBDetalles.&#34;IMPORTE_UNIDAD&#34;]"/>
+      <TfrxMemoView Name="Memo36" Left="649" Top="0" Width="69" Height="16" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.## €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" Frame.Typ="2" GapX="1" GapY="2" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaBottom" Text="[frxDBDetalles.&#34;IMPORTE_TOTAL&#34;]"/>
+      <TfrxMemoView Name="DescuentoLinea" Left="619" Top="0" Width="30" Height="16" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.##%" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" Frame.Typ="2" GapX="1" GapY="2" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaBottom" Text="[frxDBDetalles.&#34;DESCUENTO&#34;]"/>
     </TfrxDetailData>
     <TfrxHeader Name="Header1" Height="22" Left="0" Top="344" Width="718,101251175" ReprintOnNewPage="True">
-      <TfrxMemoView Name="Memo23" Align="baLeft" Left="0" Top="0" Width="548" Height="22" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Concepto"/>
-      <TfrxMemoView Name="Memo4" Align="baLeft" Left="548" Top="0" Width="27" Height="22" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ud."/>
-      <TfrxMemoView Name="Memo8" Align="baLeft" Left="575" Top="0" Width="44" Height="22" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Imp."/>
-      <TfrxMemoView Name="Memo9" Align="baLeft" Left="653" Top="0" Width="65" Height="22" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Imp. total"/>
-      <TfrxMemoView Name="lDescuentoLinea" Align="baLeft" Left="619" Top="0" Width="34" Height="22" Visible="False" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
+      <TfrxMemoView Name="Memo23" Left="0" Top="0" Width="540" Height="22" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Concepto"/>
+      <TfrxMemoView Name="Memo4" Left="540" Top="0" Width="27" Height="22" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ud."/>
+      <TfrxMemoView Name="Memo8" Left="567" Top="0" Width="52" Height="22" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Imp."/>
+      <TfrxMemoView Name="Memo9" Left="649" Top="0" Width="69" Height="22" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Imp. total"/>
+      <TfrxMemoView Name="lDescuentoLinea" Left="619" Top="0" Width="30" Height="22" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
     </TfrxHeader>
     <TfrxFooter Name="Footer1" Height="40" Left="0" Top="456" Width="718,101251175">
       <TfrxMemoView Name="Memo13" Align="baClient" Left="0" Top="0" Width="718,101251175" Height="40" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
@@ -98,7 +98,7 @@
     </TfrxMasterData>
   </TfrxReportPage>
   <TfrxReportPage Name="Page2" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="" OnBeforePrint="Page2OnBeforePrint">
-    <TfrxMasterData Name="MasterData2" Height="216" Left="0" Top="306" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBDetallesArticulos" RowCount="0">
+    <TfrxMasterData Name="MasterData2" Height="216" Left="0" Top="304" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBDetallesArticulos" RowCount="0">
       <TfrxMemoView Name="Memo12" Left="2" Top="3" Width="346" Height="192" ShowHint="False" Text="[frxDBDetallesArticulos.&#34;DESCRIPCION&#34;]"/>
       <TfrxPictureView Name="Picture1" Left="354" Top="3" Width="361" Height="192" OnBeforePrint="Picture1OnBeforePrint" ShowHint="False" DataField="IMAGEN" DataSetName="frxDBDetallesArticulos" HightQuality="False"/>
     </TfrxMasterData>