GeMIS_WEB/GUI/Tools/BestellungZuruecksetzen.p

DEF VAR cFirma AS CHAR INIT '1000'.

FOR EACH Besko WHERE Besko.Firma    = cFirma
               AND   Besko.Besnr    = 146406
               AND   Besko.Best_Sta = 3:
    Besko.Best_Sta = 2.
    FOR EACH Besze OF Besko:
        Besze.Best_Sta = Besko.Best_Sta.
    END.
END.