Solved: retrive open order and open delivery value x custo...

Former Member · ‎10-03-2007

Hi,

how can i obtain a list of open order value and open delivery value per customer?

10x

bye

Former Member · ‎10-04-2007

Try Vl10G for open orders and VL06O for open deliveries for a customer.

Apart frm that there are info structures S066 and S067 for open orders and open deliveries for a customer respectively.......

Pls reward if helpful

Noopur

Former Member · ‎10-04-2007

Check the following code which give details of pending orders & values and it can be modified as per ur requirement.

REPORT ZPEND_ORDER no standard page heading line-size 255.

&----

*& Purpose : Details of Sale order having pending deliveries *

*& ( For Rake order handling ) *

&----

tables : vbak, vbap, likp, lips, kna1, vbuk, vbpa, vepvg, vbfa, vbup.

data : pend_qty like vbap-kwmeng,

dlv_qty like vbap-kwmeng,

ord_qty like vbap-kwmeng.

data: begin of itab_vbak occurs 0,

vbeln like vbak-vbeln, "sales order no

audat like vbak-audat, " created date

auart like vbak-auart, " Sales Document Type

vkorg like vbak-vkorg, "Sales Organization

vtweg like vbak-vtweg, " distribution channel

spart like vbak-spart, " Division

vkgrp like vbak-vkgrp, " Sales group

vkbur like vbak-vkbur, " Sales office

kunnr like vbak-kunnr, " sold to party

kunag like vbak-kunnr, " ship to party

cust like vbak-kunnr, " sold to party

ship like kna1-name1, " ship to party

city like kna1-ort01, " ship to party location

deliv like likp-vbeln, " delivery

matnr like vbap-matnr,

arktx like vbap-arktx, " mat description

kwmeng like vbap-kwmeng,

kbmeng like vbap-kbmeng,

fkrel like vbap-matnr,

vstel like vbap-vstel,

route like vbap-route,

chln_no like likp-xabln,

grn_no like likp-bolnr,

truck_no like likp-traid,

dlv_dt like vbfa-erdat, "dlvy date

ord_qty like vbap-kwmeng,

dlvd_qty like vbap-kwmeng,

pend_qty like vbap-kwmeng,

kzwi5 like vbap-kzwi5,

posnr like vbap-posnr,

end of itab_vbak.

data posnr like vbap-posnr.

*FOR ALV DISPLAY

type-pools: slis.

constants: formname_top_of_page type slis_formname value 'TOP_OF_PAGE'.

*Data Decelararion for alv display

data: i_fieldtab type slis_t_fieldcat_alv,

i_heading type slis_t_listheader,

i_layout type slis_layout_alv,

i_sort type slis_t_sortinfo_alv,

i_print type slis_print_alv,

i_events type slis_t_event,

i_repname like sy-repid,

f2code like sy-ucomm value '&ETA',

i_save(1) type c,

i_exit(1) type c,

i_variant like disvariant,

h_text(50).

start-of-selection.

selection-screen skip 1.

selection-screen begin of block v1 with frame title text-001.

selection-screen skip 1.

select-options:

ord_no for vepvg-vbeln,

audat for vbak-audat obligatory,

matnr for vbap-matnr,

spart for vbap-spart obligatory,

vstel for vepvg-vstel obligatory,

sale_org for vbak-vkorg obligatory,

sale_off for vbak-vkbur.

selection-screen skip 1.

check box for ALV display

parameters p_alv as checkbox.

selection-screen end of block v1.

selection-screen skip 1.

data: ftab(72) occurs 5 with header line.

refresh ftab.

ftab = 'VBELN'. append ftab.

refresh itab_vbak.

initialization.

i_repname = sy-repid.

start-of-selection.

select vbeln audat vkorg vtweg spart vkbur kunnr from vbak

into

(itab_vbak-vbeln, itab_vbak-audat,

vbak-vkorg, vbak-vtweg, vbak-spart,

itab_vbak-vkbur, itab_vbak-kunnr)

where vbeln in ord_no

and audat in audat

and vbtyp = 'C'

and vkorg in sale_org

and spart in spart

and vkbur in sale_off.

if sy-subrc = 0.

select posnr kwmeng kbmeng matnr arktx "added for mat description

fkrel vstel route kzwi5 spart

from vbap into corresponding fields of itab_vbak

where vbeln = itab_vbak-vbeln .

check ( itab_vbak-fkrel = 'A' or "Delivery-related billing document

itab_vbak-fkrel = 'D' ) "Relevant for pro forma

and itab_vbak-vstel in vstel

and itab_vbak-matnr in matnr

and itab_vbak-spart in spart.

select single * from vbup where vbeln = itab_vbak-vbeln

and posnr = itab_vbak-posnr.

check vbup-gbsta ne 'C'.

dlv_qty = 0.

select single kunnr from vbpa into itab_vbak-kunnr

where vbeln = itab_vbak-vbeln

and parvw = 'WE'.

select single name1 ort01 from kna1 into

(itab_vbak-cust, itab_vbak-city)

where kunnr = itab_vbak-kunnr.

in case of partially processed sale order get delivery details

clear : dlv_qty, itab_vbak-dlv_dt, itab_vbak-dlvd_qty, itab_vbak-chln_no,

itab_vbak-grn_no, itab_vbak-truck_no.

if vbup-gbsta eq 'B'. "partially processed

dlv_qty = 0.

get details from delivery

select vbfa_{vbeln vbfa}rfmng vbfa_{vbtyp_n vbfa}erdat

into (vbfa-vbeln, vbfa-rfmng, vbfa-vbtyp_n, vbfa-erdat)

from vbfa

where vbelv = itab_vbak-vbeln

and posnv = itab_vbak-posnr.

check vbfa-vbtyp_n = 'J'.

clear : dlv_qty, itab_vbak-dlv_dt, itab_vbak-dlvd_qty, itab_vbak-chln_no,

itab_vbak-grn_no, itab_vbak-truck_no.

select single erdat xabln bolnr traid kunag

into (itab_vbak-dlv_dt, itab_vbak-chln_no, itab_vbak-grn_no,

itab_vbak-truck_no, itab_vbak-kunag)

from likp

where vbeln = vbfa-vbeln.

if sy-subrc = 0.

dlv_qty = dlv_qty + vbfa-rfmng.

itab_vbak-dlv_dt = vbfa-erdat.

itab_vbak-dlvd_qty = dlv_qty.

itab_vbak-deliv = vbfa-vbeln.

endif.

append itab_vbak.

endselect.

elseif vbup-gbsta eq 'A'.

for unprocessed sale order
ship to party details

itab_vbak-kunag = itab_vbak-kunnr.

itab_vbak-ship = itab_vbak-cust.

append itab_vbak.

endif.

endselect.

endif.

clear itab_vbak.

endselect.

loop at itab_vbak.

clear with change in document / item no

on change of itab_vbak-vbeln or itab_vbak-posnr.

clear: dlv_qty,ord_qty,pend_qty.

endon.

at new posnr.

In case full qty not delivered

if itab_vbak-kwmeng > itab_vbak-dlvd_qty.

select single vbpa~kunnr into vbpa-kunnr

from vbpa

where vbeln = itab_vbak-vbeln

and posnr = itab_vbak-posnr

and parvw = 'WE'.

if sy-subrc eq 0.

itab_vbak-kunag = vbpa-kunnr.

select single name1 ort01 from kna1 into

(itab_vbak-ship, itab_vbak-city)

where kunnr = itab_vbak-kunag.

if sy-subrc ne 0.

select single vbpa~kunnr into vbpa-kunnr

from vbpa

where vbeln = itab_vbak-vbeln

and parvw = 'WE'.

itab_vbak-kunag = vbpa-kunnr.

if sy-subrc ne 0 and p_alv ne 'X'.

write 😕 'vbpadetls' , itab_vbak-vbeln, itab_vbak-posnr, itab_vbak-vbeln.

endif.

itab_vbak-ord_qty = itab_vbak-kwmeng.

Delivered Qty & Pending qty

dlv_qty = dlv_qty + itab_vbak-dlvd_qty.

itab_vbak-pend_qty = itab_vbak-kwmeng - dlv_qty.

modify itab_vbak transporting kunag ship city dlvd_qty ord_qty pend_qty .

endat.

endloop.

end-of-selection.

sort itab_vbak by vbeln posnr audat kunnr matnr.

if p_alv ne 'X'.

loop at itab_vbak.

select single kna1_{name1 kna1}ort01

into

(kna1-name1, kna1-ort01)

from kna1

where kunnr = itab_vbak-kunnr.

pend_qty = itab_vbak-ord_qty - itab_vbak-dlvd_qty.

format color col_normal.

write : /01(10) itab_vbak-vbeln,

12(10) itab_vbak-audat,

24(8) itab_vbak-kunag no-zero,

34(6) itab_vbak-posnr no-zero,

42(10) itab_vbak-matnr no-zero,

54(15) itab_vbak-arktx,

72(25) itab_vbak-ship,

100(15) itab_vbak-city,

118(8) itab_vbak-ord_qty,

128(10) itab_vbak-route,

140(10) itab_vbak-dlv_dt,

152(10) itab_vbak-dlvd_qty,

164(10) itab_vbak-chln_no,

176(10) itab_vbak-grn_no,

188(10) itab_vbak-truck_no,

200(10) itab_vbak-pend_qty,

218(15) itab_vbak-kzwi5 left-justified.

format reset.

at end of audat.

sum.

pend_qty = itab_vbak-ord_qty - itab_vbak-dlvd_qty.

format color col_background.

write: /118(8) itab_vbak-ord_qty,

152(10) itab_vbak-dlvd_qty,

200(10) pend_qty,

218 itab_vbak-kzwi5 left-justified.

format reset.

endat.

at last.

sum.

pend_qty = itab_vbak-ord_qty - itab_vbak-dlvd_qty.

format color col_total.

write : /5 'Grand Total : '.

write: /118(8) itab_vbak-ord_qty,

152(10) itab_vbak-dlvd_qty,

200(10) pend_qty,

218 itab_vbak-kzwi5 left-justified.

format reset.

endat.

endloop.

else.

for ALV Display

i_repname = sy-repid.

perform fieldcat using i_fieldtab[].

perform eventtab using i_events[].

perform comment using i_heading[].

perform call_alv.

perform build_layout using i_layout.

endif.

top-of-page.

if p_alv ne 'X'.

format color col_heading.

write: /01 'Ord No',

12 'Ord Date',

24 'Sold to Party',

34 'Item No',

42 'Mat No',

54 'Mat Descp',

72 'Ship to Party',

100 'City',

118 'Qty',

128 'Route',

140 'Dlv Date',

152 'Dlv Qty',

164 'Challan No',

176 'GRN No',

188 'Truck No',

200 'Pend Qty',

218 'Total Value'.

format reset.

endif.

&----

*& Form fieldcat

&----

text

----

-->P_I_FIELDTAB[] text

----

form fieldcat using p_fieldtab type slis_t_fieldcat_alv.

data: l_fieldcat type slis_fieldcat_alv.

clear l_fieldcat.

l_fieldcat-tabname = 'ITAB_VBAK'.

l_fieldcat-fix_column = 'X'.

l_fieldcat-no_out = ' '.

l_fieldcat-fieldname = 'VKBUR'.

l_fieldcat-outputlen = 6.

l_fieldcat-seltext_l = 'Sales Office'.

l_fieldcat-no_zero = 'X'.