Convert Warehouse from WM to EWM Vice Versa.

Function Modules to Convert EWM to WM Vice Versa

Data Delaration: Include LZDIFG_EWMTOP

FUNCTION-POOL zdifg_ewm.                    "MESSAGE-ID ..

DATA: gt_whmap TYPE /scwm/tt_tmapwhnum.

Function: ZDIFM_EWM_TO_WM

FUNCTION zdifm_ewm_to_wm.
*"--------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(IV_WHEWM) TYPE  /SCWM/LGNUM
*"  CHANGING
*"     VALUE(CV_WHWM) TYPE  HUM_LGNUM
*"--------------------------------------------------------------------

  IF gt_whmap[] IS INITIAL.
    SELECT * FROM /scwm/tmapwhnum INTO TABLE gt_whmap.
  ENDIF.

  cv_whwm = VALUE #( gt_whmap[ whnumwme = iv_whewm ]-whnumerp OPTIONAL ).

ENDFUNCTION.

Function: ZDIFM_WM_TO_EWM

FUNCTION zdifm_wm_to_ewm.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(IV_WHWM) TYPE  HUM_LGNUM
*"  CHANGING
*"     VALUE(CV_WHEWM) TYPE  /SCWM/LGNUM
*"----------------------------------------------------------------------

  IF gt_whmap[] IS INITIAL.
    SELECT * FROM /scwm/tmapwhnum INTO TABLE gt_whmap.
  ENDIF.

  cv_whewm = VALUE #( gt_whmap[ whnumerp = iv_whwm ]-whnumerp OPTIONAL ).

ENDFUNCTION.