zoukankan      html  css  js  c++  java
  • sap自定义搜索帮助

      要实现如下一个功能,在选择屏幕中,“订单类型”要来自 likp 的 lfart 字段和 vbak 的 auart 的内容。

    *交货类型搜索帮助
    DATABEGIN OF gwa_sorthelp OCCURS 0,
            sorthelp LIKE likp-lfart,
          END OF gwa_sorthelp.

    DATA: gt_sorthelp LIKE TABLE OF gwa_sorthelp .

    DATA: igt_sorthelp LIKE gwa_sorthelp OCCURS 0,
          iwa_sorthelp LIKE gwa_sorthelp.

    DATABEGIN OF gwa_vbaksorthelp OCCURS 0,
            sorthelp LIKE vbak-auart,
          END OF gwa_vbaksorthelp.

    DATA:gt_vbaksorthelp LIKE TABLE OF gwa_vbaksorthelp .

    DATA: igt_vbaksorthelp LIKE gwa_vbaksorthelp OCCURS 0,
          iwa_vbaksorthelp LIKE gwa_vbaksorthelp.

    *选择屏幕定义

     PARAMETERS: sorthelp LIKE gwa_sorthelp-sorthelp.

    *点击事件

     AT SELECTION-SCREEN ON VALUE-REQUEST FOR sorthelp.
      PERFORM frm_get_sorthelp.

    *实现搜索帮助

     FORM   frm_get_sorthelp.
    *查询数据
      SELECT lfart INTO TABLE  gt_sorthelp FROM likp.


      SELECT auart INTO TABLE gt_vbaksorthelp FROM vbak.
    *格式化数据
      LOOP AT gt_sorthelp INTO gwa_sorthelp.
        CLEAR iwa_sorthelp.
        iwa_sorthelp-sorthelp = gwa_sorthelp-sorthelp.
        COLLECT iwa_sorthelp INTO igt_sorthelp.
      ENDLOOP.

      LOOP AT gt_vbaksorthelp INTO gwa_vbaksorthelp.
        CLEAR iwa_vbaksorthelp.
        iwa_vbaksorthelp-sorthelp = gwa_vbaksorthelp-sorthelp.
        COLLECT iwa_vbaksorthelp INTO igt_vbaksorthelp.
      ENDLOOP.

      LOOP AT igt_vbaksorthelp INTO iwa_vbaksorthelp.

        iwa_sorthelp-sorthelp = iwa_vbaksorthelp-sorthelp.

        APPEND iwa_sorthelp TO igt_sorthelp.

      ENDLOOP.

    *弹出选择框
      CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
        EXPORTING
          dynpprog        = 'ZGNSDR007'
          retfield        = 'SORTHELP'     "预选值要填入的字段名
          dynpnr          = sy-dynnr
          dynprofield     = 'SORTHELP'  " 此屏幕字段参数
          value_org       = 'S'
        TABLES
          value_tab       = igt_sorthelp[]    " 存放预选值清单的内表
        EXCEPTIONS
          parameter_error = 1
          no_values_found = 2
          OTHERS          = 3.
    ENDFORM.  

  • 相关阅读:
    PS:图像的编辑(三)修复画笔工具
    如何知道自己电脑连接的无线网密码
    ps里“栅格化图层”有啥作用
    如何解决 ERROR Code 1101报错
    Oracle中SCOTT用户的 emp、dept、bonus、salgrade表的属性和结构
    PSCC2019以上版本如何取消等比裁剪
    distinct 多列详解
    银行取款、查询余额、交电话费功能
    银行卡系统,输入密码取钱功能
    根据周长计算不同形状图形的面积
  • 原文地址:https://www.cnblogs.com/szfeng/p/2270047.html
Copyright © 2011-2022 走看看