SAP alv(lvc)的擡頭標題設定(html_top_of_page)
阿新 • • 發佈:2019-01-11
*&---------------------------------------------------------------------*
*& 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