Validação Registro C495

[Joas Vilas Boas Fernandes]

Bom dia,

Na procedure TBloco_C.WriteRegistroC495(RegC001: TRegistroC001) tem uma validação ao meu ver equivocada.
  if Assigned( RegC001.RegistroC495 ) then
  begin
     if (DT_INI >= EncodeDate(2014,01,01)) and
     ( FBloco_0.Registro0000.UF = 'BA') then
       Check(False, 'A partir de 01/01/2014, os contribuintes situados na Bahia obrigados a este registro devem apresentar o registro C425.');

....

Porem ao criar o registro RegistroC001, cria a lista TRegistroC495List:
 FRegistroC495 := TRegistroC495List.Create. 

Assim o código acima sempre apresentara a imagem independente de informar informações de cupom ou não.

uma sugestão seria:
  if Assigned( RegC001.RegistroC495 )
  and (RegC001.RegistroC400.Count > 0)
  and (RegC001.RegistroC425.Count = 0) then
  begin
     if (DT_INI >= EncodeDate(2014,01,01)) and
     ( FBloco_0.Registro0000.UF = 'BA') then
       Check(False, 'A partir de 01/01/2014, os contribuintes situados na Bahia obrigados a este registro devem apresentar o registro C425.');
            

Assim só quando informar registros dos cupons e não informar os registros C425 será criticado.

 

 

[Joas Vilas Boas Fernandes]

Favor ignorar a sugestão...