_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

// Summary: <specify the procedure action>
// Syntax:
//[ <Result> = ] matos_f_inscricao_estadual_validar (<s_inscricao_estadual> is string, <s_uf> is string)
//
// Parameters:
//s_inscricao_estadual (ANSI string): <specify the role of s_inscricao_estadual>
//s_uf (ANSI string): <specify the role of s_uf>
// Return Value:
// multi-value: // None
//
// For instance:
// Indicate an example.
//-------------------------------------------
//_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