Ir para conteúdo
  • Cadastre-se

dev botao

Recommended Posts

Postado (editado)

Segue também os dados alimentados no componente do acbr, criei a classe com esses campos, usando o ambiente de homologação. Gerei as chaves no portal de developers do BB também, usei o cnpj de testes e contas citados na doc

 Result := TACBrBoleto.Create(Nil); 

  Result.Homologacao         := True;

  Result.Cedente.CNPJCPF     := '74910037000193';//TUtilStr.ApenasNumerosStr(LDataSet.FieldByName('emp_cnpj').AsString);
  Result.Cedente.Nome        := 'TECIDOS FARIA DUARTE';//LDataSet.FieldByName('emp_nome').AsString;
  Result.Cedente.FantasiaCedente := 'TECIDOS FARIA DUARTE';//LDataSet.FieldByName('emp_nomefant').AsString;
  Result.Cedente.Logradouro  := LDataSet.FieldByName('emp_endereco').AsString;
  Result.Cedente.NumeroRes   := LDataSet.FieldByName('emp_numero').AsString;
  Result.Cedente.Bairro      := LDataSet.FieldByName('emp_bairro').AsString;
  Result.Cedente.Cidade      := LDataSet.FieldByName('emp_cidade').AsString;
  Result.Cedente.UF          := LDataSet.FieldByName('emp_estado').AsString;
  Result.Cedente.CEP         := LDataSet.FieldByName('emp_cep').AsString;
  Result.Cedente.Telefone    := LDataSet.FieldByName('emp_fone').AsString;

  Result.Cedente.Agencia       := LDataSet.FieldByName('cont_num_agencia').AsString;
  Result.Cedente.AgenciaDigito := LDataSet.FieldByName('cont_digito_agencia').AsString;
  Result.Cedente.Conta         := LDataSet.FieldByName('cont_num_conta').AsString;
  Result.Cedente.ContaDigito   := LDataSet.FieldByName('cont_digito_conta').AsString;
  Result.Cedente.CodigoCedente := LDataSet.FieldByName('cont_cod_cedente').AsString;// + LDataSet.FieldByName('cont_digito_cedente').AsString;
  Result.Cedente.Modalidade    := LDataSet.FieldByName('cont_boleto_variacao_convenio').AsString; //BB 35
  Result.Cedente.CodigoTransmissao := LDataSet.FieldByName('cont_boleto_cod_transmissao').AsString;;
  Result.Cedente.Convenio      := LDataSet.FieldByName('cont_boleto_convenio').AsString;

  Result.Cedente.TipoDocumento := TACBrTipoDocumento(1);
  Result.Cedente.IdentDistribuicao := tbClienteDistribui;
  Result.Cedente.CaracTitulo   := tcSimples;
  Result.Cedente.ResponEmissao := TACBrResponEmissao(LDataSet.FieldByName('cont_boleto_tipo_emissao').AsInteger);
  Result.Cedente.TipoCarteira  := TACBrTipoCarteira(LDataSet.FieldByName('cont_boleto_tipo_registro').AsInteger);
  Result.Cedente.TipoInscricao := pJuridica;

 

  Result.Cedente.PIX.Chave              := '74910037000193';
  Result.Cedente.PIX.TipoChavePIX       := tchCNPJ;
  Result.Cedente.CedenteWS.ClientID     := LDataSet.FieldByName('cont_boleto_client_id').AsString;
  Result.Cedente.CedenteWS.ClientSecret := LDataSet.FieldByName('cont_boleto_client_secret').AsString;
  Result.Cedente.CedenteWS.KeyUser      := LDataSet.FieldByName('cont_boleto_api_key').AsString;
  Result.Cedente.CedenteWS.IndicadorPix := True;
  Result.Cedente.CedenteWS.Scope        := LDataSet.FieldByName('cont_boleto_scope').AsString;



  Result.Banco.TipoCobranca   := cobBancoDoBrasilAPI;
  Result.Banco.Numero        := 1;
  Result.Banco.Nome           := 'Banco do Brasil';
  Result.Banco.LocalPagamento := LDataSet.FieldByName('cont_boleto_local_pagto').AsString;
  Result.Banco.CasasDecimaisMoraJuros := 2;

  Result.Configuracoes.Arquivos.LogNivel       := logCompleto;
  Result.Configuracoes.Arquivos.PathGravarRegistro := AppPath;
  Result.Configuracoes.Arquivos.NomeArquivoLog := 'Log_Boleto.txt';

  Result.Configuracoes.WebService.Ambiente   := taHomologacao;
  Result.Configuracoes.WebService.SSLHttpLib := httpOpenSSL;
  Result.Configuracoes.WebService.SSLType    := LT_TLSv1_2;
  Result.Configuracoes.WebService.TimeOut    := 30000;
  Result.Configuracoes.WebService.UseCertificateHTTP := False;
  Result.Configuracoes.WebService.VersaoDF   := '1.2';

Log_Boleto.txt

Editado por Geovani Boton
Postado

Sim, esse cnpj "TECIDOS FARIA DUARTE" que está nos dados do print são deles, informações como conta, nosso número etc.... também peguei todos de lá da documentação, como estão salvos no meu CRUD do BD como mandei acima não são visíveis. Por isso a dúvida se é algum campo que preenchi errado mesmo

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...