<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="3.23.7" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" ReportOptions.CreateDate="38330,7129042477" ReportOptions.Description.Text="" ReportOptions.LastChange="39363,8633537616" ScriptLanguage="PascalScript" ScriptText.Text="procedure Memo2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; Cadena: String;&#13;&#10;begin&#13;&#10;  Memo2.Lines.Clear;&#13;&#10;&#13;&#10;  Cadena:= UPPERCASE(&#60;frxDBCabecera.&#34;NOMBRE&#34;&#62;);&#13;&#10;  Memo2.Lines.Add(Cadena);&#13;&#10;&#13;&#10;  Cadena:= UPPERCASE(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;  Memo2.Lines.Add(Cadena);&#13;&#10;&#13;&#10;  Cadena:= UPPERCASE(&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;);&#13;&#10;  if (length(&#60;frxDBCabecera.&#34;POBLACION&#34;&#62;) &#62; 0) then&#13;&#10;  begin&#13;&#10;     if (length(Cadena) &#62; 0) then&#13;&#10;        Cadena := Cadena + ', ';&#13;&#10;     Cadena := Cadena + UPPERCASE(&#60;frxDBCabecera.&#34;POBLACION&#34;&#62;);&#13;&#10;  end;&#13;&#10;  Memo2.Lines.Add(Cadena);&#13;&#10;&#13;&#10;  Cadena:= UPPERCASE(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;  Memo2.Lines.Add(Cadena);&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D2266727844424361626563657261220000095661726961626C65730100055374796C650100">
  <TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="0" RightMargin="0" TopMargin="8" BottomMargin="8" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
    <TfrxMasterData Name="MasterData1" Height="126" Left="0" Top="18,89765" Width="793,7013" Columns="2" ColumnWidth="378" ColumnGap="11" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" RowCount="0">
      <TfrxMemoView Name="Memo2" Left="25" Top="17,10235" Width="346" Height="114" OnBeforePrint="Memo2OnBeforePrint" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="   "/>
    </TfrxMasterData>
  </TfrxReportPage>
</TfrxReport>
