Boa tarde,
Até a revisão 13564 a leitura de cobranças (método LerRetorno240) estava trazendo o número do documento. A partir da revisão 13890 foi mudado a posição das casas decimais que devem ser lidas, porém, isso faz com que o método leia um espaço em branco quando deveria pegar o número de documento.
Veja:
Revisão 13564
if copy(Linha, 14, 1) = 'T' then
begin
NossoNumero := Copy(Linha, 41, ACBrBanco.TamanhoMaximoNossoNum);
SeuNumero := Copy(Linha, 55, 15);
NumeroDocumento := Copy(Linha, 55, 15);
Revisão 13890
if copy(Linha, 14, 1) = 'T' then
begin
NossoNumero := Copy(Linha, 41, ACBrBanco.TamanhoMaximoNossoNum);
SeuNumero := Copy(Linha, 55, 15);
NumeroDocumento := Copy(Linha, 101, 12);
Tive que fazer uma alteração para que o método continuasse lendo meus arquivos. Em anexo estou enviando o arquivo que estou tentando ler.
Obrigado
Rodrigo.
COBST_D4XY_02_010218P_MOV.TXT