Report for open orders and amount of product confirmed

Question

Hi All,
Can some one give me an idea on a report which shows open orders and also shows amount of product confirmed against these open orders?
Thanks,
Neelima.

Answer 1

Hi Veni,
Incomplete order are the order's in which some data is missing so that particular order can't be further processed, that is what you could check through "Incompletion Log". Whereas Open orders are the orders which are open for further processing viz. deliver billing(but open order is a complete order i.e. no data missing).
Check this program:
*& 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.
Hope this helps you.
Regards,
Chandra Sekhar