QQMA0013: Vorschlagswerte beim Hinzufügen einer Maßnahme

Code: Alles auswählen.

*----------------------------------------------------------------------*
*   INCLUDE MIWO0F90  Customer-Exits                                   *
*----------------------------------------------------------------------*
*****--------------------------------------------------------------*****
* Die nachfolgenden Performs werden aus dem neuen Programm             *
* SAPLIQS0 aufgerufen. Aus Gründen der aufwärts Kompatibilität müssen  *
* die Aufrufe weiterhin im SAPMIWO0 verbleiben                         *
*****--------------------------------------------------------------*****
*&---------------------------------------------------------------------*
*&      Form  DEFAUL_WERTE_MAS_F90
*&---------------------------------------------------------------------*
* Customer-Exit zum Vorbelegen von Werten beim Hinzufügen einer        *
* Maßnahme                                                             *
*----------------------------------------------------------------------*
*  -->  P_VIQMEL  Meldungskopf
*  -->  P_QMTYP   Meldungstyp
*  -->  P_TQ80    Meldungsart
*  -->  P_VIQMFE  Meldungsposition
*  -->  P_VIQMSM  Maßnahme
*----------------------------------------------------------------------*
FORM defaul_werte_mas_f90 USING p_viqmel LIKE viqmel
                                p_qmtyp   LIKE tq8t-qmtyp
                                p_tq80   LIKE tq80
                                p_viqmfe LIKE viqmfe
                                p_viqmsm LIKE viqmsm.

  IF p_qmtyp EQ yqm_02.
    CALL CUSTOMER-FUNCTION '019'
        EXPORTING
            i_viqmel         = p_viqmel
            i_tq80           = p_tq80
            i_viqmfe         = p_viqmfe
            i_viqmsm         = p_viqmsm
        IMPORTING
            e_viqmsm         = p_viqmsm.
  ELSE.
    CALL CUSTOMER-FUNCTION '021'
        EXPORTING
            i_viqmel         = p_viqmel
            i_tq80           = p_tq80
            i_viqmfe         = p_viqmfe
            i_viqmsm         = p_viqmsm
        IMPORTING
            e_viqmsm         = p_viqmsm.
  ENDIF.

ENDFORM.                               " DEFAUL_WERTE_MAS_F90