regarding codes

[Former Member]

i have developed a report for production order confirmation i request u plz check this and let me know whether something is mising or not.....

REPORT ZTESTP1.

*data declaration:

*BAPI Communication Structure: Material Document Header Data.

DATA: GM_HEADER TYPE BAPI2017_GM_HEAD_01.

*MMIM: New Key Assignment GM_CODE to Transaction of Inv. Mgmt.

DATA: GM_CODE TYPE BAPI2017_GM_CODE.

*MMIM: Output Structure For General FM To Post Goods Movement.

DATA: GM_HEADRET TYPE BAPI2017_GM_HEAD_RET.

*BAPI Communication Structure: Create Material Document Item

DATA: GM_ITEM TYPE TABLE OF

BAPI2017_GM_ITEM_CREATE WITH HEADER LINE.

*Return Parameter.

DATA: GM_RETURN TYPE BAPIRET2 OCCURS 0 WITH HEADER LINE.

DATA: GM_RETMTD TYPE BAPI2017_GM_HEAD_RET-MAT_DOC.

CLEAR: GM_RETURN, GM_RETMTD. REFRESH GM_RETURN.

• BAPI header data.

GM_HEADER-PSTNG_DATE = SY-DATUM.

GM_HEADER-DOC_DATE = SY-DATUM.

• Write '261' movement to table

CLEAR GM_ITEM.

MOVE '700000000104' TO GM_ITEM-ORDERID.

MOVE '261' TO GM_ITEM-MOVE_TYPE .

MOVE '000000003000000195' TO GM_ITEM-MATERIAL.

MOVE '1' TO GM_ITEM-ENTRY_QNT.

MOVE '6000' TO GM_ITEM-PLANT.

MOVE 'WFC1' TO GM_ITEM-STGE_LOC.

MOVE '1000007735' TO GM_ITEM-BATCH.

*move '0010' to gm_item-ACTIVITY.

APPEND GM_ITEM.

clear GM_ITEM.

MOVE '700000000104' TO GM_ITEM-ORDERID.

MOVE '261' TO GM_ITEM-MOVE_TYPE .

MOVE '000000003000000193' TO GM_ITEM-MATERIAL.

MOVE '1' TO GM_ITEM-ENTRY_QNT.

MOVE '6000' TO GM_ITEM-PLANT.

MOVE 'WFC1' TO GM_ITEM-STGE_LOC.

MOVE '1000007727' TO GM_ITEM-BATCH.

*move '0010' to gm_item-ACTIVITY.

APPEND GM_ITEM.

clear GM_ITEM.

MOVE '700000000104' TO GM_ITEM-ORDERID.

MOVE '261' TO GM_ITEM-MOVE_TYPE .

MOVE '000000001000000389' TO GM_ITEM-MATERIAL.

MOVE '1' TO GM_ITEM-ENTRY_QNT.

MOVE '6000' TO GM_ITEM-PLANT.

MOVE 'FCRM' TO GM_ITEM-STGE_LOC.

*move '0010' to gm_item-ACTIVITY.

APPEND GM_ITEM.

clear GM_ITEM.

MOVE '700000000104' TO GM_ITEM-ORDERID.

MOVE '261' TO GM_ITEM-MOVE_TYPE .

MOVE '000000001000000390' TO GM_ITEM-MATERIAL.

MOVE '1' TO GM_ITEM-ENTRY_QNT.

MOVE '6000' TO GM_ITEM-PLANT.

MOVE 'FCRM' TO GM_ITEM-STGE_LOC.

*move '0010' to gm_item-ACTIVITY.

APPEND GM_ITEM.

clear GM_ITEM.

MOVE '700000000104' TO GM_ITEM-ORDERID.

MOVE '261' TO GM_ITEM-MOVE_TYPE .

MOVE '000000001000000391' TO GM_ITEM-MATERIAL.

MOVE '1' TO GM_ITEM-ENTRY_QNT.

MOVE '6000' TO GM_ITEM-PLANT.

MOVE 'FCRM' TO GM_ITEM-STGE_LOC.

*move '0010' to gm_item-ACTIVITY.

APPEND GM_ITEM.

clear GM_ITEM.

MOVE '700000000104' TO GM_ITEM-ORDERID.

MOVE '261' TO GM_ITEM-MOVE_TYPE .

MOVE '000000001000000392' TO GM_ITEM-MATERIAL.

MOVE '1' TO GM_ITEM-ENTRY_QNT.

MOVE '6000' TO GM_ITEM-PLANT.

MOVE 'FCRM' TO GM_ITEM-STGE_LOC.

*move '0010' to gm_item-ACTIVITY.

APPEND GM_ITEM.

clear GM_ITEM.

**logic for receiving raw materials for hot alloy:

MOVE '700000000104' TO GM_ITEM-ORDERID.

MOVE '101' TO GM_ITEM-MOVE_TYPE .

MOVE '000000003000000196' TO GM_ITEM-MATERIAL.

MOVE '1' TO GM_ITEM-ENTRY_QNT.

MOVE 'MT' TO GM_ITEM-BASE_UOM.

MOVE '6000' TO GM_ITEM-PLANT.

MOVE 'WFC1' TO GM_ITEM-STGE_LOC.

move 'F' to gm_item-MVT_IND.

*move '0010' to gm_item-ACTIVITY.

*move 'STORFC' to gm_item-ACTTYPE.

APPEND GM_ITEM.

clear GM_ITEM.

*Production Order Confirmation:

DATA:ATHDRLEVELS LIKE BAPI_PP_HDRLEVEL OCCURS 0 WITH HEADER LINE.

*Confirmation with goods movements.

data:LINK_CONF_GOODSMOV LIKE BAPI_LINK_CONF_GOODSMOV occurs 0 with

header line.

move '700000000104' to ATHDRLEVELS-orderid.

move '' to ATHDRLEVELS-FIN_CONF.

move sy-datum to ATHDRLEVELS-postg_date.

*move '1' to ATHDRLEVELS-yield.

move sy-datum to ATHDRLEVELS-EXEC_START_DATE.

move sy-uzeit to ATHDRLEVELS-EXEC_START_TIME.

move sy-datum to ATHDRLEVELS-EXEC_FIN_DATE.

move sy-uzeit to ATHDRLEVELS-EXEC_FIN_TIME.

append ATHDRLEVELS.

clear ATHDRLEVELS.

move '1' to LINK_CONF_GOODSMOV-INDEX_CONFIRM.

move '7' to LINK_CONF_GOODSMOV-INDEX_GOODSMOV.

append LINK_CONF_GOODSMOV.

clear LINK_CONF_GOODSMOV.

*Return information for APIs.

data:DETAIL_RETURN LIKE BAPI_CORU_RETURN occurs 0 with header line.

refresh DETAIL_RETURn.

clear DETAIL_RETURn.

CALL FUNCTION 'BAPI_PRODORDCONF_CREATE_HDR'

EXPORTING

POST_WRONG_ENTRIES = '0'

TABLES

ATHDRLEVELS = ATHDRLEVELS

GOODSMOVEMENTS = GM_ITEM

LINK_CONF_GOODSMOV = LINK_CONF_GOODSMOV

DETAIL_RETURN = DETAIL_RETURN.

*

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

WAIT = 'X'.

loop at detail_return.

write:/

• detail_return-message,

'Confirmation Number-',detail_return-CONF_NO ,

'Confirmation Counter-',detail_return-CONF_CNT.

endloop.

[Former Member]

HI ravi,

refer this link