Alteração mensagem padrão data limite pagamento Registro Boleto Online BB

[rlind]

Favor subir no SVN , alteração de tratamento dos acentos  na mensagem para evitar rejeição Boleto Online BB.

 

ACBrBoleto.pas :

function TACBrBoleto.GerarMensagemPadraoDataLimitePagamento(
  ATitulo: TACBrTitulo): String;
begin
  if ATitulo.DataLimitePagto > ATitulo.Vencimento then
    Result:= ACBrStr('Não Receber após ' + IntToStr(DaysBetween(ATitulo.Vencimento, ATitulo.DataLimitePagto))+ ' dias')
  else
    Result := ACBrStr('Não Receber após o Vencimento');
end;

[Alexandre de Paula]

Bom dia @rlind.

Em primeiro lugar agradecemos a contribuição.
Porém para um melhor controle e registro das alterações e de nossas atividades pedimos que você anexe o arquivo alterado aqui no fórum, ao invés de colocar o código sem indicar a posição que foi alterado, assim fica mais fácil de avaliar e analisar seus impactos.

Obrigado!
 

[rlind]

Esta certo.

bem chato isso, deveria ter um tratamento no app do BB para isso.

estou anexando para análise.

function GerarMensagemPadraoDataLimitePagamento  
  string => 'Nao Receber apos' retirado o acento  

function GerarMensagemPadraoJuros
 string => 'R #,##0.00 por dia' retirado $
 string => 'apos o vencimento' retirado o acento 

 

ACBrBoleto.pas

Obrigado amigo

[Alexandre de Paula]

Novamente obrigado pela contribuição. Vamos ver alguns pontos.

1 - O arquivo que você está apresentando faz parte do "core" da emissão de boletos. Uma alteração nele refletiria em todos os bancos com CNAB, API etc... 
2 - A implementação do boleto online do BB foi uma das primeiras a serem realizadas e temos uma grande quantidade de clientes utilizando sem apresentar erros até o momento.
3 - Talvez seja mais interessante antes de aplicarmos alguma modificação fazer alguns testes. Você consegue obter o mesmo problema que gerou a sua necessidade de alteração usando a aplicação de exemplo do ACBr? Em caso afirmativo compartilhe conosco a operação para que possamos simular aqui também!

Obrigado mais uma vez!

[rlind]

Ok. vou testar no exemplo do acbr

[rlind]

Boa Tarde.

fiz pelo exemplo do Acbr e gera o boleto online sem problemas no webservice, depois de tirar o comentario que estava no comando : dm.ACBrBoleto.AdicionarMensagensPadroes(Titulo,Mensagem)

e esta gerando sem problemas pela seguinte razão :

ao executar TBoletoW_BancoBrasil_API.RequisicaoJson e passar pelo codigo abaixo:

Json.Add('campoUtilizacaoBeneficiario').Value.AsString            := Copy(Trim(StringReplace(UpperCase(TiraPontos(ATitulo.Mensagem.Text)),'\r\n',' ',[rfReplaceAll])),0,30);

temos ATitulo.Mensagem.Text sem dados preenchidos , com isso no dados enviados o campo campoUtilizacaoBeneficiario fica com "" como pode ver abaixo

02/06/23 15:24:51:003 - Comando Enviar: {"numeroConvenio":3128557,"numeroCarteira":17,"numeroVariacaoCarteira":35,"codigoModalidade":1,"dataEmissao":"02.06.2023","dataVencimento":"02.07.2023","valorOriginal":105.91,"valorAbatimento":0,"codigoAceite":"N","codigoTipoTitulo":2,"descricaoTipoTitulo":"DM","numeroTituloBeneficiario":"12","campoUtilizacaoBeneficiario":"","numeroTituloCliente":"00031285570000000011","mensagemBloquetoOcorrencia":"","jurosMora":{"tipo":3},"pagador":{"tipoInscricao":1,"numeroInscricao":73010014953,"nome":"CLIENTE DE TESTES","endereco":"Rua dos clientes 100","cep":18270000,"cidade":"Tatui","bairro":"Centro","uf":"SP"},"indicadorPix":"S"}

 

Agora pelo meu sistema o ATitulo.Mensagem.Text esta preenchido e ainda com acentos (gerando a recusa) , com isso se alguem souber o que controla o preenchimento ou não do  ATitulo.Mensagem, me ajudaria.

 o detalhe que nas duas situações as functions GerarMensagemPadraoDataLimitePagamento e GerarMensagemPadraoDataLimitePagamento  são executadas.

 

Obrigado pelo retorno.

 

 

 

 

 

[rlind]

ola.

a propriedade Boleto.ImprimirMensagemPadrao            := ckbImprimirMensagemPadrao.Checked; no exemplo ABCR esta true tambem

[rlind]

Bom dia.

no projeto exemplo será que não esta comentado  o trecho dm.ACBrBoleto.AdicionarMensagensPadroes(Titulo,Mensagem)  porque tbem gerava algum problema

nessa TBoletoW_BancoBrasil_API.RequisicaoJson ?

Obrigado.

[Alexandre de Paula]

Exatamente por isso que a nossa recomendação é sempre testar pelos programas exemplo, assim temos um ponto em comum para avaliar.

Obrigado pela ajuda e vamos verificar as suas contribuições. Foi gerado um registro na TK-4030 para acompanhamento.

[rlind]

Bom dia.

Esta Certo.

Aguardamos retorno.

Obrigado.

 

 

[rlind]

Bom dia.

Aguardamos retorno.

Obrigado.

[Alexandre de Paula]

Boa tarde,

Caso tenha necessidade de atendimento diferenciado considere a possibilidade de ser assinante PRO.
Clique aqui para saber mais.

[rlind]

Boa Tarde.

Esta certo

 

Obrigado.

[rlind]

Boa tarde.

Resolvi,   setando ACBrBoleto.ImprimirMensagemPadrao := False;

Pode finalizar

Muito obrigado.

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.