注意：
1.如果前面执行了call bapi，则insert数据库的操作必须在BAPI_TRANSACTION_COMMIT 或ROLLBACK后，否则无法insert成功！
2.SM30维护表或者abap insert表时，表中主键字段必须排在其他字段之前，否则无法insert/维护成功。
|
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 |
* ---------------处理错误消息:通过判断消息的类型，来判断BAPI是否成功------------- LOOP AT LT_RETURN INTO WA_RETURN. CLEAR LS_MSG. CLEAR GT_ZTHYBAPIMSG. LS_MSG-TYPE = WA_RETURN-TYPE. LS_MSG-NUMBER = WA_RETURN-NUMBER. LS_MSG-MESSAGE = WA_RETURN-MESSAGE. APPEND LS_MSG TO TP_MESSAGE. IF WA_RETURN-TYPE EQ 'E' OR WA_RETURN-TYPE = 'A' OR WA_RETURN = 'X'. CP_EIND = 'X'. "失败 ENDIF. "CONCATENATE 'BUS' WA_RETURN-TYPE WA_RETURN-NUMBER WA_RETURN-MESSAGE INTO GT_ALVMAIN-VA01MSG. "将message整理，装备写入数据库表ZTHYBAPIMSG. GT_ZTHYBAPIMSG-UUID_FATHER = UP_HEAD-UUID . GV_UUID = ''. CALL FUNCTION 'SYSTEM_UUID_CREATE' IMPORTING UUID = GV_UUID. GT_ZTHYBAPIMSG-UUID_SON = GV_UUID . GT_ZTHYBAPIMSG-ZZDATE = SY-DATUM . GT_ZTHYBAPIMSG-ZZTIME = SY-UZEIT . GT_ZTHYBAPIMSG-ZZUSER = SY-UNAME . GT_ZTHYBAPIMSG-ZZAPPLICATION = SY-REPID . GT_ZTHYBAPIMSG-ZZACTION = 'BAPI_SALESORDER_CREATEFROMDAT2' . GT_ZTHYBAPIMSG-ZZTYPE = WA_RETURN-TYPE . GT_ZTHYBAPIMSG-ZZID = WA_RETURN-ID . GT_ZTHYBAPIMSG-ZZNUMBER = WA_RETURN-NUMBER . GT_ZTHYBAPIMSG-ZZMESSAGE = WA_RETURN-MESSAGE . GT_ZTHYBAPIMSG-ZZMESSAGE_V1 = WA_RETURN-MESSAGE_V1 . GT_ZTHYBAPIMSG-ZZMESSAGE_V2 = WA_RETURN-MESSAGE_V2 . GT_ZTHYBAPIMSG-ZZMESSAGE_V3 = WA_RETURN-MESSAGE_V3 . GT_ZTHYBAPIMSG-ZZMESSAGE_V4 = WA_RETURN-MESSAGE_V4 . GT_ZTHYBAPIMSG-ZZPARAMETER = WA_RETURN-PARAMETER . GT_ZTHYBAPIMSG-ZZROW = WA_RETURN-ROW . GT_ZTHYBAPIMSG-ZZFIELD = WA_RETURN-FIELD . APPEND GT_ZTHYBAPIMSG. ENDLOOP. IF CP_EIND NE 'X'. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING WAIT = 'X'. COMMIT WORK AND WAIT. ELSE. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK' . ENDIF. *--------将bapi执行log写入到日志表. *----注意：insert数据库的操作必须在BAPI_TRANSACTION_COMMIT 或ROLLBACK后，否则无法insert成功！ INSERT ZTHYBAPIMSG FROM TABLE GT_ZTHYBAPIMSG[]. CLEAR GT_ZTHYBAPIMSG. REFRESH GT_ZTHYBAPIMSG[]. |
本文作者: GavinDong
版权属于: GavinDong博客
文章链接: https://gavindong.com/1572.html
如果使用过程中遇到问题，可 **点击此处** 交流沟通。
版权所有，转载时必须以链接形式注明作者和原始出处及本声明。
