Validar Inscricao Estadual

[angelomarco]

Bom dia, alguem por favor pode me ajudar com a validacao de inscricao estadual?

[m@r<3|o]

No Valid dos digitos RG IE

Código:

if thisformset.form3.txtclie_pfpj.value = "J"
  Declare Integer ConsisteInscricaoEstadual In DllInscE32.DLL String, String
  IF NOT PROINSC(THIS.Value,This.Parent.CmbClie_Est.Value)
        = MESSAGEBOX('INSCRIÇÃO ESTADUAL INVÁLIDA !', 48, 'Atenção')
        RETURN .F.
    ENDIF
RETURN
endif

PRG de Funcoes

FUNCTION PROINSC
Parameters IE, UF

** "limpar" a inscrição estadual para a verificação
IE = STRTRAN(IE,'.','')
IE = STRTRAN(IE,'-','')
IE = STRTRAN(IE,'/','')
IE = STRTRAN(IE,',','')
IE = STRTRAN(IE,'ME','')
IE = STRTRAN(IE,' ','')
IE = STRTRAN(IE,'P','')
IE = ALLTRIM(IE)
Return ConsisteInscricaoEstadual(IE, UF)=0

Necessario utlizar a DLL DllInscE32.DLL e
regsvr32.exe DllInscE32.DLL

[angelomarco]

Marcelo, muito agradecido pela resposta.