Dim bianhao As String = e.DataRow("外经证编号")
If bianhao <> Nothing Then
Dim dr As DataRow = DataTables("外经证").Find("外经证编号 = '" & bianhao & "'")
e.DataRow("fa piao类型") = dr("外经证类型")
e.DataRow("购买方") = dr("购买方")
e.DataRow("销售方") = dr("销售方")
e.DataRow("税率") = dr("税率")
End If
If e.DataCol.Name = "fa piao类型" Then
Dim Total As Double
Dim Haoma As String = e.DataRow("fa piao号码")
Select Case e.DataRow("fa piao类型")
Case "总包对建设"
Total = DataTables("订单往来").Compute("Sum(建设到总包开piao金额)","建设到总包fa piao号码 = '" & Haoma & " '")
e.DataRow("差额") = e.DataRow("fa piao金额") - Total
Case "国信对总包"
Total = DataTables("订单往来").Compute("Sum(总包到分包开piao金额)","总包到分包fa piao号码 = '" & Haoma & " '")
e.DataRow("差额") = e.DataRow("fa piao金额") - Total
Case "下游对国信(同步)"
Total = DataTables("订单往来").Compute("Sum(国信到下游fa piao金额)","国信到下游fa piao号码 = '" & Haoma & " '")
e.DataRow("差额") = e.DataRow("fa piao金额") - Total
Case "下游对国信(非同步)"
Total = DataTables("付款明细_非同步").Compute("Sum(fa piao金额)","fa piao号码 = '" & Haoma & " '")
e.DataRow("差额") = e.DataRow("fa piao金额") - Total
Case Else
e.DataRow("差额") = Nothing
End Select
End If
加好友 
发短信
Post By：2023/7/31 17:07:00 [显示全部帖子]
