erro na consulta de dados com acbrnfe

[rozivaldo]

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;
 

[BigWings]

3 minutos atrás, rozivaldo disse:

metodo "enviar" não implementado em: TDFeSSLHttpClass.

Faltou configurar as propriedades SSLLib.

[rozivaldo]

3 minutos atrás, BigWings disse:

Faltou configurar as propriedades SSLLib.

como seria essa configuração, poderia me ajudar?

[rozivaldo]

7 minutos atrás, rozivaldo disse:

como seria essa configuração, poderia me ajudar?

com a sua dica consegui solucionar, obrigado.

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.