1、成本核算方法：全月一次加权平均

2、实际情况：7月做入库单一张     数量： 10  单价 ：20

                                    销售单一张     数量： 2    成本价：20

                          8月做入库单一张     数量：5   单价： 25

                                     销售单一张   数量：4    成本价：21.79

                              盘点调整单：  数量 ：1  单价变为 ： 20  与7月的结存单价一样。 应该与本月的结存价一样

 如图：

已经更改，原因，原来的代码只处理了调拨的，没有处理调价等情况：

'原来的============
 ''如果是调拨的把调入成本给设置了
     if rs("iit")=2 and rs("ca")="0" then
               c=R45(po*(rs("qtyi")+rs("qtyvi")))
               rs("costi")=c 
               rs.update 
     end if

'更改后的=====================
 ''如果是调拨的把调入成本给设置了 或者是 盘存调整 或者是退料 或者 借出后归还
     If rs("iit") = 2 Or rs("ca") = 10 Or rs("ca") = 6 Or rs("ca") = 12 Then
               c = R45(po * (rs("qtyi") + rs("qtyvi")))
               rs("costi") = c
               rs.Update
     End If

还有一处：

''原来
     '所有收入的数量和金额应该剔除调拨产生的
   rs.Close
     rs.open ss & " and invoiceitem.iit=2 and invoiceitem.ca=0 and qtyi<>0"

''更改后
   '所有收入的数量和金额应该剔除调拨产生的,还有盘点调整的、借出归还的、退料的
   rs.Close
     rs.open ss & " and ((invoiceitem.iit=2 and invoiceitem.ca=0) or  invoiceitem.ca = 10 Or invoiceitem.ca = 6 Or invoiceitem.ca = 12) and qtyi<>0"