Pegando a taxa do boleto

[dreamsoft_PR]

ola, estou vendo no demo

nao achei como eu pego a taxa do boleto que banco esta cobrando
      RetText.Add('Nosso Número :: '    + Retorno[i].NossoNumero);
      RetText.Add('Valor Documento :: ' + CurrToStr(Retorno[i].ValorDocumento));
      RetText.Add('Valor Pago :: '      + CurrToStr(Retorno[i].ValorPago));
      RetText.Add('Valor Recebido :: '  + CurrToStr(Retorno[i].ValorRecebido));
      RetText.Add('Data Ocorrencia :: ' + DateToStr(Retorno[i].DataOcorrencia));
      RetText.Add('Data Vencimento :: ' + DateToStr(Retorno[i].Vencimento));
      RetText.Add('CodTipoOcorrencia :: ' + GetEnumName( TypeInfo(TACBrTipoOcorrencia), Integer(Retorno[i].OcorrenciaOriginal.Tipo)));
      RetText.Add('Descrição Tipo Ocorrencia :: '  + Retorno[i].OcorrenciaOriginal.Descricao);
      RetText.Add('Descriçãoo Comando :: '  + Retorno[i].DescricaoMotivoRejeicaoComando.Text);
      RetText.Add('EMV (QrCode Pix) :: '  + Retorno[i].QrCode.emv);

tentei  Titulo.ValorPago- Titulo.ValorRecebido  mas nao da certo 

[Juliomar Marchetti]

Qual banco está testando? CNAB 240 ou 400

[dreamsoft_PR]

400

[BigWings]

Em 07/03/2025 at 05:35, dreamsoft_PR disse:

nao achei como eu pego a taxa do boleto que banco esta cobrando

Retorno[i].ValorDespesaCobranca

[dreamsoft_PR]

outra questao o CNPJ esta cortando como mudar o relatorio, esta em forte procurei os arquivo achei esses
object ACBRBoletoFCFortesFr: TACBRBoletoFCFortesFr
  Left = -7
  Top = 133
  Caption = 'ACBRBoletoFCFortesFr'
  ClientHeight = 1061
  ClientWidth = 1939
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  TextHeight = 14
  object BoletoReciboTopo: TRLReport
    Left = 18
    Top = 18
    Width = 794

[Juliomar Marchetti]

dúvida nova . tópico novo .

[dreamsoft_PR]

sobre ter a taxa do boleto 


  ACBrBoleto2.DirArqRetorno := ExtractFilePath(OpenDialog1.FileName);
  ACBrBoleto2.NomeArqRetorno := ExtractFileName(OpenDialog1.FileName);

  try
    ACBrBoleto2.LerRetorno;
....

  for i := 0 to ACBrBoleto2.ListadeBoletos.Count - 1 do
  begin
    Titulo := ACBrBoleto2.ListadeBoletos.Objects[i];
...

  mtTitulosEncontradosNossoNumero.asString := Titulo.NossoNumero;
    mtTitulosEncontradosValorPago.AsFloat := Titulo.ValorRecebido;
    mtTitulosEncontradosVencimento.AsDateTime := Titulo.Vencimento;

// showmessage('ValorDespesaCobranca ' +      FloatToStr(Titulo.ValorDespesaCobranca));

estou vendo esse campo nao vem com taxa que seria 1.75

os outros campos vem certo

 

[dreamsoft_PR]

e valor  FloatToStr(Titulo.ValorPago));

tambem vem zero 
ja o valor recebido vem o que pagou 

[Juliomar Marchetti]

Então tem que questionar o banco e olhar no arquivo de retorno se tem algum valor que corresponde a isso

senão o banco não retorna

[BigWings]

Qual o banco?

[dreamsoft_PR]

sicredi

[BigWings]

Nos fontes parece estar lendo correto de acordo com o manual:

 

      with Titulo do
      begin
        Carteira             := Copy(Linha,14,1);
        if (Carteira = '1') or (Carteira = 'A') then //Cobrança com Registro
        begin
          [...]
          ValorDespesaCobranca := StrToFloatDef(Copy(Linha,176,13),0)/100;
          ValorOutrasDespesas  := StrToFloatDef(Copy(Linha,189,13),0)/100;

Então é como o Juliomar disse, precisa ver com o banco o motivo de não estar sendo gerado o valor da despesa no arquivo.