open order report

Former Member — Fri, 29 Jun 2007 09:53:20 GMT

hi, i have a requirement to develop open order report.

list output should consists of

customer name (kna1-name1)

product hierarcy (vbrp-prodh)

customer PO Num (vbkd-bstkd)

sales order num (vbak-vbeln)

material num (vbap-matnr)

vbap-mvgr4

vbap-mvgr3

open quantity (vbap-kwmeng -- lips-lfimg)

open value (vbap-netwr -- lips-netwr)

selection parameters are

vbak-erdat

vbrk-vkorg

vbrk-vtweg

vbrp-spart

vbak-kunnr

vbak-bstnk

can any one send me the select statements for this.

if it is program very much helpful.

points assured.

Message was edited by:

malleswara gupta tadepalli

Re: open order report

Former Member — Fri, 29 Jun 2007 10:35:11 GMT

i will give u the flow and u try 2 write pgm by urself. this will help u think n grow in knowledge as well.

select the sales orders, kunnr based on vbak-erdat, vbak-kunnr, vbak-bstnk

for all entries of above->

select sales order items data, netwr, kwmeng, matnr, mvgr3, mvgr4.

for all entries of items itab->

select bstkd and any other u need

for all entries of sales orders item data->

select respective delivery item data like:

netwr, lfimg etc if any u need.

for all entries of sales order header->

select name1 for each customer

after all this:

u calculate the difference in quantities from sales order & delevery itabs for each item. populate this is a new field in ur final itab.

and thus dispaly all

hope u got it

let me know if u need any more.

Thanks

Kiran

Re: open order report

Former Member — Fri, 29 Jun 2007 10:44:33 GMT

hi,

this might healp you out

&----

*& Report YMP_ALV_BLOCK *

*& *

&----

*& *

&----

REPORT YMP_ALV_BLOCK .

TABLES--

TABLES : VBAK,VBAP,MARA.

TYPE-POOLS : SLIS,ICON.

SELECT-OPTIONS : S_VBELN FOR VBAK-VBELN,

S_VBELN1 FOR VBAP-VBELN,

S_MATNR FOR MARA-MATNR.

STRUCTURE DECALRATION--

TYPES : BEGIN OF TY_VBAK,

VBELN TYPE VBELN_VA,

ERDAT TYPE ERDAT,

ERZET TYPE ERZET,

ERNAM TYPE ERNAM,

END OF TY_VBAK.

TYPES : BEGIN OF TY_VBAP,

VBELN TYPE VBELN_VA,

POSNR TYPE POSNR_VA,

MATNR TYPE MATNR,

MATWA TYPE MATWA,

END OF TY_VBAP.

TYPES : BEGIN OF TY_MARA,

MATNR TYPE MATNR,

MTART TYPE MTART,

MBRSH TYPE MBRSH,

MATKL TYPE MATKL,

ANY(4) ,

END OF TY_MARA.

TYPES : TT_VBAK TYPE STANDARD TABLE OF TY_VBAK,

TT_VBAP TYPE STANDARD TABLE OF TY_VBAP,

TT_MARA TYPE STANDARD TABLE OF TY_MARA.

DATA : IT_VBAK TYPE TT_VBAK WITH HEADER LINE,

IT_VBAP TYPE TT_VBAP WITH HEADER LINE,

IT_MARA TYPE TT_MARA WITH HEADER LINE.

DATA : FCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,

FCAT1 TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,

FCAT2 TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,

LAYOUT TYPE SLIS_LAYOUT_ALV,

LAYOUT1 TYPE SLIS_LAYOUT_ALV,

LAYOUT2 TYPE SLIS_LAYOUT_ALV,

EVENTS TYPE SLIS_T_EVENT.

START OF SELECTION--

START-OF-SELECTION.

SELECT VBELN

ERDAT

ERZET

ERNAM

FROM VBAK

INTO TABLE IT_VBAK

WHERE VBELN IN S_VBELN.

SELECT VBELN

POSNR

MATNR

MATWA

FROM VBAP

INTO TABLE IT_VBAP

WHERE VBELN IN S_VBELN1.

SELECT MATNR

MTART

MBRSH

MATKL

FROM MARA

INTO TABLE IT_MARA

WHERE MATNR IN S_MATNR.

FIELDCATLOG--

FCAT-COL_POS = '1'.

FCAT-FIELDNAME = 'VBELN'.

FCAT-TABNAME = 'IT_VBAK'.

FCAT-OUTPUTLEN = '20'.

FCAT-SELTEXT_L = 'SALES DOCUMENT'.

FCAT-EMPHASIZE = 'C310'.

APPEND FCAT.

CLEAR FCAT.

FCAT-COL_POS = '2'.

FCAT-FIELDNAME = 'ERDAT'.

FCAT-TABNAME = 'IT_VBAK'.

FCAT-OUTPUTLEN = '20'.

FCAT-SELTEXT_L = 'DATE OF ENTRY'.

FCAT-EMPHASIZE = 'C410'.

APPEND FCAT.

CLEAR FCAT.

FCAT-COL_POS = '3'.

FCAT-FIELDNAME = 'EZETR'.

FCAT-TABNAME = 'IT_VBAK'.

FCAT-OUTPUTLEN = '20'.

FCAT-SELTEXT_L = 'TIME OF ENTRY'.

FCAT-EMPHASIZE = 'C510'.

APPEND FCAT.

CLEAR FCAT.

FCAT-COL_POS = '4'.

FCAT-FIELDNAME = 'ERNAM'.

FCAT-TABNAME = 'IT_VBAK'.

FCAT-OUTPUTLEN = '20'.

FCAT-SELTEXT_L = 'NAME OF ENTRY'.

FCAT-EMPHASIZE = 'C610'.

APPEND FCAT.

CLEAR FCAT.

FCAT1-COL_POS = '1'.

FCAT1-FIELDNAME = 'VBELN'.

FCAT1-TABNAME = 'IT_VBAP'.

FCAT1-OUTPUTLEN = '20'.

FCAT1-SELTEXT_L = 'SALES DOCUMENT'.

APPEND FCAT1.

CLEAR FCAT1.

FCAT1-COL_POS = '2'.

FCAT1-FIELDNAME = 'POSNR'.

FCAT1-TABNAME = 'IT_VBAP'.

FCAT1-OUTPUTLEN = '20'.

FCAT1-SELTEXT_L = 'ITEM DOCUMENT'.

APPEND FCAT1.

CLEAR FCAT1.

FCAT1-COL_POS = '3'.

FCAT1-FIELDNAME = 'MATNR'.

FCAT1-TABNAME = 'IT_VBAP'.

FCAT1-OUTPUTLEN = '20'.

FCAT1-SELTEXT_L = 'MATERIAL NUMBER'.

APPEND FCAT1.

CLEAR FCAT1.

FCAT1-COL_POS = '4'.

FCAT1-FIELDNAME = 'MATWA'.

FCAT1-TABNAME = 'IT_VBAP'.

FCAT1-OUTPUTLEN = '20'.

FCAT1-SELTEXT_L = 'MATERIAL NAME'.

APPEND FCAT1.

CLEAR FCAT1.

FCAT2-COL_POS = '1'.

FCAT2-FIELDNAME = 'MATNR'.

FCAT2-TABNAME = 'IT_MARA'.

FCAT2-OUTPUTLEN = '20'.

FCAT2-SELTEXT_L = 'MATERIAL NUMBER'.

APPEND FCAT2.

CLEAR FCAT2.

FCAT2-COL_POS = '2'.

FCAT2-FIELDNAME = 'MTART'.

FCAT2-TABNAME = 'IT_MARA'.

FCAT2-OUTPUTLEN = '20'.

FCAT2-SELTEXT_L = 'MATERIAL TYPE'.

FCAT2-EMPHASIZE = 'C610'.

APPEND FCAT2.

CLEAR FCAT2.

FCAT2-COL_POS = '3'.

FCAT2-FIELDNAME = 'MBRSH'.

FCAT2-TABNAME = 'IT_MARA'.

FCAT2-OUTPUTLEN = '20'.

FCAT2-SELTEXT_L = 'INDUSTRY SECTOR'.

APPEND FCAT2.

CLEAR FCAT2.

FCAT2-COL_POS = '4'.

FCAT2-FIELDNAME = 'MATKL'.

FCAT2-TABNAME = 'IT_MARA'.

FCAT2-OUTPUTLEN = '20'.

FCAT2-SELTEXT_L = 'MATERIAL GROUP'.

APPEND FCAT2.

CLEAR FCAT2.

LAYOUT--

LAYOUT2-info_fieldname = 'ANY'.

LOOP AT IT_MARA.

IF IT_MARA-MATNR < 1050 .

*102051

*102053

*102054

*102057

*102070

IT_MARA-ANY = 'C510'.

MODIFY IT_MARA.

CLEAR IT_MARA.

ENDIF.

*IF IT_MARA-MATNR > 1200 .

*IT_MARA-ANY = 'C411'.

**MODIFY IT_MARA INDEX SY-INDEX.

*APPEND IT_MARA.

*CLEAR IT_MARA.

*ENDIF.

ENDLOOP.

DISPLAY--

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'

EXPORTING

i_callback_program = SY-CPROG.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

is_layout = LAYOUT

it_fieldcat = FCAT[]

i_tabname = 'IT_VBAK'

it_events = EVENTS

tables

t_outtab = IT_VBAK

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

is_layout = LAYOUT1

it_fieldcat = FCAT1[]

i_tabname = 'IT_VBAP'

it_events = EVENTS

tables

t_outtab = IT_VBAP

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

is_layout = LAYOUT2

it_fieldcat = FCAT2[]

i_tabname = 'IT_MARA'

it_events = EVENTS

tables

t_outtab = IT_MARA

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'.

topic Re: open order report in Application Development and Automation Discussions

open order report

Re: open order report

Re: open order report