CV03N的屏幕增强

 

首先要感谢老白在增强制作中给予的帮助。在这里我会一步一步说明如何制作一个CV03N(CV01N/CV02N)的屏幕增强.

 

如何查找增强就不再赘述了,这个增强是CV110001.

首先从CMOD里进去创建一个项目,点"ENHANCEMENT ASSIGNMENTS",把CV110001写进相应的文本框中保存,然后点"组件",进入SCREEN EXIT,给"100"屏幕增加描述,屏幕类型选择子屏幕.

 

根据自己的需求，在屏幕上放置相应的控件,并填写它们的属性.然后进入屏幕的PBO,写一些相关的代码.我做的这个例子只是显示一个URL.

MODULE STATUS_0100 OUTPUT.

  DATA:CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
       EDITOR    TYPE REF TO CL_GUI_TEXTEDIT,
       LINE(255) TYPE C,
       TEXT_TAB LIKE STANDARD TABLE OF LINE.

  DATA:MOD TYPE DRAW-ZMOD,
       URL TYPE DRAW-ZURL.

  REFRESH TEXT_TAB.

  MOD = P_DRAW-ZMOD.
  LINE = P_DRAW-ZURL.
  APPEND LINE TO TEXT_TAB.
***创建容器
  IF CONTAINER IS INITIAL.
    CREATE OBJECT CONTAINER
      EXPORTING
         CONTAINER_NAME = 'URL'.
  ENDIF.
***创建EDITOR
  IF EDITOR IS INITIAL.
    CREATE OBJECT EDITOR
      EXPORTING
        PARENT = CONTAINER.
  ENDIF.
***设置TOOLBAR不可见
  CALL METHOD EDITOR->SET_TOOLBAR_MODE
    EXPORTING
      TOOLBAR_MODE = 0.
***设置自动换行
  CALL METHOD EDITOR->SET_WORDWRAP_BEHAVIOR.
***设置只读
  CALL METHOD EDITOR->SET_READONLY_MODE
    EXPORTING
      READONLY_MODE = 1.
***读取显示内容
  CALL METHOD EDITOR->SET_TEXT_AS_STREAM
    EXPORTING
      TEXT = TEXT_TAB.

ENDMODULE.                 " STATUS_0100  OUTPUT

 

屏幕设计和PBO已经完毕,怎么让这个屏幕显示在CV03N的子屏幕中，还有工作要做.

EXIT_SAPLCV110_001 设置这个屏幕在相应的选项卡中

*&---------------------------------------------------------------------*
*&  包括                ZXCV110U01
*&---------------------------------------------------------------------*

IF P_DRAW-ZURL <> ''.
  PFX_TAB1 = '可视化图形'.
ENDIF.

 

屏幕上的按钮(F_URL)按下产生的动作在EXIT_SAPLCV110_004中.

IF PFX_OKCODE = 'F_URL'.
  CALL FUNCTION 'SO_LINK_DISPLAY'
    EXPORTING
      URL_CONTENT = P_DRAW-ZURL.
ENDIF.

 

最后进入CV03N看到的图片如下,其中"可视化图形"这个选项卡在本来的CV03N中是没有的.