采购申请RFCBAPI

采购申请RFCBAPI

1.1 创建采购申请

新版本：

CALL FUNCTION 'BAPI_PR_CREATE'

EXPORTING

PRHEADER = IS_PRHEADER

PRHEADERX = IS_PRHEADERX

TESTRUN = IS_TESTRUN

IMPORTING

NUMBER = OP_PREQ_NO

TABLES

RETURN = OT_LOG

PRITEM = IT_PRITEM

PRITEMX = IT_PRITEMX

PRITEMEXP = OT_PRITEMEXP.

旧版本

CALL FUNCTION 'BAPI_REQUISITION_CREATE'

EXPORTING

SKIP_ITEMS_WITH_ERROR = SPACE

AUTOMATIC_SOURCE = 'X'

IMPORTING

NUMBER = OP_PREQ_NO

TABLES

REQUISITION_ITEMS = IT_ITEMS

REQUISITION_ITEM_TEXT = IT_ITEMS_TEXT

RETURN = OT_LOG.

1.2 修改采购申请

CALL FUNCTION 'BAPI_PR_CHANGE'

EXPORTING

NUMBER = IP_PR_NUMBER

PRHEADER = IS_PRHEADER

PRHEADERX = IS_PRHEADERX

TESTRUN = IS_TESTRUN

TABLES

RETURN = OT_LOG

PRITEM = IT_PRITEM

PRITEMX = IT_PRITEMX

PRITEMTEXT = IT_PRITEMTEXT

PRHEADERTEXT = IT_PRHEADERTEXT.

1.3 显示采购申请

CALL FUNCTION 'BAPI_PR_GETDETAIL'

EXPORTING

NUMBER = OT_PRITEM-PR_NUMBER

ITEM_TEXT = 'X'

HEADER_TEXT = 'X'

TABLES

PRITEMTEXT = PRITEMTEXT

PRHEADERTEXT = PRHEADERTEXT.

1.4 审批采购申请

SELECT MANDT BANFN BNFPO LOEKZ FRGGR FRGST

INTO CORRESPONDING FIELDS OF TABLE IT_EBAN

FROM EBAN

WHERE BANFN = IP_NUMBER AND

LOEKZ <> 'X'.

SELECT SINGLE * FROM T16FS WHERE FRGGR = IT_EBAN-FRGGR AND FRGSX = IT_EBAN-FRGST.

CALL FUNCTION 'BAPI_REQUISITION_RELEASE'

EXPORTING

NUMBER = TAB01-BANFN

REL_CODE = TAB01-FRGC

ITEM = TAB01-BNFPO

USE_EXCEPTIONS = 'X'

NO_COMMIT_WORK = 'X'

IMPORTING

REL_STATUS_NEW = REL_STATUS_NEW

REL_INDICATOR_NEW = REL_INDICATOR_NEW

TABLES

RETURN = ET_LOG

EXCEPTIONS

AUTHORITY_CHECK_FAIL = 1

REQUISITION_NOT_FOUND = 2

ENQUEUE_FAIL = 3

PREREQUISITE_FAIL = 4

RELEASE_ALREADY_POSTED = 5

RESPONSIBILITY_FAIL = 6

OTHERS = 7.

1.5 取消审批

\"取消第一层即可

CALL FUNCTION 'BAPI_REQUISITION_RESET_RELEASE'

EXPORTING

NUMBER = IP_NUMBER

ITEM = TAB01-BNFPO

REL_CODE = TAB01-FRGC

USE_EXCEPTIONS = 'X'

IMPORTING

REL_STATUS_NEW = REL_STATUS_NEW

REL_INDICATOR_NEW = REL_INDICATOR_NEW

TABLES

RETURN = ET_LOG

EXCEPTIONS

AUTHORITY_CHECK_FAIL = 1

REQUISITION_NOT_FOUND = 2

ENQUEUE_FAIL = 3

PREREQUISITE_FAIL = 4

RELEASE_ALREADY_POSTED = 5

RESPONSIBILITY_FAIL = 6

NO_RELEASE_ALREADY = 7

NO_NEW_RELEASE_INDICATOR = 8

OTHERS = 9.

待续。。。。。。