From 91bededba6370b62cab5d0647e7906ca996c604d Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Wed, 11 Jan 2012 11:37:58 +0000
Subject: [PATCH] Se incluye datos de registro mercantil de facturas de abeto

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

diff --git a/Source/Informes/1/InfFacturaCliente.fr3 b/Source/Informes/1/InfFacturaCliente.fr3
index d857a3c..4d9413b 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="40870,7557012037" 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 BandaDetallesOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  &#13;&#10;  BandaDetalles.StartNewPage := False;&#13;&#10;  BandaDetalles.Visible := True;&#13;&#10;  MemPrecio.Style := 'Concepto normal';&#13;&#10;  MemCantidad.Style := 'Concepto normal';&#13;&#10;  MemImpTotal.Style := 'Concepto normal';&#13;&#10;  RichConcepto.Visible := True;&#13;&#10;&#13;&#10;  case &#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; of&#13;&#10;  'Salto': begin&#13;&#10;        BandaDetalles.StartNewPage := True;&#13;&#10;        RichConcepto.Visible := False;&#13;&#10;       end;&#13;&#10;  'Titulo': begin&#13;&#10;       MemPrecio.Style := 'Concepto titulo';&#13;&#10;       MemCantidad.Style := 'Concepto titulo';&#13;&#10;       MemImpTotal.Style := 'Concepto titulo';&#13;&#10;       end;&#13;&#10;  'Concepto': begin&#13;&#10;       MemPrecio.Style := 'Concepto normal';&#13;&#10;       MemCantidad.Style := 'Concepto normal';&#13;&#10;       MemImpTotal.Style := 'Concepto normal';&#13;&#10;       end;&#13;&#10;  'Subtotal': begin&#13;&#10;       MemPrecio.Style := 'Concepto subtotal';&#13;&#10;       MemCantidad.Style := 'Concepto subtotal';&#13;&#10;       MemImpTotal.Style := 'Concepto subtotal';&#13;&#10;       end;&#13;&#10;  'Descuento': begin&#13;&#10;       BandaDetalles.Visible := False;&#13;&#10;       RichConcepto.Color := clNone;&#13;&#10;       end;&#13;&#10;  end;&#13;&#10;&#13;&#10;  RichConcepto.Color := MemImpTotal.Color;&#13;&#10;  RichConcepto.Frame := MemImpTotal.Frame;&#13;&#10;}      &#13;&#10;end;&#13;&#10;&#13;&#10;{procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;//  if Engine.FreeSpace &#62; ReportSummary1.Height then    &#13;&#10;     Engine.CurY := Engine.PageHeight - ReportSummary1.Height - Band3.Height - 1&#13;&#10;end;}  &#13;&#10;&#13;&#10;procedure Memo15OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Memo15.Lines.Clear;&#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;BASE_IMPONIBLE&#34;&#62;) &#60; 0) then&#13;&#10;       Memo15.Lines.Add('ABONO')&#13;&#10;  else&#13;&#10;     Memo15.Lines.Add('FACTURA')&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Band2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if not Engine.FinalPass then&#13;&#10;     Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10;  if Engine.FinalPass then&#13;&#10;     Set('Pagina', (&#60;Pagina&#62; + 1));&#13;&#10;&#13;&#10;  if &#60;VerLogotipo&#62; then&#13;&#10;  begin              &#13;&#10;     Picture1.Visible := True;&#13;&#10;     Picture5.Visible := True;&#13;&#10;     Picture6.Visible := True;&#13;&#10;     Picture2.Visible := True;&#13;&#10;     DireccionesSinLogotipo.Visible := False;&#13;&#10;     DireccionesConLogotipo.Visible := True;         &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;     Picture1.Visible := False;&#13;&#10;     Picture5.Visible := False;&#13;&#10;     Picture6.Visible := False;&#13;&#10;     Picture2.Visible := False;&#13;&#10;     DireccionesSinLogotipo.Visible := True;&#13;&#10;     DireccionesConLogotipo.Visible := False;         &#13;&#10;  end    &#13;&#10;&#13;&#10;{  if Engine.FinalPass and (&#60;TotalPaginas&#62; = &#60;Pagina&#62;) then&#13;&#10;  begin              &#13;&#10;     LineaCorta1.visible := False;  &#13;&#10;     LineaLarga1.visible := True;         &#13;&#10;     LineaCorta2.visible := False;  &#13;&#10;     LineaLarga2.visible := True;         &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;     LineaCorta1.visible := True;      &#13;&#10;     LineaLarga1.visible := False;&#13;&#10;     LineaCorta2.visible := True;      &#13;&#10;     LineaLarga2.visible := False;&#13;&#10;  end;&#13;&#10;}      &#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 ReportSummary1OnAfterCalcHeight(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;//Es peor el remedio que la enfermedad, en el caso de sobre pasar en uno el numero de conceptos para que no quepa el reportsumary,&#13;&#10;//no hay forma de ponerlo al final en la página siguiente hasta que el numero de conceptos rellene al menos un concepto de la siguiente hoja.                                                                                                                                                                                                                                                                                                                                    &#13;&#10;//  if Engine.FreeSpace &#62; ReportSummary1.Height then    &#13;&#10;//     Engine.CurY := Engine.PageHeight - ReportSummary1.Height - Band3.Height - 1&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Shape4OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if Engine.FinalPass and (&#60;TotalPaginas&#62; = &#60;Pagina&#62;) then      &#13;&#10;  begin&#13;&#10;     Band3.Height := 192;&#13;&#10;&#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;       lImportetotal.Top := lImportetotal.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;       Shape4.Height := Shape4.Height - (eImporteneto.Height + eDescuento.Height);                                             &#13;&#10;     end&#13;&#10;     else&#13;&#10;     begin&#13;&#10;       eImporteneto.Visible := True;&#13;&#10;       Importeneto.Visible := True;&#13;&#10;       eDescuento.Visible := True;&#13;&#10;       Descuento.Visible := True;     &#13;&#10;     end;&#13;&#10;                                                     &#13;&#10;     if (&#60;frxDBCabecera.&#34;RE&#34;&#62; = 0) then&#13;&#10;     begin&#13;&#10;       lImporteTotal.Top := lImporteTotal.Top - eRe.Height;                     &#13;&#10;       eImportetotal.Top := eImportetotal.Top - eRe.Height;                &#13;&#10;       Importetotal.Top := Importetotal.Top - eRe.Height;&#13;&#10;       Shape4.Height := Shape4.Height - eRe.Height;                                             &#13;&#10;     end&#13;&#10;     else&#13;&#10;     begin&#13;&#10;       eRe.Visible := True;&#13;&#10;       Re.Visible := True;         &#13;&#10;     end;  &#13;&#10;       &#13;&#10;     if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; = 0) then&#13;&#10;     begin&#13;&#10;       lImporteTotal.Top := lImporteTotal.Top - eIva.Height;                     &#13;&#10;       eImportetotal.Top := eImportetotal.Top - eIva.Height;                &#13;&#10;       Importetotal.Top := Importetotal.Top - eIva.Height;&#13;&#10;       Shape4.Height := Shape4.Height - eIva.Height;                                             &#13;&#10;     end&#13;&#10;     else&#13;&#10;     begin&#13;&#10;       eIva.Visible := True;&#13;&#10;       Iva.Visible := True;         &#13;&#10;     end;  &#13;&#10;  &#13;&#10;     eBaseimponible.Visible := True;&#13;&#10;     Baseimponible.Visible := True;         &#13;&#10;     lImporteTotal.Visible := True;&#13;&#10;     eImportetotal.Visible := True;         &#13;&#10;     Importetotal.Visible := True;&#13;&#10;&#13;&#10;     Shape4.Visible := True;         &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Band3.Height := 100;                                                &#13;&#10;  end          &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C3800000020446174615365743D22667278444244617461736574312220446174615365744E616D653D22667278444256656E63696D69656E746F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C13000000204E616D653D225665724C6F676F7469706F220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
+<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="40919,5255459491" 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 BandaDetallesOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  &#13;&#10;  BandaDetalles.StartNewPage := False;&#13;&#10;  BandaDetalles.Visible := True;&#13;&#10;  MemPrecio.Style := 'Concepto normal';&#13;&#10;  MemCantidad.Style := 'Concepto normal';&#13;&#10;  MemImpTotal.Style := 'Concepto normal';&#13;&#10;  RichConcepto.Visible := True;&#13;&#10;&#13;&#10;  case &#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; of&#13;&#10;  'Salto': begin&#13;&#10;        BandaDetalles.StartNewPage := True;&#13;&#10;        RichConcepto.Visible := False;&#13;&#10;       end;&#13;&#10;  'Titulo': begin&#13;&#10;       MemPrecio.Style := 'Concepto titulo';&#13;&#10;       MemCantidad.Style := 'Concepto titulo';&#13;&#10;       MemImpTotal.Style := 'Concepto titulo';&#13;&#10;       end;&#13;&#10;  'Concepto': begin&#13;&#10;       MemPrecio.Style := 'Concepto normal';&#13;&#10;       MemCantidad.Style := 'Concepto normal';&#13;&#10;       MemImpTotal.Style := 'Concepto normal';&#13;&#10;       end;&#13;&#10;  'Subtotal': begin&#13;&#10;       MemPrecio.Style := 'Concepto subtotal';&#13;&#10;       MemCantidad.Style := 'Concepto subtotal';&#13;&#10;       MemImpTotal.Style := 'Concepto subtotal';&#13;&#10;       end;&#13;&#10;  'Descuento': begin&#13;&#10;       BandaDetalles.Visible := False;&#13;&#10;       RichConcepto.Color := clNone;&#13;&#10;       end;&#13;&#10;  end;&#13;&#10;&#13;&#10;  RichConcepto.Color := MemImpTotal.Color;&#13;&#10;  RichConcepto.Frame := MemImpTotal.Frame;&#13;&#10;}      &#13;&#10;end;&#13;&#10;&#13;&#10;{procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;//  if Engine.FreeSpace &#62; ReportSummary1.Height then    &#13;&#10;     Engine.CurY := Engine.PageHeight - ReportSummary1.Height - Band3.Height - 1&#13;&#10;end;}  &#13;&#10;&#13;&#10;procedure Memo15OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Memo15.Lines.Clear;&#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;BASE_IMPONIBLE&#34;&#62;) &#60; 0) then&#13;&#10;       Memo15.Lines.Add('ABONO')&#13;&#10;  else&#13;&#10;     Memo15.Lines.Add('FACTURA')&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Band2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if not Engine.FinalPass then&#13;&#10;     Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10;  if Engine.FinalPass then&#13;&#10;     Set('Pagina', (&#60;Pagina&#62; + 1));&#13;&#10;&#13;&#10;  if &#60;VerLogotipo&#62; then&#13;&#10;  begin              &#13;&#10;     Picture1.Visible := True;&#13;&#10;     Picture5.Visible := True;&#13;&#10;     Picture6.Visible := True;&#13;&#10;     Picture2.Visible := True;&#13;&#10;     DireccionesSinLogotipo.Visible := False;&#13;&#10;     DireccionesConLogotipo.Visible := True;         &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;     Picture1.Visible := False;&#13;&#10;     Picture5.Visible := False;&#13;&#10;     Picture6.Visible := False;&#13;&#10;     Picture2.Visible := False;&#13;&#10;     DireccionesSinLogotipo.Visible := True;&#13;&#10;     DireccionesConLogotipo.Visible := False;         &#13;&#10;  end    &#13;&#10;&#13;&#10;{  if Engine.FinalPass and (&#60;TotalPaginas&#62; = &#60;Pagina&#62;) then&#13;&#10;  begin              &#13;&#10;     LineaCorta1.visible := False;  &#13;&#10;     LineaLarga1.visible := True;         &#13;&#10;     LineaCorta2.visible := False;  &#13;&#10;     LineaLarga2.visible := True;         &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;     LineaCorta1.visible := True;      &#13;&#10;     LineaLarga1.visible := False;&#13;&#10;     LineaCorta2.visible := True;      &#13;&#10;     LineaLarga2.visible := False;&#13;&#10;  end;&#13;&#10;}      &#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 ReportSummary1OnAfterCalcHeight(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;//Es peor el remedio que la enfermedad, en el caso de sobre pasar en uno el numero de conceptos para que no quepa el reportsumary,&#13;&#10;//no hay forma de ponerlo al final en la página siguiente hasta que el numero de conceptos rellene al menos un concepto de la siguiente hoja.                                                                                                                                                                                                                                                                                                                                    &#13;&#10;//  if Engine.FreeSpace &#62; ReportSummary1.Height then    &#13;&#10;//     Engine.CurY := Engine.PageHeight - ReportSummary1.Height - Band3.Height - 1&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Shape4OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if Engine.FinalPass and (&#60;TotalPaginas&#62; = &#60;Pagina&#62;) then      &#13;&#10;  begin&#13;&#10;     Band3.Height := 192;&#13;&#10;&#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;       lImportetotal.Top := lImportetotal.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;       Shape4.Height := Shape4.Height - (eImporteneto.Height + eDescuento.Height);                                             &#13;&#10;     end&#13;&#10;     else&#13;&#10;     begin&#13;&#10;       eImporteneto.Visible := True;&#13;&#10;       Importeneto.Visible := True;&#13;&#10;       eDescuento.Visible := True;&#13;&#10;       Descuento.Visible := True;     &#13;&#10;     end;&#13;&#10;                                                     &#13;&#10;     if (&#60;frxDBCabecera.&#34;RE&#34;&#62; = 0) then&#13;&#10;     begin&#13;&#10;       lImporteTotal.Top := lImporteTotal.Top - eRe.Height;                     &#13;&#10;       eImportetotal.Top := eImportetotal.Top - eRe.Height;                &#13;&#10;       Importetotal.Top := Importetotal.Top - eRe.Height;&#13;&#10;       Shape4.Height := Shape4.Height - eRe.Height;                                             &#13;&#10;     end&#13;&#10;     else&#13;&#10;     begin&#13;&#10;       eRe.Visible := True;&#13;&#10;       Re.Visible := True;         &#13;&#10;     end;  &#13;&#10;       &#13;&#10;     if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; = 0) then&#13;&#10;     begin&#13;&#10;       lImporteTotal.Top := lImporteTotal.Top - eIva.Height;                     &#13;&#10;       eImportetotal.Top := eImportetotal.Top - eIva.Height;                &#13;&#10;       Importetotal.Top := Importetotal.Top - eIva.Height;&#13;&#10;       Shape4.Height := Shape4.Height - eIva.Height;                                             &#13;&#10;     end&#13;&#10;     else&#13;&#10;     begin&#13;&#10;       eIva.Visible := True;&#13;&#10;       Iva.Visible := True;         &#13;&#10;     end;  &#13;&#10;  &#13;&#10;     eBaseimponible.Visible := True;&#13;&#10;     Baseimponible.Visible := True;         &#13;&#10;     lImporteTotal.Visible := True;&#13;&#10;     eImportetotal.Visible := True;         &#13;&#10;     Importetotal.Visible := True;&#13;&#10;&#13;&#10;     Shape4.Visible := True;         &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Band3.Height := 100;                                                &#13;&#10;  end          &#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="278" Left="0" Top="16" Width="718,101251175" OnBeforePrint="Band2OnBeforePrint">
@@ -27,7 +27,7 @@
     <TfrxPageFooter Name="Band3" Height="165,08655559" Left="0" Top="1457" Width="718,101251175">
       <TfrxShapeView Name="Shape4" Left="4" Top="0" Width="714" Height="135" Visible="False" OnBeforePrint="Shape4OnBeforePrint" ShowHint="False"/>
       <TfrxMemoView Name="eImporteneto" Left="405,45669291" Top="0,67718" Width="212" Height="22" Visible="False" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe neto "/>
-      <TfrxMemoView Name="Memo28" Left="6" Top="144" Width="711" Height="16" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" HAlign="haCenter" ParentFont="False" Text="Abeto Design S.L. Insc. en el Reg. Merc. de Madrid, Tomo xx.xxx, Libro 0, Folio xx, Sección x, Hoja M-xxxxxx CIF: B85033132"/>
+      <TfrxMemoView Name="Memo28" Left="6" Top="144" Width="711" Height="16" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" HAlign="haCenter" ParentFont="False" Text="Abeto Design S.L. Insc. en el Reg. Merc. de Madrid, Tomo 23.926, Libro 0, Folio 58, Sección 8, Hoja M-430952 CIF: B85033132"/>
       <TfrxMemoView Name="Memo30" Left="11,13389" Top="16,3859" Width="113,3859" Height="14,89765" Visible="False" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="VENCIMIENTOS"/>
       <TfrxSubreport Name="Subreport1" Left="11,38559" Top="38,55906" Width="332" Height="92" Visible="False" ShowHint="False" Page="Page2" PrintOnParent="True"/>
       <TfrxShapeView Name="lImportetotal" Left="405,40971" Top="111,04731" Width="312,36982" Height="23,45669535" Visible="False" ShowHint="False" Color="13556733"/>
@@ -58,7 +58,7 @@
     </TfrxOverlay>
   </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" DataSet="frxDBDataset1" DataSetName="frxDBVencimientos" RowCount="0">
+    <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="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBVencimientos.&#34;FECHA_VENCIMIENTO&#34;]"/>
       <TfrxMemoView Name="Memo40" Left="86,92919" Top="0" Width="98,80334" Height="13,82684" ShowHint="False" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBVencimientos.&#34;IMPORTE_TOTAL&#34;]"/>
     </TfrxMasterData>