From c6e2664f654aea1bffb184e302410eb2acb522bb Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Fri, 26 Jul 2013 10:08:27 +0000
Subject: [PATCH] =?UTF-8?q?Tarea=20#1252=20->=20En=20empresas=20B,=20al=20?=
 =?UTF-8?q?imprimir=20una=20factura=20de=20cliente=20no=20debe=20salir=20n?=
 =?UTF-8?q?inguna=20direcci=C3=B3n=20de=20Abeto=20ni=20en=20la=20cabecera?=
 =?UTF-8?q?=20ni=20en=20el=20pie?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@76 93f398dd-4eb6-7a46-baf6-13f46f578da2
---
 Source/Informes/3/InfFacturaCliente.fr3 | 4 ++--
 Source/Informes/4/InfFacturaCliente.fr3 | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/Source/Informes/3/InfFacturaCliente.fr3 b/Source/Informes/3/InfFacturaCliente.fr3
index 78a7ea3..6a6d89b 100644
--- a/Source/Informes/3/InfFacturaCliente.fr3
+++ b/Source/Informes/3/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="41451,7766294329" 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;  DatosCliente.Lines.Clear;&#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;     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;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;     Picture5.Visible := True;&#13;&#10;     Picture6.Visible := True;&#13;&#10;     Picture2.Visible := True;&#13;&#10;     DireccionesSinLogotipo.Visible := False;&#13;&#10;     DireccionesConLogotipo.Visible := True;         &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;     Picture1.Visible := False;&#13;&#10;     Picture5.Visible := False;&#13;&#10;     Picture6.Visible := False;&#13;&#10;     Picture2.Visible := False;&#13;&#10;     DireccionesSinLogotipo.Visible := True;&#13;&#10;     DireccionesConLogotipo.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 - 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;       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;      end&#13;&#10;      else begin&#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;      end;  &#13;&#10;  end;  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo30OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBVencimientos.&#34;IMPORTE_TOTAL&#34;&#62; = 0) then&#13;&#10;     Memo30.Visible := False;                                                                        &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C2000000020446174615365744E616D653D22667278444256656E63696D69656E746F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C13000000204E616D653D225665724C6F676F7469706F220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
+<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="41481,5001656829" 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;  DatosCliente.Lines.Clear;&#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;     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;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;     Picture5.Visible := True;&#13;&#10;     Picture6.Visible := True;&#13;&#10;     Picture2.Visible := True;&#13;&#10;     DireccionesSinLogotipo.Visible := False;&#13;&#10;     DireccionesConLogotipo.Visible := True;&#13;&#10;     Memo5.Visible := True;&#13;&#10;     Memo28.Visible := True;                 &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;     Picture1.Visible := False;&#13;&#10;     Picture5.Visible := False;&#13;&#10;     Picture6.Visible := False;&#13;&#10;     Picture2.Visible := False;&#13;&#10;     DireccionesSinLogotipo.Visible := False; // No visualizar ninguna direccion para este informe (porque es en B)                                                                                                                                                                           &#13;&#10;     DireccionesConLogotipo.Visible := False;&#13;&#10;     Memo5.Visible := False;&#13;&#10;     Memo28.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 - 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;       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;      end&#13;&#10;      else begin&#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;      end;  &#13;&#10;  end;  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo30OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBVencimientos.&#34;IMPORTE_TOTAL&#34;&#62; = 0) then&#13;&#10;     Memo30.Visible := False;                                                                        &#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" Height="232" Left="0" Top="16" Width="718,101251175" OnBeforePrint="Band2OnBeforePrint">
@@ -71,7 +71,7 @@
     </TfrxPageFooter>
   </TfrxReportPage>
   <TfrxReportPage Name="Page2" 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="">
-    <TfrxMasterData Name="MasterData1" Height="13,82684" Left="0" Top="16" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBVencimientos" RowCount="0">
+    <TfrxMasterData Name="MasterData1" Height="13,82684" Left="0" Top="16" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDataset1" DataSetName="frxDBVencimientos" RowCount="0">
       <TfrxMemoView Name="Memo31" Left="0" Top="0" Width="79,90569" Height="13,82684" ShowHint="False" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBVencimientos.&#34;FECHA_VENCIMIENTO&#34;]"/>
       <TfrxMemoView Name="Memo40" Left="86,92919" Top="0" Width="98,80334" Height="13,82684" ShowHint="False" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBVencimientos.&#34;IMPORTE_TOTAL&#34;]"/>
     </TfrxMasterData>
diff --git a/Source/Informes/4/InfFacturaCliente.fr3 b/Source/Informes/4/InfFacturaCliente.fr3
index 66643b3..421c155 100644
--- a/Source/Informes/4/InfFacturaCliente.fr3
+++ b/Source/Informes/4/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="41451,7775036343" 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;  DatosCliente.Lines.Clear;&#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;     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;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;     Picture5.Visible := True;&#13;&#10;     Picture6.Visible := True;&#13;&#10;     Picture2.Visible := True;&#13;&#10;     DireccionesSinLogotipo.Visible := False;&#13;&#10;     DireccionesConLogotipo.Visible := True;         &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;     Picture1.Visible := False;&#13;&#10;     Picture5.Visible := False;&#13;&#10;     Picture6.Visible := False;&#13;&#10;     Picture2.Visible := False;&#13;&#10;     DireccionesSinLogotipo.Visible := True;&#13;&#10;     DireccionesConLogotipo.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 - 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;       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;      end&#13;&#10;      else begin&#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;      end;  &#13;&#10;  end;  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo30OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBVencimientos.&#34;IMPORTE_TOTAL&#34;&#62; = 0) then&#13;&#10;     Memo30.Visible := False;                                                                        &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C2000000020446174615365744E616D653D22667278444256656E63696D69656E746F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C13000000204E616D653D225665724C6F676F7469706F220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
+<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="41481,501203912" 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;  DatosCliente.Lines.Clear;&#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;     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;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;     Picture5.Visible := True;&#13;&#10;     Picture6.Visible := True;&#13;&#10;     Picture2.Visible := True;&#13;&#10;     DireccionesSinLogotipo.Visible := False;&#13;&#10;     DireccionesConLogotipo.Visible := True;&#13;&#10;     Memo5.Visible := True;&#13;&#10;     Memo28.Visible := True;         &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;     Picture1.Visible := False;&#13;&#10;     Picture5.Visible := False;&#13;&#10;     Picture6.Visible := False;&#13;&#10;     Picture2.Visible := False;&#13;&#10;     DireccionesSinLogotipo.Visible := False; // No visualizar ninguna direccion para este informe (porque es en B)                                                                                                                                                                           &#13;&#10;     DireccionesConLogotipo.Visible := False;&#13;&#10;     Memo5.Visible := False;&#13;&#10;     Memo28.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 - 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;       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;      end&#13;&#10;      else begin&#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;      end;  &#13;&#10;  end;  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo30OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBVencimientos.&#34;IMPORTE_TOTAL&#34;&#62; = 0) then&#13;&#10;     Memo30.Visible := False;                                                                        &#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" Height="232" Left="0" Top="16" Width="718,101251175" OnBeforePrint="Band2OnBeforePrint">
@@ -69,7 +69,7 @@
     </TfrxPageFooter>
   </TfrxReportPage>
   <TfrxReportPage Name="Page2" 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="">
-    <TfrxMasterData Name="MasterData1" Height="13,82684" Left="0" Top="16" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBVencimientos" RowCount="0">
+    <TfrxMasterData Name="MasterData1" Height="13,82684" Left="0" Top="16" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDataset1" DataSetName="frxDBVencimientos" RowCount="0">
       <TfrxMemoView Name="Memo31" Left="0" Top="0" Width="79,90569" Height="13,82684" ShowHint="False" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBVencimientos.&#34;FECHA_VENCIMIENTO&#34;]"/>
       <TfrxMemoView Name="Memo40" Left="86,92919" Top="0" Width="98,80334" Height="13,82684" ShowHint="False" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBVencimientos.&#34;IMPORTE_TOTAL&#34;]"/>
     </TfrxMasterData>