生成转储拣配单的ABAP程序

xiangzhao

report ZE_MM_SCPSDD
       no standard page heading line-size 150.
*---------------------------生成转储拣配单的ABAP程序-------------------------------------------*
*   data definition
*----------------------------------------------------------------------*
type-pools: slis.
*       Batchinputdata of single transaction
DATA:   BDCDATA LIKE BDCDATA    OCCURS 0 WITH HEADER LINE.
*       messages of call transaction
DATA:   MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
*       error session opened (' ' or 'X')
DATA:   E_GROUP_OPENED.
*       message texts
TABLES: RESB , AFPO ,AFKO, MARA ,EKET ,ZSCPSDD ,EKKO ,MARC,ZDSCDD,zlog.
data: mdezx like mdez occurs 0.
data: wa_mdezx like line of  mdezx.
data: mdpsx like mdps occurs 0.
data: wa_mdpsx like line of  mdpsx.
data: mdsux like mdsu occurs 0.
DATA: begin of itab_mrp  OCCURS 0,
    RSNUM like RESB-RSNUM , "预留号#
    RSPOS like RESB-RSPOS , "预留项目
    MATNR like RESB-MATNR , "物料号码#
    MAKTX like MAKT-MAKTX , "物料描述#
    BDMNG like RESB-BDMNG , "需求量#
    BDTER like RESB-BDTER , "需求日期#
    LABST like MARD-LABST , "库存量
    MENGE like RESB-BDMNG , "采购订单数量,配送量
    WERKS like RESB-WERKS , "@@新增工厂
    LGORT like RESB-LGORT , "@@新增仓库
    AUFNR like RESB-AUFNR , "相关生产订单
    GSTRP like AFKO-GSTRP , "生产订单基本开始时间
    ARBPL like CRHD-ARBPL , "工作中心
    AUFPL like RESB-AUFPL , "计划工艺路线号
    APLZL like RESB-APLZL , "计数器
    DELB0 like mdez-DELB0 , "MRP(物料需求计划)元素
    PLNBEZ like afko-PLNBEZ , "MRP(物料需求计划)数据
end of itab_mrp.


**调用BAPI所需要的内表
**参照ZTEST_BAPI_CREATE_PO
**************************
DATA:itab_poheader LIKE bapimepoheader OCCURS 0 WITH HEADER LINE,
itab_poheaderx LIKE bapimepoheaderx OCCURS 0 WITH HEADER LINE,
itab_poitems LIKE bapimepoitem OCCURS 0 WITH HEADER LINE,
itab_poitemx LIKE bapimepoitemx OCCURS 0 WITH HEADER LINE,
exppurchaseorder LIKE bapimepoheader-po_number,
itab_itemsche LIKE bapimeposchedule  OCCURS 0 WITH HEADER LINE,
itab_itemschex LIKE BAPIMEPOSCHEDULX   OCCURS 0 WITH HEADER LINE,
return LIKE bapiret2 OCCURS 0 WITH HEADER LINE.

DATA:BEGIN OF recordhead OCCURS 0,
     LIFNR_001 like  EKKO-LIFNR, "供应商帐户号1800
     BSART_002 like  RM06E-BSART , "订单类型（采购）:ZEB
     BEDAT_003 like  RM06E-BEDAT ,"采购订单日期:sy-datum
     EKORG_004 like  EKKO-EKORG , "采购组织:2000
     EKGRP_005 like  EKKO-EKGRP ,                           "采购组:F01
     EEIND_006 like  RM06E-EEIND , "交货日期:P_EINDT
     LPEIN_007 like  RM06E-LPEIN , "交货日的类别:T
     WERKS_008 like  RM06E-WERKS , "工厂:P_WERKS
     LGORT_009 like  RM06E-LGORT,  "库存地点:P_LGORT
     END OF recordhead.

xiangzhao

data: begin of record  OCCURS 0,
    CHKID  TYPE c,
    RSNUM like RESB-RSNUM , "预留号#
    RSPOS like RESB-RSPOS , "预留项目
    MATNR like RESB-MATNR , "物料号码#
    MAKTX like MAKT-MAKTX , "物料描述#
    BDMNG like RESB-BDMNG , "需求量#
    BDTER like RESB-BDTER , "需求日期#
    LABST like MARD-LABST , "库存量
    MENGE like RESB-BDMNG , "采购订单数量,配送量
    WERKS like RESB-WERKS , "@@新增工厂
    LGORT like RESB-LGORT , "@@新增仓库
    AUFNR like RESB-AUFNR , "相关生产订单
    GSTRP like AFKO-GSTRP , "生产订单基本开始时间
    ARBPL like CRHD-ARBPL , "工作中心
    AUFPL like RESB-AUFPL , "计划工艺路线号
    APLZL like RESB-APLZL , "计数器
*    VORNR like RESB-VORNR , "作业
*    PLNFL like RESB-PLNFL , "序列
end of record.


DATA: recordline like LINE OF record.
*DATA : record LIKE TABLE OF ZSCPSDD001 WITH HEADER LINE.
*** End generated data section ***
DATA:selrecord like TABLE OF record WITH HEADER LINE.

DATA:instab like TABLE OF zdscdd WITH HEADER LINE.

DATA: pmode TYPE c VALUE 'E' ,
     umode TYPE c VALUE 'S'.

DATA: begin of sumrecord  OCCURS 0,
    CHKID(1)   , "选择
    MATNR like RESB-MATNR , "物料号码#
    MAKTX like MAKT-MAKTX , "物料描述#
    EEIND like RM06E-EEIND ,"交货日期
    BDMNG like RESB-BDMNG , "需求量#
    LABST like MARD-LABST , "库存量
    ZTKCL like MARD-LABST , "在途库存
    MENGE like RESB-BDMNG , "采购订单数量,配送量
    WERKS like RESB-WERKS , "@@新增工厂
    LGORT like RESB-LGORT , "@@新增仓库
    ARBPL like CRHD-ARBPL , "工作中心
    end of sumrecord .

DATA: sumrecord_wa like line of sumrecord.

DATA: begin of msgtab occurs 0,
      msg(255),
      msgtype(1),
      end of msgtab.
*DATA: msg(255),msgtype(1).

SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE t01.
SELECT-OPTIONS: P_WERKS FOR RESB-WERKS OBLIGATORY  NO intervals NO-EXTENSION."工厂
SELECT-OPTIONS: P_LGORT FOR RESB-LGORT OBLIGATORY  ."线边库 NO intervals NO-EXTENSION
SELECT-OPTIONS: P_AUFNR FOR AFPO-AUFNR  ."生产订单号
SELECT-OPTIONS: P_BDTER FOR RESB-BDTER OBLIGATORY  NO intervals NO-EXTENSION  ."需求日期
SELECT-OPTIONS: P_MATKL FOR MARA-MATKL  ."物料组
SELECT-OPTIONS: P_MATNR FOR RESB-MATNR  ."物料号
SELECT-OPTIONS: P_EINDT FOR EKET-EINDT OBLIGATORY NO intervals NO-EXTENSION DEFAULT sy-datum."交货日期
PARAMETERS:     P_PS RADIOBUTTON GROUP PSBZ.
PARAMETERS:     P_FPS RADIOBUTTON GROUP PSBZ.
SELECTION-SCREEN: END OF BLOCK b1.


SELECTION-SCREEN: BEGIN OF BLOCK b2 WITH FRAME TITLE t02.
SELECT-OPTIONS: P_WERKS2 FOR MARC-WERKS OBLIGATORY  NO intervals NO-EXTENSION."发货工厂
SELECT-OPTIONS: P_LGFSB FOR MARC-LGFSB ."发货存储地点
SELECTION-SCREEN: END OF BLOCK b2.

*SELECTION-SCREEN: BEGIN OF BLOCK b3 WITH FRAME TITLE t03.
*PARAMETERS: P_SCSL TYPE I DEFAULT '200' OBLIGATORY .
*SELECTION-SCREEN: END OF BLOCK b3.

*SELECTION-SCREEN: BEGIN OF BLOCK b2 WITH FRAME TITLE text-001.
*PARAMETERS: pmode TYPE c DEFAULT 'N' OBLIGATORY.
*PARAMETERS: umode TYPE c DEFAULT 'A' OBLIGATORY.
*SELECTION-SCREEN: END OF BLOCK b2.

DATA: i_private TYPE slis_data_caller_exit,
      i_selfield TYPE slis_selfield,
      W_exit(1) TYPE c.

INITIALIZATION.
  t01 = '收货信息'.
  t02 = '发货信息'.
*  t03 = '输出参数'.

xiangzhao

start-of-selection.
  perform write_zlog.
  perform get_recordhead .
  perform get_record .

  LOOP AT record." 全部计数WHERE CHKID = 'X'.
    selrecord-CHKID = record-CHKID .
    selrecord-RSNUM = record-RSNUM .
    selrecord-RSPOS = record-RSPOS .
    selrecord-MATNR = record-MATNR .
    selrecord-MAKTX = record-MAKTX .
    selrecord-BDMNG = record-BDMNG .
    selrecord-BDTER = record-BDTER .
    selrecord-LABST = record-LABST .
    selrecord-MENGE = record-MENGE .
    selrecord-WERKS = record-WERKS .
    selrecord-LGORT = record-LGORT .
    selrecord-AUFPL = record-AUFPL .
    selrecord-ARBPL = record-ARBPL .
    append selrecord .
    clear selrecord .
  ENDLOOP.
*SHIFT P_EINDT BY 3 PLACES LEFT.
  LOOP AT selrecord .
    DATA ARBPL2 like CRHD-ARBPL.
    CLEAR ARBPL2.
    LOOP AT sumrecord where matnr = selrecord-matnr.
      ARBPL2 = sumrecord-ARBPL.
    ENDLOOP.
    sumrecord-MATNR = selrecord-MATNR .
    sumrecord-MAKTX = selrecord-MAKTX .
    sumrecord-EEIND = P_EINDT.
    sumrecord-BDMNG = selrecord-BDMNG .
    sumrecord-WERKS = selrecord-WERKS .
    sumrecord-LGORT = selrecord-LGORT .
    IF ARBPL2 is initial.
      sumrecord-ARBPL = selrecord-ARBPL.
    ELSE.
      sumrecord-ARBPL = ARBPL2.
    ENDIF.
    collect sumrecord .
    clear sumrecord .
  ENDLOOP.

  LOOP AT sumrecord.
    DATA: begin of itab_arbpl occurs 0 ,
    matnr like resb-matnr ,
    werks like resb-werks,
    lgort like resb-lgort,
    ARBPL like CRHD-ARBPL ,
    counts type int4,
    end of itab_arbpl.

    clear itab_arbpl.
    refresh itab_arbpl.

    LOOP AT selrecord where matnr = sumrecord-matnr and werks = sumrecord-werks and lgort = sumrecord-lgort.
      itab_arbpl-matnr = selrecord-matnr.
      itab_arbpl-werks = selrecord-werks.
      itab_arbpl-lgort = selrecord-lgort.
      itab_arbpl-arbpl = selrecord-arbpl.
      itab_arbpl-counts = 1.
      collect itab_arbpl.
      clear itab_arbpl.
    ENDLOOP.

    sort itab_arbpl BY counts DESCENDING .
       LOOP AT itab_arbpl .
          if sy-tabix = 1.
              sumrecord-arbpl = itab_arbpl-arbpl.
          endif.
       endloop.
    modify sumrecord.
  ENDLOOP.

*定义采购相关内表，获取采购数量
  DATA: BEGIN OF cgsltab occurs 0,
        MATNR LIKE EKPO-MATNR,
        WERKS LIKE EKPO-WERKS,
        LGORT LIKE EKPO-LGORT,
        MENGE LIKE EKPO-MENGE,
        EBELN LIKE EKPO-EBELN,
        EBELP LIKE EKPO-EBELP,
        BSART LIKE EKKO-BSART,
        EINDT LIKE EKET-EINDT,
        END OF cgsltab.
  DATA: cgsl type EKPO-MENGE.
  LOOP AT sumrecord .
    clear cgsltab.
    refresh cgsltab.
    "@@因为非限制库存只有一份，不能放在上面的collect中
    LOOP AT selrecord  WHERE MATNR = sumrecord-MATNR  and LGORT = sumrecord-LGORT .
      sumrecord-LABST = selrecord-LABST .
    ENDLOOP.
    sumrecord-MENGE = sumrecord-BDMNG - sumrecord-LABST .
*在这里求在途库存量
*ZEB采购－101＋102＋122
    SELECT EBELN
           EBELP
           MATNR
           WERKS
           LGORT
           MENGE
           INTO CORRESPONDING FIELDS OF TABLE cgsltab    "modify by hurd for index
    FROM EKPO
    WHERE MATNR = sumrecord-MATNR
          and WERKS = sumrecord-WERKS
          and LGORT = sumrecord-LGORT
          and LOEKZ <> 'L'  "已删除标志
          and ELIKZ <> 'X'. "已完成交货
    LOOP AT cgsltab.
      SELECT SINGLE BSART INTO cgsltab-BSART
      FROM EKKO
      WHERE EBELN = cgsltab-EBELN.
      "@@1.3(2)排除非ZEB的采购订单
      if cgsltab-BSART <> 'ZEB'.
        DELETE cgsltab index sy-tabix.
        continue.
      ENDIF.
      "@@1.3(3)排除日期大于需求日期的
      SELECT SINGLE EINDT INTO cgsltab-EINDT
      FROM EKET
      WHERE EBELN = cgsltab-EBELN and EBELP = cgsltab-EBELP.
      if cgsltab-EINDT > P_BDTER.
        delete cgsltab index sy-tabix.
        continue.
      ENDIF.
      modify cgsltab.
      clear cgsltab.
    ENDLOOP.

xiangzhao

"@@1.3(2)去除相应的收货－101＋102＋122
    LOOP AT cgsltab.
      DATA: 101_sl type EKPO-MENGE,
            102_sl type EKPO-MENGE,
            122_sl type EKPO-MENGE.
      101_sl = 0.
      102_sl = 0.
      122_sl = 0.
      SELECT MENGE FROM EKBE
      INTO 101_sl
      WHERE EBELN = cgsltab-EBELN
      and EBELP = cgsltab-EBELP
      and BWART = '101'.
        cgsltab-MENGE = cgsltab-MENGE - 101_sl .
      ENDSELECT.

      SELECT MENGE FROM EKBE
      INTO 102_sl
      WHERE EBELN = cgsltab-EBELN
      and EBELP = cgsltab-EBELP
      and BWART = '102'.
        cgsltab-MENGE = cgsltab-MENGE + 102_sl .
      ENDSELECT.

      SELECT MENGE FROM EKBE
      INTO 122_sl
      WHERE EBELN = cgsltab-EBELN
      and EBELP = cgsltab-EBELP
      and BWART = '122'.
        cgsltab-MENGE = cgsltab-MENGE + 122_sl .
      ENDSELECT.
      modify cgsltab.
      clear  cgsltab.
    ENDLOOP.
    "求得总采购数量
    cgsl = 0 .
    LOOP AT cgsltab.
      cgsl = cgsl + cgsltab-MENGE.
    ENDLOOP.

    "@@在途总量
    sumrecord-ZTKCL = cgsl.

    sumrecord-MENGE = sumrecord-MENGE - sumrecord-ZTKCL.
    "考虑将其圆整
    DATA: BSTRF like MARC-BSTRF.
    SELECT SINGLE BSTRF FROM MARC
    INTO BSTRF
    WHERE MATNR = sumrecord-MATNR and WERKS = P_WERKS2.
    IF BSTRF is not initial and BSTRF <> 0.
      sumrecord-MENGE = CEIL( sumrecord-MENGE / BSTRF ) * BSTRF .
    ENDIF.

    Modify sumrecord .
    clear sumrecord .
  ENDLOOP.
  LOOP AT sumrecord .
    if sumrecord-MENGE <= 0 .
      delete sumrecord index sy-tabix.
    endif.
  ENDLOOP.

  if sumrecord[] is initial .
    MESSAGE '线边库善有充足库存无需配送！' TYPE 'I'.
*     Leave to screen 0.
    STOP.
*    CALL TRANSACTION 'ZSCPSDD' USING bdcdata MODE pmode UPDATE umode
*                         MESSAGES INTO messtab.

  ELSE.
    perform displaying.
  endif. "end of sumrecord[] is initial .

TOP-OF-PAGE.

END-OF-selection .


*  SET PF-STATUS 'SCPSDD001'.

*AT USER-COMMAND.
*  PERFORM user_command.
*----------------------------------------------------------------------*
*        Start new screen                                              *
*----------------------------------------------------------------------*
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
  CLEAR BDCDATA.
  BDCDATA-PROGRAM  = PROGRAM.
  BDCDATA-DYNPRO   = DYNPRO.
  BDCDATA-DYNBEGIN = 'X'.
  APPEND BDCDATA.
ENDFORM.                    "BDC_DYNPRO

*----------------------------------------------------------------------*
*        Insert field                                                  *
*----------------------------------------------------------------------*
FORM BDC_FIELD USING FNAM FVAL.
*  IF FVAL <> NODATA.
  CLEAR BDCDATA..
  BDCDATA-FNAM = FNAM.
  BDCDATA-FVAL = FVAL.
  APPEND BDCDATA.
*  ENDIF.
ENDFORM.                    "BDC_FIELD

*perform close_group.
*perform close_dataset using dataset.
*&---------------------------------------------------------------------*
*&      Form  get_recordhead
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM get_recordhead .
  SHIFT P_EINDT  BY 3 PLACES LEFT.
  SHIFT P_WERKS  BY 3 PLACES LEFT.
*@@  SHIFT P_LGORT  BY 3 PLACES LEFT.
  SHIFT P_WERKS2 BY 3 PLACES LEFT.

xiangzhao

*供应商需要从输入P_WERKS2到供应商表中查询
  SELECT SINGLE LIFNR
  INTO (recordhead-LIFNR_001)
  FROM LFA1
  WHERE LFA1~WERKS = P_WERKS2.
  if recordhead-LIFNR_001 is initial .
    recordhead-LIFNR_001 = 'P1800' .
  endif.
  recordhead-BSART_002 = 'ZEB'.
  recordhead-BEDAT_003 = sy-datum .
  recordhead-EKORG_004 = '2000' .
  recordhead-EKGRP_005 = 'F01' .
  recordhead-EEIND_006 = P_EINDT .
  recordhead-LPEIN_007 = 'T' .
  recordhead-WERKS_008 = P_WERKS .
  recordhead-LGORT_009 = ''."@@去掉P_LGORT .
ENDFORM.                    " get_recordhead
*&---------------------------------------------------------------------*
*&      Form  get_record
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM get_record .

  SHIFT P_BDTER BY 3 PLACES LEFT.
  DATA:SOBSL LIKE MARC-SOBSL.
  DATA: SFPS(1).

*@@(11)发货工厂的特殊采购类
  DATA: FHGC(4),TSCGL(2).
*SHIFT  P_WERKS2 BY 3 PLACES LEFT.
  FHGC = P_WERKS2.
  CONDENSE FHGC.
*-----------------modify by hurd------
  case FHGC.
  when '1910'.
  TSCGL =  '61'.
  when '1920'.
  TSCGL =  '62'.
  when '2100'.
    TSCGL =  '63'.
  when '3100'.
    TSCGL =  '65'.
  when '1800'.
    TSCGL =  '66'.
  when '1200'.
    TSCGL =  '67'.
  when '1100'.
    TSCGL =  '68'.
  when '5100'.
    TSCGL =  '81'.
  endcase.
*-------------------------------------
*  IF  FHGC = '1910'.
*    TSCGL =  '61'.
*  ENDIF.
*  IF FHGC = '1920'.
*    TSCGL =  '62'.
*  ENDIF .
*  IF  FHGC = '2100'.
*    TSCGL =  '63'.
*  ENDIF .
*  IF  FHGC = '3100'.
*    TSCGL =  '65'.
*  ENDIF .
*  IF  FHGC = '1800'.
*    TSCGL =  '66'.
*  ENDIF .
*  IF  FHGC = '1200'.
*    TSCGL =  '67'.
*  ENDIF.
*  IF  FHGC = '1100'.
*    TSCGL =  '68'.
*  ENDIF.
*  IF  FHGC = '5100'.
*    TSCGL =  '81'.
*  ENDIF.

  DATA: isappend(1),
        appendcounts type i.
  appendcounts = 0.
*  SELECT  RSNUM RSPOS MATNR BDMNG BDTER WERKS LGORT SORTF AUFNR AUFPL APLZL FROM RESB
*  INTO (record-RSNUM,record-RSPOS,record-MATNR,record-BDMNG,record-BDTER,
*        record-WERKS,record-LGORT,SFPS,record-AUFNR,record-AUFPL,record-APLZL)
  SELECT  RSNUM
          RSPOS
          MATNR
          WERKS
          LGORT
          BDMNG
          BDTER
          AUFNR
          SORTF
          AUFPL
          APLZL
          FROM RESB
  INTO (record-RSNUM,record-RSPOS,record-MATNR,record-WERKS,record-LGORT,record-BDMNG,
        record-BDTER,record-AUFNR,SFPS,record-AUFPL,record-APLZL)   "modify by hurd   for index
*UP TO  P_SCSL ROWS "这里要用计数器
  where XLOEK = '' "@@（1）删除标志
          and KZEAR = '' "@@（2）发货完成标志
          and DUMPS = '' "@@去除虚拟件
          and BDART = 'AR' "@@20061114修改预留类型：OrdRes
          and WERKS IN P_WERKS "@@（3）收货工厂
          and LGORT IN P_LGORT "@@（4) 收货线边库
          and AUFNR in P_AUFNR "@@（5) 生产订单号
          and BDTER <= P_BDTER "@@ (6) 需求日期,去生产订单找基本开始日期GSTRP
          "@@（7）物料组在下面删掉
          and MATNR in P_MATNR . "@@（8）物料号

xiangzhao

isappend = 'Y'.

    "@@@判断排序字段
*    SELECT SINGLE SORTF FROM RESB INTO SFPS
*      WHERE RSNUM = record-RSNUM and MATNR = record-MATNR.
    IF P_PS = 'X'.
      IF SFPS = 'N'.
        isappend = 'N'.
        continue.
      ENDIF.
    ENDIF.
    IF P_FPS = 'X'.
      IF SFPS <> 'N'.
        isappend = 'N'.
        continue.
      ENDIF.
    ENDIF.
    "@@@判断物料组
    IF P_MATKL IS NOT initial.
      DATA: MATKL LIKE MARA-MATKL.
      SELECT SINGLE MATKL FROM MARA
      INTO MATKL
      WHERE MATNR = record-MATNR.
      IF MATKL NOT IN  P_MATKL.
        isappend = 'N'.
        continue.
      ENDIF.
    ENDIF.

    "@@（9）收货工厂的特殊采购类
    "@@061027:如果特殊采购类为空，则允许本工厂到本工厂
    SELECT SINGLE SOBSL FROM MARC
    INTO SOBSL
    WHERE MATNR = record-MATNR and WERKS in P_WERKS.
    IF SOBSL <> TSCGL .
      IF SOBSL is not initial or P_WERKS <> P_WERKS2.
        isappend = 'N'.
        continue.
      ENDIF.
    ENDIF.

    DATA: FHCCDD(4).
    DATA: BESKZ like marc-beskz,
          LGFSB like marc-lgfsb,
          LGPRO like marc-LGPRO.

    "@@(11)发货工厂的特殊采购类 20070709常进强要求修改
    SELECT SINGLE BESKZ LGFSB LGPRO FROM MARC
    INTO  (BESKZ,LGFSB,LGPRO)
    WHERE MATNR = record-MATNR and WERKS = FHGC.

    if BESKZ = 'F'.
      FHCCDD = LGFSB.
    elseif BESKZ = 'E'.
      FHCCDD = LGPRO.
    endif.

    "@@(12)MARC-LGFSB IN '发货存储地点‘
    IF P_LGFSB is not initial.
      IF FHCCDD NOT IN P_LGFSB.
        isappend = 'N'.
        continue.
      ENDIF.
    ENDIF.

**在途量不在这里考虑，而是对选择的物料进行按库位汇总后，再考虑
**在这里获得工作中心。
    DATA: PLNNR like AFVC-PLNNR,
          ARBID like AFVC-ARBID,
          ARBPL like CRHD-ARBPL.
    CLEAR PLNNR. CLEAR ARBID.CLEAR ARBPL.
*    select single PLNNR from caufv
*    into PLNNR
*    where aufnr = record-aufnr.

    select single ARBID from afvc
    into ARBID
    where AUFPL = record-AUFPL and APLZL = record-APLZL.

    select single arbpl from crhd
    into ARBPL
    where OBJID = ARBID and OBJTY = 'A'.

    record-ARBPL = ARBPL.

    IF isappend = 'N'.
      continue.
    ENDIF.
    "最后的加入
    IF isappend = 'Y'.
      append record.
      appendcounts = appendcounts + 1.
    ENDIF.
    clear  record.

  ENDSELECT.

  if record[] is initial .
    MESSAGE '没有查询到数据' TYPE 'I'.
    STOP.
  endif.

  clear record.

  loop at record.

    SELECT SINGLE MAKTX FROM MAKT
      INTO record-MAKTX
      WHERE MATNR = record-MATNR .

    SELECT SINGLE LABST FROM MARD
      INTO record-LABST
      WHERE WERKS = record-WERKS and  LGORT = record-LGORT
            and MATNR = record-MATNR .

    record-MENGE = record-BDMNG - record-LABST .
    MODIFY record.
  endloop.
  SORT record BY RSNUM ASCENDING.
  IF record[] IS INITIAL.
    MESSAGE '没有查询到数据' TYPE 'I'.
*    CALL TRANSACTION 'ZSCPSDD' USING bdcdata MODE pmode UPDATE umode
*                         MESSAGES INTO messtab.
    STOP.
  ENDIF.
ENDFORM.                    " get_record
*&---------------------------------------------------------------------*
*&      Form  output
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM output .

xiangzhao

if sy-subrc <> 0. exit. endif.

  perform bdc_dynpro      using 'SAPMM06E' '0100'.
  perform bdc_field       using 'BDC_CURSOR'
                                'RM06E-LGORT'.
  perform bdc_field       using 'BDC_OKCODE'
                                '=AB'.
  perform bdc_field       using 'EKKO-LIFNR'
                                recordhead-LIFNR_001. "供应商帐户号1800
  perform bdc_field       using 'RM06E-BSART'
                                recordhead-BSART_002. "订单类型（采购）:ZEB
  perform bdc_field       using 'RM06E-BEDAT'
                                recordhead-BEDAT_003. "采购订单日期:sy-datum
  perform bdc_field       using 'EKKO-EKORG'
                                recordhead-EKORG_004. "采购组织:2000
  perform bdc_field       using 'EKKO-EKGRP'
                                recordhead-EKGRP_005.       "采购组:F01
  perform bdc_field       using 'RM06E-EEIND'
                                recordhead-EEIND_006. "交货日期:P_EINDT
  perform bdc_field       using 'RM06E-LPEIN'
                                recordhead-LPEIN_007. "交货日的类别:T
  perform bdc_field       using 'RM06E-WERKS'
                                recordhead-WERKS_008. "工厂:P_WERKS
*因交货地点多个，所以需要屏蔽掉，并在后面进行改动
  perform bdc_field       using 'RM06E-LGORT'
                                recordhead-LGORT_009. "库存地点:P_LGORT,实际为空
  DATA: counts type i ,
        tabcounts type i.
  counts = 1 .
  tabcounts = 0 .
  Loop At sumrecord where chkid = 'X'.
    tabcounts = sy-tabix .
  endloop.
  DATA: countchar(4)  ,
        tabcountchar(4)  ,
        totalparam(20) type c VALUE  'EKPO-MENGE('.
  tabcountchar = tabcounts .
  condense tabcountchar.
  if tabcounts < 10 .
    CONCATENATE totalparam '0' tabcountchar ')' INTO totalparam .
  else .
    CONCATENATE totalparam  tabcountchar ')' INTO totalparam .
  endif .
  perform bdc_dynpro      using 'SAPMM06E' '0120'.
  perform bdc_field       using 'BDC_CURSOR'
                                totalparam.
  perform bdc_field       using 'BDC_OKCODE'
                                '=BU'.

  DATA: param1(20) type c VALUE 'EKPO-EMATN(',
        param2(20) type c VALUE 'EKPO-MENGE(',
        param3(30) type c VALUE 'EKPO-LGORT(',"@@增加仓库
        data(13) type c VALUE ' '.
  loop at sumrecord where chkid = 'X'.
    param1 = 'EKPO-EMATN('.
    countchar = counts.
    condense countchar.
    if counts < 10 .
      CONCATENATE param1 '0' countchar ')' INTO param1 .
    else .
      CONCATENATE param1  countchar ')' INTO param1 .
    endif .

    perform bdc_field       using param1
                                  sumrecord-MATNR. "物料号码
    counts = counts + 1 .
  ENDLOOP.

  counts = 1.
  loop at sumrecord where chkid = 'X'.
    param2 = 'EKPO-MENGE('.
    data = ' '.
    countchar = counts.
    condense countchar.
    if counts < 10 .
      CONCATENATE param2 '0' countchar ')' INTO param2 .
    else .
      CONCATENATE param2  countchar ')' INTO param2 .
    endif .
    data = sumrecord-MENGE.
    perform bdc_field       using param2
                                  data . "采购订单数量
    counts = counts + 1 .
  ENDLOOP.

  counts = 1.
  loop at sumrecord where chkid = 'X'.
    param3 = 'EKPO-LGORT('.
    countchar = counts.
    condense countchar.
    if counts < 10 .
      CONCATENATE param3 '0' countchar ')' INTO param3 .
    else .
      CONCATENATE param3  countchar ')' INTO param3 .
    endif ..
    perform bdc_field       using param3
                                  sumrecord-LGORT . "采购订单数量
    counts = counts + 1 .
  ENDLOOP.


  perform bdc_dynpro      using 'SAPLSPO1' '0300'.
  perform bdc_field       using 'BDC_OKCODE'
                                '=YES'.
  CALL TRANSACTION 'ME21' USING bdcdata MODE pmode UPDATE umode
                         MESSAGES INTO messtab.

  DATA issuccess(1) TYPE C.
  issuccess = 'N'.
  LOOP AT messtab.
    issuccess = messtab-MSGTYP.
  ENDLOOP.
  if issuccess = 'S' .
    perform wtodata.
  endif.
  SET SCREEN 0.
  LEAVE SCREEN.
ENDFORM.                    " output

**&---------------------------------------------------------------------*
**&      Form  USER_COMMAND
**&---------------------------------------------------------------------*
**       text
**----------------------------------------------------------------------*
**      -->UCOMM      text
**      -->ENDFORM    text
**----------------------------------------------------------------------*
*form USER_COMMAND .
*  CASE sy-ucomm.
*    WHEN 'GEN'.
*      perform bapioutput.
*  ENDCASE.
*ENDFORM .                    "USER_COMMAND
*&---------------------------------------------------------------------*
*&      Form  wtodata
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM wtodata .
  DATA: indata like  ZSCPSDD.
  loop at selrecord .
    indata-RSNUM = selrecord-RSNUM .
    indata-MATNR = selrecord-MATNR .
    modify ZSCPSDD from indata.
*     append indata .
*     clear indata .
  endloop.
*       insert into ZSCPSDD
*     from TABLE indata.

xiangzhao

ENDFORM.                    " wtodata
*&------------------------------------------------------------*
*&      Form  displaying
*&------------------------------------------------------------*
*       text
*-------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*-------------------------------------------------------------*
FORM displaying.

  TYPE-POOLS slis.
  DATA: ws_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
        ws_fieldgroups_tab TYPE slis_t_sp_group_alv,
        ws_layout          TYPE slis_layout_alv,
        ws_sortfields_tab  TYPE slis_t_sortinfo_alv WITH HEADER LINE,
        ws_events          TYPE slis_t_event.
  DATA: v_repid LIKE sy-repid.
  DATA: nn TYPE i VALUE 0.
  DATA: title TYPE lvc_title.

  SORT sumrecord BY matnr .

  DEFINE hout.
    nn = nn + 1.
    ws_fieldcat-tabname   = 'SUMRECORD'.
    ws_fieldcat-fieldname = '&1'.
    ws_fieldcat-seltext_m =  &2.
    ws_fieldcat-col_pos   =  nn.
    ws_fieldcat-outputlen =  &3.
*    ws_fieldcat-datatype  = '&4'.
    ws_fieldcat-do_sum    = '&4'.
    ws_fieldcat-lzero     = 'X'.
    append ws_fieldcat.
    clear ws_fieldcat.
  END-OF-DEFINITION.

*  hout ebeln          '配送单号'     10 char ''.
*  hout ebelp          '项目'         10 char ''.
  hout matnr          '物料号'       18   ''.
  hout maktx          '物料描述'     40   ''.
  hout EEIND          '交货日期'     8  ''.
*  hout werks          '收货工厂'     08 char ''.
  hout lgort          '交货地点'       06   ''.
  hout arbpl          '工作中心'         8   ''.
  hout BDMNG          '需求量' 13 ''.
  hout LABST          '库存量' 13  ''.
  hout ZTKCL          '在途量' 13  ''.
  hout menge          '配送数量' 13   ''.
*  hout KONNR          '框架协议' 18 char ''.
*  hout wamng          '已配送量'     18 quan ''.
*  hout chayi          '配送差额'     18 quan ''.
*  hout labst          '现有库存'     18 quan ''.
*  hout insme          '在检库存'     18 quan ''.
*  hout prueflos       '检验批号'     18 char ''.
*  hout vbeln          '交货单号'     18 char ''.
*  hout jyp_sl         '进货数量'     18 quan ''.
*  hout jjfx_sl        '紧急放行数量' 18 quan ''.
*  hout mblnr          '物料凭证编号' 12 char ''.
*  hout zflag1         '已检验收货'   10 char ''.
*  hout zflag2         '已发货过账'   10 char ''.
*


  MOVE '生成转储拣配单' TO title.
  ws_layout-zebra             = 'X'.
  ws_layout-get_selinfos      = ''.
  ws_layout-colwidth_optimize = 'X'.
  ws_layout-detail_popup      = 'X'.
  ws_layout-no_keyfix         = 'X'.
*  WS_layout-colwidth_optimize = 'X'.
*  WS_LAYOUT-totals_before_items = 'X'.
  ws_layout-box_fieldname     = 'CHKID'.

  v_repid = sy-repid.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program       = v_repid
      i_callback_pf_status_set = 'MENU_SET'
      i_callback_user_command  = 'EXECUTE_COMMAND'
      is_layout                = ws_layout
      it_fieldcat              = ws_fieldcat[]
      it_special_groups        = ws_fieldgroups_tab[]
      it_sort                  = ws_sortfields_tab[]
      it_events                = ws_events[]
      i_grid_title             = title
    TABLES
      t_outtab                 = sumrecord
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.


ENDFORM.                    " displaying
*&---------------------------------------------------------------------*
*&      Form  menu_set
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->RT_EXTAB   text
*----------------------------------------------------------------------*
FORM menu_set USING rt_extab TYPE slis_t_extab..

  SET PF-STATUS 'SCPSDD001' .
ENDFORM.                    "menu_set

*&---------------------------------------------------------------------*
*&      Form  execute_command
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->R_UCOMM      text
*      -->RS_SELFIELD  text
*----------------------------------------------------------------------*
FORM execute_command USING r_ucomm LIKE sy-ucomm
                        rs_selfield TYPE slis_selfield.
  CASE r_ucomm.
    WHEN 'GEN'.
*       perform output.
*      clear msg .
      perform bapioutput.
*      MESSAGE msg type 'I'."msgtype .
    when '&IC1'.
      if not rs_selfield-value is initial.
        case rs_selfield-fieldname.
          when 'MATNR' OR 'MAKTX'  OR 'EEIND' OR 'LGORT' OR 'ARBPL' OR 'BDMNG' OR 'LABST' OR 'ZTKCL' OR 'MENGE'.
            clear mdezx.
            refresh mdezx.
            clear mdpsx.
            refresh mdpsx.
            clear mdsux .
            refresh mdsux.
            READ TABLE sumrecord INDEX rs_selfield-tabindex INTO sumrecord_wa.
            call function 'MD_STOCK_REQUIREMENTS_LIST_API'
              EXPORTING
                matnr = sumrecord_wa-matnr
                werks = sumrecord_wa-werks
              TABLES
                mdpsx = mdpsx
                mdezx = mdezx
                mdsux = mdsux.
            if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
            endif.
            clear itab_mrp.
            refresh itab_mrp.
            LOOP AT record where matnr = sumrecord_wa-matnr and werks = sumrecord_wa-werks and lgort = sumrecord_wa-lgort.
              itab_mrp-RSNUM  =  record-RSNUM  .
              itab_mrp-RSPOS  =  record-RSPOS  .
              itab_mrp-MATNR  =  record-MATNR  .
              itab_mrp-MAKTX  =  record-MAKTX  .
              itab_mrp-BDMNG  =  record-BDMNG  .
              itab_mrp-BDTER  =  record-BDTER  .
              itab_mrp-LABST  =  record-LABST  .
              itab_mrp-MENGE  =  record-MENGE  .
              itab_mrp-WERKS  =  record-WERKS  .
              itab_mrp-LGORT  =  record-LGORT  .
              itab_mrp-AUFNR  =  record-AUFNR  .
              itab_mrp-GSTRP  =  record-GSTRP  .
              itab_mrp-ARBPL  =  record-ARBPL  .
              itab_mrp-AUFPL  =  record-AUFPL  .
              itab_mrp-APLZL  =  record-APLZL  .
              itab_mrp-DELB0          =    'OrdRes'.
*              select single PLNBEZ from afko
*              into itab_mrp-PLNBEZ
*              where AUFNR = itab_mrp-AUFNR.
              loop at mdpsx into wa_mdpsx where DELKZ = 'AR' and DAT00 = itab_mrp-BDTER and MNG01 = itab_mrp-BDMNG
              and DEL12 = itab_mrp-AUFNR.
                itab_mrp-PLNBEZ  = wa_mdpsx-BAUGR.
              ENDLOOP.
              if itab_mrp-PLNBEZ is initial.
                itab_mrp-PLNBEZ = itab_mrp-aufnr.
              endif.

              append itab_mrp.
            ENDLOOP.

xiangzhao

LOOP AT ITAB_MRP(物料需求计划).
                 select single PLNBEZ from afko
                 into itab_mrp-matnr
                 where aufnr = itab_mrp-aufnr.

                 select single maktx from makt
                 into itab_mrp-maktx
                 where matnr = itab_mrp-matnr.

                 modify itab_mrp.
            ENDLOOP.
            perform displaying2.
        endcase.
      endif.
  ENDCASE.
ENDFORM.                    "execute_command
*&---------------------------------------------------------------------*
*&      Form  bapioutput
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM bapioutput .
  DATA: begin of artab occurs 0,
        arbpl like crhd-arbpl,
        END OF artab.

  LOOP AT sumrecord where CHKID = 'X'.
    artab-arbpl = sumrecord-arbpl.
    append artab.
  ENDLOOP.

  sort artab by arbpl.
  delete adjacent duplicates from artab.

  LOOP AT artab.
    clear itab_poheader.
    clear itab_poheader[].
    clear itab_poheaderx.
    clear itab_poheaderx[].
    clear itab_poitems.
    clear itab_poitems[].
    clear itab_poitemx.
    clear itab_poitemx[].
    clear itab_itemsche.
    clear itab_itemsche[].
    clear itab_itemschex.
    clear itab_itemschex[].

    itab_poheader-doc_date =  sy-datum."P_EINDT."recordhead-EKORG_004."P_EINDT."P_BDTER."sy-datum.
    itab_poheader-creat_date = sy-datum.
    itab_poheader-doc_type = recordhead-BSART_002."'ZDB'."ZDB
*  itab_poheader-comp_code = BUKRS."'1001'.
*  itab_poheader-comp_code = bukrs."1001三一重工
    itab_poheader-purch_org = recordhead-EKORG_004."'1100'."采购组织
    itab_poheader-pur_group = recordhead-EKGRP_005."'F01'."采购组
    itab_poheader-vendor = recordhead-LIFNR_001."P_LIFNR ."供应商帐户号
*  itab_poheader-currency = 'RMB'.
*  itab_itemsche-
    APPEND itab_poheader.
    itab_poheaderx-doc_date = 'X'.
    itab_poheaderx-doc_type = 'X'.
*  itab_poheaderx-comp_code = 'X'.
    itab_poheaderx-creat_date = 'X'.
    itab_poheaderx-vendor = 'X'.
    itab_poheaderx-purch_org = 'X'.
    itab_poheaderx-pur_group = 'X'.
*  itab_poheaderx-currency = 'X'.
    APPEND itab_poheaderx.

*****LOOP
    DATA: po_item(5) type N,
          ps_item(4) type N.
    po_item = '10' .
    ps_item = '1'.
    LOOP AT sumrecord where CHKID = 'X' and arbpl = artab-arbpl.
      itab_poitems-po_item = po_item.
      itab_poitems-material = sumrecord-MATNR.
      itab_poitems-stge_loc = sumrecord-LGORT.
*  itab_poitems-gr_to_date = sy-datum.
      itab_poitems-plant = sumrecord-WERKS.
      itab_poitems-quantity = sumrecord-MENGE.
*  itab_poitems-agreement = sumrecord-KONNR.
*  itab_poitems-agmt_item = sumrecord-KTPNR .
      itab_poitems-tax_code = 'J1'.                         "J1税码
      itab_poitems-trackingno = sumrecord-ARBPL.
      APPEND itab_poitems.

      itab_poitemx-po_item = po_item.
      itab_poitemx-material = 'X'.
      itab_poitemx-quantity = 'X'.
      itab_poitemx-gr_to_date = 'X'.
      itab_poitemx-plant = 'X'.
      itab_poitemx-stge_loc = 'X'.
      itab_poitemx-tax_code = 'X'.
*  itab_poitemx-agreement ='X'.
*  itab_poitemx-agmt_item ='X'.
      itab_poitemx-trackingno = 'X'.
      APPEND itab_poitemx.
      itab_itemsche-PO_ITEM = po_item.
      itab_itemsche-SCHED_LINE = ps_item.
*  itab_itemsche-DEL_DATCAT_EXT = '1'.
      itab_itemsche-DELIVERY_DATE = P_EINDT."P_EINDT."P_BDTER."sy-datum.
      itab_itemsche-QUANTITY = sumrecord-MENGE.
      APPEND itab_itemsche.
      itab_itemschex-PO_ITEM = po_item.
      itab_itemschex-SCHED_LINE = ps_item.
      itab_itemschex-PO_ITEMX = 'X'.
      itab_itemschex-SCHED_LINEX = 'X'.
*  itab_itemschex-DEL_DATCAT_EXT = 'X'.
      itab_itemschex-DELIVERY_DATE = 'X'.
      APPEND itab_itemschex.
      po_item = po_item + 10 .
      ps_item = ps_item + 1.
    ENDLOOP.
    perform create_po.
  ENDLOOP.
  IF instab[] is not initial.
    insert  zdscdd  FROM TABLE  instab .
    commit work.
    clear instab[].
  ENDIF.
ENDFORM.                    " bapioutput
*&---------------------------------------------------------------------*
*&      Form  create_po
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM create_po .

  CALL FUNCTION 'BAPI_PO_CREATE1'
    EXPORTING
      poheader    = itab_poheader
      poheaderx   = itab_poheaderx
    TABLES
      return      = return
      poitem      = itab_poitems
      poitemx     = itab_poitemx
      POSCHEDULE  = itab_itemsche
      poschedulex = itab_itemschex.

  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
*  msgtype = 'S'.
  Loop at return where type = 'S' or type = 'E'.
*    msgtab-msg = return-message.
    concatenate return-message return-MESSAGE_V1 return-MESSAGE_V2 return-MESSAGE_V3 return-MESSAGE_V4 into msgtab-msg.
    msgtab-msgtype = return-type.

    message msgtab-msg type 'I'. "return-type.

    IF return-type = 'S' and return-ID = '06' and return-Number = '017'.
      instab-ebeln = return-MESSAGE_V2.
      instab-werks = P_WERKS.
      instab-AEDAT = sy-datum.
      append instab.
    ENDIF.
  ENDLOOP.

xiangzhao

*  IF msgtype = 'S'.
*    delete sumrecord where CHKID = 'X'.
*  ENDIF.

ENDFORM.                    " create_po
*&---------------------------------------------------------------------*
*&      Form  write_zlog
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM write_zlog .
  data:wa_zlog type zlog.
  wa_zlog-zdate = sy-datum.
  wa_zlog-ztime = sy-uzeit.
  wa_zlog-USERNAME = sy-uname.
  wa_zlog-TCODE = sy-tcode.
  wa_zlog-PGMNA = sy-repid.
  insert into zlog values wa_zlog.
ENDFORM.                    " write_zlog
*&------------------------------------------------------------*
*&      Form  displaying2
*&------------------------------------------------------------*
*       text
*-------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*-------------------------------------------------------------*
FORM displaying2.

  TYPE-POOLS slis.
  DATA: ws_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
        ws_fieldgroups_tab TYPE slis_t_sp_group_alv,
        ws_layout          TYPE slis_layout_alv,
        ws_sortfields_tab  TYPE slis_t_sortinfo_alv WITH HEADER LINE,
        ws_events          TYPE slis_t_event.
  DATA: v_repid LIKE sy-repid.
  DATA: nn TYPE i VALUE 0.
  DATA: title TYPE lvc_title.

  DEFINE hout.
    nn = nn + 1.
    ws_fieldcat-tabname   = 'ITAB_MRP(物料需求计划)'.
    ws_fieldcat-fieldname = '&1'.
    ws_fieldcat-seltext_m =  &2.
    ws_fieldcat-col_pos   =  nn.
    ws_fieldcat-outputlen =  &3.
*    ws_fieldcat-datatype  = '&4'.
    ws_fieldcat-do_sum    = '&4'.
    ws_fieldcat-lzero     = 'X'.
    append ws_fieldcat.
    clear ws_fieldcat.
  END-OF-DEFINITION.


  hout BDTER          '订单需求日期'       8   ''.
  hout AUFNR          '订单号'     12  ''.
  hout MATNR          '订单物料'     18  ''.
  hout MAKTX          '订单物料描述'       40   ''.
  hout DELB0          'MRP(物料需求计划)元素'         6   ''.
  hout PLNBEZ          'MRP(物料需求计划)元素数据' 18 ''.
  hout BDMNG          '需求数量' 13  ''.
  hout LGORT          '交货地点' 4 ''.
  hout ARBPL          '工作中心' 13   ''.


  MOVE 'MRP(物料需求计划)元素' TO title.
  ws_layout-zebra             = 'X'.
  ws_layout-get_selinfos      = ''.
  ws_layout-colwidth_optimize = 'X'.
  ws_layout-detail_popup      = 'X'.
  ws_layout-no_keyfix         = 'X'.
*  WS_layout-colwidth_optimize = 'X'.
*  WS_LAYOUT-totals_before_items = 'X'.
*  ws_layout-box_fieldname     = 'CHKID'.

  v_repid = sy-repid.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program       = v_repid
      i_callback_pf_status_set = 'MENU_SET'
      i_callback_user_command  = 'EXECUTE_COMMAND'
      is_layout                = ws_layout
      it_fieldcat              = ws_fieldcat[]
      it_special_groups        = ws_fieldgroups_tab[]
      it_sort                  = ws_sortfields_tab[]
      it_events                = ws_events[]
      i_grid_title             = title
    TABLES
      t_outtab                 = ITAB_MRP(物料需求计划)
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.


ENDFORM.                    " displaying2

　 adJustImgs($('postbody')); linkTxt($('postbody'));