From 767b310e1f55da3ef1934353a31d9dff0aa82a92 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Mon, 8 Jun 2020 14:07:37 +0000
Subject: [PATCH] =?UTF-8?q?Cambio=20recibos=20de=20factura=20columnas,=20p?=
 =?UTF-8?q?edido=20po=20m=C3=B3nica?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@149 93f398dd-4eb6-7a46-baf6-13f46f578da2
---
 Source/Informes/1/InfFacturaCliente.fr3 | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/Source/Informes/1/InfFacturaCliente.fr3 b/Source/Informes/1/InfFacturaCliente.fr3
index 3d490a8..d8a6e00 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="43748,7975450231" 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('NIF/CIF: ' + &#60;frxDBCabecera.&#34;NIF_CIF&#34;&#62;);  &#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;     Direccion.Visible := True;&#13;&#10;     cifnif.Visible := True;&#13;&#10;     LOPD.Visible := True;                                                       &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;     Picture1.Visible := False;      &#13;&#10;     Picture6.Visible := False;&#13;&#10;     Direccion.Visible := False;&#13;&#10;     cifnif.Visible := False;          &#13;&#10;     LOPD.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;}             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eImporteneto.Visible := True;&#13;&#10;         Importeneto.Visible := True;&#13;&#10;         eDescuento.Visible := True;&#13;&#10;         Descuento.Visible := True;     &#13;&#10;       end;&#13;&#10;&#13;&#10;       if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; = 0) then&#13;&#10;       begin                     &#13;&#10;{         eRe.Top := eRe.Top - eIva.Height;                &#13;&#10;         Re.Top := Re.Top - eIva.Height;&#13;&#10;         eImportetotal.Top := eImportetotal.Top - eIva.Height;&#13;&#10;         Importetotal.Top := Importetotal.Top - eIva.Height;&#13;&#10;         eRetencion.Top := eRetencion.Top - eIva.Height;&#13;&#10;         Retencion.Top := Retencion.Top - eIva.Height;&#13;&#10;         etotalfinal.Top := etotalfinal.Top - eIva.Height;&#13;&#10;         totalfinal.Top := totalfinal.Top - eIva.Height;&#13;&#10;}             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eIva.Visible := True;&#13;&#10;         Iva.Visible := True;         &#13;&#10;       end;  &#13;&#10;                       &#13;&#10;       if (&#60;frxDBCabecera.&#34;RE&#34;&#62; = 0) then&#13;&#10;       begin&#13;&#10;{         eImportetotal.Top := eImportetotal.Top - eRe.Height;&#13;&#10;         Importetotal.Top := Importetotal.Top - eRe.Height;                                             &#13;&#10;         eRetencion.Top := eRetencion.Top - eRe.Height;&#13;&#10;         Retencion.Top := Retencion.Top - eRe.Height;&#13;&#10;         etotalfinal.Top := etotalfinal.Top - eRe.Height;&#13;&#10;         totalfinal.Top := totalfinal.Top - eRe.Height;&#13;&#10;}             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eRe.Visible := True;&#13;&#10;         Re.Visible := True;         &#13;&#10;       end;  &#13;&#10;  &#13;&#10;       if (&#60;frxDBCabecera.&#34;RETENCION&#34;&#62; &#60;&#62; 0) then&#13;&#10;       begin&#13;&#10;         eRetencion.Visible := True;&#13;&#10;         Retencion.Visible := True;&#13;&#10;         eTotalFinal.Visible := True;&#13;&#10;         TotalFinal.Visible := True;&#13;&#10;       end;&#13;&#10;&#13;&#10;       eBaseimponible.Visible := True;&#13;&#10;       Baseimponible.Visible := True;&#13;&#10;       eImportetotal.Visible := True;         &#13;&#10;       Importetotal.Visible := True;&#13;&#10;//    end&#13;&#10;  end; //Engine.FinalPass      &#13;&#10;&#13;&#10; if Engine.FreeSpace &#62; ReportSummary1.Height then    &#13;&#10;    Engine.CurY := Engine.PageHeight - ReportSummary1.Height - PageFooter1.Height - 1;    &#13;&#10;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;{//       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;       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;}          &#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="43990,5522209491" 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('NIF/CIF: ' + &#60;frxDBCabecera.&#34;NIF_CIF&#34;&#62;);  &#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;     Direccion.Visible := True;&#13;&#10;     cifnif.Visible := True;&#13;&#10;     LOPD.Visible := True;                                                       &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;     Picture1.Visible := False;      &#13;&#10;     Picture6.Visible := False;&#13;&#10;     Direccion.Visible := False;&#13;&#10;     cifnif.Visible := False;          &#13;&#10;     LOPD.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;}             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eImporteneto.Visible := True;&#13;&#10;         Importeneto.Visible := True;&#13;&#10;         eDescuento.Visible := True;&#13;&#10;         Descuento.Visible := True;     &#13;&#10;       end;&#13;&#10;&#13;&#10;       if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; = 0) then&#13;&#10;       begin                     &#13;&#10;{         eRe.Top := eRe.Top - eIva.Height;                &#13;&#10;         Re.Top := Re.Top - eIva.Height;&#13;&#10;         eImportetotal.Top := eImportetotal.Top - eIva.Height;&#13;&#10;         Importetotal.Top := Importetotal.Top - eIva.Height;&#13;&#10;         eRetencion.Top := eRetencion.Top - eIva.Height;&#13;&#10;         Retencion.Top := Retencion.Top - eIva.Height;&#13;&#10;         etotalfinal.Top := etotalfinal.Top - eIva.Height;&#13;&#10;         totalfinal.Top := totalfinal.Top - eIva.Height;&#13;&#10;}             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eIva.Visible := True;&#13;&#10;         Iva.Visible := True;         &#13;&#10;       end;  &#13;&#10;                       &#13;&#10;       if (&#60;frxDBCabecera.&#34;RE&#34;&#62; = 0) then&#13;&#10;       begin&#13;&#10;{         eImportetotal.Top := eImportetotal.Top - eRe.Height;&#13;&#10;         Importetotal.Top := Importetotal.Top - eRe.Height;                                             &#13;&#10;         eRetencion.Top := eRetencion.Top - eRe.Height;&#13;&#10;         Retencion.Top := Retencion.Top - eRe.Height;&#13;&#10;         etotalfinal.Top := etotalfinal.Top - eRe.Height;&#13;&#10;         totalfinal.Top := totalfinal.Top - eRe.Height;&#13;&#10;}             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eRe.Visible := True;&#13;&#10;         Re.Visible := True;         &#13;&#10;       end;  &#13;&#10;  &#13;&#10;       if (&#60;frxDBCabecera.&#34;RETENCION&#34;&#62; &#60;&#62; 0) then&#13;&#10;       begin&#13;&#10;         eRetencion.Visible := True;&#13;&#10;         Retencion.Visible := True;&#13;&#10;         eTotalFinal.Visible := True;&#13;&#10;         TotalFinal.Visible := True;&#13;&#10;       end;&#13;&#10;&#13;&#10;       eBaseimponible.Visible := True;&#13;&#10;       Baseimponible.Visible := True;&#13;&#10;       eImportetotal.Visible := True;         &#13;&#10;       Importetotal.Visible := True;&#13;&#10;//    end&#13;&#10;  end; //Engine.FinalPass      &#13;&#10;&#13;&#10; if Engine.FreeSpace &#62; ReportSummary1.Height then    &#13;&#10;    Engine.CurY := Engine.PageHeight - ReportSummary1.Height - PageFooter1.Height - 1;    &#13;&#10;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;{//       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;       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;}          &#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="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C3800000020446174615365743D22667278444244617461736574312220446174615365744E616D653D22667278444256656E63696D69656E746F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C13000000204E616D653D225665724C6F676F7469706F220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
   <TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" Columns="1" ColumnWidth="209,999791666667" ColumnPositions.Text="0" LargeDesignHeight="True" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
     <TfrxPageHeader Name="Band2" Height="242" Left="0" Top="16" Width="718,101251175" OnBeforePrint="Band2OnBeforePrint">
@@ -21,7 +21,7 @@
       <TfrxMemoView Name="Memo7" Left="7" Top="73" Width="437" Height="55" ShowHint="False" AllowHTMLTags="True" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="&#60;b&#62;Forma de pago:&#60;/b&#62;&#13;&#10;[frxDBCabecera.&#34;FORMA_PAGO&#34;]"/>
       <TfrxMemoView Name="eImporteneto" Align="baRight" Left="28,10125118" Top="12" Width="130" Height="20" Visible="False" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Importe neto "/>
       <TfrxMemoView Name="Memo30" Left="7,13389" Top="127,3859" Width="113,3859" Height="14,89765" OnBeforePrint="Memo30OnBeforePrint" ShowHint="False" AllowHTMLTags="True" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="&#60;b&#62;Vencimientos:&#60;/b&#62;"/>
-      <TfrxSubreport Name="Subreport1" Left="7,13389" Top="143,55906" Width="356" Height="48" ShowHint="False" Page="Page2" PrintOnParent="True"/>
+      <TfrxSubreport Name="Subreport1" Left="7,13389" Top="143,55906" Width="703" Height="48" ShowHint="False" Page="Page2" PrintOnParent="True"/>
       <TfrxMemoView Name="Importetotal" Align="baRight" Left="588,101251175" Top="32" Width="130" Height="20" Visible="False" ShowHint="False" Color="15263976" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTE_TOTAL&#34;]"/>
       <TfrxMemoView Name="eImportetotal" Left="588,10125118" Top="12" Width="130" Height="20" Visible="False" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Total factura"/>
       <TfrxMemoView Name="Importeneto" Align="baRight" Left="28,101251175" Top="32" Width="130" Height="20" Visible="False" ShowHint="False" Color="15263976" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTE_NETO&#34;]"/>
@@ -57,9 +57,9 @@
     </TfrxFooter>
   </TfrxReportPage>
   <TfrxReportPage Name="Page2" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" Columns="1" ColumnWidth="209,999791666667" ColumnPositions.Text="0" LargeDesignHeight="True" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
-    <TfrxMasterData Name="MasterData1" Height="13,82684" Left="0" Top="16" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBVencimientos" RowCount="0">
-      <TfrxMemoView Name="Memo31" Left="0" Top="0" Width="79,90569" Height="13,82684" ShowHint="False" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBVencimientos.&#34;FECHA_VENCIMIENTO&#34;]"/>
-      <TfrxMemoView Name="Memo40" Left="86,92919" Top="0" Width="98,80334" Height="13,82684" ShowHint="False" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBVencimientos.&#34;IMPORTE_TOTAL&#34;]"/>
+    <TfrxMasterData Name="MasterData1" Height="13,82684" Left="0" Top="16" Width="718,101251175" Columns="3" ColumnWidth="150" ColumnGap="0" DataSet="frxDBDataset1" DataSetName="frxDBVencimientos" RowCount="0">
+      <TfrxMemoView Name="Memo31" Left="0" Top="0" Width="57,90569" Height="13,82684" ShowHint="False" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBVencimientos.&#34;FECHA_VENCIMIENTO&#34;] "/>
+      <TfrxMemoView Name="Memo40" Left="54,92919" Top="0" Width="91,80334" Height="13,82684" ShowHint="False" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBVencimientos.&#34;IMPORTE_TOTAL&#34;]"/>
     </TfrxMasterData>
   </TfrxReportPage>
 </TfrxReport>