PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → WD - Função Inscricao Estadual
WD - Função Inscricao Estadual
Iniciado por amarildo, fev., 27 2015 1:51 AM - Sem resposta
Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em fevereiro, 27 2015 - 1:51 AM
http://windevdesenvolvimento.blogspot.com.br/2015/02/widnev-matos-funcao-inscricao-estadual.html

Fiz um video que mostra como pegar a dll do sintegra e validar a 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


// 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