Mobile: 135 8576 5961 / WeChat: IM_WILLIAM_C / Mail: william.chen.cn@outlook.com /
分类： IT业界
2014-06-01 15:05:41
BAPI_ACC_DOCUMENT_REV_CHECK会计凭证冲销前检查
REPORT RODERICK.
TABLES: BKPF.
DATA P_BUKRS TYPE BUKRS VALUE '9900'.
DATA P_BELNR TYPE BSEG-BELNR VALUE '0100000335'.
DATA P_GJAHR TYPE BSEG-GJAHR VALUE '2011'.
DATA P_BUDAT TYPE BKPF-BUDAT VALUE '20110126'.
DATA:P_AWKEY TYPE AWKEY.
DATA P_SUBRC TYPE SY-SUBRC.
DATA: W_BELNR TYPE BELNR_D,
W_REVERSAL TYPE BAPIACREV,
WT_RETURN TYPE STANDARD TABLE OF BAPIRET2,
WA_RETURN TYPE BAPIRET2.
CLEAR P_SUBRC.
SELECT SINGLE * FROM BKPF
WHERE BUKRS EQ P_BUKRS AND BELNR EQ P_BELNR
AND GJAHR EQ P_GJAHR.
*
CHECK BKPF-BLART = 'SA'.
SY-UNAME = BKPF-USNAM.
* CONCATENATE W_BELNR P_BUKRS P_GJAHR INTO W_REVERSAL-OBJ_KEY.
W_REVERSAL-OBJ_TYPE = BKPF-AWTYP.
CONCATENATE P_BELNR P_BUKRS P_GJAHR INTO W_REVERSAL-OBJ_KEY_R.
W_REVERSAL-OBJ_KEY = W_REVERSAL-OBJ_KEY_R.
W_REVERSAL-OBJ_KEY = '$'.
CALL FUNCTION 'OWN_LOGICAL_SYSTEM_GET'
IMPORTING
OWN_LOGICAL_SYSTEM = W_REVERSAL-OBJ_SYS
EXCEPTIONS
OWN_LOGICAL_SYSTEM_NOT_DEFINED = 1
OTHERS = 2.
W_REVERSAL-REASON_REV = '01'.
W_REVERSAL-PSTNG_DATE = P_BUDAT.
CALL FUNCTION 'BAPI_ACC_DOCUMENT_REV_CHECK'
EXPORTING
REVERSAL = W_REVERSAL
BUS_ACT = 'RFBU'
TABLES
RETURN = WT_RETURN.
BREAK-POINT.
LOOP AT WT_RETURN INTO WA_RETURN WHERE TYPE CA 'EA'.
P_SUBRC = 4.
EXIT.
ENDLOOP.
BAPI_ACC_DOCUMENT_REV_POST会计凭证冲销
REPORT RODERICK.
TABLES: BKPF.
DATA P_BUKRS TYPE BUKRS VALUE '9900'.
DATA P_BELNR TYPE BSEG-BELNR VALUE '0100000335'.
DATA P_GJAHR TYPE BSEG-GJAHR VALUE '2011'.
DATA P_BUDAT TYPE BKPF-BUDAT VALUE '20110126'.
DATA P_AWKEY TYPE AWKEY.
DATA P_SUBRC TYPE SY-SUBRC.
DATA: W_BELNR TYPE BELNR_D,
W_REVERSAL TYPE BAPIACREV,
WT_RETURN TYPE STANDARD TABLE OF BAPIRET2,
WA_RETURN TYPE BAPIRET2.
CLEAR P_SUBRC.
SELECT SINGLE * FROM BKPF
WHERE BUKRS EQ P_BUKRS AND BELNR EQ P_BELNR
AND GJAHR EQ P_GJAHR.
*
CHECK BKPF-BLART = 'SA'.
SY-UNAME = BKPF-USNAM.
* CONCATENATE W_BELNR P_BUKRS P_GJAHR INTO W_REVERSAL-OBJ_KEY.
W_REVERSAL-OBJ_TYPE = BKPF-AWTYP.
CONCATENATE P_BELNR P_BUKRS P_GJAHR INTO W_REVERSAL-OBJ_KEY_R.
W_REVERSAL-OBJ_KEY = W_REVERSAL-OBJ_KEY_R.
W_REVERSAL-OBJ_KEY = '$'.
CALL FUNCTION 'OWN_LOGICAL_SYSTEM_GET'
IMPORTING
OWN_LOGICAL_SYSTEM = W_REVERSAL-OBJ_SYS
EXCEPTIONS
OWN_LOGICAL_SYSTEM_NOT_DEFINED = 1
OTHERS = 2.
W_REVERSAL-REASON_REV = '01'.
W_REVERSAL-PSTNG_DATE = P_BUDAT.
CALL FUNCTION 'BAPI_ACC_DOCUMENT_REV_POST'
EXPORTING
REVERSAL = W_REVERSAL BUS_ACT = 'RFBU'
IMPORTING
* OBJ_TYPE =
OBJ_KEY = P_AWKEY
* OBJ_SYS =
TABLES RETURN = WT_RETURN.
LOOP AT WT_RETURN INTO WA_RETURN WHERE TYPE CA ‘EA’.
P_SUBRC = 4.
EXIT.
ENDLOOP.
