SAP 采购信息记录创建
试了很多网上采购信息记录的创建，各种函数的 都没有完美的，最后还是决定使用BDC。
把功能封装成函数 方便调用。
其中关键点：交货日期和单价重新定义了变量。
FUNCTION Y_TEST_FM_BP006. *"---------------------------------------------------------------------- *"*"本地接口： *" TABLES *" TT_INPUT STRUCTURE ZBP003 *" TT_RETURN STRUCTURE BAPIRET1 *"---------------------------------------------------------------------- LOOP AT TT_INPUT. "首先判断采购信息记录是否已创建 DATA:ZAPLFZ TYPE STRING. DATA:ZNETPR TYPE STRING. ZAPLFZ = TT_INPUT-APLFZ. ZNETPR = TT_INPUT-NETPR. TT_INPUT-MATNR = |{ TT_INPUT-MATNR ALPHA = IN WIDTH = 18 }| . TT_INPUT-LIFNR = |{ TT_INPUT-LIFNR ALPHA = IN }|. "获取交货计划天数 SELECT SINGLE PLIFZ INTO @DATA(LV_PLIFZ) FROM MARC WHERE MATNR = @TT_INPUT-MATNR AND WERKS = @TT_INPUT-WERKS. "若系统中已维护交货计划天数，则使用系统中数据 IF LV_PLIFZ IS NOT INITIAL. TT_INPUT-APLFZ = LV_PLIFZ. CLEAR LV_PLIFZ. ENDIF. SELECT * INTO TABLE @DATA(IT_EINE_NEW) FROM EINA AS A INNER JOIN EINE AS B ON A~INFNR = B~INFNR WHERE A~LIFNR = @TT_INPUT-LIFNR AND A~MATNR = @TT_INPUT-MATNR AND B~WERKS = @TT_INPUT-WERKS AND B~EKORG = @TT_INPUT-EKORG AND B~ESOKZ = @TT_INPUT-ESOKZ. IF IT_EINE_NEW[] IS INITIAL. "新建 PERFORM BDC_DYNPRO USING 'SAPMM06I' '0100'. PERFORM BDC_FIELD USING 'BDC_CURSOR' 'RM06I-NORMB'. PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'. PERFORM BDC_FIELD USING 'EINA-LIFNR' TT_INPUT-LIFNR. PERFORM BDC_FIELD USING 'EINA-MATNR' TT_INPUT-MATNR. PERFORM BDC_FIELD USING 'EINE-EKORG' TT_INPUT-EKORG. PERFORM BDC_FIELD USING 'EINE-WERKS' TT_INPUT-WERKS. IF TT_INPUT-ESOKZ = '0'. PERFORM BDC_FIELD USING 'RM06I-NORMB' 'X'. ELSEIF TT_INPUT-ESOKZ = '2'. PERFORM BDC_FIELD USING 'RM06I-KONSI' 'X'. ENDIF. PERFORM BDC_DYNPRO USING 'SAPMM06I' '0101'. PERFORM BDC_FIELD USING 'BDC_CURSOR' 'EINA-MAHN1'. PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'. PERFORM BDC_DYNPRO USING 'SAPMM06I' '0102'. PERFORM BDC_FIELD USING 'BDC_CURSOR' 'EINE-MWSKZ'. PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'. PERFORM BDC_FIELD USING 'EINE-APLFZ' ZAPLFZ. PERFORM BDC_FIELD USING 'EINE-NORBM' '1'. PERFORM BDC_FIELD USING 'EINE-WEBRE' 'X'. PERFORM BDC_FIELD USING 'EINE-MWSKZ' * 'J7'. TT_INPUT-MWSKZ. PERFORM BDC_FIELD USING 'EINE-IPRKZ' 'D'. PERFORM BDC_FIELD USING 'EINE-NETPR' * '13'. ZNETPR. PERFORM BDC_FIELD USING 'EINE-WAERS' * 'CNY'. TT_INPUT-WAERS. PERFORM BDC_FIELD USING 'EINE-PEINH' '1'. PERFORM BDC_DYNPRO USING 'SAPMM06I' '0105'. PERFORM BDC_FIELD USING 'BDC_CURSOR' 'EINE-ANGNR'. PERFORM BDC_FIELD USING 'BDC_OKCODE' '=KO'. PERFORM BDC_DYNPRO USING 'SAPMV13A' '1017'. PERFORM BDC_FIELD USING 'BDC_CURSOR' 'RV13A-DATBI(01)'. PERFORM BDC_FIELD USING 'BDC_OKCODE' '=SICH'. PERFORM BDC_FIELD USING 'RV13A-DATAB(01)' TT_INPUT-DATEB. PERFORM BDC_FIELD USING 'RV13A-DATBI(01)' TT_INPUT-DATEE. CALL TRANSACTION 'ME11' USING BDCDATA MODE 'N' UPDATE 'L' MESSAGES INTO MESSTAB. COMMIT WORK AND WAIT. CLEAR EE. LOOP AT MESSTAB WHERE MSGTYP = 'E'. EE = 'X'. CLEAR MESSTAB. ENDLOOP. CLEAR: MESSTAB,ZNETPR,ZAPLFZ. IF EE NE 'X'. READ TABLE MESSTAB WITH KEY MSGTYP = 'S' DYNAME = 'SAPMM06I'. TT_RETURN-ID = MESSTAB-MSGV1. TT_RETURN-MESSAGE = |采购信息记录{ TT_RETURN-ID }创建成功！|. TT_RETURN-TYPE = 'S'. APPEND TT_RETURN. CLEAR: TT_RETURN. ELSE. CLEAR ITAB_100[]. READ TABLE MESSTAB WITH KEY MSGTYP = 'E'. SELECT * INTO TABLE ITAB_100 FROM T100 WHERE SPRSL = MESSTAB-MSGSPRA AND ARBGB = MESSTAB-MSGID AND MSGNR = MESSTAB-MSGNR. IF SY-SUBRC = 0. READ TABLE ITAB_100 INDEX 1. L_MSTRING = ITAB_100-TEXT. IF L_MSTRING CS '&1'. REPLACE '&1' WITH MESSTAB-MSGV1 INTO L_MSTRING. REPLACE '&2' WITH MESSTAB-MSGV2 INTO L_MSTRING. REPLACE '&3' WITH MESSTAB-MSGV3 INTO L_MSTRING. REPLACE '&4' WITH MESSTAB-MSGV4 INTO L_MSTRING. ELSE. REPLACE '&' WITH MESSTAB-MSGV1 INTO L_MSTRING. REPLACE '&' WITH MESSTAB-MSGV2 INTO L_MSTRING. REPLACE '&' WITH MESSTAB-MSGV3 INTO L_MSTRING. REPLACE '&' WITH MESSTAB-MSGV4 INTO L_MSTRING. ENDIF. CONDENSE L_MSTRING NO-GAPS. CONCATENATE '创建失败：' L_MSTRING INTO L_MSTRING. TT_RETURN-MESSAGE = L_MSTRING. TT_RETURN-TYPE = 'E'. APPEND TT_RETURN. CLEAR TT_RETURN. ENDIF. ENDIF. ELSEIF IT_EINE_NEW[] IS NOT INITIAL. "修改 CLEAR: BDCDATA[],MESSTAB[]. PERFORM BDC_DYNPRO USING 'SAPMM06I' '0100'. PERFORM BDC_FIELD USING 'BDC_CURSOR' 'EINA-LIFNR'. PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'. PERFORM BDC_FIELD USING 'EINA-LIFNR' TT_INPUT-LIFNR. PERFORM BDC_FIELD USING 'EINA-MATNR' TT_INPUT-MATNR. PERFORM BDC_FIELD USING 'EINE-EKORG' TT_INPUT-EKORG. PERFORM BDC_FIELD USING 'EINE-WERKS' TT_INPUT-WERKS. IF TT_INPUT-ESOKZ = '0'. PERFORM BDC_FIELD USING 'RM06I-NORMB' 'X'. ELSEIF TT_INPUT-ESOKZ = '2'. PERFORM BDC_FIELD USING 'RM06I-KONSI' 'X'. ENDIF. PERFORM BDC_DYNPRO USING 'SAPMM06I' '0101'. PERFORM BDC_FIELD USING 'BDC_CURSOR' 'EINA-MAHN1'. PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'. PERFORM BDC_DYNPRO USING 'SAPMM06I' '0102'. PERFORM BDC_FIELD USING 'BDC_CURSOR' 'EINE-MWSKZ'. PERFORM BDC_FIELD USING 'BDC_OKCODE' '=KO'. PERFORM BDC_FIELD USING 'EINE-APLFZ' ZAPLFZ. PERFORM BDC_FIELD USING 'EINE-NORBM' '1'. PERFORM BDC_FIELD USING 'EINE-WEBRE' 'X'. PERFORM BDC_FIELD USING 'EINE-MWSKZ' TT_INPUT-MWSKZ. PERFORM BDC_FIELD USING 'EINE-IPRKZ' 'D'. PERFORM BDC_DYNPRO USING 'SAPLV14A' '0102'. PERFORM BDC_FIELD USING 'BDC_CURSOR' 'VAKE-DATAB(01)'. PERFORM BDC_FIELD USING 'BDC_OKCODE' '=NEWD'. PERFORM BDC_DYNPRO USING 'SAPMV13A' '1017'. PERFORM BDC_FIELD USING 'BDC_CURSOR' 'RV13A-DATBI(01)'. PERFORM BDC_FIELD USING 'BDC_OKCODE' '=SICH'. PERFORM BDC_FIELD USING 'KONP-KBETR(01)' ZNETPR. PERFORM BDC_FIELD USING 'RV13A-DATAB(01)' TT_INPUT-DATEB. PERFORM BDC_FIELD USING 'RV13A-DATBI(01)' TT_INPUT-DATEE. CALL TRANSACTION 'ME12' USING BDCDATA MODE 'N' UPDATE 'L' MESSAGES INTO MESSTAB. COMMIT WORK AND WAIT. CLEAR EE. LOOP AT MESSTAB WHERE MSGTYP = 'E'. EE = 'X'. CLEAR MESSTAB. ENDLOOP. CLEAR: MESSTAB,ZNETPR,ZAPLFZ. IF EE NE 'X'. READ TABLE MESSTAB WITH KEY MSGTYP = 'S' DYNAME = 'SAPMM06I'. TT_RETURN-ID = MESSTAB-MSGV1. TT_RETURN-MESSAGE = '更新成功！'. TT_RETURN-TYPE = 'S'. APPEND TT_RETURN. CLEAR TT_RETURN. ELSE. CLEAR ITAB_100[]. READ TABLE MESSTAB WITH KEY MSGTYP = 'E'. SELECT * INTO TABLE ITAB_100 FROM T100 WHERE SPRSL = MESSTAB-MSGSPRA AND ARBGB = MESSTAB-MSGID AND MSGNR = MESSTAB-MSGNR. IF SY-SUBRC = 0. READ TABLE ITAB_100 INDEX 1. L_MSTRING = ITAB_100-TEXT. IF L_MSTRING CS '&1'. REPLACE '&1' WITH MESSTAB-MSGV1 INTO L_MSTRING. REPLACE '&2' WITH MESSTAB-MSGV2 INTO L_MSTRING. REPLACE '&3' WITH MESSTAB-MSGV3 INTO L_MSTRING. REPLACE '&4' WITH MESSTAB-MSGV4 INTO L_MSTRING. ELSE. REPLACE '&' WITH MESSTAB-MSGV1 INTO L_MSTRING. REPLACE '&' WITH MESSTAB-MSGV2 INTO L_MSTRING. REPLACE '&' WITH MESSTAB-MSGV3 INTO L_MSTRING. REPLACE '&' WITH MESSTAB-MSGV4 INTO L_MSTRING. ENDIF. CONDENSE L_MSTRING NO-GAPS. CONCATENATE '更新失败：' L_MSTRING INTO L_MSTRING. TT_RETURN-MESSAGE = L_MSTRING. TT_RETURN-TYPE = 'E'. APPEND TT_RETURN. CLEAR TT_RETURN. ENDIF. ENDIF. ENDIF. ENDLOOP. ENDFUNCTION.
FUNCTION-POOL ZKING006. "MESSAGE-ID .. * INCLUDE LZKING006D... " Local class definition DATA: BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE. DATA: MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE. DATA: E_GROUP_OPENED. DATA: EE TYPE C. DATA: ITAB_100 TYPE STANDARD TABLE OF T100 WITH HEADER LINE. DATA: L_MSTRING TYPE STRING.
***INCLUDE LZKING006F01. *----------------------------------------------------------------------* FORM BDC_FIELD USING FNAM FVAL. CLEAR BDCDATA. BDCDATA-FNAM = FNAM. BDCDATA-FVAL = FVAL. APPEND BDCDATA. ENDFORM. FORM BDC_DYNPRO USING PROGRAM DYNPRO. CLEAR BDCDATA. BDCDATA-PROGRAM = PROGRAM. BDCDATA-DYNPRO = DYNPRO. BDCDATA-DYNBEGIN = 'X'. APPEND BDCDATA. ENDFORM.
