ACBRPagFor - Método LerTxt()

[mlgoncalves]

Prezados colegas, não encontrei um grupo específico do ACBRPagFor e por isso abri este tópico aqui mesmo.

Estava fazendo uns testes de leitura de arquivos de retorno e percebi que o método LerTxt estava incompleto. Então decidi fazer algumas modificações listadas na unit em anexo que parece estar funcionando corretamente.

O banco que estou trabalhando o retorno é o Banco do Brasil. Ainda não revisei a geração do arquivo remessa.

Quem quiser colaborar fique à vontade.

Atc,Frm_ACBrPagFor_Exemplo.rar

Marcelo Gonçalves

Lógica da leitura dos registros no arquivo.

Existem registros de segmentos diferentes (A, J, O, etc) que possuem segmentos opcionais em comum (o segmento A pode ter segmentos opcionais B e Z; o segmento J pode ter segmentos opcionais B, C, D, E, F, Z; e assim por diante.

Então para fazer uma leitura correta de um TXT estou lendo a linha do segmento principal e dentro da mesma rotina continuo incrementando o índice das linhas para avançar para as próximas linhas de segmento opcional, se houver.

 

É isso. Não sou especialista em Delphi. Fiquem à vontade para aprimorar a escrita do código.

Oportunamente estou anexando o exemplo que lê os arquivos.

 

ACBrPagForLerTxt.rar ACBrPagForConversao.rar

[Juliomar Marchetti]

#TK-2316

[Juliomar Marchetti]

No svn . favor testar

[mlgoncalves]

Obrigado pelo retorno. Ainda estamos desenvolvendo o componente para gerar arquivo do Banco do Brasil. Assim que finalizar os testes iremos subir os novos fontes.

Atenciosamente,

Marcelo

[mlgoncalves]

Boa tarde!

Segue em anexo unit ACBrPagForLerTxt.pas revisada. Por favor verifiquem e se jugarem pertinentes as alterações favor publicar.

 

Atenciosamente,

MarceloACBrPagForLerTxt.rar

[Juliana Tamizou]

Bom dia,

20 horas atrás, mlgoncalves disse:

Segue em anexo unit ACBrPagForLerTxt.pas revisada. Por favor verifiquem e se jugarem pertinentes as alterações favor publicar.

Obrigada pelo interesse em contribuir, como vc já anexou estes arquivos em outra postagem, fecharemos este tópico.

At.