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'EXPORTINGinput   = st_tab-lifnrIMPORTINGoutput  = 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'EXPORTINGactivity         = l_activity  "v 修改,h创建i_eina           = wa_einai_eine           = wa_einei_no_suppose     =  ''i_vorga          =  'A'IMPORTINGe_eina           = wa_eina_newe_eine           = wa_eine_newTABLESt_head           = it_headt_line           = it_lineEXCEPTIONStextname_invalid =  1OTHERS            =  2 .IF  sy-subrc <>  0 .MESSAGE   ID  sy-msgid  TYPE  sy-msgty  NUMBER  sy-msgnoWITH  sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF .CALL   FUNCTION   'ME_POST_INFORECORD'EXPORTINGi_matnr  = wa_eina-matnro_matnr  = wa_eina-matnrTABLESt_eina_i = it_eina.*APPEND wa_eine_new to it_eine.CALL   FUNCTION   'ME_UPDATE_INFORECORD_COND'TABLESreine = it_eine.CALL   FUNCTION   'BAPI_TRANSACTION_COMMIT' .ENDLOOP