|
METHOD IF_EX_MB_RESERVATION_BADI~DATA_MODIFY .
* Cek apakah SY-UNAME terdaftar sbg staf atau bukan.
IF SY-TCODE = 'MB21' OR SY-TCODE = 'MB22'.
DATA: LV_NON_DISTRICT,
LV_COUNTER TYPE I,
LV_WERKS LIKE CS_RESB-WERKS,
LV_XWAOK LIKE CS_RESB-XWAOK.
FREE LV_COUNTER.
SELECT COUNT( * ) INTO LV_COUNTER
FROM ZTA_WM_JOB_POST
WHERE
STAFF EQ SY-UNAME AND
WERKS EQ CS_RESB-WERKS AND
LGORT EQ CS_RESB-LGORT.
* Jika Staff maka LV_COUNTER > 0
IF LV_COUNTER > 0.
SELECT SINGLE XWAOK INTO LV_XWAOK
FROM RESB
WHERE RSNUM = CS_RESB-RSNUM.
IF LV_XWAOK = 'X' AND SY-TCODE = 'MB22'.
LEAVE TO TRANSACTION 'MB23' AND SKIP FIRST SCREEN.
ELSE.
CS_RESB-XWAOK = ' '.
CS_RESB-KZEAR = 'X'.
ENDIF.
ENDIF.
ENDIF.
*****************************************************************
*Digunakan saat Satuannya menggunakan Satuan Unit of Issue
IF SY-TCODE = 'MB21' AND CS_RESB-BWART = '311' AND CS_RESB-ERFMG IS NOT INITIAL.
DATA : LV_MATNR TYPE MARA-MATNR,
LV_MEINS TYPE MARA-MEINS,
LV_AUSME TYPE MARC-AUSME,
LV_UMREZ TYPE MARM-UMREZ,
LV_UMREN TYPE MARM-UMREN.
BREAK SOL_BINTANG.
SELECT SINGLE MATNR MEINS INTO (LV_MATNR, LV_MEINS)
FROM MARA
WHERE
MATNR = CS_RESB-MATNR AND
MTART IN ('Z1RO', 'Z1VE').
IF sy-subrc = 0.
* SELECT SINGLE MEINS INTO LV_MEINS
* FROM MARA
* WHERE
* MATNR = CS_RESB-MATNR.
SELECT SINGLE AUSME INTO LV_AUSME
FROM MARC
WHERE
MATNR = CS_RESB-MATNR.
* IF LV_MEINS NE LV_AUSME AND LV_MEINS IS NOT INITIAL AND LV_AUSME IS NOT INITIAL.
IF ( LV_MEINS NE CS_RESB-ERFME ) AND ( CS_RESB-ERFME EQ LV_AUSME ).
SELECT SINGLE UMREZ UMREN
INTO (LV_UMREZ, LV_UMREN)
FROM MARM
WHERE
MATNR = CS_RESB-MATNR AND
UMREZ = LV_UMREZ.
CS_RESB-ERFMG = CS_RESB-ERFMG * ( LV_UMREZ * LV_UMREN ).
* CS_RESB-ERFME = LV_MEINS.
ENDIF.
ENDIF.
ENDIF.
*--------------------------------------------------------------------*
ENDMETHOD.
|