Funktionsbaustein zum Drucken von Bestellungen

Code: Alles auswählen.

    WHEN '9AUS'.                       "Nachrichten ausgeben
      LOOP AT xitem WHERE box = 'X'.
        IF xitem-vstat NE '0'.
          CLEAR xitem-box.
          MODIFY xitem.
          MESSAGE s845 WITH space xitem-datvr xitem-uhrvr.
          EXIT.                        "continue.
        ENDIF.
        CLEAR xitem-box.
        IF xitem-kappl EQ 'EL' AND xitem-objky+10(5) NE '00000'.
          tmp_ebelp = xitem-objky+10(5).
          PERFORM position_sperren USING
                                   xitem-ebeln
                                   tmp_ebelp
                                   flag1.
        ELSE.
          PERFORM beleg_sperren USING xitem-ebeln flag1.
        ENDIF.
        IF NOT flag1 IS INITIAL.
          MODIFY xitem.
          CHECK 1 = 2.                                    
        ENDIF.
*------ Nast nachlesen und übernehmen
        MOVE-CORRESPONDING xitem TO nast.
        SELECT SINGLE * FROM  nast
           WHERE  kappl       = nast-kappl
           AND    objky       = nast-objky
           AND    kschl       = nast-kschl
           AND    spras       = nast-spras
           AND    parnr       = nast-parnr
           AND    parvw       = nast-parvw
           AND    erdat       = nast-erdat
           AND    eruhr       = nast-eruhr.
        IF sy-subrc EQ 0.
          MOVE-CORRESPONDING nast TO xitem.
          IF nast-vstat NE '0'.
            xitem-symbol = gf_icon_checked.
            MODIFY xitem.
            MESSAGE s845 WITH space xitem-datvr xitem-uhrvr.
            EXIT.                      "message w175(me).
          ENDIF.
        ENDIF.
*       move-corresponding xitem to nast.
        CLEAR nast-sndex.                                   

        CALL FUNCTION 'WFMC_MESSAGE_SINGLE'                 
          EXPORTING                                       
            pi_nast        = nast                           
          IMPORTING                                        
            pe_rcode       = retco.                         
        IF xitem-kappl EQ 'EL' AND xitem-objky+10(5) NE '00000'.
          tmp_ebelp = xitem-objky+10(5).
          PERFORM position_entsperren USING
                                   xitem-ebeln
                                   tmp_ebelp.
        ELSE.
          PERFORM beleg_entsperren USING xitem-ebeln.
        ENDIF.
        IF retco EQ 0 OR retco EQ 2.
          xitem-vstat = '1'.
          xitem-datvr = nast-datvr.
          xitem-uhrvr = nast-uhrvr.
          xitem-symbol = gf_icon_checked.
        ELSEIF retco NE 3.
          xitem-vstat = '2'.
          xitem-symbol = gf_icon_incomplete.
        ENDIF.
        MODIFY xitem.
      ENDLOOP.
      COMMIT WORK.