WA_CRITERIA-ITEMNO_ACC = G_ITEMNO.
WA_CRITERIA-FIELDNAME = 'PRCTR'.
WA_CRITERIA-CHARACTER = WA_UPLOAD-PRCTR.
APPEND WA_CRITERIA TO IT_CRITERIA.
CLEAR WA_CRITERIA.
CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
EXPORTING
DOCUMENTHEADER = DOCUMENTHEADER "录入凭证头
CUSTOMERCPD = CUSTOMERCPD "
IMPORTING
OBJ_KEY = L_KEY
TABLES
ACCOUNTGL = IT_ACCGL "总帐科目项
ACCOUNTRECEIVABLE = IT_RECEI "客户项目
ACCOUNTPAYABLE = IT_PAYABLE
ACCOUNTTAX = IT_TAX
CURRENCYAMOUNT = IT_CURAMT "货币项目
CRITERIA = IT_CRITERIA
RETURN = IT_RETURN "返回值
EXTENSION2 = IT_EXTEN. "扩展字段