gh_colunm_tree教案分析.docx

COLUMN tree实例 程序写在函数里，在F4帮助时调用，效果： 选择屏幕定义 SELECT-OPTIONS:s_proj?for?ZFIT1011-NODID?NO?INTERVALS?. AT?SELECTION-SCREEN?ON?VALUE-REQUEST?FOR?s_proj-low.??P_PROJ?.??PERFORM?FRM_F4_HELP_PROJ?. FORM?FRM_F4_HELP_PROJ?. ??DATA:?LT_BUKRS????TYPE?ZFITBBUKRS,????????LS_BUKRS????TYPE?ZFISBUKRS.??DATA:?LT_ZFIT1011?TYPE?ZFITB1011,????????LS_ZFIT1011?TYPE?ZFIT1011.??DATA?LT_FIELD?LIKE?TABLE?OF?DYNPREAD.??DATA?LS_FIELD?LIKE??????????DYNPREAD.??DATA:LV_LVVER??TYPE?ZFIT1011-LVVER??.??CLEAR:?LT_FIELD??,LV_LVVER?,???LS_FIELD?????.??REFRESH?S_PROJ.??CALL?FUNCTION?DYNP_VALUES_READ????EXPORTING??????DYNAME???????????????=?SY-REPID??????DYNUMB???????????????=?SY-DYNNR??????REQUEST??????????????=?A?????读取全屏幕数据????TABLES??????DYNPFIELDS???????????=?LT_FIELD????EXCEPTIONS??????INVALID_ABAPWORKAREA?=?1??????INVALID_DYNPROFIELD??=?2??????INVALID_DYNPRONAME???=?3??????INVALID_DYNPRONUMMER?=?4??????INVALID_REQUEST??????=?5??????NO_FIELDDESCRIPTION??=?6??????INVALID_PARAMETER????=?7??????UNDEFIND_ERROR???????=?8??????DOUBLE_CONVERSION????=?9??????STEPL_NOT_FOUND??????=?10??????OTHERS???????????????=?11.??LV_LVVER??=?LS_FIELD-FIELDVALUE??.??CALL?FUNCTION?ZFI_GRADE_F4_HELP????EXPORTING??????IV_LVCOD?=?FI01??????IV_LVVER?=?V01????TABLES??????TV_BUKRS?=?LT_BUKRS??????TV_TAB???=?LT_ZFIT1011.??LOOP?AT?LT_ZFIT1011?INTO?LS_ZFIT1011?WHERE?BUKRS?IS?NOT?INITIAL?.????GR_BUKRS-SIGN?=?I.????GR_BUKRS-OPTION?=?EQ.????GR_BUKRS-LOW????=?LS_ZFIT1011-BUKRS.????CLEAR?GR_BUKRS-HIGH.????APPEND?GR_BUKRS.??ENDLOOP.??DELETE?LT_ZFIT1011?WHERE?DWNOD?NOT?IN?GR_BUKRS.*??IF?LINES(?LT_ZFIT1011?)??1.*????MESSAGE?S000?WITH?TEXT-002?DISPLAY?LIKE?E.*????LEAVE?LIST-PROCESSING.*??ENDIF.*??READ?TABLE?LT_ZFIT1011?INTO?LS_ZFIT1011?INDEX?1.*??IF?SY-SUBRC?=?0.*????P_PROJ?=?LS_ZFIT1011-NODID.*??ENDIF.??LOOP?AT?LT_ZFIT1011?INTO?LS_ZFIT1011.????S_PROJ-SIGN?=?I.????S_PROJ-OPTION?=?EQ.????S_PROJ-LOW?=?LS_ZFIT1011-NODID.????APPEND?S_PROJ.??ENDLOOP.ENDFORM.????????????????