QM03: Lesen von Verantwortlicher + Listname

BW, SRM, Berechtigung etc.
3 Beiträge / Seite 1 von 1
3 Beiträge Seite 1 von 1

QM03: Lesen von Verantwortlicher + Listname

Beitrag von abapsapiens (ForumUser / 3 / 2 / 0 ) » 9. Apr 2018 12:26

Hallo zusammen,

ich würde gerne wissen, über welche Tabellen / Funktionsbausteine ich den Verantwortlichen (Feld PARNR) und den Listnamen in ABAP lesen kann:
QM03.PNG
Die Transaktion ist QM03.

Vielen Dank im Voraus.


Re: QM03: Lesen von Verantwortlicher + Listname

Beitrag von wreichelt (Expert / 687 / 16 / 119 ) » 9. Apr 2018 12:37

Hallo,

schon probiert: PM_PARTNER_READ mit parvw = 'VU' .

Gruß Wolfang

Folgende Benutzer bedankten sich beim Autor wreichelt für den Beitrag:
abapsapiens


Re: QM03: Lesen von Verantwortlicher + Listname

Beitrag von abapsapiens (ForumUser / 3 / 2 / 0 ) » 9. Apr 2018 14:23

Vielen Dank Wolfgang, das funktioniert!

Hier mein Beispielcode:

Code: Alles auswählen.


    DATA: lt_qmsm TYPE STANDARD TABLE OF qmsm.

 " parnr_text ist TYPE c LENGTH 35 in der internen Tabelle wie NAME_LIST in Export-Parameter
 " DIADRP_WA in FuBa PM_PARTNER_READ


*-- Verantwortlichen fuer Maßnahmen lesen
    LOOP AT lt_qmsm ASSIGNING <qmsm>.

      IF <qmsm>-parnr IS NOT INITIAL AND
         <qmsm>-parvw IS NOT INITIAL.

        CALL FUNCTION 'PM_PARTNER_READ'
          EXPORTING
            parvw                        = <qmsm>-parvw
            parnr                        = <qmsm>-parnr
*         NRART                        = ' '
*         ADRNR                        =
*         CHECK_DEBITOR                = 'X'
*         OBJNR                        =
*         NO_TABIX_DET                 =
       IMPORTING
*         PARNR_EXP                    =
*         DIADRC_WA                    =
*         DIADRP_WA                    =
           diadr_wa                     = wa_diadr
*         DIADRCPD_WA                  =
*         XCPDK                        =
*         E_NRART                      =
*         KTOKD                        =
*         VTEXT                        =
*         CUSTOMER_CONTACT             =
*         ADRNR_SD                     =
*         ADRDA                        =
*         ADRND                        =
*         ADRNP                        =
       EXCEPTIONS
         no_valid_parnr               = 1
         no_valid_parnr_today         = 2
         no_authority                 = 3
         parvw_and_nrart_inital       = 4
         OTHERS                       = 5
                  .
        IF sy-subrc <> 0.
*          nichts tun
        ENDIF.
      ENDIF.

      <qmsm>-parnr_text = wa_diadr-name_list.

    ENDLOOP.

- as

Seite 1 von 1

Aktuelle Forenbeiträge

Business Partner Konzept
vor 2 Stunden von msfox 3 / 217
Exception Handling FuBa test
vor 9 Stunden von ichse18577 1 / 40
CDS-Views / AMDP für HCM
vor 12 Stunden von RaCDigger 6 / 316
Kreditlimitprüfung Obligo
vor 17 Stunden von SAP_ENTWICKLER 3 / 163

Unbeantwortete Forenbeiträge

Exception Handling FuBa test
vor 9 Stunden von ichse18577 1 / 40
Verursachervormerkung OCM manuell anlegen
vor 6 Tagen von Aba 1 / 127
Auflösen MILL_OC - Auftragszusammenfassung
vor einer Woche von tofralu 1 / 109
Löschen von archivierten Drucklisten
vor einer Woche von Asaph 1 / 99