原创系列之字段出口 field-exit

text enhancement字段出口

              

常用的查找方法

方法一、通过CMOD

 

列举出来的可能并不多，如下图

 

方法二、通过报表 RSMODPRF

Tcode：SE38 ，输入报表名

执行后，花啦啦地看到一大堆了，

上面工具栏的是分配程序或屏幕 和 编辑函数(Function Module)

下面分别是字段名、状态、程序名、屏幕，其中状态必须是活动状态(ACTIVE)才能生效

操作方法：

    分配字段到屏幕中  选中字段，点Assign prog./screen

    编辑函数          选中字段，点Edit FM

 

如下图是编辑函数界面

 

具体的代码如下，仅供参考。。。

 

FUNCTION field_exit_charg_d.

*"----------------------------------------------------------------------

*"*"Local interface:

*"  IMPORTING

*"     REFERENCE(INPUT)

*"  EXPORTING

*"     REFERENCE(OUTPUT)

*"----------------------------------------------------------------------

*

 

  output = input.

 

 

*****湖南石油移动类型与批次增强 7007.6.13  begin ******

*  "output = input.

  IF sy-mandt <> '800'.

    DATA: li_bwart LIKE rm07m-bwart,

          li_sobkz LIKE rm07m-sobkz.

 

    GET PARAMETER ID 'BWA' FIELD li_bwart.

 

*    MESSAGE e398(00) WITH li_bwart i_sobkz input.

*  不区别特殊库存了

************************************************************************

*                                                                      *

*先处理有两种批次的 OWN CUSTOMER

    IF li_bwart EQ '561' OR li_bwart EQ 'Y21'.

 

      IF input NE 'OWN' AND input NE 'CUSTOMER' AND input NE space .

        MESSAGE e398(00) WITH

        '移动类型' li_bwart '不可对应评估类型' input.

      ENDIF.

 

*只有一种状态 OWN

    ELSEIF ( li_bwart EQ '101' OR li_bwart EQ '161' OR

       li_bwart EQ 'R21' OR li_bwart EQ '411' OR

       li_bwart EQ '301' OR li_bwart EQ '401' OR

       li_bwart EQ '421' OR li_bwart EQ '403' OR

       li_bwart EQ '321' OR li_bwart EQ '309' OR

       li_bwart EQ '311' OR li_bwart EQ '351' OR

       li_bwart EQ '261' OR li_bwart EQ '917' OR

       li_bwart EQ '977' OR li_bwart EQ '979' OR

       li_bwart EQ '551' OR li_bwart EQ '969' OR

       li_bwart EQ '971' OR li_bwart EQ 'Y03' OR

       li_bwart EQ 'Y05' OR li_bwart EQ 'Y09' OR

       li_bwart EQ 'Y11' OR li_bwart EQ 'Y13' OR

       li_bwart EQ 'Y17' OR li_bwart EQ 'Y19' OR

       li_bwart EQ 'Y23' OR

       li_bwart EQ '553' OR li_bwart EQ '601' OR

       li_bwart EQ '681' OR li_bwart EQ '685' OR

       li_bwart EQ '691' OR li_bwart EQ '653' OR

       li_bwart EQ 'ZI3' OR li_bwart EQ '201' ).

 

      IF input NE 'OWN' AND input NE space .

        MESSAGE e398(00) WITH

        '移动类型' li_bwart '不可对应评估类型' input.

      ENDIF.

 

*只有一种状态 CUSTOMER

    ELSEIF ( li_bwart EQ 'Y71' OR li_bwart EQ 'Y73' ).

      IF input NE 'CUSTOMER' AND input NE space .

        MESSAGE e398(00) WITH

        '移动类型' li_bwart '不可对应评估类型' input.

      ENDIF.

 

*只有一种状态 UNPICKED

    ELSEIF ( li_bwart EQ 'Z29' OR li_bwart EQ 'Z2A' OR

             li_bwart EQ 'Y83' OR li_bwart EQ 'Y85'  ).

      IF input NE 'UNPICKED' AND input NE space .

        MESSAGE e398(00) WITH

        '移动类型' li_bwart '不可对应评估类型' input.

      ENDIF.

 

*只有一种状态 UNPICKED_S

    ELSEIF ( li_bwart EQ 'Y75' OR li_bwart EQ 'Y77' OR

             li_bwart EQ 'Y79' OR li_bwart EQ 'Y81'  ).

      IF input NE 'UNPICKED_S' AND input NE space .

        MESSAGE e398(00) WITH

        '移动类型' li_bwart '不可对应评估类型' input.

      ENDIF.

 

    ENDIF.

*                                                                      *

************************************************************************

 

 

  ENDIF.

*****湖南石油移动类型与批次增强 2007.6.13  end ******

 

ENDFUNCTION.

 

by 符志强(SapSky.com)

 

 

 

字段出口.chm

Tips：本文件是CHM文件，可直接下载。