Configuração mínima para consumo API BB

[Eduardo Flaeschen]

Prezados,
Consultando o exemplo para geração de boletos, existe a rotina abaixo para configuração !
Quais os parâmetros necessários para utilizar apenas as funções com a API do BB - "Banco.TipoCobranca := cobBancoDoBrasilAPI" ?

Obrigado,

procedure TfrmDemoBoleto.AplicarConfiguracoesAoComponente;
var Beneficiario   : TACBrCedente;
    Banco          : TACBrBanco;
    Boleto         : TACBrBoleto;
    WebService     : TACBrWebService;
    BeneficiarioWS : TACBrCedenteWS;
    CobAnterior    : TACBrTipoCobranca;
begin
  Boleto := FACBrBoleto;
  WebService := Boleto.Configuracoes.WebService;

  CobAnterior := Boleto.Banco.TipoCobranca;
  if CobAnterior <> TACBrTipoCobranca(cbxBanco.Items.Objects[cbxBanco.ItemIndex]) then
    edtLocalPag.Text := '';

  //Boleto.ListadeBoletos.Clear;

  Boleto.PrefixArqRemessa                  := edtPrefixRemessa.Text;
  Boleto.LayoutRemessa                     := TACBrLayoutRemessa(cbxCNAB.itemindex);
  Boleto.Configuracoes.WebService.Ambiente := TTipoAmbienteWS(cbbAmbiente.ItemIndex);

  Boleto.ImprimirMensagemPadrao            := ckbImprimirMensagemPadrao.Checked;
  Boleto.LeCedenteRetorno                  := ckbLerCedenteArquivoRetorno.Checked;
  Boleto.LerNossoNumeroCompleto            := ckbLerNossoNumeroCompleto.Checked;
  Boleto.RemoveAcentosArqRemessa           := ckbRemoverAcentuacaoRemessa.Checked;

  Beneficiario   := Boleto.Cedente;
  BeneficiarioWS := Beneficiario.CedenteWS;

  Beneficiario.Agencia                       := edtAgencia.Text;
  Beneficiario.AgenciaDigito                 := edtAgenciaDV.Text;
  Beneficiario.Conta                         := edtConta.Text;
  Beneficiario.ContaDigito                   := edtContaDV.Text;
  Beneficiario.DigitoVerificadorAgenciaConta := edtAgenciaContaDV.Text;
  Beneficiario.Convenio                      := edtConvenio.Text;
  Beneficiario.Modalidade                    := edtModalidade.Text;
  Beneficiario.Operacao                      := edtOperacao.Text;
  Beneficiario.CodigoTransmissao             := edtCodigoTransmissao.Text;
  Beneficiario.CodigoCedente                 := edtCodigoCedente.Text;

  if Length(OnlyNumber(edtBenifCNPJ.Text)) = 14 then
    Beneficiario.TipoInscricao               := pJuridica
  else
    Beneficiario.TipoInscricao               := pFisica;

  Beneficiario.TipoDocumento                 := TACBrTipoDocumento(cbxTipoDocumento.ItemIndex);

  Beneficiario.IdentDistribuicao             := TACBrIdentDistribuicao(cbxTipoDistribuicao.itemIndex);
  Beneficiario.ResponEmissao                 := TACBrResponEmissao(cbxResponsavelEmissao.ItemIndex);
  Beneficiario.PIX.TipoChavePIX              := TACBrPIXTipoChave(cbxTipoChavePix.ItemIndex);
  Beneficiario.PIX.Chave                     := edtChavePix.Text;
  Beneficiario.CaracTitulo                   := TACBrCaracTitulo(cbxCaracteristicaTitulo.itemIndex);
  Beneficiario.TipoCarteira                  := TACBrTipoCarteira(cbxTipoCarteira.itemIndex);

  Beneficiario.CNPJCPF                       := edtBenifCNPJ.Text;
  Beneficiario.Nome                          := edtBenifRazao.Text;
  Beneficiario.FantasiaCedente               := edtBenifFantasia.Text;
  Beneficiario.Logradouro                    := edtBenifEndereco.Text;
  Beneficiario.NumeroRes                     := edtBenifNum.Text;
  Beneficiario.Complemento                   := edtBenifComplemento.Text;
  Beneficiario.Bairro                        := edtBenifBairro.Text;
  Beneficiario.Cidade                        := edtBenifCidade.Text;
  Beneficiario.UF                            := edtBenifUF.Text;
  Beneficiario.CEP                           := edtBenifCEP.Text;
  Beneficiario.Telefone                      := edtBenifTelefone.Text;

  Banco := Boleto.Banco;
  Banco.TipoCobranca        := TACBrTipoCobranca(cbxBanco.Items.Objects[cbxBanco.ItemIndex]);
  Banco.LayoutVersaoArquivo := StrToIntDef(edtCNABLVArquivo.Text,0);
  Banco.LayoutVersaoLote    := StrToIntDef(edtCNABLVLote.Text,0);
  Banco.CIP                 := edtCIP.Text;
  Banco.DensidadeGravacao   := edtDensidadeGravacao.Text;

  if (Banco.LocalPagamento <> edtLocalPag.Text) and (edtLocalPag.Text <> '') then
    Banco.LocalPagamento      := edtLocalPag.Text;

  if edtLocalPag.Text = '' then
    edtLocalPag.Text := Banco.LocalPagamento;

  BeneficiarioWS.ClientID     := edtClientID.Text;
  BeneficiarioWS.ClientSecret := edtClientSecret.Text;
  BeneficiarioWS.KeyUser      := edtKeyUser.Text;
  BeneficiarioWS.Scope        := edtScope.Text;
  BeneficiarioWS.IndicadorPix := chkIndicadorPix.Checked;
  WebService.Ambiente         := TTipoAmbienteWS(cbbAmbiente.ItemIndex);
  WebService.SSLHttpLib       := TSSLHttpLib(cbxSSLLib.ItemIndex);

  WebService.ArquivoCRT := edtArquivoCRT.Text;
  WebService.ArquivoKEY := edtArquivoKey.Text;
  WebService.VersaoDF   := edtVersaoDF.Text;
  WebService.TimeOut    := 60000;

  Boleto.Configuracoes.Arquivos.LogNivel           := TNivelLog(cbbLogNivel.Items.Objects[cbbLogNivel.ItemIndex]);
  Boleto.Configuracoes.Arquivos.PathGravarRegistro := edtPathLog.Text;
  Boleto.Configuracoes.Arquivos.NomeArquivoLog     := edtArquivoLog.Text;

  AplicarConfiguracoesComponenteEmail;

  if Assigned(FACBrBoleto.ACBrBoletoFC) then
    FACBrBoleto.ACBrBoletoFC.DirLogo := edtPathLogoMarca.Text;

  {$IFDEF GERADOR_FAST_REPORT}
    FACBrBoletoFCFR.FastReportFile := edtPathFR3.Text;
    FACBrBoletoFCFR.MostrarPreview := True;
    FACBrBoletoFCFR.MostrarSetup   := True;
  {$ENDIF}
end;
 

[Juliomar Marchetti]

Não está funcionando com essas opções ou ocorreu algo?

 

[Eduardo Flaeschen]

Obrigado Juliomar,
Não fiz testes ainda, estou fazendo a "transcrição" para a minha aplicação e algumas propriedades me parecem ser para a opção CNAB240. Como só vou usar a API, gostaria de "limpar" a rotina

[Juliomar Marchetti]

4 horas atrás, Eduardo Flaeschen disse:

Obrigado Juliomar,
Não fiz testes ainda, estou fazendo a "transcrição" para a minha aplicação e algumas propriedades me parecem ser para a opção CNAB240. Como só vou usar a API, gostaria de "limpar" a rotina

tu pode se basear no exemplo

[Eduardo Flaeschen]

Estou fazendo os testes mas no Exemplo tem a configuração:
...
  Titulo.DataProcessamento := Now;
  Titulo.Carteira          := edtCarteira.Text;
  Titulo.NossoNumero       := edtNossoNro.Text;
  {utilizado na Consulta, Alteração e Baixa da API Inter com QrCode e C6}
  Titulo.NossoNumeroCorrespondente := edtNossoNumeroCorrespondente.Text;
  Titulo.ValorDocumento    := StrToCurr(edtValorDoc.Text);
... 
Mas estou com erro :
HTTP_Result=400
JSON={"erros":[{"codigo":"4432632","versao":"1","mensagem":"Variacao da carteira nao informada.","providencia":"Informe corretamente os campos do boleto.","ocorrencia":"000000000000000000277173"}]}

Não encontrei nenhum campo para a definição da "Variação da carteira" !!!, onde informar ?

[Juliomar Marchetti]

Bom já adianto nunca use NOW. e sim grave em banco para depois passar

https://acbr.sourceforge.io/ACBrLib/Particularidades.html

[Eduardo Flaeschen]

Obrigado por responder, mas acho que não entendeu !!! 

Esse "Now" eu extrai do próprio exemplo do ACBr (uDemoBoleto.pas). O que preciso é saber qual campo da tela de configuração corresponde à esse que está gerando o erro (Variação da carteira) : JSON={"erros":[{"codigo":"4432632","versao":"1","mensagem":"Variacao da carteira nao informada.","providencia":"Informe corretamente os campos do boleto.","ocorrencia":"000000000000000000277173"}]}
 

[Juliomar Marchetti]

2 horas atrás, Eduardo Flaeschen disse:

Obrigado por responder, mas acho que não entendeu !!! 

Esse "Now" eu extrai do próprio exemplo do ACBr (uDemoBoleto.pas). O que preciso é saber qual campo da tela de configuração corresponde à esse que está gerando o erro (Variação da carteira) : JSON={"erros":[{"codigo":"4432632","versao":"1","mensagem":"Variacao da carteira nao informada.","providencia":"Informe corretamente os campos do boleto.","ocorrencia":"000000000000000000277173"}]}
 

olhou o link que passei?

[Eduardo Flaeschen]

Só agora que falou é que percebi o link, pra mim aqui está aparecendo muito apagado e não percebi.
Obrigado, é o campo "Modalidade"

[Eduardo Flaeschen]

Agora já estou conseguindo fazer o registro dos boletos, mas na hora do envio do email, aparece o erro abaixo:

Aproveitando, pode me dar uma dica de como obter o PDF do boleto gerado após a confirmação ?

Editado 23 Outubro, 2025 por Eduardo Flaeschen

[Eduardo Flaeschen]

Uma outra questão: Consegui gerar o PDF do boleto mas apesar das configurações, não foi incluída a logo do banco e o boleto gerado não mostrou o QR-Code do PIX, veja:

RetornoRegistro.txt boleto.pdf