*&---------------------------------------------------------------------*
*& Report Z2GCR_TEST_JAVASCRIPT，有違禁詞，不費勁找了，刪除部分內容
*&---------------------------------------------------------------------*
*&SAP工商銀行網上電子回單，HTML部分從工行下載一個電子回單，然後檢視原始碼，copy即可
*&---------------------------------------------------------------------*
report z2gcr_test_javascript .

   data a TYPE c LENGTH 255 .

class lcl_class definition .
   public section .
     methods : main , on_html_event for event sapevent of cl_gui_html_viewer
     importing action frame getdata .
   protected section .
   private section .
     data ob_ref type   ref to cl_gui_html_viewer .
endclass .
class lcl_class implementation .
   method main .

     data ob_lcl type ref to lcl_class .
     data html type w3htmltab .
     data url type c length 255 .
     create object ob_ref
       exporting
        parent = cl_gui_container =>screen0 .
     data events type cntl_simple_events .
     data event type cntl_simple_event .
     event -eventid = ob_ref ->m_id_sapevent .
     event -appl_event = 'X' .
     append event to events .
     call method ob_ref ->set_registered_events
       exporting
         events = events .

     set handler me ->on_html_event for ob_ref .
     append '<html>' to html .
     append '<meta charset="UTF-8">' to html .
     append '<table width="642">' to html .
     append '<tr>' to html .
     append '<td align="center" colspan="2"><font face="黑體" size="5">中國工商銀行</font>   網上銀行電子回單' to html .
......................
     append '<tr>' to html .
   append '</html>' to html .

    ob_ref ->load_data ( importing assigned_url = url changing data_table = html ) .
    ob_ref ->show_url ( url = url ) .
   endmethod .

   method on_html_event .
     data : l_string type string .
    l_string = getdata .
     message i001 ( 00 ) with l_string .
   endmethod .
endclass .

parameters : p_dummy type c length 1 .

data b type c LENGTH 255 .

at selection-screen output .

get PARAMETER ID 'WL_QTEXT' FIELD a .

   data : lcl_oref type ref to lcl_class .
   if lcl_oref is not bound .
     create object lcl_oref .
     call method lcl_oref ->main .
   endif .

   set PARAMETER ID 'WL_QTEXT' FIELD '' .

ABAP解析HTML檔案-工行電子回單

相關文章