代码
Imports Wireless.Entities
Imports Wireless.Printer.RemotingConnection
Imports Wireless.Common
Imports Dsdt.CasinoManager.BusinessRule
Imports HNA.PubClass.DishModel
Namespace DishInterface
Public Delegate Sub PrintBillDeletate(ByVal IsLaress As Boolean, ByVal machineNumber As String, ByVal data As List(Of BillList), ByVal currenttable As Table, ByVal userStatus As LoginUserStatus)
Public Class OrderDishesImpl
Private Shared _currentTable As Table
Private Shared uStatus As Wireless.Entities.LoginUserStatus
'种数（本次点菜）
Private Shared _orderKindCount As Decimal
'份数（本次点菜）
Private Shared _copiesCount As Decimal
''' <summary>
''' 点菜 （入单）
''' </summary>
''' <param name="argOrderDishes"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function OrderDishes(ByVal argOrderDishes As Entities.OrderDishes()) As String
If argOrderDishes Is Nothing OrElse argOrderDishes.Length < 1 Then
Throw New Exception("获取菜单数据异常！")
End If
Dim message As String = String.Empty
Dim result As String = String.Format("{0} {1}{2}", MobilFormatUtil.FormatString(argOrderDishes(0).TypeCode, 4), _
MobilFormatUtil.FormatString(argOrderDishes(0).MachineNumber, 3), _
vbCrLf)
uStatus = GlobalDataProvider.GetLoginUserStatusByMachineNo(argOrderDishes(0).MachineNumber)
If uStatus Is Nothing Then
Return String.Concat(result, "请先登录！")
End If
'将手持设备的台号(nWireTableId)映射为原有的桌号(cCode)
For i As Integer = 0 To argOrderDishes.Length - 1
argOrderDishes(i).TabelNoBillNo = TableCollection.All.GetCodeByWirlessId(argOrderDishes(i).TabelNoBillNo)
Next
If argOrderDishes(0).TabelNoBillNo Is Nothing Then
Return String.Concat(result, "台不存在！")
End If
'取得台对象
_currentTable = TableCollection.All.GetTableByCode(argOrderDishes(0).TabelNoBillNo.Trim)
_currentTable = TableCollection.All.GetOneTables(_currentTable.ID)
If _currentTable Is Nothing Then
Return String.Concat(result, "台不存在！")
End If
'取得当前台所有开台
Dim _currentOpentTables As OpenTableCollection = _currentTable.GetOpenTables()
If _currentOpentTables Is Nothing OrElse _currentOpentTables.Count < 1 Then
Return String.Concat(result, "当前台未开！")
End If
'NOTE :取得当前开台对象
Dim _openTable As Dsdt.CasinoManager.BusinessRule.OpenTable = _currentOpentTables(0)
'判断当前台的账单状态
If _openTable.CurrentBillState = BillState.Printed Then
Return String.Concat(result, "本单已预结，请先解冻！")
Else
Try
'执行入单操作
'本次点菜种数和份数
_orderKindCount = 0
_copiesCount = 0
If ExecInsertBillList(argOrderDishes, False, -1) Then
'取得累计点菜种类和份数
Dim billLists As BillListCollection = _openTable.GetBillLists
Dim _totalOrderKindCount As Decimal = billLists.Count
Dim _totalCopiesCount As Decimal
For Each item As BillList In billLists
_totalCopiesCount += item.Count
Next
message = String.Format("点菜成功")
'message = String.Format("点菜成功!" + vbCrLf, _
' "{0} 本次点菜：{1}种/{2}份 累计点菜：{3}种/{4}份", _
' argOrderDishes(0).TabelNoBillNo, _
' _orderKindCount, _copiesCount, _
' _totalOrderKindCount, _totalCopiesCount _
' )
Else
message = "点菜失败！"
End If
Catch ex As Exception
message = "点菜失败！"
End Try
End If
Return String.Concat(result, message)
End Function
''' <summary>
''' 执行入单操作
''' </summary>
''' <param name="argOrderDishes"></param>
''' <param name="IsLaress"></param>
''' <param name="nLargessManId"></param>
''' <returns></returns>
''' <remarks></remarks>
Private Shared Function ExecInsertBillList(ByVal argOrderDishes As Entities.OrderDishes(), ByVal IsLaress As Boolean, ByVal nLargessManId As Integer) As Boolean
Dim result As Boolean
If argOrderDishes.Length > 0 Then
'菜单List
Dim data As New List(Of BillList)
'将数据封装到BillList列表中
For Each item As Entities.OrderDishes In argOrderDishes
data.Add(InsertDataToBillList(item, IsLaress, nLargessManId))
_orderKindCount += 1
Next
If data.Count > 0 Then
'
'If _currentTable.GetOpenTables()(0).InsertBillList(data, argOrderDishes(0).MachineNumber, argOrderDishes(0).MachineNumber) Then
If _currentTable.GetOpenTables()(0).InsertBillList(data, uStatus.UserId, argOrderDishes(0).MachineNumber) Then
'Print
Dim printDelegate As PrintBillDeletate = New PrintBillDeletate(AddressOf PrintBill)
printDelegate.BeginInvoke(IsLaress, argOrderDishes(0).MachineNumber, data, _currentTable, uStatus, Nothing, Nothing)
result = True
Else
result = False
End If
End If
End If
Return result
End Function
Private Shared Sub PrintBill(ByVal IsLaress As Boolean, ByVal machineNumber As String, ByVal data As List(Of BillList), ByVal currenttable As Table, ByVal userStatus As LoginUserStatus)
Try
PrintBillListDoc(IsLaress, data, machineNumber, currenttable, userStatus) '打印小票
PrintDoc(data, machineNumber, currenttable, userStatus) '打印总单
Catch ex As Exception
'note 打印日志
End Try
End Sub
''' <summary>
''' 将数据追加到BillList中
''' </summary>
''' <param name="orderDish"></param>
''' <param name="IsLaress"></param>
''' <param name="nLargessManId"></param>
''' <returns></returns>
''' <remarks></remarks>
Private Shared Function InsertDataToBillList(ByVal orderDish As Entities.OrderDishes, ByVal IsLaress As Boolean, ByVal nLargessManId As Integer) As BillList
'菜品 套餐号为空则是菜品否则为套餐
If String.IsNullOrEmpty(orderDish.ComboNumber.Trim) Then
Return InsertDishToList(orderDish, IsLaress, nLargessManId)
End If
'套餐
Return InsertSuitToList(orderDish, IsLaress, nLargessManId)
End Function
''' <summary>
''' 将套餐子类数据追加到BillList对象中
''' </summary>
''' <param name="suitMenu"></param>
''' <param name="cookState"></param>
''' <param name="IsLaress"></param>
''' <param name="nLargessManId"></param>
''' <returns></returns>
''' <remarks></remarks>
Private Shared Function InsertSuitMenuToList(ByVal suitMenu As SuitMenu, _
ByVal cookState As String, _
ByVal IsLaress As Boolean, _
ByVal nLargessManId As Integer)
If suitMenu Is Nothing Then
Return Nothing
End If
'消费菜式状态
Dim curCookState As String = cookState.Trim
Dim curCookStateName As String = String.Empty
Dim ckState As EnumCookState
If Not String.IsNullOrEmpty(curCookState) Then
ckState = curCookState
curCookStateName = BusinessUtil.GetCookStateName(ckState)
End If
'名称
Dim name As String = suitMenu.Name
'数量
Dim count As Decimal = suitMenu.Count
'价格
Dim price As Decimal = suitMenu.Price
'备注
Dim remark As String = String.Empty
'单价
Dim UnitId As Integer = suitMenu.UnitId
Dim UnitName As String = suitMenu.UnitName
'厨房
Dim CookRoomId As Integer = suitMenu.CookRoomId
'帐单明细状态
Dim listState As BillListState = IIf(IsLaress, BillListState.Largess, BillListState.Natural)
'是否收服务费
Dim IsServerFee = False
Dim IsAgio = False
'M:菜品
Dim Id As Integer = suitMenu.ID
Dim IdSource As String = "SM"
Dim result As BillList = New BillList(Id, name, listState, ckState, curCookStateName, CookRoomId, count, price, remark, _
IdSource, UnitId, UnitName, nLargessManId, IsServerFee, IsAgio)
Return result
End Function
''' <summary>
''' 将套餐数据追加到BillList对象中
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Private Shared Function InsertSuitToList(ByVal orderDish As Entities.OrderDishes, ByVal IsLaress As Boolean, ByVal nLargessManId As Integer)
'消费菜式状态
Dim curCookState As String = orderDish.WaitState.Trim
Dim curCookStateName As String = String.Empty
Dim ckState As EnumCookState
If Not String.IsNullOrEmpty(curCookState) Then
ckState = curCookState
curCookStateName = BusinessUtil.GetCookStateName(ckState)
End If
'NOTE 根据CODE取得套餐对象
Dim suit As Suit = GlobalDataProvider.Menus.GetSuitByCode(orderDish.ComboNumber.Trim)
If suit Is Nothing Then
Return Nothing
End If
'名称
Dim name As String = suit.Name
'数量
Dim count As Decimal = orderDish.Count
'价格
Dim price As Decimal = suit.Price
'备注
Dim remark As String = String.Empty
'单价
Dim UnitId As Integer = suit.UnitId
Dim UnitName As String = suit.UnitName
'厨房
Dim CookRoomId As Integer = suit.CookRoomId
'帐单明细状态
Dim listState As BillListState = IIf(IsLaress, BillListState.Largess, BillListState.Natural)
'是否收服务费
Dim IsServerFee = suit.IsServerFee
Dim IsAgio = suit.IsAgio
'S:套餐
Dim Id As Integer = suit.ID
Dim IdSource As String = "S"
Dim result As BillList = New BillList(Id, name, listState, ckState, curCookStateName, CookRoomId, count, price, remark, _
IdSource, UnitId, UnitName, nLargessManId, IsServerFee, IsAgio)
'取得套餐子类
Dim lstSuitMenu As List(Of SuitMenu) = GlobalDataProvider.Menus.GetMenusFromSuit(orderDish.ComboNumber.Trim)
If Not lstSuitMenu Is Nothing AndAlso lstSuitMenu.Count > 0 Then
For Each item As SuitMenu In lstSuitMenu
result.Items.Add(InsertSuitMenuToList(item, orderDish.WaitState.Trim, IsLaress, nLargessManId))
Next
End If
Return result
End Function
''' <summary>
''' 将菜品数据追加到BillList对象中
''' </summary>
''' <param name="orderDish"></param>
''' <param name="IsLaress"></param>
''' <param name="nLargessManId"></param>
''' <returns></returns>
''' <remarks></remarks>
Private Shared Function InsertDishToList(ByVal orderDish As Entities.OrderDishes, _
ByVal IsLaress As Boolean, _
ByVal nLargessManId As Integer) As BillList
'消费菜式状态
Dim curCookState As String = orderDish.WaitState.Trim
Dim curCookStateName As String = String.Empty
Dim ckState As EnumCookState
'If Not String.IsNullOrEmpty(curCookState) Then
' ckState = curCookState
' curCookStateName = BusinessUtil.GetCookStateName(ckState)
'End If
'NOTE 手持机无法输入消费菜式状态 默认为"即起"
ckState = EnumCookState.Checked
curCookStateName = BusinessUtil.GetCookStateName(ckState)
'Note NULL 取得菜对象
Dim menu As Menu = GlobalDataProvider.Menus.GetMenuByCode(orderDish.MenuId.Trim)
'菜名
Dim name As String = menu.Name
'数量
Dim count As Decimal = orderDish.Count
'总份数统计
_copiesCount += count
'价格
Dim price As Decimal = menu.Price
'备注
Dim remark As String = menu.Remark
'单价
Dim UnitId As Integer = menu.UnitId
Dim UnitName As String = menu.UnitName
'厨房
Dim CookRoomId As Integer = menu.CookroomId
'帐单明细状态
Dim listState As BillListState = IIf(IsLaress, BillListState.Largess, BillListState.Natural)
'是否收服务费
Dim IsServerFee = menu.IsServerFee
Dim IsAgio = menu.IsAgio
'M:菜品
Dim Id As Integer = menu.ID
Dim IdSource As String = "M"
Dim dish As BillList = New BillList(Id, name, listState, ckState, curCookStateName, CookRoomId, count, price, remark, _
IdSource, UnitId, UnitName, nLargessManId, IsServerFee, IsAgio)
'如果有做法，则追加做法对象
If Not String.IsNullOrEmpty(orderDish.MakeWay.Trim) Then
'制作方法中的任何一位不是数字，则认为输入的是内容而不是制作法的编号。
If IsNumeric(orderDish.MakeWay.Trim) Then
' Feihu Huang 2009/12/29
'去做法的时候，3位取法优先，如果不是3位不是做法，则跳1位，取下三位，取到为止
Dim s As String
s = orderDish.MakeWay.Trim
Dim threeBytes As String
Dim i As Integer
Try
For i = 0 To s.Length - 2
threeBytes = s.Substring(i, 3)
If Wireless.Common.MenusClass.IsAFunction(threeBytes) = True Then
System.Console.WriteLine(threeBytes)
' '根据CODE取得菜品做法对象
'orderDish.WaitState.Trim, _
Dim makeWayItem As BillList = SetDataToMakeWay(threeBytes, _
"1", _
IsLaress, _
nLargessManId)
If Not makeWayItem Is Nothing Then
dish.Items.Add(makeWayItem)
dish.MenuRemark += makeWayItem.MenuName + ","
End If
i = i + 2
End If
Next
If Not dish.MenuRemark Is Nothing AndAlso dish.MenuRemark.Length > 0 Then
dish.MenuRemark = dish.MenuRemark.Substring(0, dish.MenuRemark.Length - 1)
End If
Catch ex As Exception
End Try
''每3位为一做法的Code
'Dim functionCodes() As String = MobilFormatUtil.SplitStringByLenth(orderDish.MakeWay.Trim, 3)
'For Each code As String In functionCodes
' '根据CODE取得菜品做法对象
' Dim makeWayItem As BillList = SetDataToMakeWay(code, _
' orderDish.WaitState.Trim, _
' IsLaress, _
' nLargessManId)
' If Not makeWayItem Is Nothing Then
' dish.Items.Add(makeWayItem)
' End If
'Next
End If
End If
Return dish
End Function
''' <summary>
''' 将做法数据追加到BillList对象中
''' </summary>
''' <param name="makeWayCode"></param>
''' <param name="waitState"></param>
''' <param name="IsLaress"></param>
''' <param name="nLargessManId"></param>
''' <returns></returns>
''' <remarks></remarks>
Private Shared Function SetDataToMakeWay(ByVal makeWayCode As String, _
ByVal waitState As String, _
ByVal IsLaress As Boolean, _
ByVal nLargessManId As Integer) As BillList
'消费菜式状态
Dim curCookState As String = waitState
Dim curCookStateName As String = String.Empty
Dim ckState As EnumCookState
If Not String.IsNullOrEmpty(curCookState) Then
ckState = curCookState
curCookStateName = BusinessUtil.GetCookStateName(ckState)
End If
'NOTE 根据CODE取得菜品做法对象
Dim makeWay As MenuFunction = GlobalDataProvider.Menus.GetFunctionById(makeWayCode)
If makeWay Is Nothing Then
Return Nothing
End If
'名称
Dim name As String = makeWay.Name
'数量
Dim count As Decimal = 1
'价格
Dim price As Decimal = makeWay.Price
'备注
Dim remark As String = String.Empty
'单价
Dim UnitId As Integer = makeWay.UnitId
Dim UnitName As String = makeWay.UnitName
'厨房
Dim CookRoomId As Integer = -1
'帐单明细状态
Dim listState As BillListState = IIf(IsLaress, BillListState.Largess, BillListState.Natural)
'是否收服务费
Dim IsServerFee = makeWay.IsServerFee
Dim IsAgio = makeWay.IsAgio
'M:菜品
Dim Id As Integer = makeWay.ID
Dim IdSource As String = "F"
Dim makeWayItem As BillList = New BillList(Id, name, listState, ckState, curCookStateName, CookRoomId, count, price, remark, _
IdSource, UnitId, UnitName, nLargessManId, IsServerFee, IsAgio)
Return makeWayItem
End Function
#Region "打印小票"
Private Shared Sub PrintBillListDoc(ByVal IsLaress As Boolean, ByVal data As List(Of BillList), ByVal machineCode As String, ByVal currenttable As Table, ByVal userStatus As LoginUserStatus)
'TODO 手持设备的用户名
'Dim currentUserName As String = machineCode
Dim currentUserName As String = userStatus.UserName
Dim BLCol As New BillListCollection
For Each l As BillList In data
If l.IsPrintB() Then
BLCol.Add(l)
End If
Next
If BLCol.Count > 0 Then
For Each BL As BillList In BLCol
If IsPrintPassPrintCenter Then
Dim L As New SystemLicenseRule(True)
Dim P As New RemotingConnection
Dim C As CookRoom = CType(CookRoomCollection.GetOneCookRooms(BL.CookRoomId)(0), CookRoom)
Dim BillListDoc As New PrintBillListRpt(IIf(IsLaress, "赠送", BL.CurrentCookStateName), currenttable.Name, _
currentUserName, Now.ToString, BL.MenuName, BL.Count, BL.UnitName, BL.Price, _
BL.Count * BL.Price, BL.MenuRemark, C.PrintAreaCode, _
L.CurLicense.name, currenttable.DepartmentName, currenttable.HallName, _
currenttable.ServerFee, 0, 0, 0, 0, 0)
P.LoadBillListPiaoRpt(BillListDoc)
Else
End If
Next
'Dim doc As New Doc_TolBill(cols, Me._checkedTbl.Name, AppConfig.CurrentUser.cName, IIf(cols(0).ListState = BillListState.Natural, "总单", "赠送"))
'doc.PrintController = New System.Drawing.Printing.StandardPrintController()
'doc.PrintDoc()
End If
End Sub
''' <summary>
''' 是否用打印中心来打印账单
''' </summary>
''' <remarks></remarks>
Public Shared ReadOnly Property IsPrintPassPrintCenter() As Boolean
Get
Dim p As New SystemParamsRule(True)
Return p.IsPrintPassPrintCenter
End Get
''Get
'' Return _IsPrintPassPrintCenter
''End Get
''Set(ByVal value As Boolean)
'' Dim p As New SystemParamsRule(True)
'' _IsPrintPassPrintCenter = p.IsPrintPassPrintCenter
''End Set
End Property
#End Region
#Region "打印总单"
Private Shared Sub PrintDoc(ByVal data As List(Of BillList), ByVal machineCode As String, ByVal currenttable As Table, ByVal userStatus As LoginUserStatus)
Dim Plsts As New BillListCollection
For Each l As BillList In data
If l.IsPrintA() Then
Plsts.Add(l)
End If
Next
If Plsts.Count > 0 Then
Dim L As New SystemLicenseRule(True)
''If AppConfig.IsPrintPassPrintCenter Then
'' ''用C1REPORT来打印
'' Dim BLdata As PrintBillListData = New PrintBillListData("zongdan")
'' For Each BL As BillList In Plsts
'' BLdata.AddOneRow(BL)
'' Next
'' Dim P As New RemotingConnection
'' 'Dim C As CookRoom = CType(CookRoomCollection.GetOneCookRooms(lst.CookRoomId)(0), CookRoom)
'' Dim pbr As New PrintBillListRpt("总单", Me._checkedTbl.Name, AppConfig.CurrentUser.cName, _
'' Now.ToString, "", 0, "", 0, _
'' 0, "", _PrintArea, _
'' L.CurLicense.name, _checkedTbl.DepartmentName, _checkedTbl.HallName, _
'' Me._checkedTbl.ServerFee, Plsts.TolServerFeeMoney(Me._checkedTbl.ServerFee), 0, 0, Plsts.TolNaturalMoney, Plsts.TolLargessMoney) 'C.PrintAreaCode)
'' P.LoadBillListZongRpt(BLdata._BillListData, pbr)
'' ''用C1REPORT来打印
''Else
''用画的PrintDocument来打印()
Dim msg As New CashBillMsg
msg.title = IIf(Plsts(0).ListState = BillListState.Natural, "总单", "赠送")
msg.HotelName = L.CurLicense.name
msg.DprtName = currenttable.DepartmentName
msg.HallName = currenttable.HallName
msg.TableCode = currenttable.Code
msg.TableName = currenttable.Name
msg.PrintCount = 0
msg.BillCode = ""
'TODO 手持设备的用户名
msg.UserCode = userStatus.UserCode
msg.UserName = userStatus.UserName
msg.GuestCount = currenttable.GetOpenTables(0).GuestCount
msg.MenuInTime = Now
msg.ServerFeeRate = currenttable.ServerFee
msg.ServerFee = Plsts.TolServerFeeMoney(currenttable.ServerFee)
msg.AgioRate = 0
msg.Agio = 0
msg.MenuMoney = Plsts.TolAllMoney
msg.TolMoney = Plsts.TolAllMoney + Plsts.TolServerFeeMoney(currenttable.ServerFee)
'Dim doc As New Doc_TolBill(cols, Me._checkedTbl.Name, AppConfig.CurrentUser.cName, IIf(cols(0).ListState = BillListState.Natural, "总单", "赠送"))
Dim doc As New Doc_TolBill(Plsts, msg)
doc.PrintController = New System.Drawing.Printing.StandardPrintController()
doc.PrintDoc()
''用画的PrintDocument来打印
''End If
End If
End Sub
#End Region
End Class
End Namespace
Imports Wireless.Printer.RemotingConnection
Imports Wireless.Common
Imports Dsdt.CasinoManager.BusinessRule
Imports HNA.PubClass.DishModel
Namespace DishInterface
Public Delegate Sub PrintBillDeletate(ByVal IsLaress As Boolean, ByVal machineNumber As String, ByVal data As List(Of BillList), ByVal currenttable As Table, ByVal userStatus As LoginUserStatus)
Public Class OrderDishesImpl
Private Shared _currentTable As Table
Private Shared uStatus As Wireless.Entities.LoginUserStatus
'种数（本次点菜）
Private Shared _orderKindCount As Decimal
'份数（本次点菜）
Private Shared _copiesCount As Decimal
''' <summary>
''' 点菜 （入单）
''' </summary>
''' <param name="argOrderDishes"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function OrderDishes(ByVal argOrderDishes As Entities.OrderDishes()) As String
If argOrderDishes Is Nothing OrElse argOrderDishes.Length < 1 Then
Throw New Exception("获取菜单数据异常！")
End If
Dim message As String = String.Empty
Dim result As String = String.Format("{0} {1}{2}", MobilFormatUtil.FormatString(argOrderDishes(0).TypeCode, 4), _
MobilFormatUtil.FormatString(argOrderDishes(0).MachineNumber, 3), _
vbCrLf)
uStatus = GlobalDataProvider.GetLoginUserStatusByMachineNo(argOrderDishes(0).MachineNumber)
If uStatus Is Nothing Then
Return String.Concat(result, "请先登录！")
End If
'将手持设备的台号(nWireTableId)映射为原有的桌号(cCode)
For i As Integer = 0 To argOrderDishes.Length - 1
argOrderDishes(i).TabelNoBillNo = TableCollection.All.GetCodeByWirlessId(argOrderDishes(i).TabelNoBillNo)
Next
If argOrderDishes(0).TabelNoBillNo Is Nothing Then
Return String.Concat(result, "台不存在！")
End If
'取得台对象
_currentTable = TableCollection.All.GetTableByCode(argOrderDishes(0).TabelNoBillNo.Trim)
_currentTable = TableCollection.All.GetOneTables(_currentTable.ID)
If _currentTable Is Nothing Then
Return String.Concat(result, "台不存在！")
End If
'取得当前台所有开台
Dim _currentOpentTables As OpenTableCollection = _currentTable.GetOpenTables()
If _currentOpentTables Is Nothing OrElse _currentOpentTables.Count < 1 Then
Return String.Concat(result, "当前台未开！")
End If
'NOTE :取得当前开台对象
Dim _openTable As Dsdt.CasinoManager.BusinessRule.OpenTable = _currentOpentTables(0)
'判断当前台的账单状态
If _openTable.CurrentBillState = BillState.Printed Then
Return String.Concat(result, "本单已预结，请先解冻！")
Else
Try
'执行入单操作
'本次点菜种数和份数
_orderKindCount = 0
_copiesCount = 0
If ExecInsertBillList(argOrderDishes, False, -1) Then
'取得累计点菜种类和份数
Dim billLists As BillListCollection = _openTable.GetBillLists
Dim _totalOrderKindCount As Decimal = billLists.Count
Dim _totalCopiesCount As Decimal
For Each item As BillList In billLists
_totalCopiesCount += item.Count
Next
message = String.Format("点菜成功")
'message = String.Format("点菜成功!" + vbCrLf, _
' "{0} 本次点菜：{1}种/{2}份 累计点菜：{3}种/{4}份", _
' argOrderDishes(0).TabelNoBillNo, _
' _orderKindCount, _copiesCount, _
' _totalOrderKindCount, _totalCopiesCount _
' )
Else
message = "点菜失败！"
End If
Catch ex As Exception
message = "点菜失败！"
End Try
End If
Return String.Concat(result, message)
End Function
''' <summary>
''' 执行入单操作
''' </summary>
''' <param name="argOrderDishes"></param>
''' <param name="IsLaress"></param>
''' <param name="nLargessManId"></param>
''' <returns></returns>
''' <remarks></remarks>
Private Shared Function ExecInsertBillList(ByVal argOrderDishes As Entities.OrderDishes(), ByVal IsLaress As Boolean, ByVal nLargessManId As Integer) As Boolean
Dim result As Boolean
If argOrderDishes.Length > 0 Then
'菜单List
Dim data As New List(Of BillList)
'将数据封装到BillList列表中
For Each item As Entities.OrderDishes In argOrderDishes
data.Add(InsertDataToBillList(item, IsLaress, nLargessManId))
_orderKindCount += 1
Next
If data.Count > 0 Then
'
'If _currentTable.GetOpenTables()(0).InsertBillList(data, argOrderDishes(0).MachineNumber, argOrderDishes(0).MachineNumber) Then
If _currentTable.GetOpenTables()(0).InsertBillList(data, uStatus.UserId, argOrderDishes(0).MachineNumber) Then
Dim printDelegate As PrintBillDeletate = New PrintBillDeletate(AddressOf PrintBill)
printDelegate.BeginInvoke(IsLaress, argOrderDishes(0).MachineNumber, data, _currentTable, uStatus, Nothing, Nothing)
result = True
Else
result = False
End If
End If
End If
Return result
End Function
Private Shared Sub PrintBill(ByVal IsLaress As Boolean, ByVal machineNumber As String, ByVal data As List(Of BillList), ByVal currenttable As Table, ByVal userStatus As LoginUserStatus)
Try
PrintBillListDoc(IsLaress, data, machineNumber, currenttable, userStatus) '打印小票
PrintDoc(data, machineNumber, currenttable, userStatus) '打印总单
Catch ex As Exception
'note 打印日志
End Try
End Sub
''' <summary>
''' 将数据追加到BillList中
''' </summary>
''' <param name="orderDish"></param>
''' <param name="IsLaress"></param>
''' <param name="nLargessManId"></param>
''' <returns></returns>
''' <remarks></remarks>
Private Shared Function InsertDataToBillList(ByVal orderDish As Entities.OrderDishes, ByVal IsLaress As Boolean, ByVal nLargessManId As Integer) As BillList
'菜品 套餐号为空则是菜品否则为套餐
If String.IsNullOrEmpty(orderDish.ComboNumber.Trim) Then
Return InsertDishToList(orderDish, IsLaress, nLargessManId)
End If
'套餐
Return InsertSuitToList(orderDish, IsLaress, nLargessManId)
End Function
''' <summary>
''' 将套餐子类数据追加到BillList对象中
''' </summary>
''' <param name="suitMenu"></param>
''' <param name="cookState"></param>
''' <param name="IsLaress"></param>
''' <param name="nLargessManId"></param>
''' <returns></returns>
''' <remarks></remarks>
Private Shared Function InsertSuitMenuToList(ByVal suitMenu As SuitMenu, _
ByVal cookState As String, _
ByVal IsLaress As Boolean, _
ByVal nLargessManId As Integer)
If suitMenu Is Nothing Then
Return Nothing
End If
'消费菜式状态
Dim curCookState As String = cookState.Trim
Dim curCookStateName As String = String.Empty
Dim ckState As EnumCookState
If Not String.IsNullOrEmpty(curCookState) Then
ckState = curCookState
curCookStateName = BusinessUtil.GetCookStateName(ckState)
End If
'名称
Dim name As String = suitMenu.Name
'数量
Dim count As Decimal = suitMenu.Count
'价格
Dim price As Decimal = suitMenu.Price
'备注
Dim remark As String = String.Empty
'单价
Dim UnitId As Integer = suitMenu.UnitId
Dim UnitName As String = suitMenu.UnitName
'厨房
Dim CookRoomId As Integer = suitMenu.CookRoomId
'帐单明细状态
Dim listState As BillListState = IIf(IsLaress, BillListState.Largess, BillListState.Natural)
'是否收服务费
Dim IsServerFee = False
Dim IsAgio = False
'M:菜品
Dim Id As Integer = suitMenu.ID
Dim IdSource As String = "SM"
Dim result As BillList = New BillList(Id, name, listState, ckState, curCookStateName, CookRoomId, count, price, remark, _
IdSource, UnitId, UnitName, nLargessManId, IsServerFee, IsAgio)
Return result
End Function
''' <summary>
''' 将套餐数据追加到BillList对象中
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Private Shared Function InsertSuitToList(ByVal orderDish As Entities.OrderDishes, ByVal IsLaress As Boolean, ByVal nLargessManId As Integer)
'消费菜式状态
Dim curCookState As String = orderDish.WaitState.Trim
Dim curCookStateName As String = String.Empty
Dim ckState As EnumCookState
If Not String.IsNullOrEmpty(curCookState) Then
ckState = curCookState
curCookStateName = BusinessUtil.GetCookStateName(ckState)
End If
'NOTE 根据CODE取得套餐对象
Dim suit As Suit = GlobalDataProvider.Menus.GetSuitByCode(orderDish.ComboNumber.Trim)
If suit Is Nothing Then
Return Nothing
End If
'名称
Dim name As String = suit.Name
'数量
Dim count As Decimal = orderDish.Count
'价格
Dim price As Decimal = suit.Price
'备注
Dim remark As String = String.Empty
'单价
Dim UnitId As Integer = suit.UnitId
Dim UnitName As String = suit.UnitName
'厨房
Dim CookRoomId As Integer = suit.CookRoomId
'帐单明细状态
Dim listState As BillListState = IIf(IsLaress, BillListState.Largess, BillListState.Natural)
'是否收服务费
Dim IsServerFee = suit.IsServerFee
Dim IsAgio = suit.IsAgio
'S:套餐
Dim Id As Integer = suit.ID
Dim IdSource As String = "S"
Dim result As BillList = New BillList(Id, name, listState, ckState, curCookStateName, CookRoomId, count, price, remark, _
IdSource, UnitId, UnitName, nLargessManId, IsServerFee, IsAgio)
'取得套餐子类
Dim lstSuitMenu As List(Of SuitMenu) = GlobalDataProvider.Menus.GetMenusFromSuit(orderDish.ComboNumber.Trim)
If Not lstSuitMenu Is Nothing AndAlso lstSuitMenu.Count > 0 Then
For Each item As SuitMenu In lstSuitMenu
result.Items.Add(InsertSuitMenuToList(item, orderDish.WaitState.Trim, IsLaress, nLargessManId))
Next
End If
Return result
End Function
''' <summary>
''' 将菜品数据追加到BillList对象中
''' </summary>
''' <param name="orderDish"></param>
''' <param name="IsLaress"></param>
''' <param name="nLargessManId"></param>
''' <returns></returns>
''' <remarks></remarks>
Private Shared Function InsertDishToList(ByVal orderDish As Entities.OrderDishes, _
ByVal IsLaress As Boolean, _
ByVal nLargessManId As Integer) As BillList
'消费菜式状态
Dim curCookState As String = orderDish.WaitState.Trim
Dim curCookStateName As String = String.Empty
Dim ckState As EnumCookState
'If Not String.IsNullOrEmpty(curCookState) Then
' ckState = curCookState
' curCookStateName = BusinessUtil.GetCookStateName(ckState)
'End If
'NOTE 手持机无法输入消费菜式状态 默认为"即起"
ckState = EnumCookState.Checked
curCookStateName = BusinessUtil.GetCookStateName(ckState)
'Note NULL 取得菜对象
Dim menu As Menu = GlobalDataProvider.Menus.GetMenuByCode(orderDish.MenuId.Trim)
'菜名
Dim name As String = menu.Name
'数量
Dim count As Decimal = orderDish.Count
'总份数统计
_copiesCount += count
'价格
Dim price As Decimal = menu.Price
'备注
Dim remark As String = menu.Remark
'单价
Dim UnitId As Integer = menu.UnitId
Dim UnitName As String = menu.UnitName
'厨房
Dim CookRoomId As Integer = menu.CookroomId
'帐单明细状态
Dim listState As BillListState = IIf(IsLaress, BillListState.Largess, BillListState.Natural)
'是否收服务费
Dim IsServerFee = menu.IsServerFee
Dim IsAgio = menu.IsAgio
'M:菜品
Dim Id As Integer = menu.ID
Dim IdSource As String = "M"
Dim dish As BillList = New BillList(Id, name, listState, ckState, curCookStateName, CookRoomId, count, price, remark, _
IdSource, UnitId, UnitName, nLargessManId, IsServerFee, IsAgio)
'如果有做法，则追加做法对象
If Not String.IsNullOrEmpty(orderDish.MakeWay.Trim) Then
'制作方法中的任何一位不是数字，则认为输入的是内容而不是制作法的编号。
If IsNumeric(orderDish.MakeWay.Trim) Then
' Feihu Huang 2009/12/29
'去做法的时候，3位取法优先，如果不是3位不是做法，则跳1位，取下三位，取到为止
Dim s As String
s = orderDish.MakeWay.Trim
Dim threeBytes As String
Dim i As Integer
Try
For i = 0 To s.Length - 2
threeBytes = s.Substring(i, 3)
If Wireless.Common.MenusClass.IsAFunction(threeBytes) = True Then
System.Console.WriteLine(threeBytes)
' '根据CODE取得菜品做法对象
'orderDish.WaitState.Trim, _
Dim makeWayItem As BillList = SetDataToMakeWay(threeBytes, _
"1", _
IsLaress, _
nLargessManId)
If Not makeWayItem Is Nothing Then
dish.Items.Add(makeWayItem)
dish.MenuRemark += makeWayItem.MenuName + ","
End If
i = i + 2
End If
Next
If Not dish.MenuRemark Is Nothing AndAlso dish.MenuRemark.Length > 0 Then
dish.MenuRemark = dish.MenuRemark.Substring(0, dish.MenuRemark.Length - 1)
End If
Catch ex As Exception
End Try
''每3位为一做法的Code
'Dim functionCodes() As String = MobilFormatUtil.SplitStringByLenth(orderDish.MakeWay.Trim, 3)
'For Each code As String In functionCodes
' '根据CODE取得菜品做法对象
' Dim makeWayItem As BillList = SetDataToMakeWay(code, _
' orderDish.WaitState.Trim, _
' IsLaress, _
' nLargessManId)
' If Not makeWayItem Is Nothing Then
' dish.Items.Add(makeWayItem)
' End If
'Next
End If
End If
Return dish
End Function
''' <summary>
''' 将做法数据追加到BillList对象中
''' </summary>
''' <param name="makeWayCode"></param>
''' <param name="waitState"></param>
''' <param name="IsLaress"></param>
''' <param name="nLargessManId"></param>
''' <returns></returns>
''' <remarks></remarks>
Private Shared Function SetDataToMakeWay(ByVal makeWayCode As String, _
ByVal waitState As String, _
ByVal IsLaress As Boolean, _
ByVal nLargessManId As Integer) As BillList
'消费菜式状态
Dim curCookState As String = waitState
Dim curCookStateName As String = String.Empty
Dim ckState As EnumCookState
If Not String.IsNullOrEmpty(curCookState) Then
ckState = curCookState
curCookStateName = BusinessUtil.GetCookStateName(ckState)
End If
'NOTE 根据CODE取得菜品做法对象
Dim makeWay As MenuFunction = GlobalDataProvider.Menus.GetFunctionById(makeWayCode)
If makeWay Is Nothing Then
Return Nothing
End If
'名称
Dim name As String = makeWay.Name
'数量
Dim count As Decimal = 1
'价格
Dim price As Decimal = makeWay.Price
'备注
Dim remark As String = String.Empty
'单价
Dim UnitId As Integer = makeWay.UnitId
Dim UnitName As String = makeWay.UnitName
'厨房
Dim CookRoomId As Integer = -1
'帐单明细状态
Dim listState As BillListState = IIf(IsLaress, BillListState.Largess, BillListState.Natural)
'是否收服务费
Dim IsServerFee = makeWay.IsServerFee
Dim IsAgio = makeWay.IsAgio
'M:菜品
Dim Id As Integer = makeWay.ID
Dim IdSource As String = "F"
Dim makeWayItem As BillList = New BillList(Id, name, listState, ckState, curCookStateName, CookRoomId, count, price, remark, _
IdSource, UnitId, UnitName, nLargessManId, IsServerFee, IsAgio)
Return makeWayItem
End Function
#Region "打印小票"
Private Shared Sub PrintBillListDoc(ByVal IsLaress As Boolean, ByVal data As List(Of BillList), ByVal machineCode As String, ByVal currenttable As Table, ByVal userStatus As LoginUserStatus)
'TODO 手持设备的用户名
'Dim currentUserName As String = machineCode
Dim currentUserName As String = userStatus.UserName
Dim BLCol As New BillListCollection
For Each l As BillList In data
If l.IsPrintB() Then
BLCol.Add(l)
End If
Next
If BLCol.Count > 0 Then
For Each BL As BillList In BLCol
If IsPrintPassPrintCenter Then
Dim L As New SystemLicenseRule(True)
Dim P As New RemotingConnection
Dim C As CookRoom = CType(CookRoomCollection.GetOneCookRooms(BL.CookRoomId)(0), CookRoom)
Dim BillListDoc As New PrintBillListRpt(IIf(IsLaress, "赠送", BL.CurrentCookStateName), currenttable.Name, _
currentUserName, Now.ToString, BL.MenuName, BL.Count, BL.UnitName, BL.Price, _
BL.Count * BL.Price, BL.MenuRemark, C.PrintAreaCode, _
L.CurLicense.name, currenttable.DepartmentName, currenttable.HallName, _
currenttable.ServerFee, 0, 0, 0, 0, 0)
P.LoadBillListPiaoRpt(BillListDoc)
Else
End If
Next
'Dim doc As New Doc_TolBill(cols, Me._checkedTbl.Name, AppConfig.CurrentUser.cName, IIf(cols(0).ListState = BillListState.Natural, "总单", "赠送"))
'doc.PrintController = New System.Drawing.Printing.StandardPrintController()
'doc.PrintDoc()
End If
End Sub
''' <summary>
''' 是否用打印中心来打印账单
''' </summary>
''' <remarks></remarks>
Public Shared ReadOnly Property IsPrintPassPrintCenter() As Boolean
Get
Dim p As New SystemParamsRule(True)
Return p.IsPrintPassPrintCenter
End Get
''Get
'' Return _IsPrintPassPrintCenter
''End Get
''Set(ByVal value As Boolean)
'' Dim p As New SystemParamsRule(True)
'' _IsPrintPassPrintCenter = p.IsPrintPassPrintCenter
''End Set
End Property
#End Region
#Region "打印总单"
Private Shared Sub PrintDoc(ByVal data As List(Of BillList), ByVal machineCode As String, ByVal currenttable As Table, ByVal userStatus As LoginUserStatus)
Dim Plsts As New BillListCollection
For Each l As BillList In data
If l.IsPrintA() Then
Plsts.Add(l)
End If
Next
If Plsts.Count > 0 Then
Dim L As New SystemLicenseRule(True)
''If AppConfig.IsPrintPassPrintCenter Then
'' ''用C1REPORT来打印
'' Dim BLdata As PrintBillListData = New PrintBillListData("zongdan")
'' For Each BL As BillList In Plsts
'' BLdata.AddOneRow(BL)
'' Next
'' Dim P As New RemotingConnection
'' 'Dim C As CookRoom = CType(CookRoomCollection.GetOneCookRooms(lst.CookRoomId)(0), CookRoom)
'' Dim pbr As New PrintBillListRpt("总单", Me._checkedTbl.Name, AppConfig.CurrentUser.cName, _
'' Now.ToString, "", 0, "", 0, _
'' 0, "", _PrintArea, _
'' L.CurLicense.name, _checkedTbl.DepartmentName, _checkedTbl.HallName, _
'' Me._checkedTbl.ServerFee, Plsts.TolServerFeeMoney(Me._checkedTbl.ServerFee), 0, 0, Plsts.TolNaturalMoney, Plsts.TolLargessMoney) 'C.PrintAreaCode)
'' P.LoadBillListZongRpt(BLdata._BillListData, pbr)
'' ''用C1REPORT来打印
''Else
''用画的PrintDocument来打印()
Dim msg As New CashBillMsg
msg.title = IIf(Plsts(0).ListState = BillListState.Natural, "总单", "赠送")
msg.HotelName = L.CurLicense.name
msg.DprtName = currenttable.DepartmentName
msg.HallName = currenttable.HallName
msg.TableCode = currenttable.Code
msg.TableName = currenttable.Name
msg.PrintCount = 0
msg.BillCode = ""
'TODO 手持设备的用户名
msg.UserCode = userStatus.UserCode
msg.UserName = userStatus.UserName
msg.GuestCount = currenttable.GetOpenTables(0).GuestCount
msg.MenuInTime = Now
msg.ServerFeeRate = currenttable.ServerFee
msg.ServerFee = Plsts.TolServerFeeMoney(currenttable.ServerFee)
msg.AgioRate = 0
msg.Agio = 0
msg.MenuMoney = Plsts.TolAllMoney
msg.TolMoney = Plsts.TolAllMoney + Plsts.TolServerFeeMoney(currenttable.ServerFee)
'Dim doc As New Doc_TolBill(cols, Me._checkedTbl.Name, AppConfig.CurrentUser.cName, IIf(cols(0).ListState = BillListState.Natural, "总单", "赠送"))
Dim doc As New Doc_TolBill(Plsts, msg)
doc.PrintController = New System.Drawing.Printing.StandardPrintController()
doc.PrintDoc()
''用画的PrintDocument来打印
''End If
End If
End Sub
#End Region
End Class
End Namespace