Validar Inscrição estadual com DLL do Sintegra

[kapiaba]

Pessoas,

http://www.pctoledo.com.br/forum/viewtopic.php?f=43&t=10836

Alguém usa?

Pode comentar?

Obg. abs.

[vagner]

Olá,

Eu uso a alguns anos, sem problema algum, porém eu não peguei esse exemplo do pctoledo, mas creio que deva funcionar sem problemas

[aferra]

Sim, sem problemas.

[Valdir]

Fala Tranka...

Também a uso sem problemas já faz alguns anos.

abração.

[Ariston Santos]

Teste e declaração da DLL:

FUNCTION TestaIncsEst()
   cUF:=SPACE(02) // não pode ter espaços em branco
   cIE:=SPACE(14) // sem ponto, sem barra, sem ifen, sem espaços, somente numero em formato de string
   IF ! MsgGet("UF","UF",@cUF) ; RETURN NIL ; ENDIF
   IF ! MsgGet("IE","IE",@cIE) ; RETURN NIL ; ENDIF
   oSintDll := LoadLibrary(".\DLL32\ie32.dll")
   IF VerificaIE(cIE,cUF) # 0
      MsgAlert("Inscrição Estadual Invalida para o Estado .: " + cUF, "Inválida")
   ELSE
      MsgInfo("Inscrição Estadual válida","Ok")
   ENDIF
   freelibrary(oSintDll)
RETURN NIL

* Testar Inscrição Estadual com a DLL do SINTEGRA
DLL32 FUNCTION VerificaIE( _cIE AS STRING, _cUF AS STRING) AS LONG PASCAL ;
      FROM "ConsisteInscricaoEstadual" LIB ".\DLL32\ie32.dll"