重复制造Bapi

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