From f4563f8c8a40137da0f14f3755d7c0fcde0afd51 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Tue, 26 Apr 2011 10:47:29 +0000
Subject: [PATCH] Se modifican los informes de factura para que los ceros en
 los subtotales salgan

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@132 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
---
 Source/Informes/1/InfFacturaCliente.fr3 | 4 ++--
 Source/Informes/2/InfFacturaCliente.fr3 | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/Source/Informes/1/InfFacturaCliente.fr3 b/Source/Informes/1/InfFacturaCliente.fr3
index 2225069..219516f 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.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="40623,7519927431" 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;  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;  Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height - 1;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena: String;&#13;&#10;begin&#13;&#10;  {                           &#13;&#10;  DatosEmpresa.Lines.Clear;&#13;&#10;  DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;RAZON_SOCIAL&#34;&#62;);&#13;&#10;  DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;CALLE_EMPRESA&#34;&#62;);&#13;&#10;&#13;&#10;  Cadena := '';&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;FAX&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;&#13;&#10;  Cadena := '';&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' ' + &#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' - ' + &#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;  }      &#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 Memo20OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;RE&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;       Memo21.Lines.Clear;&#13;&#10;       Memo29.Lines.Clear;&#13;&#10;  end;&#13;&#10;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena : String;&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCabecera.&#34;TITULAR&#34;&#62; &#60;&#62; '') then&#13;&#10;  begin&#13;&#10;    Cadena := Memo11.Lines.Text;&#13;&#10;    Memo11.Lines.Clear;&#13;&#10;    Memo11.Lines.Add(&#60;frxDBCabecera.&#34;TITULAR&#34;&#62;);&#13;&#10;    Memo11.Lines.Add(Cadena);&#13;&#10;  end&#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 Picture1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if &#60;ShowLogotipo&#62; then&#13;&#10;  begin              &#13;&#10;     Picture1.Visible := True;  &#13;&#10;     Picture2.Visible := True;  &#13;&#10;     Picture3.Visible := True;  &#13;&#10;     Picture4.Visible := True;  &#13;&#10;     Picture5.Visible := True;  &#13;&#10;     Picture6.Visible := True;           &#13;&#10;     Memo12.Visible := True;&#13;&#10;     Memo14.Visible := True;                                                         &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;     Picture1.Visible := False;&#13;&#10;     Picture2.Visible := False;&#13;&#10;     Picture3.Visible := False;&#13;&#10;     Picture4.Visible := False;&#13;&#10;     Picture5.Visible := False;&#13;&#10;     Picture6.Visible := False;&#13;&#10;     Memo12.Visible := False;&#13;&#10;     Memo14.Visible := False;                                                         &#13;&#10;  end&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C2000000020446174615365744E616D653D22667278444256656E63696D69656E746F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C16000000204E616D653D222056697375616C697A6163696F6E2200010C14000000204E616D653D2253686F774C6F676F7469706F220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
+<TfrxReport Version="4.7.71" 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="40659,5267321412" 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;  RichConcepto.Visible := True;&#13;&#10;  MemImpTotal.HideZeros := 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;       MemImpTotal.HideZeros := False;                                          &#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;  Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height - 1;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena: String;&#13;&#10;begin&#13;&#10;  {                           &#13;&#10;  DatosEmpresa.Lines.Clear;&#13;&#10;  DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;RAZON_SOCIAL&#34;&#62;);&#13;&#10;  DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;CALLE_EMPRESA&#34;&#62;);&#13;&#10;&#13;&#10;  Cadena := '';&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;FAX&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;&#13;&#10;  Cadena := '';&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' ' + &#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' - ' + &#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;  }      &#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 Memo20OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;RE&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;       Memo21.Lines.Clear;&#13;&#10;       Memo29.Lines.Clear;&#13;&#10;  end;&#13;&#10;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena : String;&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCabecera.&#34;TITULAR&#34;&#62; &#60;&#62; '') then&#13;&#10;  begin&#13;&#10;    Cadena := Memo11.Lines.Text;&#13;&#10;    Memo11.Lines.Clear;&#13;&#10;    Memo11.Lines.Add(&#60;frxDBCabecera.&#34;TITULAR&#34;&#62;);&#13;&#10;    Memo11.Lines.Add(Cadena);&#13;&#10;  end&#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 Picture1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if &#60;ShowLogotipo&#62; then&#13;&#10;  begin              &#13;&#10;     Picture1.Visible := True;  &#13;&#10;     Picture2.Visible := True;  &#13;&#10;     Picture3.Visible := True;  &#13;&#10;     Picture4.Visible := True;  &#13;&#10;     Picture5.Visible := True;  &#13;&#10;     Picture6.Visible := True;           &#13;&#10;     Memo12.Visible := True;&#13;&#10;     Memo14.Visible := True;                                                         &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;     Picture1.Visible := False;&#13;&#10;     Picture2.Visible := False;&#13;&#10;     Picture3.Visible := False;&#13;&#10;     Picture4.Visible := False;&#13;&#10;     Picture5.Visible := False;&#13;&#10;     Picture6.Visible := False;&#13;&#10;     Memo12.Visible := False;&#13;&#10;     Memo14.Visible := False;                                                         &#13;&#10;  end&#13;&#10;end;&#13;&#10;&#13;&#10;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C3C00000020446174615365743D22667278444256656E63696D69656E746F732220446174615365744E616D653D22667278444256656E63696D69656E746F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C16000000204E616D653D222056697375616C697A6163696F6E2200010C14000000204E616D653D2253686F774C6F676F7469706F220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
   <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="215" PaperHeight="297" PaperSize="256" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
     <TfrxPageHeader Name="Band2" Height="277,60631142" Left="0" Top="16" Width="737,00835" OnBeforePrint="Band2OnBeforePrint">
@@ -72,7 +72,7 @@
     <TfrxPictureView Name="Picture6" Left="690,89023" Top="1001,01639" Width="178,93363" Height="38,45671" ShowHint="False" Picture.PropData="04446174610AF81C00000A544A504547496D616765E91C0000FFD8FFE000104A46494600010200006400640000FFEC00114475636B79000100040000003C0000FFEE000E41646F62650064C000000001FFDB0084000604040405040605050609060506090B080606080B0C0A0A0B0A0A0C100C0C0C0C0C0C100C0E0F100F0E0C1313141413131C1B1B1B1C1F1F1F1F1F1F1F1F1F1F010707070D0C0D181010181A1511151A1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1FFFC00011080040012C03011100021101031101FFC400B100010002030101010000000000000000000004050203060107080101000301010100000000000000000000000203040105061000020103030302040206080407000000010203001104211205311306412251613214718191A142527215B1C1628233241607D1924353F0236373A3742511000103010405090605030207000000000100110203213112044151617191F081A1C1D1E1321305B12242529214F16272D2E2822353A215B2C24363739324FFDA000C03010002110311003F00FD50EDB119C8242826CA2E4DBE005174072AAA3CAF24750DF658C1585D6F3C80D89D37298AE0DB522ABC72F97A56B953A03E297D23F72CBEEBC8ECDFFE7E3DC7D23EE5B5FF00E2AE6397CBD2B9E5D0F9E5F4FF00252F032679E371910883222629246ADBD7A02195AC2E0837E952849EF0CA9AD4C44FBA5E279949A9AA92889444A225112889444A225112889444A225112889444A225112889444A225112889444A225112889444A225112889444A22511288A1725953AA9C6C38D66CD954ED8DD8AA2A9B8DF215B90B7F86A7D2A13930B2D2AFA34C1F7A45A23930DAABE31E671C31C51C5C681180B732E41D145BD52FFA4D560D402E1C7B96997DA9249352DD91ED466F3A2A02A7188DEAC5B2187FCBB57FA684D5D023C4F620194D753847B5631FFAB70DE4CA9E2C4CF0EA0CD062EF865BAFFDBEE1657D3F788AE62A91B4807777DEA47EDA60441943519311CED7733AB7C0E43173F1972319F7C649561D19597464753AAB29D08357464241C2C55A8CA9CB0C85BCADDCA4549549444A225112889444A225C5EDEBD6889444A225112889444A225112889444A225112889444A22511288BC7744467760A8A096626C001D49345D01EC0A28E638820119D8E41D45A54FF8D71C2B7EDEA7CB2E05671723C7CCC122C98A47370151D58923AE80D754654662D208E6520DEC6DD7D2F455AF1776D1BADBADEEB74BD174AF68B89444A22511551E37968F226931B3A355998B31931F7BFF00646E574B85E834AA9A6F6372E75AFCEA66204A26CD52B3D86F5E0C4F27B0BF258D7F51F6AD6EBFFBB4FEE7E5E9ED5DF332FF0024BEAFE29F6BE4D7BFF30C6B7EEFDB37F4F769FDCFCBD3DA98F2FF002CBEA1FB578D07967ECE5E17AF5C797F1F497F2A89F37F2F4AE8965BE59FD43F6A8FC7701CA63F26B9D3672A92A064C70210B906DD650E5FDCBA0565B1B686F5185398939239B4F2D6ACAD9BA72A78047739F0EE66BF48366A57F5A579C9444A22C323221C785E699C47146373B9E8050952840C8B0B49559FEACF1DDFB3EF901B9172180B817EA45AABF363AC2D5FEDF5D9F0952539BE1DEC17360248040EE28B86E9D4FCAA58E3AC2A8E5AA8F865C14983271F214BC12A4AA0D8B230600FC2E2BA240DCAA9C251B0865B2BAA29444A225112889444A225112889444A225112889444A22511288A17313E3C5C7CC278CCE92A98FB0B119CBEF16DBDB1F50F88A8542044BABF2D0919862CD6BBB373E854C337C705ADC14C180074E39B436DB6FA3AE96ACEF4757FA4F62DDE5D7FF28FFD9DEB17C8E19EDF6FE3F90B3232CB14830BB7B641AAB6EF61B8F9544CA9E8897FD254842A8F1558B5DE37B3A55EF1DCAE1F208E602CAF11DB3432AB47221FED230047C8D6A85412162F3AB65E54CFBDA6E22D079D4BA9AA52889444A22F377BB6D8F4BDFD28BACA8B9ECBCFC669F293928F0B131212EF098E391A4201626ECC197E16AAAA190B5D80D9DEB7E529C24D13032948DEE432D18439FC8C78720F3D02779164109C78988B8BDB72C966EB6B8AE445421DC70EF56553463231F2A56167C47F6A92B87E4848B73B030FFEA2FF0054B5DC35358E1DEAA35287F8E5F5FF0015530739CACA715A2E5E1957327920800C55FF00A4FDB6660660C3DFA5BAD542AC8B3117EAEF5B2595A71C4F4E430C413EF6B0FF002EA5D4719264BE146729D64C8059649111A35255CADC2B5C8E95A204916DEBCAAE222670D838A955254A511288B5656EED596F72C8346D87EB17D7FABD7A5724A74EFE2B9CCFF20F26C8CD978EE1B857DD1B957E4B2DD17182DEDBA3DA58C87FB3A5BD6B2D4AF3C58630277D83BD7A74727423013AB505BF0C5F173EADEB513E5BC6E463CBCA2E2F2B8323AC52346823921690EDEE5C8DBB75B1BD57FDC8918C46513AB42B00CB558914F153980F69705B46F5D1E26362C13CEB8F0C70DF617EDAEDBE86D7B00BFA2B642118BB065E5D49CA406224EF52AA6A94A228BC8F2983C7C424CB93606BED50ACECD6173655058DAA33988DA4ABA8E5E750B4428F87E45C4E5CEB8F1CC5277FF0E3955A32D617F6EE003687A0A8C2B464581B5595725560311166CB559558B2A5112889444A225112889444A225112889444A22AEC85E6D728BE2A633C4401BA5791580F8595585552C6F601C7B96981A585A464FB00ED5ADE4F2807D98F84C2E7532CA341D3FE99EB5132A9F28E3DCA62397D73E03B56267F2C047F93C223D7FCC4BFABFF2A98EA7CA3EAEE5DC196F9A7F48FDCA0666079564E6C5991C58589970A9449D6477250B0255C76D772103E9F43A8AAA42A92E00077FB762D34EAE5A3030267289D0C070B6C3B7558BA617B0BF5F5AD8BC958C92471A17918220EACC4003F3345D0092C150667FB83E1988EC92F2D0348B7BA444CA74F4F606AA279AA51BE438AF4697A3E6A768A726DB67B5735C3FFB8BE33072B96D0CB9471B3E48D8FDC7449C921CAEE3A2F6F61DA3E1A0AC54F3D484CFBC58EBD7C997AD99F45CC4A9C5C471401BB4C7474BAEFBF98E07D8FDFF00DC47F65B77FDC6E1B36FC7757A58833BD8BE73C99E3C0C716AD2A3E4F17C6676639CDC58728C414C7DD5EE15DD706C1810B7F975F5A84E9C646D0EAC857A94E3EE48C5F558A933A1E05E738DC5F8F43C9CD13F6E6648E28A08997A8795C751F0406B34E14DDA30C47668E75E8529D603154AA69822CB492770ED65132FC67252132C5E31C54EE0FB71D6668DB5D3EA3105D0572542CB2983FD5DCADA79E892C6B541B70BFF00CCEB7F1FC5F864D9716265F070F1DCA30DD1E34F1ADD8A0F718645BA496EA769BFA914A746892018B4B51EA50AD98CD462651A8674F583AFE6178E7E6575C522627133C11858A1C479E3840616545662BEE25ED61F1FD15AA98C3161A160CC133A809B4C845F7F42ACE520E46048D618F90E471636B4F243968928DE7DD655085F65BA6E1D74AAAA620DE223632D5425093B9A7096878922CE2CEB6BF19C73E0C79D84D9F97DD0BD88E3CA9D49DC6E376F701403A9BF4FD55360CE0C8F3A80AF313309608B5EF18F65AA3C1C4C5FCC1717370B2F198AFF0094E462CD9E652C016642DB9591BF8859AAB8C49934B10DB8B974856CF30706284A12D713088FC46E362BB821C98E16C795E4C9ED4C9DB9A4452C52EADA9D01DBA8DD6FD75787B8DAB04A51271068B83603CAFD4B4F0B9323667258F2303DA9CBC601BFB1EE3E03F694E951A527321B54F350023090D3152B99467E2B2915B6168D9776CEE581163EC1D6A753C2555962D52276EB6E950628D64C78A012EC89971846629A58980084FB4B6A6FB7E9F51D6A02D0DBB4ABE45A44B5BEF5E01D3CB76854699D364BA8E138FE57300BAB644F94F8D00297FDA9198BFC3DAA4567F35CFB98E5D03A57A068888FEECA947608891E8BB9CA97C7C9C8BF22BC772499F81932A33C32C590B3E3BAA8F7012150C196FD0AD590A92270C9E2798F52A6B46021E653309C41B5E26321CCF773AB7C474E463931F331CC9128431C8C37472AE8436FB2DCEE1AA902AC8B4C310B1D406911289636EF1CDD6A272DE3D8091F771614C757645CA5886D052FED7551ED1244E43AB5AFA5BD6A13A00786CE57EF0ADCBE7264B48E2D4FECDC458473AB9C23907122FB921B20285999458175D1881E809157C5DADBD62AB8711C3E1D0B1CE9F2A1C767C4C7195902DB60DE23B8BD89DCD71A524480E03AED284652691C235B3AA5C9F27E4B16411E571D0C3230BAA3E740AC47C83EDF5AA0D790BE3D23B56E86469CC3C6648FD12EA5B71F9FE5B2603363714B9080917872E071B8751706D521589F84F11DAA13CA5389694DB7C6414AC5E6C4FC799DA06832C3B4070A52030C80348CB8DCBEED2CC34B1AEC6B0317E66DBA955532B86785DE2CF887CBAFB951FF00AEB952A1A1F1EC9C84E8CF0B8655235B312ABE9AE82D59BEF89BA24AF43FDA698BEAC63BFF0015E43E67CDE4449910F0928C775DCAE3B92DFE60C6874A90CDC887C27A7B125E994A2709A831730F6952CF95CC208721A4E3E387214BC2CF9122960A6CDA76B4DA7437E874AB0662C07DDB7F3772A7FDBC398B542637FBA3F729DC5738D9F90625930E4545DD27DBE4191C0B0D76145F53F1D2A70AB88B59CD2759F3195F2E2ED31BE2DD6AD91D2445742191C06561D083A83572C641058AF68B89444A22E5BCBB8ECBC92CF87892E5E695558258A5ED2C00302770322862D736F6D63CD02DEE8962D9F885EBFA7568C7C721186970EFD1D6B50C0C3BADF83E4D4DB52324E9A7CB23E3A572C7BAA713DAA7E6CBFC94BE9FE0B4E6E22048BED784E51983A971F725408D4EA3DD335FF77E36D4542760B054E27B54E9542E7154A5F4E9FA558789473C6A06561646165B464CD1CCEF24760FED58DBB922FB41D7E35765DF4E27DAEB37A8907C328CA2F63000DDA6C06D5D256A5E5AE4333C7397E65F23266CC89A29FBB1E3452C6CC7191AF19EDF6E454DFA5F791BBD2B0CE8CEA3924368D9C34ED5EDD2CED2A0D1112E18963E2D36B876D972C31FC779CE3B1062C71C791081B55714634400B5B559A17EBEBEE355C72D38866B3608F5A94F3B46ACB11241FCD88FFC321EC4E23C699B2669A18CF1E7DB0CF2F722925DA9A98E2485562888BFD76DFF00854A965EDB061E1D0059CEB999CF3440271E9161037932F7A5BBC2BA2EC45FCA3B1DB1DAFA3B774B5B7DBEAE97F9F5BFCEB660185997998CF9AEF6F3EAE5F82C7939571A0CFC892EF0F6555D6367DEA3DC19885BED0035CB2EB6FC2BB32C092BB4226463117BF2DFB940C1E439E18717D9717892E2851D968330346547EEB76F5BFA7EBAA63524D642CFD4168AB468E238E7212D2F0B7DAA41E4FC9546BC2AB1F5DB949FAB72AD4BCD9FC9D2157E450FF27FA4A87C94F97C8621C6E5B8B6C0C76B32E73644244330D6265DADBF76FB0161F2E95091330D2898EDB2CE957D18C694B1539E33F2E195A34E86B95AC11CA71736322F29671A5EC59A35B91F0173E957816158E7218A27477AAB68E58CE34D0F34BC69CF5467C499524DF295504C5DC60CAC7A11A8BFA5EA9C32B08933EB5AC481C40D3C781ED0E2CDADDCADB91C46386AC9987126C61B9331C2B01A598C8A76AB03EBD2AE9C49161B563A35062B63884B4762D7C41E4A6533E5E66365C245A1FB542A9707572C5E4B9F90E951A78CDB26E652CC7962C8C6513A711EE0B796DC25B167293ADC0B395FA4DAC2DB7E3AF4EB5355B5DBB76B51B8C0E33F2D5FEADCC47F099091F5FBFF0047B3E1EB508788F2E5EC56D76C116E566CB3AF5A95CAF6CF1D90242A10A104B48611AFFEA2EABF954E772AB2EF8C37B1FA144C7490A633A01DA7ECD98389432F69AFABDBE3F50D4D400B0736D574C879037DBA1B4ECF65C179E34C3EC1A155222825748580508509DC3615F6902F6D2B943C2DA933C3DF7D245BBF6E95B79449DF338E11F7022CC5E52AB78AC148024B7B875F6FA5FAD4A77851A0408CDDAEE7E6EBE85A9F916C5E063C9564EE3054492690BC4ACCDB43492581DA0F535C1268BF2E2A428895631D1B05BCC35AADC4E4FC864C9185DEC1E4C4F1993EE3199A011286DB73ACDBEE741B751EB5546A4DF0900EED1C56AA942808E369C18B34AD7F6373A9B3731CAE1CB2631E35F2A4EE1EC4B1BC71C6F1B9252C5CAFBC74616F9FAD48D5946C3126DD0A88E5A9CC0963110D6BB9208BEED1AB8293C67251E7CDDD10B412AA3473432A01223A35994B03A8F85B43D6F53A7312B42AABD034C33B8D041B085325C3C399F7CD04723DADB9D158DBE1722A52A7136901511AB28860485B228628976448B1A75DAA00173F21528C40B97252322E4BAAFCCF648CCE422B4F1907776771D96B6E37DFD3A5572EB5A29DA3FA4EDD3D0A54708978F5858950F0842CAFB985D6D70E7A9F9D4C0B195464D37DBCAC58F19C745C7E1A6346776DB9790AAA9663D58840AB73F215CA70C21976BD6352588F2E2B8DF32FE5B2E4E3F736B48E9292DBA26BC464BAFD52442DD48D0EBD7515833622E1EFB757EE0BDCF4CF3044B5CE35DEDFA4AA9E278EE326CB8E3C73B66964DA0452632B83BAEC6CB2B31E9723FE359E9528936757EE5B7315EA4624CAE034897ED5F49866C7838F49A4912381230CD230ED205B75B37D23E55EC44D8BE5651329900397DFF8AA6CCFF707C4F1559DB344A8BD5E156956FF00BB7506E6A9966A946F905BA97A3E667608B6FB14283FDD2F119253189B200376DED04BB74FC01A80F50A24B62F6ABE5E819A01D87D41747C5F33C57298E991C7E54791138DC0A3026D7B6ABD47E75A2138C83C4B85E657CB54A32C3389895EE44ED8EB953B6D8D2340C2494AAC7A037248F7587ADFF2A12CFCBA57211C5846BD57AA13FE96CA3BF94E662CF92D728F90B1C2B6FDD85182FAFADCFCEB3B40F8A4FCEC3A3AD7A3FF00D10B29D3301FA5CF123B164BC77882640C9C0E4130B27A6FC6CA015BA68D196646FF0096BA28C0178963BFA970D7CC98E19C31476C7AD9D59F1B919521846518A69537AA65C5F44B1900AC8A3DDB6FD185ED7AB604E9BD64AF0887C2E06A3A0EAEC56956AC8A871F1BC8D64C9FB4CCC518E2797B58F2C0C4A86626C5D241EA6FD2B344540ED859F6AF4673A040C51962C21C897510B703E5EA0DD78F934B290668F5F89D1FF454C1A9A40E3DCAB3F6DFF707D27B14DE35A568A5328DB2F75B7A86465074BED28069FC5EEF8D4E0A8AE0386B9B6F5F558B5EF4FE5DBADEDEEEDEB17FDEB7F07F5FF7AA3F0FE1AF829B1C7CDB7E5E3CB52ABE5BCBFC7B82E4A787919441912A4722058DCB4A2C45B701B4916A854CC53849A458AD597F4EAF98A60C03C43E9B9523725E273EE970F8EE430E42C019702D01B9D7511C814DFE62A8FED9F089C7702B78A3998D939D390FCD6FB42366E02062F9BCFC6A9A9DCEA6C07CFDDA6EFF00C5ABAEDF14F87F1414A66E8D03CB97E2B6E1F37E258EF1E4326766CEAC5927CADF3B2301D54336D53AFEC8AE89D3169323BDFF00050A995CCC8188C111AA2C3BD74FC2F2699ED94C98D918EAB20B1C984C3BEEA05D6FF55AD6BFF55AB4D3A824EDEC65E566681A785CC4D9A0BAABCCC29F9450B8AB83938BB4E264C3948DDD8595C8728C2EDE97DAD6E80DEAA9D3C77089176E5AE9D5147C58E32F10C26C3A9FB799958728AEBC6458A9918B2C8BB125FE61664955746DC07ED1B5FF001AB6719616B0EF59A8106A1911202DF05E3B968E1B2B86C0C665932F8E872256324C98AE91C5B8FC14B75B0D4FAD429B44680762B3330AB525646A188BB15A54A19B89931CED8B34794229E367109EF11F4B5AC96B1B6A3AFC6A6E0DCAAF2E51231031789BECD7AD723C967792E4720D95C6CD97C7639B1EDB71723B91F5112312DF49F85609D5A864F12C36C24BDAA14B2F1861A823397FE503828B2729E573C2B064F3587D86706439389918B294560495263DAA45BE1A7C6B86AD5218CA0DCE3DAAD8E5F2D12F1A7376D128C87B6D5DAE3BE3926686CF08963FF30A3B9BD160167663603F896B706D1AFA9783312B8DEC6CB9BDEBBB8AE5B1BCE471924B891F18F97187223C986788AB9B6EEB232E847D274F875AC6339181C2C4EE63D6BD79FA51AA048CC44B5C41B380E3C6E567C6F95E1F37C9E32AE24D8AD0892559262002A00076989D94FCC30ABA1988D4906079D65AFE9F2A14E4F2127616778F62E97B1164E1AC59491E44722012AB2831BE97FA5AFA56A60431B57958CC24F1704715173381E3E7C68E285061C98FEEC39B1C08DA16EB750B616F8A9D0FAD572A316B3DD6B995D4B3738C89271095E0DAFCB5DE157E67881CE99B272792CA49E748532571D82467B0430310219A23BC6EBAB5EAB965CC8B991D17756A5A69FA8F9630C6112012CF7DBAF44ACB2E5225E367E397166E2E36C818DDC49B1E49099248A53B8ED92427DCAE01009B5AE2A780C18872DC5551AE2AE2150E1C4CC5AC046C1A085E1F24945B770DC88B8BFF00851B587F76435CFB8FCB2E09F623FC94F89EC41E57897025C1CF88936B3624A753E9750C2BBF711D2E398AE9F4F968940FF505B4E3E1F3581901D6448320D9498DA1995A3D038DFEA08BA9B574C6352276F2D2A0272A13173C76B8B7458A863F0EF2DC460981E4CF162A1062824C7590003A8D4E83E0A341E959850AF1B2330DB42F465EA5959DB3A2F2D624DCB7ADB3F8FF009ECCAA92791C2D15C195171044585EE577ABEE03F0A94A1983F14782AE19BC9C6D14A4FF00ADFA196193E27E47933775B3B1E03B550478E32238D42FEEA772C2A12CBD525DC0DCEA74FD4284436191DF849E2CBDC0F0FE7A1CB8E69394D8AAD7631194B5BD42890B2EBD35A53CB541277E5C12B7A951944810E2DD4AC39CE165E4F24E3E460A6560C9DA1DD6C99136046BB5E200A93F875E86AFAD4F19621E3BFA965CA664528E28CB0CC3FC20F4F265698DC37138C1463E14116CD14A46A08B7CC0AB234202E01649E6AACFC5291E752C220E8A3F454F08D4A972A9B8AF1A8703909732F1176690A3451085CF7482DDD2A6CE7DA00D00F95EA8A597C049B3983715BB319E3520236E8BCBDDAB574AC791CAE0DE4CDC5CBCB4C29E3689CCAB288E6076828E01FCC7A8352998970F84AED1A75408CA313305F438DA3932AB6E41A30561E438CCA4B7D5950344D7BD86E31FB74FE1ACE481A699E8ED5AC517BE35627F297F6DBD2B04C832D9657E0A3BDAE551A4216F7FA5B67AFC4D72C3A29717EC52306BBCF3D1DAAE703378D4970F0E2CD8726725F450A1B4426CA8965555F81BDBF1AD3094430041DCB056A5508948C4C472D26F57557AC2A260A959F354B023BDB858DC8DD1A1B1D4DAA110C4EF57552E23BBACA975354A838D930431664B348B1C714EFDC7628AA3A752BF8FED6B5089BD68A9024C400E481AF97058D87F29DFB9B65FBBBFDB7D9DCDF7B6DB5B6FA5AF6F9D71BDD5DFFA8DCDD0DCB473299918B8D92A1322149941DC16450C01F8D8DEA528095E1D530A928DB1246E55D378A78CCC41938AC4620100F650687AF41551CB533F085A63EA1988DD39712BC8FC47C5E3FA389C51EBFE0A1F81F51F2AE0CAD31F085D97A8E60DF39712B7AF8FF02BF4F1B8A3D2C218FD3F2F9D4BEDE9FCA382ACE72B7CF2E254E444445440151400AA34000D0015700B3924972A06678F7099990D91938514B3B5B74A546E3B741723ADAAA950848B916AD14F395611C3191016A8FC53C6A36DCBC5E35EF7B9895B5FCC1A8FDAD3D4A67D43307E3971525786E1D46D5C1C70A3A01125BFA2A5E443E51C15473557E69712B7E3E2626302B8F0C70AB7D4235080DBE3602A71808DC19573A92978893BD6DA928251102850028B01D00A0084AD6F8D8CE851E24643D54A820D8DFA1F9D43CB8EA0A62A481704AD0388E284AB30C3816546DEB208D4306F88205EF5C14600B8014FEE6A3362936F52EAC54A5112889444A225112889444A225112889444A22511288ABB3FC7382E432532B370619F2506D49D946F03E1B86B54D4CBD39979072B551CED6A51C3091113A342C13C67878C111C72229B92AB34C1496FAB4DF6F77AD3C88EDE2BA73D54DE4701D8B193C578092FDCC5DF7D496790927F36A1CBC0DE1763EA1585D2E81D8A5E0F13C7606EFB48445BC966B12753D4EA4F5F5A94694637054D5CC4EA788BA97562A55564F8E614F95939465C88B27276DE586678CA8450A02ED207A6B71544A80249721F515B219D9C6222D1318EB00AD70F09CAE25FED3989E45BDFB79AA9902FF0DC046F6FEF5234E71BA4FBF9052966A9CFC54C0FD2F1E8B429478B596657CA7EF46ADDD101B94EED80DDA9E8B6F68F4EBD6A469BDEA9FB860D1B0DCFB395EA7D5AB3AFFFD9" HightQuality="False"/>
   </TfrxReportPage>
   <TfrxReportPage Name="Page2" PaperWidth="215" PaperHeight="297" PaperSize="256" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
-    <TfrxMasterData Name="MasterData1" Height="13,82684" Left="0" Top="18,89765" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBVencimientos" RowCount="0">
+    <TfrxMasterData Name="MasterData1" Height="13,82684" Left="0" Top="16" Width="737,00835" ColumnWidth="0" ColumnGap="0" DataSet="frxDBVencimientos" DataSetName="frxDBVencimientos" RowCount="0">
       <TfrxMemoView Name="Memo31" Left="0" Top="0" Width="79,90569" Height="13,82684" ShowHint="False" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBVencimientos.&#34;FECHA_VENCIMIENTO&#34;]"/>
       <TfrxMemoView Name="Memo40" Left="86,92919" Top="0" Width="98,80334" Height="13,82684" ShowHint="False" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBVencimientos.&#34;IMPORTE_TOTAL&#34;]"/>
     </TfrxMasterData>
diff --git a/Source/Informes/2/InfFacturaCliente.fr3 b/Source/Informes/2/InfFacturaCliente.fr3
index de3d4d5..7c013ff 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.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="40644,6698076968" 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;  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;  Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height - 1;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena: String;&#13;&#10;begin&#13;&#10;  {                           &#13;&#10;  DatosEmpresa.Lines.Clear;&#13;&#10;  DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;RAZON_SOCIAL&#34;&#62;);&#13;&#10;  DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;CALLE_EMPRESA&#34;&#62;);&#13;&#10;&#13;&#10;  Cadena := '';&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;FAX&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;&#13;&#10;  Cadena := '';&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' ' + &#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' - ' + &#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;  }      &#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 Memo20OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;RE&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;       Memo21.Lines.Clear;&#13;&#10;       Memo29.Lines.Clear;&#13;&#10;  end;&#13;&#10;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena : String;&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCabecera.&#34;TITULAR&#34;&#62; &#60;&#62; '') then&#13;&#10;  begin&#13;&#10;    Cadena := Memo11.Lines.Text;&#13;&#10;    Memo11.Lines.Clear;&#13;&#10;    Memo11.Lines.Add(&#60;frxDBCabecera.&#34;TITULAR&#34;&#62;);&#13;&#10;    Memo11.Lines.Add(Cadena);&#13;&#10;  end&#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 Picture1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if &#60;ShowLogotipo&#62; then&#13;&#10;  begin              &#13;&#10;     Picture1.Visible := True;  &#13;&#10;{&#13;&#10;     Picture2.Visible := True;&#13;&#10;     Picture3.Visible := True;  &#13;&#10;     Picture4.Visible := True;  &#13;&#10;     Picture5.Visible := True;  &#13;&#10;     Picture6.Visible := True;           &#13;&#10;     Memo12.Visible := True;&#13;&#10;     Memo14.Visible := True;&#13;&#10;}         &#13;&#10;     Memo28.Visible := True;         &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;     Picture1.Visible := False;&#13;&#10;{  &#13;&#10;     Picture2.Visible := False;&#13;&#10;     Picture3.Visible := False;&#13;&#10;     Picture4.Visible := False;&#13;&#10;     Picture5.Visible := False;&#13;&#10;     Picture6.Visible := False;&#13;&#10;     Memo12.Visible := False;&#13;&#10;     Memo14.Visible := False;&#13;&#10;}         &#13;&#10;     Memo28.Visible := False;         &#13;&#10;  end&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C3C00000020446174615365743D22667278444256656E63696D69656E746F732220446174615365744E616D653D22667278444256656E63696D69656E746F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C16000000204E616D653D222056697375616C697A6163696F6E2200010C14000000204E616D653D2253686F774C6F676F7469706F220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
+<TfrxReport Version="4.7.71" 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="40659,528224456" 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;  RichConcepto.Visible := True;&#13;&#10;  MemImpTotal.HideZeros := 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;       MemImpTotal.HideZeros := False;           &#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;  Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height - 1;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena: String;&#13;&#10;begin&#13;&#10;  {                           &#13;&#10;  DatosEmpresa.Lines.Clear;&#13;&#10;  DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;RAZON_SOCIAL&#34;&#62;);&#13;&#10;  DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;CALLE_EMPRESA&#34;&#62;);&#13;&#10;&#13;&#10;  Cadena := '';&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;FAX&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;&#13;&#10;  Cadena := '';&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' ' + &#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' - ' + &#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;  }      &#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 Memo20OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;RE&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;       Memo21.Lines.Clear;&#13;&#10;       Memo29.Lines.Clear;&#13;&#10;  end;&#13;&#10;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena : String;&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCabecera.&#34;TITULAR&#34;&#62; &#60;&#62; '') then&#13;&#10;  begin&#13;&#10;    Cadena := Memo11.Lines.Text;&#13;&#10;    Memo11.Lines.Clear;&#13;&#10;    Memo11.Lines.Add(&#60;frxDBCabecera.&#34;TITULAR&#34;&#62;);&#13;&#10;    Memo11.Lines.Add(Cadena);&#13;&#10;  end&#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 Picture1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if &#60;ShowLogotipo&#62; then&#13;&#10;  begin              &#13;&#10;     Picture1.Visible := True;  &#13;&#10;{&#13;&#10;     Picture2.Visible := True;&#13;&#10;     Picture3.Visible := True;  &#13;&#10;     Picture4.Visible := True;  &#13;&#10;     Picture5.Visible := True;  &#13;&#10;     Picture6.Visible := True;           &#13;&#10;     Memo12.Visible := True;&#13;&#10;     Memo14.Visible := True;&#13;&#10;}         &#13;&#10;     Memo28.Visible := True;         &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;     Picture1.Visible := False;&#13;&#10;{  &#13;&#10;     Picture2.Visible := False;&#13;&#10;     Picture3.Visible := False;&#13;&#10;     Picture4.Visible := False;&#13;&#10;     Picture5.Visible := False;&#13;&#10;     Picture6.Visible := False;&#13;&#10;     Memo12.Visible := False;&#13;&#10;     Memo14.Visible := False;&#13;&#10;}         &#13;&#10;     Memo28.Visible := False;         &#13;&#10;  end&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C3C00000020446174615365743D22667278444256656E63696D69656E746F732220446174615365744E616D653D22667278444256656E63696D69656E746F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C16000000204E616D653D222056697375616C697A6163696F6E2200010C14000000204E616D653D2253686F774C6F676F7469706F220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
   <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="215" PaperHeight="297" PaperSize="256" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
     <TfrxPageHeader Name="Band2" Height="277,60631142" Left="0" Top="16" Width="737,00835" OnBeforePrint="Band2OnBeforePrint">