Community
Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

open order report

Former Member

‎2007 Jun 29 10:53 AM

0 Likes
460

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

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

Reply
2 REPLIES 2
Read only

Former Member

‎2007 Jun 29 11:35 AM

0 Likes
422

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

Read only

Former Member

‎2007 Jun 29 11:44 AM

0 Likes
422

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'.