<?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.Author="unionsystem" ReportOptions.CreateDate="41561,8945570602" ReportOptions.Description.Text="" ReportOptions.LastChange="42453,4990112616" ScriptLanguage="PascalScript" ScriptText.Text="   &#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;procedure Page2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;    if &#60;Logo&#62; &#60;&#62; '' then                                           &#13;&#10;     Picture1.picture.loadfromfile(&#60;Logo&#62;);                                                    &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." PropData="044C65667403E00003546F70023808446174617365747301010C2400000020446174615365743D226461646F732220446174615365744E616D653D226461646F732200010C2F00000020446174615365743D2266706172616D6574726F732220446174615365744E616D653D22706172616D6574726F73220000095661726961626C657301010C11000000204E616D653D222065787465726E61732200010C0C000000204E616D653D226C6F676F2200010C0F000000204E616D653D227573756172696F220000055374796C650100">
  <TfrxDataPage Name="frxDataPage1" Height="1000" Left="0" Top="0" Width="1000"/>
  <TfrxReportPage Name="Page2" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="" OnBeforePrint="Page2OnBeforePrint">
    <TfrxMasterData Name="MasterData" Height="18,89765" Left="0" Top="544,25232" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="dados" DataSetName="dados" PrintIfDetailEmpty="True" RowCount="0" Stretched="True">
      <TfrxMemoView Name="dadosnomecomposto" Left="0" Top="0,33859" Width="415,7483" Height="15,11812" ShowHint="False" DataField="nomecomposto" DataSet="dados" DataSetName="dados" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[dados.&#34;nomecomposto&#34;]"/>
      <TfrxMemoView Name="dadosdescunicomposto" Left="427,52783" Top="0,77953" Width="60,47248" Height="15,11812" ShowHint="False" DataField="descunicomposto" DataSet="dados" DataSetName="dados" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[dados.&#34;descunicomposto&#34;]"/>
      <TfrxMemoView Name="dadosquantidade" Left="495,11843" Top="0" Width="68,03154" Height="15,11812" ShowHint="False" DataField="quantidade" DataSet="dados" DataSetName="dados" DisplayFormat.FormatStr="%2.3n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[dados.&#34;quantidade&#34;]"/>
      <TfrxMemoView Name="Memo13" Left="567,9295" Top="0" Width="60,47248" Height="15,11812" ShowHint="False" DataField="custo" DataSet="dados" DataSetName="dados" DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[dados.&#34;custo&#34;]"/>
      <TfrxMemoView Name="Memo14" Left="642,5201" Top="0" Width="68,03154" Height="15,11812" ShowHint="False" DataSet="dados" DataSetName="dados" DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[&#60;dados.&#34;custo&#34;&#62;*&#60;dados.&#34;quantidade&#34;&#62;]"/>
    </TfrxMasterData>
    <TfrxPageHeader Name="PageHeader2" Height="132,28355" Left="0" Top="18,89765" Width="718,1107">
      <TfrxMemoView Name="Memo34" Align="baWidth" Left="0" Top="100,26778" Width="718,1107" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-16" Font.Name="Arial" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="FICHA DE PRODUTOS COMPOSTOS"/>
      <TfrxMemoView Name="parametrosfantasia" Left="166,51979" Top="2,55906" Width="355,27582" Height="90,70872" ShowHint="False" DataField="fantasia" DataSet="fparametros" DataSetName="parametros" Font.Charset="1" Font.Color="0" Font.Height="-16" Font.Name="Arial" Font.Style="1" ParentFont="False" VAlign="vaCenter" Text="[parametros.&#34;fantasia&#34;]"/>
      <TfrxMemoView Name="usuario" Left="532,91373" Top="3,77953" Width="181,41744" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Impresso por: [usuario]"/>
      <TfrxMemoView Name="Memo11" Left="532,91373" Top="30,23624" Width="181,41744" Height="45,35436" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="ImpressÃ£o: [Date]  as [Time] hs"/>
      <TfrxPictureView Name="Picture1" Left="3,55906" Top="1,77953" Width="154,96073" Height="90,70872" ShowHint="False" HightQuality="False" Transparent="False" TransparentColor="16777215"/>
    </TfrxPageHeader>
    <TfrxPageFooter Name="PageFooter2" Height="34,01577" Left="0" Top="714,33117" Width="718,1107">
      <TfrxMemoView Name="Memo38" Align="baWidth" Left="0" Top="3,77953" Width="718,1107" Height="15,11812" ShowHint="False" DataSet="fparametros" DataSetName="parametros" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="4" HAlign="haCenter" ParentFont="False" Text="[parametros.&#34;fantasia&#34;]  e-mail: [parametros.&#34;email&#34;] - [parametros.&#34;endereco&#34;], [parametros.&#34;numero&#34;] [parametros.&#34;bairro&#34;] [parametros.&#34;cidade&#34;]-[parametros.&#34;uf&#34;]"/>
    </TfrxPageFooter>
    <TfrxGroupHeader Name="GroupHeader1" Height="309,92146" Left="0" Top="211,65368" Width="718,1107" Condition="dados.&#34;nome&#34;">
      <TfrxMemoView Name="dadositenscomfotocodigo" Left="4,55906" Top="13,89765" Width="151,1812" Height="18,89765" ShowHint="False" DataSetName="dadositenscomfoto" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="CÃ³digo: [dados.&#34;codigo&#34;]"/>
      <TfrxMemoView Name="dadositenscomfotonome" Left="4,55906" Top="34,35436" Width="710,55139591" Height="18,89765" ShowHint="False" DataSet="dados" DataSetName="dados" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="Nome: [dados.&#34;nome&#34;]"/>
      <TfrxMemoView Name="Memo1" Left="343,93723" Top="14,11812" Width="204,09462" Height="18,89765" ShowHint="False" DataSetName="dadositenscomfoto" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="CÃ³d barra: [dados.&#34;cod_barra&#34;]"/>
      <TfrxMemoView Name="Memo2" Left="4,55906" Top="54,47248" Width="332,59864" Height="18,89765" ShowHint="False" DataSetName="dadositenscomfoto" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="Marca: [dados.&#34;marca&#34;]"/>
      <TfrxMemoView Name="Memo3" Left="340,1577" Top="54,47248" Width="332,59864" Height="18,89765" ShowHint="False" DataSetName="dadositenscomfoto" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="Modelo: [dados.&#34;modelo&#34;]"/>
      <TfrxMemoView Name="dadositenscomfotoobservacao" Left="365,17347" Top="91,04731" Width="351,49604591" Height="170,07885" ShowHint="False" StretchMode="smMaxHeight" DataSetName="dadositenscomfoto" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" ParentFont="False" VAlign="vaCenter" Text="DescriÃ§Ã£o: [dados.&#34;descproduto&#34;]"/>
      <TfrxPictureView Name="Picture2" Left="2,55906" Top="91,04731" Width="355,27582" Height="170,07885" ShowHint="False" DataField="image" DataSet="dados" DataSetName="dados" HightQuality="False" Transparent="False" TransparentColor="16777215"/>
      <TfrxLineView Name="Line1" Left="0" Top="81,92919" Width="718,1107" Height="0" ShowHint="False" Frame.Typ="4"/>
      <TfrxMemoView Name="Memo4" Left="2,77953" Top="268,00804" Width="154,96073" Height="15,11812" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="ComposiÃ§ao do produto:"/>
      <TfrxMemoView Name="Memo5" Left="1,33859" Top="292,02381" Width="411,96877" Height="15,11812" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Nome"/>
      <TfrxMemoView Name="Memo6" Left="427,08689" Top="291,80334" Width="60,47248" Height="15,11812" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="UND"/>
      <TfrxMemoView Name="Memo7" Left="495,11843" Top="291,80334" Width="68,03154" Height="15,11812" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Quantidade"/>
      <TfrxLineView Name="Line2" Left="0" Top="309,48052" Width="710,55164" Height="0" ShowHint="False" Frame.Typ="4"/>
      <TfrxMemoView Name="Memo9" Align="baWidth" Left="0" Top="3,77953" Width="718,1107" Height="11,33859" ShowHint="False" DataSet="fparametros" DataSetName="parametros" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Style="fsDouble" Frame.Typ="4" HAlign="haCenter" ParentFont="False" Text=""/>
      <TfrxMemoView Name="Memo10" Left="162,51979" Top="15,11812" Width="151,1812" Height="18,89765" ShowHint="False" DataSet="Form_Venda.dadositenscomfoto" DataSetName="dadositenscomfoto" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="Unidade: [dados.&#34;descunidade&#34;]"/>
      <TfrxMemoView Name="Memo12" Left="567,9295" Top="291,80334" Width="60,47248" Height="15,11812" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Custo"/>
      <TfrxMemoView Name="Memo15" Left="641,5201" Top="291,02381" Width="68,03154" Height="15,11812" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Total"/>
    </TfrxGroupHeader>
    <TfrxGroupFooter Name="GroupFooter1" Height="68,03154" Left="0" Top="585,82715" Width="718,1107">
      <TfrxMemoView Name="Memo8" Align="baWidth" Left="0" Top="25,23624" Width="718,1107" Height="11,33859" ShowHint="False" DataSet="fparametros" DataSetName="parametros" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Style="fsDouble" Frame.Typ="4" HAlign="haCenter" ParentFont="False" Text=""/>
      <TfrxSysMemoView Name="SysMemo1" Left="615,06339" Top="0,77953" Width="94,48825" Height="15,11812" ShowHint="False" DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="4" HAlign="haRight" ParentFont="False" Text="[SUM(&#60;dados.&#34;custo&#34;&#62;*&#60;dados.&#34;quantidade&#34;&#62;,MasterData)]"/>
    </TfrxGroupFooter>
  </TfrxReportPage>
</TfrxReport>
