Windev - Matos Funcao - Inscricao Estadual

VIDEO - FUNCAO - INSCRICAO ESTADUAL

http://www.sintegra.gov.br/

--------------------------------------------------------------------------------------------------------------------
 _retorno is int
_observacao is string
(_retorno,_observacao) = matos_f_inscricao_estadual_validar(EDT_inscricao,EDT_uf)
IF _retorno=0 THEN // Valido
    STC_resultado=_observacao
ELSE
    STC_resultado=_observacao
END

--------------------------------------------------------------------------------------------------------------------
 PROCEDURE matos_f_inscricao_estadual_validar(s_inscricao_estadual is string,s_uf is string)
_retorno_inscricao is string
_retorno is string
_retorno_inscricao =  CallDLL32("DllInscE32", "ConsisteInscricaoEstadual", s_inscricao_estadual , s_uf)
_retorno=ErrorInfo()

IF _retorno = ""     THEN  
    IF _retorno_inscricao = 0 THEN      
        RESULT (0,"Inscrição Estadual válida")
    ELSE IF  _retorno_inscricao = 1 THEN        
        RESULT (1,"Inscrição Estadual Inválida")
    ELSE IF  _retorno_inscricao = 2 THEN        
        RESULT (2,"Faltam parâmetros")
    END  
ELSE   
    RESULT (3,"Erro durante chamada do DllInscE32 - " + _retorno)
END

--------------------------------------------------------------------------------------------------------------------