VB.NET 委托处理 传递参数

代码

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

 

转载于:https://www.cnblogs.com/callbin/archive/2010/01/03/1638104.html