Coding logic

Question

Hi,
   In my program have written a code such that it fetches all the document numbers based on the company code and posting date.See based on this condition in a table it may contain N number of document numbers and each document number may have N number of line items.In my logic have to write the code such that if a document number consists of line items more than 10 then those document number has to be deleted.In my code have identified the document number based on the condition but dunno to write the logic to delete the document number if it has more line items.
the code is
LOOP AT gt_bsik.
        AT NEW lifnr.
          READ TABLE gt_lfb1 WITH KEY lifnr = gt_bsik-lifnr BINARY
          SEARCH.
          CLEAR lt_vendors.
          lt_vendors-lifnr = gt_lfb1-lifnr.
        ENDAT.
        AT NEW belnr.
          gv_new_invoice_ind = 'X'.
          gt_bsik_copy-lifnr = gt_bsik-lifnr.
          gt_bsik_copy-belnr = gt_bsik-belnr.
          gt_bsik_copy-gjahr = gt_bsik-gjahr.
          gt_bsik_copy-buzei = gt_bsik-buzei.
          gv_count = gv_count + gt_bsik-buzei .
        ENDAT.
        IF gv_new_invoice_ind = 'X'.
          ADD 1 TO lt_vendors-count.
        ENDIF.
        gv_new_invoice_ind = space.
        AT END OF lifnr.
          APPEND lt_vendors.
          APPEND gt_bsik_copy.
        ENDAT.
        IF gv_count > 10.
*          DELETE gt_bsik where lifnr =
*gt_bsik_copy-lifnr and belnr = gt_bsik_copy-belnr and
*gjahr = gt_bsik_copy-gjahr  .
          DELETE gt_bsik WHERE lifnr =
gt_bsik_copy-lifnr  .
        ENDIF.
      ENDLOOP.
    ENDIF.
gt_bsik is the internal table.
Please help me to write the logic.The above mentioned logic is not workin
Edited by: Julius Bussche on Feb 2, 2009 4:47 PM
Please use code tags and meaningfull subject titles

Answer 1

HI
Before the loop statement take a copy the internal table into another internal table of the same type.
gt_bsik_2[] = gt_bsik[]
sort gt_bsek_2 by BUKRS GJAHR BELNR BUZEI descending.
LOOP AT gt_bsik.
read table gt_bsek_2 with key bukrs = gt_bsik-belnr
                                              gjahr = gt_bsik-gjahr
                                              belnr = gt_bsik-belnr.
if sy-subrc eq 0.
  if gt_bsik_2-buzei > 10.
    delete gt_bsik_2 where        bukrs = gt_bsik-belnr and
                                              gjahr = gt_bsik-gjahr  and
                                              belnr = gt_bsik-belnr.
endif.
endif.
endloop.
after the endloop  table gt_bsik_2 will will  have only document numbers which have line items less than 10.
Hope the above code helps you