标签:QA11 return 批量 data ABAP ls ud TYPE stock
1 TYPES:BEGIN OF ty_data , 2 checkbox(1), 3 prueflos TYPE qals-prueflos, 4 werk TYPE qals-werk, 5 matnr TYPE qals-matnr, 6 ktextmat TYPE qals-ktextmat, 7 vcodegrp TYPE rqeva-vcodegrp, 8 vcode TYPE rqeva-vcode, 9 END OF ty_data . 10 11 DATA:gt_data TYPE TABLE OF ty_data . 12 13 DATA:ls_data TYPE bapi2045ud, 14 ls_return TYPE bapireturn1, 15 ls_stock TYPE bapi2045d_il2, 16 ls_ud_re TYPE bapi2045ud_return. 17 18 LOOP AT gt_data ASSIGNING FIELD-SYMBOL(<fs_add>) WHERE checkbox = 'X' . 19 20 CLEAR ls_data . 21 CLEAR ls_return . 22 CLEAR ls_stock . 23 CLEAR ls_ud_re . 24 25 ls_data-insplot = <fs_add>-prueflos . 26 ls_data-ud_selected_set = <fs_add>-vcodegrp . 27 ls_data-ud_plant = <fs_add>-werk . 28 ls_data-ud_code_group = <fs_add>-vcodegrp . 29 ls_data-ud_code = <fs_add>-vcode . 30 "要过账的把下面的字段赋值X 31 "ls_data-ud_stock_posting = 'X'. "是否进行过帐 32 33 CALL FUNCTION 'BAPI_INSPLOT_SETUSAGEDECISION' 34 EXPORTING 35 number = <fs_add>-prueflos 36 ud_data = ls_data 37 * LANGUAGE = 38 * UD_MULTSPEC = 39 * UD_MODE = 'D' 40 IMPORTING 41 ud_return_data = ls_ud_re 42 stock_data = ls_stock 43 return = ls_return 44 * /CWM/STOCK_DATA = 45 * TABLES 46 * SYSTEM_STATUS = 47 * USER_STATUS = 48 . 49 50 IF ls_return-type = 'E' . 51 52 CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. 53 54 ELSE . 55 56 CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' 57 EXPORTING 58 wait = 'X'. 59 60 ENDIF . 61 62 ENDLOOP .
标签:QA11,return,批量,data,ABAP,ls,ud,TYPE,stock 来源: https://www.cnblogs.com/TigerMan/p/16661664.html
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。