dialog中如何避免select多次取数

逻辑：
1.先建立一个包含主key的数据结构
2.在select取数之前添加一个if条件

程序执行结果：
嵌套子屏幕.jpg

主程序代码：

TABLES:SFLIGHT.
TABLES:SPFLI.
DATA:OK_CODE TYPE SY-UCOMM.
TYPES:BEGIN OF TY_KEY,
CARRID TYPE SPFLI-CARRID,
CONNID TYPE SPFLI-CONNID,
END OF TY_KEY.
DATA:WA_KEY TYPE TY_KEY.
CALL SCREEN 100.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'STATUS_100'.
* SET TITLEBAR 'xxx'.
ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
CASE OK_CODE.
WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*& Module CHECK_FLDATE INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE CHECK_FLDATE INPUT.
SELECT SINGLE *
FROM SFLIGHT
INTO SFLIGHT
WHERE CARRID = SFLIGHT-CARRID
AND CONNID = SFLIGHT-CONNID
AND FLDATE = SFLIGHT-FLDATE.
IF SY-SUBRC <> 0.
MESSAGE ID 'ZVINO' TYPE 'E' NUMBER '008' WITH SFLIGHT-FLDATE.
ENDIF.
ENDMODULE. " CHECK_FLDATE INPUT
INCLUDE ZLXG_011_110_PBO.

复制代码

INCLUDE ZLXG_011_110_PBO.

*----------------------------------------------------------------------*
***INCLUDE ZLXG_011_110_PBO .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module GET_SPFLI_DATA OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE GET_SPFLI_DATA OUTPUT.
*IF SFLIGHT-CARRID IS NOT INITIAL AND SFLIGHT-CONNID IS NOT INITIAL.
IF SFLIGHT-CARRID NE WA_KEY-CARRID AND SFLIGHT-CONNID NE WA_KEY-CONNID. "NE = '<>'
MOVE-CORRESPONDING SFLIGHT TO WA_KEY.
SELECT SINGLE * FROM SPFLI
INTO SPFLI
WHERE CARRID = WA_KEY-CARRID AND CONNID = WA_KEY-CONNID.
ENDIF.
*ENDIF.
ENDMODULE. " GET_SPFLI_DATA OUTPUT

复制代码

注意：
一.screen 100
1.attributes->normal screen
2.element list->定义ok_code
3.flow logic

PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
CALL SUBSCREEN SCHEDULE
INCLUDING SY-repid '0110'. "SY-repid = SY-cprog
*
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100 AT EXIT-COMMAND.
CALL SUBSCREEN SCHEDULE.
CHAIN.
FIELD: SFLIGHT-CARRID,SFLIGHT-CONNID,SFLIGHT-FLDATE.
MODULE CHECK_FLDATE ON CHAIN-REQUEST.
ENDCHAIN.

复制代码

4.screen painter
screen 100 painter.jpg

5.画painter时可以用数据字典的结构拖拽添加 (把主键都选上，别的字段随便加几个)

二.screen 110
1.attributes->subscreen
2.flow logic

PROCESS BEFORE OUTPUT.
* MODULE STATUS_0110.
*
MODULE GET_SPFLI_DATA.
PROCESS AFTER INPUT.
* MODULE USER_COMMAND_0110.

复制代码

3.画painter时可以用数据字典的结构拖拽添加 (把主键都选上，别的字段随便加几个)

三.退出按钮，避免chain endchain 校验的优先级大于普通按钮的优先级造成的退出时不成功的小bug
1.MODULE EXIT 后面需要添加AT EXIT-COMMAND
2.按钮类型选择E（exit）退出类型
Exit command.jpg

dialog中如何避免select多次取数

相关帖子

Ta最近发表

快速回帖