A表代码
If Forms("凭证生成").opened AndAlso e.DataCol.name = "key2"
Dim dtp As WinForm.DateTimePicker = Forms("凭证生成").Controls("Date1")
If e.DataRow("YYYYMMDD") <> dtp.value Then Return
Select Case e.newvalue
Case "WAI"
If DataTables("cbdata").compute("count(date)","date = '" & dtp.value & "' And incomecategory = '散客收入'") = 0 Then
Dim dr As DataRow = DataTables("CBDATA").AddNew()
dr("DATE") = e.DataRow("YYYYMMDD")
dr("posstation") = "客房部"
dr("paycode") = "客房收入"
dr("incomecategory") = "散客收入"
dr("amount")= e.DataRow("dicvalue")
End If
Case "RSC"
If DataTables("cbdata").compute("count(date)","date = '" & dtp.value & "' and incomecategory = '订房中心'") = 0 Then
Dim dr As DataRow = DataTables("CBDATA").AddNew()
dr("DATE") = e.DataRow("YYYYMMDD")
dr("posstation") = "客房部"
dr("paycode") = "客房收入"
dr("incomecategory") = "订房中心"
dr("amount")= Tables("cb").compute("sum(dicvalue)","YYYYMMDD = '" & dtp.value & "' and key2 = 'RSC'" )
End If
Case "LSG"
If DataTables("cbdata").compute("count(date)","date = '" & dtp.value & "' and incomecategory = '长住客'") = 0 Then
Dim dr As DataRow = DataTables("CBDATA").AddNew()
dr("DATE") = e.DataRow("YYYYMMDD")
dr("posstation") = "客房部"
dr("paycode") = "客房收入"
dr("incomecategory") = "长住客"
dr("amount")= e.DataRow("dicvalue")
End If
Case "CCS"
If DataTables("cbdata").compute("count(date)","date = '" & dtp.value & "' and incomecategory = '会议展览'") = 0 Then
Dim dr As DataRow = DataTables("CBDATA").AddNew()
dr("DATE") = e.DataRow("YYYYMMDD")
dr("posstation") = "客房部"
dr("paycode") = "客房收入"
dr("incomecategory") = "会议展览"
dr("amount")= e.DataRow("dicvalue")
End If
Case "LCA"
If DataTables("cbdata").compute("count(date)","date = '" & dtp.value & "' and incomecategory = '商务散客'") = 0 Then
Dim dr As DataRow = DataTables("CBDATA").AddNew()
dr("DATE") = e.DataRow("YYYYMMDD")
dr("posstation") = "客房部"
dr("paycode") = "客房收入"
dr("incomecategory") = "商务散客"
dr("amount")= Tables("cb").compute("sum(dicvalue)","YYYYMMDD = '" & dtp.value & "' and key2 = 'LCA'" )
End If
Case "10301"
If DataTables("cbdata").compute("count(date)","date = '" & dtp.value & "' and posstation = '西餐厅' and incomecategory = '食品收入'") = 0 Then
Dim dr As DataRow = DataTables("CBDATA").AddNew()
dr("DATE") = e.DataRow("YYYYMMDD")
dr("posstation") = "西餐厅"
dr("paycode") = "餐饮收入"
dr("incomecategory") = "食品收入"
dr("amount")= e.DataRow("dicvalue") - Tables("cb").compute("sum(dicvalue)","YYYYMMDD = '" & dtp.value & "' and key2 = 'G' and key1 = '90203'" )
End If
Case "9999"
If DataTables("cbdata").compute("count(date)","date = '" & dtp.value & "' and posstation = '清餐厅' and incomecategory = '手工折扣'") = 0 Then
Dim dr As DataRow = DataTables("CBDATA").AddNew()
dr("DATE") = e.DataRow("YYYYMMDD")
dr("posstation") = "清餐厅"
dr("paycode") = "餐饮收入"
dr("incomecategory") = "手工折扣"
dr("amount")= e.DataRow("dicvalue")
End If
Case "9998"
If DataTables("cbdata").compute("count(date)","date = '" & dtp.value & "' and posstation = '清餐厅' and incomecategory = '服务费'") = 0 Then
Dim dr As DataRow = DataTables("CBDATA").AddNew()
dr("DATE") = e.DataRow("YYYYMMDD")
dr("posstation") = "清餐厅"
dr("paycode") = "餐饮收入"
dr("incomecategory") = "服务费"
dr("amount") = e.DataRow("dicvalue")
End If
Case "10202"
If DataTables("cbdata").compute("count(date)","date = '" & dtp.value & "' and posstation = '清餐厅' and incomecategory = '饮料收入'") = 0 Then
Dim dr As DataRow = DataTables("CBDATA").AddNew()
dr("DATE") = e.DataRow("YYYYMMDD")
dr("posstation") = "清餐厅"
dr("paycode") = "餐饮收入"
dr("incomecategory") = "饮料收入"
dr("amount") = e.DataRow("dicvalue")
End If
End Select
End If