1, Session
不直接运行，而是将BDC程序生成session，通过SM35或者SAP标准程序RSBDCSUB或者 RSBDCBTC 触发。
优点：通过T-code SM35可以进行运行管理及日志管理，方便查错。
缺点：数据直到session被处理才能更新。
2, 用到的函数、程序
. 1, BDC_OPEN_GROUP.
2. BDC_INSERT
可在一个Session中插入多个BDC
3. BDC_CLOSE_GROUP.
触发程序：RSBDCSUB或者 RSBDCBTC，在BDC_CLOSE_GROUP.之后submit
3, 例子程序
通过session 批量更新payment block，Tcode:FB09
|
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 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 |
REPORT ztest_bdc_session. * update payment block by BDC DATA:git_bdcdata TYPE STANDARD TABLE OF bdcdata, gwa_bdcdata LIKE LINE OF git_bdcdata.. * open group PERFORM frm_open_group. REFRESH:git_bdcdata, git_messtab. * input document number PERFORM frm_bdc_dynpro USING 'SAPMF05L' '0102'. PERFORM frm_bdc_field USING 'RF05L-BELNR' '016000000'. PERFORM frm_bdc_field USING 'RF05L-BUKRS' '3250'. PERFORM frm_bdc_field USING 'RF05L-GJAHR' '2015'. PERFORM frm_bdc_field USING 'RF05L-BUZEI' '1'. PERFORM frm_bdc_field USING 'BDC_OKCODE' '/00'. * set payment block PERFORM frm_bdc_dynpro USING 'SAPMF05L' '0302'. PERFORM frm_bdc_field USING 'BSEG-ZLSPR' 'A'. * save PERFORM frm_bdc_field USING 'BDC_OKCODE' '=AE'. * 向session中插入BDC数据，处理多张凭证时，可以插入多个，本例子只插入1个 PERFORM frm_bdc_insert. * close group and trigger BDC session PERFORM frm_close_group. *&---------------------------------------------------------------------* *& Form FRM_BDC_INSERT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_bdc_insert . CALL FUNCTION 'BDC_INSERT' EXPORTING tcode = 'FB09' TABLES dynprotab = git_bdcdata EXCEPTIONS internal_error = 1 not_open = 2 queue_error = 3 tcode_invalid = 4 printing_invalid = 5 posting_invalid = 6 OTHERS = 7. IF sy-subrc <> 0. * error ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_OPEN_GROUP *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_open_group . CALL FUNCTION 'BDC_OPEN_GROUP' EXPORTING client = sy-mandt group = 'BDC_SESSION' "SM35中的session名字，可以随便命名 keep = 'X' user = sy-uname EXCEPTIONS client_invalid = 1 destination_invalid = 2 group_invalid = 3 group_is_locked = 4 holddate_invalid = 5 internal_error = 6 queue_error = 7 running = 8 system_lock_error = 9 user_invalid = 10 OTHERS = 11. IF sy-subrc <> 0. * error RETURN. ENDIF. "sy-subrc ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_CLOSE_GROUP *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_close_group . CALL FUNCTION 'BDC_CLOSE_GROUP' EXCEPTIONS not_open = 1 queue_error = 2 OTHERS = 3. IF sy-subrc <> 0. ELSE. * Submit program RSBDCSUB to process the BDC session directly SUBMIT rsbdcsub WITH mappe EQ 'BDC_SESSION' "要触发的session名字 WITH z_verarb EQ 'X' WITH fehler EQ ' ' WITH logall EQ 'X' AND RETURN. ENDIF. ENDFORM. *----------------------------------------------------------------------* * Start new screen * *----------------------------------------------------------------------* FORM frm_bdc_dynpro USING i_program i_dynpro. CLEAR gwa_bdcdata. gwa_bdcdata-program = i_program. gwa_bdcdata-dynpro = i_dynpro. gwa_bdcdata-dynbegin = abap_true. APPEND gwa_bdcdata TO git_bdcdata. ENDFORM. "FRM_BDC_DYNPRO *&---------------------------------------------------------------------* *& Form FRM_BDC_FIELD *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_1131 text * -->P_LWA_CO07_BDgco_mATNR text *----------------------------------------------------------------------* FORM frm_bdc_field USING i_fnam i_fval. CLEAR gwa_bdcdata. gwa_bdcdata-fnam = i_fnam. gwa_bdcdata-fval = i_fval. "delete leading zero SHIFT gwa_bdcdata-fval LEFT DELETING LEADING space. APPEND gwa_bdcdata TO git_bdcdata. ENDFORM. " FRM_BDC_FIELD |
程序运行结果：
以下BDC Session 信息界面是RSBDCSUB输出的。
SM35：session ‘BDC_SESSION’已经被触发
FB09，运行后可以看到payment block字段值被赋成A
以上。
发表评论