Joas Vilas Boas Fernandes 64 Posted October 7, 2020 Report Share Posted October 7, 2020 na Procedure TBloco_C.WriteRegistroC180(RegC170: TRegistroC170) tenho uma sugestão de validação: procedure TBloco_C.WriteRegistroC180(RegC170: TRegistroC170); .... if RegC170.RegistroC180.Count > 0 then begin if (RegC100.IND_OPER in [tpSaidaPrestacao]) then Check(False, 'O RegistroC180, não deve ser gerado em movimentações de saída, conforme ATO COTEPE 09/08'); if (RegC100.IND_OPER in [tpEntradaAquisicao]) and (FBloco_0.Registro0000.IND_PERFIL in [pfPerfilC]) then Check(False, 'O RegistroC180, não deve ser gerado em movimentações de entrada no %s, conforme ATO COTEPE 09/08', ['PerfilC']); end; ---- So gerar o registro para entrada no perfil A e B. ACBrEFDBloco_C_Class.pas Link to post Share on other sites
Joas Vilas Boas Fernandes 64 Posted October 7, 2020 Author Report Share Posted October 7, 2020 Favor ignorar post anterior. Link to post Share on other sites
Recommended Posts