zoukankan      html  css  js  c++  java

  • Post a transaction and the appropriate status to the IDoc.

    On inbound function modules processing IDocs the following template can be used to post a transaction and the appropriate status to the IDoc.
    *---- Data definition -------------------------------------------------
      DATA: BEGIN OF BDCDATA OCCURS 5.
              INCLUDE STRUCTURE BDCDATA.
      DATA: END OF BDCDATA.
      DATA: C_TCODE LIKE BKPF-TCODE VALUE 'FB01'.
      DATA BEGIN OF MESSTAB OCCURS 10.      
             INCLUDE STRUCTURE BDCMSGCOLL.
      DATA END OF MESSTAB.                  
     
    *---- Call transaction ------------------------------------------------
    FORM Main_Program
      REFRESH BDCDATA.
      PERFORM APPEND_BDC USING 'SAPMF05A' '0100' '          ' '        '.
      PERFORM APPEND_BDC USING '        ' '    ' 'BKPF-BLDAT' '09031998'.
      PERFORM APPEND_BDC USING '        ' '    ' 'BDC_OKCODE' '/00'.
      PERFORM APPEND_BDC USING 'SAPMF05A' '0300' '          ' '   '.
      PERFORM APPEND_BDC USING '        ' '    ' 'BSEG-WRBTR' '*'.
      PERFORM APPEND_BDC USING '        ' '    ' 'BDC_OKCODE' 'BU'.
     
      CALL TRANSACTION 'FB01' USING BDCDATA MODE 'N' UPDATE 'S'.
      PERFORM UPDATE_IDOC_STATUS.
    ENDFORM.
     
    *--- Call transaction with errors to BDC -----------------------------
      REFRESH MESSTAB.
      CALL TRANSACTION C_TCODE USING BDCDATA MODE 'N' UPDATE 'S'
           MESSAGES INTO MESSTAB.
     
      RETURN_CODE = SY-SUBRC.
      IF RETURN_CODE = 0.
        LOOP AT MESSTAB.
          IF MESSTAB-MSGTYP = 'E'.
            RETURN_CODE = MESSTAB-MSGNR.
            SY-MSGID = 'B1'.
            SY-MSGNO = 999.
            SY-MSGV1 = 'Error: Check BDC'.
          ENDIF.
        ENDLOOP.
      ENDIF.
     
    *--- Here we check the return code, if there was an error, we put the
    *    transaction in a BDC session for the user to review and correct.
      IF RETURN_CODE NE 0.
        CALL FUNCTION 'BDC_OPEN_GROUP'
             EXPORTING
                  CLIENT = SY-MANDT
                  GROUP  = 'ZKJW'
                  USER   = SY-UNAME
                  KEEP   = 'X'.
        CALL FUNCTION 'BDC_INSERT'
             EXPORTING
                  TCODE     = C_TCODE
             TABLES
                  DYNPROTAB = BDCDATA.
        CALL FUNCTION 'BDC_CLOSE_GROUP'
             EXCEPTIONS
                  NOT_OPEN    = 1
                  QUEUE_ERROR = 2
                  OTHERS      = 3.
      ENDIF.
     
    *--- Append BDCDATA internal table ------------------------------------
    FORM APPEND_BDC USING    VALUE(P_PROG)
                             VALUE(P_SCREEN)
                             VALUE(P_NAM)
                             VALUE(P_VAL).
      CLEAR BDCDATA.
     
      IF P_PROG NE SPACE.
        BDCDATA-PROGRAM   = P_PROG.
        BDCDATA-DYNPRO    = P_SCREEN.
        BDCDATA-DYNBEGIN  = 'X'.
        BDCDATA-FNAM      = P_NAM.
        BDCDATA-FVAL      = P_VAL.
      ELSE.
        BDCDATA-FNAM      = P_NAM.
        BDCDATA-FVAL      = P_VAL.
      ENDIF.
       APPEND BDCDATA.
     ENDFORM.
     
    *&---------------------------------------------------------------------*
    FORM UPDATE_IDOC_STATUS.
    *--- Now we check the CALL TRANSACTION return code and set IDOC status
      CLEAR IDOC_STATUS.
      IF RETURN_CODE = 0.
        WORKFLOW_RESULT = '0'.
        IDOC_STATUS-DOCNUM = IDOC_CONTRL-DOCNUM.
        IDOC_STATUS-STATUS = '53'.
        IDOC_STATUS-UNAME = SY-UNAME.
        IDOC_STATUS-REPID = SY-REPID.
        IDOC_STATUS-MSGTY = SY-MSGTY.
        IDOC_STATUS-MSGID = SY-MSGID.
        IDOC_STATUS-MSGNO = SY-MSGNO.
        IDOC_STATUS-MSGV1 = SY-MSGV1.
        IDOC_STATUS-MSGV2 = SY-MSGV2.
        IDOC_STATUS-MSGV3 = SY-MSGV3.
        IDOC_STATUS-MSGV4 = SY-MSGV4.
        RETURN_VARIABLES-WF_PARAM = 'Processed_IDOCs'.
        RETURN_VARIABLES-DOC_NUMBER = IDOC_CONTRL-DOCNUM.
        APPEND RETURN_VARIABLES.
      ELSE.
        WORKFLOW_RESULT = '99999'.
        IDOC_STATUS-DOCNUM = IDOC_CONTRL-DOCNUM.
        IDOC_STATUS-STATUS = '51'.
        IDOC_STATUS-UNAME = SY-UNAME.
        IDOC_STATUS-REPID = SY-REPID.
        IDOC_STATUS-MSGTY = SY-MSGTY.
        IDOC_STATUS-MSGID = SY-MSGID.
        IDOC_STATUS-MSGNO = SY-MSGNO.
        IDOC_STATUS-MSGV1 = SY-MSGV1.
        IDOC_STATUS-MSGV2 = SY-MSGV2.
        IDOC_STATUS-MSGV3 = SY-MSGV3.
        IDOC_STATUS-MSGV4 = SY-MSGV4.
        RETURN_VARIABLES-WF_PARAM = 'Error_IDOCs'.
        RETURN_VARIABLES-DOC_NUMBER = IDOC_CONTRL-DOCNUM.
        APPEND RETURN_VARIABLES.
      ENDIF.
      APPEND IDOC_STATUS.
    ENDFORM.                               " UPDATE_IDOC_STATUS
     
  • 相关阅读:
    destoon代码从头到尾捋一遍
    php中foreach()函数与Array数组经典案例讲解
    刷题比赛
    #Math
    福慧双修(both)
    NOIP17提高模拟训练18 长途旅行(travel)
    NOIP提高组模拟训练18 正确答案(answer)
    NOIP17提高组模拟赛17 -乐曲创作(music)
    #2017 Multi-University Training Contest
    CodeForces
  • 原文地址：https://www.cnblogs.com/xiaomaohai/p/6157435.html
Copyright © 2011-2022 走看看