SAP标准屏幕字段F4增强

最新推荐文章于 2025-04-22 09:50:49 发布

NicholasYang223

最新推荐文章于 2025-04-22 09:50:49 发布

阅读量1k

点赞数

分类专栏：基础入门文章标签：其他

本文链接：https://blog.youkuaiyun.com/weixin_38500922/article/details/115327246

版权

基础入门专栏收录该内容

21 篇文章

订阅专栏

需求描述：采购订单抬头EKKO-VERKF销售人员栏位用于填写【合同号】，长度30位
PS：若是EPS中按合同创建的采购订单传输SAP时会自动将合同号栏位写入该栏位
2021/3/17 与用户会议沟通，针对工程资产类型采购订单，控制必须选择合同号（来源EPS合同），以此控制所有工程资产类的合同必须在EPS平台上传。
在这里插入图片描述
步骤如下：

F1找到屏幕号和屏幕字段。
2. 在这里插入图片描述
双击FRM_F4_ZCODE.

MODULE FRM_F4_ZCODE INPUT.
DATA:BEGIN OF lt_pro occurs 0,
  ZPRONUM  LIKE ZJZFIT033-ZPRONUM,
  WERKS    LIKE ZJZFIT033-WERKS,
  ZPRONAME LIKE ZJZFIT033-zproname,
  ZYEAR    like ZJZFIT033-ZYEAR,
  HSL      LIKE ZJZFIT033-HSL,
  ZPROTYE  LIKE ZJZFIT033-ZPROTYE,
  END OF lt_pro.
  IF MEPO_TOPLINE-BSART EQ 'Z019'.
  IF lt_pro is INITIAL.
  select *
  FROM ZJZFIT033
  INTO CORRESPONDING FIELDS OF TABLE lt_pro.
  ENDIF.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
*     DDIC_STRUCTURE         = ' '
      RETFIELD               = 'ZPRONUM'
*     PVALKEY                = ' '
     DYNPPROG               = sy-CPROG
     DYNPNR                 = sy-DYNNR
     DYNPROFIELD            = 'MEPOCOMM-VERKF'
*     STEPL                  = 0
*     WINDOW_TITLE           =
*     VALUE                  = ' '
     VALUE_ORG              = 'S'
*     MULTIPLE_CHOICE        = ' '
*     DISPLAY                = ' '
*     CALLBACK_PROGRAM       = ' '
*     CALLBACK_FORM          = ' '
*     CALLBACK_METHOD        =
*     MARK_TAB               =
*   IMPORTING
*     USER_RESET             =
    TABLES
      VALUE_TAB              = lt_pro[]
*     FIELD_TAB              =
*     RETURN_TAB             =
*     DYNPFLD_MAPPING        =
   EXCEPTIONS
     PARAMETER_ERROR        = 1
     NO_VALUES_FOUND        = 2
     OTHERS                 = 3
            .
  IF SY-SUBRC <> 0.
* Implement suitable error handling here
  ENDIF.
  else.
    MESSAGE '合同号搜索帮助只适用于工程资产采购订单！' TYPE 'S' DISPLAY LIKE 'E'.
  ENDIF.
ENDMODULE.