*&---------------------------------------------------------------------*
*& 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.
选择屏幕下拉值
最新推荐文章于 2024-09-04 14:41:28 发布