• 热门专题

SAPalv(lvc)的抬头标题设定(html_top_of_page)

作者:  发布日期:2014-02-24 21:32:51
Tag标签:SAPalv  抬头  标题  
  • 对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
     
    效果图如下:
    
    
     
     

延伸阅读:

About IT165 - 广告服务 - 隐私声明 - 版权申明 - 免责条款 - 网站地图 - 网友投稿 - 联系方式
本站内容来自于互联网,仅供用于网络技术学习,学习中请遵循相关法律法规