TABLES: eina,eine,a017,konh,konp.

DATA:
	it_eina_provenienza type table eina,
	it_eine_provenienza type table eine,
	it_a017_provenienza type table a017,
	it_konh_provenienza type table konh,
	it_konp_provenienza type table konp,
	wa_eina_provenienza type eina,
	wa_eine_provenienza type eine,
	wa_a017_provenienza type a017,
	wa_konh_provenienza type konh,
	wa_konp_provenienza type konp,
	lv_infnr type eine-infnr,
	lv_knumh type konp-knumh,
	old_knumh type konp-knumh.


select * from eina into table it_eina_provenienza where lifnr = provenienza.

select max ( infnr ) from eina into lv_infnr.

select max ( knumh ) from a017 into lv_knumh.

loop at it_eina_provenienza into wa_eina_provenienza.
	lv_infnr = lv_infnr + 1.
	wa_eina_provenienza-infnr = lv_infnr.
	wa_eina_provenienza-lifnr = destinazione.
	modify it_eina_provenienza from wa_eina index sy-tabix.

	select * from eine into table it_eine_provenienza where lifnr = provenienza.
	wa_eine_provenienza-infnr = lv_infnr.
	modify it_eine_provenienza from wa_eine index 1.

	SELECT * from a017 into table it_a017 where kschl = 'pb00' and lifnr = provenienza.
	loop at it_a017 into wa_a017.
		wa_a017-knumh = old_knumh.
		lv_knumh = lv_knumh + 1.
		wa_a017-lifnr = lv_lfnr.
		wa_a017-knumh = lv_knumh.
		modify it_a017 from wa_a017 index sy-tabix.

		select * from konh into it_konh_provenienza where knumh = old_knumh.
		wa_konh_provenienza-knumh = lv_knumh.
		modify it_konh_provenienza from wa_konh index 1.
		select * from konp into it_konp_provenienza where knumh = old_knumh.
		loop at it_konp_provenienza into wa_konp_provenienza.
			wa_konp_provenienza-knumh = lv_knumh.
			modify it_konp_provenienza from wa_konp index sy-tabix.
		endloop.
	endloop.
endloop.