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 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 |
AT SELECTION-SCREEN ON VALUE-REQUEST FOR SE_ZNO. PERFORM ZNO_GET. FORM ZNO_GET . DATA:ll_rowcount TYPE INT2. DATA: BEGIN OF GT_ZNO OCCURS 0 , ZMM062NO TYPE ZMM062NO, CREATEDATA TYPE ZCREATEDATA, CREATEUSER TYPE ZCREATEUSER, END OF GT_ZNO . SELECT DISTINCT ZMM062NO CREATEDATA CREATEUSER INTO TABLE GT_ZNO FROM ZTMM062 . ll_rowcount = lines( GT_ZNO ) . IF ll_rowcount > 0. "多个他们,显示帮助 CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING retfield = 'ZMM062NO' "大写,可选值内表的字段名 value_org = 'S' "就写'S' dynpprog = SY-REPID "返回的输入框所在的main program dynpnr = SY-DYNNR "返回的输入框所在屏幕 dynprofield = 'SE_ZNO' "返回的输入框名 TABLES value_tab = GT_ZNO "可选值的内表,此值在PBO中读取 EXCEPTIONS parameter_error = 1 no_values_found = 2 others = 3. IF SY-SUBRC 0. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. else. " 没找到仓位,(WM进货记录) SE_ZNO = ''. * MESSAGE s072(zhxmsg) . ENDIF. ENDFORM. " ZNO_GET |
2019
08-29
08-29