Code: Alles auswählen.
FORM F09_DOCUMENT_NUMBER_GET CHANGING DOCNUM LIKE EDIDC-DOCNUM.
CALL FUNCTION 'NUMBER_GET_NEXT'
EXPORTING
NR_RANGE_NR = '01'
OBJECT = 'EDIDOC'
IMPORTING
NUMBER = DOCNUM
EXCEPTIONS
INTERVAL_NOT_FOUND = 01
NUMBER_RANGE_NOT_INTERN = 02
OBJECT_NOT_FOUND = 03
QUANTITY_IS_0 = 04.
IF SY-SUBRC NE 0.
MESSAGE A056 RAISING DOCUMENT_NO_KEY.
ENDIF.
ENDFORM.