From a046705ec75ad8a154affb8cf70766053d1f4942 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Wed, 20 Nov 2013 16:21:23 +0000
Subject: [PATCH] Cambio solicitado por monica

git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@24 9a1d36f3-7752-2d40-8ccb-50eb49674c68
---
 Output/Servidor/Informes/InfFacturaCliente.fr3 | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/Output/Servidor/Informes/InfFacturaCliente.fr3 b/Output/Servidor/Informes/InfFacturaCliente.fr3
index 29fe20d..9842ab1 100644
--- a/Output/Servidor/Informes/InfFacturaCliente.fr3
+++ b/Output/Servidor/Informes/InfFacturaCliente.fr3
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="Demonstrates how to create simple list report." ReportOptions.LastChange="40251,7936848843" 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;CODIGOPOSTAL&#34;&#62; &#60;&#62; '')&#13;&#10;  or (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;     DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;CODIGOPOSTAL&#34;&#62; + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  case &#60;frxDBDetalles.&#34;TIPO&#34;&#62; of&#13;&#10;  'C': begin&#13;&#10;       MemoCampo12.Style := 'Concepto normal';&#13;&#10;       MemoCampo2.Style := 'Concepto normal';&#13;&#10;       MemoCampo3.Style := 'Concepto normal';&#13;&#10;       MemoCampo4.Style := 'Concepto normal';&#13;&#10;       end;&#13;&#10;  'S': begin&#13;&#10;       MemoCampo12.Style := 'Concepto subtotal';&#13;&#10;       MemoCampo2.Style := 'Concepto subtotal';&#13;&#10;       MemoCampo3.Style := 'Concepto subtotal';&#13;&#10;       MemoCampo4.Style := 'Concepto subtotal';&#13;&#10;       end;&#13;&#10;  'T': begin&#13;&#10;       MemoCampo12.Style := 'Concepto titulo';&#13;&#10;       MemoCampo2.Style := 'Concepto titulo';&#13;&#10;       MemoCampo3.Style := 'Concepto titulo';&#13;&#10;       MemoCampo4.Style := 'Concepto titulo';&#13;&#10;       end;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;//       Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height + 20;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Band3OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;&#13;&#10;  if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10;  begin&#13;&#10;     shape6.Visible := True;&#13;&#10;     memo14.Visible := True;&#13;&#10;     memo35.Visible := True;&#13;&#10;     memo36.Visible := True;&#13;&#10;     memo37.Visible := True;&#13;&#10;     memo38.Visible := True;&#13;&#10;     memo39.Visible := True;&#13;&#10;     memo40.Visible := True;&#13;&#10;     memo41.Visible := True;&#13;&#10;     memo42.Visible := True;&#13;&#10;     memo43.Visible := True;&#13;&#10;     memo44.Visible := True;&#13;&#10;     memo45.Visible := True;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;     shape6.Visible := False;&#13;&#10;     shape6.Visible := False;&#13;&#10;     memo14.Visible := False;&#13;&#10;     memo35.Visible := False;&#13;&#10;     memo36.Visible := False;&#13;&#10;     memo37.Visible := False;&#13;&#10;     memo38.Visible := False;&#13;&#10;     memo39.Visible := False;&#13;&#10;     memo40.Visible := False;&#13;&#10;     memo41.Visible := False;&#13;&#10;     memo42.Visible := False;&#13;&#10;     memo43.Visible := False;&#13;&#10;     memo44.Visible := False;&#13;&#10;     memo45.Visible := False;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure MemoCampo3OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  case &#60;frxDBDetalles.&#34;VALORADO&#34;&#62; of&#13;&#10;  'S': begin&#13;&#10;         MemoCampo3.Visible := True;&#13;&#10;         MemoCampo4.Visible := True;&#13;&#10;       end;&#13;&#10;  'N': begin&#13;&#10;         MemoCampo3.Visible := False;&#13;&#10;         MemoCampo4.Visible := False;&#13;&#10;       end;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." StoreInDFM="False" PropData="044C656674022803546F7003800008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C65730100055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C86000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
+<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="Demonstrates how to create simple list report." ReportOptions.LastChange="41598,719980463" 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;CODIGOPOSTAL&#34;&#62; &#60;&#62; '')&#13;&#10;  or (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;     DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;CODIGOPOSTAL&#34;&#62; + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  case &#60;frxDBDetalles.&#34;TIPO&#34;&#62; of&#13;&#10;  'C': begin&#13;&#10;       MemoCampo12.Style := 'Concepto normal';&#13;&#10;       MemoCampo2.Style := 'Concepto normal';&#13;&#10;       MemoCampo3.Style := 'Concepto normal';&#13;&#10;       MemoCampo4.Style := 'Concepto normal';&#13;&#10;       end;&#13;&#10;  'S': begin&#13;&#10;       MemoCampo12.Style := 'Concepto subtotal';&#13;&#10;       MemoCampo2.Style := 'Concepto subtotal';&#13;&#10;       MemoCampo3.Style := 'Concepto subtotal';&#13;&#10;       MemoCampo4.Style := 'Concepto subtotal';&#13;&#10;       end;&#13;&#10;  'T': begin&#13;&#10;       MemoCampo12.Style := 'Concepto titulo';&#13;&#10;       MemoCampo2.Style := 'Concepto titulo';&#13;&#10;       MemoCampo3.Style := 'Concepto titulo';&#13;&#10;       MemoCampo4.Style := 'Concepto titulo';&#13;&#10;       end;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;//       Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height + 20;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Band3OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;&#13;&#10;  if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10;  begin&#13;&#10;     shape6.Visible := True;&#13;&#10;     memo14.Visible := True;&#13;&#10;     memo35.Visible := True;&#13;&#10;     memo36.Visible := True;&#13;&#10;     memo37.Visible := True;&#13;&#10;     memo38.Visible := True;&#13;&#10;     memo39.Visible := True;&#13;&#10;     memo40.Visible := True;&#13;&#10;     memo41.Visible := True;&#13;&#10;     memo42.Visible := True;&#13;&#10;     memo43.Visible := True;&#13;&#10;     memo44.Visible := True;&#13;&#10;     memo45.Visible := True;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;     shape6.Visible := False;&#13;&#10;     shape6.Visible := False;&#13;&#10;     memo14.Visible := False;&#13;&#10;     memo35.Visible := False;&#13;&#10;     memo36.Visible := False;&#13;&#10;     memo37.Visible := False;&#13;&#10;     memo38.Visible := False;&#13;&#10;     memo39.Visible := False;&#13;&#10;     memo40.Visible := False;&#13;&#10;     memo41.Visible := False;&#13;&#10;     memo42.Visible := False;&#13;&#10;     memo43.Visible := False;&#13;&#10;     memo44.Visible := False;&#13;&#10;     memo45.Visible := False;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure MemoCampo3OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  case &#60;frxDBDetalles.&#34;VALORADO&#34;&#62; of&#13;&#10;  'S': begin&#13;&#10;         MemoCampo3.Visible := True;&#13;&#10;         MemoCampo4.Visible := True;&#13;&#10;       end;&#13;&#10;  'N': begin&#13;&#10;         MemoCampo3.Visible := False;&#13;&#10;         MemoCampo4.Visible := False;&#13;&#10;       end;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." StoreInDFM="False" PropData="044C656674022803546F70025008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C65730100055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C86000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
   <TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
     <TfrxPageHeader Name="Band2" Height="258,70866142" Left="0" Top="18,89765" Width="718,1107">
       <TfrxMemoView Name="Memo23" Left="3,77953" Top="228,5671" Width="462,61441" Height="26,45669291" Color="15790320" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Style="Cabecera de columna" VAlign="vaCenter" Text="Concepto"/>
@@ -32,10 +32,10 @@
       <TfrxMemoView Name="Memo37" Left="4" Top="12" Width="116" Height="16" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
       <TfrxShapeView Name="Shape4" Left="372" Top="66,45671" Width="345" Height="98,26778" Color="16250871" Shape="skRoundRectangle"/>
       <TfrxShapeView Name="Shape3" Left="8" Top="66,45671" Width="345" Height="98,26778" Color="16250871" Shape="skRoundRectangle"/>
-      <TfrxMemoView Name="Memo26" Left="17,57483" Top="73,8268399999999" Width="113,3859" Height="14,89765" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="FORMA DE PAGO"/>
-      <TfrxMemoView Name="Memo27" Left="17,57483" Top="88,50402" Width="328,59864" Height="69,82684" StretchMode="smActualHeight" DataField="FORMAPAGO" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;FORMAPAGO&#34;]"/>
-      <TfrxMemoView Name="Memo30" Left="379,7483" Top="73,8268399999999" Width="113,3859" Height="14,89765" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="OBSERVACIONES"/>
-      <TfrxMemoView Name="Memo31" Left="379,7483" Top="88,50402" Width="331,24428" Height="69,83" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;OBSERVACIONES&#34;]"/>
+      <TfrxMemoView Name="Memo26" Left="17,57483" Top="66,26778" Width="113,3859" Height="14,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="FORMA DE PAGO"/>
+      <TfrxMemoView Name="Memo27" Left="17,57483" Top="84,72449" Width="328,59864" Height="77,3859" StretchMode="smActualHeight" DataField="FORMAPAGO" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;FORMAPAGO&#34;]"/>
+      <TfrxMemoView Name="Memo30" Left="379,7483" Top="66,26778" Width="113,3859" Height="14,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="OBSERVACIONES"/>
+      <TfrxMemoView Name="Memo31" Left="379,7483" Top="84,72449" Width="331,24428" Height="77,38906" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;OBSERVACIONES&#34;]"/>
       <TfrxMemoView Name="Memo34" Left="75,5906" Top="167,62214" Width="612,28386" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="Insc. en el Reg. Merc. de Madrid, Tomo 9.193, Libro 0, Folio 10, Sección 4, Hoja 13445/1 CIF: B78971132"/>
       <TfrxMemoView Name="Memo14" Left="584" Top="28" Width="132,75603" Height="22,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTETOTAL&#34;]"/>
       <TfrxMemoView Name="Memo35" Left="584" Top="12" Width="132" Height="16" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Total factura"/>