<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.9" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="41582,8768762963" ReportOptions.Description.Text="" ReportOptions.LastChange="41653,4364391782" ScriptLanguage="PascalScript" ScriptText.Text="var&#13;&#10;  _total : String;&#13;&#10;  _totalvalor : String;                                              &#13;&#10;    &#13;&#10;function Ext1(Valor: Real): String;&#13;&#10;begin&#13;&#10;  // Linha 1&#13;&#10;&#13;&#10;  Result := Copy(Extenso(Valor), 0, 80);&#13;&#10;&#13;&#10;  while Length(Result) &#60;&#62; 80 do Result := Result + '*';&#13;&#10;end;&#13;&#10;&#13;&#10;function Ext2(Valor: Real): String;&#13;&#10;begin&#13;&#10;  // Linha 2&#13;&#10;&#13;&#10;  Result := Copy(Extenso(Valor), 81, 80);&#13;&#10;&#13;&#10;  while Length(Result) &#60;&#62; 80 do Result := Result + '*';&#13;&#10;end;&#13;&#10;&#13;&#10;function Ext3(Valor: Real): String;&#13;&#10;begin&#13;&#10;  // Linha 3&#13;&#10;&#13;&#10;  Result := Copy(Extenso(Valor), 162, 80);&#13;&#10;&#13;&#10;  while Length(Result) &#60;&#62; 80 do Result := Result + '*';&#13;&#10;end;&#13;&#10;&#13;&#10;&#13;&#10;&#13;&#10;&#13;&#10;function Extenso(Valor: Real): String;&#13;&#10;&#13;&#10;function Mini(Valor: String): String;&#13;&#10;var&#13;&#10;  Texto : array[0..36] of string = (['A','UM', 'DOIS', 'TRES', 'QUATRO', 'CINCO', 'SEIS', 'SETE',&#13;&#10;                                   'OITO', 'NOVE', 'DEZ', 'ONZE', 'DOZE', 'TREZE', 'CATORZE',&#13;&#10;                                   'QUINZE', 'DEZESSEIS', 'DEZESSETE', 'DEZOITO', 'DEZENOVE',&#13;&#10;                                   'VINTE', 'TRINTA', 'QUARENTA', 'CINQÜENTA', 'SESSENTA',&#13;&#10;                                   'SETENTA', 'OITENTA', 'NOVENTA', 'CENTO', 'DUZENTOS',&#13;&#10;                                   'TREZENTOS', 'QUATROCENTOS', 'QUINHENTOS', 'SEISCENTOS', 'SETECENTOS', 'OITOCENTOS', 'NOVECENTOS']);&#13;&#10;begin&#13;&#10;  // Mini extenso&#13;&#10;&#13;&#10;  Result := '';&#13;&#10;&#13;&#10;  if Valor &#60;&#62; '000' then&#13;&#10;  begin&#13;&#10;    if StrToInt(Valor) &#60;= 20 then&#13;&#10;    begin&#13;&#10;      Result := Result + Texto[StrToInt(Valor)];&#13;&#10;    end&#13;&#10;    else&#13;&#10;    if (StrToInt(Valor) &#62; 20) and (StrToInt(Valor) &#60; 100) then&#13;&#10;    begin&#13;&#10;      if Copy(Valor, 2, 1) = '2' then Result := Result + Texto[20];&#13;&#10;      if Copy(Valor, 2, 1) = '3' then Result := Result + Texto[21];&#13;&#10;      if Copy(Valor, 2, 1) = '4' then Result := Result + Texto[22];&#13;&#10;      if Copy(Valor, 2, 1) = '5' then Result := Result + Texto[23];&#13;&#10;      if Copy(Valor, 2, 1) = '6' then Result := Result + Texto[24];&#13;&#10;      if Copy(Valor, 2, 1) = '7' then Result := Result + Texto[25];&#13;&#10;      if Copy(Valor, 2, 1) = '8' then Result := Result + Texto[26];&#13;&#10;      if Copy(Valor, 2, 1) = '9' then Result := Result + Texto[27];&#13;&#10;&#13;&#10;      if Copy(Valor, 3, 1) &#60;&#62; '0' then Result := Result + ' E ' + Texto[StrToInt(Copy(Valor, 3, 1))];&#13;&#10;    end&#13;&#10;    else&#13;&#10;    if StrToInt(Valor) &#62; 99 then&#13;&#10;    begin&#13;&#10;      if Valor = '100' then Result := Result + 'CEM' else&#13;&#10;      begin&#13;&#10;        if Copy(Valor, 1, 1) = '1' then Result := Result + Texto[28];&#13;&#10;        if Copy(Valor, 1, 1) = '2' then Result := Result + Texto[29];&#13;&#10;        if Copy(Valor, 1, 1) = '3' then Result := Result + Texto[30];&#13;&#10;        if Copy(Valor, 1, 1) = '4' then Result := Result + Texto[31];&#13;&#10;        if Copy(Valor, 1, 1) = '5' then Result := Result + Texto[32];&#13;&#10;        if Copy(Valor, 1, 1) = '6' then Result := Result + Texto[33];&#13;&#10;        if Copy(Valor, 1, 1) = '7' then Result := Result + Texto[34];&#13;&#10;        if Copy(Valor, 1, 1) = '8' then Result := Result + Texto[35];&#13;&#10;        if Copy(Valor, 1, 1) = '9' then Result := Result + Texto[36];&#13;&#10;      end;&#13;&#10;&#13;&#10;      if (StrToInt(Copy(Valor, 2, 2)) &#60;= 20) and (StrToInt(Copy(Valor, 2, 2)) &#62; 0) then&#13;&#10;      begin&#13;&#10;        Result := Result + ' E ' + Texto[StrToInt(Copy(Valor, 2, 2))];&#13;&#10;      end&#13;&#10;      else&#13;&#10;      if StrToInt(Copy(Valor, 2, 2)) &#62; 20 then&#13;&#10;      begin&#13;&#10;        if Copy(Valor, 2, 1) = '2' then Result := Result + ' E ' + Texto[20];&#13;&#10;        if Copy(Valor, 2, 1) = '3' then Result := Result + ' E ' + Texto[21];&#13;&#10;        if Copy(Valor, 2, 1) = '4' then Result := Result + ' E ' + Texto[22];&#13;&#10;        if Copy(Valor, 2, 1) = '5' then Result := Result + ' E ' + Texto[23];&#13;&#10;        if Copy(Valor, 2, 1) = '6' then Result := Result + ' E ' + Texto[24];&#13;&#10;        if Copy(Valor, 2, 1) = '7' then Result := Result + ' E ' + Texto[25];&#13;&#10;        if Copy(Valor, 2, 1) = '8' then Result := Result + ' E ' + Texto[26];&#13;&#10;        if Copy(Valor, 2, 1) = '9' then Result := Result + ' E ' + Texto[27];&#13;&#10;&#13;&#10;        if Copy(Valor, 3, 1) &#60;&#62; '0' then Result := Result + ' E ' + Texto[StrToInt(Copy(Valor, 3, 1))];&#13;&#10;      end;&#13;&#10;    end;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;  &#13;&#10;&#13;&#10;  &#13;&#10;var&#13;&#10;  ValorF: String;&#13;&#10;  Bilhao, Milhao, Milhar, Centena, Centavos: String;&#13;&#10;begin&#13;&#10;  // Verifico&#13;&#10;&#13;&#10;  if (Valor &#60; 0) or (Valor &#62; 999999999999.99) then&#13;&#10;  begin&#13;&#10;    Result := 'VALOR INVÁLIDO!!!';&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    // Formato o valor e jogo numa variável&#13;&#10;&#13;&#10;    ValorF := FormatFloat('###,###,###,###,##000000000000.00', Valor);&#13;&#10;&#13;&#10;    // Divido o valor formatado e jogo em variáveis&#13;&#10;&#13;&#10;    Bilhao   := Copy(ValorF, 0, 3);&#13;&#10;    Milhao   := Copy(ValorF, 5, 3);&#13;&#10;    Milhar   := Copy(ValorF, 9, 3);&#13;&#10;    Centena  := Copy(ValorF, 13, 3);&#13;&#10;    Centavos := '0' + Copy(ValorF, 17, 2);&#13;&#10;&#13;&#10;    Result := '';&#13;&#10;&#13;&#10;    if Mini(Bilhao) &#60;&#62; '' then&#13;&#10;    begin&#13;&#10;      if StrToInt(Bilhao) = 1 then Result := Result + Mini(Bilhao) + ' ' + 'BILHAO' else Result := Result + Mini(Bilhao) + ' ' + 'BILHOES';&#13;&#10;    end;&#13;&#10;&#13;&#10;    if Mini(Milhao) &#60;&#62; '' then&#13;&#10;    begin&#13;&#10;      if Mini(Bilhao) &#60;&#62; '' then Result := Result + ', ';&#13;&#10;&#13;&#10;      if StrToInt(Milhao) = 1 then Result := Result + Mini(Milhao) + ' ' + 'MILHAO' else Result := Result + Mini(Milhao) + ' ' + 'MILHOES';&#13;&#10;    end;&#13;&#10;&#13;&#10;    if Mini(Milhar) &#60;&#62; '' then&#13;&#10;    begin&#13;&#10;      if (Mini(Bilhao) &#60;&#62; '') or (Mini(Milhao) &#60;&#62; '') then Result := Result + ', ';&#13;&#10;&#13;&#10;      Result := Result + Mini(Milhar) + ' ' + 'MIL';&#13;&#10;    end;&#13;&#10;&#13;&#10;    if Mini(Centena) &#60;&#62; '' then&#13;&#10;    begin&#13;&#10;      if (Mini(Bilhao) &#60;&#62; '') or (Mini(Milhao) &#60;&#62; '') or (Mini(Milhar) &#60;&#62; '') then Result := Result + ', ';&#13;&#10;&#13;&#10;      Result := Result + Mini(Centena);&#13;&#10;    end;&#13;&#10;&#13;&#10;    if Trunc(Valor) &#62; 1 then Result := Result + ' REAIS' else if Trunc(Valor) = 1 then Result := Result + ' REAL';&#13;&#10;&#13;&#10;    if Mini(Centavos) &#60;&#62; '' then&#13;&#10;    begin&#13;&#10;      if (Mini(Bilhao) &#60;&#62; '') or (Mini(Milhao) &#60;&#62; '') or (Mini(Milhar) &#60;&#62; '') or (Mini(Centena) &#60;&#62; '') then Result := Result + ' E ';&#13;&#10;&#13;&#10;      Result := Result + Mini(Centavos) + ' CENTAVOS';&#13;&#10;    end;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;  &#13;&#10;&#13;&#10;&#13;&#10;&#13;&#10;  &#13;&#10;  &#13;&#10;procedure Page1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;         &#13;&#10;  _total := '(' + ext1(&#60;dados.&#34;soma&#34;&#62;);&#13;&#10;  _totalvalor := formatfloat('#,##0.00',&#60;dados.&#34;soma&#34;&#62;);                                                                        &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." PropData="044C65667403E80103546F7003F80008446174617365747301010C2800000020446174615365743D22636C69656E74652220446174615365744E616D653D22636C69656E74652200010C2400000020446174615365743D226461646F732220446174615365744E616D653D226461646F732200010C2E00000020446174615365743D226461646F736974656E732220446174615365744E616D653D226461646F736974656E732200010C2F00000020446174615365743D2266706172616D6574726F732220446174615365744E616D653D22706172616D6574726F73220000095661726961626C65730100055374796C650100">
  <TfrxDataPage Name="frxDataPage1" Height="1000" Left="0" Top="0" Width="1000"/>
  <TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="" OnBeforePrint="Page1OnBeforePrint">
    <TfrxReportTitle Name="ReportTitle1" Height="1022,89765" Left="0" Top="18,89765" Width="718,1107">
      <TfrxRichView Name="Rich1" Left="1,77953" Top="200,85838" Width="714,33117" Height="748,34694" ShowHint="False" GapX="2" GapY="1" PropData="0852696368456469740AD70600007B5C727466315C616E73695C616E7369637067313235325C64656666305C6465666C616E67313034367B5C666F6E7474626C7B5C66305C666E696C5C66636861727365743020417269616C3B7D7D0D0A7B5C636F6C6F7274626C203B5C7265643235355C677265656E3235355C626C7565303B5C726564305C677265656E305C626C7565303B7D0D0A7B5C2A5C67656E657261746F72204D7366746564697420352E34312E32312E323531303B7D5C766965776B696E64345C7563315C706172645C627264726C5C62726472735C627264727731305C627273703830205C62726472745C62726472735C627264727731305C627273703230205C62726472725C62726472735C627264727731305C627273703830205C62726472625C62726472735C627264727731305C627273703230205C73613230305C736C3237365C736C6D756C74315C716A5C625C66733232205B706172616D6574726F732E2272617A616F225D5C7061720D0A5C667332382052656369626F20206E5B6461646F732E22636F6469676F225D2F5B596561724F66283C6461646F732E2264617461223E295D5C7061720D0A5C706172645C627264726C5C62726472735C627264727731305C627273703830205C62726472745C62726472735C627264727731305C627273703230205C62726472725C62726472735C627264727731305C627273703830205C62726472625C62726472735C627264727731305C627273703230205C73613230305C736C3237365C736C6D756C74315C62305C667332322056616C6F72206E6F6D696E616C20646173206D65726361646F7269617320746F74616C206465203A205224205B5F746F74616C76616C6F725D20285B5F746F74616C5D292E5C7061720D0A5C706172645C627264726C5C62726472735C627264727731305C627273703830205C62726472745C62726472735C627264727731305C627273703230205C62726472725C62726472735C627264727731305C627273703830205C62726472625C62726472735C627264727731305C627273703230205C73613230305C736C3237365C736C6D756C74315C716A20446F63756D656E746F2066697363616C3A204E6F74612046697363616C206E5C2766616D65726F3A20205B6461646F732E226E756D6E6F7461225D5C7061720D0A4475706C69636174617320286F752063686571756573292072656C6163696F6E61646173205C27653020636F6D70726120652076656E6461206D657263616E74696C3A205C7061720D0A5C7061720D0A5C7061720D0A5C7061720D0A5C686967686C696768743120287175616E646F20686F7576657220706167616D656E746F2070617263656C61646F295C686967686C69676874305C7061720D0A28696E6469636172206E756D6572615C2765375C2765336F2C2076616C6F72657320652076656E63696D656E746F206465206361646120756D61292E205C7061720D0A536520666F72206368657175652C2072656C6163696F6E617220746F646F73206F73206461646F73206465206361646120756D2E5C7061720D0A5C7061720D0A4F20524543454245444F522C206F7261206964656E746966696361646F2C204445434C4152412C2050415241204F532044455649444F532046494E532C2071756520434F4E4645524955204520524543454245552C20706573736F616C6D656E74652C20656D2073756120746F74616C69646164652C2061206D65726361646F7269612072656C6163696F6E616461206E61204E6F74612046697363616C206E2E205B6461646F732E226E756D6E6F7461225D2065206475706C696361746173202028696D706F7274616E74652076696E63756C6172206F207265636562696D656E746F205C276530206E6F74612065206475706C696361746173292C2061207175616C20656E636F6E7472612D736520646520636F6E666F726D696461646520636F6D206F20636F6E7374616E746573206E6F2070656469646F2F6F725C276537616D656E746F2E5C7061720D0A506F722073657220657870726573735C2765336F20646120766572646164652C20617373696E61206F2070726573656E74652072656369626F2E5C7061720D0A5C7061720D0A5C7061720D0A4C6F63616C206520646174613A5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5C7061720D0A5C7061720D0A526563656265646F723A5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5C7061720D0A284E6F6D6520706F7220657874656E736F2C20636F6D20435046206520617373696E6174757261295C7061720D0A5C706172645C6366325C667331365C7061720D0A7D0D0A00"/>
      <TfrxMemoView Name="Memo1" Align="baWidth" Left="0" Top="0" Width="718,1107" Height="18,89765" ShowHint="False" DataField="fantasia" DataSet="fparametros" DataSetName="parametros" Font.Charset="1" Font.Color="0" Font.Height="-16" Font.Name="Arial" Font.Style="1" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[parametros.&#34;fantasia&#34;]"/>
      <TfrxMemoView Name="Memo2" Align="baWidth" Left="0" Top="49,13389" Width="718,1107" Height="18,89765" ShowHint="False" DataSet="dados" DataSetName="dados" Font.Charset="1" Font.Color="0" Font.Height="-16" Font.Name="Arial" Font.Style="1" Frame.Typ="15" Frame.Width="0,5" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="ORÃ‡AMENTO-PEDIDO n. [dados.&#34;codigo&#34;]"/>
      <TfrxRichView Name="Rich2" Align="baWidth" Left="0" Top="74,70872" Width="718,1107" Height="109,60637" ShowHint="False" Frame.Typ="15" Frame.Width="0,5" GapX="2" GapY="1" PropData="0852696368456469740A450300007B5C727466315C616E73695C616E7369637067313235325C64656666305C6465666C616E67313034367B5C666F6E7474626C7B5C66305C666E696C5C66636861727365743020417269616C3B7D7B5C66315C666E696C204D532053616E732053657269663B7D7D0D0A7B5C2A5C67656E657261746F72204D7366746564697420352E34312E32312E323531303B7D5C766965776B696E64345C7563315C706172645C627264726C5C62726472735C627264727731305C627273703830205C62726472745C62726472735C627264727731305C627273703230205C62726472725C62726472735C627264727731305C627273703830205C62726472625C62726472735C627264727731305C627273703230205C73613230305C736C3237365C736C6D756C74315C716A5C66733232204F2070726573656E7465206F725C276537616D656E746F2F70656469646F207265666572652D736520612070726F6475746F73206F725C27653761646F73206520656E636F6D656E6461646F73205C756C20636F6E666F726D6520617320657370656369666963615C2765375C27663565735C756C6E6F6E6520202872656C6174697661732061206D6174657269616C2C2074616D616E686F732C20636F727465732C207469706F732F6D6F64656C6F732064652070655C27653761732065746329205C756C2072657061737361646173205C756C6E6F6E6520205C756C5C276530205B706172616D6574726F732E2272617A616F225D5C756C6E6F6E6520205C756C2070656C6F206F726120636F6D707261646F725C756C6E6F6E65202C2073656E646F20646520746F74616C20726573706F6E736162696C696461646520646573746520717565206F2070726F6475746F206F72612061647175697269646F20657374656A6120646520636F6E666F726D696461646520636F6D206F7320646573656E686F732C20706C616E746173206F752070726F6A65746F732064652065786563755C2765375C2765336F206461206F6272612061207175652073652064657374696E616D2E5C7061720D0A4E6F6D6520706F7220657874656E736F2065204350463A5C7061720D0A4C6F63616C206520646174613A5C7061720D0A5C706172645C66315C667331365C7061720D0A7D0D0A00"/>
    </TfrxReportTitle>
  </TfrxReportPage>
</TfrxReport>
