|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 |
FORM get_class_hierarhy TABLES t_daten STRUCTURE ghcl USING i_klart TYPE klah-klart i_hu_class TYPE klah-class. "Проверка на наличие класса CALL FUNCTION 'CLMA_CLASS_EXIST' EXPORTING class = i_hu_class classtype = i_klart classnumber = '0000000000' description_only = space EXCEPTIONS no_valid_sign = 1. CHECK sy-subrc = 0. "Разворачиваем иерархию CALL FUNCTION 'CLHI_STRUCTURE_CLASSES' EXPORTING i_klart = i_klart i_batch = 'X' i_bup = 'X' i_class = i_hu_class i_language = sy-langu i_tdwn = space i_no_classification = 'X' i_graphic = space i_date = sy-datum i_no_objects = 'X' i_sort_by_class = 'X' i_structured_list = 'X' TABLES daten = t_daten[] EXCEPTIONS class_not_valid = 1 classtype_not_valid = 2 OTHERS = 3. ENDFORM. " GET_CLASS_FROM_HIERARHY |
