Retorno Remessa Bradesco "Código Liquidação Vazio"

[podiuminformatica]

Olá pessoal, tive a necessidade de pegar o código de liquidação no arquivo de retorno 400 do Bradesco, notei que o mesmo sempre retorna vazio, olhando o código percebi que o retorno "CodigoLiquidacao" não estava sendo populado, no procedimento: "procedure TACBrBancoBradesco.GerarRegistroTrailler400( ARemessa:TStringList );" da unit: "ACBrBancoBradesco"
Adicionei a seguinte linha de código e funcionou, caso eu esteja equivocado nessa minha alteração por favor, me informem.

Adicionei essa linha no código, na procedure : "GerarRegistroTrailler400"
                             

...
ValorDespesaCobranca := StrToFloatDef(Copy(Linha,176,13),0)/100;
ValorOutrasDespesas  := StrToFloatDef(Copy(Linha,189,13),0)/100;

CodigoLiquidacao     := FormatFloat('00',CodOcorrencia); //-> Linha inserida

...

 

[Juliomar Marchetti]

Bom dia

se for sugestão favor anexar o fonte um exemplo do arquivo e também o manual que se baseou para aplicar a mudança.