From 1a06aab814471ecf92665f92e521084ff1f99645 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Mon, 22 Aug 2016 14:29:46 +0000
Subject: [PATCH] Se modifica para direcciones largas

git-svn-id: https://192.168.0.254/svn/Proyectos.Cullere_FactuGES2/trunk@15 e61cf4a9-ab77-6246-bebb-cff159b4cb7d
---
 Source/Informes/1/InfFacturaCliente.fr3 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Source/Informes/1/InfFacturaCliente.fr3 b/Source/Informes/1/InfFacturaCliente.fr3
index ee8c134..e931a66 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.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="41690,5634261921" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  &#13;&#10;  DatosCliente.Lines.Clear;&#13;&#10;&#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;     DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + '  ' + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;);&#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;end;&#13;&#10;&#13;&#10;procedure Memo15OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Memo15.Lines.Clear;&#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;BASE_IMPONIBLE&#34;&#62;) &#60; 0) then&#13;&#10;       Memo15.Lines.Add('ABONO')&#13;&#10;  else&#13;&#10;     Memo15.Lines.Add('FACTURA')&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Band2OnBeforePrint(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;&#13;&#10;  if &#60;VerLogotipo&#62; then&#13;&#10;  begin              &#13;&#10;//     Picture1.Visible := True;&#13;&#10;     Picture6.Visible := True;&#13;&#10;//     Picture2.Visible := True;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;//     Picture1.Visible := False;&#13;&#10;     Picture6.Visible := False;&#13;&#10;//     Picture2.Visible := False;&#13;&#10;  end    &#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;end;&#13;&#10;&#13;&#10;procedure Memo26OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin   &#13;&#10;  if (&#60;frxDBCabecera.&#34;DESCUENTO&#34;&#62; &#62; 0) then&#13;&#10;  begin&#13;&#10;    eDescuento.visible := True;&#13;&#10;    Descuento.visible := True;        &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    eDescuento.visible := False;      &#13;&#10;    Descuento.visible := False;      &#13;&#10;  end;            &#13;&#10;end;&#13;&#10;&#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;       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&#13;&#10;  end; //Engine.FinalPass      &#13;&#10;&#13;&#10; if Engine.FreeSpace &#62; ReportSummary1.Height then    &#13;&#10;    Engine.CurY := Engine.PageHeight - ReportSummary1.Height - 1; // PageFooter1.Height - 1;    &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Overlay1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (Engine.FinalPass) then &#13;&#10;  begin&#13;&#10;      if (&#60;Page&#62; &#60; &#60;TotalPaginas&#62;) then   // &#60;- lo mejor para saber si es la �ltima p�gina o no&#13;&#10;      begin&#13;&#10;{  &#13;&#10;       LineFinalLarga.visible := True;&#13;&#10;       LineaCorta1.visible := False;&#13;&#10;       LineaLarga1.visible := True;         &#13;&#10;       LineaCorta2.visible := False;&#13;&#10;       LineaLarga2.visible := True;         &#13;&#10;       LineaCorta3.visible := False;&#13;&#10;       LineaLarga3.visible := True;&#13;&#10;       LineaCorta4.visible := False;&#13;&#10;       LineaLarga4.visible := True;&#13;&#10;       LineaCorta5.visible := False;&#13;&#10;       LineaLarga5.visible := True;&#13;&#10;       LineaCorta6.visible := False;&#13;&#10;       LineaLarga6.visible := True;&#13;&#10;}           &#13;&#10;      end&#13;&#10;      else begin&#13;&#10;{   &#13;&#10;       LineFinalLarga.visible := False;&#13;&#10;       LineaCorta1.visible := True;&#13;&#10;       LineaLarga1.visible := False;&#13;&#10;       LineaCorta2.visible := True;  &#13;&#10;       LineaLarga2.visible := False;         &#13;&#10;       LineaCorta3.visible := True;&#13;&#10;       LineaLarga3.visible := False;&#13;&#10;       LineaCorta4.visible := True;  &#13;&#10;       LineaLarga4.visible := False;&#13;&#10;       LineaCorta5.visible := True;  &#13;&#10;       LineaLarga5.visible := False;&#13;&#10;       LineaCorta6.visible := True;  &#13;&#10;       LineaLarga6.visible := False;&#13;&#10;}           &#13;&#10;      end;  &#13;&#10;  end;  &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C3800000020446174615365743D22667278444244617461736574312220446174615365744E616D653D22667278444256656E63696D69656E746F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C13000000204E616D653D225665724C6F676F7469706F220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
+<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="42604,6815919676" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  &#13;&#10;  DatosCliente.Lines.Clear;&#13;&#10;&#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;     DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + '  ' + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;);&#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;end;&#13;&#10;&#13;&#10;procedure Memo15OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Memo15.Lines.Clear;&#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;BASE_IMPONIBLE&#34;&#62;) &#60; 0) then&#13;&#10;       Memo15.Lines.Add('ABONO')&#13;&#10;  else&#13;&#10;     Memo15.Lines.Add('FACTURA')&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Band2OnBeforePrint(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;&#13;&#10;  if &#60;VerLogotipo&#62; then&#13;&#10;  begin              &#13;&#10;//     Picture1.Visible := True;&#13;&#10;     Picture6.Visible := True;&#13;&#10;//     Picture2.Visible := True;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;//     Picture1.Visible := False;&#13;&#10;     Picture6.Visible := False;&#13;&#10;//     Picture2.Visible := False;&#13;&#10;  end    &#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;end;&#13;&#10;&#13;&#10;procedure Memo26OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin   &#13;&#10;  if (&#60;frxDBCabecera.&#34;DESCUENTO&#34;&#62; &#62; 0) then&#13;&#10;  begin&#13;&#10;    eDescuento.visible := True;&#13;&#10;    Descuento.visible := True;        &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    eDescuento.visible := False;      &#13;&#10;    Descuento.visible := False;      &#13;&#10;  end;            &#13;&#10;end;&#13;&#10;&#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;       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&#13;&#10;  end; //Engine.FinalPass      &#13;&#10;&#13;&#10; if Engine.FreeSpace &#62; ReportSummary1.Height then    &#13;&#10;    Engine.CurY := Engine.PageHeight - ReportSummary1.Height - 1; // PageFooter1.Height - 1;    &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Overlay1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (Engine.FinalPass) then &#13;&#10;  begin&#13;&#10;      if (&#60;Page&#62; &#60; &#60;TotalPaginas&#62;) then   // &#60;- lo mejor para saber si es la �ltima p�gina o no&#13;&#10;      begin&#13;&#10;{  &#13;&#10;       LineFinalLarga.visible := True;&#13;&#10;       LineaCorta1.visible := False;&#13;&#10;       LineaLarga1.visible := True;         &#13;&#10;       LineaCorta2.visible := False;&#13;&#10;       LineaLarga2.visible := True;         &#13;&#10;       LineaCorta3.visible := False;&#13;&#10;       LineaLarga3.visible := True;&#13;&#10;       LineaCorta4.visible := False;&#13;&#10;       LineaLarga4.visible := True;&#13;&#10;       LineaCorta5.visible := False;&#13;&#10;       LineaLarga5.visible := True;&#13;&#10;       LineaCorta6.visible := False;&#13;&#10;       LineaLarga6.visible := True;&#13;&#10;}           &#13;&#10;      end&#13;&#10;      else begin&#13;&#10;{   &#13;&#10;       LineFinalLarga.visible := False;&#13;&#10;       LineaCorta1.visible := True;&#13;&#10;       LineaLarga1.visible := False;&#13;&#10;       LineaCorta2.visible := True;  &#13;&#10;       LineaLarga2.visible := False;         &#13;&#10;       LineaCorta3.visible := True;&#13;&#10;       LineaLarga3.visible := False;&#13;&#10;       LineaCorta4.visible := True;  &#13;&#10;       LineaLarga4.visible := False;&#13;&#10;       LineaCorta5.visible := True;  &#13;&#10;       LineaLarga5.visible := False;&#13;&#10;       LineaCorta6.visible := True;  &#13;&#10;       LineaLarga6.visible := False;&#13;&#10;}           &#13;&#10;      end;  &#13;&#10;  end;  &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C3800000020446174615365743D22667278444244617461736574312220446174615365744E616D653D22667278444256656E63696D69656E746F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C13000000204E616D653D225665724C6F676F7469706F220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
   <TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" Columns="1" ColumnWidth="209,999791666667" ColumnPositions.Text="0" LargeDesignHeight="True" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
     <TfrxPageHeader Name="Band2" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Comic Sans MS" Font.Style="1" Height="330" Left="0" ParentFont="False" Top="16" Width="718,101251175" OnBeforePrint="Band2OnBeforePrint">
@@ -8,8 +8,8 @@
       <TfrxMemoView Name="Memo15" Left="6" Top="205" Width="220" Height="57" OnBeforePrint="Memo15OnBeforePrint" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="6637824" Font.Height="-32" Font.Name="Comic Sans MS" Font.Style="1" Frame.Color="14211288" ParentFont="False" VAlign="vaCenter" Text="FACTURA"/>
       <TfrxMemoView Name="Memo9" Left="6" Top="271" Width="210" Height="50" ShowHint="False" StretchMode="smActualHeight" AllowHTMLTags="True" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Comic Sans MS" Font.Style="0" LineSpacing="5" ParentFont="False" VAlign="vaBottom" Text="Nº: &#60;b&#62;[frxDBCabecera.&#34;REFERENCIA&#34;]&#60;/b&#62;&#13;&#10;DATA: &#60;b&#62;[frxDBCabecera.&#34;FECHA_FACTURA&#34;]&#60;/b&#62;&#13;&#10;N.I.F/D.N.I: &#60;b&#62;[frxDBCabecera.&#34;NIF_CIF&#34;]&#60;/b&#62;"/>
       <TfrxMemoView Name="Memo2" Left="351" Top="103" Width="360" Height="20" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Comic Sans MS" Font.Style="1" ParentFont="False" Text="Client: [frxDBCabecera.&#34;NOMBRE&#34;]"/>
-      <TfrxMemoView Name="Memo12" Left="351" Top="126" Width="360" Height="20" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Comic Sans MS" Font.Style="1" ParentFont="False" Text="Adreça: [frxDBCabecera.&#34;CALLE&#34;]"/>
-      <TfrxMemoView Name="Memo13" Left="351" Top="149" Width="360" Height="59" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Comic Sans MS" Font.Style="1" ParentFont="False" Text="Població: [frxDBCabecera.&#34;POBLACION&#34;] [frxDBCabecera.&#34;CODIGO_POSTAL&#34;]"/>
+      <TfrxMemoView Name="Memo12" Left="351" Top="126" Width="360" Height="30" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Comic Sans MS" Font.Style="1" ParentFont="False" Text="Adreça: [frxDBCabecera.&#34;CALLE&#34;]"/>
+      <TfrxMemoView Name="Memo13" Left="351" Top="158" Width="360" Height="59" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Comic Sans MS" Font.Style="1" ParentFont="False" Text="Població: [frxDBCabecera.&#34;POBLACION&#34;] [frxDBCabecera.&#34;CODIGO_POSTAL&#34;]"/>
       <TfrxMemoView Name="Memo3" Left="226" Top="271" Width="226" Height="50" ShowHint="False" StretchMode="smActualHeight" AllowHTMLTags="True" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Comic Sans MS" Font.Style="0" LineSpacing="5" ParentFont="False" VAlign="vaBottom" Text="CODI CLIENT: &#60;b&#62;[frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;]&#60;/b&#62;&#13;&#10;CODI PRES: &#60;b&#62;[frxDBCabecera.&#34;REFERENCIA_PRESUPUESTO&#34;]&#60;/b&#62;&#13;&#10;TELÈFON: &#60;b&#62;[frxDBCabecera.&#34;TELEFONO_CLIENTE&#34;]&#60;/b&#62;"/>
       <TfrxMemoView Name="Memo4" Left="544" Top="287" Width="170" Height="34" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Comic Sans MS" Font.Style="0" Frame.Color="14211288" HAlign="haRight" ParentFont="False" VAlign="vaBottom" Text="PÁGINA Nº: [&#60;Pagina&#62;] / [&#60;TotalPaginas&#62;]"/>
     </TfrxPageHeader>