Shulou(Shulou.com)06/03 Report--

SPAN { font-family: "BatangChe"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L0S31 { font-style: italic; color: #808080; } .L0S33 { color: #4DA619; } .L0S52 { color: #0000FF; } .L0S55 { color: #800080; } .L0S70 { color: #808080; } FORM CREATE_BAPI USING P_MENGE.

CLEAR :GV_BFLUSHDATAGEN,GV_BFLUSHFLAGS,GV_BFLUSHDATAMTS,

GV_CONFIRMATION,GV_RETURN.

IF GT_DISP_LIST-SFEPR = 'Z001'

OR GT_DISP_LIST-SFEPR = 'Z002'.

GV_BFLUSHFLAGS-BCKFLTYPE = '01'.

GV_BFLUSHFLAGS-ACTIVITIES_TYPE = '1'.

ELSEIF GT_DISP_LIST-SFEPR = 'Z003'.

GV_BFLUSHFLAGS-BCKFLTYPE = '02'.

GV_BFLUSHFLAGS-ACTIVITIES_TYPE = '2'.

GV_BFLUSHDATAMTS-REPPOINT = GT_DISP_LIST-VORNE.

* gv_bflushflags-RP_SCRAPTYPE = 'X'.123

ENDIF.

GV_BFLUSHDATAGEN-MATERIALNR = GT_DISP_LIST-MATNR.

GV_BFLUSHDATAGEN-PRODPLANT = P_WERKS.

GV_BFLUSHDATAGEN-PLANPLANT = P_WERKS.

GV_BFLUSHDATAGEN-STORAGELOC = GT_DISP_LIST-LGORT.

GV_BFLUSHDATAGEN-PRODVERSION = GT_DISP_LIST-VERID.

GV_BFLUSHDATAGEN-PRODLINE = GT_DISP_LIST-MDV01.

GV_BFLUSHDATAGEN-POSTDATE = GT_DISP_LIST-BUDAT.

GV_BFLUSHDATAGEN-DOCDATE = GT_DISP_LIST-BUDAT.

GV_BFLUSHDATAGEN-BACKFLQUANT = P_MENGE.

GV_BFLUSHDATAGEN-UNITOFMEASURE = GT_DISP_LIST-MEINH.

GV_BFLUSHDATAGEN-DOCHEADERTXT = GT_DISP_LIST-LOT.

CALL FUNCTION 'BAPI_REPMANCONF1_CREATE_MTS'

EXPORTING

BFLUSHFLAGS = GV_BFLUSHFLAGS

BFLUSHDATAGEN = GV_BFLUSHDATAGEN

BFLUSHDATAMTS = GV_BFLUSHDATAMTS

IMPORTING

CONFIRMATION = GV_CONFIRMATION

RETURN = GV_RETURN.

IF GV_CONFIRMATION IS NOT INITIAL.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

WAIT = 'X'.

CONCATENATE GV_CONFIRMATION '/' GT_DISP_LIST-MESSAGE

INTO GT_DISP_LIST-MESSAGE.

* GT_DISP_LIST-MESSAGE = GV_CONFIRMATION.

ELSE.

CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

CONCATENATE GV_RETURN-MESSAGE '/' GT_DISP_LIST-MESSAGE

INTO GT_DISP_LIST-MESSAGE.

* GT_DISP_LIST-MESSAGE = GV_RETURN-MESSAGE.

GT_DISP_LIST-ICON = ICON_RED_LIGHT.

ENDIF.

MOVE-CORRESPONDING GV_RETURN TO GS_RET.

APPEND GS_RET TO GT_RET2.

ENDFORM. " CREATE_BAPI

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.