Jump to content
Fivewin Brasil

Codigos de cidades IBGE - NFE


jef2_tim

Recommended Posts

Ola amigos

Estou em busca de um banco de dados q contenha os codigos corretos das cidades para emissao de NFE.

Ex: No site do IBGE a cidade de BELEM-PA tem o codigo 150140 porem o codigo correto é 1501402 OU seja, no IBGE sempre falta o ultimo numero. Como posso ter este ultimo numero?

flow amigos

Um Xharbraço.

Uso Fwh 8.4 (xharbour 1.1) e Xmate Para Compilar

Impactus Automação Comercial

jef2_timber@hotmail.com

(91)-3238-7012

Belem-PA

Link to comment
Share on other sites

Ola amigos

Estou em busca de um banco de dados q contenha os codigos corretos das cidades para emissao de NFE.

Ex: No site do IBGE a cidade de BELEM-PA tem o codigo 150140 porem o codigo correto é 1501402 OU seja, no IBGE sempre falta o ultimo numero. Como posso ter este ultimo numero?

flow amigos

Um Xharbraço.

Uso Fwh 8.4 (xharbour 1.1) e Xmate Para Compilar

Impactus Automação Comercial

jef2_timber@hotmail.com

(91)-3238-7012

Belem-PA

Link to comment
Share on other sites

se precisar incluir um municipio novo pega do site do IBGE em Cidades

mas lá não tem o Digito verificador


local msoma := 0

mInic = 1

for p := 1 to 6

mSoma+=val(substr(alltrim(str(val(substr( mCod, p, 1 ))*mInic)),1,1))

mInic = iif(mInic = 1,2,1)

next

nRet := mod( mSoma, 10 )

nmod:=10-( nRet )

cId:=mCod+if ( nret==0 .or. nret==10, "0", str( nmod, 1 ) )

cDigVerificador := if( nret==0.or.nret==10, "0", str( nmod, 1 ) )

return(cDigVerificador)

id=code>id=code>

isso aí.

Eduardo Mendes

eduardo@conesnet.com.br

Fwh 9.01 + xH 1.0.0 + xDev + Fast Report + SQLRDD

xH 1.0.0 + GTWVW + DBFCDX + xDev

Clipper 5.2e + DBFCDX + Exospace

Campo Grande - MS

Link to comment
Share on other sites

  • 1 year later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...