确定TOP OF PAGE 的位置

最新推荐文章于 2024-07-07 15:00:00 发布

鹏翼丶

最新推荐文章于 2024-07-07 15:00:00 发布

阅读量626

点赞数

分类专栏： ALV TOP-OF-PAG

本文链接：https://blog.csdn.net/liupengpeng1109/article/details/51187717

版权

ALV 同时被 2 个专栏收录

14 篇文章 1 订阅

订阅专栏

TOP-OF-PAG

1 篇文章 0 订阅

订阅专栏

*&---------------------------------------------------------------------*
*&      Form  frm_layout
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
  FORM frm_layout  TABLES p_data USING p_status p_command.

    gs_repid = sy-repid.
    gs_layout-zebra = 'X'.
    gs_layout-cwidth_opt = 'X'.

    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
      EXPORTING
        i_callback_program          = gs_repid
        i_save                      = 'A'
        it_fieldcat_lvc             = gs_fieldcat[]
        is_layout_lvc               = gs_layout
        i_callback_pf_status_set    = p_status
        i_callback_user_command     = p_command
        i_callback_html_top_of_page = 'HTML_TOP_OF_PAGE'
        i_html_height_top           = 13     "HTML框的高度
      TABLES
        t_outtab                    = p_data
      EXCEPTIONS
        program_error               = 1
        OTHERS                      = 2.

    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
  ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  pf_status
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->RT_EXTAB   text
*----------------------------------------------------------------------*
FORM pf_status USING rt_extab TYPE slis_t_extab.
  SET PF-STATUS 'STANDARD_FULLSCREEN'.
ENDFORM.                    "pf_status
*&---------------------------------------------------------------------*
*&      FORM  TOP_OF_PAGE
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
FORM html_top_of_page USING document TYPE REF TO cl_dd_document.
  DATA:lc_str TYPE string.

  lc_str = '现金流量表'.
  PERFORM frm_create_page USING document 50  lc_str ''.

  CALL METHOD document->new_line.
*  CALL METHOD document->new_line.
  lc_str = '编制单位:'.
  PERFORM frm_create_page USING document 0  lc_str ''.
  lc_str = gwa_head-butxt.
  PERFORM frm_create_page USING document 0  lc_str ''.

  lc_str = '会计年度:'.
  PERFORM frm_create_page USING document 28  lc_str ''.
  lc_str = gwa_head-gjahr.
  PERFORM frm_create_page USING document 0  lc_str ''.

  lc_str = '期间:'.
  PERFORM frm_create_page USING document 2  lc_str ''.
  lc_str = gwa_head-monat.
  PERFORM frm_create_page USING document 0  lc_str ''.

ENDFORM.                    "TOP_OF_PAGE

*&---------------------------------------------------------------------*
*&      FORM  FRM_CREATE_PAGE
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*      -->P_100    TEXT
*      -->P_TEXT  TEXT
*      -->P_1062   TEXT
*----------------------------------------------------------------------*
FORM frm_create_page  USING   document TYPE REF TO cl_dd_document p_width p_text p_style.
  DATA: s_text TYPE sdydo_text_element.

  s_text = p_text.
  CALL METHOD document->add_gap
    EXPORTING
      width = p_width.
  CALL METHOD document->add_text
    EXPORTING
      text      = s_text
      sap_style = p_style.
ENDFORM.                    " FRM_CREATE_PAGE