FUNCTION ZPP_BAPI_PRODUCT_STOCK_IN.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  EXPORTING
*"     VALUE(CZ_MESS) TYPE  CHAR40
*"  TABLES
*"      INPUT STRUCTURE  ZPP_BAPI_PRODUCT_STOCK_INPUT
*"      OUTPUT STRUCTURE  ZPP_BAPI_PRODUCT_STOCK_OUTPUT
*"----------------------------------------------------------------------DATA:  GOODSMVT_HEADER  TYPE   BAPI2017_GM_HEAD_01,GOODSMVT_CODE    TYPE   BAPI2017_GM_CODE,GOODSMVT_HEADRET TYPE   BAPI2017_GM_HEAD_RET,MATERIALDOCUMENT TYPE   BAPI2017_GM_HEAD_RET-MAT_DOC,MATDOCUMENTYEAR  TYPE   BAPI2017_GM_HEAD_RET-DOC_YEAR,GOODSMVT_ITEM    TYPE STANDARD TABLE OF   BAPI2017_GM_ITEM_CREATE,GOODSMVT_SERIALNUMBER TYPE STANDARD TABLE OF   BAPI2017_GM_SERIALNUMBER,RETURN           TYPE STANDARD TABLE OF   BAPIRET2 ,W_CRETURN        TYPE   BAPIRET2,W_GOODSMVT_ITEM  TYPE                     BAPI2017_GM_ITEM_CREATE,W_GOODSMVT_SERIALNUMBER TYPE              BAPI2017_GM_SERIALNUMBER,W_RETURN         TYPE   BAPIRET2.
*  接口调用日志DATA: LT_LOG TYPE STANDARD TABLE OF ZZT_INFLOG,LW_LOG TYPE ZZT_INFLOG.CLEAR:GOODSMVT_HEADER,GOODSMVT_CODE,GOODSMVT_HEADRET,MATERIALDOCUMENT,MATDOCUMENTYEAR,GOODSMVT_ITEM ,RETURN,W_RETURN,GOODSMVT_SERIALNUMBER,W_GOODSMVT_SERIALNUMBER."LT_TPMSG,LT_RETMSG.REFRESH:GOODSMVT_ITEM,RETURN,GOODSMVT_SERIALNUMBER."事物码GOODSMVT_CODE-GM_CODE = '02'.               "MB31
*  **********gm_code取值含义*******
*  *******01     MB01
*  *******02     MB31
*  *******03     MB1A
*  *******04     MB1B
*  *******05     MB1C
*  *******06     MB11
*  *******07     MB04"头GOODSMVT_HEADER-HEADER_TXT = INPUT-BKTXT.GOODSMVT_HEADER-PSTNG_DATE = SY-DATUM.GOODSMVT_HEADER-DOC_DATE   = SY-DATUM."明细DATA:LV_ENTRY_QNT TYPE I.CLEAR: LV_ENTRY_QNT,INPUT.LV_ENTRY_QNT = LINES( INPUT ).READ TABLE INPUT INDEX 1.IF SY-SUBRC EQ 0.W_GOODSMVT_ITEM-MOVE_TYPE = '101'.W_GOODSMVT_ITEM-STCK_TYPE = 'F'.W_GOODSMVT_ITEM-MVT_IND = 'F'.W_GOODSMVT_ITEM-PLANT = INPUT-WERKS.W_GOODSMVT_ITEM-ORDERID = INPUT-AUFNR.W_GOODSMVT_ITEM-ENTRY_QNT = LV_ENTRY_QNT.
***  生产订单信息SELECT SINGLE PWERK LGORT MATNR MEINSINTO (W_GOODSMVT_ITEM-PLANT,W_GOODSMVT_ITEM-STGE_LOC,W_GOODSMVT_ITEM-MATERIAL,W_GOODSMVT_ITEM-ENTRY_UOM)FROM AFPOWHERE AUFNR = INPUT-AUFNR.APPEND W_GOODSMVT_ITEM TO GOODSMVT_ITEM.ENDIF.
***  称重数据更新IF INPUT-SERNR IS INITIAL AND INPUT-BRGEW IS INITIAL AND INPUT-GEWEI IS INITIAL.CZ_MESS = 'E：序列号 或 重量 或 单位为空！'.ELSE.UPDATE EQUI SET AEDAT = SY-DATUMAENAM = SY-UNAMEBRGEW = INPUT-BRGEWGEWEI = INPUT-GEWEIWHERE EQUNR = INPUT-SERNR.IF SY-SUBRC EQ 0.CZ_MESS = 'S：产品重量数据传输成功！'.COMMIT WORK.ELSE.CZ_MESS = 'E：产品重量数据传输失败！'.ENDIF.ENDIF.LOOP AT INPUT.W_GOODSMVT_SERIALNUMBER-MATDOC_ITM = '0001'.W_GOODSMVT_SERIALNUMBER-SERIALNO = INPUT-SERNR.APPEND W_GOODSMVT_SERIALNUMBER TO GOODSMVT_SERIALNUMBER.ENDLOOP."执行操作CALL FUNCTION 'BAPI_GOODSMVT_CREATE'EXPORTINGGOODSMVT_HEADER  = GOODSMVT_HEADERGOODSMVT_CODE    = GOODSMVT_CODEIMPORTINGGOODSMVT_HEADRET = GOODSMVT_HEADRETMATERIALDOCUMENT = MATERIALDOCUMENTMATDOCUMENTYEAR  = MATDOCUMENTYEARTABLESGOODSMVT_ITEM    = GOODSMVT_ITEMGOODSMVT_SERIALNUMBER = GOODSMVT_SERIALNUMBERRETURN           = RETURN.READ TABLE RETURN WITH KEY TYPE = 'E' INTO W_RETURN.IF SY-SUBRC <> 0.CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGWAIT = 'X'.IF MATERIALDOCUMENT IS NOT INITIAL.OUTPUT-FLAG = 'S'.OUTPUT-NOTES = '成品入库成功!'.OUTPUT-MBLNR = MATERIALDOCUMENT.APPEND OUTPUT.ENDIF.
***填写日志CLEAR LW_LOG.LW_LOG-INTTY     = 'SI'.LW_LOG-DIRECT    = '2'.LW_LOG-INFTX     = '扫码自动入库&更新重量'.LW_LOG-OKEY1     = MATERIALDOCUMENT.LW_LOG-OKEY2     = CZ_MESS.LW_LOG-IKEY1     = INPUT-AUFNR.LW_LOG-IKEY2     = INPUT-WERKS.LW_LOG-IKEY3     = INPUT-SERNR.LW_LOG-IKEY4     = INPUT-BRGEW.LW_LOG-LOGST     = 'S'.                   "日志状态LW_LOG-LOGTX     = '成品扫码入库成功!'.            "日志文本LW_LOG-CAFUN     = 'ZPP_BAPI_PRODUCT_STOCK_IN'.   "调用函数APPEND LW_LOG TO LT_LOG.CLEAR OUTPUT.ELSE.CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.OUTPUT-FLAG = 'E'.CONCATENATE '成品入库失败:' W_RETURN-MESSAGE INTO OUTPUT-NOTES.APPEND OUTPUT.CLEAR LW_LOG.LW_LOG-INTTY     = 'SI'.LW_LOG-DIRECT    = '2'.LW_LOG-INFTX     = '扫码自动入库&更新重量'.
*    LW_LOG-OKEY1     = .LW_LOG-OKEY2     = CZ_MESS.LW_LOG-IKEY1     = INPUT-AUFNR.LW_LOG-IKEY2     = INPUT-WERKS.LW_LOG-IKEY3     = INPUT-SERNR.LW_LOG-IKEY4     = INPUT-BRGEW.LW_LOG-LOGST     = 'E'.                   "日志状态LW_LOG-LOGTX     = OUTPUT-NOTES.            "日志文本LW_LOG-CAFUN     = 'ZPP_BAPI_PRODUCT_STOCK_IN'.   "调用函数APPEND LW_LOG TO LT_LOG.CLEAR OUTPUT.ENDIF.
IF INPUT[] IS NOT INITIAL.CALL FUNCTION TABLESIT_LOG        = LT_LOG.IF SY-SUBRC EQ 0.COMMIT WORK.ENDIF.ENDIF.CLEAR:INPUT[].ENDFUNCTION.