ALV表头HTML实现 - ^ω^SAP傻X^o^

FORM frm_html_top_of_page USING cl_dd TYPE REF TO cl_dd_document.
  DATA: m_p TYPE i.
  DATA: m_buff TYPE string.
  DATA:m_kunnr TYPE string.
  DATA:m_bukrs TYPE string.

  SELECT SINGLE name1 INTO m_kunnr FROM kna1 WHERE kunnr IN s_kunnr.
  CONCATENATE '客户：' m_kunnr '对账单' INTO m_kunnr.
*表头其实完全可以是一个html文件，自己使用html语言进行格式控制
  m_buff = '<html>'.

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

  SELECT SINGLE butxt INTO m_bukrs FROM t001 WHERE bukrs IN s_bukrs.

  CONCATENATE '<center><H2>' m_bukrs  '</H2></Center>' INTO m_buff.

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

  CONCATENATE '<center><H3>' m_kunnr  '</H3></Center>' INTO m_buff.

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

  CONCATENATE '<center>对账日期：' sy-datum+0(4) '年' sy-datum+4(2) '月'  sy-datum+6(2) '日' '</Center>' INTO m_buff.

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

  m_buff = '</html>'.

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

  gv_company_name = m_bukrs.
  gv_customer_name = m_kunnr.
  gv_date = '对账日期：' && sy-datum+0(4) && '年' && sy-datum+4(2) && '月' &&  sy-datum+6(2) && '日'.
ENDFORM.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program          = sy-repid
      i_callback_pf_status_set    = 'FRM_PF_STATUS'
      i_callback_user_command     = 'FRM_USER_COMMAND'
      i_callback_html_top_of_page = 'FRM_HTML_TOP_OF_PAGE'
      is_layout                   = ls_layout
      it_fieldcat                 = gt_fieldcat
*     IT_SORT                     = GT_SORT
      i_default                   = 'X'
      i_save                      = 'A'
    TABLES
      t_outtab                    = gt_show
    EXCEPTIONS
      program_error               = 1
      OTHERS                      = 2.
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.

posted on 2016-11-01 11:08 ^ω^SAP傻X^o^ 阅读(1769) 评论(0) 收藏举报

刷新页面返回顶部