problema com caracteres especiais acbrBoleto

[datilas]

para reproduzir o problema no ...\Exemplos\ACBrBoleto\Lazarus\uDemoBoleto.pas
no OnChange do componente cbxBanco (TComboBox)
adicionar o seguinte código:

Var
  b: TACBrBanco;
Begin
  b := TACBrBanco.Create(FACBrBoleto);
  Try
    b.TipoCobranca := TACBrTipoCobranca(cbxBanco.ItemIndex);
    edtLocalPag.Text := b.LocalPagamento;
  Finally
    b.Free;
  End;
End;

voce vera o resulta da imagem
1-1,2-1:

então para resolver o problema de charset eu adicionei "CP1252ToUTF8"
como o codigo abaixo:

Var
  b: TACBrBanco;
Begin
  b := TACBrBanco.Create(FACBrBoleto);
  Try
    b.TipoCobranca := TACBrTipoCobranca(cbxBanco.ItemIndex);
    edtLocalPag.Text := CP1252ToUTF8(b.LocalPagamento);
  Finally
    b.Free;
  End;
End;

então o problema de charset inverteu com nas imagens 
1-2,2-2:

a pergunta é como faço para resolver definitivamente esse problema?
ja tentei com ACBrStr(b.LocalPagamento) e não resolveu.

só para deixar claro essa situação acontece em varias ocasiões até no AcbrTEFApi usando sitef ja aconteceu.(eu sei que é outro componente) mas o problema é o mesmo

Editado 25 Junho por datilas

[Juliomar Marchetti]

delphi 7?

[datilas]

3 minutos atrás, Juliomar Marchetti disse:

delphi 7?

lazarus

para revolver o problema precisei alterar 3 unit's

ACBrBoleto.pas
ACBrBancoSicredi.pas
ACBrBancoABCBrasil.pas

na unit ACBrBoleto.pas linha 5504

estava:
Result := Format(ACBrStr(CInstrucaoPagamento), [fpNome]);
alterei para:
Result := ACBrStr(Format(CInstrucaoPagamento, [fpNome]));

na unit ACBrBancoSicredi.pas linha 638

estava:
Result := Format(ACBrStr(CInstrucaoPagamentoCooperativa), [fpNome]);
alterei para:
Result := ACBrStr(Format(CInstrucaoPagamentoCooperativa, [fpNome]));

na unit ACBrBancoABCBrasil.pas linha 963

estava:
Result := CInstrucaoPagamentoTodaRede;
alterei para:
Result := ACBrStr(CInstrucaoPagamentoTodaRede);

segue as units alteradas svn rev-34114

ACBrBoleto.pasACBrBancoSicredi.pasACBrBancoABCBrasil.pas

[Juliomar Marchetti]

5 minutos atrás, datilas disse:

lazarus

Lazarus não era pra ter esses erros.

está com a versão 3.2.4?

[datilas]

5 minutos atrás, Juliomar Marchetti disse:

Lazarus não era pra ter esses erros.

está com a versão 3.2.4?

sim, eu uso lazarus 3.2.4, não tenho delphi instalado, só tenho uma pasta acbr, não tem outras units, meu ambiente esta completamente limpo,

vc pode testar com o demo do boleto como citei no primeiro post, mas ja enviei as correções no post anterior se quiser testar.

[datilas]

Em 25/06/2024 at 14:51, datilas disse:

lazarus

para revolver o problema precisei alterar 3 unit's

ACBrBoleto.pas
ACBrBancoSicredi.pas
ACBrBancoABCBrasil.pas

na unit ACBrBoleto.pas linha 5504

estava:
Result := Format(ACBrStr(CInstrucaoPagamento), [fpNome]);
alterei para:
Result := ACBrStr(Format(CInstrucaoPagamento, [fpNome]));

na unit ACBrBancoSicredi.pas linha 638

estava:
Result := Format(ACBrStr(CInstrucaoPagamentoCooperativa), [fpNome]);
alterei para:
Result := ACBrStr(Format(CInstrucaoPagamentoCooperativa, [fpNome]));

na unit ACBrBancoABCBrasil.pas linha 963

estava:
Result := CInstrucaoPagamentoTodaRede;
alterei para:
Result := ACBrStr(CInstrucaoPagamentoTodaRede);

segue as units alteradas svn rev-34114

ACBrBoleto.pas 261.81 kB · 0 downloads ACBrBancoSicredi.pas 130.74 kB · 0 downloads ACBrBancoABCBrasil.pas 82.23 kB · 0 downloads

existe a possibilidade dessas alterações serem incluidas no acbr?

[Juliomar Marchetti]

8 minutos atrás, datilas disse:

existe a possibilidade dessas alterações serem incluidas no acbr?

já tem a correção para isso. a menos que tu tenha alterações locais mas o svn já foi feito alteração e está no svn para mandar caracteres acentuados via api

 

[datilas]

3 minutos atrás, Juliomar Marchetti disse:

já tem a correção para isso. a menos que tu tenha alterações locais mas o svn já foi feito alteração e está no svn para mandar caracteres acentuados via api

 

se vc olhar o tópico inteiro, essa alteração não tem relação com a api. ela tem relação com a parte visual na mensagem de pagamento.

é uma alteração simples. que não vai gerar conflito nem problema.

Editado 11 Julho por datilas

[Juliomar Marchetti]

no caso ai é CNAB enão API

[datilas]

Agora, Juliomar Marchetti disse:

no caso ai é CNAB enão API

por favor leia o tópico para entender:

 

 

[Juliomar Marchetti]

Eu li. só não me atentei pois estava com erros assim na API também.

no svn

[datilas]

3 minutos atrás, Juliomar Marchetti disse:

Eu li. só não me atentei pois estava com erros assim na API também.

no svn

ok. é que eu ainda não comecei a trabalhar com api, então para mim pareceu claro. me desculpe.

[datilas]

ja testei e esta ok. muito obrigado.

[Juliomar Marchetti]

Obrigado por reportar.

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