PC Toledo

Código: Selecionar todos

Function Valida_IE
local nRet  // se 0, valido, se diferente de 0, invalido

      nRet := VALIDA_INSCRICAOESTADUAL("623003679119","SP")
      ? "Resposta da DLL: ",iif(nRet==0,"Inscricao valida para SP","Inscricao invalida para SP")

      nRet := VALIDA_INSCRICAOESTADUAL("1018146530","PR")
      ? "Resposta da DLL: ",iif(nRet==0,"Inscricao valida para PR","Inscricao invalida para PR")
return

#pragma BEGINDUMP
#include "windows.h"
#include "hbapi.h"

typedef INT (WINAPI * _CONSISTEINSCRICAOESTADUAL)(
    const char *szInscr_Est,const char *szEstado);

HB_FUNC( VALIDA_INSCRICAOESTADUAL )
{
   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