Code: Alles auswählen.
FORM PARTNER_DETAILS1 TABLES IHPAD_LOC STRUCTURE IHPAD.
DATA lv_nrart type nrart.
LOOP AT IHPAD_LOC.
IHPAD = IHPAD_LOC.
CALL FUNCTION 'PM_PARTNER_ROLL_TEXT'
EXPORTING
PARVW = 'AG'
LANGUAGE = PRINT_LANGUAGE
IMPORTING
VTEXT = IHPAD-VTEXT.
SELECT SINGLE nrart FROM tpar INTO lv_nrart
WHERE parvw EQ ihpad-PARVW.
IF sy-SUBRC EQ 0
AND lv_nrart EQ 'PE'.
IF ihpad-name2 IS NOT INITIAL.
MOVE ihpad-name2 TO ihpad-name1.
CLEAR ihpad-name2.
CLEAR ihpad-name3.
endif.
endif.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'PARTNER_INFO'
WINDOW = 'AUGGEB'. "'MAIN'.
ENDLOOP.
ENDFORM.