ABAP-弹窗选择

ABAP-弹窗选择

方式一：函数

FORM POPUP_SCREEN .
 CLEAR : FIELDS[].
 FIELDS-TABNAME = 'SPFLI'.
 FIELDS-FIELDNAME = 'CARRID'.
 FIELDS-FIELDTEXT = '航线承运人'.
 fields-FIELD_ATTR = '01'.
APPEND FIELDS.CLEAR FIELDS.
 FIELDS-TABNAME = 'SPFLI'.
 FIELDS-FIELDNAME = 'CONNID'.
 FIELDS-FIELDTEXT = '航班数量'.
 fields-FIELD_ATTR = '01'.
APPEND FIELDS.CLEAR FIELDS.

CALL FUNCTION 'POPUP_GET_VALUES_USER_HELP'
  EXPORTING
*   F1_FORMNAME                     = ' '
*   F1_PROGRAMNAME                  = ' '
*   F4_FORMNAME                     = ' '
*   F4_PROGRAMNAME                  = ' '
*   FORMNAME                        = ' '
    POPUP_TITLE                     = '测试弹出窗口'
*   PROGRAMNAME                     = ' '
*   START_COLUMN                    = '5'
*   START_ROW                       = '5'
*   NO_CHECK_FOR_FIXED_VALUES       = ' '
* IMPORTING
*   RETURNCODE                      =
  TABLES
    FIELDS                          = fields
 EXCEPTIONS
   ERROR_IN_FIELDS                 = 1
   OTHERS                          = 2
          .
IF SY-SUBRC <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

IF SY-SUBRC = 0.
  READ TABLE FIELDS WITH KEY FIELDNAME = 'CARRID'.
  v_carrid = FIELDS-VALUE.
  READ TABLE FIELDS WITH KEY FIELDNAME = 'CONNID'.
  v_CONNID = FIELDS-VALUE.
endif.
ENDFORM.                    " POPUP_SCREEN

方式二： ABAP

SELECTION-SCREEN BEGIN OF SCREEN 1005.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-010.
SELECT-OPTIONS: s_eplno FOR zeplhdr_dg_yb-eplno,
                s_lddat FOR zeplhdr_dg_yb-lddat.
PARAMETER: p_export AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN END OF SCREEN 1005.

 CALL SELECTION-SCREEN 1005 STARTING AT 25 5.
 CHECK sy-subrc EQ 0.

其它参考

https://blog.csdn.net/lmf496891416/article/details/126624028

https://blog.csdn.net/lmf496891416/article/details/126624028 屏幕和 POPUP_GET_VALUES