Hi Everyone,
I have to Update CO-PA characteristic values , so i used this exit EXIT_SAPLKEAA_001
and in that include ZXKKEU011.
look is it useful for u guys.
*&---------------------------------------------------------------------*
*& Include ZXKKEU11
*&---------------------------------------------------------------------*
TABLES: vbfa ,vbrp.
DATA: ce0_9900 like ce09900.
DATA: v_vbeln like vbfa-vbeln,
v_posnr LIKE vbfa-posnn,
v_batch LIKE vbrp-charg.
CASE i_operating_concern.
WHEN '9900'.
e_exit_is_active = 'X'.
ce0_9900 = i_copa_item.
CASE i_step_id.
WHEN '0001' .
SELECT SINGLE MAX( VBELN ) INTO v_vbeln
FROM Vbfa WHERE VBELV eq ce0_9900-KAUFN
AND POSNV eq ce0_9900-kdpos
AND VBTYP_N eq 'M'.
SELECT SINGLE MAX( POSNN ) INTO v_posnr
FROM vbfa WHERE vbeln = v_vbeln.
SELECT SINGLE CHARG INTO v_batch
FROM vbrp WHERE vbeln eq v_vbeln
AND posnr eq v_posnr.
CASE v_batch+1(1).
WHEN 'A'.
ce0_9900-ww100 = '1005' .
WHEN 'B'.
ce0_9900-ww100 = '1010' .
WHEN 'C'.
ce0_9900-ww100 = '1015' .
WHEN 'D'.
ce0_9900-ww100 = '1020' .
WHEN 'E'.
ce0_9900-ww100 = '1025' .
ENDCASE.
e_copa_item = ce0_9900.
ENDCASE.
ENDCASE.