Restricting the po line item to max 3 line items-----BAdi

Question

Hi below is the code I am trying however incase for eg i put line item no 10 20 and 30 . it gives an error since the line item is grater then 3, so i delete line item 30 and it works fine, but incase if i delete line item 20, then the error still persists ( a red ball next to item no 30 in the P.O line item. and so i am not able to save the P.O) How to rectify this what kind of coding is required
method if_ex_me_process_po_cust~process_item .
data: ls_mepoitem type mepoitem,
ls_customer type mepo_badi_exampl,
ls_tbsg type tbsg.
include mm_messages_mac. "useful macros for message handling
here we check customers data
DATA:wl_mepoitem TYPE mepoitem.
**declaration of work area. t_itab is in public section.
DATA : BEGIN OF wa_itab,
ebelp TYPE mepoitem-ebelp,
loekz TYPE mepoitem-loekz,
END OF wa_itab.
ls_mepoitem = im_item->get_data( ).
wl_mepoitem = im_item->get_data( ).
wa_itab-ebelp = wl_mepoitem-ebelp.
wa_itab-loekz = wl_mepoitem-loekz.
IF wl_mepoitem-loekz NE 'D'.
APPEND wa_itab TO t_itab.
ENDIF.
SORT t_itab .
***to delete those items whose entries have been made while EDITING a line item.
DELETE ADJACENT DUPLICATES FROM t_itab .
**to delete those items whose entries have been made while DELETING a line item.
IF wl_mepoitem-loekz EQ 'D'.
LOOP AT t_itab INTO wa_itab .
IF wa_itab-ebelp = wl_mepoitem-ebelp.
DELETE t_itab.
ENDIF.
ENDLOOP.
ENDIF.
counter = 0.
***Counting final no of lines in t_itab after removing the deleted and re-edited entries.
DATA: lines1(2). " type c.
DESCRIBE TABLE t_itab LINES lines1 ."from wa_itab .
*lines = t_itab-lines.
IF lines1 GE 3.
MESSAGE: 'No. Of items is greater than 3...STOP !!' TYPE 'A'.
endif.
Message was edited by:
anu c
Message was edited by:
anu c

Answer 1

Hi ,
RED Ball means----> Some kind of errors in that Line Item , try to double click on that errror log , then u will come to know.
as per my knowledge  ur code is ok.
Regards
Prabhu