rozivaldo

com a sua dica consegui solucionar, obrigado.

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

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;