ZBlog学习笔记

效果

新建100屏幕和BQCONTAINER控件，名称与代码相对应。

*&---------------------------------------------------------------------*
*& Report ZLL_TEST_001
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZLL_TEST_001.


DATA: LCL_OBJ    TYPE REF TO CL_GUI_HTML_VIEWER,
      LCL_PARENT TYPE REF TO CL_GUI_CUSTOM_CONTAINER.

CREATE OBJECT LCL_PARENT
  EXPORTING
*   PARENT                      =
    CONTAINER_NAME              = 'BQCONTAINER'
*   STYLE                       =
*   LIFETIME                    = lifetime_default
*   REPID                       =
*   DYNNR                       =
*   NO_AUTODEF_PROGID_DYNNR     =
  EXCEPTIONS
    CNTL_ERROR                  = 1
    CNTL_SYSTEM_ERROR           = 2
    CREATE_ERROR                = 3
    LIFETIME_ERROR              = 4
    LIFETIME_DYNPRO_DYNPRO_LINK = 5
    OTHERS                      = 6.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.





CREATE OBJECT LCL_OBJ
  EXPORTING
*   SHELLSTYLE         =
    PARENT             = LCL_PARENT
*   LIFETIME           = LIFETIME_DEFAULT
*   SAPHTMLP           =
*   UIFLAG             =
*   END_SESSION_WITH_BROWSER = 0
*   NAME               =
*   SAPHTTP            =
*   QUERY_TABLE_DISABLED = ''
  EXCEPTIONS
    CNTL_ERROR         = 1
    CNTL_INSTALL_ERROR = 2
    DP_INSTALL_ERROR   = 3
    DP_ERROR           = 4
    OTHERS             = 5.
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 METHOD LCL_OBJ->SHOW_URL
  EXPORTING
    URL                    = 'https://www.kuaizhan.com/common/encode-png?large=true&data=%E4%BD%A0%E7%9A%84%E5%86%85%E5%AE%B9'
*   FRAME                  =
*   IN_PLACE               = ' X'
  EXCEPTIONS
    CNTL_ERROR             = 1
    CNHT_ERROR_NOT_ALLOWED = 2
    CNHT_ERROR_PARAMETER   = 3
    DP_ERROR_GENERAL       = 4
    OTHERS                 = 5.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.


call SCREEN 0100.
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'PF_STATUS'.
*  SET TITLEBAR 'xxx'.
ENDMODULE.


*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.

CASE sy-ucomm.
  WHEN '&F03' or  '&F15' or  '&F12'.
    LEAVE PROGRAM.

  WHEN OTHERS.
ENDCASE.

ENDMODULE.