GeMIS_WEB/update/ListAllFormIds.p

DEF VAR cString AS CHAR NO-UNDO.

FOR EACH htmlDOkumente WHERE company = '1000' AND user_name = 'admin' AND language_id = 1:
    cString = cString
        + (IF cString = '' THEN '' ELSE ', ')
        + htmldokumente.form_id.
END.

UPDATE cstring VIEW-AS EDITOR SIZE 60 BY 3.