GeMIS_WEB/GUI/incl/brwresetbreitespalte.i

    
    DEF VAR hBrowse     AS HANDLE                   NO-UNDO.
    DEF VAR hCol        AS HANDLE                   NO-UNDO.
    DEF VAR i1          AS INT                      NO-UNDO.
    DEF VAR i2          AS INT                      NO-UNDO.

    hBrowse = BROWSE {&BROWSE-NAME}:HANDLE.
    hCol    = hBrowse:FIRST-COLUMN.
    i1      = 0.

    FOR EACH TBrowser
            WHERE TBrowser.fAktiv
                  BY TBrowser.PosAkt:
        i1 = i1 + 1.
        i2 = 0.
        hCol = hBrowse:FIRST-COLUMN.
        DO WHILE VALID-HANDLE(hCol):
            i2 = i2 + 1.
            IF hCol:NAME <> TBrowser.Feld THEN DO:
                hCol = hCol:NEXT-COLUMN.
                NEXT.
            END.
            hCol:WIDTH   = TBrowser.BreitAkt.
            hCol:VISIBLE = TBrowser.fVisible.
            IF TBrowser.PosAkt = i2 THEN LEAVE.
            hBrowse:MOVE-COLUMN(i2, i1).
            LEAVE.
        END.
    END.