From 67627aa8b6c078cc2af1322b3e95686cf6ff39fc Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Tue, 1 Sep 2009 15:22:02 +0000
Subject: [PATCH] Ticket #200 - Quitar los 0's de la columna cantidad en
 facturas de cliente

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@969 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Source/Informes/1/InfFacturaCliente.fr3 | 4 ++--
 Source/Informes/2/InfFacturaCliente.fr3 | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/Source/Informes/1/InfFacturaCliente.fr3 b/Source/Informes/1/InfFacturaCliente.fr3
index 9b5c2918..ad7063a0 100644
--- a/Source/Informes/1/InfFacturaCliente.fr3
+++ b/Source/Informes/1/InfFacturaCliente.fr3
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<TfrxReport Version="4.7.71" 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="39951,4945108102" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena: String;&#13;&#10;begin&#13;&#10;{  DatosEmpresa.Lines.Clear;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;}&#13;&#10;end;&#13;&#10;&#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 DireccionEnvioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ACadena : String;&#13;&#10;begin&#13;&#10;{  ACadena := '';&#13;&#10;  DireccionEnvio.Lines.Clear;&#13;&#10;  if (&#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62;;&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + '  ' + &#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62;;&#13;&#10;&#13;&#10;  DireccionEnvio.Lines.Add(ACadena);&#13;&#10;  ACadena := '';&#13;&#10;  DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + ' ';&#13;&#10;  if (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;;&#13;&#10;&#13;&#10;  if (ACadena &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(ACadena);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;TELEFONO&#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;end;&#13;&#10;&#13;&#10;procedure Memo4OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62;) = 0) then&#13;&#10;        Memo4.Visible := False;  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo22OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCabecera.&#34;DESCUENTO&#34;&#62; = 0) then&#13;&#10;  begin              &#13;&#10;     Subtotal.Text := 'Base imponible:';&#13;&#10;     BaseImponible.Text := 'Importe total:';         &#13;&#10;     BaseImponible.Font.Style := fsBold;&#13;&#10;&#13;&#10;     ImpBaseImponible.Text := FormatFloat('#,##0.00 €', &#60;frxDBCabecera.&#34;IMPORTE_TOTAL&#34;&#62;);&#13;&#10;     ImpBaseImponible.Font.Style := fsBold;         &#13;&#10;  &#13;&#10;     Descuento.Text := '[&#60;frxDBCabecera.&#34;IVA&#34;&#62;]% IVA:';&#13;&#10;     ImpDescuento.Text := '[frxDBCabecera.&#34;IMPORTE_IVA&#34;]';&#13;&#10;     Memo11.Color := $00CCFFCC;&#13;&#10;&#13;&#10;     if (&#60;frxDBCabecera.&#34;IMPORTE_RETENCION&#34;&#62; &#62; 0) then&#13;&#10;     begin                 &#13;&#10;        BaseImponible.Text := 'Total certificación:';&#13;&#10;        IVA.Text := FormatFloat('#,##0.00 %',&#60;frxDBCabecera.&#34;RETENCION&#34;&#62;) + ' Retención:';    &#13;&#10;        ImpIVA.Text := FormatFloat('-#,##0.00 €',&#60;frxDBCabecera.&#34;IMPORTE_RETENCION&#34;&#62;);&#13;&#10;        ImporteTotal.Text := 'TOTAL FACTURA';                                                                                                   &#13;&#10;        ImpImporteTotal.Text := FormatFloat('#,##0.00 €', (&#60;frxDBCabecera.&#34;IMPORTE_TOTAL&#34;&#62; - &#60;frxDBCabecera.&#34;IMPORTE_RETENCION&#34;&#62;));            &#13;&#10;     end  &#13;&#10;     else&#13;&#10;     begin&#13;&#10;       IVA.Visible := False;&#13;&#10;       ImpIVA.Visible := False;&#13;&#10;       ImporteTotal.Visible := False;&#13;&#10;       ImpImporteTotal.Visible := False;&#13;&#10;       Memo16.Visible := False;  &#13;&#10;       Memo17.Visible := False;&#13;&#10;     end;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;    if (&#60;frxDBCabecera.&#34;IMPORTE_RETENCION&#34;&#62; &#62; 0) then&#13;&#10;    begin&#13;&#10;      ImporteTotal.Text := 'Total certificación:';        &#13;&#10;      Retencion.Visible := True;&#13;&#10;      ImpRetencion.Visible := True;&#13;&#10;      LinRetencion.Visible := True;            &#13;&#10;      TotalFacturaRet.Visible := True;&#13;&#10;      ImpTotalFacturaRet.Visible := True;&#13;&#10;      LinImporteTotalFacturaRet.Visible := True;            &#13;&#10;    end&#13;&#10;  end          &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo39OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Memo39.Clear;              &#13;&#10;  if (&#60;frxDBCabecera.&#34;TIPO&#34;&#62; = 'F') then&#13;&#10;     Memo39.Text := 'FACTURA'                                        &#13;&#10;  else&#13;&#10;     Memo39.Text := 'ABONO';        &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Picture4OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;VerSello&#62; = 1) then&#13;&#10;     Picture4.Visible := True&#13;&#10;  else&#13;&#10;     Picture4.Visible := False;                &#13;&#10;end;&#13;&#10;&#13;&#10;procedure eCopiaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;VerCopia&#62; = 1) then&#13;&#10;     eCopia.Visible := True&#13;&#10;  else&#13;&#10;     eCopia.Visible := False;  &#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;  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;)] [frxDBDetalles.&#34;UNIDAD_MEDIDA&#34;]'&#13;&#10;  else                     &#13;&#10;     AText := '[FormatFloat(''#,##0.##'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)] [frxDBDetalles.&#34;UNIDAD_MEDIDA&#34;]';  &#13;&#10;         &#13;&#10;  frxDBDetallesCANTIDAD.Memo.Add(AText);&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C3C00000020446174615365743D22667278444256656E63696D69656E746F732220446174615365744E616D653D22667278444256656E63696D69656E746F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F732200010C13000000204E616D653D2220506172616D6574726F732200010C10000000204E616D653D2256657253656C6C6F2200010C10000000204E616D653D22566572436F706961220000055374796C650100">
+<TfrxReport Version="4.7.71" 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="40057,7109698843" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena: String;&#13;&#10;begin&#13;&#10;{  DatosEmpresa.Lines.Clear;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;}&#13;&#10;end;&#13;&#10;&#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 DireccionEnvioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ACadena : String;&#13;&#10;begin&#13;&#10;{  ACadena := '';&#13;&#10;  DireccionEnvio.Lines.Clear;&#13;&#10;  if (&#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62;;&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + '  ' + &#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62;;&#13;&#10;&#13;&#10;  DireccionEnvio.Lines.Add(ACadena);&#13;&#10;  ACadena := '';&#13;&#10;  DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + ' ';&#13;&#10;  if (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;;&#13;&#10;&#13;&#10;  if (ACadena &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(ACadena);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;TELEFONO&#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;end;&#13;&#10;&#13;&#10;procedure Memo4OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62;) = 0) then&#13;&#10;        Memo4.Visible := False;  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo22OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCabecera.&#34;DESCUENTO&#34;&#62; = 0) then&#13;&#10;  begin              &#13;&#10;     Subtotal.Text := 'Base imponible:';&#13;&#10;     BaseImponible.Text := 'Importe total:';         &#13;&#10;     BaseImponible.Font.Style := fsBold;&#13;&#10;&#13;&#10;     ImpBaseImponible.Text := FormatFloat('#,##0.00 €', &#60;frxDBCabecera.&#34;IMPORTE_TOTAL&#34;&#62;);&#13;&#10;     ImpBaseImponible.Font.Style := fsBold;         &#13;&#10;  &#13;&#10;     Descuento.Text := '[&#60;frxDBCabecera.&#34;IVA&#34;&#62;]% IVA:';&#13;&#10;     ImpDescuento.Text := '[frxDBCabecera.&#34;IMPORTE_IVA&#34;]';&#13;&#10;     Memo11.Color := $00CCFFCC;&#13;&#10;&#13;&#10;     if (&#60;frxDBCabecera.&#34;IMPORTE_RETENCION&#34;&#62; &#62; 0) then&#13;&#10;     begin                 &#13;&#10;        BaseImponible.Text := 'Total certificación:';&#13;&#10;        IVA.Text := FormatFloat('#,##0.00 %',&#60;frxDBCabecera.&#34;RETENCION&#34;&#62;) + ' Retención:';    &#13;&#10;        ImpIVA.Text := FormatFloat('-#,##0.00 €',&#60;frxDBCabecera.&#34;IMPORTE_RETENCION&#34;&#62;);&#13;&#10;        ImporteTotal.Text := 'TOTAL FACTURA';                                                                                                   &#13;&#10;        ImpImporteTotal.Text := FormatFloat('#,##0.00 €', (&#60;frxDBCabecera.&#34;IMPORTE_TOTAL&#34;&#62; - &#60;frxDBCabecera.&#34;IMPORTE_RETENCION&#34;&#62;));            &#13;&#10;     end  &#13;&#10;     else&#13;&#10;     begin&#13;&#10;       IVA.Visible := False;&#13;&#10;       ImpIVA.Visible := False;&#13;&#10;       ImporteTotal.Visible := False;&#13;&#10;       ImpImporteTotal.Visible := False;&#13;&#10;       Memo16.Visible := False;  &#13;&#10;       Memo17.Visible := False;&#13;&#10;     end;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;    if (&#60;frxDBCabecera.&#34;IMPORTE_RETENCION&#34;&#62; &#62; 0) then&#13;&#10;    begin&#13;&#10;      ImporteTotal.Text := 'Total certificación:';        &#13;&#10;      Retencion.Visible := True;&#13;&#10;      ImpRetencion.Visible := True;&#13;&#10;      LinRetencion.Visible := True;            &#13;&#10;      TotalFacturaRet.Visible := True;&#13;&#10;      ImpTotalFacturaRet.Visible := True;&#13;&#10;      LinImporteTotalFacturaRet.Visible := True;            &#13;&#10;    end&#13;&#10;  end          &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo39OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Memo39.Clear;              &#13;&#10;  if (&#60;frxDBCabecera.&#34;TIPO&#34;&#62; = 'F') then&#13;&#10;     Memo39.Text := 'FACTURA'                                        &#13;&#10;  else&#13;&#10;     Memo39.Text := 'ABONO';        &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Picture4OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;VerSello&#62; = 1) then&#13;&#10;     Picture4.Visible := True&#13;&#10;  else&#13;&#10;     Picture4.Visible := False;                &#13;&#10;end;&#13;&#10;&#13;&#10;procedure eCopiaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;VerCopia&#62; = 1) then&#13;&#10;     eCopia.Visible := True&#13;&#10;  else&#13;&#10;     eCopia.Visible := False;  &#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;  frxDBDetallesCANTIDAD.Memo.Clear;  &#13;&#10;  ACantidad := FloatToStr(&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;);&#13;&#10;  if ACantidad = '0' then&#13;&#10;       AText := ''&#13;&#10;  else begin                                        &#13;&#10;         AIndice := Pos(',', ACantidad);&#13;&#10;         if AIndice &#62; 0 then                                           &#13;&#10;            AText := '[FormatFloat(''#,##0.00'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)] [frxDBDetalles.&#34;UNIDAD_MEDIDA&#34;]'&#13;&#10;         else                     &#13;&#10;            AText := '[FormatFloat(''#,##0.##'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)] [frxDBDetalles.&#34;UNIDAD_MEDIDA&#34;]';  &#13;&#10;  end;                     &#13;&#10;  frxDBDetallesCANTIDAD.Memo.Add(AText);&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C3C00000020446174615365743D22667278444256656E63696D69656E746F732220446174615365744E616D653D22667278444256656E63696D69656E746F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F732200010C13000000204E616D653D2220506172616D6574726F732200010C10000000204E616D653D2256657253656C6C6F2200010C10000000204E616D653D22566572436F706961220000055374796C650100">
   <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="20" RightMargin="20" TopMargin="20" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
     <TfrxPageHeader Name="PageHeader2" Height="404,40971" Left="0" Top="16" Width="642,5201" OnBeforePrint="PageHeader1OnBeforePrint" Stretched="True">
@@ -58,7 +58,7 @@
       <TfrxMemoView Name="ImpTotalFacturaRet" Left="517,03991929" Top="136,06308" Width="124,72449" Height="22,67718" Visible="False" ShowHint="False" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="[&#60;frxDBCabecera.&#34;IMPORTE_TOTAL&#34;&#62; - &#60;frxDBCabecera.&#34;IMPORTE_RETENCION&#34;&#62;]"/>
     </TfrxFooter>
     <TfrxMasterData Name="MasterData1" Height="22,67718" Left="0" Top="526" Width="642,5201" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
-      <TfrxMemoView Name="frxDBDetallesCANTIDAD" Left="333,73228835" Top="0" Width="82,77162913" Height="22,67718" OnBeforePrint="frxDBDetallesCANTIDADOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles.&#34;CANTIDAD&#34;] [frxDBDetalles.&#34;UNIDAD_MEDIDA&#34;]"/>
+      <TfrxMemoView Name="frxDBDetallesCANTIDAD" Left="333,73228835" Top="0" Width="82,77162913" Height="22,67718" OnBeforePrint="frxDBDetallesCANTIDADOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBDetalles.&#34;CANTIDAD&#34;] [frxDBDetalles.&#34;UNIDAD_MEDIDA&#34;]"/>
       <TfrxMemoView Name="Memo35" Left="415,88187024" Top="0" Width="100,15748276" Height="22,67718" ShowHint="False" StretchMode="smMaxHeight" DataField="IMPORTE_UNIDAD" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_UNIDAD&#34;]"/>
       <TfrxMemoView Name="Memo36" Left="515,79561" Top="0" Width="126,72449" Height="22,67718" ShowHint="False" StretchMode="smMaxHeight" DataField="IMPORTE_TOTAL" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_TOTAL&#34;]"/>
       <TfrxMemoView Name="Memo6" Left="0" Top="0" Width="86,55115913" Height="22,67718" ShowHint="False" StretchMode="smMaxHeight" DataField="REFERENCIA" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" Frame.RightLine.Style="fsDot" GapX="5" GapY="2" ParentFont="False" Text="[frxDBDetalles.&#34;REFERENCIA&#34;]"/>
diff --git a/Source/Informes/2/InfFacturaCliente.fr3 b/Source/Informes/2/InfFacturaCliente.fr3
index ed0d59b1..00e72444 100644
--- a/Source/Informes/2/InfFacturaCliente.fr3
+++ b/Source/Informes/2/InfFacturaCliente.fr3
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<TfrxReport Version="4.7.71" 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="39951,4947960069" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena: String;&#13;&#10;begin&#13;&#10;{  DatosEmpresa.Lines.Clear;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;}&#13;&#10;end;&#13;&#10;&#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 DireccionEnvioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ACadena : String;&#13;&#10;begin&#13;&#10;{  ACadena := '';&#13;&#10;  DireccionEnvio.Lines.Clear;&#13;&#10;  if (&#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62;;&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + '  ' + &#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62;;&#13;&#10;&#13;&#10;  DireccionEnvio.Lines.Add(ACadena);&#13;&#10;  ACadena := '';&#13;&#10;  DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + ' ';&#13;&#10;  if (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;;&#13;&#10;&#13;&#10;  if (ACadena &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(ACadena);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;TELEFONO&#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;end;&#13;&#10;&#13;&#10;procedure Memo4OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62;) = 0) then&#13;&#10;        Memo4.Visible := False;  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo39OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Memo3.Clear;              &#13;&#10;  if (&#60;frxDBCabecera.&#34;TIPO&#34;&#62; = 'F') then&#13;&#10;     Memo3.Text := 'FACTURA'                                        &#13;&#10;  else&#13;&#10;     Memo3.Text := 'ABONO';        &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Picture4OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;VerSello&#62; = 1) then&#13;&#10;     Picture4.Visible := True&#13;&#10;  else&#13;&#10;     Picture4.Visible := False;  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo17OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCabecera.&#34;DESCUENTO&#34;&#62; = 0) then&#13;&#10;  begin              &#13;&#10;     Memo17.Visible := False;&#13;&#10;     ImpSubTotal.Visible := False;         &#13;&#10;     Memo18.Visible := False;&#13;&#10;     Descuento.Visible := False;         &#13;&#10;     Memo20.Visible := False;&#13;&#10;     ImpDescuento.Visible := False;         &#13;&#10;    &#13;&#10;     if (&#60;frxDBCabecera.&#34;IMPORTE_RETENCION&#34;&#62; &#62; 0) then&#13;&#10;     begin                        &#13;&#10;       Memo13.Text := 'Total certificación';&#13;&#10;       Retencion.Visible := True;&#13;&#10;       ImpRetencion.Visible := True;&#13;&#10;       TotalFacturaRet.Visible := True;&#13;&#10;       ImpTotalFacturaRet.Visible := True;&#13;&#10;     end;  &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;    if (&#60;frxDBCabecera.&#34;IMPORTE_RETENCION&#34;&#62; &#62; 0) then&#13;&#10;    begin&#13;&#10;       Memo13.Text := 'Total certificación:';        &#13;&#10;       Retencion.Visible := True;&#13;&#10;       ImpRetencion.Visible := True;&#13;&#10;       TotalFacturaRet.Visible := True;&#13;&#10;       ImpTotalFacturaRet.Visible := True;&#13;&#10;    end&#13;&#10;  end&#13;&#10;end;&#13;&#10;&#13;&#10;procedure eCopiaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;VerCopia&#62; = 1) then&#13;&#10;     eCopia.Visible := True&#13;&#10;  else&#13;&#10;     eCopia.Visible := False;  &#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;  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;)] [frxDBDetalles.&#34;UNIDAD_MEDIDA&#34;]'&#13;&#10;  else                     &#13;&#10;     AText := '[FormatFloat(''#,##0.##'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)] [frxDBDetalles.&#34;UNIDAD_MEDIDA&#34;]';  &#13;&#10;         &#13;&#10;  frxDBDetallesCANTIDAD.Memo.Add(AText);&#13;&#10;end;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C3C00000020446174615365743D22667278444256656E63696D69656E746F732220446174615365744E616D653D22667278444256656E63696D69656E746F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F732200010C13000000204E616D653D2220506172616D6574726F732200010C10000000204E616D653D2256657253656C6C6F2200010C10000000204E616D653D22566572436F706961220000055374796C650100">
+<TfrxReport Version="4.7.71" 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="40057,7110910532" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena: String;&#13;&#10;begin&#13;&#10;{  DatosEmpresa.Lines.Clear;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;}&#13;&#10;end;&#13;&#10;&#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 DireccionEnvioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ACadena : String;&#13;&#10;begin&#13;&#10;{  ACadena := '';&#13;&#10;  DireccionEnvio.Lines.Clear;&#13;&#10;  if (&#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62;;&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + '  ' + &#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62;;&#13;&#10;&#13;&#10;  DireccionEnvio.Lines.Add(ACadena);&#13;&#10;  ACadena := '';&#13;&#10;  DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + ' ';&#13;&#10;  if (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;;&#13;&#10;&#13;&#10;  if (ACadena &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(ACadena);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;TELEFONO&#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;end;&#13;&#10;&#13;&#10;procedure Memo4OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62;) = 0) then&#13;&#10;        Memo4.Visible := False;  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo39OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Memo3.Clear;              &#13;&#10;  if (&#60;frxDBCabecera.&#34;TIPO&#34;&#62; = 'F') then&#13;&#10;     Memo3.Text := 'FACTURA'                                        &#13;&#10;  else&#13;&#10;     Memo3.Text := 'ABONO';        &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Picture4OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;VerSello&#62; = 1) then&#13;&#10;     Picture4.Visible := True&#13;&#10;  else&#13;&#10;     Picture4.Visible := False;  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo17OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCabecera.&#34;DESCUENTO&#34;&#62; = 0) then&#13;&#10;  begin              &#13;&#10;     Memo17.Visible := False;&#13;&#10;     ImpSubTotal.Visible := False;         &#13;&#10;     Memo18.Visible := False;&#13;&#10;     Descuento.Visible := False;         &#13;&#10;     Memo20.Visible := False;&#13;&#10;     ImpDescuento.Visible := False;         &#13;&#10;    &#13;&#10;     if (&#60;frxDBCabecera.&#34;IMPORTE_RETENCION&#34;&#62; &#62; 0) then&#13;&#10;     begin                        &#13;&#10;       Memo13.Text := 'Total certificación';&#13;&#10;       Retencion.Visible := True;&#13;&#10;       ImpRetencion.Visible := True;&#13;&#10;       TotalFacturaRet.Visible := True;&#13;&#10;       ImpTotalFacturaRet.Visible := True;&#13;&#10;     end;  &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;    if (&#60;frxDBCabecera.&#34;IMPORTE_RETENCION&#34;&#62; &#62; 0) then&#13;&#10;    begin&#13;&#10;       Memo13.Text := 'Total certificación:';        &#13;&#10;       Retencion.Visible := True;&#13;&#10;       ImpRetencion.Visible := True;&#13;&#10;       TotalFacturaRet.Visible := True;&#13;&#10;       ImpTotalFacturaRet.Visible := True;&#13;&#10;    end&#13;&#10;  end&#13;&#10;end;&#13;&#10;&#13;&#10;procedure eCopiaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;VerCopia&#62; = 1) then&#13;&#10;     eCopia.Visible := True&#13;&#10;  else&#13;&#10;     eCopia.Visible := False;  &#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;  frxDBDetallesCANTIDAD.Memo.Clear;  &#13;&#10;  ACantidad := FloatToStr(&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;);  &#13;&#10;  if ACantidad = '0' then&#13;&#10;       AText := ''&#13;&#10;  else begin  &#13;&#10;       AIndice := Pos(',', ACantidad);&#13;&#10;       if AIndice &#62; 0 then                                           &#13;&#10;               AText := '[FormatFloat(''#,##0.00'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)] [frxDBDetalles.&#34;UNIDAD_MEDIDA&#34;]'&#13;&#10;       else                     &#13;&#10;               AText := '[FormatFloat(''#,##0.##'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)] [frxDBDetalles.&#34;UNIDAD_MEDIDA&#34;]';  &#13;&#10;  end;                              &#13;&#10;  frxDBDetallesCANTIDAD.Memo.Add(AText);&#13;&#10;end;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C3C00000020446174615365743D22667278444256656E63696D69656E746F732220446174615365744E616D653D22667278444256656E63696D69656E746F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F732200010C13000000204E616D653D2220506172616D6574726F732200010C10000000204E616D653D2256657253656C6C6F2200010C10000000204E616D653D22566572436F706961220000055374796C650100">
   <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="19,9998541666667" RightMargin="19,9998541666667" TopMargin="13,3852708333333" BottomMargin="19,9998541666667" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
     <TfrxPageHeader Name="PageHeader2" Height="400,17" Left="0" Top="16" Width="642,521202362916" OnBeforePrint="PageHeader1OnBeforePrint" Stretched="True">
@@ -55,7 +55,7 @@
       <TfrxMemoView Name="Memo20" Left="131,28355" Top="37,7953" Width="92,25983276" Height="22,67718" ShowHint="False" Color="13434828" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="32768" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Imp.Dto."/>
     </TfrxFooter>
     <TfrxMasterData Name="MasterData1" Height="22,67718" Left="0" Top="522" Width="642,521202362916" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
-      <TfrxMemoView Name="frxDBDetallesCANTIDAD" Left="333,73228835" Top="0" Width="82,77162913" Height="22,67718" OnBeforePrint="frxDBDetallesCANTIDADOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles.&#34;CANTIDAD&#34;] [frxDBDetalles.&#34;UNIDAD_MEDIDA&#34;]"/>
+      <TfrxMemoView Name="frxDBDetallesCANTIDAD" Left="333,73228835" Top="0" Width="82,77162913" Height="22,67718" OnBeforePrint="frxDBDetallesCANTIDADOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBDetalles.&#34;CANTIDAD&#34;] [frxDBDetalles.&#34;UNIDAD_MEDIDA&#34;]"/>
       <TfrxMemoView Name="Memo35" Left="415,88187024" Top="0" Width="100,16" Height="22,67718" ShowHint="False" StretchMode="smMaxHeight" DataField="IMPORTE_UNIDAD" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_UNIDAD&#34;]"/>
       <TfrxMemoView Name="Memo36" Left="515,79561" Top="0" Width="126,72449" Height="22,67718" ShowHint="False" StretchMode="smMaxHeight" DataField="IMPORTE_TOTAL" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_TOTAL&#34;]"/>
       <TfrxMemoView Name="Memo6" Left="0" Top="0" Width="86,55115913" Height="22,67718" ShowHint="False" StretchMode="smMaxHeight" DataField="REFERENCIA" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" Frame.RightLine.Style="fsDot" GapX="5" GapY="2" ParentFont="False" Text="[frxDBDetalles.&#34;REFERENCIA&#34;]"/>