delete lifnr

[Former Member]

Moderator message: Please use a more meaningful subject in future

hi,

i want to delete lifnr from ibsik if vendor comes again can you suggest me.

loop at ibsik." where budat in s_budat.

read table ibsid with key bukrs = ibsik-bukrs

gsber = ibsik-gsber

xref1 = ibsik-lifnr.

if ibsid-shkzg eq 'H'.

ibsid-dmbtr = ibsid-dmbtr * -1.

endif.

if sy-subrc = 0.

move-corresponding ibsid to ibsid_q.

collect ibsid_q.

clear :ibsik,ibsid_q,ibsid.

endif.

endloop.

Edited by: Matt on Nov 14, 2008 10:25 AM

[Former Member]

Moderator message: Please use a more meaningful subject in future

hi,

i want to delete lifnr from ibsik if vendor comes again can you suggest me.

loop at ibsik." where budat in s_budat.

read table ibsid with key bukrs = ibsik-bukrs

gsber = ibsik-gsber

xref1 = ibsik-lifnr.

if ibsid-shkzg eq 'H'.

ibsid-dmbtr = ibsid-dmbtr * -1.

endif.

if sy-subrc = 0.

move-corresponding ibsid to ibsid_q.

collect ibsid_q.

clear :ibsik,ibsid_q,ibsid.

endif.

endloop.

Edited by: Matt on Nov 14, 2008 10:25 AM

[Former Member]

I hope i understood ur problem.

try this.

If temp_lifnr ne ibsik-lifnr.

read table ibsid with key bukrs = ibsik-bukrs

gsber = ibsik-gsber

xref1 = ibsik-lifnr.

if sy-subrc = 0.

Temp_lifnr = ibsik-lifnr.

if ibsid-shkzg eq 'H'.

ibsid-dmbtr = ibsid-dmbtr * -1.

endif.

move-corresponding ibsid to ibsid_q.

collect ibsid_q.

clear :ibsik,ibsid_q,ibsid.

endif.

endif.

Regards

Neha

[Former Member]

hi

thanks for giving valuble input.

[Former Member]

t