GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
Inicio
→
WINDEV 25
→
WD - Função Inscricao Estadual
WD - Função Inscricao Estadual
Iniciado por amarildo, fev., 27 2015 1:51 AM - Sem resposta
Conecte-se…
amarildo
#1
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
Denunciar
1
0
→ Voltar para WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Tipo de Pesquisa
Apenas tópicos
Todas as mensagens
Período de pesquisa
Qualquer momento
Última hora
Últimas 24 horas
Semana passada
Mês passado
Ano passado
Cancelar
Pré-visualização da sua mensagem
Adicionar imagem
Importar uma imagem de uma URL
Enviar uma imagem a partir do seu disco
Deixe um ficheiro ou clique em "Procurar ..."
ou
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto