GeMIS_WEB/GUI/Tools/aufkotest.p

DEF VAR ix AS INT.
    
FOR EACH aufko :
    ix = 0.
    IF Aufko.Auf_Datum  <> ?    THEN ix = ix + 1.
    IF Aufko.Lief_Datum <> ?    THEN ix = ix + 1.
    IF Aufko.MWST       <> 0    THEN ix = ix + 1.
    IF Aufko.Kond       <> 0    THEN ix = ix + 1.
    IF ix < 4 THEN MESSAGE aufko.aufnr aufko.knr VIEW-AS ALERT-BOX. 
END.