DbCloseAll()
x_adicionados = 0
dbSelectArea( "1" )
dbUseArea( .F.,, "se_dic5",,, .F. )
dbCreateIndex( "ntx/se_dic5", "pcprodforn", _createblock("pcprodforn"), )
dbSelectArea( "2" )
dbUseArea( .F.,, "tabela",,, .F. )
while ! eof()
   mensagem("Processados: "+Str( recn(), 5)+" / "+Str(  Recc(), 5) )
   x_pcprodforn = val(med_abc)
   if !se_dic5->(DbSeek(x_pcprodforn))
      x_adicionados = x_adicionados+1
      dbSelectArea( "se_dic5" )
      appendblank()
      _FIELD->pcprodforn := x_pcprodforn
      _FIELD->pdesc := alltrim(tabela->med_des)+" "+alltrim(tabela->med_apr)
      _FIELD->cp_fantasi := tabela->lab_nom
      dbSelectArea( "tabela" )
   endif
   dbSkip(1)
enddo
DbCloseAll()
Alert("Foram Adicionados "+Str(x_adicionados,4)+" Produtos ao Dicionario")
