选择屏幕下拉值

最新推荐文章于 2024-09-04 14:41:28 发布

山上很优雅

最新推荐文章于 2024-09-04 14:41:28 发布

阅读量33

点赞数 1

文章标签：后端

本文链接：https://blog.csdn.net/qq_33435016/article/details/134313485

版权

*&---------------------------------------------------------------------*
*& Report ZFIR008
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
REPORT ZSDR206.


TABLES:VBAK,VBAP.


*& ALV
DATA:GT_FCAT   TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
     GS_LAYOUT TYPE SLIS_LAYOUT_ALV,
     GV_REPID  LIKE SY-REPID. "程序名


DATA:BEGIN OF IT_HZ OCCURS 0,
       ZWZC    TYPE INT4, "未找车
       ZZCZ    TYPE INT4, "找车中
       ZYZCWJC TYPE INT4, "已找车未进厂
       ZCLJC   TYPE INT4, "车辆进厂
       ZZHZ    TYPE INT4, "装货中
       ZYCC    TYPE INT4, "已出厂
       ZYJDC   TYPE INT4, "今日预计到厂车
     END OF IT_HZ.


DATA:VID1   TYPE VRM_ID,
     LIST1  TYPE VRM_VALUES,
     VALUE1 LIKE LINE OF LIST1.
DATA SELSTR TYPE STRING.
SELECTION-SCREEN BEGIN OF BLOCK BK1 WITH FRAME TITLE T1.
  PARAMETERS P_TIME TYPE CHAR4 AS LISTBOX VISIBLE LENGTH 10.
  SELECT-OPTIONS:S_YJDCRQ FOR VBAK-ZYJDCRQ,
                 S_YJDCSJ FOR VBAK-ZYJDCSJ.
SELECTION-SCREEN END OF BLOCK BK1.


AT SELECTION-SCREEN OUTPUT.


  %_P_TIME_%_APP_%-TEXT = '时间段'.
  %_S_YJDCRQ_%_APP_%-TEXT = '预计到厂日期'.
  %_S_YJDCSJ_%_APP_%-TEXT = '预计到厂时间'.
*&**********下拉值 BY LZF 09.11.2023 11:38:02
  REFRESH LIST1.
  VALUE1-KEY =  'A'.
  VALUE1-TEXT = '凌晨' .
  APPEND  VALUE1  TO LIST1.
  VALUE1-KEY =  'B'.
  VALUE1-TEXT = '上午' .
  APPEND  VALUE1  TO LIST1.
  VALUE1-KEY =  'C'.
  VALUE1-TEXT = '下午' .
  APPEND  VALUE1  TO LIST1.
  VALUE1-KEY =  'D'.
  VALUE1-TEXT = '晚上' .
  APPEND  VALUE1  TO LIST1.
  SORT LIST1 BY KEY.
**调用下拉框赋值函数
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID     = 'P_TIME' "对应选择屏幕上定义的名称
      VALUES = LIST1.
*&**********下拉值 BY LZF 09.11.2023 11:38:02
START-OF-SELECTION.
*  PERFORM FRM_AUTHOR_CHECK.
  PERFORM GETDATA.
  PERFORM FRM_ALV_DISPLAY.