HI，Sneh

尝试下面的代码。

 数据：headerinfo LIKE BAPIACHE09，
       带有标题行的示例BAPIACKEC9发生次数0，
       iteminfo像是带有标题行的BAPIACGL09占位0，
       valueinfo像带标题行的BAPIACCR09占位0，
       返回带有标题行的LIKE bapiret2占位0，
       像BAPIACEXTC这样的extension1在标题行中出现0，
       obj_type像bapiache08-obj_type，
       obj_key像bapiache02-obj_key，
       obj_sys LIKE bapiache02-obj_sys，
       docnum像bkpf-belnr。
 *填写文件标题信息
 headerinfo-bus_act ='RFBU'。
 headerinfo-用户名= sy-uname。
 headerinfo-header_txt ='测试BOC BAPI发布'。
 headerinfo-comp_code ='IN10'。
 headerinfo-doc_date ='20060127'。
 headerinfo-pstng_date = sy-datlo。
 headerinfo-doc_type ='SA'。
 *凭证项目相关信息填写行
 iteminfo-itemno_acc ='1'。
 iteminfo-gl_account ='0000500001'。
 iteminfo-pstng_date = sy-datum。
 iteminfo-item_text ='测试发布借项'。
 iteminfo-costcenter ="。
 iteminfo-quantity ='1'。
 iteminfo-base_uom ='ST'。

 APPEND iteminfo。
 清除iteminfo。

 *填写单据价值相关信息行1
 valueinfo-itemno_acc ='1'。
 valueinfo-currency_iso ='INR'。
 valueinfo-amt_doccur ='0.02-'。
 APPEND valueinfo。
 清除valueinfo。

 *在extension1表中添加税码。
 extension1-field1 ='BAPI CALL'。
 追加扩展1。

 刷新样本。
 sample-ITEMNO_ACC ='1'。
 sample-FIELDNAME ='ARTNR'。
 sample-CHARACTER ='000000000001312251'。
 追加样品。
 sample-ITEMNO_ACC ='1'。
 sample-FIELDNAME ='WERKS'。
 sample-CHARACTER ='IN91'。
 追加样品。
 sample-ITEMNO_ACC ='1'。
 sample-FIELDNAME ='KNDNR'。
 sample-CHARACTER ='0000000016'。
 追加样品。
 sample-ITEMNO_ACC ='1'。
 sample-FIELDNAME ='FKART'。
 sample-CHARACTER ='ZIN2'。
 追加样品。
 sample-ITEMNO_ACC ='1'。
 sample-FIELDNAME ='KAUFN'。
 sample-CHARACTER ='0000000633'。
 追加样品。
 sample-ITEMNO_ACC ='1'。
 sample-FIELDNAME ='KDPOS'。
 sample-CHARACTER ='000010'。
 追加样品。

 *所有表已填充-现在调用BAPI。
 通话功能'BAPI_ACC_DOCUMENT_CHECK'
   出口
     documentheader = headerinfo
   输入
     OBJ_TYPE = headerinfo-obj_type
     OBJ_KEY = headerinfo-obj_key
     OBJ_SYS =标头信息obj_sys
   桌子
     样本=样本
     accountgl = iteminfo
     currencyamount = valueinfo
     返回=返回
     EXTENSION1 = EXTENSION1。
 *
 LOOP AT返回WHERE类型='E'。
   出口。
 结局。
 *
 通话功能'BAPI_ACC_DOCUMENT_POST'
   出口
     documentheader = headerinfo
   输入
     OBJ_TYPE = headerinfo-obj_type
     OBJ_KEY = headerinfo-obj_key
     OBJ_SYS =标头信息obj_sys
   桌子
     样本=样本
     accountgl = iteminfo
     currencyamount = valueinfo
     返回=返回
     EXTENSION1 = EXTENSION1。
 LOOP AT返回WHERE类型='E'。
   出口。
 结局。
 如果sy-subrc EQ 0。
   写：/" BAPI调用失败-调试并修复！"。
 其他。
   清除回报。
   刷新返回。
   通话功能'BAPI_TRANSACTION_COMMIT'
 *出口
 *等待=
    输入
      return =返回。
   写：/'BAPI调用成功！！。
   写：/headerinfo-obj_key，"发布"。
  谢谢，
 
 Abinath。  S