From f97a479be5be6345a1af47cd15c64fe0fba1cf72 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Mon, 28 May 2018 16:13:11 +0000
Subject: [PATCH] Adaptacio LOPD Europea

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@667 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 Source/Informes/5/InfAlbaranCliente.fr3   | 4 ++--
 Source/Informes/5/InfFacturaCliente.fr3   | 4 ++--
 Source/Informes/InfContratoCliente.fr3    | 4 ++--
 Source/Informes/InfPresupuestoCliente.fr3 | 6 +++---
 4 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/Source/Informes/5/InfAlbaranCliente.fr3 b/Source/Informes/5/InfAlbaranCliente.fr3
index 5c9863bf..e7e8ff0f 100644
--- a/Source/Informes/5/InfAlbaranCliente.fr3
+++ b/Source/Informes/5/InfAlbaranCliente.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="43244,6502327431" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ATexto : string;                                           &#13;&#10;begin&#13;&#10;  ATexto := '';                                                       &#13;&#10;  DatosCliente.Lines.Clear;&#13;&#10;&#13;&#10;  DatosCliente.Lines.Add('&#60;b&#62;' + &#60;frxDBCabecera.&#34;NOMBRE&#34;&#62; + '&#60;/b&#62;');                   &#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;CALLE&#34;&#62; &#60;&#62; '') then                 &#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;  begin&#13;&#10;     ATexto := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;;&#13;&#10;     if ATexto &#60;&#62; '' then&#13;&#10;        ATexto := ATexto + ' ';                                                                                               &#13;&#10;     ATexto := ATexto + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;;                                                                          &#13;&#10;     DatosCliente.Lines.Add(ATexto);&#13;&#10;  end;                   &#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;     DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;&#13;&#10;  ATexto := '';    &#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') or&#13;&#10;     (&#60;frxDBCabecera.&#34;MOVIL&#34;&#62; &#60;&#62; '') then                                   &#13;&#10;  begin&#13;&#10;     if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') then                          &#13;&#10;        ATexto := 'Tlf: ' + &#60;frxDBCabecera.&#34;TELEFONO&#34;&#62;;&#13;&#10;&#13;&#10;     if (&#60;frxDBCabecera.&#34;MOVIL&#34;&#62; &#60;&#62; '') then&#13;&#10;     begin                 &#13;&#10;       if ATexto &#60;&#62; '' then&#13;&#10;          ATexto := ATexto + ' / ';&#13;&#10;       ATexto := ATexto + 'M髒il: ';            &#13;&#10;       ATexto := ATexto + &#60;frxDBCabecera.&#34;MOVIL&#34;&#62;;&#13;&#10;     end;                        &#13;&#10;     DatosCliente.Lines.Add(ATexto);&#13;&#10;  end;&#13;&#10;        &#13;&#10;  ATexto := '';                                                  &#13;&#10;  if (&#60;frxDBCabecera.&#34;NIF_CIF&#34;&#62; &#60;&#62; '') then&#13;&#10;      ATexto := 'NIF/CIF: ' + &#60;frxDBCabecera.&#34;NIF_CIF&#34;&#62;;&#13;&#10;  &#13;&#10;  if ATexto &#60;&#62; '' then&#13;&#10;       ATexto := ATexto + '  ';    &#13;&#10;  ATexto := ATexto + 'C骴. cliente: ' + &#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62;;  &#13;&#10;  DatosCliente.Lines.Add(ATexto);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#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;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 - PageFooter1.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;IMPORTE_TOTAL&#34;&#62;) &#60; 0) then&#13;&#10;       Memo15.Lines.Add('ORDEN DEVOLUCI覰')&#13;&#10;  else&#13;&#10;     Memo15.Lines.Add('ALBAR罭')&#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;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 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唳﹏a 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 - 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 鷏tima p醙ina o no&#13;&#10;      begin&#13;&#10;         LineaCorta0.visible := False;&#13;&#10;         LineaLarga0.visible := True;         &#13;&#10;         LineaCorta1.visible := False;&#13;&#10;         LineaLarga1.visible := True;         &#13;&#10;         LineaCorta3.visible := False;&#13;&#10;         LineaLarga3.visible := True;&#13;&#10;        end&#13;&#10;      else begin&#13;&#10;         LineaCorta0.visible := True;  &#13;&#10;         LineaLarga0.visible := False;         &#13;&#10;         LineaCorta1.visible := True;&#13;&#10;         LineaLarga1.visible := False;&#13;&#10;         LineaCorta3.visible := True;  &#13;&#10;         LineaLarga3.visible := False;         &#13;&#10;      end&#13;&#10;  end;                        &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E6173220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
+<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,760396412" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ATexto : string;                                           &#13;&#10;begin&#13;&#10;  ATexto := '';                                                       &#13;&#10;  DatosCliente.Lines.Clear;&#13;&#10;&#13;&#10;  DatosCliente.Lines.Add('&#60;b&#62;' + &#60;frxDBCabecera.&#34;NOMBRE&#34;&#62; + '&#60;/b&#62;');                   &#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;CALLE&#34;&#62; &#60;&#62; '') then                 &#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;  begin&#13;&#10;     ATexto := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;;&#13;&#10;     if ATexto &#60;&#62; '' then&#13;&#10;        ATexto := ATexto + ' ';                                                                                               &#13;&#10;     ATexto := ATexto + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;;                                                                          &#13;&#10;     DatosCliente.Lines.Add(ATexto);&#13;&#10;  end;                   &#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;     DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;&#13;&#10;  ATexto := '';    &#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') or&#13;&#10;     (&#60;frxDBCabecera.&#34;MOVIL&#34;&#62; &#60;&#62; '') then                                   &#13;&#10;  begin&#13;&#10;     if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') then                          &#13;&#10;        ATexto := 'Tlf: ' + &#60;frxDBCabecera.&#34;TELEFONO&#34;&#62;;&#13;&#10;&#13;&#10;     if (&#60;frxDBCabecera.&#34;MOVIL&#34;&#62; &#60;&#62; '') then&#13;&#10;     begin                 &#13;&#10;       if ATexto &#60;&#62; '' then&#13;&#10;          ATexto := ATexto + ' / ';&#13;&#10;       ATexto := ATexto + 'M髒il: ';            &#13;&#10;       ATexto := ATexto + &#60;frxDBCabecera.&#34;MOVIL&#34;&#62;;&#13;&#10;     end;                        &#13;&#10;     DatosCliente.Lines.Add(ATexto);&#13;&#10;  end;&#13;&#10;        &#13;&#10;  ATexto := '';                                                  &#13;&#10;  if (&#60;frxDBCabecera.&#34;NIF_CIF&#34;&#62; &#60;&#62; '') then&#13;&#10;      ATexto := 'NIF/CIF: ' + &#60;frxDBCabecera.&#34;NIF_CIF&#34;&#62;;&#13;&#10;  &#13;&#10;  if ATexto &#60;&#62; '' then&#13;&#10;       ATexto := ATexto + '  ';    &#13;&#10;  ATexto := ATexto + 'C骴. cliente: ' + &#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62;;  &#13;&#10;  DatosCliente.Lines.Add(ATexto);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#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;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 - PageFooter1.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;IMPORTE_TOTAL&#34;&#62;) &#60; 0) then&#13;&#10;       Memo15.Lines.Add('ORDEN DEVOLUCI覰')&#13;&#10;  else&#13;&#10;     Memo15.Lines.Add('ALBAR罭')&#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;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 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唳﹏a 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 - 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 鷏tima p醙ina o no&#13;&#10;      begin&#13;&#10;         LineaCorta0.visible := False;&#13;&#10;         LineaLarga0.visible := True;         &#13;&#10;         LineaCorta1.visible := False;&#13;&#10;         LineaLarga1.visible := True;         &#13;&#10;         LineaCorta3.visible := False;&#13;&#10;         LineaLarga3.visible := True;&#13;&#10;        end&#13;&#10;      else begin&#13;&#10;         LineaCorta0.visible := True;  &#13;&#10;         LineaLarga0.visible := False;         &#13;&#10;         LineaCorta1.visible := True;&#13;&#10;         LineaLarga1.visible := False;&#13;&#10;         LineaCorta3.visible := True;  &#13;&#10;         LineaLarga3.visible := False;         &#13;&#10;      end&#13;&#10;  end;                        &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E6173220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
   <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">
@@ -41,7 +41,7 @@
       <TfrxLineView Name="LineaCorta3" Left="626" Top="242" Width="0" Height="620" ShowHint="False" Frame.Typ="1"/>
     </TfrxOverlay>
     <TfrxPageFooter Name="PageFooter1" Height="90" Left="0" Top="1592" Width="718,101251175">
-      <TfrxMemoView Name="Memo31" Left="0" Top="1" Width="718,48819386" Height="104,33859" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 聙" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-7" Font.Name="Tahoma" Font.Style="0" Frame.Typ="4" HideZeros="True" ParentFont="False" Text="&#13;&#10;En cumplimiento en lo dispuesto en el &#60;b&#62;Reglamento Europeo de Protecci贸n de Datos del 27 de Abril de 2.016, Ley Org谩nica 15/1999, de Reglamento General de Protecci贸n de Datos (GDPR);&#60;/b&#62; ALISO DESIGN S.L. requiere su consentimiento expreso e informado a los fines de proceder al tratamiento de sus datos (nombre, apellidos, tel茅fono entre otros), con la con la finalidad de ofrecerte un mejor servicio ya sea haci茅ndote llegar por correo postal, tel茅fono, e-mail, SMS, Whatsapp, redes sociales, u otros medios de comunicaci贸n equivalentes f铆sicos o electr贸nicos, los presupuestos que nos has solicitado previamente o manteni茅ndote informado de la evoluci贸n de tu proyecto en el caso de que lo estemos realizando. As铆 mismo, tambi茅n nos sirve para mantener la comunicaci贸n contigo para resolver aquellas dudas o consultas que se te planteen y tambi茅n para que podamos ofrecerte otros servicios o productos que puedan ser de tu inter茅s mediante mail marketing u otros medios. Tus datos ser谩n gestionados en un fichero cuyo responsable es ALISO DESIGN S.L. y se utilizar谩n para la gesti贸n de clientes y proveedores, as铆 como para la gesti贸n a terceros para clientes.&#13;&#10;&#13;&#10;Asimismo le informamos que puede ejercitar sus derechos de acceso, rectificaci贸n, cancelaci贸n y oposici贸n. Para ejercer tus derechos puedes hacerlo, sin coste alguno, enviando un escrito a la atenci贸n de &#60;b&#62;ALISO DESIGN S.L. con domicilio en C/ La Fundici贸n, 27. Rivas-Vaciamadrid 28522. Madrid&#60;/b&#62;, o bien enviando un email a &#60;b&#62;protecciondedatos@acanainteriorismo.com.&#60;/b&#62; Con la firma otorgas tu consentimiento expreso e informado para el tratamiento de tus datos por ALISO DESIGN S.L. para los fines antes expuestos."/>
+      <TfrxMemoView Name="Memo31" Left="0" Top="1" Width="718,48819386" Height="104,33859" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 聙" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-7" Font.Name="Tahoma" Font.Style="0" Frame.Typ="4" HideZeros="True" ParentFont="False" Text="Informaci贸n b谩sica sobre protecci贸n de datos:&#13;&#10;&#13;&#10;En cumplimiento en lo dispuesto en el &#60;b&#62;Reglamento Europeo de Protecci贸n de Datos del 27 de Abril de 2.016, Ley Org谩nica 15/1999, de Reglamento General de Protecci贸n de Datos (GDPR);&#60;/b&#62; ALISO DESIGN S.L. requiere su consentimiento expreso e informado a los fines de proceder al tratamiento de sus datos. Finalidad: Prestar los servicios solicitados y realizar la gesti贸n contable, fiscal y administrativa, as铆 como enviarle comunicaciones comerciales sobre nuestros productos y/o servicios, y enviar comunicaciones comerciales. Legitimaci贸n: Ejecuci贸n de un contrato. Inter茅s leg铆timo del Responsable. Destinatarios: No se ceder谩n datos a terceros, salvo obligaci贸n legal.&#13;&#10;&#13;&#10;Derechos: Tiene derecho a acceder, rectificar y suprimir los datos, as铆 como otros derechos, indicados en la informaci贸n adicional, que puede ejercer enviando un correo electr贸nico con copia de NIF a nuestra direcci贸n electr贸nica: &#60;b&#62;protecciondedatos@acanainteriorismo.com&#60;/b&#62;. Procedencia: El propio interesado. Informaci贸n adicional: Puede consultar informaci贸n adicional y detallada sobre Protecci贸n de Datos en nuestra p谩gina web: &#60;b&#62;www.acanainteriorismo.com/aviso-legal/&#60;/b&#62;"/>
     </TfrxPageFooter>
   </TfrxReportPage>
 </TfrxReport>
diff --git a/Source/Informes/5/InfFacturaCliente.fr3 b/Source/Informes/5/InfFacturaCliente.fr3
index cc15e935..2db99c67 100644
--- a/Source/Informes/5/InfFacturaCliente.fr3
+++ b/Source/Informes/5/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="43244,7424198843" 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;  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;  memConcepto.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;        memConcepto.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;       memConcepto.Color := clNone;&#13;&#10;       end;&#13;&#10;  end;&#13;&#10;&#13;&#10;  memConcepto.Color := MemImpTotal.Color;&#13;&#10;  memConcepto.Frame := MemImpTotal.Frame;&#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 Engine.FinalPass and (&#60;TotalPaginas&#62; &#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;  &#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;         &#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;    Memo26.visible := True;                                                    &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Memo26.visible := False;      &#13;&#10;  end;            &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo25OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; &#62; 0) then&#13;&#10;  begin&#13;&#10;    Memo25.visible := True;                                                    &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Memo25.visible := False;      &#13;&#10;  end;            &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo21OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCabecera.&#34;RE&#34;&#62; &#62; 0) then&#13;&#10;  begin&#13;&#10;    Memo21.visible := True;                                                    &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Memo21.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醙ina 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;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C2000000020446174615365744E616D653D22667278444256656E63696D69656E746F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E6173220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
+<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,7615798611" 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;  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;  memConcepto.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;        memConcepto.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;       memConcepto.Color := clNone;&#13;&#10;       end;&#13;&#10;  end;&#13;&#10;&#13;&#10;  memConcepto.Color := MemImpTotal.Color;&#13;&#10;  memConcepto.Frame := MemImpTotal.Frame;&#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 Engine.FinalPass and (&#60;TotalPaginas&#62; &#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;  &#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;         &#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;    Memo26.visible := True;                                                    &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Memo26.visible := False;      &#13;&#10;  end;            &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo25OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; &#62; 0) then&#13;&#10;  begin&#13;&#10;    Memo25.visible := True;                                                    &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Memo25.visible := False;      &#13;&#10;  end;            &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo21OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCabecera.&#34;RE&#34;&#62; &#62; 0) then&#13;&#10;  begin&#13;&#10;    Memo21.visible := True;                                                    &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Memo21.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醙ina 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;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C2000000020446174615365744E616D653D22667278444256656E63696D69656E746F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E6173220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
   <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="277,60631142" Left="0" Top="16" Width="718,101251175" OnBeforePrint="Band2OnBeforePrint">
@@ -35,7 +35,7 @@
     <TfrxPageFooter Name="Band3" Height="120" Left="0" Top="1625" Width="718,101251175">
       <TfrxLineView Name="Line6" Left="4" Top="0" Width="715" Height="0" ShowHint="False" Frame.Typ="4"/>
       <TfrxMemoView Name="Memo28" Left="3" Top="9" Width="715" 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="Insc. en el Reg. Merc. de Madrid, Tomo 31.839, Libro 0, Folio 191, Secci贸n 8, Hoja M-572991 CIF: B86913910"/>
-      <TfrxMemoView Name="Memo20" Left="1" Top="27" Width="718,48819386" Height="104,33859" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 聙" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-7" Font.Name="Tahoma" Font.Style="0" HideZeros="True" ParentFont="False" Text="&#13;&#10;En cumplimiento en lo dispuesto en el &#60;b&#62;Reglamento Europeo de Protecci贸n de Datos del 27 de Abril de 2.016, Ley Org谩nica 15/1999, de Reglamento General de Protecci贸n de Datos (GDPR);&#60;/b&#62; ALISO DESIGN S.L. requiere su consentimiento expreso e informado a los fines de proceder al tratamiento de sus datos (nombre, apellidos, tel茅fono entre otros), con la con la finalidad de ofrecerte un mejor servicio ya sea haci茅ndote llegar por correo postal, tel茅fono, e-mail, SMS, Whatsapp, redes sociales, u otros medios de comunicaci贸n equivalentes f铆sicos o electr贸nicos, los presupuestos que nos has solicitado previamente o manteni茅ndote informado de la evoluci贸n de tu proyecto en el caso de que lo estemos realizando. As铆 mismo, tambi茅n nos sirve para mantener la comunicaci贸n contigo para resolver aquellas dudas o consultas que se te planteen y tambi茅n para que podamos ofrecerte otros servicios o productos que puedan ser de tu inter茅s mediante mail marketing u otros medios. Tus datos ser谩n gestionados en un fichero cuyo responsable es ALISO DESIGN S.L. y se utilizar谩n para la gesti贸n de clientes y proveedores, as铆 como para la gesti贸n a terceros para clientes.&#13;&#10;&#13;&#10;Asimismo le informamos que puede ejercitar sus derechos de acceso, rectificaci贸n, cancelaci贸n y oposici贸n. Para ejercer tus derechos puedes hacerlo, sin coste alguno, enviando un escrito a la atenci贸n de &#60;b&#62;ALISO DESIGN S.L. con domicilio en C/ La Fundici贸n, 27. Rivas-Vaciamadrid 28522. Madrid&#60;/b&#62;, o bien enviando un email a &#60;b&#62;protecciondedatos@acanainteriorismo.com.&#60;/b&#62; Con la firma otorgas tu consentimiento expreso e informado para el tratamiento de tus datos por ALISO DESIGN S.L. para los fines antes expuestos."/>
+      <TfrxMemoView Name="Memo20" Left="1" Top="27" Width="718,48819386" Height="104,33859" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 聙" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-7" Font.Name="Tahoma" Font.Style="0" HideZeros="True" ParentFont="False" Text="Informaci贸n b谩sica sobre protecci贸n de datos:&#13;&#10;&#13;&#10;En cumplimiento en lo dispuesto en el &#60;b&#62;Reglamento Europeo de Protecci贸n de Datos del 27 de Abril de 2.016, Ley Org谩nica 15/1999, de Reglamento General de Protecci贸n de Datos (GDPR);&#60;/b&#62; ALISO DESIGN S.L. requiere su consentimiento expreso e informado a los fines de proceder al tratamiento de sus datos. Finalidad: Prestar los servicios solicitados y realizar la gesti贸n contable, fiscal y administrativa, as铆 como enviarle comunicaciones comerciales sobre nuestros productos y/o servicios, y enviar comunicaciones comerciales. Legitimaci贸n: Ejecuci贸n de un contrato. Inter茅s leg铆timo del Responsable. Destinatarios: No se ceder谩n datos a terceros, salvo obligaci贸n legal.&#13;&#10;&#13;&#10;Derechos: Tiene derecho a acceder, rectificar y suprimir los datos, as铆 como otros derechos, indicados en la informaci贸n adicional, que puede ejercer enviando un correo electr贸nico con copia de NIF a nuestra direcci贸n electr贸nica: &#60;b&#62;protecciondedatos@acanainteriorismo.com&#60;/b&#62;. Procedencia: El propio interesado. Informaci贸n adicional: Puede consultar informaci贸n adicional y detallada sobre Protecci贸n de Datos en nuestra p谩gina web: &#60;b&#62;www.acanainteriorismo.com/aviso-legal/&#60;/b&#62;"/>
     </TfrxPageFooter>
     <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="memConcepto" Left="8,55906" Top="1" Width="509,07225365" Height="18,14173228" ShowHint="False" StretchMode="smActualHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="DejaVu Sans Mono" Font.Style="0" GapX="0" ParentFont="False" Text="[frxDBDetalles.&#34;CONCEPTO&#34;]"/>
diff --git a/Source/Informes/InfContratoCliente.fr3 b/Source/Informes/InfContratoCliente.fr3
index 66cbe3cf..6626c5bc 100644
--- a/Source/Informes/InfContratoCliente.fr3
+++ b/Source/Informes/InfContratoCliente.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.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="43244,6441321181" ScriptLanguage="PascalScript" ScriptText.Text="procedure PageHeader1OnBeforePrint(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;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Set('Pagina', 0);&#13;&#10;  Set('TotalPaginas', 0);&#13;&#10;  Set('Capitulo', '0');&#13;&#10;  Set('NumCapitulos', 0);&#13;&#10;  Set('TextoNumCapitulo', ''' ''');&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Rich3OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{    &#13;&#10;  if Engine.FinalPass then&#13;&#10;  begin              &#13;&#10;     Set('Capitulo', (&#60;Capitulo&#62; + 1));&#13;&#10;     if (&#60;NumCapitulos&#62; = 1) then&#13;&#10;       MasterData1.Visible := False;                                                                   &#13;&#10;  end&#13;&#10;  else&#13;&#10;     Set('NumCapitulos', (&#60;NumCapitulos&#62; + 1));&#13;&#10;}         &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo45OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;     Set('Capitulo', (&#60;Capitulo&#62; + 1));                                 &#13;&#10;     Set('TextoNumCapitulo', &#60;Capitulo&#62;);&#13;&#10;&#13;&#10;     if ((&#60;NumCapitulos&#62; = 1) and (&#60;frxDBCapitulos.&#34;CONCEPTO&#34;&#62; = 'General')) then&#13;&#10;       MasterData1.Visible := False&#13;&#10;     else begin                                     &#13;&#10;       if (&#60;frxDBCapitulos.&#34;TIPO_DETALLE&#34;&#62; = 'Titulo opcional') then&#13;&#10;       begin&#13;&#10;         Set('TextoNumCapitulo', '''OPCIONAL''');&#13;&#10;       end&#13;&#10;     end                      &#13;&#10;  end&#13;&#10;  else             &#13;&#10;     Set('NumCapitulos', (&#60;NumCapitulos&#62; + 1));&#13;&#10;&#13;&#10;&#13;&#10;//  Memo11.lines.add(&#60;frxDBCapitulos.&#34;CONCEPTO&#34;&#62;);  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo47OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  &#13;&#10;    if (Length(&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62;) = 0) then&#13;&#10;    begin&#13;&#10;       Memo11.Visible := False;                                                                                      &#13;&#10;       Memo47.Visible := False;&#13;&#10;    end&#13;&#10;}        &#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxDBDetallesCANTIDADOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var    &#13;&#10;  ACantidad: String;  &#13;&#10;  AIndice: Integer;&#13;&#10;  AText : String;                                    &#13;&#10;begin&#13;&#10;{    &#13;&#10;  frxDBDetallesCANTIDAD.Memo.Clear;  &#13;&#10;  ACantidad := FloatToStr(&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;);  &#13;&#10;  AIndice := Pos(',', ACantidad);&#13;&#10;  if AIndice &#62; 0 then                                           &#13;&#10;     AText := '[FormatFloat(''#,##0.00'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)]&#13;&#10;  else                     &#13;&#10;     AText := '[FormatFloat(''#,##0.##'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)];  &#13;&#10;         &#13;&#10;  frxDBDetallesCANTIDAD.Memo.Add(AText);&#13;&#10;}      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ATexto : string;                                           &#13;&#10;begin&#13;&#10;  ATexto := '';                                                       &#13;&#10;   TfrxMemoView(Sender).Lines.Clear;&#13;&#10;&#13;&#10;   TfrxMemoView(Sender).Lines.Add('&#60;b&#62;' + &#60;frxDBCabecera.&#34;NOMBRE&#34;&#62; + '&#60;/b&#62;');                  &#13;&#10;  &#13;&#10;  if (&#60;frxDBCabecera.&#34;CALLE&#34;&#62; &#60;&#62; '') then                 &#13;&#10;      TfrxMemoView(Sender).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;  begin&#13;&#10;     ATexto := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;;&#13;&#10;     if ATexto &#60;&#62; '' then&#13;&#10;        ATexto := ATexto + ' ';                                                                                               &#13;&#10;     ATexto := ATexto + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;;                                                                          &#13;&#10;     TfrxMemoView(Sender).Lines.Add(ATexto);&#13;&#10;  end;                   &#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;     TfrxMemoView(Sender).Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;&#13;&#10;  ATexto := '';    &#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') or&#13;&#10;     (&#60;frxDBCabecera.&#34;MOVIL&#34;&#62; &#60;&#62; '') then                                   &#13;&#10;  begin&#13;&#10;     if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') then                          &#13;&#10;        ATexto := 'Tlf: ' + &#60;frxDBCabecera.&#34;TELEFONO&#34;&#62;;&#13;&#10;&#13;&#10;     if (&#60;frxDBCabecera.&#34;MOVIL&#34;&#62; &#60;&#62; '') then&#13;&#10;     begin                 &#13;&#10;       if ATexto &#60;&#62; '' then&#13;&#10;          ATexto := ATexto + ' / ';&#13;&#10;       ATexto := ATexto + 'M髒il: ';            &#13;&#10;       ATexto := ATexto + &#60;frxDBCabecera.&#34;MOVIL&#34;&#62;;&#13;&#10;     end;                        &#13;&#10;     TfrxMemoView(Sender).Lines.Add(ATexto);&#13;&#10;  end;&#13;&#10;      &#13;&#10;  ATexto := '';                                                  &#13;&#10;  if (&#60;frxDBCabecera.&#34;NIF_CIF&#34;&#62; &#60;&#62; '') then&#13;&#10;      ATexto := 'NIF/CIF: ' + &#60;frxDBCabecera.&#34;NIF_CIF&#34;&#62;;&#13;&#10;  &#13;&#10;  if ATexto &#60;&#62; '' then&#13;&#10;       ATexto := ATexto + '  ';    &#13;&#10;  ATexto := ATexto + 'C骴. cliente: ' + &#60;frxDBCabecera.&#34;REF_CLIENTE&#34;&#62;;  &#13;&#10;  TfrxMemoView(Sender).Lines.Add(ATexto);         &#13;&#10;end;&#13;&#10;&#13;&#10;procedure MasterData1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'AF' ) &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'AI' )&#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'B' ) &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'C' ) then&#13;&#10;  begin&#13;&#10;    Header1.Visible := False;&#13;&#10;    DetailData1.Visible := False;                                                                  &#13;&#10;    DetailData2.Visible := True;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Header1.Visible := True;                                                          &#13;&#10;    DetailData1.Visible := True;                                                                  &#13;&#10;    DetailData2.Visible := False;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo29OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; &#62; 0) then&#13;&#10;  begin&#13;&#10;    Memo29.visible := True;&#13;&#10;    if (&#60;frxDBCabecera.&#34;RE&#34;&#62; &#62; 0) then&#13;&#10;    begin&#13;&#10;      Memo30.visible := True;  &#13;&#10;    end&#13;&#10;    else&#13;&#10;    begin&#13;&#10;      Memo30.visible := False;        &#13;&#10;      Shape10.Top := Shape9.Top;&#13;&#10;      Memo26.Top := Memo30.Top;&#13;&#10;      Memo25.Top := Memo31.Top;&#13;&#10;      Line8.height := Line8.height - Shape10.height;&#13;&#10;    end&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Memo29.visible := False;&#13;&#10;    Shape10.Top := Shape8.Top;&#13;&#10;    Memo26.Top := Memo29.Top;&#13;&#10;    Memo25.Top := Memo33.Top;&#13;&#10;    Line8.height := Line8.height - Shape10.height;&#13;&#10;    //Si IVA es 0 RE tambien&#13;&#10;    Memo30.Visible := False;&#13;&#10;    Shape9.Visible := False;}  &#13;&#10;    //Subimos comentarios&#13;&#10;    {Memo40.Top := Memo40.Top - Shape9.height;&#13;&#10;    Memo37.Top := Memo37.Top - Shape9.height;                                                              &#13;&#10;    Memo39.Top := Memo39.Top - Shape9.height;&#13;&#10;    Memo28.Top := Memo28.Top - Shape9.height;}                                                                &#13;&#10;//  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (Length(&#60;frxDBCabecera.&#34;FORMA_PAGO&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;    eFormaPago.Visible := False;&#13;&#10;    FormaPago.Visible := False;                                                              &#13;&#10;  end;              &#13;&#10;  &#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;    Memo40.Visible := False;&#13;&#10;    Memo37.Visible := False;                                                              &#13;&#10;  end;&#13;&#10;&#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;PLAZO_ENTREGA&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;    Memo39.Visible := False;&#13;&#10;    Memo28.Visible := False;&#13;&#10;    if (Length(&#60;frxDBCabecera.&#34;FORMA_PAGO&#34;&#62;) &#60;&#62; 0) then&#13;&#10;       Memo37.Height := Memo37.Height + (Memo39.Height + Memo28.Height);                                                                        &#13;&#10;  end;&#13;&#10;&#13;&#10;  if Engine.FinalPass then&#13;&#10;  begin              &#13;&#10;     if (&#60;frxDBCabecera.&#34;DESCUENTO&#34;&#62; = 0) then&#13;&#10;     begin&#13;&#10;       eBaseimponible.Top := eBaseimponible.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;       Baseimponible.Top := Baseimponible.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;       eIva.Top := eIva.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;       Iva.Top := Iva.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;       eRe.Top := eRe.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;       Re.Top := Re.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;       eImportetotal.Top := eImportetotal.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;       Importetotal.Top := Importetotal.Top - (eImporteneto.Height + eDescuento.Height);                                             &#13;&#10;     end&#13;&#10;     else&#13;&#10;     begin&#13;&#10;       eImporteneto.Visible := True;&#13;&#10;       Importeneto.Visible := True;&#13;&#10;       eDescuento.Visible := True;&#13;&#10;       Descuento.Visible := True;     &#13;&#10;     end;&#13;&#10;                                                         &#13;&#10;     if (&#60;frxDBCabecera.&#34;RE&#34;&#62; = 0) then&#13;&#10;     begin&#13;&#10;       eImportetotal.Top := eImportetotal.Top - eRe.Height;&#13;&#10;       Importetotal.Top := Importetotal.Top - eRe.Height;                                             &#13;&#10;     end&#13;&#10;     else&#13;&#10;     begin&#13;&#10;       eRe.Visible := True;&#13;&#10;       Re.Visible := True;         &#13;&#10;     end;  &#13;&#10;           &#13;&#10;     if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; = 0) then&#13;&#10;     begin                     &#13;&#10;       eImportetotal.Top := eImportetotal.Top - eIva.Height;                &#13;&#10;       Importetotal.Top := Importetotal.Top - eIva.Height;&#13;&#10;     end&#13;&#10;     else&#13;&#10;     begin&#13;&#10;       eIva.Visible := True;&#13;&#10;       Iva.Visible := True;         &#13;&#10;     end;  &#13;&#10;      &#13;&#10;     eBaseimponible.Visible := True;&#13;&#10;     Baseimponible.Visible := True;&#13;&#10;     eImportetotal.Visible := True;         &#13;&#10;     Importetotal.Visible := True;&#13;&#10;  end; //Engine.FinalPass      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo20OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCapitulos.&#34;IMPORTE_TOTAL&#34;&#62; = 0)  &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_DETALLE&#34;&#62; = 'Titulo_opc') then&#13;&#10;  begin&#13;&#10;    Footer1.Height := 5;&#13;&#10;    Memo13.Visible := False;&#13;&#10;    Memo20.Visible := False;  &#13;&#10;    Memo21.Visible := False;  &#13;&#10;    Memo11.Visible := False;&#13;&#10;    Memo24.Visible := False;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Footer1.Height := 40;&#13;&#10;    Memo13.Visible := True;  &#13;&#10;    Memo20.Visible := True;&#13;&#10;    Memo21.Visible := True;&#13;&#10;    if (&#60;frxDBCapitulos.&#34;IMPORTE_DESCUENTO&#34;&#62; = 0) then&#13;&#10;    begin&#13;&#10;      Footer1.Height := 24;    &#13;&#10;      Memo11.Visible := False;&#13;&#10;      Memo24.Visible := False;       &#13;&#10;    end&#13;&#10;    else&#13;&#10;    begin&#13;&#10;      Memo11.Visible := True;&#13;&#10;      Memo24.Visible := True;&#13;&#10;    end;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PaginaCondicionesOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;if (length(&#60;frxDBCabecera.&#34;CONDICIONES&#34;&#62;) = 0) then&#13;&#10;begin                &#13;&#10;  PaginaCondiciones.Visible := False;&#13;&#10;  Set('TotalPaginas', (&#60;TotalPaginas&#62; - 1));&#13;&#10;end;                   &#13;&#10;end;&#13;&#10;&#13;&#10;&#13;&#10;procedure Page2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (MasterData2.DataSet.RecordCount &#62; 0) then&#13;&#10;  begin              &#13;&#10;    Page2.Visible := True;&#13;&#10;  end                &#13;&#10;  else&#13;&#10;  begin&#13;&#10;     Page2.Visible := False;&#13;&#10;     Set('TotalPaginas', (&#60;TotalPaginas&#62; - 1));      &#13;&#10;  end;            &#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader3OnBeforePrint(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;end;  &#13;&#10;&#13;&#10;&#13;&#10;procedure DetailData1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;   if (Header1.Visible) then&#13;&#10;   begin                   &#13;&#10;       if (&#60;frxDBDetalles.&#34;VISIBLE2&#34;&#62; &#60;&#62; 1) then&#13;&#10;               DetailData1.Visible := False&#13;&#10;       else&#13;&#10;               DetailData1.Visible := True;&#13;&#10;   end;                                       &#13;&#10;end;&#13;&#10;&#13;&#10;procedure DetailData2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;   if (not Header1.Visible) then&#13;&#10;   begin    &#13;&#10;       if (&#60;frxDBDetalles.&#34;VISIBLE2&#34;&#62; &#60;&#62; 1) then&#13;&#10;               DetailData2.Visible := False&#13;&#10;       else&#13;&#10;               DetailData2.Visible := True;&#13;&#10;   end;                                                                                                 &#13;&#10;end;&#13;&#10;&#13;&#10;procedure pagCalidadesOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (length(&#60;frxDBCabecera.&#34;CALIDADES&#34;&#62;) = 0) then&#13;&#10;  begin                &#13;&#10;    pagCalidades.Visible := False;&#13;&#10;    Set('TotalPaginas', (&#60;TotalPaginas&#62; - 1));&#13;&#10;  end;                   &#13;&#10;  end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3600000020446174615365743D2266727844424361706974756C6F732220446174615365744E616D653D2266727844424361706974756C6F732200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C2500000020446174615365744E616D653D226672784442446574616C6C65734172746963756C6F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F732200010C18000000204E616D653D22546578746F4E756D4361706974756C6F2200010C1C000000204E616D653D22507265737570756573746F436F6E436F63696E61220000055374796C650100">
+<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="43248,760135081" ScriptLanguage="PascalScript" ScriptText.Text="procedure PageHeader1OnBeforePrint(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;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Set('Pagina', 0);&#13;&#10;  Set('TotalPaginas', 0);&#13;&#10;  Set('Capitulo', '0');&#13;&#10;  Set('NumCapitulos', 0);&#13;&#10;  Set('TextoNumCapitulo', ''' ''');&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Rich3OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{    &#13;&#10;  if Engine.FinalPass then&#13;&#10;  begin              &#13;&#10;     Set('Capitulo', (&#60;Capitulo&#62; + 1));&#13;&#10;     if (&#60;NumCapitulos&#62; = 1) then&#13;&#10;       MasterData1.Visible := False;                                                                   &#13;&#10;  end&#13;&#10;  else&#13;&#10;     Set('NumCapitulos', (&#60;NumCapitulos&#62; + 1));&#13;&#10;}         &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo45OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;     Set('Capitulo', (&#60;Capitulo&#62; + 1));                                 &#13;&#10;     Set('TextoNumCapitulo', &#60;Capitulo&#62;);&#13;&#10;&#13;&#10;     if ((&#60;NumCapitulos&#62; = 1) and (&#60;frxDBCapitulos.&#34;CONCEPTO&#34;&#62; = 'General')) then&#13;&#10;       MasterData1.Visible := False&#13;&#10;     else begin                                     &#13;&#10;       if (&#60;frxDBCapitulos.&#34;TIPO_DETALLE&#34;&#62; = 'Titulo opcional') then&#13;&#10;       begin&#13;&#10;         Set('TextoNumCapitulo', '''OPCIONAL''');&#13;&#10;       end&#13;&#10;     end                      &#13;&#10;  end&#13;&#10;  else             &#13;&#10;     Set('NumCapitulos', (&#60;NumCapitulos&#62; + 1));&#13;&#10;&#13;&#10;&#13;&#10;//  Memo11.lines.add(&#60;frxDBCapitulos.&#34;CONCEPTO&#34;&#62;);  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo47OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  &#13;&#10;    if (Length(&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62;) = 0) then&#13;&#10;    begin&#13;&#10;       Memo11.Visible := False;                                                                                      &#13;&#10;       Memo47.Visible := False;&#13;&#10;    end&#13;&#10;}        &#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxDBDetallesCANTIDADOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var    &#13;&#10;  ACantidad: String;  &#13;&#10;  AIndice: Integer;&#13;&#10;  AText : String;                                    &#13;&#10;begin&#13;&#10;{    &#13;&#10;  frxDBDetallesCANTIDAD.Memo.Clear;  &#13;&#10;  ACantidad := FloatToStr(&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;);  &#13;&#10;  AIndice := Pos(',', ACantidad);&#13;&#10;  if AIndice &#62; 0 then                                           &#13;&#10;     AText := '[FormatFloat(''#,##0.00'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)]&#13;&#10;  else                     &#13;&#10;     AText := '[FormatFloat(''#,##0.##'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)];  &#13;&#10;         &#13;&#10;  frxDBDetallesCANTIDAD.Memo.Add(AText);&#13;&#10;}      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ATexto : string;                                           &#13;&#10;begin&#13;&#10;  ATexto := '';                                                       &#13;&#10;   TfrxMemoView(Sender).Lines.Clear;&#13;&#10;&#13;&#10;   TfrxMemoView(Sender).Lines.Add('&#60;b&#62;' + &#60;frxDBCabecera.&#34;NOMBRE&#34;&#62; + '&#60;/b&#62;');                  &#13;&#10;  &#13;&#10;  if (&#60;frxDBCabecera.&#34;CALLE&#34;&#62; &#60;&#62; '') then                 &#13;&#10;      TfrxMemoView(Sender).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;  begin&#13;&#10;     ATexto := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;;&#13;&#10;     if ATexto &#60;&#62; '' then&#13;&#10;        ATexto := ATexto + ' ';                                                                                               &#13;&#10;     ATexto := ATexto + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;;                                                                          &#13;&#10;     TfrxMemoView(Sender).Lines.Add(ATexto);&#13;&#10;  end;                   &#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;     TfrxMemoView(Sender).Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;&#13;&#10;  ATexto := '';    &#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') or&#13;&#10;     (&#60;frxDBCabecera.&#34;MOVIL&#34;&#62; &#60;&#62; '') then                                   &#13;&#10;  begin&#13;&#10;     if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') then                          &#13;&#10;        ATexto := 'Tlf: ' + &#60;frxDBCabecera.&#34;TELEFONO&#34;&#62;;&#13;&#10;&#13;&#10;     if (&#60;frxDBCabecera.&#34;MOVIL&#34;&#62; &#60;&#62; '') then&#13;&#10;     begin                 &#13;&#10;       if ATexto &#60;&#62; '' then&#13;&#10;          ATexto := ATexto + ' / ';&#13;&#10;       ATexto := ATexto + 'M髒il: ';            &#13;&#10;       ATexto := ATexto + &#60;frxDBCabecera.&#34;MOVIL&#34;&#62;;&#13;&#10;     end;                        &#13;&#10;     TfrxMemoView(Sender).Lines.Add(ATexto);&#13;&#10;  end;&#13;&#10;      &#13;&#10;  ATexto := '';                                                  &#13;&#10;  if (&#60;frxDBCabecera.&#34;NIF_CIF&#34;&#62; &#60;&#62; '') then&#13;&#10;      ATexto := 'NIF/CIF: ' + &#60;frxDBCabecera.&#34;NIF_CIF&#34;&#62;;&#13;&#10;  &#13;&#10;  if ATexto &#60;&#62; '' then&#13;&#10;       ATexto := ATexto + '  ';    &#13;&#10;  ATexto := ATexto + 'C骴. cliente: ' + &#60;frxDBCabecera.&#34;REF_CLIENTE&#34;&#62;;  &#13;&#10;  TfrxMemoView(Sender).Lines.Add(ATexto);         &#13;&#10;end;&#13;&#10;&#13;&#10;procedure MasterData1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'AF' ) &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'AI' )&#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'B' ) &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'C' ) then&#13;&#10;  begin&#13;&#10;    Header1.Visible := False;&#13;&#10;    DetailData1.Visible := False;                                                                  &#13;&#10;    DetailData2.Visible := True;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Header1.Visible := True;                                                          &#13;&#10;    DetailData1.Visible := True;                                                                  &#13;&#10;    DetailData2.Visible := False;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo29OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; &#62; 0) then&#13;&#10;  begin&#13;&#10;    Memo29.visible := True;&#13;&#10;    if (&#60;frxDBCabecera.&#34;RE&#34;&#62; &#62; 0) then&#13;&#10;    begin&#13;&#10;      Memo30.visible := True;  &#13;&#10;    end&#13;&#10;    else&#13;&#10;    begin&#13;&#10;      Memo30.visible := False;        &#13;&#10;      Shape10.Top := Shape9.Top;&#13;&#10;      Memo26.Top := Memo30.Top;&#13;&#10;      Memo25.Top := Memo31.Top;&#13;&#10;      Line8.height := Line8.height - Shape10.height;&#13;&#10;    end&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Memo29.visible := False;&#13;&#10;    Shape10.Top := Shape8.Top;&#13;&#10;    Memo26.Top := Memo29.Top;&#13;&#10;    Memo25.Top := Memo33.Top;&#13;&#10;    Line8.height := Line8.height - Shape10.height;&#13;&#10;    //Si IVA es 0 RE tambien&#13;&#10;    Memo30.Visible := False;&#13;&#10;    Shape9.Visible := False;}  &#13;&#10;    //Subimos comentarios&#13;&#10;    {Memo40.Top := Memo40.Top - Shape9.height;&#13;&#10;    Memo37.Top := Memo37.Top - Shape9.height;                                                              &#13;&#10;    Memo39.Top := Memo39.Top - Shape9.height;&#13;&#10;    Memo28.Top := Memo28.Top - Shape9.height;}                                                                &#13;&#10;//  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (Length(&#60;frxDBCabecera.&#34;FORMA_PAGO&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;    eFormaPago.Visible := False;&#13;&#10;    FormaPago.Visible := False;                                                              &#13;&#10;  end;              &#13;&#10;  &#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;    Memo40.Visible := False;&#13;&#10;    Memo37.Visible := False;                                                              &#13;&#10;  end;&#13;&#10;&#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;PLAZO_ENTREGA&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;    Memo39.Visible := False;&#13;&#10;    Memo28.Visible := False;&#13;&#10;    if (Length(&#60;frxDBCabecera.&#34;FORMA_PAGO&#34;&#62;) &#60;&#62; 0) then&#13;&#10;       Memo37.Height := Memo37.Height + (Memo39.Height + Memo28.Height);                                                                        &#13;&#10;  end;&#13;&#10;&#13;&#10;  if Engine.FinalPass then&#13;&#10;  begin              &#13;&#10;     if (&#60;frxDBCabecera.&#34;DESCUENTO&#34;&#62; = 0) then&#13;&#10;     begin&#13;&#10;       eBaseimponible.Top := eBaseimponible.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;       Baseimponible.Top := Baseimponible.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;       eIva.Top := eIva.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;       Iva.Top := Iva.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;       eRe.Top := eRe.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;       Re.Top := Re.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;       eImportetotal.Top := eImportetotal.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;       Importetotal.Top := Importetotal.Top - (eImporteneto.Height + eDescuento.Height);                                             &#13;&#10;     end&#13;&#10;     else&#13;&#10;     begin&#13;&#10;       eImporteneto.Visible := True;&#13;&#10;       Importeneto.Visible := True;&#13;&#10;       eDescuento.Visible := True;&#13;&#10;       Descuento.Visible := True;     &#13;&#10;     end;&#13;&#10;                                                         &#13;&#10;     if (&#60;frxDBCabecera.&#34;RE&#34;&#62; = 0) then&#13;&#10;     begin&#13;&#10;       eImportetotal.Top := eImportetotal.Top - eRe.Height;&#13;&#10;       Importetotal.Top := Importetotal.Top - eRe.Height;                                             &#13;&#10;     end&#13;&#10;     else&#13;&#10;     begin&#13;&#10;       eRe.Visible := True;&#13;&#10;       Re.Visible := True;         &#13;&#10;     end;  &#13;&#10;           &#13;&#10;     if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; = 0) then&#13;&#10;     begin                     &#13;&#10;       eImportetotal.Top := eImportetotal.Top - eIva.Height;                &#13;&#10;       Importetotal.Top := Importetotal.Top - eIva.Height;&#13;&#10;     end&#13;&#10;     else&#13;&#10;     begin&#13;&#10;       eIva.Visible := True;&#13;&#10;       Iva.Visible := True;         &#13;&#10;     end;  &#13;&#10;      &#13;&#10;     eBaseimponible.Visible := True;&#13;&#10;     Baseimponible.Visible := True;&#13;&#10;     eImportetotal.Visible := True;         &#13;&#10;     Importetotal.Visible := True;&#13;&#10;  end; //Engine.FinalPass      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo20OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCapitulos.&#34;IMPORTE_TOTAL&#34;&#62; = 0)  &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_DETALLE&#34;&#62; = 'Titulo_opc') then&#13;&#10;  begin&#13;&#10;    Footer1.Height := 5;&#13;&#10;    Memo13.Visible := False;&#13;&#10;    Memo20.Visible := False;  &#13;&#10;    Memo21.Visible := False;  &#13;&#10;    Memo11.Visible := False;&#13;&#10;    Memo24.Visible := False;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Footer1.Height := 40;&#13;&#10;    Memo13.Visible := True;  &#13;&#10;    Memo20.Visible := True;&#13;&#10;    Memo21.Visible := True;&#13;&#10;    if (&#60;frxDBCapitulos.&#34;IMPORTE_DESCUENTO&#34;&#62; = 0) then&#13;&#10;    begin&#13;&#10;      Footer1.Height := 24;    &#13;&#10;      Memo11.Visible := False;&#13;&#10;      Memo24.Visible := False;       &#13;&#10;    end&#13;&#10;    else&#13;&#10;    begin&#13;&#10;      Memo11.Visible := True;&#13;&#10;      Memo24.Visible := True;&#13;&#10;    end;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PaginaCondicionesOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;if (length(&#60;frxDBCabecera.&#34;CONDICIONES&#34;&#62;) = 0) then&#13;&#10;begin                &#13;&#10;  PaginaCondiciones.Visible := False;&#13;&#10;  Set('TotalPaginas', (&#60;TotalPaginas&#62; - 1));&#13;&#10;end;                   &#13;&#10;end;&#13;&#10;&#13;&#10;&#13;&#10;procedure Page2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (MasterData2.DataSet.RecordCount &#62; 0) then&#13;&#10;  begin              &#13;&#10;    Page2.Visible := True;&#13;&#10;  end                &#13;&#10;  else&#13;&#10;  begin&#13;&#10;     Page2.Visible := False;&#13;&#10;     Set('TotalPaginas', (&#60;TotalPaginas&#62; - 1));      &#13;&#10;  end;            &#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader3OnBeforePrint(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;end;  &#13;&#10;&#13;&#10;&#13;&#10;procedure DetailData1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;   if (Header1.Visible) then&#13;&#10;   begin                   &#13;&#10;       if (&#60;frxDBDetalles.&#34;VISIBLE2&#34;&#62; &#60;&#62; 1) then&#13;&#10;               DetailData1.Visible := False&#13;&#10;       else&#13;&#10;               DetailData1.Visible := True;&#13;&#10;   end;                                       &#13;&#10;end;&#13;&#10;&#13;&#10;procedure DetailData2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;   if (not Header1.Visible) then&#13;&#10;   begin    &#13;&#10;       if (&#60;frxDBDetalles.&#34;VISIBLE2&#34;&#62; &#60;&#62; 1) then&#13;&#10;               DetailData2.Visible := False&#13;&#10;       else&#13;&#10;               DetailData2.Visible := True;&#13;&#10;   end;                                                                                                 &#13;&#10;end;&#13;&#10;&#13;&#10;procedure pagCalidadesOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (length(&#60;frxDBCabecera.&#34;CALIDADES&#34;&#62;) = 0) then&#13;&#10;  begin                &#13;&#10;    pagCalidades.Visible := False;&#13;&#10;    Set('TotalPaginas', (&#60;TotalPaginas&#62; - 1));&#13;&#10;  end;                   &#13;&#10;  end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3600000020446174615365743D2266727844424361706974756C6F732220446174615365744E616D653D2266727844424361706974756C6F732200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C2500000020446174615365744E616D653D226672784442446574616C6C65734172746963756C6F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F732200010C18000000204E616D653D22546578746F4E756D4361706974756C6F2200010C1C000000204E616D653D22507265737570756573746F436F6E436F63696E61220000055374796C650100">
   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
   <TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="13056" Font.Height="-13" Font.Name="Arial" Font.Style="0" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="" OnBeforePrint="Page1OnBeforePrint">
     <TfrxPageHeader Name="PageHeader2" Height="220" Left="0" Top="16" Width="718,101251175" OnBeforePrint="PageHeader1OnBeforePrint">
@@ -65,7 +65,7 @@
       <TfrxLineView Name="Line1" Align="baRight" Left="718,101251175" Top="1" Width="0" Height="16" ShowHint="False" StretchMode="smMaxHeight" Frame.Typ="1"/>
     </TfrxDetailData>
     <TfrxPageFooter Name="PageFooter1" Height="90" Left="0" Top="1870" Width="718,101251175">
-      <TfrxMemoView Name="Memo30" Left="1" Top="2" Width="718,48819386" Height="104,33859" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 聙" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-7" Font.Name="Tahoma" Font.Style="0" Frame.Typ="4" HideZeros="True" ParentFont="False" Text="&#13;&#10;En cumplimiento en lo dispuesto en el &#60;b&#62;Reglamento Europeo de Protecci贸n de Datos del 27 de Abril de 2.016, Ley Org谩nica 15/1999, de Reglamento General de Protecci贸n de Datos (GDPR);&#60;/b&#62; ALISO DESIGN S.L. requiere su consentimiento expreso e informado a los fines de proceder al tratamiento de sus datos (nombre, apellidos, tel茅fono entre otros), con la con la finalidad de ofrecerte un mejor servicio ya sea haci茅ndote llegar por correo postal, tel茅fono, e-mail, SMS, Whatsapp, redes sociales, u otros medios de comunicaci贸n equivalentes f铆sicos o electr贸nicos, los presupuestos que nos has solicitado previamente o manteni茅ndote informado de la evoluci贸n de tu proyecto en el caso de que lo estemos realizando. As铆 mismo, tambi茅n nos sirve para mantener la comunicaci贸n contigo para resolver aquellas dudas o consultas que se te planteen y tambi茅n para que podamos ofrecerte otros servicios o productos que puedan ser de tu inter茅s mediante mail marketing u otros medios. Tus datos ser谩n gestionados en un fichero cuyo responsable es ALISO DESIGN S.L. y se utilizar谩n para la gesti贸n de clientes y proveedores, as铆 como para la gesti贸n a terceros para clientes.&#13;&#10;&#13;&#10;Asimismo le informamos que puede ejercitar sus derechos de acceso, rectificaci贸n, cancelaci贸n y oposici贸n. Para ejercer tus derechos puedes hacerlo, sin coste alguno, enviando un escrito a la atenci贸n de &#60;b&#62;ALISO DESIGN S.L. con domicilio en C/ La Fundici贸n, 27. Rivas-Vaciamadrid 28522. Madrid&#60;/b&#62;, o bien enviando un email a &#60;b&#62;protecciondedatos@acanainteriorismo.com.&#60;/b&#62; Con la firma otorgas tu consentimiento expreso e informado para el tratamiento de tus datos por ALISO DESIGN S.L. para los fines antes expuestos."/>
+      <TfrxMemoView Name="Memo30" Left="1" Top="2" Width="718,48819386" Height="104,33859" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 聙" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-7" Font.Name="Tahoma" Font.Style="0" Frame.Typ="4" HideZeros="True" ParentFont="False" Text="Informaci贸n b谩sica sobre protecci贸n de datos:&#13;&#10;&#13;&#10;En cumplimiento en lo dispuesto en el &#60;b&#62;Reglamento Europeo de Protecci贸n de Datos del 27 de Abril de 2.016, Ley Org谩nica 15/1999, de Reglamento General de Protecci贸n de Datos (GDPR);&#60;/b&#62; ALISO DESIGN S.L. requiere su consentimiento expreso e informado a los fines de proceder al tratamiento de sus datos. Finalidad: Prestar los servicios solicitados y realizar la gesti贸n contable, fiscal y administrativa, as铆 como enviarle comunicaciones comerciales sobre nuestros productos y/o servicios, y enviar comunicaciones comerciales. Legitimaci贸n: Ejecuci贸n de un contrato. Inter茅s leg铆timo del Responsable. Destinatarios: No se ceder谩n datos a terceros, salvo obligaci贸n legal.&#13;&#10;&#13;&#10;Derechos: Tiene derecho a acceder, rectificar y suprimir los datos, as铆 como otros derechos, indicados en la informaci贸n adicional, que puede ejercer enviando un correo electr贸nico con copia de NIF a nuestra direcci贸n electr贸nica: &#60;b&#62;protecciondedatos@acanainteriorismo.com&#60;/b&#62;. Procedencia: El propio interesado. Informaci贸n adicional: Puede consultar informaci贸n adicional y detallada sobre Protecci贸n de Datos en nuestra p谩gina web: &#60;b&#62;www.acanainteriorismo.com/aviso-legal/&#60;/b&#62;"/>
     </TfrxPageFooter>
   </TfrxReportPage>
   <TfrxReportPage Name="pagCalidades" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="" OnBeforePrint="pagCalidadesOnBeforePrint">
diff --git a/Source/Informes/InfPresupuestoCliente.fr3 b/Source/Informes/InfPresupuestoCliente.fr3
index 98c0abbe..c94995ae 100644
--- a/Source/Informes/InfPresupuestoCliente.fr3
+++ b/Source/Informes/InfPresupuestoCliente.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.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="43244,575298206" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  NombreEmpresa.Lines.Clear;&#13;&#10;  NombreEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;NOMBRE_EMPRESA&#34;&#62;);&#13;&#10;}&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader1OnBeforePrint(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;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Set('Pagina', 0);&#13;&#10;  Set('TotalPaginas', 0);&#13;&#10;  Set('Capitulo', '0');&#13;&#10;  Set('NumCapitulos', 0);&#13;&#10;  Set('TextoNumCapitulo', ''' ''');      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo45OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;     Set('Capitulo', (&#60;Capitulo&#62; + 1));                                 &#13;&#10;     Set('TextoNumCapitulo', &#60;Capitulo&#62;);&#13;&#10;&#13;&#10;     if ((&#60;NumCapitulos&#62; = 1) and (&#60;frxDBCapitulos.&#34;CONCEPTO&#34;&#62; = 'General')) then&#13;&#10;       MasterData1.Visible := False&#13;&#10;     else begin                                     &#13;&#10;       if (&#60;frxDBCapitulos.&#34;TIPO_DETALLE&#34;&#62; = 'Titulo opcional') then&#13;&#10;       begin&#13;&#10;         Set('TextoNumCapitulo', '''OPCIONAL''');&#13;&#10;       end&#13;&#10;     end                      &#13;&#10;  end&#13;&#10;  else             &#13;&#10;     Set('NumCapitulos', (&#60;NumCapitulos&#62; + 1));&#13;&#10;&#13;&#10;&#13;&#10;//  Memo11.lines.add(&#60;frxDBCapitulos.&#34;CONCEPTO&#34;&#62;);  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo47OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  &#13;&#10;    if (Length(&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62;) = 0) then&#13;&#10;    begin&#13;&#10;       Memo11.Visible := False;                                                                                      &#13;&#10;       Memo47.Visible := False;&#13;&#10;    end&#13;&#10;}        &#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxDBDetallesCANTIDADOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var    &#13;&#10;  ACantidad: String;  &#13;&#10;  AIndice: Integer;&#13;&#10;  AText : String;                                    &#13;&#10;begin&#13;&#10;{    &#13;&#10;  frxDBDetallesCANTIDAD.Memo.Clear;  &#13;&#10;  ACantidad := FloatToStr(&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;);  &#13;&#10;  AIndice := Pos(',', ACantidad);&#13;&#10;  if AIndice &#62; 0 then                                           &#13;&#10;     AText := '[FormatFloat(''#,##0.00'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)]&#13;&#10;  else                     &#13;&#10;     AText := '[FormatFloat(''#,##0.##'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)];  &#13;&#10;         &#13;&#10;  frxDBDetallesCANTIDAD.Memo.Add(AText);&#13;&#10;}      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ATexto : string;                                           &#13;&#10;begin&#13;&#10;  ATexto := '';                                                       &#13;&#10;  DatosCliente.Lines.Clear;&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;CALLE&#34;&#62; &#60;&#62; '') then                 &#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;  begin&#13;&#10;     ATexto := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;;&#13;&#10;     if ATexto &#60;&#62; '' then&#13;&#10;        ATexto := ATexto + ' ';                                                                                               &#13;&#10;     ATexto := ATexto + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;;                                                                          &#13;&#10;     DatosCliente.Lines.Add(ATexto);&#13;&#10;  end;                   &#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;     DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;&#13;&#10;  ATexto := '';    &#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') or&#13;&#10;     (&#60;frxDBCabecera.&#34;MOVIL&#34;&#62; &#60;&#62; '') then                                   &#13;&#10;  begin&#13;&#10;     if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') then                          &#13;&#10;        ATexto := 'Tlf: ' + &#60;frxDBCabecera.&#34;TELEFONO&#34;&#62;;&#13;&#10;&#13;&#10;     if (&#60;frxDBCabecera.&#34;MOVIL&#34;&#62; &#60;&#62; '') then&#13;&#10;     begin                 &#13;&#10;       if ATexto &#60;&#62; '' then&#13;&#10;          ATexto := ATexto + ' / ';&#13;&#10;       ATexto := ATexto + 'M髒il: ';            &#13;&#10;       ATexto := ATexto + &#60;frxDBCabecera.&#34;MOVIL&#34;&#62;;&#13;&#10;     end;                        &#13;&#10;     DatosCliente.Lines.Add(ATexto);&#13;&#10;  end;&#13;&#10;        &#13;&#10;  ATexto := '';                                                  &#13;&#10;  if (&#60;frxDBCabecera.&#34;NIF_CIF&#34;&#62; &#60;&#62; '') then&#13;&#10;      ATexto := 'NIF/CIF: ' + &#60;frxDBCabecera.&#34;NIF_CIF&#34;&#62;;&#13;&#10;  &#13;&#10;  if ATexto &#60;&#62; '' then&#13;&#10;       ATexto := ATexto + '  ';    &#13;&#10;  ATexto := ATexto + 'C骴. cliente: ' + &#60;frxDBCabecera.&#34;REF_CLIENTE&#34;&#62;;  &#13;&#10;  DatosCliente.Lines.Add(ATexto);&#13;&#10;      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure MasterData1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'AF' ) &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'AI' )&#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'B' ) then&#13;&#10;  begin&#13;&#10;    Header1.Visible := False;                                                        &#13;&#10;    DetailData1.Visible := False;                                                                  &#13;&#10;    DetailData2.Visible := True;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Header1.Visible := True;                                                          &#13;&#10;    DetailData1.Visible := True;                                                                  &#13;&#10;    DetailData2.Visible := False;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;end;&#13;&#10;&#13;&#10;procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;FORMA_PAGO&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;    Memo38.Visible := False;&#13;&#10;    Memo27.Visible := False;                                                              &#13;&#10;  end;              &#13;&#10;  &#13;&#10;  if (Length(trim(&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62;)) = 0) then&#13;&#10;  begin&#13;&#10;    Memo40.Visible := False;&#13;&#10;    Memo37.Visible := False;                                                              &#13;&#10;  end;&#13;&#10;&#13;&#10;  if (Length(trim(&#60;frxDBCabecera.&#34;PLAZO_ENTREGA&#34;&#62;)) = 0) then&#13;&#10;  begin&#13;&#10;    Memo39.Visible := False;&#13;&#10;    Memo28.Visible := False;&#13;&#10;    if (Length(&#60;frxDBCabecera.&#34;FORMA_PAGO&#34;&#62;) &#60;&#62; 0) then&#13;&#10;       Memo37.Height := Memo37.Height + (Memo39.Height + Memo28.Height);                                                                        &#13;&#10;  end;&#13;&#10;&#13;&#10;  if Engine.FinalPass then&#13;&#10;  begin              &#13;&#10;    if (&#60;frxDBCabecera.&#34;NO_VALORADO&#34;&#62; = 1) then&#13;&#10;    begin&#13;&#10;       eImporteneto.Visible := False;                    &#13;&#10;       Importeneto.Visible := False;&#13;&#10;       eDescuento.Visible := False;&#13;&#10;       Descuento.Visible := False;     &#13;&#10;       eBaseimponible.Visible := False;&#13;&#10;       Baseimponible.Visible := False;&#13;&#10;       eIva.Visible := False;&#13;&#10;       Iva.Visible := False;&#13;&#10;       eRe.Visible := False;&#13;&#10;       Re.Visible := False;&#13;&#10;       eImportetotal.Visible := False;&#13;&#10;         Importetotal.Visible := False;        &#13;&#10;    end&#13;&#10;    else begin&#13;&#10;       if (&#60;frxDBCabecera.&#34;DESCUENTO&#34;&#62; = 0) then&#13;&#10;       begin&#13;&#10;         eBaseimponible.Top := eBaseimponible.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         Baseimponible.Top := Baseimponible.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         eIva.Top := eIva.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         Iva.Top := Iva.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         eRe.Top := eRe.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         Re.Top := Re.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         eImportetotal.Top := eImportetotal.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         Importetotal.Top := Importetotal.Top - (eImporteneto.Height + eDescuento.Height);                                             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eImporteneto.Visible := True;&#13;&#10;         Importeneto.Visible := True;&#13;&#10;         eDescuento.Visible := True;&#13;&#10;         Descuento.Visible := True;     &#13;&#10;       end;&#13;&#10;                                                       &#13;&#10;       if (&#60;frxDBCabecera.&#34;RE&#34;&#62; = 0) then&#13;&#10;       begin&#13;&#10;         eImportetotal.Top := eImportetotal.Top - eRe.Height;&#13;&#10;         Importetotal.Top := Importetotal.Top - eRe.Height;                                             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eRe.Visible := True;&#13;&#10;         Re.Visible := True;         &#13;&#10;       end;  &#13;&#10;         &#13;&#10;       if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; = 0) then&#13;&#10;       begin                     &#13;&#10;         eImportetotal.Top := eImportetotal.Top - eIva.Height;                &#13;&#10;         Importetotal.Top := Importetotal.Top - eIva.Height;&#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eIva.Visible := True;&#13;&#10;         Iva.Visible := True;         &#13;&#10;       end;  &#13;&#10;    &#13;&#10;       eBaseimponible.Visible := True;&#13;&#10;       Baseimponible.Visible := True;&#13;&#10;       eImportetotal.Visible := True;         &#13;&#10;       Importetotal.Visible := True;&#13;&#10;    end&#13;&#10;  end; //Engine.FinalPass      &#13;&#10;                                 &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo20OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCapitulos.&#34;IMPORTE_TOTAL&#34;&#62; = 0)  &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_DETALLE&#34;&#62; = 'Titulo_opc') then&#13;&#10;  begin&#13;&#10;    Footer1.Height := 5;&#13;&#10;    Memo13.Visible := False;&#13;&#10;    Memo20.Visible := False;  &#13;&#10;    Memo21.Visible := False;  &#13;&#10;    Memo11.Visible := False;&#13;&#10;    Memo24.Visible := False;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Footer1.Height := 40;&#13;&#10;    Memo13.Visible := True;  &#13;&#10;    Memo20.Visible := True;&#13;&#10;    Memo21.Visible := True;&#13;&#10;    if (&#60;frxDBCapitulos.&#34;IMPORTE_DESCUENTO&#34;&#62; = 0) then&#13;&#10;    begin&#13;&#10;      Footer1.Height := 24;    &#13;&#10;      Memo11.Visible := False;&#13;&#10;      Memo24.Visible := False;       &#13;&#10;    end&#13;&#10;    else&#13;&#10;    begin&#13;&#10;      Memo11.Visible := True;&#13;&#10;      Memo24.Visible := True;&#13;&#10;    end;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo34OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Rich4OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DetailData1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;   if (Header1.Visible) then&#13;&#10;   begin                   &#13;&#10;       if (&#60;frxDBDetalles.&#34;VISIBLE2&#34;&#62; &#60;&#62; 1) then&#13;&#10;               DetailData1.Visible := False&#13;&#10;       else&#13;&#10;               DetailData1.Visible := True;&#13;&#10;   end;                                       &#13;&#10;end;&#13;&#10;&#13;&#10;procedure DetailData2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;   if (not Header1.Visible) then&#13;&#10;   begin    &#13;&#10;       if (&#60;frxDBDetalles.&#34;VISIBLE2&#34;&#62; &#60;&#62; 1) then&#13;&#10;               DetailData2.Visible := False&#13;&#10;       else&#13;&#10;               DetailData2.Visible := True;&#13;&#10;   end;                                                                                                 &#13;&#10;end;&#13;&#10;&#13;&#10;procedure pagCalidadesOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;    if (length(&#60;frxDBCabecera.&#34;CALIDADES&#34;&#62;) = 0) then&#13;&#10;    begin                &#13;&#10;      pagCalidades.Visible := False;&#13;&#10;      Set('TotalPaginas', (&#60;TotalPaginas&#62; - 1));&#13;&#10;    end;                   &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end.  " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3600000020446174615365743D2266727844424361706974756C6F732220446174615365744E616D653D2266727844424361706974756C6F732200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F732200010C18000000204E616D653D22546578746F4E756D4361706974756C6F220000055374796C650100">
+<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="43248,7581680324" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  NombreEmpresa.Lines.Clear;&#13;&#10;  NombreEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;NOMBRE_EMPRESA&#34;&#62;);&#13;&#10;}&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader1OnBeforePrint(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;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Set('Pagina', 0);&#13;&#10;  Set('TotalPaginas', 0);&#13;&#10;  Set('Capitulo', '0');&#13;&#10;  Set('NumCapitulos', 0);&#13;&#10;  Set('TextoNumCapitulo', ''' ''');      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo45OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;     Set('Capitulo', (&#60;Capitulo&#62; + 1));                                 &#13;&#10;     Set('TextoNumCapitulo', &#60;Capitulo&#62;);&#13;&#10;&#13;&#10;     if ((&#60;NumCapitulos&#62; = 1) and (&#60;frxDBCapitulos.&#34;CONCEPTO&#34;&#62; = 'General')) then&#13;&#10;       MasterData1.Visible := False&#13;&#10;     else begin                                     &#13;&#10;       if (&#60;frxDBCapitulos.&#34;TIPO_DETALLE&#34;&#62; = 'Titulo opcional') then&#13;&#10;       begin&#13;&#10;         Set('TextoNumCapitulo', '''OPCIONAL''');&#13;&#10;       end&#13;&#10;     end                      &#13;&#10;  end&#13;&#10;  else             &#13;&#10;     Set('NumCapitulos', (&#60;NumCapitulos&#62; + 1));&#13;&#10;&#13;&#10;&#13;&#10;//  Memo11.lines.add(&#60;frxDBCapitulos.&#34;CONCEPTO&#34;&#62;);  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo47OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  &#13;&#10;    if (Length(&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62;) = 0) then&#13;&#10;    begin&#13;&#10;       Memo11.Visible := False;                                                                                      &#13;&#10;       Memo47.Visible := False;&#13;&#10;    end&#13;&#10;}        &#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxDBDetallesCANTIDADOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var    &#13;&#10;  ACantidad: String;  &#13;&#10;  AIndice: Integer;&#13;&#10;  AText : String;                                    &#13;&#10;begin&#13;&#10;{    &#13;&#10;  frxDBDetallesCANTIDAD.Memo.Clear;  &#13;&#10;  ACantidad := FloatToStr(&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;);  &#13;&#10;  AIndice := Pos(',', ACantidad);&#13;&#10;  if AIndice &#62; 0 then                                           &#13;&#10;     AText := '[FormatFloat(''#,##0.00'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)]&#13;&#10;  else                     &#13;&#10;     AText := '[FormatFloat(''#,##0.##'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)];  &#13;&#10;         &#13;&#10;  frxDBDetallesCANTIDAD.Memo.Add(AText);&#13;&#10;}      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ATexto : string;                                           &#13;&#10;begin&#13;&#10;  ATexto := '';                                                       &#13;&#10;  DatosCliente.Lines.Clear;&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;CALLE&#34;&#62; &#60;&#62; '') then                 &#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;  begin&#13;&#10;     ATexto := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;;&#13;&#10;     if ATexto &#60;&#62; '' then&#13;&#10;        ATexto := ATexto + ' ';                                                                                               &#13;&#10;     ATexto := ATexto + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;;                                                                          &#13;&#10;     DatosCliente.Lines.Add(ATexto);&#13;&#10;  end;                   &#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;     DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;&#13;&#10;  ATexto := '';    &#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') or&#13;&#10;     (&#60;frxDBCabecera.&#34;MOVIL&#34;&#62; &#60;&#62; '') then                                   &#13;&#10;  begin&#13;&#10;     if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') then                          &#13;&#10;        ATexto := 'Tlf: ' + &#60;frxDBCabecera.&#34;TELEFONO&#34;&#62;;&#13;&#10;&#13;&#10;     if (&#60;frxDBCabecera.&#34;MOVIL&#34;&#62; &#60;&#62; '') then&#13;&#10;     begin                 &#13;&#10;       if ATexto &#60;&#62; '' then&#13;&#10;          ATexto := ATexto + ' / ';&#13;&#10;       ATexto := ATexto + 'M髒il: ';            &#13;&#10;       ATexto := ATexto + &#60;frxDBCabecera.&#34;MOVIL&#34;&#62;;&#13;&#10;     end;                        &#13;&#10;     DatosCliente.Lines.Add(ATexto);&#13;&#10;  end;&#13;&#10;        &#13;&#10;  ATexto := '';                                                  &#13;&#10;  if (&#60;frxDBCabecera.&#34;NIF_CIF&#34;&#62; &#60;&#62; '') then&#13;&#10;      ATexto := 'NIF/CIF: ' + &#60;frxDBCabecera.&#34;NIF_CIF&#34;&#62;;&#13;&#10;  &#13;&#10;  if ATexto &#60;&#62; '' then&#13;&#10;       ATexto := ATexto + '  ';    &#13;&#10;  ATexto := ATexto + 'C骴. cliente: ' + &#60;frxDBCabecera.&#34;REF_CLIENTE&#34;&#62;;  &#13;&#10;  DatosCliente.Lines.Add(ATexto);&#13;&#10;      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure MasterData1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'AF' ) &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'AI' )&#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'B' ) then&#13;&#10;  begin&#13;&#10;    Header1.Visible := False;                                                        &#13;&#10;    DetailData1.Visible := False;                                                                  &#13;&#10;    DetailData2.Visible := True;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Header1.Visible := True;                                                          &#13;&#10;    DetailData1.Visible := True;                                                                  &#13;&#10;    DetailData2.Visible := False;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;end;&#13;&#10;&#13;&#10;procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;FORMA_PAGO&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;    Memo38.Visible := False;&#13;&#10;    Memo27.Visible := False;                                                              &#13;&#10;  end;              &#13;&#10;  &#13;&#10;  if (Length(trim(&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62;)) = 0) then&#13;&#10;  begin&#13;&#10;    Memo40.Visible := False;&#13;&#10;    Memo37.Visible := False;                                                              &#13;&#10;  end;&#13;&#10;&#13;&#10;  if (Length(trim(&#60;frxDBCabecera.&#34;PLAZO_ENTREGA&#34;&#62;)) = 0) then&#13;&#10;  begin&#13;&#10;    Memo39.Visible := False;&#13;&#10;    Memo28.Visible := False;&#13;&#10;    if (Length(&#60;frxDBCabecera.&#34;FORMA_PAGO&#34;&#62;) &#60;&#62; 0) then&#13;&#10;       Memo37.Height := Memo37.Height + (Memo39.Height + Memo28.Height);                                                                        &#13;&#10;  end;&#13;&#10;&#13;&#10;  if Engine.FinalPass then&#13;&#10;  begin              &#13;&#10;    if (&#60;frxDBCabecera.&#34;NO_VALORADO&#34;&#62; = 1) then&#13;&#10;    begin&#13;&#10;       eImporteneto.Visible := False;                    &#13;&#10;       Importeneto.Visible := False;&#13;&#10;       eDescuento.Visible := False;&#13;&#10;       Descuento.Visible := False;     &#13;&#10;       eBaseimponible.Visible := False;&#13;&#10;       Baseimponible.Visible := False;&#13;&#10;       eIva.Visible := False;&#13;&#10;       Iva.Visible := False;&#13;&#10;       eRe.Visible := False;&#13;&#10;       Re.Visible := False;&#13;&#10;       eImportetotal.Visible := False;&#13;&#10;         Importetotal.Visible := False;        &#13;&#10;    end&#13;&#10;    else begin&#13;&#10;       if (&#60;frxDBCabecera.&#34;DESCUENTO&#34;&#62; = 0) then&#13;&#10;       begin&#13;&#10;         eBaseimponible.Top := eBaseimponible.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         Baseimponible.Top := Baseimponible.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         eIva.Top := eIva.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         Iva.Top := Iva.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         eRe.Top := eRe.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         Re.Top := Re.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         eImportetotal.Top := eImportetotal.Top - (eImporteneto.Height + eDescuento.Height);&#13;&#10;         Importetotal.Top := Importetotal.Top - (eImporteneto.Height + eDescuento.Height);                                             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eImporteneto.Visible := True;&#13;&#10;         Importeneto.Visible := True;&#13;&#10;         eDescuento.Visible := True;&#13;&#10;         Descuento.Visible := True;     &#13;&#10;       end;&#13;&#10;                                                       &#13;&#10;       if (&#60;frxDBCabecera.&#34;RE&#34;&#62; = 0) then&#13;&#10;       begin&#13;&#10;         eImportetotal.Top := eImportetotal.Top - eRe.Height;&#13;&#10;         Importetotal.Top := Importetotal.Top - eRe.Height;                                             &#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eRe.Visible := True;&#13;&#10;         Re.Visible := True;         &#13;&#10;       end;  &#13;&#10;         &#13;&#10;       if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; = 0) then&#13;&#10;       begin                     &#13;&#10;         eImportetotal.Top := eImportetotal.Top - eIva.Height;                &#13;&#10;         Importetotal.Top := Importetotal.Top - eIva.Height;&#13;&#10;       end&#13;&#10;       else&#13;&#10;       begin&#13;&#10;         eIva.Visible := True;&#13;&#10;         Iva.Visible := True;         &#13;&#10;       end;  &#13;&#10;    &#13;&#10;       eBaseimponible.Visible := True;&#13;&#10;       Baseimponible.Visible := True;&#13;&#10;       eImportetotal.Visible := True;         &#13;&#10;       Importetotal.Visible := True;&#13;&#10;    end&#13;&#10;  end; //Engine.FinalPass      &#13;&#10;                                 &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo20OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCapitulos.&#34;IMPORTE_TOTAL&#34;&#62; = 0)  &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_DETALLE&#34;&#62; = 'Titulo_opc') then&#13;&#10;  begin&#13;&#10;    Footer1.Height := 5;&#13;&#10;    Memo13.Visible := False;&#13;&#10;    Memo20.Visible := False;  &#13;&#10;    Memo21.Visible := False;  &#13;&#10;    Memo11.Visible := False;&#13;&#10;    Memo24.Visible := False;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Footer1.Height := 40;&#13;&#10;    Memo13.Visible := True;  &#13;&#10;    Memo20.Visible := True;&#13;&#10;    Memo21.Visible := True;&#13;&#10;    if (&#60;frxDBCapitulos.&#34;IMPORTE_DESCUENTO&#34;&#62; = 0) then&#13;&#10;    begin&#13;&#10;      Footer1.Height := 24;    &#13;&#10;      Memo11.Visible := False;&#13;&#10;      Memo24.Visible := False;       &#13;&#10;    end&#13;&#10;    else&#13;&#10;    begin&#13;&#10;      Memo11.Visible := True;&#13;&#10;      Memo24.Visible := True;&#13;&#10;    end;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo34OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Rich4OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DetailData1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;   if (Header1.Visible) then&#13;&#10;   begin                   &#13;&#10;       if (&#60;frxDBDetalles.&#34;VISIBLE2&#34;&#62; &#60;&#62; 1) then&#13;&#10;               DetailData1.Visible := False&#13;&#10;       else&#13;&#10;               DetailData1.Visible := True;&#13;&#10;   end;                                       &#13;&#10;end;&#13;&#10;&#13;&#10;procedure DetailData2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;   if (not Header1.Visible) then&#13;&#10;   begin    &#13;&#10;       if (&#60;frxDBDetalles.&#34;VISIBLE2&#34;&#62; &#60;&#62; 1) then&#13;&#10;               DetailData2.Visible := False&#13;&#10;       else&#13;&#10;               DetailData2.Visible := True;&#13;&#10;   end;                                                                                                 &#13;&#10;end;&#13;&#10;&#13;&#10;procedure pagCalidadesOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;    if (length(&#60;frxDBCabecera.&#34;CALIDADES&#34;&#62;) = 0) then&#13;&#10;    begin                &#13;&#10;      pagCalidades.Visible := False;&#13;&#10;      Set('TotalPaginas', (&#60;TotalPaginas&#62; - 1));&#13;&#10;    end;                   &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end.  " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3600000020446174615365743D2266727844424361706974756C6F732220446174615365744E616D653D2266727844424361706974756C6F732200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F732200010C18000000204E616D653D22546578746F4E756D4361706974756C6F220000055374796C650100">
   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
   <TfrxReportPage Name="Page3" Font.Charset="1" Font.Color="13056" Font.Height="-13" Font.Name="Arial" Font.Style="0" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
     <TfrxPageHeader Name="PageHeader2" Height="220" Left="0" Top="16" Width="718,101251175" OnBeforePrint="PageHeader1OnBeforePrint">
@@ -65,7 +65,7 @@
       <TfrxLineView Name="Line1" Align="baRight" Left="718,101251175" Top="1" Width="0" Height="16" ShowHint="False" StretchMode="smMaxHeight" Frame.Typ="1"/>
     </TfrxDetailData>
     <TfrxPageFooter Name="PageFooter1" Height="90" Left="0" Top="1839" Width="718,101251175">
-      <TfrxMemoView Name="Memo12" Left="0" Top="2" Width="718,48819386" Height="104,33859" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 聙" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-7" Font.Name="Tahoma" Font.Style="0" Frame.Typ="4" HideZeros="True" ParentFont="False" Text="&#13;&#10;En cumplimiento en lo dispuesto en el &#60;b&#62;Reglamento Europeo de Protecci贸n de Datos del 27 de Abril de 2.016, Ley Org谩nica 15/1999, de Reglamento General de Protecci贸n de Datos (GDPR);&#60;/b&#62; ALISO DESIGN S.L. requiere su consentimiento expreso e informado a los fines de proceder al tratamiento de sus datos (nombre, apellidos, tel茅fono entre otros), con la con la finalidad de ofrecerte un mejor servicio ya sea haci茅ndote llegar por correo postal, tel茅fono, e-mail, SMS, Whatsapp, redes sociales, u otros medios de comunicaci贸n equivalentes f铆sicos o electr贸nicos, los presupuestos que nos has solicitado previamente o manteni茅ndote informado de la evoluci贸n de tu proyecto en el caso de que lo estemos realizando. As铆 mismo, tambi茅n nos sirve para mantener la comunicaci贸n contigo para resolver aquellas dudas o consultas que se te planteen y tambi茅n para que podamos ofrecerte otros servicios o productos que puedan ser de tu inter茅s mediante mail marketing u otros medios. Tus datos ser谩n gestionados en un fichero cuyo responsable es ALISO DESIGN S.L. y se utilizar谩n para la gesti贸n de clientes y proveedores, as铆 como para la gesti贸n a terceros para clientes.&#13;&#10;&#13;&#10;Asimismo le informamos que puede ejercitar sus derechos de acceso, rectificaci贸n, cancelaci贸n y oposici贸n. Para ejercer tus derechos puedes hacerlo, sin coste alguno, enviando un escrito a la atenci贸n de &#60;b&#62;ALISO DESIGN S.L. con domicilio en C/ La Fundici贸n, 27. Rivas-Vaciamadrid 28522. Madrid&#60;/b&#62;, o bien enviando un email a &#60;b&#62;protecciondedatos@acanainteriorismo.com.&#60;/b&#62; Con la firma otorgas tu consentimiento expreso e informado para el tratamiento de tus datos por ALISO DESIGN S.L. para los fines antes expuestos."/>
+      <TfrxMemoView Name="Memo12" Left="0" Top="2" Width="718,48819386" Height="104,33859" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 聙" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-7" Font.Name="Tahoma" Font.Style="0" Frame.Typ="4" HideZeros="True" ParentFont="False" Text="Informaci贸n b谩sica sobre protecci贸n de datos:&#13;&#10;&#13;&#10;En cumplimiento en lo dispuesto en el &#60;b&#62;Reglamento Europeo de Protecci贸n de Datos del 27 de Abril de 2.016, Ley Org谩nica 15/1999, de Reglamento General de Protecci贸n de Datos (GDPR);&#60;/b&#62; ALISO DESIGN S.L. requiere su consentimiento expreso e informado a los fines de proceder al tratamiento de sus datos. Finalidad: Prestar los servicios solicitados y realizar la gesti贸n contable, fiscal y administrativa, as铆 como enviarle comunicaciones comerciales sobre nuestros productos y/o servicios, y enviar comunicaciones comerciales. Legitimaci贸n: Ejecuci贸n de un contrato. Inter茅s leg铆timo del Responsable. Destinatarios: No se ceder谩n datos a terceros, salvo obligaci贸n legal.&#13;&#10;&#13;&#10;Derechos: Tiene derecho a acceder, rectificar y suprimir los datos, as铆 como otros derechos, indicados en la informaci贸n adicional, que puede ejercer enviando un correo electr贸nico con copia de NIF a nuestra direcci贸n electr贸nica: &#60;b&#62;protecciondedatos@acanainteriorismo.com&#60;/b&#62;. Procedencia: El propio interesado. Informaci贸n adicional: Puede consultar informaci贸n adicional y detallada sobre Protecci贸n de Datos en nuestra p谩gina web: &#60;b&#62;www.acanainteriorismo.com/aviso-legal/&#60;/b&#62;&#13;&#10;"/>
     </TfrxPageFooter>
   </TfrxReportPage>
   <TfrxReportPage Name="pagCalidades" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="" OnBeforePrint="pagCalidadesOnBeforePrint">
@@ -80,7 +80,7 @@
     </TfrxPageHeader>
     <TfrxOverlay Name="Overlay2" Height="1016,69357" Left="0" Top="338" Width="718,101251175">
       <TfrxPictureView Name="Picture3" Align="baBottom" Left="263,9765" Top="534,42585346" Width="451,65354331" Height="482,26771654" ShowHint="False" Center="True" Picture.PropData="04446174610A781300000A544A504547496D61676569130000FFD8FFE000104A46494600010200006400640000FFEC00114475636B79000100040000001E0000FFEE000E41646F62650064C000000001FFDB008400100B0B0B0C0B100C0C10170F0D0F171B141010141B1F17171717171F1E171A1A1A1A171E1E23252725231E2F2F33332F2F40404040404040404040404040404001110F0F1113111512121514111411141A141616141A261A1A1C1A1A2630231E1E1E1E23302B2E2727272E2B35353030353540403F404040404040404040404040FFC0001108028001A103012200021101031101FFC40076000100030101000000000000000000000000020304010701010101000000000000000000000000000001021001000201020405030304010403000000000102031131214112045161718132B1223391A142F0C15213D1E1F162829223141101010101010100000000000000000000000111413121FFDA000C03010002110311003F00F40000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000119B56BBCC421933456226B316F1805A29AF7149DFEDFDD6C4C4C6B1C601D00000000000000000000000000000000000000000000000000000000000000000000000046D6E9ACDBC21243344CE3B446E0C933333ACF1997011A16E1C9D33D33F19FD9500DE235D7A635DF48D5256400000000000000000000000000000000000000000000000000000000000000000000071D4272522DD333A4F982193045A75AF09E71C954E0C91C9AA26278C4EBE80BAC9FE9CBFE3F45B8FB7D275BFE8B9D0D71D010000000000000000000000000000000000000000000000000000000000000000000001C9E1C58AD3ACCCF8F169CF6E9C73E33C1952AC4A9D5D51D3BB6A8EDE9A44DE79F08F45EA50010000000000000000000000000000000000000000000000000000000000000000000000072674E320CFDC5B5BC57FC7FBAA88999D237926759999E7C53C15D7247971469AA2348888DA383A0AC8000000000000000000000000000000000000000000000000000000000000000000000000AF3DBA71CF8CF04D9FB8B6B68AC72FA8452D1DB574ACDBC787E8CEDB8EBD348AF86E8B5211EAAC5A2BAF19DA1254000000000000000000000000000000000000000000000000000000000000000000046D7AD635B4E8A6DDCCFF0008F7905F3311C676576EE291B7DD2CF6BDAD3ADA7545357165F35EFC368F085602A54D3AA26DB6BC575FB88D34A6FE32CE963A75DBA797305B82B3369C96F66872222B1111B43AAC80000000000000000000000000000000000000000000000000000000000000864CB5C71C78CF2804AD68AC6B69D2145FB899E14E1E6AAF7B5E75B228B84CCCF199D6401469FF00F3D3A6236B739F343B7A755BAA768DBD5A44AC57ACD2D359456E6D6D9B4F4884B3E2AC57AAB1A69B8284F1E59C7AE911313BA00ADB4BC5E358498F1E49A5B5E5CE1AF7566BA0000000000000000000000000000000000000000000000000000000000E5AD1589B4ED00865CB18E3C6D3B432CCCCCEB3C665DBDA6F69B4A28B00051662C53938ED58DE5DC5866DF75B857EAD311111A470812D22222348E110E82A33CD75EE7CB7FD213EE274C7EB29DB4AC4DF4E310CF3DC64989E11EA2A38B1FF00B26635D34E65F15A9BC6B1E2BBB7AE94EAFF002FECB6622784EC86B0B476F9358E89DE36F4579B1744EB1F19FD95C4CC4EB1B87ADC32CE6C931A6BA7A18F24D7244CCEBAF09D54C6B1C74400000000000000000000000000000000000000000000000000019FB9BED4F795EC792DD5799E5C8588BB15998998DA37F771AA3169866BCE638FAA2B2ADC18BAA7AADF18DBCD0AD66D68AFEAD911111A47088128E82A00038E4D2931D331C3C1201CDB843A00864AF552639F2F5636E62B469698F094AB1C0056DACEB589F188490C53AE3AFA26AC8000000000000000000000000000000000000000000000000002379D2B33E112C4D79BF159912AC76B3D3689F09D57CF735E51333E6CE0AD386DD76B5A62227846B0B94F6DF09F55CACD00000000000071866759D679B665B74E39F3E1FAB1A558952B36B45639A79EB15B4444691A27DB5784DBD965F1D6F1113CBC037EB983F157DFEAB11A56295E98DA125400000000000000000000000000000000000000000000000000046F1D54B47970626E63C95E8BCC72E4956220D918B1E9A74C69E3FF005150EDA7EC98F35C8531D69AF4F34D59000000000010C978A575E7CA014F717D66291B4719F5524CCCCEB3B88D3476D68D26BCF5D5730AFEDED79B4EB3331A73F112C68015000000000000000000000000000000000000000000000000000051DC535AC5E396FE8BD1B4C45666DB69C41897E2CFA4456FB46D2A0469BA2626358E303144CD78C4E9E89C67C91CF5F55D4C6B1457B9ACFCA34F3DD744C5A3589D604741C074715DF3D2BB7DD3E409DAD158D67664C9926F3ACEDCA0BDED79D6D3EC8A2C80028D78A934A693BCF19578316B3D76DB94342A5001000000000000000000000000000000000000000000000000000067EE2FACF4472DD6E4BF4566DFA7AB1CCCCF19DC58008A0006FC21B3153A2BA739E32ABB7C7FCE7FF56854AA3B99989AE93A4F1D957FB7247F2959DCEF5F75084766D6B6F333EAE00A0254A5AF3A54115F8B07F2BFFF001598F1569E76F158A9AE3A020000000000000000000000000000000000000000000000000000E3AAF2E4E8AF9CEC0A73DFAADD31B57EAA811A00013C54EBB69CA37462266748E332D78E914AE9CF9FA8952DB843A0A8CDDCCFDD11E4A57773F38F4528D400022359D3C5B6948A5748F7964C7F92BEB0DA44A00A800000000000000000000000000000000000000000002ACB9A293D31C6C0B471D000000071932DFAEFAF28D96F7193F847BB3A2C001405B871F5DB59F8C02CC18F48EB9DE765CE3AAC80032F73F923D3FBAA5BDCFCE3D3FBAA46A000278635C95FEB66C64C1F963DDAD6250010000000000000000000000000000000000000000001C64CBAFF00B2DAF8B628CF8F58EB8DE378162786FD748F18E12B18A97B52758F786AA64ADE386FCE02C4DCB5A2B1ACCE90866C9D11C379D996D6B5A75B4EB218D78EFD75EAD348D78399727457CE76658BDE2348B4C47A96B4DA7599D6764D31C99999D67790050088999D23704A949BDBA63DE5AEB58AC456368731E38A574E7CE5354A00200032F71F93D952DEE3F27B2A46A0002DEDBF24FA353376DF399F26954A00200000000000000000000000000000000000000000000033E5C1FCA9EF1FF0A3CE1B947718EB1F7C70999E308B2A9B5AD6E369D74E0E00A0000003460C7A475CEF3B7A21871F54F54FC63F76912BA02A0000003267FCB3EDF456B33FE59F6FA2B4680017F6DBDBD9A1476DFCBD97AB3400000000000000000000000000000000000000000000000064CF6EAC931CA3835B366C568B4DA23589E322C5202280009E3A4DEDA72E72834E1BE28AC444E93BCEBE2156C44444446D0EB8EAB2000000000C99FF002DBDBE8AD667FCB6F6FA2B468001A7B6F84FAAE558234C71E7AAC565D1CD4074000000000000000000000000000000000000000000001C99888D676819B365EA9E9AFC63F705733ACCCCF3E2E023402EC18BAA7AAD1C236F305734B562266384ED28B72AB76F4B718FB67F631359E2D6AED330B2BDC5E3E5F77ECE5B064AF2D63C95CF0E13B8AD35EE293F2FB67F55B1313B4EBE8C2EC4CC4EB1C24D4C6E192B9F2473D7D56D7B8ACFCA34FDD4C5C235B56DC6B3AA423267FCB6F6FA2B4F37E4B208D00035E0FC55F7FAB364B755E6796BC1A6BF6E189F0AEBFB320913A5A695B5A37DA3DFFEC9F6F33379D79C2BD7EC88F3E29F6FF93D81A8054000000000000000000000000000000000000000000559EDA534E76E0CADB7A56F1A5A3D19B261B538EF5F1458AC1DAD66D3158DE454B1E39BCF946ED711111A46D08E3A452BA47BCA6ACD0001C9889DE35740556C18E7969E885BB69FE33ED2D006B1DB15EBBC70F1841BD0B62A5B78D27C6131758E2662758E12BB166BCDA2B3F76BFAA37C16AF18E30976D1F74CF847D410CDF92C82593F25BD65114023706BB7DB866279574FD991B32CE98EDE8C65482DEDFF0027B2BD274D794ECB3B6FC93E82D6A0159000000000000000000000000000000000000000119BD227A666224BDA2959B4F26399999999DE4591B461762D359D62744D317DFB789E349D27C3925871746B33F29FA258ED36A45A7794D50000000000000000462958B4DA384CEFE0900C593E76F59452C9F92DEB28A34254F9D7D6114F0FE5AFF5C817F713A63D3C6623FBB2B6DE95BFCA3653930445666BCB90911CDC2294FF0018E3EE976D1C6D3ECA6D69B4CCCEF2D3DBD74C7AF8871680A800000000000000000000000000000000000002BCD93A2BC3E53B029CF93AADD31B57EAA811A1DAD66F68AC6F2E444CCE91BCB5E2C714AF9CEF2254EB1D31111CB83A0A8000000000000000000C593E76F59456DF1649B5A62386B2AA6262749E128D0BBB68FBE67C214B476D1C2D3EC255E02A2BB61C76E5A4F92711111111B43A00000000000000000000000000000000000000003933158999DA18EF79BDA6D3ED09E7C9D56E98DA3EAA91600B70639B4F54FC63F7915660C5D31D56DE76F25CE3AAC80000000000000000000038E5A95B7CA3575D066CD48A56B15DB59D656E08D31C79F14E6226349E3003A000000000000000000000000000000000000000000AF364E8AF0F94EC9CCC56266784431DEF37B4DA7F416220446B3A422A58E937B457F596C888AC691C2211C58FA2BA739DD354A00200000000000000000000033F733C6B1EA8E1BDFAE2BAEB13C8EE275C9A7843983F2C796A8BC5B93374E488FE31F24B1E58C9AE91A4432CCEB333E3C5A3B68FB667C641700A800000000000000000000000000000000000038EAACD93A2BA47CA415E7C9D53D11B46FEAA411A1A3063D3EF9DE765787175CEB3F18FDDA84AE80A8000000000000000000000000C99BF2DBFAE461E1369F0ACA39275C96F594F0FC327A7FCA2F1535E08D3143236E3E14AFA410A900A80000000000000000000000000000000000380E5AD15ACDA76863B5A6D69B4EF29E6C9D76D227ED8568B04A959BDA2B08B5E1C7D15E3F29DC5A9D6B1588AC6D0E82B2000000000000000000000000000C57F9DBD653A70C379F1988549757FF5C57CE67F646916E63C7F3AFAC36912802A0000000000000000000000000000000000A73E4D23A2379DFD13C978A566D3ED0C933369D678CC8B1C04F1D26F6D39739454F063D67AE768D9A5C88888D236875590000000000000000000000000001C75C9DA418404693C3C72D7FAE4D8CBDBC6B93D2356A54A0020000000000000000000000000000000E3AA3B8C9A7D91EE0AB2E4EBB7947084011A7622666223796BC78E295D39F3957831E91D73BCECBD528008000000000000000000000000000237F85BD25246FF000B7A4831008D2EEDA3EEB4F8434A8EDBF97B2F56680000000000000000000000000000000E02392F14ACCF3E5EAC733333ACEF29E5C9D76D7946C822C16E0C7D76D67E31FBA14A4DEDD30D75AC56B158DA02BAE82A00000000000000000000000000000008E4F85BD27E892193F1DBD2418C0469A7B6F84FAAE5783F147BFD562B200000000000000000000000000000028EE32691D11BCEEB325FA2BAF3E4C733AF191600BF063FE76FFD515662C7D15E3F29DD602B20000000000000000000000000000000002197F1DBD13432FE3B7A033E28ACCDA6D1AE9132AD2ADBA62DE71A7EA8A34D98A34C75F4D7F54D1A70A563CA1256400000000000000000000000000071D53DC5F488AC73DFD014E5C9D76F28D9012A566F68AC734692C38FAEDC7E31BB56CE56B15AC563924AC80000000000000000000000000000000000008DE35ADA3C6252727871906112C9D1D53D13AC3948D6F58F38469B5D05640000000000000000000000000011B5A2B59B4ED0C76B4DA66D3BCACCF7EAB74C6D5FAAA458EC44CCE91C65AB1638A47FE53BCA383174FDD6DE768F05CA5A00200000000000000000000000000000000000008658B5A9315DE53432C5E69A5379065B562BC35D679CC6CEE28D7257D4C98FFD73A6BAEB1AEAEE08D724796A8D3580AC8000000000000000000000000AF2E4E8AF9CEC9B265BF5DB5E51C20220BB062EAFBADB728F147162EB9D67E31BB54469C2116D7405400000000000000000000000000000000000000015E59BC57EC8D66782C018675D78EFCF55BDB47DF33E4AF2CF564B4F9FD16F6DFCBD9178D002A00000000000000000000000E4CC444CCED00ABB8BE95E98DE77F4538E937B69CB9C9F765C93A73FDA1AA948A5748FD517C762B158D2234887415000000000000000000000000000000000000000000046F6E9A4CF8470495E6899C768806469EDBE13EACCD78634C5545AB00540000000000000000000001565D6F318ABCF8CCF92D7348DF9CEE08D2914AE91EF298000000000000000000000000000000000000000000000008DED15ACDA7924ABB8FC7EE0CD33ACCCF8B65234A563C2218E235988F1E0DA916BA02A0000000000000000000000000000000000000000000000000000000000000000000000000AB3C6B8E7CB8AD432CC463B6BE1F5066C51AE4AC79EBFA3632F6F1AE4F486A16800800000000000000000000000000000000000000000000000000000000000000000000000029EE35FF5FBF15CE4C44C693B4829EDA385A7D97A35AD6B1A56348480000000000000000000000001FFD9" HightQuality="False"/>
-      <TfrxMemoView Name="Memo2" Left="6" Top="911" Width="709,48819386" Height="104,33859" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 聙" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-8" Font.Name="Tahoma" Font.Style="0" HideZeros="True" ParentFont="False" Text="En cumplimiento en lo dispuesto en el Reglamento Europeo de Protecci贸n de Datos del 27 de Abril de 2.016, Ley Org谩nica 15/1999, de Reglamento General de Protecci贸n de Datos (GDPR); ALISO DESIGN S.L. requiere su consentimiento expreso e informado a los fines de proceder al tratamiento de sus datos (nombre, apellidos, tel茅fono entre otros), con la con la finalidad de ofrecerte un mejor servicio ya sea haci茅ndote llegar por correo postal, tel茅fono, e-mail, SMS, Whatsapp, redes sociales, u otros medios de comunicaci贸n equivalentes f铆sicos o electr贸nicos, los presupuestos que nos has solicitado previamente o manteni茅ndote informado de la evoluci贸n de tu proyecto en el caso de que lo estemos realizando. As铆 mismo, tambi茅n nos sirve para mantener la comunicaci贸n contigo para resolver aquellas dudas o consultas que se te planteen y tambi茅n para que podamos ofrecerte otros servicios o productos que puedan ser de tu inter茅s mediante mail marketing u otros medios. Tus datos ser谩n gestionados en un fichero cuyo responsable es ALISO DESIGN S.L. y se utilizar谩n para la gesti贸n de clientes y proveedores, as铆 como para la gesti贸n a terceros para clientes.&#13;&#10;&#13;&#10;Asimismo le informamos que puede ejercitar sus derechos de acceso, rectificaci贸n, cancelaci贸n y oposici贸n. Para ejercer tus derechos puedes hacerlo, sin coste alguno, enviando un escrito a la atenci贸n de ALISO DESIGN S.L. con domicilio en C/ La Fundici贸n, 27. Rivas-Vaciamadrid 28522. Madrid, o bien enviando un email a protecciondedatos@acanainteriorismo.com. Con la firma otorgas tu consentimiento expreso e informado para el tratamiento de tus datos por ALISO DESIGN S.L. para los fines antes expuestos.&#13;&#10;"/>
+      <TfrxMemoView Name="Memo2" Left="6" Top="911" Width="709,48819386" Height="104,33859" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 聙" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-8" Font.Name="Tahoma" Font.Style="0" HideZeros="True" ParentFont="False" Text="En cumplimiento en lo dispuesto en el Reglamento Europeo de Protecci贸n de Datos del 27 de Abril de 2.016, Ley Org谩nica 15/1999, de Reglamento General de Protecci贸n de Datos (GDPR); ALISO DESIGN S.L. requiere su consentimiento expreso e informado a los fines de proceder al tratamiento de sus datos (nombre, apellidos, tel茅fono entre otros), con la con la finalidad de ofrecerte un mejor servicio ya sea haci茅ndote llegar por correo postal, tel茅fono, e-mail, SMS, Whatsapp, redes sociales, u otros medios de comunicaci贸n equivalentes f铆sicos o electr贸nicos, los presupuestos que nos has solicitado previamente o manteni茅ndote informado de la evoluci贸n de tu proyecto en el caso de que lo estemos realizando. As铆 mismo, tambi茅n nos sirve para mantener la comunicaci贸n contigo para resolver aquellas dudas o consultas que se te planteen y tambi茅n para que podamos ofrecerte otros servicios o productos que puedan ser de tu inter茅s mediante mail marketing u otros medios. Tus datos ser谩n gestionados en un fichero cuyo responsable es ALISO DESIGN S.L. y se utilizar谩n para la gesti贸n de clientes y proveedores, as铆 como para la gesti贸n a terceros para clientes.&#13;&#10;&#13;&#10;Asimismo le informamos que puede ejercitar sus derechos de acceso, rectificaci贸n, cancelaci贸n y oposici贸n. Para ejercer tus derechos puedes hacerlo, sin coste alguno, enviando un escrito a la atenci贸n de ALISO DESIGN S.L. con domicilio en C/ La Fundici贸n, 27. Rivas-Vaciamadrid 28522. Madrid, o bien enviando un email a protecciondedatos@acanainteriorismo.com. Con la firma otorgas tu consentimiento expreso e informado para el tratamiento de tus datos por ALISO DESIGN S.L. para los fines antes expuestos."/>
     </TfrxOverlay>
     <TfrxMasterData Name="MasterData2" Height="38" Left="0" Top="280" Width="718,101251175" ColumnWidth="0" ColumnGap="0" RowCount="1" Stretched="True">
       <TfrxRichView Name="Rich2" Left="4" Top="4" Width="716" Height="30" ShowHint="False" StretchMode="smActualHeight" GapX="2" GapY="1" PropData="0852696368456469740AF70000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6465666C616E67333038327B5C666F6E7474626C7B5C66305C666E696C205461686F6D613B7D7B5C66315C666E696C5C666368617273657430205461686F6D613B7D7D0D0A7B5C636F6C6F7274626C203B5C726564305C677265656E305C626C7565303B7D0D0A7B5C2A5C67656E657261746F72204D7366746564697420352E34312E31352E313531323B7D5C766965776B696E64345C7563315C706172645C6366315C66305C66733136205B667278444243616265636572612E225C66312043414C4944414445535C663020225D5C7061720D0A7D0D0A00"/>