Fernando Rodrigo

Quais desses campos tenho que informar la no componente ACBrBoleto1.Cedente.CedenteWS.ClientID := 'eyJpZCI6IjdhYjA3YmMtMmVjNS00MGMxIiwiY29kaWdvUHVibGljYWRvciI6MCwiY29kaWdvU29mdHdhcmUiOjExNTA1LCJzZXF1ZW5jaWFsSSW5zd0'; ACBrBoleto1.Cedente.CedenteWS.ClientSecret := 'eyJpZCI6ImJjMzY5ZjEtYTBlZS00MjZmLWFkODUtMzc2MjMzOCIsImNvZGlnb1B1YmxpY2Fkb3IiOjAsImNvZGlnb1NvZnR3YXJlIjoxMTUwNSwic2VxdWVuY2lhbEluc3RhbGFjYW8iOjEsInNlcXVlbmNpYWxDcmVkZW5jaWFsIjoxLCJhbWJpZW50ZSI6ImhvbW9sb2dhY2FvIiwiaWF0IjoxNjAyODgwMzI2Nzg4fQ'; ACBrBoleto1.Cedente.CedenteWS.Scope := 'cobranca.registro-boletos'; ACBrBoleto1.Cedente.CedenteWS.KeyUser := 'jd402299';

vc gerou essas chaves de homologação ou produção, pq o pessoal do banco me passou o link abaixo para fazer o cadastro https://developers-piloto.bb.com.br/#/menu/credenciais

mesmo problema tenho que passar o certificado também ?

@José M. S. Junior fiz igual vc passou so que deu outro erro, coloquei os fontes se vc puder dar uma olhada para ver onde esta o problema, pq as chaves e a chave J estão todas corretas Delphi.zip

Esse erro esta retornando na unit ACBrBoletoW_BancoBrasil..pas function TBoletoW_BancoBrasil.GerarTokenAutenticacao:String; begin result:= ''; if Assigned(OAuth) then begin if OAuth.GerarToken then result := OAuth.Token else raise EACBrBoletoWSException.Create(ClassName + Format( S_ERRO_GERAR_TOKEN_AUTENTICACAO, [OAuth.ErroComunicacao] )); end; end; Essa função acima que faz a validação do token, esta na unit ACBrBoletoWS.pas o token esta chegando sempre em branco, onde tenho que preencher ele ? function TOAuth.GerarToken: Boolean; begin if ( Token <> '' ) and ( CompareDateTime( Expire, Now ) = 1 ) then //Token ja gerado e ainda válido Result := True else //Converte Basic da Autenticação em Base64 Result := Executar( 'Basic ' + String(EncodeBase64(AnsiString(FClientID + ':' + FClientSecret))) ); end;

agora com esse tratamento que vc fez @Renato Rubinhoda para saber onde é o problema

O que tem de errado no que estou fazendo, a hora que tento enviar da erro abaixo, não gera log não gera nada ACBrBoleto1.Cedente.CedenteWS.ClientID := 'eyJpZCI6IjdhYjA3YmMtMmVjNS00MGMxIiwiY29kaWdvUHVibGljYWRvciI6MCwiY29kaWdvU29mdHdhcmUiOjExNTA1LCJzZXF1ZW5jaWFsSW5zdGFsYWNhbyI6MX0'; ACBrBoleto1.Cedente.CedenteWS.ClientSecret := 'eyJpZCI6ImJjMzY5ZjEtYTBlZS00MjZmLWFkODUtMzc2MjMzOCIsImNvZGlnb1B1YmxpY2Fkb3IiOjAsImNvZGlnb1NvZnR3YXJlIjoxMTUwNSwic2VxdWVuY2lhbEluc3RhbGFjYW8iOjEsInNlcXVlbmNpYWxDcmVkZW5jaWFsIjoxLCJhbWJpZW50ZSI6ImhvbW9sb2dhY2FvIiwiaWF0IjoxNjAyODgwMzI2Nzg4fQ'; ACBrBoleto1.Cedente.CedenteWS.Scope := 'cobranca.registro-boletos'; ACBrBoleto1.Cedente.CedenteWS.KeyUser := 'xxxxxxxx'; With ACBrBoleto1.CriarTituloNaLista do begin With ACBrBoleto1.Cedente do begin {Dados do cedente - Loja} CodigoTransmissao := '11'; TipoInscricao := pJuridica; {CNPJ} CNPJCPF := '34954837000191'; Nome :='RMP AUTO PECAS LTDA'; CodigoCedente := '55395'; Convenio := '3210690'; Modalidade := '19'; // Variação Carteira := '17'; Logradouro :='AV. CONSOLACAO N 835'; NumeroRes := ''; Complemento := ''; Bairro := 'CIDADE JARDIM'; Cidade := 'GOIANIA'; UF := 'GO'; CEP := '74425535'; Agencia :='1840'; AgenciaDigito := '6'; Conta :='64516'; ContaDigito := '8'; ResponEmissao := tbCliEmite; TipoCarteira := tctRegistrada; end; LocalPagamento := 'Pagar em qualquer banco'; //MEnsagem exigida pelo bradesco Vencimento := IncMonth(EncodeDate(2020,12,10),I); DataDocumento := EncodeDate(2020,10,15); NumeroDocumento := PadRight(IntToStr(I),8,'0'); EspecieDoc := '2'; Aceite := atSim; DataProcessamento := Now; NossoNumero := IntToStrZero(I,8); SeuNumero := IntToStrZero(I,8); ACBrBoleto1.Banco.TamanhoMaximoNossoNum := Length(NossoNumero); ValorDocumento := 100.35 * (I+0.5); Sacado.NomeSacado := 'FERNANDO RODRIGO DE JESUS'; Sacado.CNPJCPF := '47854871191'; Sacado.Logradouro := 'AV. PIO XII'; Sacado.Numero := '618'; Sacado.Bairro := 'CIDADE JARDIM'; Sacado.Cidade := 'GOIANIA'; Sacado.UF := 'GO'; Sacado.CEP := '74425010'; ValorAbatimento := 10; ValorMoraJuros := 0.05; DataAbatimento := Vencimento-5; Instrucao1 := '00'; Instrucao2 := '00'; with ACBrBoleto1.Banco do begin TipoCobranca := cobBancoDoBrasil; Carteira := '17'; end; end;

não poderia colocar essas conversões direto no fonte ?

deu certo pessoal, muito obrigado

estou configurando uma conta no gmail e só retorna o erro abaixo, ja alterei as configurações abaixo mas continua o mesmo erro, o que poderia ser

não sei qual é a versão que foi criado o arquivo fr3 do boleto pq peguei no demo do acbr o Fast Report que uso é o abaixo

peguei os arquivos na pasta do boleto e fiz a alteração

qualquer alteração que fizer ele sai em branco, se vc pegar o codigo de barras e alterar 1 cm do que esta ele ja imprime em branco

queria colocar a logomarca da empresa no boleto

fiz uma alteração no layout do boleto, so que quando vou fazer a impressão ele imprime em branco o boleto se não fizer nenhuma alteração ele imprime normal, conforme as imagens abaixo, alguem ja passou por esse problema ?

o pessoal do banco pediu o json de envio, so que não sei onde pego ele

na unit ACBrBoletoW_BancoBrasil linha 287 o campo abaixo acho que esta com o nome errado pq o retorno do banco esta dizendo um campo e na unit esta passando outra Gerador.wCampo(tcStr, '#33', PrefixTag('textoEnderecoPagador' ), 00, 60, 1, Sacado.Logradouro, DSC_LOGRADOURO); No retorno do banco <ns0:nomeLogradouroBeneficiario>Cliente nao localizado ou sem enderecos validos. </ns0:nomeLogradouroBeneficiario> Estou passando normal os campos Sacado.NomeSacado := 'FERNANDO RODRIGO DE JESUS'; Sacado.CNPJCPF := '47854871191'; Sacado.Logradouro := 'AV. PIO XII'; Sacado.Numero := '618'; Sacado.Bairro := 'CIDADE JARDIM'; Sacado.Cidade := 'GOIANIA'; Sacado.UF := 'GO'; Sacado.CEP := '74425010'; Gerador.wCampo(tcStr, '#31', PrefixTag('numeroInscricaoPagador' ), 00, 15, 1, OnlyNumber(Sacado.CNPJCPF), DSC_NOME_SACADO); Gerador.wCampo(tcStr, '#32', PrefixTag('nomePagador' ), 00, 60, 1, Sacado.NomeSacado, DSC_NOME_SACADO); Gerador.wCampo(tcStr, '#33', PrefixTag('textoEnderecoPagador' ), 00, 60, 1, Sacado.Logradouro, DSC_LOGRADOURO); Gerador.wCampo(tcStr, '#34', PrefixTag('numeroCepPagador' ), 00, 08, 1, Sacado.Cep, DSC_CEP); Gerador.wCampo(tcStr, '#35', PrefixTag('nomeMunicipioPagador' ), 00, 20, 1, Sacado.Cidade, DSC_CIDADE); Gerador.wCampo(tcStr, '#36', PrefixTag('nomeBairroPagador' ), 00, 20, 1, Sacado.Bairro, DSC_BAIRRO); Gerador.wCampo(tcStr, '#37', PrefixTag('siglaUfPagador' ), 00, 02, 1, Sacado.UF, DSC_UF); Gerador.wCampo(tcStr, '#38', PrefixTag('textoNumeroTelefonePagador' ), 00, 12, 1, Sacado.Fone, DSC_FONE);

tem alguns campos que não estão gerando10000000-retorno_registro.xml10000000-registro_boleto.xml Estou passando normal os campos , so que não esta sendo gerado no xml Sacado.NomeSacado := 'FERNANDO RODRIGO DE JESUS'; Sacado.CNPJCPF := '47854871191'; Sacado.Logradouro := 'AV. PIO XII'; Sacado.Numero := '618'; Sacado.Bairro := 'CIDADE JARDIM'; Sacado.Cidade := 'GOIANIA'; Sacado.UF := 'GO'; Sacado.CEP := '74425010'; Veja o retorno do erro <ns0:nomeLogradouroBeneficiario>Cliente nao localizado ou sem enderecos validos.

como faço para pegar esse retorno na função ProcessarRespostaOAuth

-registro_boleto.xml10000000-registro_boleto.xml Só é gerado 2 arquivos em anexo, eu falei com outro programador em java ele disse que é gerado um json para enviar para o banco, so que no acbr so gera xml

como faço para pegar o json gerado no envio

eu peguei a chave J com o cliente e mesmo assim continua o erro, estranho pq no DEMO com os dados de testes roda normal, gera o log e alguns arquivos xml, mas se colocar as minhas credenciais que foi cadatrado na api do banco não roda da erro

esse campo ACBrBoleto1.Cedente.CedenteWS.KeyUser onde consigo ele pq no site do banco so tem 3 campos developer_application_key Credenciais OAuth client_id client_secret Quando uso as credenciais conforme arquivo de teste passa normal, mas quando coloco minhas credenciais da o erro acima

fiz conforme o arquivo configWebService.txt e não passa de jeito nenhum, da erro no envio e não gera nenhum log para ver o que é

passei como pNenhum e deu certo, valeu