Skip to Content
0
Former Member
Nov 26, 2006 at 09:08 AM

will this code work

29 Views

Types : begin of ts_ordsent,

Ordnr type ztsd2marc,

Kunnr type vbpa-kunnr,

Matnr type vbap-matnr,

Kwmeng type vbap-kwmeng,

Edatu type vbep-edatu,

Vbeln type vbak-vbeln,

End of ts_ordsent,

Tt_ordsent type table of ts_ordsent.

Types :begin of ts_ship,

Vbenl type vbak-vbeln,

Kunnr type vbpa-kunnr,

End of ts_ship,

Tt_ship type standard table of ts_ship.

Types :begin of ts_material,

Vbenl type vbak-vbeln,

matnr type vbap-matnr,

kwmeng type vbap-kwmeng,

End of ts_material,

Tt_material type standard table of ts_material.

Types :begin of ts_ddate,

Vbenl type vbak-vbeln,

edatu type vbep-edatu,

End of ts_ddate,

Tt_ddate type standard table of ts_ddate.

Types :begin of ts_order,

Vbenl type vbak-vbeln,

vkorg type vbak-vkorg,

End of ts_order,

Tt_order type standard table of ts_order.

Data : ls_ordsent type ts_ordsent,

Ls_ship type ts_ship,

Ls_material type ts_material,

Ls_ddate type ts_ddate,

Ls_order type ls_order,

lt_ordsent type tt_ordsent,

Lt_ship type tt_ship,

Lt_material type tt_material,

Lt_ddate type tt_ddate,

Lt_order type lt_order.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.

PARAMETERS: pa_sotg type vbak-vkorg,

Pa_dpln type vbap-werks.

Select-options : so_shpt for vbpa-kunnr,

So_ddat for vbep-edatu.

SELECTION-SCREEN END OF BLOCK b2.

Select ordnr from ztsd2marc

Into corresponding fields of table lt_ordsent.

Select vbeln kunnr from vbpa

Into corresponding fields of table lt_ship

For all entries in lt_ordsent

Where kunnr in so_shpt.

Select vbeln matnr kwmeng from vbap

Into corresponding fields of table lt_material

For all entries in lt_ordsent

Where werks = pa_dpln.

Select vbeln edatu from vbep

Into corresponding fields of table lt_ddate

For all entries in lt_ordsent

Where edatu in so_ddat.

Select vbeln vkorg from vbak

Into corresponding fields of table lt_order

For all entries in lt_ordsent

Where .vkorg = pa_sorg.

Loop at lt_ordsent into ls_ordsent.

Read table lt_ship into ls_ship with key vbeln = ls_ordsent-ordnr.

Check sy-subrc eq 0.

Move ls_ship-kunnr to ls_ordsent-kunnr.

Modify lt_ordsent from ls_ordsent.

Endloop.

Loop at lt_ordsent into ls_ordsent.

Read table lt_material into ls_material with key vbeln = ls_ordsent-ordnr.

Check sy-subrc eq 0.

Move ls_material-matnr to ls_ordsent-matnr.

Move ls_material-kwmeng to ls_ordsent-kwmeng.

Modify lt_ordsent from ls_ordsent.

Endloop.

Loop at lt_ordsent into ls_ordsent.

Read table lt_ddate into ls_ddate with key vbeln = ls_ordsent-ordnr.

Check sy-subrc eq 0.

Move ls_ddate-edatu to ls_ordsent-edatu.

Modify lt_ordsent from ls_ordsent.

Endloop.

Loop at lt_ordsent into ls_ordsent.

Read table lt_order into ls_order with key vbeln = ls_ordsent-ordnr.

Check sy-subrc eq 0.

Move ls_order-vbeln to ls_ordsent-vbeln.

Modify lt_ordsent from ls_ordsent.

Endloop.

then display it in avl format.