Ajuste ACBrADRCST_Bloco1_Class

[Guilherme Bernardi]

Boa tarde! Estava realizando alguns testes na Homologação do arquivo de ADRCST, onde foi retornado o erro conforme a regra B10-B11 do Manual , referente a geração do Registro 1000 no campo B11 - ALIQ_FECOP, quando o valor informado é igual a 0.

Na homologação foi verificado que quando o valor é igual a 0, não deve ser gerado o valor para a posição.

Para corrigir o problema foi ajustado a gravação da procedure TBloco_1.WriteRegistro1000 na Unit ACBrADRCST_Bloco1_Class, onde executado o procedimento LFill referente ao campo ALIQ_FECOP, informado True para o parâmetro Nulo.

 

 

ACBrADRCST_Bloco1_Class.pas

[Juliomar Marchetti]

Já está na lista para analise

[Juliomar Marchetti]

Está no SVN a contribuição