Auftraggeber auf Formular drucken

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.