ME11创建信息记录 Function BAPI

现在的位置: 首页 > 综合 > 正文

ME11创建信息记录 Function BAPI

2013年10月04日 ⁄ 综合 ⁄ 共 2042字 ⁄ 字号小中大 ⁄ 评论关闭

  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,
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_NETPR,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-ABMPR.
  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_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           = 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.