<!-- Gera caixa de selecao classificacao
     29/11/2008 05:33:18 -->

     <IsisScript name="autocompleta_classe.xis">

<!-- Define o tipo de conteúdo dos htmls que gerados dinamicamente -->
     <display><pft>'Content-type: text/html; charset=iso-8859-1'/#</pft></display>
  
<!-- Inclue funcao (vars) que carrega as variaveis de configuracao -->
     <include>phl84/001.fnc</include>

     <section>
  
<!-- Carrega variáveis de configuração  -->
     <call name="001">now</call>

<!-- Carrega variáveis passadas pelo http  -->
     <field action="cgi" tag="10">exp</field>

<!-- Percorre indice de chaves da base de dados de classificação  -->
     <do task="keyrange">
       <parm name="db"><pft>,v3000^1'_cdu',</pft></parm>
       <parm name="from"><pft>,v10,</pft></parm>
       <parm name="to"><pft>,v10'Z'</pft></parm>
       <parm name="count">10</parm>
       <parm name="posting">1</parm>
       <field action="define" tag="1">Isis_Key</field>
       <field action="define" tag="2">Isis_Postings</field>
       <field action="define" tag="3">Isis_Posting</field>

       <loop>
       <field action="import" tag="list">3000</field>
         <display>
           <pft>,
            s2:=(v1*4),

           ,ref(
                [v3000^1'_cdu']val(v3^m),
                 (,

                   ,if
                     s(mhu,v311.26,mpl):s2 then v311'='v310[1]/
                   ,fi,
                   
                 )
               ,),

           ,</pft>
         </display>
       </loop>
     </do>
     <flow action="exit">1</flow>

  </section>
</IsisScript>