|
|
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 | ||||||||||
|
