estou criando essa rotina pra pegar os dados do cnpj digitado, mas esta retornando o seguinte erro:
metodo "enviar" não implementado em: TDFeSSLHttpClass.
alguem pode me ajudar?
class function TFuncoesCommon.PegarDadosReceita(sCbpjCpf, sUF: String)
: TDadosReceita;
var
cACBrNFe: TACBrNFe;
DadosReceita: TDadosReceita;
begin
try
DadosReceita := TDadosReceita.Create;
cACBrNFe := TACBrNFe.Create(nil);
cACBrNFe.Configuracoes.Certificados.VerificarValidade := false;
cACBrNFe.Configuracoes.Certificados.NumeroSerie :=
TObjArquivoIni.GetInstance.NumSerie;
cACBrNFe.Configuracoes.WebServices.UF := TRegistro.GetInstance.UF;
if Length(sCbpjCpf) > 11 then
cACBrNFe.WebServices.ConsultaCadastro.CNPJ := sCbpjCpf
else
cACBrNFe.WebServices.ConsultaCadastro.CPF := sCbpjCpf;
try
cACBrNFe.WebServices.ConsultaCadastro.UF := sUF;
cACBrNFe.WebServices.ConsultaCadastro.Executar;
try
DadosReceita.Razao := cACBrNFe.WebServices.ConsultaCadastro.RetConsCad.
InfCad.Items[0].xNome;
DadosReceita.FInicioAtividade :=
cACBrNFe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items
[0].dIniAtiv;
DadosReceita.InscricaoEstadual :=
cACBrNFe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].IE;
DadosReceita.Regime := cACBrNFe.WebServices.ConsultaCadastro.RetConsCad.
InfCad.Items[0].xRegApur;
DadosReceita.Situacao := cACBrNFe.WebServices.ConsultaCadastro.
RetConsCad.InfCad.Items[0].cSit;
DadosReceita.Cnae := cACBrNFe.WebServices.ConsultaCadastro.RetConsCad.
InfCad.Items[0].Cnae;
DadosReceita.Cep := cACBrNFe.WebServices.ConsultaCadastro.RetConsCad.
InfCad.Items[0].Cep;
DadosReceita.Logradouro := cACBrNFe.WebServices.ConsultaCadastro.
RetConsCad.InfCad.Items[0].xLgr;
DadosReceita.Numero := cACBrNFe.WebServices.ConsultaCadastro.RetConsCad.
InfCad.Items[0].nro;
DadosReceita.Complemento := cACBrNFe.WebServices.ConsultaCadastro.
RetConsCad.InfCad.Items[0].xCpl;
DadosReceita.Bairro := cACBrNFe.WebServices.ConsultaCadastro.RetConsCad.
InfCad.Items[0].xBairro;
DadosReceita.CodigoCidade := cACBrNFe.WebServices.ConsultaCadastro.
RetConsCad.InfCad.Items[0].cMun;
DadosReceita.NomeCidade := cACBrNFe.WebServices.ConsultaCadastro.
RetConsCad.InfCad.Items[0].xMun;
DadosReceita.UF := cACBrNFe.WebServices.ConsultaCadastro.RetConsCad.
InfCad.Items[0].UF;
finally
Result := DadosReceita;
end;
except
on E: Exception do
begin
Result := nil;
TObjExcept.ErroToFile(Self.ClassName, E.Message);
end;
end;
finally
DadosReceita.Free;
end;
end;
