Code: Alles auswählen.
IF p_scanner IS NOT INITIAL.
IF p_scanner(1) = 'V'. " Material
" Erstes Zeichen abschneiden
" Eingabeparameter ist ein Material
v_matnr = p_scanner+1.
ELSE.
IF p_scanner(1) = 'N'.
IF strlen( p_scanner+1 ) = 10.
" Eingabeparameter ist eine Materialbeleg
v_matbel = p_scanner+1.
ENDIF.
ELSE.
" Eingabeparameter ist Unbekannt
IF strlen( p_scanner ) = 10.
"Sehr wahrscheinlich ein Materialbeleg.
IF p_scanner CO '1234567890 '.
v_matbel = p_scanner.
ENDIF.
ENDIF.
" Falls kein Matbeleg, dann wahrscheinlich ein
" Material
IF v_matbel IS INITIAL.
v_matnr = p_scanner.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
Folgende Benutzer bedankten sich beim Autor Thanatos82 für den Beitrag:
dyv