[Resolvido] Validação de IE

[marcio.theis 3]

A receita federal disponibiliza a DLL DllInscE32 para efetuar a validação da IE, segue código para usar com a DLL:

 

Declare logo abaixo do type

 

TValidaIE  = function (const IE, UF: String): Integer; stdcall;

Segue a função:

 

function TForm1.ValidarIE(IE, uf: string): boolean;var   ret: boolean;   Handle: THandle;   valida: TValidaIE;begin{	Efetua a validação da IE		IE = n° da IE		UF = Sigla do Estado}ret:=False;Handle:=LoadLibrary('DllInscE32.Dll');if Handle <> 0 then	begin	@valida:=GetProcAddress(Handle, 'ConsisteInscricaoEstadual');	if @valida <> nil then		begin		if valida(IE, uf) = 0 then			ret:=True;		end	else		Application.MessageBox('Dll não carregada !','IE',MB_OK or MB_APPLMODAL or MB_ICONWARNING);	FreeLibrary(Handle);	endelse	Application.MessageBox('Não foi encontrada a dll !','IE',MB_OK or MB_APPLMODAL or MB_ICONWARNING);ValidarIE:=ret;end;

Basta passar o n° da IE e a sigla do estado, sendo que a IE deve de ser informado somente os números...

Para quem precisar da DLL pode-se baixar aqui.

Pequeno exemplo aqui.

A DLL pode ficar na mesma pasta onde estiver o .exe