Hi Everyone,
For the enhancement V56AFCCH EXIT_SAPMV56A_001 Shipment processing: Check function code
following code is written in INCLUDE ZXV56U18.
The include program ZXV56U18 contains the logic for populating the fields VBPA-PARVW_SP and LIKP-ROUTE to the respective fields of VTTK table i.e. VTTK-TDLNR and VTTK-ROUTE.
In VT01N transaction these 2 fields should get populate..so following logic is written in user exit..
But it is not working so please make the necessary correction.
DATA: BEGIN OF ILIKP OCCURS 0,
ROUTE LIKE LIKP-ROUTE,
VBELN LIKE LIKP-VBELN,
END OF ILIKP.
DATA: BEGIN OF IVBPA OCCURS 0,
PARVW LIKE VBPA-PARVW,
VBELN LIKE VBPA-VBELN,
END OF IVBPA.
DATA: BEGIN OF I_XVTTK_TAB OCCURS 0,
ROUTE LIKE VTTK-ROUTE,
TDLNR LIKE VTTK-TDLNR,
END OF I_XVTTK_TAB.
SELECT VBELN ROUTE INTO TABLE ILIKP FROM LIKP
WHERE VBELN = I_xvttp_wa-VBELN.
SELECT VBELN PARVW INTO TABLE IVBPA FROM VBPA
WHERE VBELN = I_xvttp_wa-VBELN AND
POSNO = 0 AND
( PARVW = 'SP' OR PARVW = 'AG' ).
LOOP AT I_XVTTK_TAB.
READ TABLE I_XVTTK_TAB WITH KEY VBELN = I_xvttp_wa-VBELN.
IF SY-SUBRC = 0
MOVE ILIKP-ROUTE TO I_XVTTK_TAB-ROUTE.
MOVE IVBPA-PARVW TO I_XVTTK_TAB-TDLNR.
MODIFY I_XVTTK_TAB.
ENDIF.
ENDLOOP.
UPDATE VTTK FROM TABLE I_XVTTK_TAB.
Points will be rewarded.
Thanks
Sonal.
Bluesky
