广州某粮油公司的接口，因为OA太死板，所以这边接口统一做成字段，值 的形式传递。
抬头结构：ZMMS001
KOSTL 1 类型 KOSTL CHAR 10 0 成本中心 BLDAT 1 类型 BLDAT DATS 8 0 凭证中的凭证日期 XBLNR 1 类型 XBLNR CHAR 16 0 参考凭证编号
行项目结构：ZMMS002
ZEILE 1 类型 MBLPO NUMC 4 0 物料凭证中的项目 MATNR 1 类型 MATNR CHAR 18 0 物料号 WERKS 1 类型 WERKS_D CHAR 4 0 工厂 LGORT 1 类型 LGORT_D CHAR 4 0 库存地点 ERFMG 1 类型 ERFMG QUAN 13 3 以输入单位计的数量 SGTXT 1 类型 SGTXT CHAR 50 0 项目文本 ERFME 1 类型 ERFME UNIT 3 0 条目单位
函数代码：
FUNCTION ZMM_OAMB1A.
*"----------------------------------------------------------------------
*"*"本地接口：
*" TABLES
*" T_TAB STRUCTURE ZJKS001 OPTIONAL
*" T_TAB_I STRUCTURE ZJKS002 OPTIONAL
*"----------------------------------------------------------------------
DATA:S_TAB TYPE ZJKS001."表头结构
DATA:S_TAB_I TYPE ZJKS002."表体结构
FIELD-SYMBOLS: <DYN_WA>,"表头
<DYN_LA>,"表体
<DYN_FIELD>."字段
DATA:GS_ZTMM_WADAT TYPE ZTMM_WADAT.
DATA:GT_ZMB1A01 TYPE TABLE OF ZMB1A01,
GS_ZMB1A01 LIKE LINE OF GT_ZMB1A01.
DATA:LV_NUM TYPE N.
DATA:LS_TABH TYPE ZMMS001,
LS_TABI TYPE ZMMS002.
DATA:LV_FUNC TYPE CHAR50."结构ID
DATA:LV_XBLNR TYPE XBLNR1.
DATA:GS_HEAD TYPE BAPI2017_GM_HEAD_01,
GV_CODE TYPE BAPI2017_GM_CODE VALUE ‘03‘,
GT_ITEM TYPE TABLE OF BAPI2017_GM_ITEM_CREATE,
GS_ITEM TYPE BAPI2017_GM_ITEM_CREATE,
GT_RETU TYPE TABLE OF BAPIRET2,
GS_RETU TYPE BAPIRET2,
GV_MDOC TYPE BAPI2017_GM_HEAD_RET-MAT_DOC.
DEFINE MESGADD."返回消息赋值
S_TAB-FIELDNAME = &1.
S_TAB-VALUE = &2.
APPEND S_TAB TO T_TAB.
END-OF-DEFINITION.
"************************************************************正式程序
READ TABLE T_TAB INTO S_TAB WITH KEY FIELDNAME = ‘FUNCTION‘.
IF SY-SUBRC = 0.
LV_FUNC = S_TAB-VALUE.
IF LV_FUNC = ‘OAMB1A‘.
ELSE.
REFRESH:T_TAB.
MESGADD:‘RETURN‘ ‘E‘,
‘MESSAGE‘ ‘引用错误函数，请联系管理员！‘.
RETURN.
ENDIF.
ELSE.
REFRESH:T_TAB.
MESGADD:‘RETURN‘ ‘E‘,
‘MESSAGE‘ ‘未指定函数！‘.
RETURN.
ENDIF.
IF T_TAB[] IS INITIAL OR T_TAB_I[] IS INITIAL.
REFRESH:T_TAB.
MESGADD:‘RETURN‘ ‘E‘,
‘MESSAGE‘ ‘传入参数不完整，需要完整的表头表体信息！‘.
RETURN.
ENDIF.
ASSIGN LS_TABH TO <DYN_WA>."表头结构
ASSIGN LS_TABI TO <DYN_LA>."表体结构
LOOP AT T_TAB INTO S_TAB."表头数据装换
ASSIGN COMPONENT S_TAB-FIELDNAME OF STRUCTURE <DYN_WA> TO <DYN_FIELD>.
IF SY-SUBRC = 0.
<DYN_FIELD> = S_TAB-VALUE.
ENDIF.
ENDLOOP.
IF LS_TABH-KOSTL IS INITIAL.
MESGADD:‘RETURN‘ ‘E‘,
‘MESSAGE‘ ‘成本中心不能为空！‘.
ENDIF.
GS_HEAD-REF_DOC_NO = LS_TABH-XBLNR.
GS_HEAD-PR_UNAME = SY-UNAME.
CALL FUNCTION ‘NUMBER_RANGE_ENQUEUE‘
EXPORTING
OBJECT = ‘ZOALS‘
EXCEPTIONS
FOREIGN_LOCK = 1
OBJECT_NOT_FOUND = 2
SYSTEM_FAILURE = 3
OTHERS = 4.
IF SY-SUBRC = 0.
CALL FUNCTION ‘NUMBER_GET_NEXT‘
EXPORTING
NR_RANGE_NR = ‘01‘
OBJECT = ‘ZOALS‘
IGNORE_BUFFER = ‘X‘
IMPORTING
NUMBER = GS_ZMB1A01-ZJLLSH
EXCEPTIONS
INTERVAL_NOT_FOUND = 1
NUMBER_RANGE_NOT_INTERN = 2
OBJECT_NOT_FOUND = 3
QUANTITY_IS_0 = 4
QUANTITY_IS_NOT_1 = 5
INTERVAL_OVERFLOW = 6
BUFFER_OVERFLOW = 7
OTHERS = 8.
IF SY-SUBRC = 0.
CALL FUNCTION ‘NUMBER_RANGE_DEQUEUE‘
EXPORTING
OBJECT = ‘ZOALS‘
EXCEPTIONS
OBJECT_NOT_FOUND = 1
OTHERS = 2.
ENDIF.
ENDIF.
LOOP AT T_TAB_I INTO S_TAB_I."表体数据装换
AT NEW COL.
CLEAR LS_TABI.
ENDAT.
ASSIGN COMPONENT S_TAB_I-FIELDNAME OF STRUCTURE <DYN_LA> TO <DYN_FIELD>.
IF SY-SUBRC = 0.
<DYN_FIELD> = S_TAB_I-VALUE.
ENDIF.
AT END OF COL.
LV_NUM = LV_NUM + 1.
IF LS_TABI-MATNR IS INITIAL.
MESGADD:‘RETURN‘ ‘E‘,
‘MESSAGE‘ ‘物料编码不能为空！‘.
RETURN.
ENDIF.
IF LS_TABI-WERKS IS INITIAL.
MESGADD:‘RETURN‘ ‘E‘,
‘MESSAGE‘ ‘工厂编码不能为空！‘.
RETURN.
ENDIF.
IF LS_TABI-LGORT IS INITIAL.
MESGADD:‘RETURN‘ ‘E‘,
‘MESSAGE‘ ‘库位编码不能为空！‘.
RETURN.
ENDIF.
IF LS_TABI-ERFMG IS INITIAL.
MESGADD:‘RETURN‘ ‘E‘,
‘MESSAGE‘ ‘数量字段不能为空！‘.
RETURN.
ENDIF.
IF LS_TABI-ERFME IS INITIAL.
MESGADD:‘RETURN‘ ‘E‘,
‘MESSAGE‘ ‘单位不能为空！‘.
RETURN.
ENDIF.
CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_INPUT‘
EXPORTING
INPUT = LS_TABI-MATNR
IMPORTING
OUTPUT = LS_TABI-MATNR.
CALL FUNCTION ‘CONVERSION_EXIT_CUNIT_INPUT‘
EXPORTING
INPUT = LS_TABI-ERFME
LANGUAGE = SY-LANGU
IMPORTING
OUTPUT = LS_TABI-ERFME
EXCEPTIONS
UNIT_NOT_FOUND = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
ENDIF.
GS_ITEM-MATERIAL = LS_TABI-MATNR.
GS_ITEM-PLANT = LS_TABI-WERKS.
IF GS_HEAD-DOC_DATE IS INITIAL.
SELECT SINGLE * INTO CORRESPONDING FIELDS OF GS_ZTMM_WADAT
FROM ZTMM_WADAT
WHERE WERKS = LS_TABI-WERKS
AND SDATE = SY-DATUM
AND ETIME >= SY-UZEIT
AND STIME <= SY-UZEIT.
IF SY-SUBRC = 0.
GS_HEAD-DOC_DATE = GS_ZTMM_WADAT-BUDAT.
GS_HEAD-PSTNG_DATE = GS_ZTMM_WADAT-BUDAT.
ELSE.
GS_HEAD-DOC_DATE = SY-DATUM.
GS_HEAD-PSTNG_DATE = SY-DATUM.
ENDIF.
ENDIF.
GS_ITEM-STGE_LOC = LS_TABI-LGORT.
GS_ITEM-MOVE_TYPE = ‘201‘.
GS_ITEM-ENTRY_QNT = LS_TABI-ERFMG.
GS_ITEM-ENTRY_UOM = LS_TABI-ERFME.
IF LS_TABH-KOSTL IS INITIAL.
MESGADD:‘RETURN‘ ‘E‘,
‘MESSAGE‘ ‘传递值中成本中心为空,请联系管理员！‘.
RETURN.
ENDIF.
CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_INPUT‘
EXPORTING
INPUT = LS_TABH-KOSTL
IMPORTING
OUTPUT = LS_TABH-KOSTL.
* CONCATENATE ‘000‘ LS_TABH-KOSTL INTO GS_ITEM-COSTCENTER.
* CONDENSE GS_ITEM-COSTCENTER NO-GAPS.
GS_ITEM-COSTCENTER = LS_TABH-KOSTL.
GS_ITEM-ITEM_TEXT = LS_TABI-SGTXT.
APPEND GS_ITEM TO GT_ITEM.
"ADD BY LY FOR LOG
* GS_ZMB1A01-ZJLLSH =
GS_ZMB1A01-POSNR = LV_NUM.
GS_ZMB1A01-XBLNR = GS_HEAD-REF_DOC_NO.
GS_ZMB1A01-KOSTL = GS_ITEM-COSTCENTER.
GS_ZMB1A01-MATNR = GS_ITEM-MATERIAL.
GS_ZMB1A01-WERKS = GS_ITEM-PLANT.
GS_ZMB1A01-LGORT = GS_ITEM-STGE_LOC.
GS_ZMB1A01-ERFMG = GS_ITEM-ENTRY_QNT.
GS_ZMB1A01-ERFME = GS_ITEM-ENTRY_UOM.
GS_ZMB1A01-DAT = SY-DATUM.
GS_ZMB1A01-TIM = SY-UZEIT.
APPEND GS_ZMB1A01 TO GT_ZMB1A01.
"ADD BY LY FOR LOG
ENDAT.
ENDLOOP.
CLEAR:LV_XBLNR.
SELECT SINGLE XBLNR INTO LV_XBLNR
FROM MKPF WHERE XBLNR = LS_TABH-XBLNR.
IF LV_XBLNR IS NOT INITIAL.
MESGADD:‘RETURN‘ ‘S‘.
RETURN.
ENDIF.
CALL FUNCTION ‘BAPI_GOODSMVT_CREATE‘
EXPORTING
GOODSMVT_HEADER = GS_HEAD
GOODSMVT_CODE = GV_CODE
IMPORTING
* GOODSMVT_HEADRET =
MATERIALDOCUMENT = GV_MDOC
* MATDOCUMENTYEAR =
TABLES
GOODSMVT_ITEM = GT_ITEM
RETURN = GT_RETU.
READ TABLE GT_RETU INTO GS_RETU WITH KEY TYPE = ‘E‘.
IF SY-SUBRC = 0.
LOOP AT GT_RETU INTO GS_RETU WHERE TYPE = ‘E‘.
MESGADD:‘RETURN‘ ‘E‘,
‘MESSAGE‘ GS_RETU-MESSAGE.
ENDLOOP.
CALL FUNCTION ‘BAPI_TRANSACTION_ROLLBACK‘.
ELSE.
LOOP AT GT_ZMB1A01 INTO GS_ZMB1A01.
GS_ZMB1A01-MBLNR = GV_MDOC.
MODIFY GT_ZMB1A01 FROM GS_ZMB1A01.
ENDLOOP.
MODIFY ZMB1A01 FROM TABLE GT_ZMB1A01.
MESGADD:‘RETURN‘ ‘S‘,
‘MBLNR‘ GV_MDOC.
CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT‘
EXPORTING
WAIT = ‘X‘.
ENDIF.
ENDFUNCTION.
时间： 2024-08-10 23:07:49