SD_Material_Determination

Question

Hi
I tried this code in SE38, but it's giving
REPORT  ZSA.
TABLES : QMEL, VBAP.
DATA: L_BVBPAKOM           LIKE BVBPAKOM OCCURS 2 WITH HEADER LINE.
DATA: L_KONDDP_EXT         LIKE KONDDP_EXT_SERVICE
                                           OCCURS 2 WITH HEADER LINE.
DATA: L_BVBAKKOM           LIKE BVBAKKOM.
DATA: L_MATNR              LIKE QMEL-MATNR.
DATA: L_TVSU               LIKE TVSU.
Move '000000000100003676' to VBAP-MATNR.
CALL FUNCTION 'SD_MATERIAL_DETERMINATION'
           EXPORTING
              I_KALSU    =
                I_MATNR    = vbap-matnr
               I_DATUM    =
              I_VWPOS    =
              I_POSNR_HP =
              I_ARKTX    =
                I_BVBAKKOM = L_BVBAKKOM
           IMPORTING
                E_MATNR    = L_MATNR
              E_ARKTX    =
                E_TVSU     = L_TVSU
           TABLES
                I_BVBPAKOM = L_BVBPAKOM
                E_KONDDP_SERVICE = L_KONDDP_EXT
           EXCEPTIONS
                CALL_ERROR    = 1
                ERROR_MESSAGE = 2
                OTHERS        = 3.
write : / L_MATNR.
But it's not giving any output. help please.......
-subha

Answer 1

Hi Subhashini,
Use this Pseudo code:
Select Single KNUMH  from KOTD001 into V_KNUMH
                 where matwa = matnr(your material).
IF sy-subrc = 0.
Substitution found.
Else.
*--Check next table . Please check
Select Single KNUMH  from KOTD002 into V_KNUMH
                 where matwa = matnr(your material)
                 and  VKORG = Sales org
                 AND VTWEG = DIST, CHANNEL
if sy-subrc = 0.
substitution found.
else.
*--next table
Select Single KNUMH  from KOTD011 into V_KNUMH
                 where matwa = matnr(your material)
                 and  VKORG = Sales org .
AND SO ON..
I don't know how many determination tables used in you config..
Lanka
KOTD002
KOTD011
KOTD502
You can check your material against these tables based on MATWA = your material VKORG = Sales ORG for a valid dates.
If you find any entry means you have substitution for that mayerial. The use KOTD**-KNUMH and read table "KONDDP".