GeMIS_WEB/GUI/Tools/labeltexte.p

FOR EACH AnaDat._File NO-LOCK
    WHERE NOT AnaDat._File._File-Name BEGINS 'SYS'
    AND   NOT AnaDat._File._File-Name BEGINS '_',
    
    EACH AnaDat._Field OF AnaDat._File:
    
    FIND FIRST labeltexte
        WHERE labeltexte.mandant = '1000'
        AND   labeltexte.feld    = AnaDat._Field._Field-Name
        AND   labeltexte.sprcd   = 1 NO-ERROR.
    IF NOT AVAILABLE labeltexte THEN
    DO:
        CREATE  labeltexte.
        ASSIGN 
            labeltexte.mandant = '1000'
            labeltexte.feld    = AnaDat._Field._Field-Name
            labeltexte.sprcd   = 1
            labeltexte.sidelabel = (IF AnaDat._Field._Label <> ? THEN AnaDat._Field._Label ELSE AnaDat._Field._Field-Name)
            labeltexte.Headlabel = (IF AnaDat._Field._Col-Label <> ? THEN AnaDat._Field._Col-Label ELSE labeltexte.sidelabel).
    END.
    CASE AnaDat._Field._Data-Type:
        WHEN 'character' THEN labeltexte.ausrichtung = 'left'.
        WHEN 'decimal'   THEN labeltexte.ausrichtung = 'right'.
        WHEN 'integer'   THEN labeltexte.ausrichtung = 'center'.
        OTHERWISE             labeltexte.ausrichtung = 'center'.
    END CASE.
END.