使用BAPI_ACC_DOCUMENT_REV_POST来反转通过BAPI_ACC_DOCUMENT_POST提出的条目,但我们收到以下错误
E RW 609文档错误:BKPFF $ SYS600 BKPFF
E RW 632文件BKPFF 900026 SYS600无法反转BKPFF
E RW 630组件财务会计中的逆转不是 可能的财务会计
E F5A 9无法撤销,参考的会计凭证。不 不存在BKPFF
参考代码
Dim companyAPI As IRfcFunction = _ecc.Repository.CreateFunction("BAPI_ACC_DOCUMENT_REV_POST")
Dim rev As IRfcStructure = companyAPI.GetStructure("REVERSAL")
rev.SetValue("OBJ_TYPE", "BKPFF")
rev.SetValue("OBJ_SYS", "$")
rev.SetValue("OBJ_KEY", "900026N0342016")
rev.SetValue("OBJ_KEY_R", "900026N0342016")
rev.SetValue("COMP_CODE", "D756")
rev.SetValue("REASON_REV", "01")
Dim transfunction = _ecc.Repository.CreateFunction("BAPI_TRANSACTION_COMMIT")
transfunction.SetValue("WAIT", "X")
companyAPI.Invoke(_ecc)
transfunction.Invoke(_ecc)
Dim dt As DataTable = GetDataTableFromRFCTable(companyAPI.GetTable("RETURN"))
答案 0 :(得分:0)
乍一看,最终的错误消息( E F5A 9 ......参考的会计凭证不存在BKPFF )指出了可能的解决方案。
我看到你传递了文件编号(900026
),公司代码(N034
)和财务期(2016
)作为关键但我感觉你需要将文档号填零到十位数。发送OBJ_KEY
和OBJ_KEY_R
作为' 0000900026N0342016`,看看是否有帮助。文档编号在内部存储为十位数字,我认为BAPI期望它采用该格式。