将alv定位在屏幕的容器上.

最新推荐文章于 2024-07-16 16:18:17 发布

阿土sap

最新推荐文章于 2024-07-16 16:18:17 发布

阅读量843

点赞数

文章标签： layout object header system table

本文链接：https://blog.youkuaiyun.com/chfeijj/article/details/2232385

版权

本文档介绍了如何在ABAP中将ALV（列表视图）控件定位到屏幕上的自定义控件中。首先，在屏幕中创建了一个名为ALV_CONTAINER的定制控件，然后通过创建CL_GUI_CUSTOM_CONTAINER和CL_GUI_ALV_GRID对象来实现ALV的实例化。接着，进行了ALV的格式设置，包括列名和数据源，并调用set_table_for_first_display方法进行初始显示。最后，定义了字段目录，列出了如转移单号、主资产、子资产等字段。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1.在screen 上拖一个定制控件（倒数第二个）。名字ALV_CONTAINER.

2. data: lwa_layout type lvc_s_layo.

data: g_container type ref to cl_gui_custom_container,
g_alv type ref to cl_gui_alv_grid.

data: it_fieldcat type lvc_t_fcat with header line.

******* 程序部份.

lwa_layout-cwidth_opt = 'X'.
* 创建对象
create object g_container exporting
                                  container_name = 'ALV_CONTAINER'.
create object g_alv exporting i_parent = g_container.
* ALV格式设定
perform f_set_alv_grid.
* ALV初期显示
call method g_alv->set_table_for_first_display
    exporting
      is_layout                     = lwa_layout
    changing
      it_outtab                     = it_4000[]
      it_fieldcatalog               = it_fieldcat[]
    exceptions
      invalid_parameter_combination = 1
      program_error                 = 2
      too_many_lines                = 3
      others                        = 4.

call method cl_gui_cfw=>flush
    exceptions
      cntl_system_error = 1
      cntl_error        = 2.

*&---------------------------------------------------------------------*
*& Form F_SET_ALV_GRID
*&---------------------------------------------------------------------*
* text 设置alv格式
*----------------------------------------------------------------------*
form f_set_alv_grid.

clear: it_fieldcat, it_fieldcat[].

clear it_fieldcat.
it_fieldcat-fieldname = 'DBNUM'.
it_fieldcat-coltext = '转移单号'.
append it_fieldcat.
it_fieldcat-fieldname = 'ANLN1'.
it_fieldcat-coltext = '主资产'.
append it_fieldcat.
it_fieldcat-fieldname = 'ANLN2'.
it_fieldcat-coltext = '子资产'.
append it_fieldcat.
it_fieldcat-fieldname = 'TXT50'.
it_fieldcat-coltext = '资产描述'.
append it_fieldcat.
it_fieldcat-fieldname = 'OPTXT'.
it_fieldcat-coltext = '状态'.
append it_fieldcat.
it_fieldcat-fieldname = 'KOSIN'.
it_fieldcat-coltext = '转入成本中心'.
append it_fieldcat.
it_fieldcat-fieldname = 'KOSOUT'.
it_fieldcat-coltext = '转出成本中心'.
append it_fieldcat.
it_fieldcat-fieldname = 'KOSNOW'.
it_fieldcat-coltext = '当前成本中心'.
append it_fieldcat.
it_fieldcat-fieldname = 'YUANZHI'.
it_fieldcat-coltext = '原值'.
append it_fieldcat.
it_fieldcat-fieldname = 'ZHEJIU'.
it_fieldcat-coltext = '折旧'.
append it_fieldcat.
it_fieldcat-fieldname = 'USNAM'.
it_fieldcat-coltext = '操作员'.
append it_fieldcat.
it_fieldcat-fieldname = 'DATUM'.
it_fieldcat-coltext = '操作日期'.
append it_fieldcat.
it_fieldcat-fieldname = 'UZEIT'.
it_fieldcat-coltext = '操作时间'.
append it_fieldcat.

endform. " F_SET_ALV_GRID