• 弹窗维护字段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

    本人常年接收SAP运维和远程项目,ECC,S/4HANA,CRM,WDA. 远程人天可谈,终身售后,有活请联系V信:18925782767(问问题免费,欢迎交流!) !!请关注本人技术分享公众号:SAP翔子(可扫头像二维码) 每天分享新知识,博客文章也会陆续整理并迁移至公众号,与您一起共同学习
  • 相关阅读:
    python迭代器与iter()函数实例教程
    手动安装python后,交互模式下退格键乱码
    find参数exec、管道符|、xargs的区别
    比较好的网址收集
    sed小知识总结
    irc操作小记
    irssi忽略退出,加入消息
    Web自动化简介
    android&ios区别
    移动自动化应用展望
  • 原文地址:https://www.cnblogs.com/rainysblog/p/14978261.html
Copyright © 2020-2023  润新知