SAP凭证冲销BAPI用法

原创 2015年07月08日 09:58:55
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.

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

SAP凭证冲销BAPI用法

①BAPI_ACC_DOCUMENT_REV_CHECK会计凭证冲销前检查------------------------------------ REPORT RODERICK. TAB...

SAP 销售凭证冲销

SAP 冲销的顺序是逆向的, 有发票凭证的先冲销发票凭证,再冲销外向交货。。。...

SAP财务凭证冲销

客户公司的同事有时经常会问到冲销的问题,可能大部份的用户对于财务的冲销功能都不是很理解,这里我们全面的来看看。 SAP系统中财务凭证的冲销方式: • 正常的冲销过帐 • 负过帐...

SAP各种冲销凭证

SAP各种冲销凭证

凭证导入BAPI_ACC_DOCUMENT_POST

  • 2011年04月11日 20:21
  • 18KB
  • 下载

BAPI_ACC_GL_POSTING_POST生成财务预制凭证

利用此BAPI生成预制凭证,首先要在如下用户出口做一个简单增强: ACBAPI01 会计核算: 对 BAPI 界面的客户增强功能 对应的出口函数是:EXIT_SAPLACC4_001 相应的代码...

使用BAPI_ACC_DOCUMENT_POST,创建会计凭证 增强

业务需求:和银行做一个接口,要通过银行流水产生会计凭证,会计凭证的事务码是F-02,查到了BAPI方法 BAPI_ACC_DOCUMENT_POST。 昨天测试发现,有一些参数在BAPI_ACC_D...

调用BAPI创建FI凭证

下例演示了如何通过BAPI创建FI 凭证 TYPE-POOLS: slis. DATA ls_header TYPE bapiache08. DATA lt_accountgl TYPE STA...

SAP BAPI开发 PPT格式的,英文版

  • 2009年12月17日 09:14
  • 721KB
  • 下载

Java.and.BAPI.Technology.for.SAP.2002

  • 2007年07月12日 11:04
  • 6.24MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:SAP凭证冲销BAPI用法
举报原因:
原因补充:

(最多只允许输入30个字)