物料的mrp

来源：互联网发布：mac查看mysql安装路径编辑：程序博客网时间：2024/05/10 02:50

对于MD03，MD42均适用

*&---------------------------------------------------------------------*
*&      Form  run_mrp
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_MATNR    text
*      -->P_WERKS    text
*----------------------------------------------------------------------*
form run_mrp  using p_matnr
                    p_werks.

  data:ret_msg like bapiret2,
       l_st_mrp_plan_para type bapi_mrp_plan_param.
  clear:l_st_mrp_plan_para.
  l_st_mrp_plan_para-proc_type = 'N'.
  l_st_mrp_plan_para-create_purreq = '3'.
  l_st_mrp_plan_para-create_sched_lines = '3'.
  l_st_mrp_plan_para-create_mrp_list    = '1'.
  l_st_mrp_plan_para-planning_mode      = '2'.
  l_st_mrp_plan_para-scheduling_pldords = '2'.
  l_st_mrp_plan_para-planning_date      = sy-datum.

  call function 'BAPI_MATERIAL_PLANNING'
    exporting
      material       = p_matnr
      plant          = p_werks
      mrp_plan_param = l_st_mrp_plan_para
    importing
      return         = ret_msg.

  if ret_msg-type = 'E'.
    it_erro_info-matnr = p_matnr.
    it_erro_info-werks = p_werks.
    it_erro_info-erro_msg = ret_msg-message.
    append it_erro_info.
    clear:it_erro_info.
  else.
    call function 'BAPI_TRANSACTION_COMMIT'
      exporting
        wait = 'X'.

  endif.

endform.                    " RUN_MRP