GeMIS_WEB/GUI/Tools/DeleteAuftraege.p

FOR EACH Aufko
    WHERE Aufko.Firma = '1000'
    AND   Aufko.Knr   = 23985:
    
    FOR EACH Aufze OF Aufko:
        DELETE Aufze.
    END.
    FOR EACH Ruestauf OF Aufko:
        DELETE RuestAuf.
    END.
    FOR EACH AufGebKo OF Aufko :
        DELETE AufGebKo.
    END.
    FOR EACH AufGKon OF Aufko:
        DELETE  AufGKon.
    END.
    FOR EACH AufLot OF Aufko:
        DELETE AufLot.
    END.
    FOR EACH AufRabSu OF Aufko:
        DELETE AufRabSu.
    END.
    FOR EACH AufSpRab
        WHERE AufSpRab.Firma = Aufko.Firma
        AND   AufSpRab.Aufnr = Aufko.Aufnr:
        DELETE AufSpRab.
    END.
    DELETE Aufko.
END.

/*
{ SUPER/funktionen.i }

DEF VAR cstring AS CHAR.

cstring = SUBSTITUTE('&1&4&2&4&3', 'SYSTEM', 'SYSTEM', '1000', CHR(01)).

RUN anmeldung ( cString ).

FOR EACH Aufze:
    IF Aufze.Aufnr > 0 THEN DO:
        FIND Aufko OF Aufze NO-LOCK NO-ERROR.
        IF AVAILABLE Aufko THEN NEXT.
    END.

    FOR EACH Ruestauf OF Aufze:
        DELETE RuestAuf.
    END.
    FOR EACH AufGebKo 
        WHERE AufGebKo.Firma = Aufze.Firma
        AND   AufGebKo.Aufnr = Aufze.Aufnr:
        DELETE AufGebKo.
    END.
    FOR EACH AufGKon
        WHERE AufGKon.Firma = Aufze.Firma
        AND   AufGKOn.Aufnr = Aufze.Aufnr:
        DELETE  AufGKon.
    END.
    FOR EACH AufLot OF Aufze:
        DELETE AufLot.
    END.
    FOR EACH AufRabSu
        WHERE AufRabSu.Firma = Aufze.Firma
        AND   AufRabSu.Aufnr = Aufze.Aufnr:
        DELETE AufRabSu.
    END.
    FOR EACH AufSpRab
        WHERE AufSpRab.Firma = Aufze.Firma
        AND   AufSpRab.Aufnr = Aufze.Aufnr:
        DELETE AufSpRab.
    END.
    DELETE Aufze.
    LEAVE.
END.

DEF BUFFER bartbw FOR artbw.
FOR EACH artbw NO-LOCK WHERE firma = '1000' AND datum >= 11/01/2021 AND tr_art = 01:
    FIND aufze NO-LOCK OF artbw NO-ERROR.
    IF AVAILABLE aufze THEN NEXT.
    FIND savze NO-LOCK OF artbw NO-ERROR.
    IF AVAILABLE savze THEN NEXT.
    FIND bArtbw WHERE RECID(bartbw) = RECID(Artbw).
    DELETE bartbw.
END.
*/