From b2391f5b05abfe63a08fe528c363a4f4753bb16d Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Thu, 19 Jul 2018 11:58:14 +0000
Subject: [PATCH] Se solicita que las cantidades salgan como numeros decimales
 y no solo enteros

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

diff --git a/Source/Informes/1/InfFacturaCliente.fr3 b/Source/Informes/1/InfFacturaCliente.fr3
index ed92c4d..695f483 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="43248,6742525579" 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;     Picture6.Visible := True;&#13;&#10;     Picture2.Visible := True;          &#13;&#10;     Direcciones.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;     Picture6.Visible := False;&#13;&#10;     Picture2.Visible := False;&#13;&#10;     Direcciones.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;         eRetencion.Top := eRetencion.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         Retencion.Top := Retencion.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         etotalfinal.Top := etotalfinal.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         totalfinal.Top := totalfinal.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eImporteneto.Visible := True;&#13;&#10;         Importeneto.Visible := True;&#13;&#10;         eDescuento.Visible := True;&#13;&#10;         Descuento.Visible := True;     &#13;&#10;       end;&#13;&#10;&#13;&#10;       if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; = 0) then&#13;&#10;       begin                     &#13;&#10;         eRe.Top := eRe.Top - eIva.Height;                &#13;&#10;         Re.Top := Re.Top - eIva.Height;&#13;&#10;         eImportetotal.Top := eImportetotal.Top - eIva.Height;&#13;&#10;         Importetotal.Top := Importetotal.Top - eIva.Height;&#13;&#10;         eRetencion.Top := eRetencion.Top - eIva.Height;&#13;&#10;         Retencion.Top := Retencion.Top - eIva.Height;&#13;&#10;         etotalfinal.Top := etotalfinal.Top - eIva.Height;&#13;&#10;         totalfinal.Top := totalfinal.Top - eIva.Height;             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eIva.Visible := True;&#13;&#10;         Iva.Visible := True;         &#13;&#10;       end;  &#13;&#10;                       &#13;&#10;       if (&#60;frxDBCabecera.&#34;RE&#34;&#62; = 0) then&#13;&#10;       begin&#13;&#10;         eImportetotal.Top := eImportetotal.Top - eRe.Height;&#13;&#10;         Importetotal.Top := Importetotal.Top - eRe.Height;                                             &#13;&#10;         eRetencion.Top := eRetencion.Top - eRe.Height;&#13;&#10;         Retencion.Top := Retencion.Top - eRe.Height;&#13;&#10;         etotalfinal.Top := etotalfinal.Top - eRe.Height;&#13;&#10;         totalfinal.Top := totalfinal.Top - eRe.Height;             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eRe.Visible := True;&#13;&#10;         Re.Visible := True;         &#13;&#10;       end;  &#13;&#10;  &#13;&#10;       if (&#60;frxDBCabecera.&#34;RETENCION&#34;&#62; &#60;&#62; 0) then&#13;&#10;       begin&#13;&#10;         eRetencion.Visible := True;&#13;&#10;         Retencion.Visible := True;&#13;&#10;         eTotalFinal.Visible := True;&#13;&#10;         TotalFinal.Visible := True;&#13;&#10;       end;&#13;&#10;&#13;&#10;       eBaseimponible.Visible := True;&#13;&#10;       Baseimponible.Visible := True;&#13;&#10;       eImportetotal.Visible := True;         &#13;&#10;       Importetotal.Visible := True;&#13;&#10;//    end&#13;&#10;  end; //Engine.FinalPass      &#13;&#10;&#13;&#10; if Engine.FreeSpace &#62; ReportSummary1.Height then    &#13;&#10;    Engine.CurY := Engine.PageHeight - ReportSummary1.Height - PageFooter1.Height - 1;    &#13;&#10;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;procedure Memo1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;//  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Concepto') then&#13;&#10;//  begin&#13;&#10;//    Memo1.Color := clNone;&#13;&#10;//    MemCantidad.Color := clNone;          &#13;&#10;//    MemPrecio.Color := clNone;&#13;&#10;//    Memo11.Color := clNone;&#13;&#10;//    MemImpTotal.Color := clNone;        &#13;&#10;//  end&#13;&#10;//  else&#13;&#10;//  begin              &#13;&#10;//       Memo1.Color := clCream;&#13;&#10;//       MemCantidad.Color := clCream;           &#13;&#10;//       MemPrecio.Color := clCream;&#13;&#10;//       Memo11.Color := clCream;  &#13;&#10;//       MemImpTotal.Color := clCream;             &#13;&#10;//  end;                     &#13;&#10;end;&#13;&#10;&#13;&#10;&#13;&#10;procedure MemPrecioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Concepto') then&#13;&#10;     if (&#60;frxDBDetalles.&#34;VISIBLE&#34;&#62; = '0') then&#13;&#10;         MemPrecio.Lines.Clear;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Concepto') then&#13;&#10;     if (&#60;frxDBDetalles.&#34;VISIBLE&#34;&#62; = '0') then&#13;&#10;         Memo11.Lines.Clear;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure MemImpTotalOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Concepto') then&#13;&#10;     if (&#60;frxDBDetalles.&#34;VISIBLE&#34;&#62; = '0') then&#13;&#10;         MemImpTotal.Lines.Clear;&#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="43300,5813485532" 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;     Picture6.Visible := True;&#13;&#10;     Picture2.Visible := True;          &#13;&#10;     Direcciones.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;     Picture6.Visible := False;&#13;&#10;     Picture2.Visible := False;&#13;&#10;     Direcciones.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;         eRetencion.Top := eRetencion.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         Retencion.Top := Retencion.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         etotalfinal.Top := etotalfinal.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         totalfinal.Top := totalfinal.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eImporteneto.Visible := True;&#13;&#10;         Importeneto.Visible := True;&#13;&#10;         eDescuento.Visible := True;&#13;&#10;         Descuento.Visible := True;     &#13;&#10;       end;&#13;&#10;&#13;&#10;       if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; = 0) then&#13;&#10;       begin                     &#13;&#10;         eRe.Top := eRe.Top - eIva.Height;                &#13;&#10;         Re.Top := Re.Top - eIva.Height;&#13;&#10;         eImportetotal.Top := eImportetotal.Top - eIva.Height;&#13;&#10;         Importetotal.Top := Importetotal.Top - eIva.Height;&#13;&#10;         eRetencion.Top := eRetencion.Top - eIva.Height;&#13;&#10;         Retencion.Top := Retencion.Top - eIva.Height;&#13;&#10;         etotalfinal.Top := etotalfinal.Top - eIva.Height;&#13;&#10;         totalfinal.Top := totalfinal.Top - eIva.Height;             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eIva.Visible := True;&#13;&#10;         Iva.Visible := True;         &#13;&#10;       end;  &#13;&#10;                       &#13;&#10;       if (&#60;frxDBCabecera.&#34;RE&#34;&#62; = 0) then&#13;&#10;       begin&#13;&#10;         eImportetotal.Top := eImportetotal.Top - eRe.Height;&#13;&#10;         Importetotal.Top := Importetotal.Top - eRe.Height;                                             &#13;&#10;         eRetencion.Top := eRetencion.Top - eRe.Height;&#13;&#10;         Retencion.Top := Retencion.Top - eRe.Height;&#13;&#10;         etotalfinal.Top := etotalfinal.Top - eRe.Height;&#13;&#10;         totalfinal.Top := totalfinal.Top - eRe.Height;             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eRe.Visible := True;&#13;&#10;         Re.Visible := True;         &#13;&#10;       end;  &#13;&#10;  &#13;&#10;       if (&#60;frxDBCabecera.&#34;RETENCION&#34;&#62; &#60;&#62; 0) then&#13;&#10;       begin&#13;&#10;         eRetencion.Visible := True;&#13;&#10;         Retencion.Visible := True;&#13;&#10;         eTotalFinal.Visible := True;&#13;&#10;         TotalFinal.Visible := True;&#13;&#10;       end;&#13;&#10;&#13;&#10;       eBaseimponible.Visible := True;&#13;&#10;       Baseimponible.Visible := True;&#13;&#10;       eImportetotal.Visible := True;         &#13;&#10;       Importetotal.Visible := True;&#13;&#10;//    end&#13;&#10;  end; //Engine.FinalPass      &#13;&#10;&#13;&#10; if Engine.FreeSpace &#62; ReportSummary1.Height then    &#13;&#10;    Engine.CurY := Engine.PageHeight - ReportSummary1.Height - PageFooter1.Height - 1;    &#13;&#10;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;procedure Memo1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;//  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Concepto') then&#13;&#10;//  begin&#13;&#10;//    Memo1.Color := clNone;&#13;&#10;//    MemCantidad.Color := clNone;          &#13;&#10;//    MemPrecio.Color := clNone;&#13;&#10;//    Memo11.Color := clNone;&#13;&#10;//    MemImpTotal.Color := clNone;        &#13;&#10;//  end&#13;&#10;//  else&#13;&#10;//  begin              &#13;&#10;//       Memo1.Color := clCream;&#13;&#10;//       MemCantidad.Color := clCream;           &#13;&#10;//       MemPrecio.Color := clCream;&#13;&#10;//       Memo11.Color := clCream;  &#13;&#10;//       MemImpTotal.Color := clCream;             &#13;&#10;//  end;                     &#13;&#10;end;&#13;&#10;&#13;&#10;&#13;&#10;procedure MemPrecioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Concepto') then&#13;&#10;     if (&#60;frxDBDetalles.&#34;VISIBLE&#34;&#62; = '0') then&#13;&#10;         MemPrecio.Lines.Clear;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Concepto') then&#13;&#10;     if (&#60;frxDBDetalles.&#34;VISIBLE&#34;&#62; = '0') then&#13;&#10;         Memo11.Lines.Clear;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure MemImpTotalOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Concepto') then&#13;&#10;     if (&#60;frxDBDetalles.&#34;VISIBLE&#34;&#62; = '0') then&#13;&#10;         MemImpTotal.Lines.Clear;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C2000000020446174615365744E616D653D22667278444256656E63696D69656E746F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C13000000204E616D653D225665724C6F676F7469706F220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
   <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="250" Left="0" Top="16" Width="718,101251175" OnBeforePrint="Band2OnBeforePrint">
@@ -14,7 +14,7 @@
     </TfrxPageHeader>
     <TfrxMasterData Name="BandaDetalles" Height="22" Left="0" Top="372" Width="718,101251175" AllowSplit="True" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
       <TfrxMemoView Name="Memo1" Left="10" Top="0" Width="417" Height="20" OnBeforePrint="Memo1OnBeforePrint" ShowHint="False" StretchMode="smActualHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" GapX="4" GapY="4" ParentFont="False" WordBreak="True" Text="[frxDBDetalles.&#34;CONCEPTO&#34;]"/>
-      <TfrxMemoView Name="MemCantidad" Align="baLeft" Left="427" Top="0" Width="60" Height="20" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;CANTIDAD&#34;]"/>
+      <TfrxMemoView Name="MemCantidad" Align="baLeft" Left="427" Top="0" Width="60" Height="20" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2f" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;CANTIDAD&#34;]"/>
       <TfrxMemoView Name="MemPrecio" Align="baLeft" Left="487" Top="0" Width="90" Height="20" OnBeforePrint="MemPrecioOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_UNIDAD&#34;]"/>
       <TfrxMemoView Name="MemImpTotal" Align="baLeft" Left="630" Top="0" Width="88" Height="20" OnBeforePrint="MemImpTotalOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_TOTAL&#34;]"/>
       <TfrxMemoView Name="Memo11" Align="baLeft" Left="577" Top="0" Width="53" Height="20" OnBeforePrint="Memo11OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 %" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;DESCUENTO&#34;]"/>
diff --git a/Source/Informes/2/InfFacturaCliente.fr3 b/Source/Informes/2/InfFacturaCliente.fr3
index 3954f1b..b512bfd 100644
--- a/Source/Informes/2/InfFacturaCliente.fr3
+++ b/Source/Informes/2/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="43248,4563329977" 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;     DireccionesSinLogotipo.Visible := False;&#13;&#10;     DireccionesConLogotipo.Visible := True;         &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;     Picture1.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;         eRetencion.Top := eRetencion.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         Retencion.Top := Retencion.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         etotalfinal.Top := etotalfinal.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         totalfinal.Top := totalfinal.Top - (eImporteneto.Height + eDescuento.Height);             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eImporteneto.Visible := True;&#13;&#10;         Importeneto.Visible := True;&#13;&#10;         eDescuento.Visible := True;&#13;&#10;         Descuento.Visible := True;     &#13;&#10;       end;&#13;&#10;                                                       &#13;&#10;       if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; = 0) then&#13;&#10;       begin                     &#13;&#10;         eRe.Top := eRe.Top - eIva.Height;                &#13;&#10;         Re.Top := Re.Top - eIva.Height;&#13;&#10;         eImportetotal.Top := eImportetotal.Top - eIva.Height;&#13;&#10;         Importetotal.Top := Importetotal.Top - eIva.Height;&#13;&#10;         eRetencion.Top := eRetencion.Top - eIva.Height;&#13;&#10;         Retencion.Top := Retencion.Top - eIva.Height;&#13;&#10;         etotalfinal.Top := etotalfinal.Top - eIva.Height;&#13;&#10;         totalfinal.Top := totalfinal.Top - eIva.Height;             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eIva.Visible := True;&#13;&#10;         Iva.Visible := True;         &#13;&#10;       end;  &#13;&#10;                       &#13;&#10;       if (&#60;frxDBCabecera.&#34;RE&#34;&#62; = 0) then&#13;&#10;       begin&#13;&#10;         eImportetotal.Top := eImportetotal.Top - eRe.Height;&#13;&#10;         Importetotal.Top := Importetotal.Top - eRe.Height;                                             &#13;&#10;         eRetencion.Top := eRetencion.Top - eRe.Height;&#13;&#10;         Retencion.Top := Retencion.Top - eRe.Height;&#13;&#10;         etotalfinal.Top := etotalfinal.Top - eRe.Height;&#13;&#10;         totalfinal.Top := totalfinal.Top - eRe.Height;             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eRe.Visible := True;&#13;&#10;         Re.Visible := True;         &#13;&#10;       end;  &#13;&#10;  &#13;&#10;       if (&#60;frxDBCabecera.&#34;RETENCION&#34;&#62; &#60;&#62; 0) then&#13;&#10;       begin&#13;&#10;         eRetencion.Visible := True;&#13;&#10;         Retencion.Visible := True;&#13;&#10;         eTotalFinal.Visible := True;&#13;&#10;         TotalFinal.Visible := True;&#13;&#10;       end;&#13;&#10;  &#13;&#10;       eBaseimponible.Visible := True;&#13;&#10;       Baseimponible.Visible := True;&#13;&#10;       eImportetotal.Visible := True;         &#13;&#10;       Importetotal.Visible := True;&#13;&#10;//    end&#13;&#10;  end; //Engine.FinalPass      &#13;&#10;&#13;&#10; if Engine.FreeSpace &#62; ReportSummary1.Height then    &#13;&#10;    Engine.CurY := Engine.PageHeight - ReportSummary1.Height - PageFooter1.Height - 1;    &#13;&#10;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;procedure MemPrecioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Concepto') then&#13;&#10;     if (&#60;frxDBDetalles.&#34;VISIBLE&#34;&#62; = '0') then&#13;&#10;         MemPrecio.Lines.Clear;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Concepto') then&#13;&#10;     if (&#60;frxDBDetalles.&#34;VISIBLE&#34;&#62; = '0') then&#13;&#10;         Memo11.Lines.Clear;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure MemImpTotalOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Concepto') then&#13;&#10;     if (&#60;frxDBDetalles.&#34;VISIBLE&#34;&#62; = '0') then&#13;&#10;         MemImpTotal.Lines.Clear;&#13;&#10;end;&#13;&#10;&#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="43300,5808571991" 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;     DireccionesSinLogotipo.Visible := False;&#13;&#10;     DireccionesConLogotipo.Visible := True;         &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;     Picture1.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;         eRetencion.Top := eRetencion.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         Retencion.Top := Retencion.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         etotalfinal.Top := etotalfinal.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         totalfinal.Top := totalfinal.Top - (eImporteneto.Height + eDescuento.Height);             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eImporteneto.Visible := True;&#13;&#10;         Importeneto.Visible := True;&#13;&#10;         eDescuento.Visible := True;&#13;&#10;         Descuento.Visible := True;     &#13;&#10;       end;&#13;&#10;                                                       &#13;&#10;       if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; = 0) then&#13;&#10;       begin                     &#13;&#10;         eRe.Top := eRe.Top - eIva.Height;                &#13;&#10;         Re.Top := Re.Top - eIva.Height;&#13;&#10;         eImportetotal.Top := eImportetotal.Top - eIva.Height;&#13;&#10;         Importetotal.Top := Importetotal.Top - eIva.Height;&#13;&#10;         eRetencion.Top := eRetencion.Top - eIva.Height;&#13;&#10;         Retencion.Top := Retencion.Top - eIva.Height;&#13;&#10;         etotalfinal.Top := etotalfinal.Top - eIva.Height;&#13;&#10;         totalfinal.Top := totalfinal.Top - eIva.Height;             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eIva.Visible := True;&#13;&#10;         Iva.Visible := True;         &#13;&#10;       end;  &#13;&#10;                       &#13;&#10;       if (&#60;frxDBCabecera.&#34;RE&#34;&#62; = 0) then&#13;&#10;       begin&#13;&#10;         eImportetotal.Top := eImportetotal.Top - eRe.Height;&#13;&#10;         Importetotal.Top := Importetotal.Top - eRe.Height;                                             &#13;&#10;         eRetencion.Top := eRetencion.Top - eRe.Height;&#13;&#10;         Retencion.Top := Retencion.Top - eRe.Height;&#13;&#10;         etotalfinal.Top := etotalfinal.Top - eRe.Height;&#13;&#10;         totalfinal.Top := totalfinal.Top - eRe.Height;             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eRe.Visible := True;&#13;&#10;         Re.Visible := True;         &#13;&#10;       end;  &#13;&#10;  &#13;&#10;       if (&#60;frxDBCabecera.&#34;RETENCION&#34;&#62; &#60;&#62; 0) then&#13;&#10;       begin&#13;&#10;         eRetencion.Visible := True;&#13;&#10;         Retencion.Visible := True;&#13;&#10;         eTotalFinal.Visible := True;&#13;&#10;         TotalFinal.Visible := True;&#13;&#10;       end;&#13;&#10;  &#13;&#10;       eBaseimponible.Visible := True;&#13;&#10;       Baseimponible.Visible := True;&#13;&#10;       eImportetotal.Visible := True;         &#13;&#10;       Importetotal.Visible := True;&#13;&#10;//    end&#13;&#10;  end; //Engine.FinalPass      &#13;&#10;&#13;&#10; if Engine.FreeSpace &#62; ReportSummary1.Height then    &#13;&#10;    Engine.CurY := Engine.PageHeight - ReportSummary1.Height - PageFooter1.Height - 1;    &#13;&#10;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;procedure MemPrecioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Concepto') then&#13;&#10;     if (&#60;frxDBDetalles.&#34;VISIBLE&#34;&#62; = '0') then&#13;&#10;         MemPrecio.Lines.Clear;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Concepto') then&#13;&#10;     if (&#60;frxDBDetalles.&#34;VISIBLE&#34;&#62; = '0') then&#13;&#10;         Memo11.Lines.Clear;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure MemImpTotalOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Concepto') then&#13;&#10;     if (&#60;frxDBDetalles.&#34;VISIBLE&#34;&#62; = '0') then&#13;&#10;         MemImpTotal.Lines.Clear;&#13;&#10;end;&#13;&#10;&#13;&#10;    &#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C2000000020446174615365744E616D653D22667278444256656E63696D69656E746F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C13000000204E616D653D225665724C6F676F7469706F220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
   <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">
@@ -16,7 +16,7 @@
     </TfrxPageHeader>
     <TfrxMasterData Name="BandaDetalles" Height="22" Left="0" Top="354" Width="718,101251175" OnBeforePrint="BandaDetallesOnBeforePrint" AllowSplit="True" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
       <TfrxMemoView Name="Memo1" Left="3" Top="0" Width="425" Height="20" ShowHint="False" StretchMode="smActualHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" GapX="4" GapY="4" ParentFont="False" WordBreak="True" Text="[frxDBDetalles.&#34;CONCEPTO&#34;]"/>
-      <TfrxMemoView Name="MemCantidad" Align="baLeft" Left="428" Top="0" Width="60" Height="20" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;CANTIDAD&#34;]"/>
+      <TfrxMemoView Name="MemCantidad" Align="baLeft" Left="428" Top="0" Width="60" Height="20" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2f" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;CANTIDAD&#34;]"/>
       <TfrxMemoView Name="MemPrecio" Align="baLeft" Left="488" Top="0" Width="90" Height="20" OnBeforePrint="MemPrecioOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_UNIDAD&#34;]"/>
       <TfrxMemoView Name="MemImpTotal" Align="baLeft" Left="631" Top="0" Width="88" Height="20" OnBeforePrint="MemImpTotalOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_TOTAL&#34;]"/>
       <TfrxMemoView Name="Memo11" Align="baLeft" Left="578" Top="0" Width="53" Height="20" OnBeforePrint="Memo11OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 %" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;DESCUENTO&#34;]"/>
diff --git a/Source/Informes/3/InfFacturaCliente.fr3 b/Source/Informes/3/InfFacturaCliente.fr3
index 04a331c..236a814 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="43248,4547113657" 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;     DireccionesSinLogotipo.Visible := False;&#13;&#10;     DireccionesConLogotipo.Visible := True;         &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;     Picture1.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;         eRetencion.Top := eRetencion.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         Retencion.Top := Retencion.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         etotalfinal.Top := etotalfinal.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         totalfinal.Top := totalfinal.Top - (eImporteneto.Height + eDescuento.Height);             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eImporteneto.Visible := True;&#13;&#10;         Importeneto.Visible := True;&#13;&#10;         eDescuento.Visible := True;&#13;&#10;         Descuento.Visible := True;     &#13;&#10;       end;&#13;&#10;                                                       &#13;&#10;       if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; = 0) then&#13;&#10;       begin                     &#13;&#10;         eRe.Top := eRe.Top - eIva.Height;                &#13;&#10;         Re.Top := Re.Top - eIva.Height;&#13;&#10;         eImportetotal.Top := eImportetotal.Top - eIva.Height;&#13;&#10;         Importetotal.Top := Importetotal.Top - eIva.Height;&#13;&#10;         eRetencion.Top := eRetencion.Top - eIva.Height;&#13;&#10;         Retencion.Top := Retencion.Top - eIva.Height;&#13;&#10;         etotalfinal.Top := etotalfinal.Top - eIva.Height;&#13;&#10;         totalfinal.Top := totalfinal.Top - eIva.Height;             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eIva.Visible := True;&#13;&#10;         Iva.Visible := True;         &#13;&#10;       end;  &#13;&#10;                       &#13;&#10;       if (&#60;frxDBCabecera.&#34;RE&#34;&#62; = 0) then&#13;&#10;       begin&#13;&#10;         eImportetotal.Top := eImportetotal.Top - eRe.Height;&#13;&#10;         Importetotal.Top := Importetotal.Top - eRe.Height;                                             &#13;&#10;         eRetencion.Top := eRetencion.Top - eRe.Height;&#13;&#10;         Retencion.Top := Retencion.Top - eRe.Height;&#13;&#10;         etotalfinal.Top := etotalfinal.Top - eRe.Height;&#13;&#10;         totalfinal.Top := totalfinal.Top - eRe.Height;             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eRe.Visible := True;&#13;&#10;         Re.Visible := True;         &#13;&#10;       end;  &#13;&#10;  &#13;&#10;       if (&#60;frxDBCabecera.&#34;RETENCION&#34;&#62; &#60;&#62; 0) then&#13;&#10;       begin&#13;&#10;         eRetencion.Visible := True;&#13;&#10;         Retencion.Visible := True;&#13;&#10;         eTotalFinal.Visible := True;&#13;&#10;         TotalFinal.Visible := True;&#13;&#10;       end;&#13;&#10;  &#13;&#10;       eBaseimponible.Visible := True;&#13;&#10;       Baseimponible.Visible := True;&#13;&#10;       eImportetotal.Visible := True;         &#13;&#10;       Importetotal.Visible := True;&#13;&#10;//    end&#13;&#10;  end; //Engine.FinalPass      &#13;&#10;&#13;&#10; if Engine.FreeSpace &#62; ReportSummary1.Height then    &#13;&#10;    Engine.CurY := Engine.PageHeight - ReportSummary1.Height - PageFooter1.Height - 1;    &#13;&#10;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;procedure MemPrecioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Concepto') then&#13;&#10;     if (&#60;frxDBDetalles.&#34;VISIBLE&#34;&#62; = '0') then&#13;&#10;         MemPrecio.Lines.Clear;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Concepto') then&#13;&#10;     if (&#60;frxDBDetalles.&#34;VISIBLE&#34;&#62; = '0') then&#13;&#10;         Memo11.Lines.Clear;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure MemImpTotalOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Concepto') then&#13;&#10;     if (&#60;frxDBDetalles.&#34;VISIBLE&#34;&#62; = '0') then&#13;&#10;         MemImpTotal.Lines.Clear;&#13;&#10;end;&#13;&#10;  &#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="43300,5817324884" 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;     DireccionesSinLogotipo.Visible := False;&#13;&#10;     DireccionesConLogotipo.Visible := True;         &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;     Picture1.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;         eRetencion.Top := eRetencion.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         Retencion.Top := Retencion.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         etotalfinal.Top := etotalfinal.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         totalfinal.Top := totalfinal.Top - (eImporteneto.Height + eDescuento.Height);             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eImporteneto.Visible := True;&#13;&#10;         Importeneto.Visible := True;&#13;&#10;         eDescuento.Visible := True;&#13;&#10;         Descuento.Visible := True;     &#13;&#10;       end;&#13;&#10;                                                       &#13;&#10;       if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; = 0) then&#13;&#10;       begin                     &#13;&#10;         eRe.Top := eRe.Top - eIva.Height;                &#13;&#10;         Re.Top := Re.Top - eIva.Height;&#13;&#10;         eImportetotal.Top := eImportetotal.Top - eIva.Height;&#13;&#10;         Importetotal.Top := Importetotal.Top - eIva.Height;&#13;&#10;         eRetencion.Top := eRetencion.Top - eIva.Height;&#13;&#10;         Retencion.Top := Retencion.Top - eIva.Height;&#13;&#10;         etotalfinal.Top := etotalfinal.Top - eIva.Height;&#13;&#10;         totalfinal.Top := totalfinal.Top - eIva.Height;             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eIva.Visible := True;&#13;&#10;         Iva.Visible := True;         &#13;&#10;       end;  &#13;&#10;                       &#13;&#10;       if (&#60;frxDBCabecera.&#34;RE&#34;&#62; = 0) then&#13;&#10;       begin&#13;&#10;         eImportetotal.Top := eImportetotal.Top - eRe.Height;&#13;&#10;         Importetotal.Top := Importetotal.Top - eRe.Height;                                             &#13;&#10;         eRetencion.Top := eRetencion.Top - eRe.Height;&#13;&#10;         Retencion.Top := Retencion.Top - eRe.Height;&#13;&#10;         etotalfinal.Top := etotalfinal.Top - eRe.Height;&#13;&#10;         totalfinal.Top := totalfinal.Top - eRe.Height;             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eRe.Visible := True;&#13;&#10;         Re.Visible := True;         &#13;&#10;       end;  &#13;&#10;  &#13;&#10;       if (&#60;frxDBCabecera.&#34;RETENCION&#34;&#62; &#60;&#62; 0) then&#13;&#10;       begin&#13;&#10;         eRetencion.Visible := True;&#13;&#10;         Retencion.Visible := True;&#13;&#10;         eTotalFinal.Visible := True;&#13;&#10;         TotalFinal.Visible := True;&#13;&#10;       end;&#13;&#10;  &#13;&#10;       eBaseimponible.Visible := True;&#13;&#10;       Baseimponible.Visible := True;&#13;&#10;       eImportetotal.Visible := True;         &#13;&#10;       Importetotal.Visible := True;&#13;&#10;//    end&#13;&#10;  end; //Engine.FinalPass      &#13;&#10;&#13;&#10; if Engine.FreeSpace &#62; ReportSummary1.Height then    &#13;&#10;    Engine.CurY := Engine.PageHeight - ReportSummary1.Height - PageFooter1.Height - 1;    &#13;&#10;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;procedure MemPrecioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Concepto') then&#13;&#10;     if (&#60;frxDBDetalles.&#34;VISIBLE&#34;&#62; = '0') then&#13;&#10;         MemPrecio.Lines.Clear;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Concepto') then&#13;&#10;     if (&#60;frxDBDetalles.&#34;VISIBLE&#34;&#62; = '0') then&#13;&#10;         Memo11.Lines.Clear;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure MemImpTotalOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Concepto') then&#13;&#10;     if (&#60;frxDBDetalles.&#34;VISIBLE&#34;&#62; = '0') then&#13;&#10;         MemImpTotal.Lines.Clear;&#13;&#10;end;&#13;&#10;  &#13;&#10;      &#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C2000000020446174615365744E616D653D22667278444256656E63696D69656E746F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C13000000204E616D653D225665724C6F676F7469706F220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
   <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">
@@ -16,7 +16,7 @@
     </TfrxPageHeader>
     <TfrxMasterData Name="BandaDetalles" Height="22" Left="0" Top="354" Width="718,101251175" OnBeforePrint="BandaDetallesOnBeforePrint" AllowSplit="True" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
       <TfrxMemoView Name="Memo1" Left="3" Top="0" Width="425" Height="20" ShowHint="False" StretchMode="smActualHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" GapX="4" GapY="4" ParentFont="False" WordBreak="True" Text="[frxDBDetalles.&#34;CONCEPTO&#34;]"/>
-      <TfrxMemoView Name="MemCantidad" Align="baLeft" Left="428" Top="0" Width="60" Height="20" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;CANTIDAD&#34;]"/>
+      <TfrxMemoView Name="MemCantidad" Align="baLeft" Left="428" Top="0" Width="60" Height="20" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2f" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;CANTIDAD&#34;]"/>
       <TfrxMemoView Name="MemPrecio" Align="baLeft" Left="488" Top="0" Width="90" Height="20" OnBeforePrint="MemPrecioOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_UNIDAD&#34;]"/>
       <TfrxMemoView Name="MemImpTotal" Align="baLeft" Left="631" Top="0" Width="88" Height="20" OnBeforePrint="MemImpTotalOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_TOTAL&#34;]"/>
       <TfrxMemoView Name="Memo11" Align="baLeft" Left="578" Top="0" Width="53" Height="20" OnBeforePrint="Memo11OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 %" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;DESCUENTO&#34;]"/>
diff --git a/Source/Informes/4/InfFacturaCliente.fr3 b/Source/Informes/4/InfFacturaCliente.fr3
index ee43d07..9209e7a 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="43248,6787344444" 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;     Picture6.Visible := True;&#13;&#10;     Picture2.Visible := True;&#13;&#10;     DireccionesSinLogotipo.Visible := False;&#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;     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;     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;         eRetencion.Top := eRetencion.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         Retencion.Top := Retencion.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         etotalfinal.Top := etotalfinal.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         totalfinal.Top := totalfinal.Top - (eImporteneto.Height + eDescuento.Height);             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eImporteneto.Visible := True;&#13;&#10;         Importeneto.Visible := True;&#13;&#10;         eDescuento.Visible := True;&#13;&#10;         Descuento.Visible := True;     &#13;&#10;       end;&#13;&#10;                                                       &#13;&#10;       if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; = 0) then&#13;&#10;       begin                     &#13;&#10;         eRe.Top := eRe.Top - eIva.Height;                &#13;&#10;         Re.Top := Re.Top - eIva.Height;&#13;&#10;         eImportetotal.Top := eImportetotal.Top - eIva.Height;&#13;&#10;         Importetotal.Top := Importetotal.Top - eIva.Height;&#13;&#10;         eRetencion.Top := eRetencion.Top - eIva.Height;&#13;&#10;         Retencion.Top := Retencion.Top - eIva.Height;&#13;&#10;         etotalfinal.Top := etotalfinal.Top - eIva.Height;&#13;&#10;         totalfinal.Top := totalfinal.Top - eIva.Height;             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eIva.Visible := True;&#13;&#10;         Iva.Visible := True;         &#13;&#10;       end;  &#13;&#10;                       &#13;&#10;       if (&#60;frxDBCabecera.&#34;RE&#34;&#62; = 0) then&#13;&#10;       begin&#13;&#10;         eImportetotal.Top := eImportetotal.Top - eRe.Height;&#13;&#10;         Importetotal.Top := Importetotal.Top - eRe.Height;                                             &#13;&#10;         eRetencion.Top := eRetencion.Top - eRe.Height;&#13;&#10;         Retencion.Top := Retencion.Top - eRe.Height;&#13;&#10;         etotalfinal.Top := etotalfinal.Top - eRe.Height;&#13;&#10;         totalfinal.Top := totalfinal.Top - eRe.Height;             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eRe.Visible := True;&#13;&#10;         Re.Visible := True;         &#13;&#10;       end;  &#13;&#10;  &#13;&#10;       if (&#60;frxDBCabecera.&#34;RETENCION&#34;&#62; &#60;&#62; 0) then&#13;&#10;       begin&#13;&#10;         eRetencion.Visible := True;&#13;&#10;         Retencion.Visible := True;&#13;&#10;         eTotalFinal.Visible := True;&#13;&#10;         TotalFinal.Visible := True;&#13;&#10;       end;&#13;&#10;    &#13;&#10;       eBaseimponible.Visible := True;&#13;&#10;       Baseimponible.Visible := True;&#13;&#10;       eImportetotal.Visible := True;         &#13;&#10;       Importetotal.Visible := True;&#13;&#10;//    end&#13;&#10;  end; //Engine.FinalPass      &#13;&#10;&#13;&#10; if Engine.FreeSpace &#62; ReportSummary1.Height then    &#13;&#10;    Engine.CurY := Engine.PageHeight - ReportSummary1.Height - PageFooter1.Height - 1;    &#13;&#10;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;procedure MemPrecioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Concepto') then&#13;&#10;     if (&#60;frxDBDetalles.&#34;VISIBLE&#34;&#62; = '0') then&#13;&#10;         MemPrecio.Lines.Clear;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Concepto') then&#13;&#10;     if (&#60;frxDBDetalles.&#34;VISIBLE&#34;&#62; = '0') then&#13;&#10;         Memo11.Lines.Clear;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure MemImpTotalOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Concepto') then&#13;&#10;     if (&#60;frxDBDetalles.&#34;VISIBLE&#34;&#62; = '0') then&#13;&#10;         MemImpTotal.Lines.Clear;&#13;&#10;end;&#13;&#10;  &#13;&#10;&#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="43300,5818634259" 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;     Picture6.Visible := True;&#13;&#10;     Picture2.Visible := True;&#13;&#10;     DireccionesSinLogotipo.Visible := False;&#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;     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;     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;         eRetencion.Top := eRetencion.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         Retencion.Top := Retencion.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         etotalfinal.Top := etotalfinal.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         totalfinal.Top := totalfinal.Top - (eImporteneto.Height + eDescuento.Height);             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eImporteneto.Visible := True;&#13;&#10;         Importeneto.Visible := True;&#13;&#10;         eDescuento.Visible := True;&#13;&#10;         Descuento.Visible := True;     &#13;&#10;       end;&#13;&#10;                                                       &#13;&#10;       if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; = 0) then&#13;&#10;       begin                     &#13;&#10;         eRe.Top := eRe.Top - eIva.Height;                &#13;&#10;         Re.Top := Re.Top - eIva.Height;&#13;&#10;         eImportetotal.Top := eImportetotal.Top - eIva.Height;&#13;&#10;         Importetotal.Top := Importetotal.Top - eIva.Height;&#13;&#10;         eRetencion.Top := eRetencion.Top - eIva.Height;&#13;&#10;         Retencion.Top := Retencion.Top - eIva.Height;&#13;&#10;         etotalfinal.Top := etotalfinal.Top - eIva.Height;&#13;&#10;         totalfinal.Top := totalfinal.Top - eIva.Height;             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eIva.Visible := True;&#13;&#10;         Iva.Visible := True;         &#13;&#10;       end;  &#13;&#10;                       &#13;&#10;       if (&#60;frxDBCabecera.&#34;RE&#34;&#62; = 0) then&#13;&#10;       begin&#13;&#10;         eImportetotal.Top := eImportetotal.Top - eRe.Height;&#13;&#10;         Importetotal.Top := Importetotal.Top - eRe.Height;                                             &#13;&#10;         eRetencion.Top := eRetencion.Top - eRe.Height;&#13;&#10;         Retencion.Top := Retencion.Top - eRe.Height;&#13;&#10;         etotalfinal.Top := etotalfinal.Top - eRe.Height;&#13;&#10;         totalfinal.Top := totalfinal.Top - eRe.Height;             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eRe.Visible := True;&#13;&#10;         Re.Visible := True;         &#13;&#10;       end;  &#13;&#10;  &#13;&#10;       if (&#60;frxDBCabecera.&#34;RETENCION&#34;&#62; &#60;&#62; 0) then&#13;&#10;       begin&#13;&#10;         eRetencion.Visible := True;&#13;&#10;         Retencion.Visible := True;&#13;&#10;         eTotalFinal.Visible := True;&#13;&#10;         TotalFinal.Visible := True;&#13;&#10;       end;&#13;&#10;    &#13;&#10;       eBaseimponible.Visible := True;&#13;&#10;       Baseimponible.Visible := True;&#13;&#10;       eImportetotal.Visible := True;         &#13;&#10;       Importetotal.Visible := True;&#13;&#10;//    end&#13;&#10;  end; //Engine.FinalPass      &#13;&#10;&#13;&#10; if Engine.FreeSpace &#62; ReportSummary1.Height then    &#13;&#10;    Engine.CurY := Engine.PageHeight - ReportSummary1.Height - PageFooter1.Height - 1;    &#13;&#10;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;procedure MemPrecioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Concepto') then&#13;&#10;     if (&#60;frxDBDetalles.&#34;VISIBLE&#34;&#62; = '0') then&#13;&#10;         MemPrecio.Lines.Clear;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Concepto') then&#13;&#10;     if (&#60;frxDBDetalles.&#34;VISIBLE&#34;&#62; = '0') then&#13;&#10;         Memo11.Lines.Clear;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure MemImpTotalOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; = 'Concepto') then&#13;&#10;     if (&#60;frxDBDetalles.&#34;VISIBLE&#34;&#62; = '0') then&#13;&#10;         MemImpTotal.Lines.Clear;&#13;&#10;end;&#13;&#10;  &#13;&#10;&#13;&#10;      &#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C2000000020446174615365744E616D653D22667278444256656E63696D69656E746F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C13000000204E616D653D225665724C6F676F7469706F220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
   <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">
@@ -14,7 +14,7 @@
     </TfrxPageHeader>
     <TfrxMasterData Name="BandaDetalles" Height="22" Left="0" Top="354" Width="718,101251175" OnBeforePrint="BandaDetallesOnBeforePrint" AllowSplit="True" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
       <TfrxMemoView Name="Memo1" Left="3" Top="0" Width="425" Height="20" ShowHint="False" StretchMode="smActualHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" GapX="4" GapY="4" ParentFont="False" WordBreak="True" Text="[frxDBDetalles.&#34;CONCEPTO&#34;]"/>
-      <TfrxMemoView Name="MemCantidad" Align="baLeft" Left="428" Top="0" Width="60" Height="20" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;CANTIDAD&#34;]"/>
+      <TfrxMemoView Name="MemCantidad" Align="baLeft" Left="428" Top="0" Width="60" Height="20" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2f" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;CANTIDAD&#34;]"/>
       <TfrxMemoView Name="MemPrecio" Align="baLeft" Left="488" Top="0" Width="90" Height="20" OnBeforePrint="MemPrecioOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_UNIDAD&#34;]"/>
       <TfrxMemoView Name="MemImpTotal" Align="baLeft" Left="631" Top="0" Width="88" Height="20" OnBeforePrint="MemImpTotalOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_TOTAL&#34;]"/>
       <TfrxMemoView Name="Memo11" Align="baLeft" Left="578" Top="0" Width="53" Height="20" OnBeforePrint="Memo11OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 %" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;DESCUENTO&#34;]"/>