From 23d3eb213e15402ed6f58d352ebe93608f7a7da0 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Fri, 16 Jan 2009 16:14:18 +0000
Subject: [PATCH] Arreglo de fecha vencimiento

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

diff --git a/Source/Informes/2/InfFacturaCliente.fr3 b/Source/Informes/2/InfFacturaCliente.fr3
index 271f25b7..1985cd06 100644
--- a/Source/Informes/2/InfFacturaCliente.fr3
+++ b/Source/Informes/2/InfFacturaCliente.fr3
@@ -1,15 +1,15 @@
 <?xml version="1.0" encoding="utf-8"?>
-<TfrxReport Version="4.3" 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="39829,702762037" 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;//     Memo22.Text := 'Base imponible:';&#13;&#10;&#13;&#10;     Memo10.Text := 'Importe total:';&#13;&#10;     Memo10.Font.Style := fsBold;                            &#13;&#10;&#13;&#10;     Memo9.Text := FormatFloat('#,##0.00 €', &#60;frxDBCabecera.&#34;IMPORTE_TOTAL&#34;&#62;);&#13;&#10;     Memo9.Font.Style := fsBold;         &#13;&#10;  &#13;&#10;//     Memo23.Text := '[&#60;frxDBCabecera.&#34;IVA&#34;&#62;]% IVA:';&#13;&#10;//     Memo25.Text := '[frxDBCabecera.&#34;IMPORTE_IVA&#34;]';&#13;&#10;     Memo12.Visible := False;&#13;&#10;     Memo14.Visible := False;&#13;&#10;//     Memo16.Visible := False;  &#13;&#10;&#13;&#10;     Memo13.Visible := False;&#13;&#10;     Memo15.Visible := False;&#13;&#10;//     Memo17.Visible := False;&#13;&#10;     Memo11.Color := $00CCFFCC;&#13;&#10;  end;                       &#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;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C3C00000020446174615365743D22667278444256656E63696D69656E746F732220446174615365744E616D653D22667278444256656E63696D69656E746F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F732200010C13000000204E616D653D2220506172616D6574726F732200010C10000000204E616D653D2256657253656C6C6F220000055374796C650100">
+<TfrxReport Version="4.3" 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="39829,7173375926" 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;//     Memo22.Text := 'Base imponible:';&#13;&#10;&#13;&#10;     Memo10.Text := 'Importe total:';&#13;&#10;     Memo10.Font.Style := fsBold;                            &#13;&#10;&#13;&#10;     Memo9.Text := FormatFloat('#,##0.00 €', &#60;frxDBCabecera.&#34;IMPORTE_TOTAL&#34;&#62;);&#13;&#10;     Memo9.Font.Style := fsBold;         &#13;&#10;  &#13;&#10;//     Memo23.Text := '[&#60;frxDBCabecera.&#34;IVA&#34;&#62;]% IVA:';&#13;&#10;//     Memo25.Text := '[frxDBCabecera.&#34;IMPORTE_IVA&#34;]';&#13;&#10;     Memo12.Visible := False;&#13;&#10;     Memo14.Visible := False;&#13;&#10;//     Memo16.Visible := False;  &#13;&#10;&#13;&#10;     Memo13.Visible := False;&#13;&#10;     Memo15.Visible := False;&#13;&#10;//     Memo17.Visible := False;&#13;&#10;     Memo11.Color := $00CCFFCC;&#13;&#10;  end;                       &#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;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C3C00000020446174615365743D22667278444256656E63696D69656E746F732220446174615365744E616D653D22667278444256656E63696D69656E746F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F732200010C13000000204E616D653D2220506172616D6574726F732200010C10000000204E616D653D2256657253656C6C6F220000055374796C650100">
   <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="374,17347" Left="0" Top="18,89765" Width="642,5201" OnBeforePrint="PageHeader1OnBeforePrint" Stretched="True">
-      <TfrxMemoView Name="frxDBCabeceraFECHA_FACTURA" Left="366,06299213" Top="45,95275591" Width="114,82670331" Height="20,78740157" DataField="FECHA_FACTURA" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="13056" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA_FACTURA&#34;]"/>
+      <TfrxMemoView Name="frxDBCabeceraFECHA_FACTURA" Left="366,06299213" Top="45,95275591" Width="99,70858331" Height="20,78740157" DataField="FECHA_FACTURA" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="13056" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA_FACTURA&#34;]"/>
       <TfrxShapeView Name="Shape5" Left="15,11812" Top="123,33859" Width="211,65349937" Height="111,49607031" Visible="False" Color="13434828" Curve="2" Frame.Color="13056" Shape="skRoundRectangle"/>
       <TfrxMemoView Name="Memo38" Left="257,953" Top="87,90551181" Width="375,94491606" Height="20,78740157" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" Text="[frxDBCabecera.&#34;DATOS_BANCARIOS&#34;]"/>
       <TfrxMemoView Name="Memo19" Left="292,90816333" Top="119,98423" Width="338,42517" Height="126,61424157" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="&#60;b&#62;[frxDBCabecera.&#34;NOMBRE&#34;]&#60;/b&#62;&#13;&#10;[&#60;frxDBCabecera.&#34;NIF_CIF&#34;&#62;]&#13;&#10;[&#60;frxDBCabecera.&#34;CALLE&#34;&#62;]&#13;&#10;[&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;] [&#60;frxDBCabecera.&#34;POBLACION&#34;&#62;] [&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;]&#13;&#10;Departamento de contabilidad"/>
-      <TfrxMemoView Name="Memo21" Left="366,06299213" Top="25,16535433" Width="115,27559055" Height="20,78740157" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" ParentFont="False" Text="[frxDBCabecera.&#34;REFERENCIA&#34;]"/>
-      <TfrxMemoView Name="Memo24" Left="481,3389" Top="25,16535433" Width="79,96042" Height="20,78740157" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="32768" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" Text="Página:"/>
-      <TfrxMemoView Name="Memo26" Left="560,81891228" Top="25,16535433" Width="73,59057315" Height="20,78740402" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" ParentFont="False" WordWrap="False" Wysiwyg="False" Text="[&#60;Pagina&#62;]/[&#60;TotalPaginas&#62;]"/>
+      <TfrxMemoView Name="Memo21" Left="366,06299213" Top="25,16535433" Width="100,15747055" Height="20,78740157" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" ParentFont="False" Text="[frxDBCabecera.&#34;REFERENCIA&#34;]"/>
+      <TfrxMemoView Name="Memo24" Left="466,22078" Top="25,16535433" Width="79,96042" Height="20,78740157" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="32768" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" Text="Página:"/>
+      <TfrxMemoView Name="Memo26" Left="545,70079228" Top="25,16535433" Width="88,70869315" Height="20,78740402" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" ParentFont="False" WordWrap="False" Wysiwyg="False" Text="[&#60;Pagina&#62;]/[&#60;TotalPaginas&#62;]"/>
       <TfrxMemoView Name="Memo27" Left="258,34663" Top="66,74015748" Width="107,87384" Height="20,78740402" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="32768" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" Text="Forma de pago:"/>
       <TfrxMemoView Name="Memo28" Left="83,14966" Top="0,55906" Width="172,12585" Height="39,68505157" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="32768" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" ParentFont="False" Text="TECSITEL &#13;&#10;MANTENIMIENTO S.L."/>
       <TfrxMemoView Name="Memo29" Left="83,14966" Top="37,23624" Width="172,12585" Height="54,80317157" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" Text="C/ BuendĂ­a, 25. 28053 Madrid&#13;&#10;Telf: 91-507-56-92 / 63&#13;&#10;Fax: 91-785-96-35&#13;&#10;e-mail: tecsitel@tecsitel.com"/>
@@ -21,8 +21,8 @@
       <TfrxMemoView Name="Memo3" Left="258,34663" Top="4" Width="376,22047" Height="20,78740157" OnBeforePrint="Memo39OnBeforePrint" Color="13434828" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="32768" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="FACTURA"/>
       <TfrxMemoView Name="Memo41" Left="258,34663" Top="45,95275591" Width="107,87384" Height="20,78740402" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="32768" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" WordWrap="False" Wysiwyg="False" Text="Fecha:"/>
       <TfrxMemoView Name="Memo39" Left="22,67718" Top="124,72449" Width="194,80303" Height="20,78740157" Visible="False" Color="13434828" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="32768" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" HAlign="haCenter" ParentFont="False" Text="VENCIMIENTOS"/>
-      <TfrxMemoView Name="Memo1" Left="481,00031" Top="45,35436" Width="80,41713" Height="20,78740402" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="32768" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" WordWrap="False" Wysiwyg="False" Text="Fecha vto.:"/>
-      <TfrxMemoView Name="Memo16" Left="561,14997" Top="45,35436" Width="72,59055118" Height="20,78740157" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA_VENCIMIENTO&#34;]"/>
+      <TfrxMemoView Name="Memo1" Left="465,88219" Top="45,35436" Width="80,41713" Height="20,78740402" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="32768" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" WordWrap="False" Wysiwyg="False" Text="Fecha vto.:"/>
+      <TfrxMemoView Name="Memo16" Left="546,03185" Top="45,35436" Width="87,70867118" Height="20,78740157" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA_VENCIMIENTO&#34;]"/>
     </TfrxPageHeader>
     <TfrxHeader Name="Header1" Height="26,45671" Left="0" Top="453,5436" Width="642,5201">
       <TfrxMemoView Name="Memo5" Left="0" Top="3,77953000000002" Width="86,55115913" Height="22,67718" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" ParentFont="False" Text="CĂłdigo"/>