open orders

Former Member · ‎2008 May 16

how to display open orders.plz.

Former Member · ‎2008 May 16

Hi,

Check the below links .....

http://www.sap-basis-abap.com/sapmo008.htm

http://themisto.jupiter.txstate.edu/fastrain/content/open%20po%20report/cc/html/index.htm (with screen-shots)

Regards,

Swetha.

GauthamV · ‎2008 May 16

hi,

check this program ,it will display all open po's and also it is stored in ur presentation server.

reward points if hlpful.

&----

*& Report ZGM_OPENPO *

*& *

&----

*& *

&----

REPORT ZGM_OPENPO NO STANDARD PAGE HEADING LINE-SIZE 132 LINE-COUNT 36(2).

TABLES: t001w, "Plants/Branches

ekko, "Purchasing Document Header

ekpo, "Purchasing Document Item

marc, "Plant Data for Material

mara. "General Material Data

DATA:

BEGIN OF itab OCCURS 0,

matnr LIKE marc-matnr,

werks LIKE marc-werks,

beskz LIKE marc-beskz,

mmsta LIKE marc-mmsta,

END OF itab.

DATA: BEGIN OF iekpo OCCURS 0,

ebeln LIKE ekpo-ebeln,

menge LIKE ekpo-menge,

aedat LIKE ekpo-aedat,

wemng LIKE eket-wemng,

END OF iekpo.

DATA: BEGIN OF iekko OCCURS 0,

ebeln LIKE ekko-ebeln,

lifnr LIKE ekko-lifnr,

bedat LIKE ekko-bedat,

ekgrp LIKE ekko-ekgrp,

END OF iekko.

selection-screen:begin of block b1 with frame title text001.

SELECT-OPTIONS werks FOR ekpo-werks OBLIGATORY.

SELECT-OPTIONS matnr FOR ekpo-matnr.

SELECT-OPTIONS beskz FOR marc-beskz.

SELECT-OPTIONS bsart FOR ekko-bsart.

selection-screen:end of block b1.

INITIALIZATION.

AT SELECTION-SCREEN ON werks. "Validate for werks

SELECT SINGLE * FROM t001w WHERE werks IN werks.

IF sy-subrc <> 0. MESSAGE e429(mo). ENDIF.

AT SELECTION-SCREEN ON matnr.

SELECT SINGLE * FROM mara WHERE matnr IN matnr.

IF sy-subrc <> 0. MESSAGE e429(mo).ENDIF.

START-OF-SELECTION.

SELECT * FROM marc INTO CORRESPONDING FIELDS OF TABLE itab WHERE werks IN werks AND beskz IN beskz AND

matnr IN matnr.

SELECT ebeln FROM ekpo INTO CORRESPONDING FIELDS OF TABLE iekpo

FOR ALL ENTRIES IN itab WHERE matnr = itab-matnr AND loekz EQ space.

SELECT ebeln lifnr bedat ekgrp FROM ekko INTO CORRESPONDING FIELDS OF

TABLE iekko

FOR ALL ENTRIES IN iekpo WHERE ebeln = iekpo-ebeln AND bsart IN bsart.

SELECT ebeln menge aedat FROM ekpo INTO CORRESPONDING FIELDS OF iekpo

FOR ALL ENTRIES IN iekpo WHERE ebeln = iekpo-ebeln. MODIFY iekpo INDEX sy-dbcnt.

ENDSELECT.

SORT iekpo BY aedat.

DELETE ADJACENT DUPLICATES FROM iekpo COMPARING ebeln.

SELECT wemng FROM eket INTO CORRESPONDING FIELDS OF iekpo FOR ALL ENTRIES IN iekpo WHERE ebeln = iekpo-ebeln.

MODIFY iekpo INDEX sy-dbcnt.

ENDSELECT.

END-OF-SELECTION.

DATA : file_name TYPE string.

file_name = 'c:\pay_det\open_po1.xls'.

DATA : BEGIN OF it_join_fields OCCURS 0,

field_name(20),

END OF it_join_fields.

CLEAR it_join_fields.

it_join_fields-field_name = 'ebeln'.

APPEND it_join_fields.

CLEAR it_join_fields.

it_join_fields-field_name = 'menge'.

APPEND it_join_fields.

CLEAR it_join_fields.

it_join_fields-field_name = 'aedat'.

APPEND it_join_fields.

CLEAR it_join_fields.

it_join_fields-field_name = 'wemng'.

APPEND it_join_fields.

CLEAR it_join_fields.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

BIN_FILESIZE =

filename = file_name

filetype = 'ASC'

APPEND = 'X'

write_field_separator = 'X'

TABLES

data_tab = iekpo

FIELDNAMES = it_join_fields

.

IF sy-subrc <> 0.

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

ENDIF.

LOOP AT iekpo.

IF iekpo-menge NE iekpo-wemng.

WRITE:/4 iekpo-ebeln,21 iekpo-menge ,46 iekpo-aedat, 56 iekpo-wemng.

ENDIF.

ENDLOOP.

if sy-subrc <> 0. write / 'no data exist for this plant'. endif.

TOP-OF-PAGE.

uline 1(80).

WRITE 😕 sy-vline, 20 ' OPEN purchase ORDERs report' color 5,

80 sy-vline.

uline 1(80).

WRITE:/ sy-vline , 4 'PURSCHASE ORDER' COLOR COL_HEADING,

20 sy-vline, 21 'ORDER QUANTITY' COLOR COL_HEADING,

45 sy-vline, 46 'item change' color col_heading, 55 sy-vline,

56 'RECIEVED QUANTITY' COLOR COL_HEADING, 80 sy-vline.

uline 1(80).

END-OF-PAGE.

WRITE 😕 'PAGE NUMBER' ,SY-PAGNO.

Former Member · ‎2008 May 16

hi

Bro u have to change ur code as it itz not a best of code

it wll take a lot of time if ur server is loaded

With Regards

Rohan Shetty

Former Member · ‎2008 May 16

Hi,

You can determine whether an order is open order through VBUK table the field GBSTK as 'A' or 'B'

Or use

Transaction Code: VA05

Select Open Orders

Regards

Kiran Sure

Former Member · ‎2008 May 16

hi,

Check eket-wemng = 0 or blank.

if yes. order is open.

else.

partial open.

Former Member · ‎2008 May 16

Hi,

Check the report which displays open sales orders

REPORT zvrus_openorder_report

MESSAGE-ID 38.

************************************************************************

TABLES

************************************************************************

TABLES:vbak,

vbap,

tvko,

tvak,

mara,

tvtw,

kna1,

vbpa.

TYPE-POOLS : slis.

************************************************************************

GLOBAL TYPES
naming convention: "TY_name"

************************************************************************

TYPES : BEGIN OF ty_vbak ,

vbeln TYPE vbak-vbeln ,

auart TYPE vbak-auart , " DRFK904686

vkorg TYPE vbak-vkorg ,

vtweg TYPE vbak-vtweg ,

vkgrp TYPE vbak-vkgrp ,

bstnk TYPE vbak-bstnk , "DRFK904686(+)

kunrsl TYPE vbak-kunnr ,

END OF ty_vbak .

TYPES: BEGIN OF ty_vbap ,

vbeln TYPE vbap-vbeln ,

posnr TYPE vbap-posnr ,

matnr TYPE vbap-matnr ,

matkl TYPE vbap-matkl ,

kwmeng TYPE vbap-kwmeng,

vrkme TYPE vbap-vrkme , "order unit

zmeng TYPE vbap-zmeng ,

zieme TYPE vbap-zieme , "order unit

netpr TYPE vbap-netpr , "price

netwr TYPE vbap-netwr , "DRFK904686(+)

END OF ty_vbap .

TYPES:BEGIN OF ty_vbuk ,

vbeln TYPE vbuk-vbeln,

Start of addition DRFK904686

lfstk TYPE statv ,

lfgsk TYPE statv ,

fkstk TYPE statv ,

End of addition DRFK904686

END OF ty_vbuk .

TYPES:BEGIN OF ty_vbpa ,

vbeln TYPE vbpa-vbeln,

kunrsh TYPE kunnr ,

END OF ty_vbpa .

TYPES:BEGIN OF ty_makt ,

matnr TYPE matnr,

maktx TYPE maktx,

END OF ty_makt.

TYPES:BEGIN OF ty_t023t,

matkl TYPE matkl,

wgbez TYPE wgbez,

END OF ty_t023t.

TYPES:BEGIN OF ty_kna1 ,

kunnr TYPE kunnr ,

name1 TYPE name1_gp,

END OF ty_kna1.

TYPES:BEGIN OF ty_final ,

vbeln TYPE vbak-vbeln ,

auart TYPE vbak-auart ,

vkorg TYPE vbak-vkorg ,

vtweg TYPE vbak-vtweg ,

vkgrp TYPE vbak-vkgrp ,

bstnk TYPE vbak-bstnk , "PO Number; DRFK904686(+)

kunrsl TYPE vbak-kunnr ,

name1 TYPE name1_gp ,

matnr TYPE vbap-matnr ,

maktx TYPE maktx ,

matkl TYPE vbap-matkl ,

wgbez TYPE wgbez ,

kwmeng TYPE vbap-kwmeng ,

vrkme TYPE vbap-vrkme , "order unit

zmenge TYPE vbap-kwmeng ,

netpr TYPE vbap-netpr , " price "vv

netwr TYPE vbap-netwr ,

zmein TYPE vbap-meins ,

kunrsh TYPE kunnr ,

name2 TYPE name1_gp ,

Start of addition DRFK904686

lfstk TYPE statv ,

lfgsk TYPE statv ,

fkstk TYPE statv ,

End of addition DRFK904686

END OF ty_final .

************************************************************************

GLOBAL CONSTANTS
naming convention: "c_name"

************************************************************************

CONSTANTS: c_sh TYPE vbpa-parvw VALUE 'WE' ,

c_formname_top_of_page TYPE slis_formname VALUE 'F_DISPLAY_TOP_OF_PAGE',

c_en(2) TYPE c VALUE 'EN' ,

c_a TYPE char1 VALUE 'A' .

************************************************************************

GLOBAL ELEMENTARY VARIABLES
naming convention: "w_name"

************************************************************************

DATA :w_list_top_of_page TYPE slis_t_listheader,

w_kwmeng TYPE vbap-kwmeng ,

w_meins TYPE t006-msehi ,

w_zmein TYPE t006-msehi ,

w_repid TYPE sy-repid ,

w_zmenge TYPE vbap-kwmeng ,

w_events TYPE slis_t_event ,

w_datum TYPE sy-datum ,

w_umrez1 TYPE marm-umrez ,

w_umren1 TYPE marm-umren ,

w_umrez2 TYPE marm-umrez ,

w_umren2 TYPE marm-umren ,

w_text(25) TYPE c .

************************************************************************

GLOBAL STRUCTURES
naming convention: "st_name"

************************************************************************

DATA:st_vbak TYPE ty_vbak ,

st_vbap TYPE ty_vbap ,

st_vbpa TYPE ty_vbpa ,

st_makt TYPE ty_makt ,

st_t023t TYPE ty_t023t ,

st_knasl TYPE ty_kna1 ,

st_knash TYPE ty_kna1 ,

st_vbuk TYPE ty_vbuk ,

st_final TYPE ty_final .

DATA:st_fieldcat TYPE slis_fieldcat_alv ,

st_layout TYPE slis_layout_alv .

************************************************************************

GLOBAL INTERNAL TABLES
naming convention: "i_name"

************************************************************************

DATA:i_vbak TYPE TABLE OF ty_vbak ,

i_vbap TYPE TABLE OF ty_vbap ,

i_vbuk TYPE TABLE OF ty_vbuk ,

i_vbpa TYPE TABLE OF ty_vbpa ,

i_makt TYPE TABLE OF ty_makt ,

i_t023t TYPE TABLE OF ty_t023t ,

i_knasl TYPE TABLE OF ty_kna1 ,

i_knash TYPE TABLE OF ty_kna1 ,

i_final TYPE TABLE OF ty_final .

DATA:i_fieldcat TYPE slis_t_fieldcat_alv ,

i_variant TYPE disvariant .

DEFINE m_fieldcat.

add 1 to st_fieldcat-col_pos.

st_fieldcat-fieldname = &1.

st_fieldcat-ref_tabname = &2.

st_fieldcat-seltext_s = &3.

st_fieldcat-seltext_l = &4.

st_fieldcat-datatype = &5.

append st_fieldcat to i_fieldcat.

END-OF-DEFINITION.

************************************************************************

PARAMETERS & SELECT-OPTIONS
aming convention: "p_name" & "s_name"

************************************************************************

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

*SELECT-OPTIONS : s_vkorg FOR vbak-vkorg OBLIGATORY,

s_vtweg FOR vbak-vtweg OBLIGATORY,
s_kunrsl FOR vbak-kunnr ,
s_kunrsh FOR vbpa-kunnr ,
s_matnr FOR vbap-matnr ,
s_auart for vbak-auart . "DRFK904686
s_datum FOR sy-datum OBLIGATORY DEFAULT sy-datum."DRFK904686

SELECT-OPTIONS : s_vkorg FOR tvko-vkorg OBLIGATORY,

s_vtweg FOR tvtw-vtweg OBLIGATORY,

s_kunrsl FOR kna1-kunnr ,

s_kunrsh FOR kna1-kunnr ,

s_matnr FOR mara-matnr ,

s_auart FOR tvak-auart . "DRFK904686

PARAMETERS: p_meins TYPE vbap-meins.

SELECTION-SCREEN END OF BLOCK b1.

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

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(20) text-006 FOR FIELD p_var.

PARAMETERS: p_var TYPE disvariant-variant.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b5.

----

INITIALIZATION

----

INITIALIZATION.

Report id assigned to Global variable

w_repid = sy-repid.

EVENTS TABLE BUILD

PERFORM f_eventtab_build USING w_events[].

Processing of listheader

PERFORM f_comment_build USING w_list_top_of_page[].

CLEAR i_variant.

i_variant-report = sy-repid.

Read default display variant (description only, w/o field catalog)

CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'

EXPORTING

i_save = c_a

CHANGING

cs_variant = i_variant

EXCEPTIONS

not_found = 2.

IF sy-subrc EQ 0.

p_var = i_variant-variant.

ENDIF.

Start of addition DRFK904686

----

AT SELECTION-SCREEN ON s_vkorg

----

Sales Organisation

AT SELECTION-SCREEN ON s_vkorg.

PERFORM f_validate_vkorg.

----

AT SELECTION-SCREEN ON s_vtweg

----

Distribution Channel

AT SELECTION-SCREEN ON s_vtweg.

PERFORM f_validate_vtweg.

----

AT SELECTION-SCREEN ON s_kunrsl

----

Sold-to-party

AT SELECTION-SCREEN ON s_kunrsl.

IF NOT s_kunrsl[] IS INITIAL.

PERFORM f_validate_cust.

ENDIF.

----

AT SELECTION-SCREEN ON s_kunrsh

----

Ship-to-party

AT SELECTION-SCREEN ON s_kunrsh.

IF NOT s_kunrsh[] IS INITIAL.

PERFORM f_validate_shipto.

ENDIF.

----

AT SELECTION-SCREEN ON s_matnr

----

Material Number

AT SELECTION-SCREEN ON s_matnr.

IF NOT s_matnr[] IS INITIAL.

PERFORM f_validate_matnr.

ENDIF.

----

AT SELECTION-SCREEN ON s_auart

----

Order Type

AT SELECTION-SCREEN ON s_auart.

IF NOT s_auart[] IS INITIAL.

PERFORM f_validate_auart.

ENDIF.

End of addition DRFK904686

----

AT SELECTION-SCREEN ON VALUE-REQUEST

----

F4 for Layout Variant

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_var.

PERFORM f_get_alv_variant CHANGING p_var.

----

AT SELECTION-SCREEN ON

----

Validate Layout Variant

AT SELECTION-SCREEN ON p_var.

IF NOT p_var IS INITIAL.

PERFORM f_check_alv_variant USING p_var.

ENDIF.

************************************************************************

START-OF-SELECTION

************************************************************************

START-OF-SELECTION.

begin of changes DRFK904686

PERFORM f_fetch_vbuk.

PERFORM f_fetch_vbak.

*

*perform to fetch the data from vbuk.

*perform to fetch the data from vbak.

PERFORM f_fetch_vbak.

*perform to fetch the data from vbuk.

PERFORM f_fetch_vbuk.
end of changes DRFK904686

*perform to fetch the data from vbpa.

PERFORM f_fetch_vbpa.

*perform to fetch the data from vbap.

PERFORM f_fetch_vbap.

*perform to fetch the material description.

PERFORM f_fetch_makt.

*perform to fetch the material group description.

PERFORM f_fetch_t023t.

*perform to fetch the customer name

PERFORM f_fetch_knasl.

*perform to fetch the customer name

PERFORM f_fetch_knash.

*perofrm to move the data into final table

PERFORM f_move_final.

Finding no of entries in Internal Table

IF LINES( i_final ) EQ 0.

MESSAGE s000 WITH 'No documents found for the selection criteria'(019).

EXIT.

ENDIF.

*perform for fieldcatalog building

PERFORM f_build_fieldcat.

*perform to display the list

PERFORM f_list_dispaly.

&----

*& Form f_validate_vkorg

&----

text

----

-->P_S_VKORG text

----

FORM f_validate_vkorg.

SELECT vkorg

FROM tvko

UP TO 1 ROWS

INTO tvko-vkorg

WHERE vkorg IN s_vkorg.

ENDSELECT.

IF sy-subrc NE 0.

MESSAGE e000 WITH 'Sales Organization is invalid'(033).

ENDIF.

ENDFORM. " f_validate_vkorg

&----

*& Form f_validate_vtweg

&----

text : This form is used to validate the Distribution Channel

----

FORM f_validate_vtweg.

SELECT vtweg

FROM tvtw

UP TO 1 ROWS

INTO tvtw-vtweg

WHERE vtweg IN s_vtweg.

ENDSELECT.

IF sy-subrc NE 0.

MESSAGE e000 WITH 'Distribution Channel is invalid'(032).

ENDIF.

ENDFORM. " f_validate_vtweg

&----

*& Form f_validate_cust

&----

text: This form is used to validate the Sold-to party .

----

FORM f_validate_cust.

SELECT kunnr

FROM kna1

UP TO 1 ROWS

INTO kna1-kunnr

WHERE kunnr IN s_kunrsl.

ENDSELECT.

IF sy-subrc NE 0.

MESSAGE e000 WITH 'Customer is invalid'(034).

ENDIF.

ENDFORM. " f_validate_cust

&----

*& Form f_validate_shipto

&----

text: This form is used to validate the Ship-to party .

----

FORM f_validate_shipto.

SELECT kunnr

FROM kna1

UP TO 1 ROWS

INTO kna1-kunnr

WHERE kunnr IN s_kunrsh.

ENDSELECT.

IF sy-subrc NE 0.

MESSAGE e000 WITH 'Ship-to party is invalid'(035).

ENDIF.

ENDFORM. " f_validate_shipto

&----

*& Form f_validate_matnr

&----

text: This form is used to validate material.

----

FORM f_validate_matnr .

SELECT matnr

FROM mara

UP TO 1 ROWS

INTO mara-matnr

WHERE matnr IN s_matnr.

ENDSELECT.

IF sy-subrc NE 0.

MESSAGE e000 WITH 'Material is invalid'(036).

ENDIF.

ENDFORM. " f_validate_matnr

&----

*& Form f_validate_auart

&----

text: This form is used to validate Order Type

----

FORM f_validate_auart .

SELECT auart

FROM tvak

UP TO 1 ROWS

INTO tvak-auart

WHERE auart IN s_auart.

ENDSELECT.

IF sy-subrc NE 0.

MESSAGE e000 WITH 'Order Type is invalid'(037).

ENDIF.

ENDFORM. " f_validate_auart

&----

*& Form sub_get_alv_variant

&----

To display variant selection dialog box

----

FORM f_get_alv_variant CHANGING p_layvar TYPE disvariant-variant.

CLEAR i_variant.

DATA lw_exit(1) TYPE c.

i_variant-report = sy-repid.

i_variant-username = sy-uname.

Display variant selection dialog box

CALL FUNCTION 'REUSE_ALV_VARIANT_F4'

EXPORTING

is_variant = i_variant

i_save = c_a

IMPORTING

e_exit = lw_exit

es_variant = i_variant

EXCEPTIONS

not_found = 1

program_error = 2

OTHERS = 3.

IF sy-subrc EQ 0.

IF lw_exit IS INITIAL.

p_layvar = i_variant-variant.

ENDIF.

ELSE.

MESSAGE i000 WITH 'No display variants found'(007).

ENDIF.

ENDFORM. " sub_get_alv_variant

&----

*& Form sub_check_alv_variant

&----

to check whether a display variant exists

----

FORM f_check_alv_variant USING p_layvar TYPE disvariant-variant.

CLEAR i_variant.

i_variant-report = sy-repid.

i_variant-username = sy-uname.

IF p_layvar NE space.

MOVE p_layvar TO i_variant-variant.

Checks whether a display variant exists

CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'

EXPORTING

i_save = c_a

CHANGING

cs_variant = i_variant.

ENDIF.

ENDFORM. "f_check_alv_variant

" sub_check_alv_variant

&----

*& Form f_fetch_vbak

&----

from to fetch sales org, dis chanel,sales group sold to party from vbak

----

FORM f_fetch_vbak .

*{ begin of change DRFK904686

IF i_vbuk IS NOT INITIAL.

SELECT vbeln
vkorg
vtweg
vkgrp
kunnr
FROM vbak
INTO TABLE i_vbak
WHERE vkorg IN s_vkorg
AND vtweg IN s_vtweg
AND kunnr IN s_kunrsl
AND audat IN s_datum.

SELECT vbeln

auart

vkorg

vtweg

vkgrp

bstnk

kunnr

FROM vbak

INTO TABLE i_vbak

FOR ALL ENTRIES IN i_vbuk

WHERE vbeln EQ i_vbuk-vbeln

AND auart IN s_auart

AND vkorg IN s_vkorg

AND vtweg IN s_vtweg

AND kunnr IN s_kunrsl .

end of change DRFK904686 }

IF sy-subrc EQ 0.

SORT i_vbak BY vbeln.

ELSE.

MESSAGE s000 WITH 'No documents found for the selection criteria'(019).

EXIT.

ENDIF.

ENDFORM. " f_fetch_vbak

&----

*& Form f_fetch_vbuk

&----

from to fetch open sales doc from vbuk

----

FORM f_fetch_vbuk .

*{ begin of change BeDRFK904686

IF i_vbak IS NOT INITIAL.
SELECT vbeln
FROM vbuk
INTO TABLE i_vbuk
FOR ALL ENTRIES IN i_vbak
WHERE vbeln EQ i_vbak-vbeln
AND ( lfstk NE 'C'
OR fkstk NE 'C' ) .

*

SELECT vbeln

lfstk "DRFK904686(+)

lfgsk "DRFK904686(+)

fkstk "DRFK904686(+)

FROM vbuk

INTO TABLE i_vbuk

WHERE ( ( lfstk EQ 'A'

OR lfstk EQ 'B')

OR ( fkstk EQ 'A'

OR fkstk EQ 'B' ) ) .

*

end of change DRFK904686 }

ENDIF.

ENDFORM. " f_fetch_vbuk

&----

*& Form f_fetch_vbpa

&----

from to fetch ship to party from vbpa

----

FORM f_fetch_vbpa .

IF i_vbak IS NOT INITIAL.

SELECT vbeln

kunnr

FROM vbpa

INTO TABLE i_vbpa

FOR ALL ENTRIES IN i_vbak

WHERE vbeln EQ i_vbak-vbeln

AND kunnr IN s_kunrsh

AND parvw EQ c_sh.

ENDIF.

ENDFORM. " f_fetch_vbpa

&----

*& Form f_fetch_vbap

&----

from to fetch sales doc, mat no, mat group,order UOM from vbap

----

FORM f_fetch_vbap .

IF i_vbpa IS NOT INITIAL.

SELECT vbeln

posnr

matnr

matkl

kwmeng

vrkme

zmeng

zieme

netwr

netpr

FROM vbap

INTO TABLE i_vbap

FOR ALL ENTRIES IN i_vbpa

WHERE vbeln EQ i_vbpa-vbeln

AND matnr IN s_matnr.

ENDIF.

ENDFORM. " f_fetch_vbap

&----

*& Form f_fetch_makt

&----

form to fetch the material description

----

FORM f_fetch_makt .

IF i_vbap IS NOT INITIAL.

SELECT

matnr

maktx

FROM makt

INTO TABLE i_makt

FOR ALL ENTRIES IN i_vbap

WHERE matnr EQ i_vbap-matnr

AND spras EQ c_en.

ENDIF.

ENDFORM. " f_fetch_makt

&----

*& Form f_fetch_t023t

&----

form to fetch the material group description

----

FORM f_fetch_t023t .

IF i_vbap IS NOT INITIAL.

SELECT

matkl

wgbez

FROM t023t

INTO TABLE i_t023t

FOR ALL ENTRIES IN i_vbap

WHERE spras EQ c_en

AND matkl EQ i_vbap-matkl.

ENDIF.

ENDFORM. " f_fetch_t023t

&----

*& Form f_fetch_kna1

&----

form to fetch the sold to customer name

----

FORM f_fetch_knasl .

IF i_vbak IS NOT INITIAL.

SELECT

kunnr

name1

FROM kna1

INTO TABLE i_knasl

FOR ALL ENTRIES IN i_vbak

WHERE kunnr EQ i_vbak-kunrsl.

ENDIF.

ENDFORM. " f_fetch_kna1

&----

*& Form f_fetch_knash

&----

form to fetch the ship to customer name

----

FORM f_fetch_knash .

IF i_vbpa IS NOT INITIAL.

SELECT

kunnr

name1

FROM kna1

INTO TABLE i_knash

FOR ALL ENTRIES IN i_vbpa

WHERE kunnr EQ i_vbpa-kunrsh.

ENDIF.

ENDFORM. " f_fetch_knash

&----

*& Form f_move_final

&----

form for moving all the fields into the final internal table for

*dispalying the final output.

----

FORM f_move_final .

SORT : i_vbak BY vbeln,

i_vbpa BY vbeln,

i_makt BY matnr,

i_t023t BY matkl,

i_knasl BY kunnr,

i_vbuk BY vbeln,

i_knash BY kunnr.

*looping at i_vbap and moving mat no,mat group,quantity and

*UOM into final table.

LOOP AT i_vbap INTO st_vbap.

IF st_vbap-kwmeng IS INITIAL.

st_vbap-kwmeng = st_vbap-zmeng.

st_vbap-vrkme = st_vbap-zieme.

ENDIF.

MOVE: st_vbap-matnr TO st_final-matnr,

st_vbap-matkl TO st_final-matkl,

st_vbap-kwmeng TO st_final-kwmeng,

st_vbap-netwr TO st_final-netwr,

st_vbap-vrkme TO st_final-vrkme.

IF p_meins IS INITIAL.

MOVE:st_vbap-vrkme TO st_final-zmein ,

st_vbap-kwmeng TO st_final-zmenge.

ELSE.

CLEAR : w_kwmeng,

w_meins,

w_zmein.

*Order Quantity

w_kwmeng = st_vbap-kwmeng.

*Order Unit

w_meins = st_vbap-vrkme.

*Report Unit

w_zmein = p_meins.

CLEAR : w_umrez1,

w_umren1,

w_umrez2,

w_umren2.

SELECT SINGLE umrez

umren

INTO (w_umrez1,

w_umren1)

FROM marm

WHERE matnr EQ st_vbap-matnr

AND meinh EQ w_meins.

SELECT SINGLE umrez

umren

INTO (w_umrez2,

w_umren2)

FROM marm

WHERE matnr EQ st_vbap-matnr

AND meinh EQ w_zmein.

IF w_umrez1 IS NOT INITIAL AND w_umren2 IS NOT INITIAL.

w_zmenge = w_kwmeng * ( w_umren1 / w_umrez1 ) * ( w_umrez2 / w_umren2 ).

update new report unit and quantity

MOVE p_meins TO st_final-zmein.

MOVE w_zmenge TO st_final-zmenge.

ELSE.

if failed to convert update report unit and quantity with order values

MOVE st_vbap-vrkme TO st_final-zmein.

MOVE st_vbap-kwmeng TO st_final-zmenge.

ENDIF.

Start of changes DRFK904686
To get the delivery, overall and billing status

CLEAR st_vbuk.

READ TABLE i_vbuk INTO st_vbuk

WITH KEY vbeln = st_vbap-vbeln

BINARY SEARCH.

IF sy-subrc EQ 0.

MOVE : st_vbuk-lfstk TO st_final-lfstk,

st_vbuk-lfgsk TO st_final-lfgsk,

st_vbuk-fkstk TO st_final-fkstk.

ENDIF.

End of changes DRFK904686

*reading i_vbak and moving sales doc,sales org,dist chanel,

*sales group,and sold to party into the final internal table

CLEAR st_vbak.

READ TABLE i_vbak

INTO st_vbak

WITH KEY vbeln = st_vbap-vbeln

BINARY SEARCH.

IF sy-subrc EQ 0.

MOVE: st_vbak-vbeln TO st_final-vbeln ,

st_vbak-vkorg TO st_final-vkorg ,

st_vbak-vtweg TO st_final-vtweg ,

st_vbak-vkgrp TO st_final-vkgrp ,

st_vbak-auart TO st_final-auart ,

st_vbak-bstnk TO st_final-bstnk , "DRFK904686(+)

st_vbak-kunrsl TO st_final-kunrsl.

ENDIF.

*reading i_vbpa and moving ship to party to the final internal table

CLEAR st_vbpa.

READ TABLE i_vbpa

INTO st_vbpa

WITH KEY vbeln = st_vbap-vbeln

BINARY SEARCH.

IF sy-subrc EQ 0.

MOVE st_vbpa-kunrsh TO st_final-kunrsh.

ENDIF.

*reading i_makt and moving material description to the final table

CLEAR st_makt.

READ TABLE i_makt

INTO st_makt

WITH KEY matnr = st_vbap-matnr

BINARY SEARCH.

IF sy-subrc EQ 0.

MOVE st_makt-maktx TO st_final-maktx.

ENDIF.

*reading i_t023t

CLEAR st_t023t.

READ TABLE i_t023t

INTO st_t023t

WITH KEY matkl = st_vbap-matkl

BINARY SEARCH.

IF sy-subrc EQ 0.

MOVE st_t023t-wgbez TO st_final-wgbez.

ENDIF.

*READINGI_KNASL

CLEAR st_knasl.

READ TABLE i_knasl

INTO st_knasl

WITH KEY kunnr = st_final-kunrsl

BINARY SEARCH.

IF sy-subrc EQ 0.

MOVE st_knasl-name1 TO st_final-name1.

ENDIF.

*READINGI_KNASH

CLEAR st_knash.

READ TABLE i_knash

INTO st_knash

WITH KEY kunnr = st_final-kunrsh

BINARY SEARCH.

IF sy-subrc EQ 0.

MOVE st_knash-name1 TO st_final-name2.

ENDIF.

APPEND st_final TO i_final.

CLEAR st_final.

ENDLOOP.

ENDFORM. " f_move_final

&----

*& Form f_build_fieldcat

&----

form for building the field catalog

----

FORM f_build_fieldcat .

m_fieldcat 'VKORG' 'VBAK' 'Sales Organisation'(004) 'Sales Organisation'(004) ' '.

m_fieldcat 'VTWEG' 'VBAK' 'Distribution Channel'(005) 'Distribution Channel'(005) ' '.

m_fieldcat 'VKGRP' 'VBAK' 'Sales Group'(008) 'Sales Group'(008) ' '.

m_fieldcat 'VBELN' 'VBAK' 'Sales Document'(009) 'Sales Document'(009) ' '.

m_fieldcat 'AUART' 'VBAK' 'Order Type'(026) 'Order Type'(026) ' '.

m_fieldcat 'BSTNK' 'VBAK' 'PO number'(031) 'PO number'(031) ' '.

m_fieldcat 'KUNRSL' 'VBAK' 'Sold to Party'(010) 'Sold to Party'(010) ' '.

m_fieldcat 'NAME1' 'KNA1' 'Name Sold to'(020) 'Name Sold to'(020) ' '.

m_fieldcat 'KUNRSH' 'VBPA' 'Ship to Party'(011) 'Ship to Party'(011) ' '.

m_fieldcat 'NAME2' 'KNA1' 'Name Ship to'(022) 'Name Ship to'(022) ' '.

m_fieldcat 'KWMENG' 'VBAP' 'Order Quantity'(012) 'Order Quantity'(012) 'QUAN '(014).

m_fieldcat 'VRKME' 'VBAP' 'Order UOM'(017) 'Order UOM'(017) ' '.

m_fieldcat 'ZMENGE' 'VBAP' 'Report Quantity'(013) 'Report Quantity'(013) 'QUAN '(014).

m_fieldcat 'ZMEIN' 'VBAP' 'Report UOM'(018) 'Report UOM'(018) ' '.

m_fieldcat 'NETWR' 'VBAP' 'Net value'(030) 'Net value'(030) ' '.

m_fieldcat 'MATKL' 'VBAP' 'Material Group Description'(023) 'Material Group Description'(023) ' '. "DRFK904686(-)
m_fieldcat 'WGBEZ' 'T023T' 'Material Group'(015) 'Material Group'(015) ' '. "DRFK904686(-)

m_fieldcat 'MATKL' 'VBAP' 'Material Group'(015) 'Material Group'(015) ' '. "DRFK904686(+)

m_fieldcat 'WGBEZ' 'T023T' 'Material Group Description'(023) 'Material Group Description'(023) ' '. "DRFK904686(+)

m_fieldcat 'MATNR' 'VBAP' 'Material Number'(016) 'Material Number'(016) ' '.

m_fieldcat 'MAKTX' 'MAKT' 'Materia Description'(024) 'Material Description'(025) ' '.

Begin of addition DRFK904686

m_fieldcat 'LFSTK' 'VBUK' 'Delivery status'(027) 'Delivery status'(027) 'DelStat' .

m_fieldcat 'LFGSK' 'VBUK' 'Overall delivery status'(028) 'Overall delivery status'(028) ' '.

m_fieldcat 'FKSTK' 'VBUK' 'Billing status'(029) 'Billing status'(029) ' '.

End of addition DRFK904686

ENDFORM. " f_build_fieldcat

&----

*& Form f_list_dispaly

&----

form for displaying the final output in the Alv grid

----

FORM f_list_dispaly .

st_layout-cell_merge = 'X'.

st_layout-colwidth_optimize = 'X'.

To display the required data

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_buffer_active = 'X'

i_callback_program = w_repid

is_layout = st_layout

it_fieldcat = i_fieldcat[]

i_save = 'A'

is_variant = i_variant

it_events = w_events[]

TABLES

t_outtab = i_final.

ENDFORM. " f_list_dispaly

" f_EVENTTAB_BUILD

----

FORM F_DISPLAY_TOP_OF_PAGE *

----

*form for providing the report heading *

event TOP_OF_PAGE *

----

FORM f_display_top_of_page. "#EC CALLED

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = w_list_top_of_page.

ENDFORM. "DISPLAY_TOP_OF_PAGE

&----

*& Form f_EVENTTAB_BUILD

&----

Ereignistabelle Bilden
EVENTS TABLE BUILD

----

-->U_ER_EVENTS[] text

----

FORM f_eventtab_build USING p_u_er_events TYPE slis_t_event.

FIELD-SYMBOLS: <fs_event> TYPE slis_alv_event.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = p_u_er_events.

READ TABLE p_u_er_events WITH KEY name = slis_ev_top_of_page

ASSIGNING <fs_event>.

IF sy-subrc = 0.

<fs_event>-form = c_formname_top_of_page.

ENDIF.

ENDFORM. " f_EVENTTAB_BUILD

&----

*& Form F_COMMENT_BUILD

&----

Bearbeitung des Listenkopfes
Processing of listheader

----

-->U_ER_LIST_TOP_OF_PAGE[] text

----

FORM f_comment_build USING u_er_list_top_of_page TYPE slis_t_listheader.

DATA: lw_line TYPE slis_listheader.

Type H

CLEAR lw_line.

lw_line-typ = 'H'.

Daily Historical Volume

lw_line-info = text-003.

APPEND lw_line TO u_er_list_top_of_page.

Type S

CLEAR lw_line.

lw_line-typ = 'S'.

Run Date - Sy-datum

WRITE sy-datum TO w_datum MM/DD/YY .

CONCATENATE text-021 w_datum INTO w_text.

lw_line-info = w_text.

APPEND lw_line TO u_er_list_top_of_page.

ENDFORM. " COMMENT_BUILD

Regards,

Raj.

Former Member · ‎2008 May 16

Hey man select all orders from vbak(sales oredre header dat)

check with table vbfa if that order no is noy existing than its a open order.

bye

By Category

Related Content

Activity Groups

Industry Groups

Influence and Feedback Groups

Interest Groups

Location Groups

Customer Only Groups

Forums

Related Resources

Products

Learning and Support

About

My Account

My Account

open orders