Registro H2 Sem ? No Campo Modelo

[Celio Murakami]

Bom Dia a todos!

 

Estou implementando o registro H2 do ACBRPAF, e pude verificar que não está preenchendo com ? o campo modelo quando o registro é marcado como invalido.

Estudando o fonte, ví que falta o tratamento do RegistroValido. Então atualizei o fonte e o mesmo persistiu, então segue:

 

arquivo: ACBrPAF_H_Class.pas

método: function TPAF_H.WriteRegistroH2: string;

linha: 178

conteúdo antigo:RFill(MODELO_ECF, 20) +

novo conteúdo:  RFill(MODELO_ECF, 20, ifThen(RegistroValido, ' ', '?')) +

 

Espero poder estar ajudando esse grandioso projeto!

 

 

 

 

 

[Juliomar Marchetti]

Anexa os fontes alterados para ajudar no merge

[Régys Silveira]

Enviei a correção para o SVN, obrigado pela observação.