kapiaba Posted July 31, 2017 Report Share Posted July 31, 2017 Bom dia. Alguém tem a DllInscE32.dll atualizada? // simples exemplo demostrado por Reinaldo Henrique // em 05/05/2008 //-----------------------------------------------------// procedure main() local nResposta // se 0, valido, se diferente de 0, invalido setmode(25,80) nResposta := ConsisteInscricaoEstadual("623003679119","SP") ? "Resposta da DLL: ",iif(nResposta==0,; "Inscricao valida para SP","Inscricao invalida para SP") nResposta := ConsisteInscricaoEstadual("1018146530","PR") ? "Resposta da DLL: ",iif(nResposta==0,; "Inscricao valida para PR","Inscricao invalida para PR") wait return //------------------------------------------------------// // by Reinaldo Henrique // wrapper para xHarbour // em: 05/05/2008 #pragma BEGINDUMP #include "windows.h" #include "hbapi.h" typedef INT (WINAPI * _CONSISTEINSCRICAOESTADUAL)( const char *szInscr_Est,const char *szEstado); HB_FUNC( CONSISTEINSCRICAOESTADUAL ) { HINSTANCE handle = LoadLibrary( "DllIns~1.Dll" ); if ( handle ) { const char *szInscr_Est = hb_parcx(1); const char *szEstado = hb_parcx(2); _CONSISTEINSCRICAOESTADUAL pFunc; pFunc = ( _CONSISTEINSCRICAOESTADUAL ) GetProcAddress( handle, "ConsisteInscricaoEstadual"); hb_retni( pFunc( szInscr_Est,szEstado )); FreeLibrary( handle ); } } #pragma ENDDUMP Quote Link to comment Share on other sites More sharing options...
vinhesoft Posted July 31, 2017 Report Share Posted July 31, 2017 http://www.sintegra.gov.br/dll3.zip Att Joao Carlos VinheSoft kapiaba 1 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 31, 2017 Author Report Share Posted July 31, 2017 Obg. Desde 2011 não houve nenhuma alteração João Carlos? Abs. Quote Link to comment Share on other sites More sharing options...
vinhesoft Posted July 31, 2017 Report Share Posted July 31, 2017 Esta eh a ultima atualizacao. direto do site o www.sintegra.gov.br Att Joao Carlos VinheSoft Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.