Invoices duplicated

Question

Hi;
The code below is a copy of the one that works ok, this code makes duplicates of an invoice.
This code is added here: VOFM...data transfer -> billing document, here i´ve created a new record where i added the code below.
Any help to avoid duplicated invoices.
What the SD consultor whants is that the records with amount = zero don´t be passed to the invoice, so it won´t be displayed.
Any Help.
Thanks on advance.
FORM DATEN_KOPIEREN_600.
*{   INSERT         DESK903967                                        1
Header data
VBRK-xxxxx = ............
Item data
VBRP-xxxxx = ............
Additional split criteria
   DATA: BEGIN OF ZUK,
           MODUL(3) VALUE '001',
           VTWEG LIKE VBAK-VTWEG,
           SPART LIKE VBAK-SPART,
           ABTNR LIKE LIPS-ABTNR,
           EMPST LIKE LIPS-EMPST,
         END OF ZUK.
if lips-lfimg > 0.
   ZUK-SPART = VBAK-SPART.
   ZUK-VTWEG = VBAK-VTWEG.
   ZUK-ABTNR = LIPS-ABTNR.
   ZUK-EMPST = LIPS-EMPST.
   VBRK-ZUKRI = ZUK.
endif.
*}   INSERT
ENDFORM.

Answer 1

I am not sure what exactly you are trying to achieve.
check the item field : VBRP-NETWR > 0 & delete other line items etc...