pcsoft.br.windevCopyright 2026, PC SOFT27 Feb 2015 01:51:52 Z27 Feb 2015 01:51:52 Zhttp://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/ [code:wl] _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 [/code] [code:wl] // 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 [/code]30WEBDEVpt_BRhttps://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/104-funcao-inscricao-estadual/read.awpmoderateur@pcsoft.fr (Le modérateur)webmaster@pcsoft.fr (Le Webmaster)