Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 169 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

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

  • Este tópico foi criado há 169 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

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.