Erro ao checar IE PE

[Laudelino Scarmagnani]

Pessoal,
tenho o seguinte codigo para checar IE de Pernambuco:

Código: Selecionar todos

if puf=="PE"
      mascara:="99,9,999,9999999-9"
      base   :=padr(origem,14,"0")
      vsom   :=0
      vmul   :={5,4,3,2,1,9,8,7,6,5,4,3,2}
      for vpos:=1 to 13
          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)
      ok    :=(vbase2==origem)

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.

[Maligno]

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

[Laudelino Scarmagnani]

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

[Maligno]

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

[lucimauro]

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

[Laudelino Scarmagnani]

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.

[sygecom]

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