*- ------------------------------------------------------------------------------------
*- Este programa atualiza cadastro de NCMs pelo codigo de barras
*- ------------------------------------------------------------------------------------
Private oProgressBar, nAdicoes
DbCloseAll()
nAdicoes:=0
mensagem("Abrindo NCMs de Medicamentos...")
dbSelectArea( "0" )
dbUseArea( .F.,, "ncm_ean",,, .F. )
dbCreateIndex( "tmp/ncm_ean", "pdic6", {||pdic6} )
mensagem("Abrindo Produtos...")
Abra ('0NOIDX', r_siga, "se_pnfe", 'se_pnfe', 'se_pnfe', 'pcod')
Abra ('0NOIDX', r_siga, Se_Prod, 'Se_Prod')
mensagem("Processando Produto: "+Str( recno(),6)+" / "+Str(Reccount(),6) )
while ! eof()
   oProgressBar:Step()
   if se_prod->pdic6>999999.and.ncm_ean->(DbSeek(se_prod->pdic6))
      nAdicoes := nAdicoes+1
      RegLock()
      _FIELD->pcodclafis := ncm_ean->pCodClaFis
      DbCommit()
      DbSeek_Add_Se_Pnfe(se_prod->pcod, .t.)
   endif
   dbSkip(1)
enddo
DbCloseAll()
oProgressBar:Close()
mensagem("Processamento Concluido!")
Alert("Foram Atualizadas "+Str(nAdicoes,6)+" NCMs")
mensagem("")
