屏幕可编辑与Get cursor 到跳转的使用

来源：互联网发布：铜雀台影评知乎编辑：程序博客网时间：2024/06/04 18:36

注意：A.屏幕可编辑显示这个动作需要在PBO中做，否则无效

B.但是屏幕跳转这个动作，应该在PAI中做，即：

Get cursor field <t_field> value <t_value>.

SET PARAMETER ID ‘ID’ FIELD <>.

CALL TRANSACTION ‘MM03’ AND SKIP FIRST. 如：

GET CURSOR FIELD selfield VALUE t_value.
  IF selfield NE space.
    IF t_value IS NOT INITIAL.
      SET PARAMETER ID 'AUN' FIELD text.
      CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
    ENDIF.
  ENDIF.

*&---------------------------------------------------------------------*
*& Report  ZDIALOG07
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zdialog07.

DATA: ok_code TYPE sy-ucomm,
      save_ok TYPE sy-ucomm.

DATA: text(20),
      rad01 ,
      rad02 VALUE 'X',
      rad03 .

START-OF-SELECTION.

  CALL SCREEN 100.

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

  DATA: t_value TYPE string,
        selfield TYPE string.

  ok_code = sy-ucomm.
  save_ok = ok_code.
  CLEAR ok_code.
  CASE save_ok.
    WHEN 'BUT'.
      text = 'sdd'.
    WHEN 'CANCEL'.
      LEAVE TO SCREEN 0.
  ENDCASE.

  GET CURSOR FIELD selfield VALUE t_value.
  IF selfield NE space.
    IF t_value IS NOT INITIAL.
      SET PARAMETER ID 'AUN' FIELD text.
      CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
    ENDIF.
  ENDIF.

ENDMODULE.                 " USER_COMMAND_0100  INPUT

*----------------------------------------------------------------------*
*  MODULE xianshi_data OUTPUT
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
MODULE xianshi_data OUTPUT.
*get cursor field selfield value t_value.  "PBO中获取光标无效，必须在PAI中才能做
  IF text IS NOT INITIAL.
    LOOP AT SCREEN.
      IF screen-group1 = 'GAD'.
        screen-input = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.

ENDMODULE.                 " XIANSHI_DATA  OUTPUT

图1.

图2.