SELECTION-SCREEN选择界面字段值的实时获取-函数DYNP_VALUES_READ

项目中ABAP程序会遇到一种需求：实时获取屏幕字段的值。如下图所示：

根据销售组织/分销渠道/产品组来限制凭证类型的选择，类似与系统VA01操作。因为存在大量的必输字段，导致一个问题：只有把所有的必输字段维护完成之后，程序才会经过AT SELECTION-SCREEN的节点，但是实际的业务需求：未维护完整其他必输的情况下，也可以约束到凭证类型的选择范围。

为此，我们首先采用了MEMORY ID的方法，即想把销售组织/分销渠道/产品组3个字段维护的值写入到内存中，但是实际操作发现，必输字段没有维护完整，这些值无法写入内存。

因为和VA01的操作类似，通过调试系统标准程序，发现如下代码段和函数：

   DATA: DA_AUART LIKE VBAK-AUART,
          DA_BEZEI LIKE TVAKT-BEZEI.

    DATA: BEGIN OF DYNPFIELDS OCCURS 5.
            INCLUDE STRUCTURE DYNPREAD.
    DATA: END OF DYNPFIELDS.

    MOVE 'VBAK-VKORG' TO DYNPFIELDS-FIELDNAME.
    APPEND DYNPFIELDS.
    MOVE 'VBAK-VTWEG' TO DYNPFIELDS-FIELDNAME.
    APPEND DYNPFIELDS.
    MOVE 'VBAK-SPART' TO DYNPFIELDS-FIELDNAME.
    APPEND DYNPFIELDS.

    CALL FUNCTION 'DYNP_VALUES_READ'
         EXPORTING
              DYNAME               = SY-CPROG
              DYNUMB               = SY-DYNNR
         TABLES
              DYNPFIELDS           = DYNPFIELDS
         EXCEPTIONS
              INVALID_ABAPWORKAREA = 01
              INVALID_DYNPROFIELD  = 02
              INVALID_DYNPRONAME   = 03
              INVALID_DYNPRONUMMER = 04
              INVALID_REQUEST      = 05
              NO_FIELDDESCRIPTION  = 06
              UNDEFIND_ERROR       = 07.

    IF SY-SUBRC EQ 0. "nur falls Transport-Felder im Dynpro existieren

      READ TABLE DYNPFIELDS WITH KEY 'VBAK-VKORG'.
      IF SY-SUBRC = 0.
        VBAK-VKORG = DYNPFIELDS-FIELDVALUE.
      ENDIF.

      READ TABLE DYNPFIELDS WITH KEY 'VBAK-SPART'.
      IF SY-SUBRC = 0.
        VBAK-SPART = DYNPFIELDS-FIELDVALUE.
      ENDIF.

      READ TABLE DYNPFIELDS WITH KEY 'VBAK-VTWEG'.
      IF SY-SUBRC = 0.
        VBAK-VTWEG = DYNPFIELDS-FIELDVALUE.
      ENDIF.

    ENDIF.

    CALL FUNCTION 'RV_HELP'
         EXPORTING
              KEY            = VBAK-VKORG
              KEY2           = VBAK-VTWEG
              KEY3           = VBAK-SPART
              KEY4           = T180-TRVOG
              NUMBER         = '008'
              TRTYP          = T185F-TRTYP
              FIELD_IN       = VBAK-AUART
              DESCRIPTION_IN = TVAKT-BEZEI
         IMPORTING
              FIELD          = DA_AUART
              DESCRIPTION    = DA_BEZEI.

    IF DA_AUART IS INITIAL. " Anwender hat F4-Hilfe abgebrochen
        DA_AUART   = TVAKT-AUART.
        DA_BEZEI   = TVAKT-BEZEI.
        VBAK-AUART = DA_AUART.
    ENDIF.
* Ermitteln der Anzeigeart für die Auftragsart (Anzeigen/Ändern)
    REFRESH DYNPFIELDS.
    CLEAR DYNPFIELDS.
    MOVE 'VBAK-AUART' TO DYNPFIELDS-FIELDNAME.
    APPEND DYNPFIELDS.

    CALL FUNCTION 'DYNP_VALUES_READ'
         EXPORTING
              DYNAME               = SY-CPROG
              DYNUMB               = SY-DYNNR
         TABLES
              DYNPFIELDS           = DYNPFIELDS
         EXCEPTIONS
              INVALID_ABAPWORKAREA = 01
              INVALID_DYNPROFIELD  = 02
              INVALID_DYNPRONAME   = 03
              INVALID_DYNPRONUMMER = 04
              INVALID_REQUEST      = 05
              NO_FIELDDESCRIPTION  = 06
              UNDEFIND_ERROR       = 07.

    READ TABLE DYNPFIELDS WITH KEY 'VBAK-AUART'.
    IF DYNPFIELDS-FIELDINP <> SPACE.
*   Auftragsart ist zur Eingabe offen
      VBAK-AUART  = DA_AUART.
      TVAKT-AUART = DA_AUART.
      TVAKT-BEZEI = DA_BEZEI.
    ENDIF.

    REFRESH DYNPFIELDS.
    CLEAR DYNPFIELDS.

 

通过对上述方法进行分析，总结如下解决方法：

手工对选择字段“凭证类型”P_AUART创建一个搜索帮助，如下所示

SELECT-OPTIONS:s_vkorg FOR vbak-vkorg NO-DISPLAY,
               s_vtweg FOR vbak-vtweg NO-DISPLAY,
               s_spart FOR vbak-spart NO-DISPLAY.

 

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_auart.
  DATA ls_auart LIKE help_info-dynprofld.
  "获取销售凭证类型的搜索帮助内容
  PERFORM frm_auart_f4.

  ls_auart = 'P_AUART'.
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield    = 'AUART'
      value_org   = 'S'
      dynprofield = ls_auart
      dynpprog    = sy-repid
      dynpnr      = sy-dynnr
    TABLES
      value_tab   = it_auart.

 

*&---------------------------------------------------------------------*
*&      Form  FRM_AUART_F4
*&---------------------------------------------------------------------*
*       获取销售凭证类型的搜索帮助内容
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_AUART_F4 .

  DATA: BEGIN OF DYNPFIELDS OCCURS 5.
          INCLUDE STRUCTURE DYNPREAD.
  DATA: END OF DYNPFIELDS.

  MOVE 'P_VKORG' TO DYNPFIELDS-FIELDNAME.
  APPEND DYNPFIELDS.
  MOVE 'P_VTWEG' TO DYNPFIELDS-FIELDNAME.
  APPEND DYNPFIELDS.
  MOVE 'P_SPART' TO DYNPFIELDS-FIELDNAME.
  APPEND DYNPFIELDS.

  CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      DYNAME               = SY-CPROG
      DYNUMB               = SY-DYNNR
    TABLES
      DYNPFIELDS           = DYNPFIELDS
    EXCEPTIONS
      INVALID_ABAPWORKAREA = 01
      INVALID_DYNPROFIELD  = 02
      INVALID_DYNPRONAME   = 03
      INVALID_DYNPRONUMMER = 04
      INVALID_REQUEST      = 05
      NO_FIELDDESCRIPTION  = 06
      UNDEFIND_ERROR       = 07.


  IF SY-SUBRC EQ 0.

    READ TABLE DYNPFIELDS WITH KEY 'P_VKORG'.
    IF SY-SUBRC = 0.
      P_VKORG = DYNPFIELDS-FIELDVALUE.
    ENDIF.

    READ TABLE DYNPFIELDS WITH KEY 'P_SPART'.
    IF SY-SUBRC = 0.
      P_SPART = DYNPFIELDS-FIELDVALUE.
    ENDIF.

    READ TABLE DYNPFIELDS WITH KEY 'P_VTWEG'.
    IF SY-SUBRC = 0.
      P_VTWEG = DYNPFIELDS-FIELDVALUE.
    ENDIF.

  ENDIF.


  CLEAR:s_vkorg[],
        s_vtweg[],
        s_spart[].

  s_vkorg-low = p_vkorg.
  IF s_vkorg-low IS NOT INITIAL.
    s_vkorg-sign = 'I'.
    s_vkorg-option = 'EQ'.
    APPEND s_vkorg.
  ENDIF.

  s_vtweg-low = p_vtweg.
  IF s_vtweg-low IS NOT INITIAL.
    s_vtweg-sign = 'I'.
    s_vtweg-option = 'EQ'.
    APPEND s_vtweg.
  ENDIF.


  s_spart-low = p_spart.
  IF s_spart-low IS NOT INITIAL.
    s_spart-sign = 'I'.
    s_spart-option = 'EQ'.
    APPEND s_spart.
  ENDIF.


  CLEAR:it_auart[],
        it_auart.

  SELECT tvakz~auart
    tvakt~bezei
    INTO CORRESPONDING FIELDS OF TABLE it_auart
    FROM tvakz
    INNER JOIN tvakt
    ON tvakt~auart = tvakz~auart
    WHERE tvakz~vkorg IN s_vkorg
    AND   tvakz~vtweg IN s_vtweg
    AND   tvakz~spart IN s_spart
    AND   tvakt~spras = sy-langu
    .

  SORT it_auart.

  DELETE ADJACENT DUPLICATES FROM it_auart.

ENDFORM.                    " FRM_AUART_F4

 

至此完成，对选择屏幕数据的实时获取！！！