DllInscE32.dll

[kapiaba]

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

[vinhesoft]

http://www.sintegra.gov.br/dll3.zip

 

Att
Joao Carlos
VinheSoft

[kapiaba]

Obg. Desde 2011 não houve nenhuma alteração João Carlos? Abs.

[vinhesoft]

Esta eh a ultima atualizacao.
direto do site o www.sintegra.gov.br

 

Att

Joao Carlos
VinheSoft