GeMIS_WEB/GUI/Tools/RuestAuftraegeAbschliessen.p

DEF BUFFER bRuestAuf    FOR RuestAuf.

FOR EACH RuestAuf NO-LOCK
    WHERE RuestAuf.Firma  = '1000'
    BREAK BY RuestAuf.Firma
          BY RuestAuf.Aufnr:
          
    IF NOT FIRST-OF ( RuestAuf.Aufnr ) THEN NEXT.
    
    FIND Aufko NO-LOCK OF RuestAuf NO-ERROR.
    IF AVAILABLE Aufko THEN
    DO:
        IF Aufko.Auf_Sta    <= 1     THEN NEXT.
        IF Aufko.Lief_Datum >= TODAY THEN NEXT.
    END.

    FOR EACH bRuestAuf
        WHERE bRuestAuf.Firma = RuestAuf.Firma
        AND   bRuestAuf.Aufnr = RuestAuf.Aufnr:
        ASSIGN  bRuestAuf.lGeruestet  = TRUE
                bRuestAuf.lPAGedruckt = TRUE
                bRuestAuf.lLAGedruckt = TRUE
                bRuestAuf.lLSGedruckt = TRUE
                bRuestAuf.lGeladen    = TRUE.
    END.
END.