Hi,
I am written my conditions in User exit save_document_prepare
and in that I have given custom error message. After the error I have to correct the
quantity value and then save it.
But when I am trying to change after error mesasage it gives an Abort message
"Item xxxx doesnot exist."
Here is my code pls help me regarding this
DATA : FLAG(2),
FCODE LIKE SY-UCOMM,
FCODE = SY-UCOMM.
IF FLAG <> 'X'.
IF SY-TCODE = 'VA01'.
IF SY-UCOMM = 'SICH' OR SY-UCOMM = 'OPT1'.
DATA: BEGIN OF T_VBAK OCCURS 0,
VBELN LIKE VBAK-VBELN,
VGBEL LIKE VBAK-VGBEL,
AUART LIKE VBAK-AUART,
NETWR LIKE VBAK-NETWR,
END OF T_VBAK.
DATA : BEGIN OF T_VBAP OCCURS 0,
VBELN LIKE VBAP-VBELN,
POSNR LIKE VBAP-POSNR,
ZMENG LIKE VBAP-ZMENG,
KWMENG LIKE VBAP-KWMENG,
END OF T_VBAP.
DATA : BEGIN OF I_VBUK OCCURS 0,
VBELN TYPE VBUK-VBELN,
RFGSK TYPE VBUK-RFGSK,
END OF I_VBUK.
DATA : T_VBAK_RE LIKE T_VBAK OCCURS 0 WITH HEADER LINE,
WA_VBAK TYPE VBAK.
DATA : I_NETWR1 TYPE VBAK-NETWR,
I_NETWR2 TYPE VBAK-NETWR,
I_NETWR3 TYPE VBAK-NETWR.
DATA : L_VBELN TYPE VBAK-VBELN.
SELECT VBELN VGBEL AUART NETWR
FROM VBAK
INTO TABLE T_VBAK.
IF NOT T_VBAK[] IS INITIAL.
SELECT VBELN RFGSK
FROM VBUK
INTO TABLE I_VBUK
FOR ALL ENTRIES IN T_VBAK
WHERE VBELN = T_VBAK-VBELN.
ENDIF.
SORT T_VBAK BY VBELN DESCENDING.
IF NOT T_VBAK[] IS INITIAL.
SELECT VBELN POSNR ZMENG KWMENG
FROM VBAP
INTO TABLE T_VBAP
FOR ALL ENTRIES IN T_VBAK
WHERE VBELN = T_VBAK-VBELN.
ENDIF.
LOOP AT T_VBAK where VGBEL = XVBAK-VGBEL.
IF T_VBAK-AUART = 'TA'.
I_NETWR2 = T_VBAK-NETWR + I_NETWR2.
ENDIF.
ENDLOOP.
LOOP AT T_VBAK WHERE VBELN = XVBAK-VGBEL.
IF T_VBAK-AUART = 'TISC'.
I_NETWR1 = T_VBAK-NETWR.
ENDIF.
ENDLOOP.
I_NETWR3 = I_NETWR1 - I_NETWR2.
WA_VBAK = XVBAK.
LOOP AT XVBAP.
IF SY-SUBRC = 0.
MOVE T_VBAK-VBELN TO XVBAP-VBELN.
MODIFY XVBAP.
ENDIF.
ENDLOOP.
IF FLAG <> 'X'.
IF WA_VBAK-AUART <> 'RE'.
IF WA_VBAK-NETWR > I_NETWR3.
MESSAGE E000(ZMS1) WITH I_NETWR3.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
Thanks in Advance
Ravi
Bluesky
