1. 程式人生 > >【轉載】SAP ALV(LVC)的擡頭標題設定(html_top_of_page)

【轉載】SAP ALV(LVC)的擡頭標題設定(html_top_of_page)

對alv的擡頭標題設定方法
 
方法1:通過class:cl_dd_document設定
call alv
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      i_callback_program          = sy-repid
      i_callback_pf_status_set    = 'FRM_PF_STATUS_SET'
      i_callback_user_command     = 'FRM_USER_COMMAND'
      i_callback_html_top_of_page = 'HTML_TOP_OF_PAGE'
      is_layout_lvc               = gwa_lay
      it_fieldcat_lvc             = gt_fcat
    TABLES
      t_outtab                    = gt_list.
 
 
定義子程式(form)
*&---------------------------------------------------------------------*
*&      Form  html_top_of_page
*&---------------------------------------------------------------------*
FORM html_top_of_page USING document TYPE REF TO cl_dd_document.

  DATA: text TYPE sdydo_text_element.
  LOOP AT gt_proj INTO gwa_proj.
    text = text-010.                  "專案編號
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 2.
    text = gwa_proj-pspid.
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.  "加粗還是斜體  STRONG是加粗

    CALL METHOD document->add_gap
      EXPORTING
        width = 40.

    text = text-011.                   "專案名稱
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 2.
    text = gwa_proj-post1.
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->new_line.
    CALL METHOD document->underline.   "Draw  an underLine


    text = text-012.                   "SOP時間
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 2.
    text = gwa_proj-zsopsj.
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 40.

    text = text-013.                   "客戶名稱
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 2.
    text =  gwa_proj-zzjkh.
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 40.
    text = text-014.                   "廠房模式
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 2.
    text =  gwa_proj-zcfms.
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 2.

    CALL METHOD document->new_line.
    CALL METHOD document->underline.   "Draw  an underLine

    text = text-015.                   "公司性質
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 2.
    text = gwa_proj-zgsxz.
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 40.

    text = text-016.                   "客戶產能
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 2.
    text =  gwa_proj-zkhcn.
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 40.
    text = text-017.                   "客戶啟動會議日期
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 2.
    text =  gwa_proj-zqdhysj.
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 2.
    CALL METHOD document->new_line.
    CALL METHOD document->underline.   "Draw  an underLine

  ENDLOOP.
ENDFORM.                    "HTML_TOP_OF_PAGE
 
效果圖如下:
 
 
 
方法2:通過編寫html程式碼實現
*&---------------------------------------------------------------------*
*&      Form  top_of_page
*&---------------------------------------------------------------------*
*       top_of_page
*----------------------------------------------------------------------*
FORM top_of_page USING w_doc TYPE REF TO cl_dd_document.
  DATA: lt_html_table    TYPE sdydo_html_line OCCURS 0.
  DATA: ls_htmltab       LIKE LINE OF lt_html_table.

  REFRESH w_doc->html_table.

  ls_htmltab-line =
   '<HTML><BODY bottommargin="0" background=" ">' &
  '<SPAN Style="FONT-SIZE: 12pt; COLOR: black; FONT-FAMILY: Arial; ">'
  & '<br /><B>'
  && '工廠 :'  && p_werks  && '</B> <BR>'.
  APPEND ls_htmltab TO w_doc->html_table.

  CLEAR ls_htmltab.
  ls_htmltab-line =
  '<br /><B>'
  && '未維護比例:'  && gv_perct && '</B> </<BR></SPAN>'.
  APPEND ls_htmltab TO w_doc->html_table.

  CLEAR ls_htmltab.
  ls_htmltab-line = '</BODY></HTML>'.
  APPEND ls_htmltab TO w_doc->html_table.

ENDFORM.                    "top_of_page
 
效果圖如下:
--------------------- 
作者:forever_crazy 
來源:CSDN 
原文:https://blog.csdn.net/forever_crazy/article/details/19802199 
版權宣告:本文為博主原創文章,轉載請附上博文連結!