SAP ABAP 信息记录批量修改

DATA : l_activity  TYPE   c .

*  IF r1 = 'X'.
*    l_activity = 'H'.
*  ELSE.
*    l_activity = 'V'.
*  ENDIF.

   LOOP   AT  it_tab  INTO  st_tab.

**供应商主数据加前导零
     CALL   FUNCTION   'CONVERSION_EXIT_ALPHA_INPUT'
       EXPORTING
         input   = st_tab-lifnr
       IMPORTING
         output  = st_tab-lifnr.

    wa_eina-matnr = st_tab-matnr.   "物料，

    wa_eina-lifnr = st_tab-lifnr.   "供应商

    wa_eine-ekorg =  'WYPO' .         "采购组织
    wa_eine-werks =  'SH01' .         "工厂

    wa_eine-netpr = st_tab-netpr.    "单位价格

    wa_eina-lifab = st_tab-kdatb.   "有效开始日期
    wa_eina-lifbi = st_tab-kdate.   "有效结束日期

    wa_eine-norbm =  '1' .             "标准采购订单数量
    wa_eine-aplfz =  '1' .             "计划的天数内交货
    wa_eine-effpr =  '100' .           "采购信息记录中的有效价格

     CALL   FUNCTION   'ME_DIRECT_INPUT_INFORECORD'
       EXPORTING
        activity         = l_activity  "v 修改,h创建
        i_eina           = wa_eina
        i_eine           = wa_eine
        i_no_suppose     =  ''
        i_vorga          =  'A'
       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 .



     CALL   FUNCTION   'ME_POST_INFORECORD'
       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' .

   ENDLOOP