TYPES: BEGIN OF TY_VBAP,
         VBELN TYPE VBELN,
         POSNR TYPE POSNR,
         MATNR TYPE MATNR,
       END OF TY_VBAP.
*-ALL related Declarations
DATA:    T_HEADER  TYPE STANDARD TABLE OF W3HEAD WITH HEADER LINE,  "Header
         T_FIELDS  TYPE STANDARD TABLE OF W3FIELDS WITH HEADER LINE,    "Fields
         T_HTML    TYPE STANDARD TABLE OF W3HTML,                          "Html
         WA_HEADER TYPE W3HEAD,
         W_HEAD    TYPE W3HEAD.
DATA: IT_VBAP TYPE STANDARD TABLE OF TY_VBAP,
      IT_FCAT TYPE LVC_T_FCAT WITH HEADER LINE.

START-OF-SELECTION.
  SELECT VBELN POSNR MATNR
          FROM VBAP
          INTO TABLE IT_VBAP
         UP TO 15 ROWS.

END-OF-SELECTION.
*-Populate the Columns
  IT_FCAT-COLTEXT = 'SalesOrder'.
  APPEND IT_FCAT.
  IT_FCAT-COLTEXT = 'ItmeNumber'.
  APPEND IT_FCAT.
  IT_FCAT-COLTEXT = 'Material'.
  APPEND IT_FCAT.
*-Fill the Column heading and Filed Properties
  LOOP AT IT_FCAT.
    W_HEAD-TEXT = IT_FCAT-COLTEXT.
    "標題行設定
    CALL FUNCTION 'WWW_ITAB_TO_HTML_HEADERS'
      EXPORTING
        FIELD_NR = SY-TABIX
        TEXT     = W_HEAD-TEXT
        FGCOLOR  = 'yellow'
        BGCOLOR  = 'green'
      TABLES
        HEADER   = T_HEADER.

    CALL FUNCTION 'WWW_ITAB_TO_HTML_LAYOUT'
      EXPORTING
        FIELD_NR = SY-TABIX
        FGCOLOR  = 'black'
        SIZE     = '3'
      TABLES
        FIELDS   = T_FIELDS.
  ENDLOOP.
*-Title of the Display
  WA_HEADER-TEXT = 'Sales Order Details'.
  WA_HEADER-FONT = 'Arial'.
  WA_HEADER-SIZE = '2'.
*-Preparing the HTML from Intenal Table
  REFRESH T_HTML.
  CALL FUNCTION 'WWW_ITAB_TO_HTML'
    EXPORTING
      TABLE_HEADER = WA_HEADER
    TABLES
      HTML         = T_HTML
      FIELDS       = T_FIELDS
      ROW_HEADER   = T_HEADER
      ITABLE       = IT_VBAP.
*-Download  the HTML into frontend
  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      FILENAME                = 'C:\Sales.htm'
    TABLES
      DATA_TAB                = T_HTML
    EXCEPTIONS
      FILE_WRITE_ERROR        = 1
      NO_BATCH                = 2
      GUI_REFUSE_FILETRANSFER = 3
      INVALID_TYPE            = 4
      NO_AUTHORITY            = 5
      UNKNOWN_ERROR           = 6
      HEADER_NOT_ALLOWED      = 7
      SEPARATOR_NOT_ALLOWED   = 8
      FILESIZE_NOT_ALLOWED    = 9
      HEADER_TOO_LONG         = 10
      DP_ERROR_CREATE         = 11
      DP_ERROR_SEND           = 12
      DP_ERROR_WRITE          = 13
      UNKNOWN_DP_ERROR        = 14
      ACCESS_DENIED           = 15
      DP_OUT_OF_MEMORY        = 16
      DISK_FULL               = 17
      DP_TIMEOUT              = 18
      FILE_NOT_FOUND          = 19
      DATAPROVIDER_EXCEPTION  = 20
      CONTROL_FLUSH_ERROR     = 21
      OTHERS                  = 22.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

  CALL FUNCTION 'GUI_RUN'
    EXPORTING
      COMMAND = 'C:\Sales.htm'
*     PARAMETER        =
*     CD      =
*   IMPORTING
*     RETURNCODE       =

    .