Fernando Rodrigo

ja faço dessa forma, mas continua o mesmo problema

mesmo jeito fazendo a alteração ACBrBoleto.Cedente.CaracTitulo := tcSimplesRapComReg; // Simples com Registro ACBrBoleto.Cedente.TipoCarteira := tctRegistrada;

ainda não, talvez alguem ja passou por isso e ja tenha alterado a unit

veja esse outro print, esta setado certo tcSimplesRapComReg mas ele so passa no tcSimples no primeiro registro, a partir do segundo ele passa normal

vejam como fica, o primeiro registro sempre passa na linha tcSimples Dai os proximos registros gera normal

estou homologando cnab 240 do santander com carteira simples tenho 5 títulos para enviar, com cobrança simples (Rápida com registro), conforme layout abaixo Nota 5: TIPO DE COBRANÇA REMESSA: '1' = Cobrança Simples (Sem Registro e Eletrônica com Registro) '3' = Cobrança Caucionada (Eletrônica com Registro e Convencional com Registro) ‘4’ = Cobrança Descontada (Eletrônica com Registro) '5' = Cobrança Simples (Rápida com Registro) ‘6’ = Cobrança Caucionada (Rápida com Registro) Estou configurando da seguinte forma os títulos ACBrBoleto.Cedente.CaracTitulo := tcSimplesRapComReg; Todos os 5 títulos estão passando na rotina normal, so que na unit (ACBrBancoSantander.pas) para validar o tipo de cobrança, o primeiro título sempre entra como tcSimples, sendo que passei padrão como tcSimplesRapComReg, o restante dos títulos vai como tcSimplesRapComReg function TACBrBancoSantander.DefineCaracTitulo(const ACBrTitulo: TACBrTitulo): String; begin with ACBrTitulo do begin case CaracTitulo of tcSimples : Result := '1'; {Cobrança Simples (Sem Registro e Eletrônica com Registro)} tcCaucionada : Result := '3'; {Cobrança Caucionada (Eletrônica com Registro e Convencional com Registro)} tcDescontada : Result := '4'; {Cobrança Descontada (Eletrônica com Registro)} tcVinculada, tcDireta, tcSimplesRapComReg : Result := '5'; {Cobrança Simples (Rápida com Registro)} tcCaucionadaRapComReg: Result := '6'; {Cobrança Caucionada (Rápida com Registro)} { TODO : 8 = Cobranca Cessao (Eletronica com Registro) } else Result := '1'; end; end; end;

bom dia, como irei informar o codigo 5 A opção ACBrBoleto.Cedente.TipoCarteira := tcSimplesRapComReg; não tem no componente, ja atualizei e compilei tudo novamente e da erro [Error] Gera_Arquivo_Banco.pas(1742): E2010 Incompatible types: 'TACBrTipoCarteira' and 'TACBrCaracTitulo' Nota 5: TIPO DE COBRANÇA REMESSA: '1' = Cobrança Simples (Sem Registro e Eletrônica com Registro) '3' = Cobrança Caucionada (Eletrônica com Registro e Convencional com Registro) „4‟ = Cobrança Descontada (Eletrônica com Registro) '5' = Cobrança Simples (Rápida com Registro) „6‟ = Cobrança Caucionada (Rápida com Registro)

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.