通过和华师傅交流 ,发现预制凭证不能使用上面的bapi来实现
调用bapi业务事务使用限制范围
* Sachkontenbuchung
WHEN 'RFBU'.
* Faktura: Debitorzeile Pflicht
WHEN 'SD00'.
CHECK gs_bapi_acchd-obj_type NE 'ACE'. "note 601778
IF acc_rec[] IS INITIAL AND
r_currency = 'X'.
PERFORM append_msg_to_return
USING 'E' "TYPE
'RW' "ID
'611' "NUMBER
'ACCOUNTRECEIVABLE' "MESSAGE_ONE
r_glvor "MESSAGE_TWO
'ACCOUNTRECEIVABLE' "PARAMETER
' ' "r_tabix "ROW
'BUS_ACT'. "FIELD
ENDIF.
* Warenbewegungen
WHEN 'RMWA' OR 'RMWE' OR 'RMWF' OR 'RMWI'
OR 'RMWL' OR 'RMWQ' OR 'RMWU'.
* Rechnungseingang: Kreditorzeile Pflicht
WHEN 'RMRP'.
IF acc_pay[] IS INITIAL AND
r_currency = 'X'.
PERFORM append_msg_to_return
USING 'E' "TYPE
'RW' "ID
'611' "NUMBER
'ACCOUNTPAYABLE' "MESSAGE_ONE
r_glvor "MESSAGE_TWO
'ACCOUNTPAYABLE' "PARAMETER
' ' "r_tabix "ROW
'BUS_ACT'. "FIELD
ENDIF.
* Geschäftsvorfall nicht unterstützt
WHEN OTHERS.
PERFORM append_msg_to_return
USING 'E' "TYPE
'RW' "ID
'613' "NUMBER
r_glvor "MESSAGE_ONE
'DOCUMENTHEADER' "MESSAGE_TWO
'DOCUMENTHEADER' "PARAMETER
' ' "r_tabix "ROW
'BUS_ACT'. "FIELD
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/190059/viewspace-1031691/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/190059/viewspace-1031691/