matinal：SAP ABAP 函数异步调用总结（三）

*&---------------------------------------------------------------------*
*& Report  ZMATINAL
*&----------------------------------------------------------------------*
*&----------------------------------------------------------------------*
*  Changer           Changed Date         Request  NO.        Dec.
*&----------------------------------------------------------------------*

report  zmatinal message-id zmess.

tables: mara,marc.

types: begin of gs_out,
        werks type marc-werks,"工厂
        dispo type marc-dispo,"MRP控制员
        matnr type marc-matnr,"物料
        maktx type makt-maktx,"物料描述
        meins type mara-meins,"单位
        matkl type mara-matkl,"物料组
        labst type mard-labst,"NO-X非限制库存
        zsupl type mard-labst,"NO-X过期供给
        zreqd type mard-labst,"NO-X过期需求
        ztype type c,         "期间类型
        ztext type c length 20,"期间类型文本
        dat01 type mard-labst, "期间-one
        dat02 type mard-labst, "期间-two
        dat03 type mard-labst, "期间-three
        dat04 type mard-labst, "期间-four
        dat05 type mard-labst, "期间-five
        dat06 type mard-labst, "期间-six
        dat07 type mard-labst, "期间-seven
        dat08 type mard-labst, "期间-eight
        dat09 type mard-labst, "期间-nine
        dat10 type mard-labst, "期间-ten
        dat11 type mard-labst, "期间-evelen
        dat12 type mard-labst, "期间-twelve
       end of gs_out,

       begin of gs_dtl,
        werks type marc-werks,"工厂
        matnr type marc-matnr,"物料
        zdate type sy-datum,  "需求日期
        delb0 type t457t-delb0,"MRP元素
        extra type mdez-extra,"MRP元素数据
        mng01 type mdez-mng01,"收货数量或需求数量
       end of gs_dtl,

       begin of gs_marc,
        matnr type marc-matnr,"物料ID
        werks type marc-werks,"工厂
        dispo type marc-dispo,"MRP控制员
        matkl type mara-matkl,"物料组
        meins type mara-meins,"基本单位
       end of gs_marc,

       begin of gs_mard,
        matnr type mard-matnr,"物料
        werks type mard-werks,"工厂
        lgort type mard-lgort,"库存地点
        labst type mard-labst,"库存数
       end of gs_mard,

       begin of gs_makt,
        matnr type makt-matnr,"物料
        maktx type makt-maktx,"物料描述
       end of gs_makt,

       begin of gs_task,
        matnr type marc-matnr,"物料
        werks type marc-werks,"工厂
        dispo type marc-dispo,"MRP控制员
        matkl type mara-matkl,"物料组
        meins type mara-meins,"单位
        maktx type makt-maktx,"物料描述
        labst type mard-labst,"库存
        taskname type c length 12,
       end of gs_task.

data: gw_task type gs_task,
      gt_task type standard table of gs_task.

data: gw_out    type gs_out,
      gw_dtl    type gs_dtl,
      gw_mard   type gs_mard.

data: gt_out    type standard table of gs_out,
      gt_dtl    type standard table of gs_dtl,"明细alv
      gt_marc   type standard table of gs_marc,
      gt_marc_d type standard table of gs_marc,
      gt_makt   type standard table of gs_makt,
      gt_mard   type standard table of gs_mard,
      gt_mard_s type standard table of gs_mard.
data: gt_noxlog type standard table of znoxlog with header line.

field-symbols:<fs_out>  type gs_out,
              <fs_mard> type gs_mard,
              <fs_marc> type gs_marc,
              <fs_makt> type gs_makt,
              <fs_mrp>  type bapi_mrp_items,
              <fs>,
              <fs1>,
              <fs2>,
              <fs3>.

data: gt_mrp_items type standard table of bapi_mrp_items."MRP_ITEMs数据


data: g_txt type c length 20,
      g_num type n length 2.
data: g_mondy type d,
      g_sundy type d.
data: g_post  type i.
data: g_mark  type c.

*****-------GRID_ALV定义
class lcl_alv definition deferred.
data: g_alv type ref to lcl_alv.
data: gt_fcat  type lvc_t_fcat,
      gw_fcat  type lvc_s_fcat,
      is_layo  type lvc_s_layo,
      is_vart  type disvariant.
data: g_grid1 type ref to cl_gui_alv_grid,
      g_custom_container1 type ref to cl_gui_custom_container,
      g_container1 type scrfname value 'GRID_01'.
data: ok_code type sy-ucomm,
      save_ok type sy-ucomm.

*-----------------------------------------------------------------------*
*DESC:异步取数变量定义
*-----------------------------------------------------------------------*
data: g_taskname(12) type c, "task name（同时运行的任务名称必须保持唯一）
      g_classname    type rzlli_apcl,   "Server Group Name
      g_applserver   type rzllitab-applserver."RFC Serve Group

data: snd_jobs type i,
      rcv_jobs type i,
      functioncall1(1) type c.

constants: done(1) type c value 'X',
           pnum    type i value 5."进程数

*----------------------------------------------------------------------*
*       CLASS LCL_ALV DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
class lcl_alv definition.
  public section.
    methods:
             create_object,
             fcat_setting,
             layo_setting,
             disp,
             main.

  private section.

endclass.                    "LCL_ALV DEFINITION

*----------------------------------------------------------------------*
*       CLASS LCL_ALV IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
class lcl_alv implementation.
  method create_object.
    if g_custom_container1 is initial.
      "创建容器
      create object g_custom_container1
        exporting
          container_name              = g_container1
        exceptions
          cntl_error                  = 1
          cntl_system_error           = 2
          create_error                = 3
          lifetime_error              = 4
          lifetime_dynpro_dynpro_link = 5
          others                      = 6.
      if sy-subrc ne 0.
        message 'error1' type 'E'.
      endif.

      "创建ALV
      create object g_grid1
        exporting
          i_parent          = g_custom_container1
        exceptions
          error_cntl_create = 1
          error_cntl_init   = 2
          error_cntl_link   = 3
          error_dp_create   = 4
          others            = 5.
      if sy-subrc ne 0.
        message 'error2' type 'E'.
      endif.

    else.
      g_grid1->refresh_table_display( ).
    endif.

  endmethod.                    "CREATE_OBJECT

  method fcat_setting.
    perform frm_set_fcat.

  endmethod.                    "FCAT_SETTING

  method layo_setting.
    is_layo-zebra = 'X'."隔行颜色
    is_layo-sel_mode = 'A'."可选
    is_layo-cwidth_opt = 'X'."输出列显示最优化

    is_vart-report = sy-repid.
  endmethod.                    "LAYO_SETTING

  method disp.
    "输出ALV
    call method g_grid1->set_table_for_first_display
      exporting
        i_structure_name              = 'GS_DTL'
        is_variant                    = is_vart
        i_save                        = 'A'
        i_default                     = 'X'
        is_layout                     = is_layo
      changing
        it_outtab                     = gt_dtl[]
        it_fieldcatalog               = gt_fcat[]
                                                                                                                                                                                                                   "it_sort                       = gt_sort[]
      exceptions
        invalid_parameter_combination = 1
        program_error                 = 2
        too_many_lines                = 3
        others                        = 4.
    if sy-subrc ne 0.
      message 'error3' type 'E'.
    endif.

    call method cl_gui_control=>set_focus
      exporting
        control = g_grid1.
  endmethod.                    "DISP

  method main.
    me->create_object( ).
    me->fcat_setting( ).
    me->layo_setting( ).
    me->disp( ).
  endmethod.                    "MAIN

endclass.                    "LCL_ALV IMPLEMENTATION

*---------------------------------------------------------------------*
* DESC:ALV 变量定义
*---------------------------------------------------------------------*
type-pools: slis.
data: gt_fieldcat    type slis_t_fieldcat_alv with header line,  "定义存放输出字段的内表
      gt_sort        type slis_t_sortinfo_alv,
      gw_layout      type slis_layout_alv, "定义ALV布局设置的工作区
      g_repid        like sy-repid.        "定义系统当前程序名变量
data: gw_stru_disvar type disvariant,        "ALV 显示格式
      gt_events      type slis_t_event.      "ALV 事件

*-----------------------------------------------------------------------*
*DESC:选择屏幕定义
*-----------------------------------------------------------------------*
selection-screen begin of block blk with frame title text-001.
select-options:s_werks for marc-werks obligatory,"工厂
               s_matnr for marc-matnr,"物料
               s_dispo for marc-dispo obligatory,"MRP控制员
               s_matkl for mara-matkl."物料组
select-options:s_lgort for marc-lgpro no-display."NO-X库存
parameters: p_date type mara-ersda default sy-datum obligatory."开始日期
selection-screen end of block blk.

*-----------------------------------------------------------------------*
*INITIALIZATION
*-----------------------------------------------------------------------*
initialization.
  perform frm_init.

*-----------------------------------------------------------------------*
*START-OF-SELECTION
*-----------------------------------------------------------------------*
start-of-selection.
  perform frm_status(zpercent) using 10 '正在读取其他关联数据...'.
  perform frm_get_date."获取计算期间的起始值
  perform frm_get_data."获取基本数据
  if g_mark eq 'X'.
    stop.
  else.
    perform frm_set_lock."设置锁
    perform frm_fill_alv.
    perform frm_set_unlock."解锁
    perform frm_get_event.
    perform frm_init_layout.
    perform frm_sort_build changing gt_sort.
    perform frm_fcat_setting.
    perform frm_output tables gt_out.
  endif.


*&---------------------------------------------------------------------*
*&      Form  frm_init
*&---------------------------------------------------------------------*
*       初始化
*----------------------------------------------------------------------*
form frm_init.
  clear: gt_noxlog,g_mondy,g_sundy.

  "初始化NO-X库存位置
  select *
    into table gt_noxlog
    from znoxlog.

  loop at gt_noxlog.
    s_lgort-low = gt_noxlog-lgort.
    s_lgort-option = 'EQ'.
    s_lgort-sign = 'I'.
    append s_lgort.
  endloop.

endform.                    "frm_init

*&---------------------------------------------------------------------*
*&      Form  frm_get_date
*&---------------------------------------------------------------------*
*       获取日期
*----------------------------------------------------------------------*
form frm_get_date.
  "获取开始日期所在周及时间
  call function 'GET_WEEK_INFO_BASED_ON_DATE'
    exporting
      date   = p_date
    importing
      monday = g_mondy
      sunday = g_sundy.

  g_mondy = p_date.
endform.                    "frm_init

*&---------------------------------------------------------------------*
*&      Form  FRM_get_data
*&---------------------------------------------------------------------*
*       获取基本数据
*----------------------------------------------------------------------*
form frm_get_data.
  "根据输入条件到表MARC及MARA中获取基本数据
  select a~matnr "物料
         a~werks "工厂
         a~dispo "MRP控制员
         b~matkl "物料组
         b~meins "单位
    into table gt_marc
    from marc as a join mara as b on a~matnr = b~matnr
    where a~matnr in s_matnr
      and a~werks in s_werks
      and a~dispo in s_dispo
      and a~lvorm ne 'X'
      and a~mmsta ne '99'
      and b~matkl in s_matkl.

  if gt_marc is not initial.

    "获取物料描述
    gt_marc_d = gt_marc.
    sort: gt_marc_d by matnr.
    delete adjacent duplicates from gt_marc_d comparing matnr.

    select matnr "物料
           maktx "物料描述
      into table gt_makt
      from makt
      for all entries in gt_marc_d
      where matnr = gt_marc_d-matnr
        and spras = '1'.

    "根据内表gt_marc到表MARD中获取库存数
    select matnr "物料
           werks "工厂
           lgort "库存地
           labst "库存
      into table gt_mard
      from mard
      for all entries in gt_marc
      where matnr = gt_marc-matnr
        and werks = gt_marc-werks
        and lgort in s_lgort
        and diskz ne '1'.

    "汇总
    loop at gt_mard assigning <fs_mard>.
      clear:gw_mard.
      move <fs_mard>-matnr to gw_mard-matnr."物料
      move <fs_mard>-werks to gw_mard-werks."工厂
      move <fs_mard>-labst to gw_mard-labst."库存
      collect gw_mard into gt_mard_s.
    endloop.
  else.
    g_mark = 'X'.
    message s006(zppmess) display like 'E'.
  endif.

endform.                    "FRM_get_data

*&---------------------------------------------------------------------*
*&      Form  frm_fill_alv
*&---------------------------------------------------------------------*
*       填充ALV输出
*----------------------------------------------------------------------*
form frm_fill_alv.
  data: l_lgort   type mard-lgort,"库存点变量
        l_count   type i,"列
        l_mondy   type d,"周一
        l_sundy   type d,"周末
        l_num(2)  type n,
        l_txt(20) type c.
  data: l_labst   type mard-labst,"库存
        l_zsupl   type mard-labst,"供给
        l_zreqd   type mard-labst."需求
  data: lt_mrp_01 type standard table of bapi_mrp_items,"计算-NO-X过期供给
        lt_mrp_02 type standard table of bapi_mrp_items,"计算-NO-X过期需求
        lt_mrp_03 type standard table of bapi_mrp_items,"计算-列所对应的NO-X供给
        lt_mrp_04 type standard table of bapi_mrp_items."计算-列所对应的NO-X需求

  sort: gt_makt   by matnr,
        gt_mard_s by matnr werks,
        gt_marc   by matnr werks.

  "临时变量
  data:mess(40) type c,        "并发执行出错信息
       open_task_num type i.   "启动任务数量
  data:l_tabix  type sy-tabix, "索引变量
       l_lines  type i,        "总行数
       l_counts type p.


  "获取 RFC Serve Group name         Start--*
  "一般系统默认g_classname = 'parallel_generators'，但为了通用性按照如下方法获取
  call 'C_SAPGPARAM'                                      "#EC CI_CCALL
    id 'NAME'  field 'rdisp/myname'
    id 'VALUE' field g_applserver.

  select single classname
     from rzllitab
     into g_classname   "Server Group Name
    where applserver = g_applserver
      and grouptype = 'S'.   "S:服务器组，空:登陆组
  "获取 RFC Serve Group name         End--*

  clear: open_task_num,l_lines.

  describe table gt_marc lines l_lines.
  l_counts = l_lines.

  loop at gt_marc assigning <fs_marc>.
    clear: gw_out,lt_mrp_01,lt_mrp_02,lt_mrp_03,lt_mrp_04,
           l_labst,l_zsupl,l_zreqd.
    l_tabix = sy-tabix.

    perform frm_percent(zpercent) using sy-tabix l_counts ''.
    move <fs_marc>-matnr to gw_out-matnr."物料
    move <fs_marc>-werks to gw_out-werks."工厂
    move <fs_marc>-dispo to gw_out-dispo."MRP控制员
    move <fs_marc>-matkl to gw_out-matkl."物料组

    "单位转换
    call function 'CONVERSION_EXIT_CUNIT_OUTPUT'
      exporting
        input  = <fs_marc>-meins
      importing
        output = gw_out-meins.

    "获取物料描述
    read table gt_makt assigning <fs_makt> with key matnr = <fs_marc>-matnr binary search.
    if sy-subrc eq 0.
      move <fs_makt>-maktx to gw_out-maktx.
    endif.

    "获取NO-X非限制库存
    read table gt_mard_s assigning <fs_mard> with key matnr = <fs_marc>-matnr binary search.
    if sy-subrc eq 0.
      move <fs_mard>-labst to gw_out-labst.
    endif.

*--优化，异步调用获取数据、
    "生成任务名称 = 'Task' + sy-tabix   Start--*
    move l_tabix to g_taskname.
    condense g_taskname.
    concatenate 'Task' g_taskname into g_taskname.
    "生成任务名称 = 'Task' + sy-tabix   End--*

    clear: gw_task.
    gw_task-matnr = <fs_marc>-matnr.
    gw_task-werks = <fs_marc>-werks.
    gw_task-dispo = <fs_marc>-dispo.
    gw_task-matkl = <fs_marc>-matkl.
    gw_task-meins = gw_out-meins.
    gw_task-maktx = gw_out-maktx.
    gw_task-labst = gw_out-labst.
    gw_task-taskname  = g_taskname.
    append gw_task to gt_task.

*   异步调用函数    Start--*
    call function 'BAPI_MATERIAL_STOCK_REQ_LIST' starting new task g_taskname
        destination in group g_classname
        performing frm_subroutine_done on end of task "子程序
*      只要将函数的EXPORTING参数放在此处，其他参数放到子程序中
        exporting
          material         = <fs_marc>-matnr
          plant            = <fs_marc>-werks
          get_item_details = 'X'
          get_ind_lines    = 'X'
*       系统标准报错信息
        exceptions
          communication_failure = 1  message mess
          system_failure        = 2  message mess
          resource_failure      = 3.

    if sy-subrc = 0.
      snd_jobs = snd_jobs + 1.
    endif.
*   异步调用函数     End--*

    open_task_num = open_task_num + 1.   "记录启动的进程数量

    if open_task_num = pnum.
*     获取并发进程返回的结果
      wait until rcv_jobs >= snd_jobs.

      clear:open_task_num,rcv_jobs,snd_jobs.
      free:gt_task.
    else.
      if l_tabix = l_lines.
*     获取并发进程返回的结果
        wait until rcv_jobs >= snd_jobs.

        clear:open_task_num,rcv_jobs,snd_jobs.
        free:gt_task.
      endif.
    endif.

  endloop.

endform.                    "frm_fill_alv

*&---------------------------------------------------------------------*
*&      Form  frm_subroutine_done
*&---------------------------------------------------------------------*
*      异步处理子例程
*----------------------------------------------------------------------*
*      -->G_TASKNAME text
*----------------------------------------------------------------------*
form frm_subroutine_done using g_taskname.
  data: l_lgort   type mard-lgort,"库存点变量
        l_auffx   type plaf-auffx,"固定标识
        l_count   type i,"列
        l_mondy   type d,"周一
        l_sundy   type d,"周末
        l_num(2)  type n,
        l_txt(20) type c.
  data: l_labst   type mard-labst,"库存
        l_zsupl   type mard-labst,"供给
        l_zreqd   type mard-labst."需求
  data: l_mark1   type c,
        l_mark2   type c,
        l_mark3   type c,
        l_mark4   type c,
        l_lines   type i.
  data: lt_mrp_01 type standard table of bapi_mrp_items,"计算-NO-X过期供给
        lt_mrp_02 type standard table of bapi_mrp_items,"计算-NO-X过期需求
        lt_mrp_03 type standard table of bapi_mrp_items,"计算-列所对应的NO-X供给
        lt_mrp_04 type standard table of bapi_mrp_items."计算-列所对应的NO-X需求

  rcv_jobs = rcv_jobs + 1.  ""Receiving data

  receive results from function 'BAPI_MATERIAL_STOCK_REQ_LIST'
    tables
      mrp_items        = gt_mrp_items.

  read table gt_task into gw_task with key taskname = g_taskname binary search.
  if sy-subrc eq 0.
    clear:l_mark1,l_mark2,l_mark3,l_mark4.

    gw_out-matnr = gw_task-matnr."物料
    gw_out-werks = gw_task-werks."工厂
    gw_out-dispo = gw_task-dispo.
    gw_out-meins = gw_task-meins.
    gw_out-maktx = gw_task-maktx.
    gw_out-labst = gw_task-labst.

    delete gt_mrp_items where ( mrp_element_ind = 'WB' and rec_reqd_qty is initial ).

    if gt_mrp_items is initial and gw_out-labst is initial. "如果MD04为空
      "CONTINUE.
    else.

      lt_mrp_01 = lt_mrp_02 = gt_mrp_items.

      "计算-NO-X过期供给
      delete lt_mrp_01 where ( avail_date is initial ) or ( avail_date ge p_date ).
      delete lt_mrp_01 where plngsegno is not initial or plus_minus ne '+' or rec_reqd_qty is initial.

      loop at lt_mrp_01 assigning <fs_mrp>.
        if <fs_mrp>-storage_loc in s_lgort.
          if <fs_mrp>-mrp_element_ind = 'PA' and <fs_mrp>-firmed ne 'X'.
            continue.
          else.
            gw_out-zsupl = gw_out-zsupl + <fs_mrp>-rec_reqd_qty.
          endif.
        endif.
      endloop.

      "计算-NO-X过期需求
      delete lt_mrp_02 where ( avail_date is initial ) or ( avail_date ge p_date ).
      delete lt_mrp_02 where plngsegno is not initial or plus_minus ne '-' or rec_reqd_qty is initial.

      loop at lt_mrp_02 assigning <fs_mrp>.
        clear:l_lgort,l_auffx.

        case <fs_mrp>-order_type.
          when 'BB'."外协采购
            "到表EKPO中获取满足NO-X库存的
            select single lgort
              into l_lgort
              from ekpo
              where ebeln = <fs_mrp>-source_no
                and ebelp = <fs_mrp>-source_item
                and lgort in s_lgort.

            if sy-subrc eq 0.
              gw_out-zreqd = gw_out-zreqd + <fs_mrp>-rec_reqd_qty.
            endif.

          when 'SB'."计划订单-下阶
            "到表PLAF中获取满足NO-X库存的
            select single lgort auffx
              into (l_lgort,l_auffx)
              from plaf
              where plnum = <fs_mrp>-source_no
                and lgort in s_lgort.

            if sy-subrc eq 0.
              if l_auffx eq 'X'."固定
                gw_out-zreqd = gw_out-zreqd + <fs_mrp>-rec_reqd_qty.
              endif.
            endif.

          when 'AR'."生产订单预留
            "到表AFPO中获取满足NO-X库存的
            select single lgort
              into l_lgort
              from afpo
              where aufnr = <fs_mrp>-mrp_no12
                and lgort in s_lgort.

            if sy-subrc eq 0.
              gw_out-zreqd = gw_out-zreqd + <fs_mrp>-rec_reqd_qty.
            endif.

          when others.
        endcase.
      endloop.

      "标识one
      if gw_out-labst is initial and gw_out-zsupl is initial and gw_out-zreqd is initial.
        l_mark1 = 'X'.
      endif.

      "计算-列
      clear:l_count.
      do 3 times.
        l_count = l_count + 1.
        case l_count.
          when 1."计算-列所对应的NO-X供给
            clear:g_num.
            l_mondy = g_mondy.
            l_sundy = g_sundy.
            gw_out-ztype = 'A'.
            gw_out-ztext = 'NO-X供给'.
            do 12 times.
              clear:g_txt.
              g_num = g_num + 1.
              g_txt = |GW_OUT-DAT{ g_num }|.
              assign (g_txt) to <fs>.

              lt_mrp_03 = gt_mrp_items.
              delete lt_mrp_03 where ( avail_date gt l_sundy ) or ( avail_date lt l_mondy ).
              delete lt_mrp_03 where plngsegno is not initial or plus_minus ne '+' or rec_reqd_qty is initial.

              loop at lt_mrp_03 assigning <fs_mrp>.
                if <fs_mrp>-storage_loc in s_lgort.
                  if <fs_mrp>-mrp_element_ind = 'PA' and <fs_mrp>-firmed ne 'X'.
                    continue.
                  else.
                    <fs> = <fs> + <fs_mrp>-rec_reqd_qty.
                  endif.
                endif.
              endloop.
              l_mondy = l_sundy + 1.
              l_sundy = l_sundy + 7.

              "标识two,只要其中一列不为空
              if <fs> is not initial.
                l_mark2 = 'X'.
              endif.
            enddo.
            append gw_out to gt_out.
            clear:gw_out-labst,gw_out-zsupl,gw_out-zreqd.

          when 2."计算-列所对应的NO-X需求
            clear:g_num,gw_out-dat01,gw_out-dat02,gw_out-dat03,gw_out-dat04,gw_out-dat05,gw_out-dat06,
                        gw_out-dat07,gw_out-dat08,gw_out-dat09,gw_out-dat10,gw_out-dat11,gw_out-dat12.
            l_mondy = g_mondy.
            l_sundy = g_sundy.
            gw_out-ztype = 'B'.
            gw_out-ztext = 'NO-X需求'.
            do 12 times.
              clear:g_txt.
              g_num = g_num + 1.
              g_txt = |GW_OUT-DAT{ g_num }|.
              assign (g_txt) to <fs>.

              lt_mrp_04 = gt_mrp_items.
              delete lt_mrp_04 where ( avail_date gt l_sundy ) or ( avail_date lt l_mondy ).
              delete lt_mrp_04 where plngsegno is not initial or plus_minus ne '-' or rec_reqd_qty is initial.

              loop at lt_mrp_04 assigning <fs_mrp>.
                clear:l_lgort,l_auffx.

                case <fs_mrp>-order_type.
                  when 'BB'."外协采购
                    "到表EKPO中获取满足NO-X库存的
                    select single lgort
                      into l_lgort
                      from ekpo
                      where ebeln = <fs_mrp>-source_no
                        and ebelp = <fs_mrp>-source_item
                        and lgort in s_lgort.

                    if sy-subrc eq 0.
                      <fs> = <fs> + <fs_mrp>-rec_reqd_qty.
                    endif.

                  when 'SB'."计划订单-下阶
                    "到表PLAF中获取满足NO-X库存的
                    select single lgort auffx
                      into (l_lgort,l_auffx)
                      from plaf
                      where plnum = <fs_mrp>-source_no
                        and lgort in s_lgort.

                    if sy-subrc eq 0.
                      if l_auffx = 'X'.
                        <fs> = <fs> + <fs_mrp>-rec_reqd_qty.
                      endif.
                    endif.

                  when 'AR'."生产订单预留
                    "到表AFPO中获取满足NO-X库存的
                    select single lgort
                      into l_lgort
                      from afpo
                      where aufnr = <fs_mrp>-mrp_no12
                        and lgort in s_lgort.

                    if sy-subrc eq 0.
                      <fs> = <fs> + <fs_mrp>-rec_reqd_qty.
                    endif.

                  when others.
                endcase.
              endloop.
              l_mondy = l_sundy + 1.
              l_sundy = l_sundy + 7.

              "标识three,只要其中一列不为空
              if <fs> is not initial.
                l_mark3 = 'X'.
              endif.
            enddo.
            append gw_out to gt_out.

          when 3."计算-NO-X建议供给数量
            clear:g_num,gw_out-dat01,gw_out-dat02,gw_out-dat03,gw_out-dat04,gw_out-dat05,gw_out-dat06,
                        gw_out-dat07,gw_out-dat08,gw_out-dat09,gw_out-dat10,gw_out-dat11,gw_out-dat12.
            gw_out-ztype = 'C'.
            gw_out-ztext = 'NO-X建议供给数量'.

            do 12 times.
              clear:g_txt,l_num,l_txt.
              g_num = g_num + 1.
              g_txt = |GW_OUT-DAT{ g_num }|.
              assign (g_txt) to <fs>.

              if g_num = 01."第一列
                l_num = g_num.
                "NO-X供给
                read table gt_out assigning <fs_out> with key matnr = gw_out-matnr
                                                              werks = gw_out-werks
                                                              ztype = 'A'.
                if sy-subrc eq 0.
                  l_txt = |<FS_OUT>-DAT{ l_num }|.
                  assign (l_txt) to <fs1>.
                  l_labst = <fs_out>-labst."库存
                  l_zsupl = <fs_out>-zsupl."供给
                  l_zreqd = <fs_out>-zreqd."需求
                endif.
                "NO-X需求
                read table gt_out assigning <fs_out> with key matnr = gw_out-matnr
                                                              werks = gw_out-werks
                                                              ztype = 'B'.
                if sy-subrc eq 0.
                  l_txt = |<FS_OUT>-DAT{ l_num }|.
                  assign (l_txt) to <fs2>.
                endif.

                "第一列建议供给数量 = 非限制库存 + 过期供给 - 过期需求 + 第一列供给 - 第一列的需求
                <fs> = l_labst + l_zsupl - l_zreqd + <fs1> - <fs2>.
              else.
                l_num = g_num - 1.
                "NO-X供给
                read table gt_out assigning <fs_out> with key matnr = gw_out-matnr
                                                              werks = gw_out-werks
                                                              ztype = 'A'.
                if sy-subrc eq 0.
                  l_txt = |<FS_OUT>-DAT{ g_num }|.
                  assign (l_txt) to <fs1>.
                endif.
                "NO-X需求
                read table gt_out assigning <fs_out> with key matnr = gw_out-matnr
                                                              werks = gw_out-werks
                                                              ztype = 'B'.
                if sy-subrc eq 0.
                  l_txt = |<FS_OUT>-DAT{ g_num }|.
                  assign (l_txt) to <fs2>.
                endif.

                "前一列的NO-X建议供给数量
                l_txt = |GW_OUT-DAT{ l_num }|.
                assign (l_txt) to <fs3>.

                "当前NO-X建议供给数量 = 前一列建议供给数 + 当前列供给 - 当前列需求
                if <fs3> ge 0.
                  <fs> = abs( <fs3> ) + <fs1> - <fs2>.
                else.
                  <fs> = <fs1> - <fs2>.
                endif.

                "判断建议数是否大于0，若大于0，清空；否则，取绝对值
                if g_num = 12."最后一次循环,要判断最后两列
                  if <fs> gt 0.
                    clear <fs>.
                  else.
                    <fs> = abs( <fs> ).
                  endif.

                  if <fs3> gt 0.
                    clear <fs3>.
                  else.
                    <fs3> = abs( <fs3> ).
                  endif.
                else."否则只要判断前一列
                  if <fs3> ge 0.
                    clear <fs3>.
                  else.
                    <fs3> = abs( <fs3> ).
                  endif.
                endif.

              endif.

              "标识four,只要其中一列不为空
              if <fs> is not initial.
                l_mark4 = 'X'.
              endif.
            enddo.
            append gw_out to gt_out.
        endcase.
      enddo.

      "删除为空记录
      if l_mark1 = 'X' and l_mark2 is initial and l_mark3 is initial and l_mark4 is initial.
        describe table gt_out lines l_lines.
        delete gt_out index l_lines.
        delete gt_out index l_lines - 1.
        delete gt_out index l_lines - 2.
      endif.
    endif.
  endif.

endform.                    "frm_subroutine_done



*&---------------------------------------------------------------------*
*&      Form  frm_get_detail
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->ALV        text
*      -->MATNR      text
*      -->WERKS      text
*      -->FNAME      text
*----------------------------------------------------------------------*
form frm_get_detail tables alv  structure gw_dtl
                    using matnr type marc-matnr
                          werks type marc-werks
                          fname type slis_fieldname
                          type  type c.

  data: lt_mrp type standard table of bapi_mrp_items."计算-NO-X过期供给
  data: l_lgort type mard-lgort,
        l_auffx type plaf-auffx,
        l_mondy type d,
        l_sundy type d,
        l_times type i.

                                                            "获取MD04
  call function 'BAPI_MATERIAL_STOCK_REQ_LIST'
    exporting
      material         = matnr
      plant            = werks
      get_item_details = 'X'
      get_ind_lines    = 'X'
    tables
      mrp_items        = lt_mrp.

  case fname+0(2).
    when 'ZS'."供给
      delete lt_mrp where ( avail_date is initial ) or ( avail_date ge p_date ).
      delete lt_mrp where plngsegno is not initial or plus_minus ne '+' or rec_reqd_qty is initial.

      loop at lt_mrp assigning <fs_mrp>.
        clear:gw_dtl.
        if <fs_mrp>-storage_loc in s_lgort.
          if <fs_mrp>-mrp_element_ind = 'PA' and <fs_mrp>-firmed ne 'X'.
            continue.
          else.
            gw_dtl-werks = werks.
            gw_dtl-matnr = matnr.
            gw_dtl-zdate = <fs_mrp>-avail_date."日期
            "MRP元素
            select single delb0
              into gw_dtl-delb0
              from t457t
              where delkz = <fs_mrp>-mrp_element_ind
                and spras = '1'.

            "MRP元素数据
            if <fs_mrp>-peggedrqmt is initial.
              gw_dtl-extra = |{ <fs_mrp>-mrp_no }/{ <fs_mrp>-mrp_pos }|.
            else.
              gw_dtl-extra = <fs_mrp>-peggedrqmt.
            endif.

            "数量
            gw_dtl-mng01 = <fs_mrp>-rec_reqd_qty.
            append gw_dtl to alv.
          endif.
        endif.
      endloop.

    when 'ZR'."需求
      delete lt_mrp where ( avail_date is initial ) or ( avail_date ge p_date ).
      delete lt_mrp where plngsegno is not initial or plus_minus ne '-' or rec_reqd_qty is initial.

      loop at lt_mrp assigning <fs_mrp>.
        clear:gw_dtl,l_lgort,l_auffx.
        case <fs_mrp>-order_type.
          when 'BB'."外协采购
            "到表EKPO中获取满足NO-X库存的
            select single lgort
              into l_lgort
              from ekpo
              where ebeln = <fs_mrp>-source_no
                and ebelp = <fs_mrp>-source_item
                and lgort in s_lgort.

            if sy-subrc eq 0.
              gw_dtl-werks = werks.
              gw_dtl-matnr = matnr.
              gw_dtl-zdate = <fs_mrp>-avail_date."日期
              "MRP元素
              select single delb0
                into gw_dtl-delb0
                from t457t
                where delkz = <fs_mrp>-mrp_element_ind
                  and spras = '1'.

              "MRP元素数据
              if <fs_mrp>-peggedrqmt is initial.
                gw_dtl-extra = |{ <fs_mrp>-mrp_no }/{ <fs_mrp>-mrp_pos }|.
              else.
                gw_dtl-extra = <fs_mrp>-peggedrqmt.
              endif.

              "数量
              gw_dtl-mng01 = <fs_mrp>-rec_reqd_qty.
              append gw_dtl to alv.
            endif.

          when 'SB'."计划订单-下阶
            "到表PLAF中获取满足NO-X库存的
            select single lgort auffx
              into (l_lgort,l_auffx)
              from plaf
              where plnum = <fs_mrp>-source_no
                and lgort in s_lgort.

            if sy-subrc eq 0.
              if l_auffx eq 'X'.
                gw_dtl-werks = werks.
                gw_dtl-matnr = matnr.
                gw_dtl-zdate = <fs_mrp>-avail_date."日期
                "MRP元素
                select single delb0
                  into gw_dtl-delb0
                  from t457t
                  where delkz = <fs_mrp>-mrp_element_ind
                    and spras = '1'.

                "MRP元素数据
                if <fs_mrp>-peggedrqmt is initial.
                  gw_dtl-extra = |{ <fs_mrp>-mrp_no }/{ <fs_mrp>-mrp_pos }|.
                else.
                  gw_dtl-extra = <fs_mrp>-peggedrqmt.
                endif.

                "数量
                gw_dtl-mng01 = <fs_mrp>-rec_reqd_qty.
                append gw_dtl to alv.
              endif.
            endif.

          when 'AR'."生产订单预留
            "到表AFPO中获取满足NO-X库存的
            select single lgort
              into l_lgort
              from afpo
              where aufnr = <fs_mrp>-mrp_no12
                and lgort in s_lgort.

            if sy-subrc eq 0.
              gw_dtl-werks = werks.
              gw_dtl-matnr = matnr.
              gw_dtl-zdate = <fs_mrp>-avail_date."日期
              "MRP元素
              select single delb0
                into gw_dtl-delb0
                from t457t
                where delkz = <fs_mrp>-mrp_element_ind
                  and spras = '1'.

              "MRP元素数据
              if <fs_mrp>-peggedrqmt is initial.
                gw_dtl-extra = |{ <fs_mrp>-mrp_no }/{ <fs_mrp>-mrp_pos }|.
              else.
                gw_dtl-extra = <fs_mrp>-peggedrqmt.
              endif.

              "数量
              gw_dtl-mng01 = <fs_mrp>-rec_reqd_qty.
              append gw_dtl to alv.
            endif.

          when others.
        endcase.
      endloop.

    when 'DA'."期间
      l_sundy = g_sundy.
      l_times = fname+3(2) - 1.
      do l_times times.
        l_mondy = l_sundy + 1.
        l_sundy = l_sundy + 7.
      enddo.

      if type = 'A'."供给

        delete lt_mrp where ( avail_date gt l_sundy ) or ( avail_date lt l_mondy ).
        delete lt_mrp where plngsegno is not initial or plus_minus ne '+' or rec_reqd_qty is initial.

        loop at lt_mrp assigning <fs_mrp>.
          clear:gw_dtl.
          if <fs_mrp>-storage_loc in s_lgort.
            if <fs_mrp>-mrp_element_ind = 'PA' and <fs_mrp>-firmed ne 'X'.
              continue.
            else.
              gw_dtl-werks = werks.
              gw_dtl-matnr = matnr.
              gw_dtl-zdate = <fs_mrp>-avail_date."日期
              "MRP元素
              select single delb0
                into gw_dtl-delb0
                from t457t
                where delkz = <fs_mrp>-mrp_element_ind
                  and spras = '1'.

              "MRP元素数据
              if <fs_mrp>-peggedrqmt is initial.
                gw_dtl-extra = |{ <fs_mrp>-mrp_no }/{ <fs_mrp>-mrp_pos }|.
              else.
                gw_dtl-extra = <fs_mrp>-peggedrqmt.
              endif.

              "数量
              gw_dtl-mng01 = <fs_mrp>-rec_reqd_qty.
              append gw_dtl to alv.
            endif.
          endif.
        endloop.
      elseif type = 'B'."需求
        delete lt_mrp where ( avail_date gt l_sundy ) or ( avail_date lt l_mondy ).
        delete lt_mrp where plngsegno is not initial or plus_minus ne '-' or rec_reqd_qty is initial.

        loop at lt_mrp assigning <fs_mrp>.
          clear:gw_dtl,l_lgort,l_auffx.
          case <fs_mrp>-order_type.
            when 'BB'."外协采购
              "到表EKPO中获取满足NO-X库存的
              select single lgort
                into l_lgort
                from ekpo
                where ebeln = <fs_mrp>-source_no
                  and ebelp = <fs_mrp>-source_item
                  and lgort in s_lgort.

              if sy-subrc eq 0.
                gw_dtl-werks = werks.
                gw_dtl-matnr = matnr.
                gw_dtl-zdate = <fs_mrp>-avail_date."日期
                "MRP元素
                select single delb0
                  into gw_dtl-delb0
                  from t457t
                  where delkz = <fs_mrp>-mrp_element_ind
                    and spras = '1'.

                "MRP元素数据
                if <fs_mrp>-peggedrqmt is initial.
                  gw_dtl-extra = |{ <fs_mrp>-mrp_no }/{ <fs_mrp>-mrp_pos }|.
                else.
                  gw_dtl-extra = <fs_mrp>-peggedrqmt.
                endif.

                "数量
                gw_dtl-mng01 = <fs_mrp>-rec_reqd_qty.
                append gw_dtl to alv.
              endif.

            when 'SB'."计划订单-下阶
              "到表PLAF中获取满足NO-X库存的
              select single lgort auffx
                into (l_lgort,l_auffx)
                from plaf
                where plnum = <fs_mrp>-source_no
                  and lgort in s_lgort.

              if sy-subrc eq 0.
                if l_auffx eq 'X'.
                  gw_dtl-werks = werks.
                  gw_dtl-matnr = matnr.
                  gw_dtl-zdate = <fs_mrp>-avail_date."日期
                  "MRP元素
                  select single delb0
                    into gw_dtl-delb0
                    from t457t
                    where delkz = <fs_mrp>-mrp_element_ind
                      and spras = '1'.

                  "MRP元素数据
                  if <fs_mrp>-peggedrqmt is initial.
                    gw_dtl-extra = |{ <fs_mrp>-mrp_no }/{ <fs_mrp>-mrp_pos }|.
                  else.
                    gw_dtl-extra = <fs_mrp>-peggedrqmt.
                  endif.

                  "数量
                  gw_dtl-mng01 = <fs_mrp>-rec_reqd_qty.
                  append gw_dtl to alv.
                endif.
              endif.

            when 'AR'."生产订单预留
              "到表AFPO中获取满足NO-X库存的
              select single lgort
                into l_lgort
                from afpo
                where aufnr = <fs_mrp>-mrp_no12
                  and lgort in s_lgort.

              if sy-subrc eq 0.
                gw_dtl-werks = werks.
                gw_dtl-matnr = matnr.
                gw_dtl-zdate = <fs_mrp>-avail_date."日期
                "MRP元素
                select single delb0
                  into gw_dtl-delb0
                  from t457t
                  where delkz = <fs_mrp>-mrp_element_ind
                    and spras = '1'.

                "MRP元素数据
                if <fs_mrp>-peggedrqmt is initial.
                  gw_dtl-extra = |{ <fs_mrp>-mrp_no }/{ <fs_mrp>-mrp_pos }|.
                else.
                  gw_dtl-extra = <fs_mrp>-peggedrqmt.
                endif.

                "数量
                gw_dtl-mng01 = <fs_mrp>-rec_reqd_qty.
                append gw_dtl to alv.
              endif.

            when others.
          endcase.
        endloop.
      endif.

    when others.

  endcase.

endform.                    "frm_get_detail

*&---------------------------------------------------------------------*
*&      Form  frm_get_text
*&---------------------------------------------------------------------*
*       获取提示文本
*----------------------------------------------------------------------*
*      -->PERCENT    text
*      -->TEXT       text
*----------------------------------------------------------------------*
form frm_get_text using percent type i
                        text    type string.

  call function 'SAPGUI_PROGRESS_INDICATOR'
    exporting
      percentage = percent
      text       = text.

endform.                    "frm_get_text

*&---------------------------------------------------------------------*
*&      Form  frm_get_event
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
form frm_get_event .
  data l_events type slis_alv_event."slis_alv_event是一个包含name和form字段的结构，均为字符型

  call function 'REUSE_ALV_EVENTS_GET'
    exporting
      i_list_type     = 0
    importing
      et_events       = gt_events
    exceptions
      list_type_wrong = 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.

endform.                    "frm_get_event

*&---------------------------------------------------------------------*
*&      Form  frm_sort_build
*&---------------------------------------------------------------------*
*       输出排序设置
*----------------------------------------------------------------------*
*      -->LT_SORT    text
*----------------------------------------------------------------------*
form frm_sort_build changing lt_sort type slis_t_sortinfo_alv.
  data: ls_sort type slis_sortinfo_alv.
  refresh lt_sort.

  clear ls_sort.
  ls_sort-spos = 1.
  ls_sort-fieldname = 'WERKS'.
  ls_sort-up   = 'X'.
  append ls_sort to lt_sort.

  clear ls_sort.
  ls_sort-spos = 2.
  ls_sort-fieldname = 'DISPO'.
  ls_sort-up   = 'X'.
  append ls_sort to lt_sort.

  clear ls_sort.
  ls_sort-spos = 3.
  ls_sort-fieldname = 'MATNR'.
  ls_sort-up   = 'X'.
  append ls_sort to lt_sort.

  clear ls_sort.
  ls_sort-spos = 4.
  ls_sort-fieldname = 'MEINS'.
  ls_sort-up   = 'X'.
  append ls_sort to lt_sort.

  clear ls_sort.
  ls_sort-spos = 5.
  ls_sort-fieldname = 'MAKTX'.
  ls_sort-up   = 'X'.
  append ls_sort to lt_sort.

endform.                    "frm_sort_build

*&---------------------------------------------------------------------*
*&      Form  frm_init_layout
*&---------------------------------------------------------------------*
*       布局设置
*----------------------------------------------------------------------*
form frm_init_layout.
  gw_layout-zebra  = 'X'."间隔行颜色变换
  gw_layout-detail_popup = 'X'.
  gw_layout-colwidth_optimize = 'X'."自动调整列宽

endform.                    " FRM_INIT_LAYOUT

*&---------------------------------------------------------------------*
*&      Form  frm_fcat_setting
*&---------------------------------------------------------------------*
*       设置输出字段
*----------------------------------------------------------------------*
form frm_fcat_setting.
  data: l_num type n length 2,
        l_txt type c length 20,"字段
        l_dis type c length 20,"描述
        l_mondy type d,
        l_sundy type d.
  refresh gt_fieldcat.

  perform frm_init_fieldcat using 'WERKS' '工厂'           'X' 'X' ' ' ' ' ' '.
  perform frm_init_fieldcat using 'DISPO' 'MRP控制员'      'X' 'X' ' ' ' ' ' '.
  perform frm_init_fieldcat using 'MATNR' '物料号'         'X' 'X' ' ' 'X' ' '.
  perform frm_init_fieldcat using 'MEINS' '单位'           'X' 'X' ' ' ' ' ' '.
  perform frm_init_fieldcat using 'MAKTX' '物料描述'       'X' 'X' ' ' ' ' ' '.
  perform frm_init_fieldcat using 'LABST' 'NO-X非限制库存' 'X' 'X' ' ' 'X' ' '.
  perform frm_init_fieldcat using 'ZSUPL' 'NO-X过期供给'   'X' 'X' 'X' 'X' ' '.
  perform frm_init_fieldcat using 'ZREQD' 'NO-X过期需求'   'X' 'X' 'X' 'X' ' '.
  perform frm_init_fieldcat using 'ZTEXT' '期间'           'X' 'X' ' ' ' ' ' '.
  "动态输出期间字段
  clear:l_num,l_txt,l_dis.
  l_mondy = g_mondy.
  l_sundy = g_sundy.
  do 12 times.
    l_num = l_num + 1.
    l_txt = |DAT{ l_num }|.
    l_dis = |{ l_mondy }-{ l_sundy }|.
    perform frm_init_fieldcat using l_txt l_dis ' ' ' ' 'X' 'X' ' '.
    l_mondy = l_sundy + 1.
    l_sundy = l_sundy + 7.
  enddo.

endform.                    "frm_fcat_setting

*&---------------------------------------------------------------------*
*&      Form  frm_init_fieldcat
*&---------------------------------------------------------------------*
*      初始化输出字段
*----------------------------------------------------------------------*
*      -->VALU01     text
*      -->VALU02     text
*      -->VALU03     text
*      -->VALU04     text
*      -->VALU05     text
*      -->VALU06     text
*      -->VALU07     text
*----------------------------------------------------------------------*
form frm_init_fieldcat using valu01
                             valu02
                             valu03
                             valu04
                             valu05
                             valu06
                             valu07.

  clear:gt_fieldcat.
  gt_fieldcat-fieldname  = valu01."字段名
  gt_fieldcat-seltext_m  = valu02."字段描述
  gt_fieldcat-key        = valu03."主键
  gt_fieldcat-fix_column = valu04."固定列
  gt_fieldcat-hotspot    = valu05."热点
  gt_fieldcat-no_zero    = valu06."隐藏前导零
  gt_fieldcat-no_sign    = valu07."符号
  append gt_fieldcat.

endform.                    "frm_set_fcat


*&---------------------------------------------------------------------*
*&      Form  frm_output
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->TAB        text
*----------------------------------------------------------------------*
form frm_output tables tab.
*ALV输出
  g_repid = sy-repid.

  call function 'REUSE_ALV_GRID_DISPLAY'
    exporting
      i_callback_program      = g_repid
      is_layout               = gw_layout
      it_fieldcat             = gt_fieldcat[]
      i_save                  = 'X'
      is_variant              = gw_stru_disvar"变量信息
      it_events               = gt_events[]
      it_sort                 = gt_sort[]
      i_callback_user_command = 'FRM_USER_COMMAND'
    tables
      t_outtab                = tab
    exceptions
      program_error           = 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.
endform.                    "frm_output

*&---------------------------------------------------------------------*
*&      Form  FRM_USER_COMMAND
*&---------------------------------------------------------------------*
*       事件处理
*----------------------------------------------------------------------*
*      -->R_UCOMM      text
*      -->RS_SELFIELD  text
*----------------------------------------------------------------------*
form frm_user_command using r_ucomm like sy-ucomm
                            rs_selfield type slis_selfield.

  clear:gt_dtl.
  case r_ucomm.
    when '&IC1'.
      read table gt_out assigning <fs_out> index rs_selfield-tabindex.
      if rs_selfield-fieldname = 'ZSUPL' or rs_selfield-fieldname = 'ZREQD'."供给/需求
        perform frm_get_detail tables gt_dtl
                               using <fs_out>-matnr
                                     <fs_out>-werks
                                     rs_selfield-fieldname
                                     <fs_out>-ztype.

        if gt_dtl is not initial.
          call screen 0100 starting at 30 5.
        endif.
      else.
        if rs_selfield-fieldname+0(3) = 'DAT'.
          perform frm_get_detail tables gt_dtl
                                 using <fs_out>-matnr
                                       <fs_out>-werks
                                       rs_selfield-fieldname
                                       <fs_out>-ztype.

          if gt_dtl is not initial.
            call screen 0100 starting at 30 5.
          endif.
        endif.
      endif.

    when others.
  endcase.
endform.                    "FRM_USER_COMMAND

*&---------------------------------------------------------------------*
*&      Form  frm_set_fcat
*&---------------------------------------------------------------------*
*       输出字段设置
*----------------------------------------------------------------------*
form frm_set_fcat.
  if gt_fcat is initial.
    clear: gw_fcat.
    gw_fcat-col_pos    = 1.
    gw_fcat-fieldname  = 'WERKS'.
    gw_fcat-tabname    = 'MARC'.
    gw_fcat-scrtext_m  = '工厂'.
    append gw_fcat to gt_fcat.

    clear: gw_fcat.
    gw_fcat-col_pos    = 2.
    gw_fcat-fieldname  = 'MATNR'.
    gw_fcat-tabname    = 'MARC'.
    gw_fcat-scrtext_m  = '物料'.
    gw_fcat-no_zero    = 'X'.
    append gw_fcat to gt_fcat.

    clear: gw_fcat.
    gw_fcat-col_pos    = 3.
    gw_fcat-fieldname  = 'ZDATE'.
    gw_fcat-scrtext_m  = '日期'.
    append gw_fcat to gt_fcat.

    clear: gw_fcat.
    gw_fcat-col_pos    = 4.
    gw_fcat-fieldname  = 'DELB0'.
    gw_fcat-tabname    = 'T457T'.
    gw_fcat-scrtext_m  = 'MRP元素'.
    append gw_fcat to gt_fcat.

    clear: gw_fcat.
    gw_fcat-col_pos    = 5.
    gw_fcat-fieldname  = 'EXTRA'.
    gw_fcat-tabname    = 'MDEZ'.
    gw_fcat-scrtext_m  = 'MRP元素数据'.
    gw_fcat-fix_column = 'X'.
    append gw_fcat to gt_fcat.

    clear: gw_fcat.
    gw_fcat-col_pos    = 6.
    gw_fcat-fieldname  = 'MNG01'.
    gw_fcat-tabname    = 'MDEZ'.
    gw_fcat-scrtext_m  = '收货数量或需求数量'.
    gw_fcat-fix_column = 'X'.
    gw_fcat-do_sum     = 'X'.
    append gw_fcat to gt_fcat.
  endif.
endform.                    "frm_set_fcat

*&---------------------------------------------------------------------*
*&      Form  frm_set_lock
*&---------------------------------------------------------------------*
*       上锁
*----------------------------------------------------------------------*
form frm_set_lock.
  "锁定程序
  call function 'ENQUEUE_EZZSOPR0032'
    exporting
      mode_trdir     = 'E'
      name           = 'ZPPR0056'
      x_name         = ' '
      _scope         = '2'
      _wait          = ' '
      _collect       = ' '
    exceptions
      foreign_lock   = 1
      system_failure = 2
      others         = 3.

  if sy-subrc <> 0.
* Implement suitable error handling here
    message '对象已被锁定,请稍后执行' type 'S' display like 'E'.
    stop.
  else.
    "锁定成功
  endif.
endform.                    "frm_set_lock

*&---------------------------------------------------------------------*
*&      Form  frm_set_unlock
*&---------------------------------------------------------------------*
*       解锁
*----------------------------------------------------------------------*
form frm_set_unlock.
  "解除程序的锁定
  call function 'DEQUEUE_EZZSOPR0032'
    exporting
      mode_trdir = 'E'
      name       = 'ZPPR0056'
      x_name     = ' '
      _scope     = '3'
      _synchron  = ' '
      _collect   = ' '.
endform.                    "frm_set_unlock

*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module status_0100 output.
  set pf-status 'ZSTA1'.
*  SET TITLEBAR 'xxx'.
  create object g_alv.
  g_alv->main( ).
endmodule.                 " STATUS_0100  OUTPUT

*&---------------------------------------------------------------------*
*&      Module  EXIT  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module exit input.
  leave to screen 0.

endmodule.                 " EXIT  INPUT