INCRICAO ESTADUAL
Eu estou precisando aqui pra empresa alguma forma para validar a consistência da inscrição estadual do fornecedor, para todos os estados.
Procurei aqui no vbmania e achei um codigo pronto, que todos disseram que era perfeito e etc, mas pra mim nao deu certo. Ele informou alguns como inválidos, fui verificar no site do sintegra, e me retornou válido.
entao achei no site do sintegra ( link: Sintegra ) a DLL que eles mesmo usam para verificar... Porém, o código exemplo esta em Delphi (eeu nao tenho nenhuma noção mÃÂÂnima), e ao tentar "tranformar" o codigo em VB, ele so retorna 1, o que seria todos os meus fornecedores invalidos ¬¬
seria algum tipo de variavel que nao tem no VB? qualquer coisa eu passo o codigo aqui para voces analizarem. como anexo fica o arquivo que vem junto no pacote da DLL, explicando como usar e etc.
aguardo pacientemente ajuda
Procurei aqui no vbmania e achei um codigo pronto, que todos disseram que era perfeito e etc, mas pra mim nao deu certo. Ele informou alguns como inválidos, fui verificar no site do sintegra, e me retornou válido.
entao achei no site do sintegra ( link: Sintegra ) a DLL que eles mesmo usam para verificar... Porém, o código exemplo esta em Delphi (eeu nao tenho nenhuma noção mÃÂÂnima), e ao tentar "tranformar" o codigo em VB, ele so retorna 1, o que seria todos os meus fornecedores invalidos ¬¬
seria algum tipo de variavel que nao tem no VB? qualquer coisa eu passo o codigo aqui para voces analizarem. como anexo fica o arquivo que vem junto no pacote da DLL, explicando como usar e etc.
aguardo pacientemente ajuda
cara se tu der uma lida nesse arquivo tu veras que ja esta sendo informado os procedimento para vc declarar a variavel e como chamar a função
entao, em delphi seria feito assim:
so que eu nao sei, por exemplo, o que seria o const, e varias outras coisas. Tentei adaptar de varias formas, o Insc como integer, double, long, string mas nada serve
seria mais ou menos assim?
Citação:TConsisteInscricaoEstadual = function (const Insc, UF: String): Integer; stdcall;
so que eu nao sei, por exemplo, o que seria o const, e varias outras coisas. Tentei adaptar de varias formas, o Insc como integer, double, long, string mas nada serve
seria mais ou menos assim?
Citação:Private Declare Function ConsisteInscricaoEstadual Lib "DllInscE32.dll" (ByRef Insc As String, ByRef UF As String) As Long
ah, e quando eu tento alterar para ByVal, o VB trava
mas pq mudar para byval
insc é uma string
uf tb é uma string
insc é uma string
uf tb é uma string
Pega ai no link abaixo o exemplo feito em vb.
www.ipage.com.br/diogenes/Inscr_VB.zip
That's All
www.ipage.com.br/diogenes/Inscr_VB.zip
That's All
caaaara eu quero me matar
simples, foi so trocar as delcaracoes para um modulo
estava no form, pois eu fiz rapido para testar se vale a pena usar...
aksopaksopas pode rir [S20][S70][S69]
simples, foi so trocar as delcaracoes para um modulo
estava no form, pois eu fiz rapido para testar se vale a pena usar...
aksopaksopas pode rir [S20][S70][S69]
Tópico encerrado , respostas não são mais permitidas