Code: Alles auswählen.
*------ 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. "196293
* PERFORM EINZELNACHRICHT(RSNAST00) USING RETCO. " 361179
CALL FUNCTION 'WFMC_MESSAGE_SINGLE' " 361179
EXPORTING " 361179
pi_nast = nast " 361179
IMPORTING " 361179
pe_rcode = retco. " 361179
IF xitem-kappl EQ 'EL' AND xitem-objky+10(5) NE '00000'."455903
tmp_ebelp = xitem-objky+10(5).
PERFORM position_entsperren USING
xitem-ebeln
tmp_ebelp.
ELSE.
PERFORM beleg_entsperren USING xitem-ebeln.
ENDIF.