GeMIS_WEB/GUI/Tools/UpdateArtbez.p

DEF VAR cString     AS CHAR         NO-UNDO.
DEF VAR i1          AS INT          NO-UNDO.
DEF VAR i2          AS INT          NO-UNDO.

FOR EACH Artbez:
    IF Artbez.Zustext[01] = '' THEN NEXT.
    cString = ''.
    DO i1 = 10 TO 1 BY -1:
        IF Artbez.Zustext[i1] = '' THEN NEXT.
        
    END.
    DO i2 = 1 TO i1:
        cString = cString + Artbez.Zustext[i2].
        IF i2 < i1 THEN cString = cString + CHR(10).
    END.
    Artbez.Beschreibung = cString.
END.