‎2007 Sep 05 3:14 PM
hi from my bapi code i need to get the materialdocuemnt and i need to use it in select querry. please let me know how to get the material document from bapi, please correct my select querry, or i need to use internal table or loop...
loop at itab.
select ADUMMY from ZCORE_HEADER INTO table T_ADUMMY WHERE RMATNR =
ITAB-MATNR.
REFRESH: item, RETURN.
CLEAR: item, GOODSMVT_HEADER, RETURN,
MATERIALDOCUMENT, GOODSMVT_HEADRET.
MOVE '04' TO GOODSMVT_CODE.
MOVE SY-DATUM TO GOODSMVT_HEADER-PSTNG_DATE.
MOVE SY-DATUM TO GOODSMVT_HEADER-DOC_DATE.
item-MATERIAL = ITAB-MATNR.
item-PLANT = PLANT.
item-STGE_LOC = ITAB-LGORT.
item-ENTRY_UOM = ITAB-MEINS.
item-ENTRY_QNT = ITAB-VERME.
item-MOVE_TYPE = '919'.
READ TABLE T_ADUMMY INDEX 1.
item-MOVE_MAT = T_ADUMMY-ADUMMY.
item-MOVE_PLANT = PLANT.
item-MOVE_STLOC = ITAB-LGORT.
item-MOVE_REAS = ' '.
item-MVT_IND = ' '.
APPEND item.
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
EXPORTING
GOODSMVT_HEADER = GOODSMVT_HEADER
GOODSMVT_CODE = GOODSMVT_CODE
TESTRUN = ' '
IMPORTING
GOODSMVT_HEADRET = GOODSMVT_HEADRET
MATERIALDOCUMENT = MATERIALDOCUMENT
MATDOCUMENTYEAR = MATDOCUMENTYEAR
TABLES
GOODSMVT_ITEM = item
GOODSMVT_SERIALNUMBER = GOODSMVT_SERIALNUMBER
RETURN = RETURN
.
LOOP AT return WHERE type = 'E'.
MESSAGE ID return-id
TYPE return-type
NUMBER return-number
WITH return-message.
EXIT.
ENDLOOP.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'
IMPORTING
RETURN = RETURN.
.
CALL FUNCTION 'DEQUEUE_ALL'
EXPORTING
_SYNCHRON = ' '
.
*
SELECT UBNUM FROM LUBU INTO TABLE T_UBNUM WHERE LGNUM = '0054'AND
MBLNR = MATERIALDOCUMENT AND BWART = '919'.
endloop.
‎2007 Sep 05 3:31 PM
Sudhir,
Once the goods movement is posted thru the function you will get the material document number from the export parameter of the bapi
"MATERIALDOCUMENT" you can use this in your select query
‎2007 Sep 05 3:31 PM
Sudhir,
Once the goods movement is posted thru the function you will get the material document number from the export parameter of the bapi
"MATERIALDOCUMENT" you can use this in your select query