05-16-2011 2:24 PM
Hello gurus,
if i have a sub class of a material , how to find the superclass of it?
Regards
S.Janagar
05-16-2011 2:32 PM
05-16-2011 3:01 PM
06-22-2011 10:56 AM
06-22-2011 11:30 AM
Solved in this way
*"----------------------------------------------------------------------
*"*"Local Interface:
*" IMPORTING
*" VALUE(SUBCLASS) TYPE KLSCHL
*" EXPORTING
*" VALUE(CLASS) TYPE KLASSE_D
*" TABLES
*" RETURN STRUCTURE BAPIRET2 OPTIONAL
*"----------------------------------------------------------------------
DATA: lv_clint TYPE clint,
lv_clint1 TYPE clint.
CLEAR: lv_clint,lv_clint1,class.
FREE: return.
SELECT SINGLE clint
FROM swor
INTO lv_clint
WHERE kschl = subclass.
IF lv_clint IS NOT INITIAL.
SELECT DISTINCT clint FROM kssk
INTO lv_clint1
WHERE objek = lv_clint.
ENDSELECT.
IF lv_clint1 IS NOT INITIAL.
SELECT SINGLE class
FROM klah
INTO class
WHERE clint = lv_clint1.
ENDIF.
ELSE.
CONCATENATE subclass 'Subclass not found' INTO return-message SEPARATED BY space.
APPEND return.
CLEAR return.
ENDIF.
ENDFUNCTION.