ME11创建信息记录 Function BAPI

《ME11创建信息记录 Function BAPI》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、ME11创建信息记录FunctionBAPI DATA: WA_EINA TYPE EINA,      WA_EINE TYPE EINE,      WA_EINA_NEW TYPE EINA,      WA_EINE_NEW TYPE EINE.  DATA: IT_HEAD TYPE STANDARD TABLE OF MESTXH,        IT_LINE TYPE STANDARD TABLE OF MESTXL.  DATA: IT_EINA TYPE STANDARD TABLE OF EINA WITH HEADER LINE,   

2、     IT_EINE TYPE STANDARD TABLE OF EINE.  DATA: RETURN TYPE STANDARD TABLE OF BAPIRETURN WITH HEADER LINE.  DATA: L_NETPR LIKE EKPO-NETPR.  DATA: L_KOMV TYPE KOMV,        L_EKPO TYPE EKPO.  CLEAR :WA_EINA,WA_EINE,WA_EINA_NEW,WA_EINE_NEW,IT_HEAD,IT_LINE,IT_EINA,IT_EINE,RETURN,L_NETP

3、R,L_KOMV,L_EKPO.  WA_EINA-MATNR = GS_PRINFO-MATNR.  WA_EINA-LIFNR = GS_PRINFO-LIFNR.  WA_EINE-EKORG = GS_PRINFO-VKORG.  WA_EINE-WERKS = GS_PRINFO-VKORG.  WA_EINE-NETPR = GS_PRINFO-ABMPR.*wa_eine-ekgrp = 'D01'.  WA_EINE-NORBM = '1'.  WA_EINE-APLFZ = '1'.  WA_EINE-EFFPR = GS_PRINFO-AB

4、MPR.  WA_EINE-MWSKZ = 'J1'.  WA_EINE-PEINH = GS_PRINFO-PEINH.*  CONCATENATE 'ZSDP201创建' INTO WA_EINA-IDNLF.  CALL FUNCTION 'ME_INITIALIZE_INFORECORD'.  CALL FUNCTION 'ME_DIRECT_INPUT_INFORECORD'    EXPORTING      ACTIVITY         = 'V'"V 修改,H创建      I_EINA           = WA_EINA      I

5、_EINE           = WA_EINE      I_NO_SUPPOSE     = ''      I_VORGA          = 'A'*     I_NO_SUPPOSE     = 'X'"重要*     I_VORGA          = 'B'*     i_skip_nr_check  = '1'    IMPORTING      E_EINA           = WA_EINA_NEW      E_EINE           = WA_EINE_NEW    TABLES      T_HEAD         

6、  = IT_HEAD      T_LINE           = IT_LINE    EXCEPTIONS      TEXTNAME_INVALID = 1      OTHERS           = 2.  IF SY-SUBRC <> 0.    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  ENDIF.  CALL FUNCTION 'ME_POST_INFORECORD'    

7、EXPORTING      I_MATNR  = WA_EINA-MATNR      O_MATNR  = WA_EINA-MATNR    TABLES      T_EINA_I = IT_EINA.*APPEND wa_eine_new to it_eine.  CALL FUNCTION 'ME_UPDATE_INFORECORD_COND'    TABLES      REINE = IT_EINE.  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.  READ TABLE IT_EINA INDEX 1.  

8、WRITE:/ ICON_GREEN_