Ajustes ACBR_PAF_Demo na geração registros PAF-ECF

[DouglasGV]

Olá boa tarde!

Tudo certo?

Alterei a procedure:TForm6.btnRegistrosPAFClick(Sender: TObject);

Primeira linha alterei o layout para lpPAFECF.

Na parte da geração do registro H2 o campo TITULO: alterei o primeiro parâmetro da function GerarDados('S', 7) para GerarDados('I',7) levando em conta que o campo é integer.

A unit alterada em anexo.

 

 

 

uFormPrincipal.pas

[Daniel Simoes]

Muito obrigado pela contribuição, @DouglasGV...

@EMBarbosa, deixo com você...

[Juliana Tamizou]

Boa tarde.

Adicionado ao backlog.

Att.

[EMBarbosa]

Em 27/07/2021 at 13:40, DouglasGV disse:

Olá boa tarde!

Tudo certo?

Alterei a procedure:TForm6.btnRegistrosPAFClick(Sender: TObject);

Primeira linha alterei o layout para lpPAFECF.

Na parte da geração do registro H2 o campo TITULO: alterei o primeiro parâmetro da function GerarDados('S', 7) para GerarDados('I',7) levando em conta que o campo é integer.

A unit alterada em anexo.

 

 

 

uFormPrincipal.pas 33 kB · 1 download

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN na Revisão  22497.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.