Dim ck As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "出库_售价","出库_数量"
ck("出库_价税合计") = ck("出库_数量") * ck("出库_售价") /1.17 * 1.03
'----------------------------------------------------------------------------------------------
Dim rk = DataTables("入库明细").Find("入库单编号明细 = '" & e.DataRow("入库批次号") & "'")
If rk IsNot Nothing Then
Dim sum = e.DataTable.compute("sum(出库_数量)", "入库批次号 = '" & e.DataRow("入库批次号") & "' and _Identify <= " & e.DataRow("_Identify"))
ck("最后库存") = rk("入库_数量") - sum
End If
Case "出库_价税合计","出库_税率"
ck("出库_金额") = ck("出库_价税合计") / ck("出库_税率")
Case "出库_价税合计","出库_金额"
ck("出库_税金") = ck("出库_价税合计") - ck("出库_金额")
End Select
加好友 
发短信
Post By：2016/7/22 8:32:00 [显示全部帖子]
