Ir para conteúdo
  • Cadastre-se

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

Recommended Posts

  • Consultores
Postado

gera o log e anexa?

está em produção ou homologação?

 

Consultora ACBr Pro

Juliomar Marchetti

Ajude o Projeto ACBr crescer - Seja Pro

discord: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br

 

MVP_NewLogo_100x100_Transparent-02.png
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

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
  • Consultores
Postado

legal. tu viu que para homologação tu tem que usar os dados deles lá do site da API?
tu não consegue informar dados seus, eles lhe informa dados ficticios que são obrigatorios

 

Consultora ACBr Pro

Juliomar Marchetti

Ajude o Projeto ACBr crescer - Seja Pro

discord: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br

 

MVP_NewLogo_100x100_Transparent-02.png
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

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

  • Consultores
Postado

muito prova´vel mas dai é comparar com a documentação do BB

 

Consultora ACBr Pro

Juliomar Marchetti

Ajude o Projeto ACBr crescer - Seja Pro

discord: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br

 

MVP_NewLogo_100x100_Transparent-02.png
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

  • Este tópico foi criado há 510 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.