alv - 事件详解

最新推荐文章于 2024-04-29 09:26:03 发布

原创最新推荐文章于 2024-04-29 09:26:03 发布 · 904 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#command #callback #layout #insert #user #table

SAP 专栏收录该内容

181 篇文章

订阅专栏

TYPE-POOLS: SLIS.

DATA: G_COMMAND   TYPE SLIS_FORMNAME VALUE 'FRM_PROCESS_USER_COMMAND',
      g_fieldcat TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
      GD_REPID    LIKE SY-REPID VALUE 'SY-REPID',
      GD_LAYOUT   TYPE SLIS_LAYOUT_ALV.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM       = SY-REPID
      I_CALLBACK_PF_STATUS_SET ='FRM_SET_PF'          " status 设定
      I_CALLBACK_USER_COMMAND = G_COMMAND            " 这里可以写操作事件(status)
      i_callback_html_top_of_page = 'ALV_TOP_OF_PAGE' " alv 头设置
      I_SAVE                   = 'A'                  " 设定 status 显示或者隐藏
      IS_LAYOUT                = GD_LAYOUT            " alv 的格式
      IT_FIELDCAT              = g_fieldcat[]         " alv 字段设置
    TABLES
      T_OUTTAB                 = IT_ITAB.

*---------------------------------------------
status 响应事件
*---------------------------------------------
form FRM_PROCESS_USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.

CASE R_UCOMM.
WHEN 'BACK' OR 'CANC' OR 'EXIT'.

WHEN 'PNT'.

WHEN 'EXPORT'.

ENDCASE.

ENDform. "FRM_PROCESS_USER_COMMAND

*---------------------------------------------
"设置alv 界面的status
*---------------------------------------------
FORM frm_set_pf USING extab TYPE slis_t_extab .

SET PF-STATUS 'STANDARD'.

ENDFORM. "frm_set_pf

*---------------------------------------------
"alv 头信息
*---------------------------------------------
FORM alv_top_of_page USING cl_dd TYPE REF TO cl_dd_document.
DATA: m_p TYPE i.
DATA: m_buff TYPE string.
DATA: M_BUFF1 TYPE STRING,
M_BUFF2 TYPE STRING.

DATA: NAME TYPE STRING.
LOOP AT IT_OUTPUT INTO WA_OUTPUT.
    NAME = WA_OUTPUT-BUTXT.
ENDLOOP.
LOOP AT RA_BUKRS .
    CONCATENATE M_BUFF1 RA_BUKRS-LOW INTO M_BUFF1 SEPARATED BY SPACE.
ENDLOOP.
IF NAME = '建运部汇总'.
    CONCATENATE '<table width =1024 HIGHT =10 ><tr><td width=400>编制单位：'NAME '</td><td width=400>'textqj'</td><td width=200>单位：元</td></tr><tr><td width = 400>汇总单位:'M_BUFF1'</td></tr></table>'
          INTO M_BUFF2.
ELSE.
    CONCATENATE '<table width =1024 HIGHT =10 ><tr><td width=400>编制单位：'NAME '</td><td width=400>'textqj'</td><td width=200>单位：元</td></tr></table>'
          INTO M_BUFF2.
ENDIF.

    m_buff = '<html>'.
    CALL METHOD cl_dd->html_insert
      EXPORTING
        contents = m_buff
      CHANGING
        position = m_p.

    m_buff = '<center><H3>资产负债表</H3></center>'.
    CALL METHOD cl_dd->html_insert
      EXPORTING
        contents = m_buff
      CHANGING
        position = m_p.

    CALL METHOD cl_dd->html_insert
      EXPORTING
        contents = m_buff2
      CHANGING
        position = m_p.

    m_buff = '</html>'.
    CALL METHOD cl_dd->html_insert
      EXPORTING
        contents = m_buff
      CHANGING
        position = m_p.

ENDFORM . "alv_top_of_page

*---------------------------------------------
* alv 显示格式
*---------------------------------------------
FORM FRM_LAYOUT .

GD_LAYOUT-ZEBRA = 'X'.
GD_LAYOUT-DETAIL_POPUP = 'X'.
GD_REPID = SY-REPID.
GD_LAYOUT-F2CODE = '&ETA'.
GD_LAYOUT-NO_VLINE             = ' '.
GD_LAYOUT-COLWIDTH_OPTIMIZE    = 'X'.
GD_LAYOUT-DETAIL_INITIAL_LINES = 'X'.
GD_LAYOUT-DETAIL_TITLEBAR      = ''.

ENDFORM. "FRM_LAYOUT

*---------------------------------------------
* alv 的单元格和字段之间的关联
*---------------------------------------------
FORM FRM_G_FIELDCAT USING P_FIELDNAME    TYPE slis_fieldname
                           p_reptext_ddic LIKE dd03p-reptext
                           P_JUST
                           P_NO.

g_fieldcat-fieldname = p_fieldname .
g_fieldcat-reptext_ddic = p_reptext_ddic .
g_fieldcat-just = P_JUST.
G_FIELDCAT-NO_ZERO = P_NO.
APPEND g_fieldcat.

ENDFORM. " FRM_G_FIELDCAT