Joas Vilas Boas Fernandes 64 Posted January 6 Report Share Posted January 6 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. Link to post Share on other sites
Solution Joas Vilas Boas Fernandes 64 Posted January 6 Author Solution Report Share Posted January 6 Favor ignorar a sugestão... Link to post Share on other sites
Recommended Posts