MASHUP FREE de dados da receita em formato DLL

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Mashup FREE em formato de DLL para busca de dados na receita federal. Tudo de forma pratica e fácil conta com exemplo de uso.


Hoje em dia é necessário e notório ter os dados dos clientes e fornecedores sempre atualizados, assim como ganhar agilidade na digitação de dados, agora com a nova nota fiscal eletrônica ela em visando isso cada vez mais onde qualquer erro cometido não é mais aceito ocasionando em multas pesadas que é caro empresa alguma gostaria de tomar.
Pensando nisso desenvolvi uma DLL em Delphi que aplica uma técnica de acesso web com captura de dados acessados, com isso pude obter os dados assim acessados, depois de muita analise pude ver que poderia transformar tais informações em informações dinâmicas e manipuláveis.
O trabalho final é a DLL disponível para fazer download no link abaixo:

http://www.nexusaction.com.br/download/dll_machups.rar

Esta DLL faz uma Mashups no site da receita visando buscar os dados do CNPJ desejado, a varias ideias para uso do Mashups o principal é atualizar os dados do cliente ou até mesmo facilitar no cadastro do cliente onde basta você obter o CNPJ e usar essa DLL que ela ira preencher o restante dos clientes.
Abaixo a um exemplo de como usar essa DLL o mesmo exemplo esta disponível na DLL.

unit umenu;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;
  procedure Pesq_DadosReceita(cpf_cnpj: string;
  var Nome, Logr, Nro,Compl, Bair, Cid, Uf, Cep: string); stdcall;
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure Pesq_DadosReceita(cpf_cnpj: string;
  var Nome, Logr, Nro,Compl, Bair, Cid, Uf, Cep: string);stdcall; external 'dll_mashups.dll';

procedure TForm1.Button1Click(Sender: TObject);
var
  Nome, Logr, Nro,Compl, Bair, Cid, Uf, Cep: string;
begin
  Pesq_DadosReceita(Edit1.Text, nome,
   Logr, Nro,Compl, Bair, Cid, Uf, Cep);
   ShowMessage(Nome+#13+
               Logr+#13+
               Nro+#13+
               Compl+#13+
               Bair+#13+
               Cid+#13+
               Uf+#13+
               Cep);
end;

end
 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?