GeMIS_WEB/GUI/Tools/Kopieren_LiBild.p

DEF BUFFER bLiBild  FOR LiBild.

FOR EACH LiBild NO-LOCK
        WHERE LiBild.Prog = 'HUBER:PALETTEN':
    CREATE  bLiBild.
    BUFFER-COPY LiBild EXCEPT Prog
            TO  bLiBild
        ASSIGN  bLiBild.Prog = 'HUBER:LADEPAPIER'.
END.