PC Toledo

Pessoal,
tenho o seguinte codigo para checar IE de Pernambuco: Está dizendo que a inscricao está em formato errado. As inscrições que vem na nota são com 9 digitos. Mudou algo?
Abraços.
Laudelino.

Sim, mudou. Veja na página do SINTEGRA, clicando aqui.

Obrigado, Maligno.
Ajustei e testei. Está Ok.
laudelino

Caso queira, tenho um utilitário que testa (e gera DVs de) IEs e outros documentos. Está disponível para download aqui.

Laudelino voce poderia compartilhar a alteracao que voce fez para este estado
Desde ja agradeço.

Ajustei para
elseif puf=="PE"
//mascara:="99,9,999,9999999-9"
mascara:="99,999,999-9"
//base :=padr(origem,14,"0")
base :=padr(origem,9,"0")
vsom :=0
//vmul :={5,4,3,2,1,9,8,7,6,5,4,3,2}
vmul :={9,8,7,6,5,4,3,2}
//for vpos:=1 to 13
for vpos:=1 to 8
valg:=val(substr(base,vpos,1))
valg:=valg*vmul[vpos]
vsom+=valg
next
vres :=vsom%11
vdig1 :=11-vres
if(vdig1>9,vdig1-=10,)
//vbase2:=left(base,13)+str(vdig1,1,0)
vbase2:=left(base,8)+str(vdig1,1,0)
ok :=(vbase2==origem)

As linhas marcadas com // é o que havia antes.
Posso postar a rotina toda, se alguém me orientar como anexar um arquivo.

Laudelino Scarmagnani escreveu: Posso postar a rotina toda, se alguém me orientar como anexar um arquivo.

viewtopic.php?f=40&t=8000
E para quem usa Harbour ou xHarbour pode usar a rotina abaixo para validar I.E.:
http://dicasprog.codigolivre.org.br/hmg/0001.php