弹窗维护字段POPUP_GET_VALUES

示例1.

  DATA: LT_FIELDS TYPE STANDARD TABLE OF SVAL,
           LV_RC     TYPE C.

    APPEND INITIAL LINE TO LT_FIELDS ASSIGNING FIELD-SYMBOL(<FS_VAL>).
    <FS_VAL>-FIELDNAME = 'ZZOANAM'.
    <FS_VAL>-TABNAME   = 'ZTSD_PCD_002'.
    <FS_VAL>-FIELD_OBL = 'X'.
    <FS_VAL>-VALUE     = SY-UNAME.
    CALL FUNCTION 'POPUP_GET_VALUES'
      EXPORTING
        POPUP_TITLE = '流程发起人'
      IMPORTING
        RETURNCODE  = LV_RC
      TABLES
        FIELDS      = LT_FIELDS[].

展示效果：

 

 

示例2.
   PERFORM FRM_GET_ZAPRD CHANGING <ITP03>-ZAPRD <ITP03>-ZAPRT.

*&---------------------------------------------------------------------*
*&      Form  FRM_GET_ZAPRD
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_<ITAB>_ZAPRD  text
*      <--P_<ITAB>_ZAPRT  text
*----------------------------------------------------------------------*
FORM FRM_GET_ZAPRD   CHANGING P_ZAPRD  TYPE ZAPRD
                             P_ZAPRT  TYPE ZAPRT .

   DATA : LT_VALUE    LIKE  TABLE  OF SVAL  WITH  HEADER  LINE ,
        RETURNCODE .

  LT_VALUE -TABNAME  =  'ZMT_P01' .
  LT_VALUE -FIELDNAME  =  'ZAPRD' .
  LT_VALUE - VALUE  = SY -DATUM .
   APPEND LT_VALUE .

  LT_VALUE -TABNAME  =  'ZMT_P01' .
  LT_VALUE -FIELDNAME  =  'ZAPRT' .
  LT_VALUE - VALUE  = SY -UZEIT .
   APPEND LT_VALUE .

   CALL  FUNCTION  'POPUP_GET_VALUES'
     EXPORTING
*     NO_VALUE_CHECK  = ' '
      POPUP_TITLE      =  '审批日期选择'
      START_COLUMN     =  '5'
      START_ROW        =  '5'
     IMPORTING
      RETURNCODE       = RETURNCODE
     TABLES
       FIELDS           = LT_VALUE
     EXCEPTIONS
      ERROR_IN_FIELDS  =  1
       OTHERS           =  2 .
   IF SY -SUBRC  =  0 .
     READ  TABLE LT_VALUE   WITH  KEY FIELDNAME  =  'ZAPRD' .
     IF SY -SUBRC  =  0 .
      P_ZAPRD  = LT_VALUE - VALUE .
     ENDIF .
     READ  TABLE LT_VALUE   WITH  KEY FIELDNAME  =  'ZAPRT' .
     IF SY -SUBRC  =  0 .
      P_ZAPRT  = LT_VALUE - VALUE .
     ENDIF .
   ENDIF .

ENDFORM.

   PERFORM FRM_GET_ZAPRD CHANGING <ITP03>-ZAPRD <ITP03>-ZAPRT.

*&---------------------------------------------------------------------*
*&      Form  FRM_GET_ZAPRD
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_<ITAB>_ZAPRD  text
*      <--P_<ITAB>_ZAPRT  text
*----------------------------------------------------------------------*
FORM FRM_GET_ZAPRD   CHANGING P_ZAPRD  TYPE ZAPRD
                             P_ZAPRT  TYPE ZAPRT .

   DATA : LT_VALUE    LIKE  TABLE  OF SVAL  WITH  HEADER  LINE ,
        RETURNCODE .

  LT_VALUE -TABNAME  =  'ZMT_P01' .
  LT_VALUE -FIELDNAME  =  'ZAPRD' .
  LT_VALUE - VALUE  = SY -DATUM .
   APPEND LT_VALUE .

  LT_VALUE -TABNAME  =  'ZMT_P01' .
  LT_VALUE -FIELDNAME  =  'ZAPRT' .
  LT_VALUE - VALUE  = SY -UZEIT .
   APPEND LT_VALUE .

   CALL  FUNCTION  'POPUP_GET_VALUES'
     EXPORTING
*     NO_VALUE_CHECK  = ' '
      POPUP_TITLE      =  '审批日期选择'
      START_COLUMN     =  '5'
      START_ROW        =  '5'
     IMPORTING
      RETURNCODE       = RETURNCODE
     TABLES
       FIELDS           = LT_VALUE
     EXCEPTIONS
      ERROR_IN_FIELDS  =  1
       OTHERS           =  2 .
   IF SY -SUBRC  =  0 .
     READ  TABLE LT_VALUE   WITH  KEY FIELDNAME  =  'ZAPRD' .
     IF SY -SUBRC  =  0 .
      P_ZAPRD  = LT_VALUE - VALUE .
     ENDIF .
     READ  TABLE LT_VALUE   WITH  KEY FIELDNAME  =  'ZAPRT' .
     IF SY -SUBRC  =  0 .
      P_ZAPRT  = LT_VALUE - VALUE .
     ENDIF .
   ENDIF .

ENDFORM.

 

 
————————————————
版权声明：本文为CSDN博主「SAP剑客」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/zhongguomao/article/details/71268380