FUNCTION_ALV 下拉框的实现

2024-08-27 22:04
文章标签 实现 function alv 下拉框

本文主要是介绍FUNCTION_ALV 下拉框的实现,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!

下拉框可以用drdn_field或者使用DRDN_HNDL,这个文章主要是下拉框的基本使用,核心就是在fieldcat内表里面设置好下拉框的字段或者组的编号

文章目录

  • drdn_field
    • 使用DRDN_HNDL
    • 复制状态
    • 完整代码
    • 核心代码
    • 运行结果

drdn_field

在这里插入图片描述

使用DRDN_HNDL

在这里插入图片描述

复制状态

在这里插入图片描述

完整代码

*&---------------------------------------------------------------------*
*& Report Z_ALV_DROPDOWN
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*T_CODE         :
*CREATOR        :   LiuHongyu
*CREATE ON      :   2024827*TYPE           :   Report
*Description    :   ALV下拉框
**********************************************************************
*               Change History
* ----------    -------------  ----------   -------------
* Version       Date            Change By    Description
* ----------    -------------  ----------   -------------
* 1             2024.8.27        Hongyu.Liu   创建
**********************************************************************
REPORT Z_ALV_DROPDOWN.*----------------------Variables--------------------------*
TYPES: BEGIN OF GTY_HEAD,CARRID    TYPE SPFLI-CARRID, "航线CONNID    TYPE SPFLI-CONNID, "航班号PRICE     TYPE SFLIGHT-PRICE, "价格PLANETYPE TYPE SFLIGHT-PLANETYPE, "航班类型DEPTIME   TYPE SPFLI-DEPTIME, "出发时间DD_HANDLE TYPE INT4, "用于分辨分组的编号END OF GTY_HEAD.
DATA: GS_HEAD TYPE GTY_HEAD.
TYPES: BEGIN OF GTY_ITEMS,CARRID    TYPE SPFLI-CARRID, "航线CONNID    TYPE SPFLI-CONNID, "航班号COUNTRYFR TYPE SPFLI-COUNTRYFR, "国家/地区CITYFROM  TYPE SPFLI-CITYFROM, "起飞城市CITYTO    TYPE SPFLI-CITYTO, "到达城市FLTIME    TYPE SPFLI-FLTIME, "航班时间DISTANCE  TYPE SPFLI-DISTANCE, "距离CARRNAME  TYPE SCARR-CARRNAME, "航线CURRCODE  TYPE SCARR-CURRCODE, "航线货币URL       TYPE SCARR-URL, "URLEND OF GTY_ITEMS.DATA: BEGIN OF GS_OUT.INCLUDE STRUCTURE GS_HEAD. "抬头
DATA:   DETAIL TYPE TABLE OF GTY_ITEMS,END OF GS_OUT.
DATA: GT_OUT LIKE TABLE OF GS_OUT. "定义和GS_OUT工作区结构一样的内表DATA: GT_FIELDCAT TYPE LVC_T_FCAT,GS_FIELDCAT TYPE LVC_S_FCAT.
DATA: GS_LAYOUT   TYPE LVC_S_LAYO.   "ALV布局工作区DATA:GS_DROP_DOWN TYPE LVC_S_DROP, "下拉框工作区GT_DROP_DOWN TYPE LVC_T_DROP. "下拉框内表*定义事件内表
DATA:GT_EVENTS TYPE SLIS_T_EVENT,GS_EVENTS TYPE SLIS_ALV_EVENT.
*------------------------ Logic -----------------------------*START-OF-SELECTION.PERFORM GET_DATA.PERFORM SET_FIELDCAT.PERFORM ALV_DISPLAY.FORM CALLER_EXIT USING LS_DATA TYPE SLIS_DATA_CALLER_EXIT.DATA: L_REF_ALV TYPE REF TO CL_GUI_ALV_GRID.CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'IMPORTINGE_GRID = L_REF_ALV.CALL METHOD L_REF_ALV->SET_DROP_DOWN_TABLEEXPORTINGIT_DROP_DOWN = GT_DROP_DOWN.
ENDFORM.*&---------------------------------------------------------------------*
*& Form GET_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM GET_DATA ."抬头SELECT  CARRID,CONNID,PRICE FROM SFLIGHT WHERE CARRID = 'AZ' INTO TABLE @DATA(LT_HEAD) UP TO 20 ROWS."细节SELECT A~CARRID,A~CONNID,COUNTRYFR,CITYFROM,CITYTO,FLTIME,DISTANCE,B~CARRNAME,B~CURRCODE,B~URLFROM SPFLI AS ALEFT JOIN SCARR AS B ON A~CARRID = B~CARRIDFOR ALL ENTRIES IN  @LT_HEADWHERE A~CARRID = @LT_HEAD-CARRID INTO TABLE @DATA(LT_ITEMS).LOOP AT LT_ITEMS ASSIGNING FIELD-SYMBOL(<FS_ITEM>).IF <FS_ITEM>-DISTANCE > 100.<FS_ITEM>-DISTANCE  = 100.ENDIF.ENDLOOP.LOOP AT LT_HEAD INTO GS_HEAD.APPEND INITIAL LINE TO GT_OUT ASSIGNING FIELD-SYMBOL(<FS_OUT>).<FS_OUT> = CORRESPONDING #( GS_HEAD ).<FS_OUT>-DETAIL = LT_ITEMS.ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form SET_FIELDCAT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM SET_FIELDCAT ."""""""""""""""""构建ALV字段""""""""""""""""""""动态字段名称赋值DATA: LO_TABDESCR TYPE REF TO CL_ABAP_STRUCTDESCR.DATA: LS_FIELD_IN TYPE DFIES,LT_DFIES    TYPE DDFIELDS.LO_TABDESCR ?= CL_ABAP_STRUCTDESCR=>DESCRIBE_BY_DATA( GS_OUT ).CALL METHOD CL_SALV_DATA_DESCR=>READ_STRUCTDESCREXPORTINGR_STRUCTDESCR = LO_TABDESCRRECEIVINGT_DFIES       = LT_DFIES.LOOP AT LT_DFIES INTO LS_FIELD_IN.MOVE-CORRESPONDING LS_FIELD_IN TO GS_FIELDCAT.GS_FIELDCAT-REF_TABLE = LS_FIELD_IN-REFTABLE. "参照类型的表,搜索帮助,域控制GS_FIELDCAT-REF_FIELD = LS_FIELD_IN-REFFIELD. "参照类型字段IF GS_FIELDCAT-COLTEXT IS INITIAL. "当COLTEXT不存在显示SCRTEXT_MGS_FIELDCAT-COLTEXT = LS_FIELD_IN-SCRTEXT_M.ENDIF."设置下拉框的字段IF GS_FIELDCAT-FIELDNAME = 'PLANETYPE'.GS_FIELDCAT-EDIT = 'X'. "可编辑GS_FIELDCAT-DRDN_FIELD = 'DD_HANDLE'. "设置下拉框的字段是DD_HEANDLEENDIF.IF  GS_FIELDCAT-FIELDNAME = 'DEPTIME' . "如果是出发时间字段,直接把下拉框分组设置成3GS_FIELDCAT-DRDN_HNDL = '3'. "DRDN_HNDL设置成3GS_FIELDCAT-EMPHASIZE = 'C310'."带有颜色的高亮列ENDIF.IF GS_FIELDCAT-FIELDNAME <> 'DD_HANDLE'.APPEND GS_FIELDCAT TO GT_FIELDCAT.ENDIF.CLEAR: LS_FIELD_IN,GS_FIELDCAT.ENDLOOP.ENDFORM.
*&---------------------------------------------------------------------*
*& Form ALV_DISPLAY
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM ALV_DISPLAY ."""""""""""""""""设置布局""""""""""""""""""GS_LAYOUT-ZEBRA = 'X'.GS_LAYOUT-CWIDTH_OPT = 'X'.""""""""""""""设置事件"""""""""""""""""""""
**把使 GRID 和 内表 连接在一起的事件存入事件内表GS_EVENTS-NAME = 'CALLER_EXIT'.    "这里是子例程名字GS_EVENTS-FORM = 'CALLER_EXIT'.     "这里是子例程名字APPEND GS_EVENTS TO GT_EVENTS."""""""""""""""""设置下拉框"""""""""""""""""""设置分组的字段的值LOOP AT GT_OUT INTO GS_OUT.IF GS_OUT-CONNID = '0555'.GS_OUT-DD_HANDLE = '1'.ELSE.GS_OUT-DD_HANDLE = '2'.ENDIF.MODIFY GT_OUT FROM GS_OUT.CLEAR GS_OUT.ENDLOOP."设置下拉框DEFINE FILL_DROP.CLEAR GS_DROP_DOWN.GS_DROP_DOWN-HANDLE = &1.GS_DROP_DOWN-VALUE = &2.APPEND GS_DROP_DOWN TO GT_DROP_DOWN.END-OF-DEFINITION.FILL_DROP:'1' '大飞机'.FILL_DROP:'1' '小飞机'.FILL_DROP:'1' '中飞机'.FILL_DROP:'1' '漂亮飞机'.FILL_DROP:'1' '直升机'.FILL_DROP:'1' '战斗飞机'.FILL_DROP:'2' 'A飞机'.FILL_DROP:'2' 'B飞机'.FILL_DROP:'2' 'C飞机'.FILL_DROP:'3' '2024-08-01'.FILL_DROP:'3' '2024-08-02'.FILL_DROP:'3' '2024-08-03'.FILL_DROP:'3' '2024-08-07'."""""""""""""""""创建ALV"""""""""""""""""""CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'EXPORTING
*     I_INTERFACE_CHECK  = ' '
*     I_BYPASSING_BUFFER = I_BYPASSING_BUFFER
*     I_BUFFER_ACTIVE    = I_BUFFER_ACTIVEI_CALLBACK_PROGRAM = SY-REPID
*     I_CALLBACK_PF_STATUS_SET          = ' '
*     I_CALLBACK_USER_COMMAND           = ' '
*     I_CALLBACK_TOP_OF_PAGE            = ' '
*     I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*     I_CALLBACK_HTML_END_OF_LIST       = ' '
*     I_STRUCTURE_NAME   = I_STRUCTURE_NAME
*     I_BACKGROUND_ID    = ' '
*     I_GRID_TITLE       = I_GRID_TITLE
*     I_GRID_SETTINGS    = I_GRID_SETTINGSIS_LAYOUT_LVC      = GS_LAYOUTIT_FIELDCAT_LVC    = GT_FIELDCAT
*     IT_EXCLUDING       = IT_EXCLUDING
*     IT_SPECIAL_GROUPS_LVC             = IT_SPECIAL_GROUPS_LVC
*     IT_SORT_LVC        = IT_SORT_LVC
*     IT_FILTER_LVC      = IT_FILTER_LVC
*     IT_HYPERLINK       = IT_HYPERLINK
*     IS_SEL_HIDE        = IS_SEL_HIDE
*     I_DEFAULT          = 'X'
*     I_SAVE             = ' '
*     IS_VARIANT         = IS_VARIANTIT_EVENTS          = GT_EVENTS
*     IT_EVENT_EXIT      = IT_EVENT_EXIT
*     IS_PRINT_LVC       = IS_PRINT_LVC
*     IS_REPREP_ID_LVC   = IS_REPREP_ID_LVC
*     I_SCREEN_START_COLUMN             = 0
*     I_SCREEN_START_LINE               = 0
*     I_SCREEN_END_COLUMN               = 0
*     I_SCREEN_END_LINE  = 0
*     I_HTML_HEIGHT_TOP  = I_HTML_HEIGHT_TOP
*     I_HTML_HEIGHT_END  = I_HTML_HEIGHT_END
*     IT_ALV_GRAPHICS    = IT_ALV_GRAPHICS
*     IT_EXCEPT_QINFO_LVC               = IT_EXCEPT_QINFO_LVC
*     IR_SALV_FULLSCREEN_ADAPTER        = IR_SALV_FULLSCREEN_ADAPTER
* IMPORTING
*     E_EXIT_CAUSED_BY_CALLER           = E_EXIT_CAUSED_BY_CALLER
*     ES_EXIT_CAUSED_BY_USER            = ES_EXIT_CAUSED_BY_USERTABLEST_OUTTAB           = GT_OUT
* EXCEPTIONS
*     PROGRAM_ERROR      = 1
*     OTHERS             = 2.IF SY-SUBRC <> 0.
* Implement suitable error handling hereENDIF.
ENDFORM.

核心代码

在这里插入图片描述

运行结果

┗( ▔, ▔ )┛
在这里插入图片描述

这篇关于FUNCTION_ALV 下拉框的实现的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/1112906

相关文章

使用Sentinel自定义返回和实现区分来源方式

《使用Sentinel自定义返回和实现区分来源方式》:本文主要介绍使用Sentinel自定义返回和实现区分来源方式,具有很好的参考价值,希望对大家有所帮助,如有错误或未考虑完全的地方,望不吝赐教... 目录Sentinel自定义返回和实现区分来源1. 自定义错误返回2. 实现区分来源总结Sentinel自定

Java实现时间与字符串互相转换详解

《Java实现时间与字符串互相转换详解》这篇文章主要为大家详细介绍了Java中实现时间与字符串互相转换的相关方法,文中的示例代码讲解详细,感兴趣的小伙伴可以跟随小编一起学习一下... 目录一、日期格式化为字符串(一)使用预定义格式(二)自定义格式二、字符串解析为日期(一)解析ISO格式字符串(二)解析自定义

opencv图像处理之指纹验证的实现

《opencv图像处理之指纹验证的实现》本文主要介绍了opencv图像处理之指纹验证的实现,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一起学... 目录一、简介二、具体案例实现1. 图像显示函数2. 指纹验证函数3. 主函数4、运行结果三、总结一、

Springboot处理跨域的实现方式(附Demo)

《Springboot处理跨域的实现方式(附Demo)》:本文主要介绍Springboot处理跨域的实现方式(附Demo),具有很好的参考价值,希望对大家有所帮助,如有错误或未考虑完全的地方,望不... 目录Springboot处理跨域的方式1. 基本知识2. @CrossOrigin3. 全局跨域设置4.

Spring Boot 3.4.3 基于 Spring WebFlux 实现 SSE 功能(代码示例)

《SpringBoot3.4.3基于SpringWebFlux实现SSE功能(代码示例)》SpringBoot3.4.3结合SpringWebFlux实现SSE功能,为实时数据推送提供... 目录1. SSE 简介1.1 什么是 SSE?1.2 SSE 的优点1.3 适用场景2. Spring WebFlu

基于SpringBoot实现文件秒传功能

《基于SpringBoot实现文件秒传功能》在开发Web应用时,文件上传是一个常见需求,然而,当用户需要上传大文件或相同文件多次时,会造成带宽浪费和服务器存储冗余,此时可以使用文件秒传技术通过识别重复... 目录前言文件秒传原理代码实现1. 创建项目基础结构2. 创建上传存储代码3. 创建Result类4.

SpringBoot日志配置SLF4J和Logback的方法实现

《SpringBoot日志配置SLF4J和Logback的方法实现》日志记录是不可或缺的一部分,本文主要介绍了SpringBoot日志配置SLF4J和Logback的方法实现,文中通过示例代码介绍的非... 目录一、前言二、案例一:初识日志三、案例二:使用Lombok输出日志四、案例三:配置Logback一

Python如何使用__slots__实现节省内存和性能优化

《Python如何使用__slots__实现节省内存和性能优化》你有想过,一个小小的__slots__能让你的Python类内存消耗直接减半吗,没错,今天咱们要聊的就是这个让人眼前一亮的技巧,感兴趣的... 目录背景:内存吃得满满的类__slots__:你的内存管理小助手举个大概的例子:看看效果如何?1.

Python+PyQt5实现多屏幕协同播放功能

《Python+PyQt5实现多屏幕协同播放功能》在现代会议展示、数字广告、展览展示等场景中,多屏幕协同播放已成为刚需,下面我们就来看看如何利用Python和PyQt5开发一套功能强大的跨屏播控系统吧... 目录一、项目概述:突破传统播放限制二、核心技术解析2.1 多屏管理机制2.2 播放引擎设计2.3 专

Python实现无痛修改第三方库源码的方法详解

《Python实现无痛修改第三方库源码的方法详解》很多时候,我们下载的第三方库是不会有需求不满足的情况,但也有极少的情况,第三方库没有兼顾到需求,本文将介绍几个修改源码的操作,大家可以根据需求进行选择... 目录需求不符合模拟示例 1. 修改源文件2. 继承修改3. 猴子补丁4. 追踪局部变量需求不符合很