ACBRPagFor - Autenticação de Pagamento

[Wanderson Robert]

Olá Pessoal, preciso obter o código de autorização no arquivo de retorno, no Segmento O, possui a instrução porém no Segmento J  não possui, alguém já conseguiu obter esta informação?

[Wanderson Robert]

Solução proposta:

Habilitando estas linhas será possível obter o código de autorização de pagamento.

A LerSegmentoJ99 faz a leitura da autenticação somente de RegSegOpc ='3J99' 

A LerSegmento Z considera RegSeg='3Z' entendo que o correto é habilitar todas as chamadas e declarações para o Segmemento J

Arquivo: CNAB240.lerTxtRetorno
Ação necessária: Linha 896, retirar comentário de LerSegmentoZ(PagFor.Lote.Last.SegmentoJ.Last.SegmentoZ, I);

Arquivo: ACBRPagforClass

Ações necessárias :CNAB240.LerTxtRetorno.pas
Linha 1034 Retirar comentário de  FSegmentoZ: TSegmentoZList;
Linha 1042 Retirar comentário de  procedure SetSegmentoZ(const Value: TSegmentoZList);
Linha 1069 Retirar comentário de  property SegmentoZ: TSegmentoZList read FSegmentoZ write SetSegmentoZ;
Linha 2055 Retirar comentário de  FSegmentoZ := TSegmentoZList.Create;
Linha 2064 Retirar comentário de  FSegmentoZ.Free;
Linha 2111 a 2114 Retirar comentário de procedure TSegmentoJ.SetSegmentoZ(const Value: TSegmentoZList);

Arquivos com as alterações em anexo.

Exemplo do resultado obtido da leitura o retorno obtido.

ACBrPagForClass.pas

[Italo Giurizzato Junior]

Bom dia warobert,

Muito obrigado pela colaboração, já inclui na minha lista de tarefas. TK-2949

[Italo Giurizzato Junior]

Bom dia warobert,

Já esta no SVN.

[Cleber Ferreira]

Obrigado por reportar.

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