采购订单更改日期的妙用暂存订单

拼搏现实的明天。 2022-03-24 14:31 296阅读 0赞

[采购订单更改日期的妙用][Link 1]

分类：

2009-11-06 14:39:40

采购订单项目表中的更改日期妙用——EKPO-AEDAT.

1.记录删除的日期

一开始用户要此信息，我都使用跟踪查找到CDPOS更改凭证项目表，使用此表勉强可以得到正确的信息，但是如果CLIENT COPY做得不好，此类信息会丢失，所以在开发的CLIENT却很难测试正确。方法如下：

LOOP AT ITAB\_100 WHERE LOEKZ = 'L'.  
    CONCATENATE  ‘％' ITAB\_100-EBELN ITAB\_100-EBELP INTO ITAB\_100-EBENP.  
    SELECT SINGLE CHANGENR INTO ITAB\_100-CHANGENR FROM CDPOS  
    WHERE TABNAME = 'EKPO' AND FNAME = 'LOEKZ' AND VALUE\_NEW = 'L' AND TABKEY LIKE ITAB\_100-EBENP.  
    IF SY-SUBRC = 0.  
      SELECT SINGLE VALUE\_NEW INTO ITAB\_100-MAEDAT FROM CDPOS  
      WHERE TABNAME = 'EKPO' AND FNAME = 'AEDAT' AND CHANGENR = ITAB\_100-CHANGENR .  
    ENDIF.  
    MODIFY ITAB\_100.  
    CLEAR ITAB\_100.  
  ENDLOOP.

\*\*\*注意MAEDAT必须LIKE CDPOS-VALUE\_NEW

但是事后才发觉，这些代码都是多此一举，仅仅EKPO-AEDAT这个字段就记录了删除日期，只要抓取它就可以了。方法如下：

IF ITAB\_100-LOEKZ = 'L'.  
      ITAB\_100-STATE = '删除'.  
      ITAB\_100-MAEDAT = ITAB\_100-AEDATP.  
    ELSE.  
      IF ITAB\_100-AEDATP IS INITIAL.  
        ITAB\_100-STATE = '错误'.  
      ELSE.  
        ITAB\_100-STATE = '正常'.  
      ENDIF.  
    ENDIF.

2.记录采购订单暂存状态

当采购订单的项目前有个红色的圆点状，表示此订单为暂存状态，也可以用这个EKPO-AEDAT来识别。

当EKPO-AEDAT为空的情况，表示此采购订单的此项为暂存状态，有部分信息需要填充，否则不能正常使用。

方法如下：

IF ITAB\_100-AEDATP IS INITIAL.  
        ITAB\_100-STATE = '错误'.  
      ELSE.  
        ITAB\_100-STATE = '正常'.  
      ENDIF.  
××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××

整个报表范例：  
REPORT  ×××××× no standard page heading MESSAGE-ID zjxydmessage.  
\*--------------------------------------------------------------\*  
\*Defind include for ALV output.  
\*--------------------------------------------------------------\*  
TYPE-POOLS: SLIS.  
INCLUDE .  
INCLUDE .  
\*--------------------------------------------------------------\*  
\*Data definition  
\*--------------------------------------------------------------\*  
CONSTANTS:  
GC\_FORMNAME\_TOP\_OF\_PAGE TYPE SLIS\_FORMNAME VALUE 'TOP\_OF\_PAGE'.

DATA: GT\_FIELDCAT TYPE SLIS\_T\_FIELDCAT\_ALV,  
      GS\_LAYOUT   TYPE SLIS\_LAYOUT\_ALV,  
      GT\_SP\_GROUP TYPE SLIS\_T\_SP\_GROUP\_ALV,  
      GT\_EVENTS   TYPE SLIS\_T\_EVENT.

DATA: G\_SAVE(1) TYPE C,  
      G\_DEFAULT(1) TYPE C,  
      G\_EXIT(1) TYPE C,  
      GX\_VARIANT LIKE DISVARIANT,  
      G\_USER\_COMMAND TYPE SLIS\_FORMNAME VALUE 'USER\_COMMAND',  
      G\_VARIANT LIKE DISVARIANT,  
      G\_REPID LIKE SY-REPID,  
      V\_ANSWER,  
      v\_program(40),  
      v\_printdate(60),  
      v\_tcode(20),  
      V\_ERRORFLAG TYPE N.  
DATA: GT\_LIST\_TOP\_OF\_PAGE TYPE SLIS\_T\_LISTHEADER.  
\*----------------------------------------------------------------------\*  
\*定义TABLE  
\*---------------------------------------------------------------------\*  
tables: EKKO,                                            "采购凭证抬头  
        EKPO,                                            "采购凭证项目  
        MEPO\_TOPLINE,  
        T007S.                                           "税收代码  
data: begin of itab\_100 occurs 1,  
      WERKS          LIKE          EKPO-WERKS,          "工厂  
      LIFNR          LIKE          EKKO-LIFNR,          "供应商帐号  
      NAME1          LIKE          LFA1-NAME1,          "供应商帐号  
      EBELN          LIKE          EKKO-EBELN,          "采购凭证号  
      EBELP          LIKE          EKPO-EBELP,          "项目编号  
      EBENP(14)      TYPE          C,                   "订单号＋项目号  
      EBELN1         LIKE          EKKO-EBELN,          "采购凭证号  
      BSART          LIKE          EKKO-BSART,          "采购凭证类型  
      BATXT          LIKE          T161T-BATXT,         "采购凭证类型  
      KNUMV          LIKE          EKKO-KNUMV,          "采购凭证类型  
      KWERT          LIKE          KONV-KWERT,          "采购凭证类型  
      AEDAT          LIKE          EKKO-AEDAT,          "记录创建日期  
      AEDAT1         LIKE          EKKO-AEDAT,          "记录创建日期  
      GDATU          LIKE          TCURR-GDATU,         "记录创建日期  
      TXZ01          LIKE          EKPO-TXZ01,          "短文本  
      NETWR          LIKE          EKPO-NETWR,          "采购金额(不含税)  
      WAERS          LIKE          EKKO-WAERS,          "货币代码  
      UKURS          LIKE          TCURR-UKURS,         "汇率  
      MWSKZ          LIKE          EKPO-MWSKZ,          "税代码  
      TEXT1          LIKE          T007S-TEXT1,         "比例  
      EFFWR          LIKE          EKPO-EFFWR,          "项目的有效值  
      LOEKZ          LIKE          EKPO-LOEKZ,          "采购凭证删除标识  
      NETWR1         LIKE          EKPO-NETWR,          "采购金额(含税)  
      NETWR2         LIKE          EKPO-NETWR,          "运费金额(不含税)  
      NETWR3         LIKE          EKPO-NETWR,          "运费金额(含税)  
      NETWR4         LIKE          EKPO-NETWR,          "金额合计(含税)  
      CHANGENR       LIKE          CDPOS-CHANGENR,      "文档更改编号  
      SHOU(2)        TYPE          C,                   "是否收货  
      STATE(4)       TYPE          C,                   "订单状态  
      MAEDAT         LIKE          EKKO-AEDAT,          "删除日期  
      BI(2)          TYPE          C,                   "税比例  
      OTHER(20)      TYPE          C,                   "订单状态  
      end of itab\_100.  
\*-----检查权限控制  
data: begin of itab\_tvko occurs 0,  
       vkorg like tvko-vkorg,       "销售组织  
      end of itab\_tvko.  
data: v\_auth.                        "检查权限  
data:  VTEXT(30)       TYPE          C,                "部门名称  
       v\_bukrs         LIKE          TVKO-bukrs,       "部门名称  
       t\_bukrs         like          t001-butxt,       "公司名称  
       VKUNNR          LIKE          VBAK-KUNNR,       "售达方  
       OUT\_NO(20)      TYPE         C,                "HEAD文本用来填定出厂编号  
       V\_NETWR          LIKE          EKPO-NETWR,          "采购金额(含税)  
       VNAME(60)       TYPE          C.                "客户名称  
DATA:xname like thead-tdname,        "文本名称  
    xvbadr like vbadr,              "vbadr短文本地址工作区结构  
    xtline like tline occurs 10 with header line,  
    xflag(1),  
    xtemp like sy-tabix.  
\*--------------------------------------------------------------\*  
selection-screen begin of block b1 with frame title text-001.  
parameters: P\_BUKRS like EKKO-BUKRS obligatory .              "公司代码  
select-options: S\_WERKS for EKPO-WERKS obligatory .           "工厂  
select-options: S\_BSART for MEPO\_TOPLINE-BSART .                      "订单类型  
select-options: S\_EBELN for EKKO-EBELN .                      "订单类型  
select-options: S\_AEDAT for  EKKO-AEDAT  obligatory .          "订单创建日期  
selection-screen end of block b1.  
\*--------------------------------------------------------------\*  
\*Initiallize for ALV output  
\*--------------------------------------------------------------\*  
INITIALIZATION.  
  G\_REPID = SY-REPID.  
  G\_SAVE = 'A'.  
  CLEAR G\_VARIANT.  
  G\_VARIANT-REPORT = G\_REPID.

at selection-screen on S\_WERKS.  
  select single bukrs into v\_bukrs from TVKO  
              where VKORG IN S\_WERKS.  
  if v\_bukrs ne P\_bukrs.  
    message e021  with '请选择正确的工厂'.  
  endif.  
\*--------------------------------------------------------------\*  
start-of-selection.  
  perform author\_check.  
  if v\_auth ne 'X'.  
    perform get\_data.  
    perform sort\_data.  
    perform prepare\_alv.  
    perform list\_data.  
  endif.  
\*&-------------------------------------------------------------\*  
\*&      Form  get\_data  
\*&-------------------------------------------------------------\*  
\*       text  
\*--------------------------------------------------------------\*  
\*  -->  p1        text  
\*  <--  p2        text  
\*--------------------------------------------------------------\*  
FORM get\_data.  
  SELECT EKPO~WERKS EKKO~LIFNR EKKO~EBELN EKKO~BSART EKKO~KNUMV EKKO~AEDAT EKKO~WAERS  
         EKPO~TXZ01 EKPO~NETWR EKPO~MWSKZ EKPO~EFFWR EKPO~LOEKZ EKPO~EBELP  
     into corresponding fields of itab\_100  
     FROM EKKO INNER JOIN EKPO ON EKKO~EBELN = EKPO~EBELN  
     WHERE EKKO~EBELN IN S\_EBELN AND  
           EKKO~BUKRS = P\_BUKRS AND  
           EKPO~WERKS IN S\_WERKS AND  
           EKKO~BSART IN S\_BSART AND  
           EKKO~AEDAT IN S\_AEDAT .  
\*\*取供应商名称  
    SELECT SINGLE NAME1  INTO ITAB\_100-NAME1 FROM LFA1 WHERE LIFNR = ITAB\_100-LIFNR.  
\*\*取税描述  
    SELECT SINGLE TEXT1  INTO ITAB\_100-TEXT1 FROM T007S  
    WHERE SPRAS = '1' AND KALSM = 'TAXCN' AND MWSKZ = ITAB\_100-MWSKZ.  
\*\*取税比例  
    SPLIT ITAB\_100-TEXT1 AT '%' INTO ITAB\_100-BI ITAB\_100-OTHER.  
\*\*取采购金额(含税)  
    ITAB\_100-NETWR1 = ITAB\_100-NETWR + ITAB\_100-NETWR \* ITAB\_100-BI.  
\*\*取订单类型描述  
    SELECT SINGLE BATXT  INTO ITAB\_100-BATXT FROM T161T WHERE BSART = ITAB\_100-BSART.  
\*\*取汇率(月初的汇率)  
    CONCATENATE  ITAB\_100-AEDAT(6) '01' INTO ITAB\_100-AEDAT1.  
    CONVERT DATE ITAB\_100-AEDAT1 INTO INVERTED-DATE ITAB\_100-GDATU.  
    ITAB\_100-UKURS = 1.  
    SELECT  SINGLE UKURS INTO ITAB\_100-UKURS  FROM TCURR  
       WHERE KURST = 'M' AND FCURR = ITAB\_100-WAERS AND  TCURR = 'CNY' AND GDATU =  ITAB\_100-GDATU.  
\*\*取金额合计(含税)  
    ITAB\_100-NETWR4 = ( ITAB\_100-NETWR1 + ITAB\_100-NETWR3 ) \* ITAB\_100-UKURS.  
\*\*判断是否有收货  
    SELECT SINGLE EBELN INTO ITAB\_100-EBELN1 FROM EKBE WHERE EBELN = ITAB\_100-EBELN AND BEWTP = 'E'.  
    IF SY-SUBRC = 0.  
      ITAB\_100-SHOU = '是'.  
    ELSE.  
      ITAB\_100-SHOU = '否'.  
    ENDIF.  
\*\*判断是删除  
    IF ITAB\_100-LOEKZ = 'L'.  
      ITAB\_100-STATE = '删除'.  
    ELSE.  
      ITAB\_100-STATE = '正常'.  
    ENDIF.  
    APPEND ITAB\_100.  
    CLEAR ITAB\_100.  
  ENDSELECT.  
\*\*取运费  
  LOOP AT ITAB\_100 .  
    IF ITAB\_100-EFFWR NE ITAB\_100-NETWR.  
      SELECT  KWERT  INTO V\_NETWR  FROM KONV  
         WHERE KNUMV = ITAB\_100-KNUMV AND ( KSCHL = 'FRC1' OR KSCHL = 'FRC2').  
        ITAB\_100-NETWR2 = ITAB\_100-NETWR2 + V\_NETWR .  
        V\_NETWR = 0.  
      ENDSELECT.  
\*\*取运费金额(含税)  
      ITAB\_100-NETWR3 = ITAB\_100-NETWR2 \* 100 / 93 .  
\*\*取金额合计(含税)  
      ITAB\_100-NETWR4 = ( ITAB\_100-NETWR1 + ITAB\_100-NETWR3 ) \* ITAB\_100-UKURS.  
      MODIFY ITAB\_100.  
      CLEAR ITAB\_100.  
    ENDIF.  
  ENDLOOP.  
\*\*取删除日期  
  LOOP AT ITAB\_100 WHERE LOEKZ = 'L'.  
    CONCATENATE  ITAB\_100-EBELN ITAB\_100-EBELP INTO ITAB\_100-EBENP.  
    SELECT SINGLE CHANGENR INTO ITAB\_100-CHANGENR FROM CDPOS  
    WHERE TABNAME = 'EKPO' AND FNAME = 'LOEKZ' AND VALUE\_NEW = 'L' AND TABKEY = ITAB\_100-EBENP.  
    IF SY-SUBRC = 0.  
      SELECT SINGLE VALUE\_NEW INTO ITAB\_100-MAEDAT FROM CDPOS  
      WHERE TABNAME = 'EKPO' AND FNAME = 'AEDAT' AND CHANGENR = ITAB\_100-CHANGENR .  
    ENDIF.  
    MODIFY ITAB\_100.  
    CLEAR ITAB\_100.  
  ENDLOOP.  
ENDFORM.                    " get\_data  
\*&---------------------------------------------------------------------\*  
\*&      Form  sort\_data  
\*&---------------------------------------------------------------------\*  
\*       text  
\*----------------------------------------------------------------------\*  
\*  -->  p1        text  
\*  <--  p2        text  
\*----------------------------------------------------------------------\*  
FORM sort\_data .  
  sort itab\_100 by AEDAT EBELN.  
ENDFORM.                    " sort\_data  
\*&-------------------------------------------------------------\*  
\*&      Form  list\_data  
\*&-------------------------------------------------------------\*  
\*       text  
\*--------------------------------------------------------------\*  
\*  -->  p1        text  
\*  <--  p2        text  
\*--------------------------------------------------------------\*  
FORM list\_data.

CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY'             "output via ALV  
         EXPORTING  
              I\_CALLBACK\_PROGRAM      = G\_REPID  
              IT\_FIELDCAT             = GT\_FIELDCAT\[\]  
              IT\_EVENTS               = GT\_EVENTS\[\]  
              I\_SAVE = 'A'  
         TABLES  
              T\_OUTTAB                = ITAB\_100.

ENDFORM.                    " list\_data  
\*---------------------------------------------------------------------\*  
\*       FORM TOP\_OF\_PAGE                                              \*  
\*---------------------------------------------------------------------\*  
\*       ........                                                      \*  
\*---------------------------------------------------------------------\*  
FORM TOP\_OF\_PAGE.  
\*---prepare ALV header output  
  CALL FUNCTION 'REUSE\_ALV\_COMMENTARY\_WRITE'  
    EXPORTING  
      i\_logo             = 'ENJOYSAP\_LOGO'  
      IT\_LIST\_COMMENTARY = GT\_LIST\_TOP\_OF\_PAGE.  
ENDFORM.                    "list\_data  
\*&---------------------------------------------------------------------\*  
\*&      Form  prepare\_alv  
\*&---------------------------------------------------------------------\*  
\*       text  
\*----------------------------------------------------------------------\*  
\*  -->  p1        text  
\*  <--  p2        text  
\*----------------------------------------------------------------------\*  
FORM prepare\_alv .  
  PERFORM E01\_FIELDCAT\_INIT  USING GT\_FIELDCAT\[\].  
  PERFORM E03\_EVENTTAB\_BUILD USING GT\_EVENTS\[\].  
  PERFORM E04\_COMMENT\_BUILD  USING GT\_LIST\_TOP\_OF\_PAGE\[\].  
ENDFORM.                    " prepare\_alv  
\*&---------------------------------------------------------------------\*  
\*&      Form  E01\_FIELDCAT\_INIT  
\*&---------------------------------------------------------------------\*  
\*       text  
\*----------------------------------------------------------------------\*  
\*      -->P\_GT\_FIELDCAT\[\]  text  
\*----------------------------------------------------------------------\*  
FORM E01\_FIELDCAT\_INIT USING E01\_LT\_FIELDCAT TYPE SLIS\_T\_FIELDCAT\_ALV.

DATA: LS\_FIELDCAT TYPE SLIS\_FIELDCAT\_ALV.

\*---Populate ALV field structure  
  CLEAR LS\_FIELDCAT.  
  LS\_FIELDCAT-TABNAME       = 'ITAB\_100'.  
  LS\_FIELDCAT-FIELDNAME     = 'WERKS'.  
  LS\_FIELDCAT-COL\_POS       = '1'.  
  LS\_FIELDCAT-SELTEXT\_L     = '工厂'.  
  LS\_FIELDCAT-DDICTXT       = 'L'.  
  LS\_FIELDCAT-outputlen     = '4'.  
  LS\_FIELDCAT-just          = 'C'.  
  APPEND LS\_FIELDCAT TO E01\_LT\_FIELDCAT.

CLEAR LS\_FIELDCAT.  
  LS\_FIELDCAT-TABNAME       = 'ITAB\_100'.  
  LS\_FIELDCAT-FIELDNAME     = 'EBELN'.  
  LS\_FIELDCAT-COL\_POS       = '2'.  
  LS\_FIELDCAT-SELTEXT\_L     = '订单号码'.  
  LS\_FIELDCAT-DDICTXT       = 'L'.  
  LS\_FIELDCAT-outputlen     = '10'.  
  LS\_FIELDCAT-just          = 'L'.  
  APPEND LS\_FIELDCAT TO E01\_LT\_FIELDCAT.

CLEAR LS\_FIELDCAT.  
  LS\_FIELDCAT-TABNAME       = 'ITAB\_100'.  
  LS\_FIELDCAT-FIELDNAME     = 'LIFNR'.  
  LS\_FIELDCAT-COL\_POS       = '3'.  
  LS\_FIELDCAT-SELTEXT\_L     = '供应商代码'.  
  LS\_FIELDCAT-DDICTXT       = 'L'.  
  LS\_FIELDCAT-outputlen     = '10'.  
  LS\_FIELDCAT-just          = 'L'.  
  APPEND LS\_FIELDCAT TO E01\_LT\_FIELDCAT.

CLEAR LS\_FIELDCAT.  
  LS\_FIELDCAT-TABNAME       = 'ITAB\_100'.  
  LS\_FIELDCAT-FIELDNAME     = 'NAME1'.  
  LS\_FIELDCAT-COL\_POS       = '4'.  
  LS\_FIELDCAT-SELTEXT\_L     = '供应商名称'.  
  LS\_FIELDCAT-DDICTXT       = 'L'.  
  LS\_FIELDCAT-outputlen     = '35'.  
  LS\_FIELDCAT-just          = 'L'.  
  APPEND LS\_FIELDCAT TO E01\_LT\_FIELDCAT.

CLEAR LS\_FIELDCAT.  
  LS\_FIELDCAT-TABNAME       = 'ITAB\_100'.  
  LS\_FIELDCAT-FIELDNAME     = 'AEDAT'.  
  LS\_FIELDCAT-COL\_POS       = '5'.  
  LS\_FIELDCAT-SELTEXT\_L     = '订单创建日期'.  
  LS\_FIELDCAT-DDICTXT       = 'L'.  
  LS\_FIELDCAT-outputlen     = '10'.  
  LS\_FIELDCAT-just          = 'L'.  
  APPEND LS\_FIELDCAT TO E01\_LT\_FIELDCAT.

CLEAR LS\_FIELDCAT.  
  LS\_FIELDCAT-TABNAME       = 'ITAB\_100'.  
  LS\_FIELDCAT-FIELDNAME     = 'TXZ01'.  
  LS\_FIELDCAT-COL\_POS       = '6'.  
  LS\_FIELDCAT-SELTEXT\_L     = '物料（工程）名称'.  
  LS\_FIELDCAT-DDICTXT       = 'L'.  
  LS\_FIELDCAT-outputlen     = '40'.  
  LS\_FIELDCAT-just          = 'L'.  
  APPEND LS\_FIELDCAT TO E01\_LT\_FIELDCAT.

CLEAR LS\_FIELDCAT.  
  LS\_FIELDCAT-TABNAME       = 'ITAB\_100'.  
  LS\_FIELDCAT-FIELDNAME     = 'NETWR'.  
  LS\_FIELDCAT-COL\_POS       = '7'.  
  LS\_FIELDCAT-SELTEXT\_L     = '采购（工程）金额（不含税）'.  
  LS\_FIELDCAT-DDICTXT       = 'L'.  
  LS\_FIELDCAT-outputlen     = '24'.  
  LS\_FIELDCAT-just          = 'R'.  
  APPEND LS\_FIELDCAT TO E01\_LT\_FIELDCAT.

CLEAR LS\_FIELDCAT.  
  LS\_FIELDCAT-TABNAME       = 'ITAB\_100'.  
  LS\_FIELDCAT-FIELDNAME     = 'MWSKZ'.  
  LS\_FIELDCAT-COL\_POS       = '8'.  
  LS\_FIELDCAT-SELTEXT\_L     = '税码'.  
  LS\_FIELDCAT-DDICTXT       = 'L'.  
  LS\_FIELDCAT-outputlen     = '4'.  
  LS\_FIELDCAT-just          = 'L'.  
  APPEND LS\_FIELDCAT TO E01\_LT\_FIELDCAT.

CLEAR LS\_FIELDCAT.  
  LS\_FIELDCAT-TABNAME       = 'ITAB\_100'.  
  LS\_FIELDCAT-FIELDNAME     = 'NETWR1'.  
  LS\_FIELDCAT-COL\_POS       = '9'.  
  LS\_FIELDCAT-SELTEXT\_L     = '采购（工程）金额（含税）'.  
  LS\_FIELDCAT-DDICTXT       = 'L'.  
  LS\_FIELDCAT-outputlen     = '22'.  
  LS\_FIELDCAT-just          = 'R'.  
  APPEND LS\_FIELDCAT TO E01\_LT\_FIELDCAT.

CLEAR LS\_FIELDCAT.  
  LS\_FIELDCAT-TABNAME       = 'ITAB\_100'.  
  LS\_FIELDCAT-FIELDNAME     = 'NETWR2'.  
  LS\_FIELDCAT-COL\_POS       = '10'.  
  LS\_FIELDCAT-SELTEXT\_L     = '运费金额（不含税）'.  
  LS\_FIELDCAT-DDICTXT       = 'L'.  
  LS\_FIELDCAT-outputlen     = '16'.  
  LS\_FIELDCAT-just          = 'R'.  
  APPEND LS\_FIELDCAT TO E01\_LT\_FIELDCAT.

CLEAR LS\_FIELDCAT.  
  LS\_FIELDCAT-TABNAME       = 'ITAB\_100'.  
  LS\_FIELDCAT-FIELDNAME     = 'NETWR3'.  
  LS\_FIELDCAT-COL\_POS       = '11'.  
  LS\_FIELDCAT-SELTEXT\_L     = '运费金额（含税）'.  
  LS\_FIELDCAT-DDICTXT       = 'L'.  
  LS\_FIELDCAT-outputlen     = '14'.  
  LS\_FIELDCAT-just          = 'R'.  
  APPEND LS\_FIELDCAT TO E01\_LT\_FIELDCAT.

CLEAR LS\_FIELDCAT.  
  LS\_FIELDCAT-TABNAME       = 'ITAB\_100'.  
  LS\_FIELDCAT-FIELDNAME     = 'WAERS'.  
  LS\_FIELDCAT-COL\_POS       = '12'.  
  LS\_FIELDCAT-SELTEXT\_L     = '币别'.  
  LS\_FIELDCAT-DDICTXT       = 'L'.  
  LS\_FIELDCAT-outputlen     = '4'.  
  LS\_FIELDCAT-just          = 'C'.  
  APPEND LS\_FIELDCAT TO E01\_LT\_FIELDCAT.

CLEAR LS\_FIELDCAT.  
  LS\_FIELDCAT-TABNAME       = 'ITAB\_100'.  
  LS\_FIELDCAT-FIELDNAME     = 'UKURS'.  
  LS\_FIELDCAT-COL\_POS       = '12'.  
  LS\_FIELDCAT-SELTEXT\_L     = '汇率'.  
  LS\_FIELDCAT-DDICTXT       = 'L'.  
  LS\_FIELDCAT-outputlen     = '10'.  
  LS\_FIELDCAT-just          = 'R'.  
  APPEND LS\_FIELDCAT TO E01\_LT\_FIELDCAT.

CLEAR LS\_FIELDCAT.  
  LS\_FIELDCAT-TABNAME       = 'ITAB\_100'.  
  LS\_FIELDCAT-FIELDNAME     = 'NETWR4'.  
  LS\_FIELDCAT-COL\_POS       = '13'.  
  LS\_FIELDCAT-SELTEXT\_L     = '金额（含税）合计'.  
  LS\_FIELDCAT-DDICTXT       = 'L'.  
  LS\_FIELDCAT-outputlen     = '14'.  
  LS\_FIELDCAT-just          = 'R'.  
  APPEND LS\_FIELDCAT TO E01\_LT\_FIELDCAT.

CLEAR LS\_FIELDCAT.  
  LS\_FIELDCAT-TABNAME       = 'ITAB\_100'.  
  LS\_FIELDCAT-FIELDNAME     = 'SHOU'.  
  LS\_FIELDCAT-COL\_POS       = '14'.  
  LS\_FIELDCAT-SELTEXT\_L     = '是否收货'.  
  LS\_FIELDCAT-DDICTXT       = 'L'.  
  LS\_FIELDCAT-outputlen     = '8'.  
  LS\_FIELDCAT-just          = 'L'.  
  APPEND LS\_FIELDCAT TO E01\_LT\_FIELDCAT.

CLEAR LS\_FIELDCAT.  
  LS\_FIELDCAT-TABNAME       = 'ITAB\_100'.  
  LS\_FIELDCAT-FIELDNAME     = 'STATE'.  
  LS\_FIELDCAT-COL\_POS       = '15'.  
  LS\_FIELDCAT-SELTEXT\_L     = '订单状态'.  
  LS\_FIELDCAT-DDICTXT       = 'L'.  
  LS\_FIELDCAT-outputlen     = '8'.  
  LS\_FIELDCAT-just          = 'L'.  
  APPEND LS\_FIELDCAT TO E01\_LT\_FIELDCAT.

CLEAR LS\_FIELDCAT.  
  LS\_FIELDCAT-TABNAME       = 'ITAB\_100'.  
  LS\_FIELDCAT-FIELDNAME     = 'MAEDAT'.  
  LS\_FIELDCAT-COL\_POS       = '16'.  
  LS\_FIELDCAT-SELTEXT\_L     = '删除日期'.  
  LS\_FIELDCAT-DDICTXT       = 'L'.  
  LS\_FIELDCAT-outputlen     = '8'.  
  LS\_FIELDCAT-just          = 'L'.  
  APPEND LS\_FIELDCAT TO E01\_LT\_FIELDCAT.

CLEAR LS\_FIELDCAT.  
  LS\_FIELDCAT-TABNAME       = 'ITAB\_100'.  
  LS\_FIELDCAT-FIELDNAME     = 'BATXT'.  
  LS\_FIELDCAT-COL\_POS       = '17'.  
  LS\_FIELDCAT-SELTEXT\_L     = '订单类型'.  
  LS\_FIELDCAT-DDICTXT       = 'L'.  
  LS\_FIELDCAT-outputlen     = '20'.  
  LS\_FIELDCAT-just          = 'L'.  
  APPEND LS\_FIELDCAT TO E01\_LT\_FIELDCAT.

ENDFORM.                    " E01\_FIELDCAT\_INIT  
\*&---------------------------------------------------------------------\*  
\*&      Form  E03\_EVENTTAB\_BUILD  
\*&---------------------------------------------------------------------\*  
\*       text  
\*----------------------------------------------------------------------\*  
\*      -->P\_GT\_EVENTS\[\]  text  
\*----------------------------------------------------------------------\*  
FORM E03\_EVENTTAB\_BUILD USING E03\_LT\_EVENTS TYPE SLIS\_T\_EVENT.  
  DATA: LS\_EVENT TYPE SLIS\_ALV\_EVENT.

CALL FUNCTION 'REUSE\_ALV\_EVENTS\_GET'  
    EXPORTING  
      I\_LIST\_TYPE = 0  
    IMPORTING  
      ET\_EVENTS   = E03\_LT\_EVENTS.  
  READ TABLE E03\_LT\_EVENTS WITH KEY NAME = SLIS\_EV\_TOP\_OF\_PAGE  
                             INTO LS\_EVENT.  
  IF SY-SUBRC = 0.  
    MOVE GC\_FORMNAME\_TOP\_OF\_PAGE TO LS\_EVENT-FORM.  
    APPEND LS\_EVENT TO E03\_LT\_EVENTS.  
  ENDIF.

ENDFORM.                    " E03\_EVENTTAB\_BUILD  
\*&---------------------------------------------------------------------\*  
\*&      Form  E04\_COMMENT\_BUILD  
\*&---------------------------------------------------------------------\*  
\*       text  
\*----------------------------------------------------------------------\*  
\*      -->P\_GT\_LIST\_TOP\_OF\_PAGE\[\]  text  
\*----------------------------------------------------------------------\*  
FORM E04\_COMMENT\_BUILD USING E04\_LT\_TOP\_OF\_PAGE TYPE SLIS\_T\_LISTHEADER.  
  DATA: LS\_LINE TYPE SLIS\_LISTHEADER.  
  CLEAR LS\_LINE.  
  LS\_LINE-TYP  = 'H'.  
  select single butxt into t\_bukrs from t001 where bukrs eq P\_bukrs.  
  LS\_LINE-INFO = t\_bukrs.  
  APPEND LS\_LINE TO E04\_LT\_TOP\_OF\_PAGE.  
\*  
  CLEAR LS\_LINE.  
  LS\_LINE-TYP  = 'S'.  
  LS\_LINE-KEY  = '采购及工程订单明细表'.  
  APPEND LS\_LINE TO E04\_LT\_TOP\_OF\_PAGE.

CLEAR LS\_LINE.  
   CONCATENATE '工厂：'  S\_WERKS-LOW  '-' S\_WERKS-HIGH    INTO v\_program.  
   CONCATENATE '程式编号：××××××' '     ' '印表时间：' SY-DATUM(4) '/' SY-DATUM+4(2)  
              '/' SY-DATUM+6(2) '/'  SY-UZEIT(2) ':' SY-UZEIT+2(2) ':' SY-UZEIT+4(2)  INTO V\_PRINTDATE.  
  LS\_LINE-TYP  = 'S'.  
  LS\_LINE-KEY  = v\_program.  
  LS\_LINE-INFO = V\_PRINTDATE.  
  APPEND LS\_LINE TO E04\_LT\_TOP\_OF\_PAGE.

ENDFORM.                    " E04\_COMMENT\_BUILD  
\*&---------------------------------------------------------------------\*  
\*       检查权限  
\*----------------------------------------------------------------------\*  
\*  -->  p1        text  
\*  <--  p2        text  
\*----------------------------------------------------------------------\*  
FORM author\_check .  
  select \* into corresponding fields of table itab\_tvko  
          from tvko  
        where vkorg = S\_WERKS.

loop at itab\_tvko.

AUTHORITY-CHECK OBJECT 'M\_MSEG\_WMB'  
       ID 'WERKS' FIELD itab\_tvko-vkorg  
       ID 'ACTVT' DUMMY.  
    IF SY-SUBRC NE 0.  
      v\_auth = 'X'.  
      message s015 with '工厂' itab\_tvko-vkorg.  
    ENDIF.  
  ENDLOOP.

ENDFORM.                    " author\_check                         .

[Link 1]: http://blog.chinaunix.net/uid-22748513-id-383941.html