二、DataAccess层代码
代码
Imports PMS.DataAccess.DBUtil
Imports System.Data
Imports System.Data.SqlClient
Imports HNA.Common.ServerData
Public Class BillAccess
#Region "Shared function"
Public Shared Function SaveBill(ByVal hotelId As Integer, ByVal vBill As BillBase, ByVal userId As Integer, ByVal computer As String) As Boolean
Dim parms(24) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Value = vBill.Id
parms(2) = New SqlParameter("@cTeamName", SqlDbType.NVarChar, 100)
parms(2).Value = vBill.TeamName
parms(3) = New SqlParameter("@nMemberId", SqlDbType.Int)
parms(3).Value = vBill.MemberId
parms(4) = New SqlParameter("@cMemberCardNo", SqlDbType.NVarChar, 100)
parms(4).Value = vBill.MemberCardNo
parms(5) = New SqlParameter("@cCompany", SqlDbType.NVarChar, 100)
parms(5).Value = vBill.Company
parms(6) = New SqlParameter("@cPactNo", SqlDbType.NVarChar, 100)
parms(6).Value = vBill.PactNo
parms(7) = New SqlParameter("@cPactCompany", SqlDbType.NVarChar, 100)
parms(7).Value = vBill.PactCompany
parms(8) = New SqlParameter("@cGuestName", SqlDbType.NVarChar, 100)
parms(8).Value = vBill.GuestName
parms(9) = New SqlParameter("@cMobileNo", SqlDbType.NVarChar, 100)
parms(9).Value = vBill.MobileNo
parms(10) = New SqlParameter("@cTelphoneHome", SqlDbType.NVarChar, 100)
parms(10).Value = vBill.TelphoneHome
parms(11) = New SqlParameter("@cAddressHome", SqlDbType.NVarChar, 100)
parms(11).Value = vBill.AddressHome
parms(12) = New SqlParameter("@cAddressCompany", SqlDbType.NVarChar, 100)
parms(12).Value = vBill.AddressCompany
parms(13) = New SqlParameter("@nAccountTypeId", SqlDbType.Int)
parms(13).Value = vBill.AccountTypeId
parms(14) = New SqlParameter("@cBalanceNo", SqlDbType.NVarChar, 100)
parms(14).Value = vBill.BalanceNo
parms(15) = New SqlParameter("@nRentKindId", SqlDbType.Int)
parms(15).Value = vBill.RentKindId
parms(16) = New SqlParameter("@nAuthorizerId", SqlDbType.Int)
parms(16).Value = vBill.AuthorizerId
parms(17) = New SqlParameter("@nSalesmanId", SqlDbType.Int)
parms(17).Value = vBill.SalesmanId
parms(18) = New SqlParameter("@dArrivedTime", SqlDbType.DateTime)
parms(18).Value = vBill.ArrivedTime
parms(19) = New SqlParameter("@dLeftTime", SqlDbType.DateTime)
parms(19).Value = vBill.LeftTime
parms(20) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(20).Value = userId
parms(21) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(21).Value = computer
parms(22) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(22).Value = vBill.Remark
parms(23) = New SqlParameter("@cTelphoneCompany", SqlDbType.NVarChar, 100)
parms(23).Value = vBill.TelphoneCompany
parms(24) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(24).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_UpdateBill", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
'Public Shared Function SaveBill(ByVal hotelId As Integer, ByVal Id As Integer, ByVal teamName As String, ByVal memberId As Integer, ByVal memberCardNo As String, _
' ByVal company As String, ByVal pactNo As String, ByVal pactCompany As String, ByVal guestName As String, ByVal mobileNo As String, _
' ByVal telphoneHome As String, ByVal telphoneCompany As String, ByVal addressHome As String, ByVal addressCompany As String, _
' ByVal accountTypeId As Integer, ByVal balanceNo As String, ByVal rentKindId As Integer, ByVal authorizerId As Integer, _
' ByVal salesmanId As Integer, ByVal userId As Integer, ByVal computer As String, ByVal remark As String, _
' ByVal ArrivedTime As DateTime, ByVal LeftTime As DateTime) As Boolean
' Dim parms(24) As SqlParameter
' parms(0) = New SqlParameter("@ret", SqlDbType.Int)
' parms(0).Direction = ParameterDirection.Output
' parms(1) = New SqlParameter("@nId", SqlDbType.Int)
' parms(1).Value = Id
' parms(2) = New SqlParameter("@cTeamName", SqlDbType.NVarChar, 100)
' parms(2).Value = teamName
' parms(3) = New SqlParameter("@nMemberId", SqlDbType.Int)
' parms(3).Value = memberId
' parms(4) = New SqlParameter("@cMemberCardNo", SqlDbType.NVarChar, 100)
' parms(4).Value = memberCardNo
' parms(5) = New SqlParameter("@cCompany", SqlDbType.NVarChar, 100)
' parms(5).Value = company
' parms(6) = New SqlParameter("@cPactNo", SqlDbType.NVarChar, 100)
' parms(6).Value = pactNo
' parms(7) = New SqlParameter("@cPactCompany", SqlDbType.NVarChar, 100)
' parms(7).Value = pactCompany
' parms(8) = New SqlParameter("@cGuestName", SqlDbType.NVarChar, 100)
' parms(8).Value = guestName
' parms(9) = New SqlParameter("@cMobileNo", SqlDbType.NVarChar, 100)
' parms(9).Value = mobileNo
' parms(10) = New SqlParameter("@cTelphoneHome", SqlDbType.NVarChar, 100)
' parms(10).Value = telphoneHome
' parms(11) = New SqlParameter("@cAddressHome", SqlDbType.NVarChar, 100)
' parms(11).Value = addressHome
' parms(12) = New SqlParameter("@cAddressCompany", SqlDbType.NVarChar, 100)
' parms(12).Value = addressCompany
' parms(13) = New SqlParameter("@nAccountTypeId", SqlDbType.Int)
' parms(13).Value = accountTypeId
' parms(14) = New SqlParameter("@cBalanceNo", SqlDbType.NVarChar, 100)
' parms(14).Value = balanceNo
' parms(15) = New SqlParameter("@nRentKindId", SqlDbType.Int)
' parms(15).Value = rentKindId
' parms(16) = New SqlParameter("@nAuthorizerId", SqlDbType.Int)
' parms(16).Value = authorizerId
' parms(17) = New SqlParameter("@nSalesmanId", SqlDbType.Int)
' parms(17).Value = salesmanId
' parms(18) = New SqlParameter("@dArrivedTime", SqlDbType.DateTime)
' parms(18).Value = ArrivedTime
' parms(19) = New SqlParameter("@dLeftTime", SqlDbType.DateTime)
' parms(19).Value = LeftTime
' parms(20) = New SqlParameter("@nUserId", SqlDbType.Int)
' parms(20).Value = userId
' parms(21) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
' parms(21).Value = computer
' parms(22) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
' parms(22).Value = remark
' parms(23) = New SqlParameter("@cTelphoneCompany", SqlDbType.NVarChar, 100)
' parms(23).Value = telphoneCompany
' parms(24) = New SqlParameter("@nHotelId", SqlDbType.Int)
' parms(24).Value = hotelId
' Util.ExecProc("", CnnStr.MainCnnStr, "P_UpdateBill", Nothing, parms)
' If parms(0).Value = 1 Then
' Return True
' Else
' Return False
' End If
'End Function
'Public Shared Function CreateSingleBill(ByVal hotelId As Integer, ByVal teamName As String, ByVal memberId As Integer, ByVal memberCardNo As String, _
' ByVal company As String, ByVal pactNo As String, ByVal pactCompany As String, ByVal guestName As String, ByVal mobileNo As String, _
' ByVal telphoneHome As String, ByVal telphoneCompany As String, ByVal addressHome As String, ByVal addressCompany As String, _
' ByVal accountTypeId As Integer, ByVal balanceNo As String, ByVal rentKindId As Integer, ByVal authorizerId As Integer, _
' ByVal salesmanId As Integer, ByVal userId As Integer, ByVal computer As String, ByVal remark As String) As Boolean
Public Shared Function CreateSingleBill(ByVal hotelId As Integer, ByVal vBill As BillBase) As Boolean
Dim parms(21) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@cTeamName", SqlDbType.NVarChar, 100)
parms(1).Value = vBill.TeamName
parms(2) = New SqlParameter("@nMemberId", SqlDbType.Int)
parms(2).Value = vBill.MemberId
parms(3) = New SqlParameter("@cMemberCardNo", SqlDbType.NVarChar, 100)
parms(3).Value = vBill.MemberCardNo
parms(4) = New SqlParameter("@cCompany", SqlDbType.NVarChar, 100)
parms(4).Value = vBill.Company
parms(5) = New SqlParameter("@cPactNo", SqlDbType.NVarChar, 100)
parms(5).Value = vBill.PactNo
parms(6) = New SqlParameter("@cPactCompany", SqlDbType.NVarChar, 100)
parms(6).Value = vBill.PactCompany
parms(7) = New SqlParameter("@cGuestName", SqlDbType.NVarChar, 100)
parms(7).Value = vBill.GuestName
parms(8) = New SqlParameter("@cMobileNo", SqlDbType.NVarChar, 100)
parms(8).Value = vBill.MobileNo
parms(9) = New SqlParameter("@cTelphoneHome", SqlDbType.NVarChar, 100)
parms(9).Value = vBill.TelphoneHome
parms(10) = New SqlParameter("@cTelphoneCompany", SqlDbType.NVarChar, 100)
parms(10).Value = vBill.TelphoneCompany
parms(11) = New SqlParameter("@cAddressHome", SqlDbType.NVarChar, 100)
parms(11).Value = vBill.AddressHome
parms(12) = New SqlParameter("@cAddressCompany", SqlDbType.NVarChar, 100)
parms(12).Value = vBill.AddressCompany
parms(13) = New SqlParameter("@nAccountTypeId", SqlDbType.Int)
parms(13).Value = vBill.AccountTypeId
parms(14) = New SqlParameter("@cBalanceNo", SqlDbType.NVarChar, 100)
parms(14).Value = vBill.BalanceNo
parms(15) = New SqlParameter("@nRentKindId", SqlDbType.Int)
parms(15).Value = vBill.RentKindId
parms(16) = New SqlParameter("@nAuthorizerId", SqlDbType.Int)
parms(16).Value = vBill.AccountTypeId
parms(17) = New SqlParameter("@nSalesmanId", SqlDbType.Int)
parms(17).Value = vBill.SalesmanId
parms(18) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(18).Value = vBill.UserId
parms(19) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(19).Value = vBill.Computer
parms(20) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(20).Value = vBill.Remark
parms(21) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(21).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_CreateSingleBill", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function GetSingleBillList(ByVal hotelId As Integer, ByVal searchStr As String, ByVal tag As Integer) As DataTable
Dim data As DataSet
Dim parms(3) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@searchStr", SqlDbType.NVarChar, 4000)
parms(1).Value = IIf(searchStr = "", DBNull.Value, searchStr)
parms(2) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(2).Value = hotelId
parms(3) = New SqlParameter("@tag", SqlDbType.Int)
parms(3).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetSingleBillList", data, parms)
If parms(0).Value = 1 Then
If data.Tables.Count > 0 Then
Return data.Tables(0)
Else
Return Nothing
End If
Else
Return Nothing
End If
End Function
Public Shared Function GetSingleBillListPause(ByVal hotelId As Integer) As DataTable
Return Pub.GetDatatable(hotelId, CnnStr.MainCnnStr, "P_ZZ_GetSingleBillListPause")
End Function
Public Shared Function GetTeamBillList(ByVal hotelId As Integer, ByVal searchStr As String, ByVal tag As Integer) As DataTable()
Dim ds As DataSet
Dim parms(3) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(1).Value = hotelId
parms(2) = New SqlParameter("@searchStr", SqlDbType.NVarChar, 4000)
parms(2).Value = IIf(searchStr = "", DBNull.Value, searchStr)
parms(3) = New SqlParameter("@tag", SqlDbType.Int)
parms(3).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetTeamBillList", ds, parms)
If parms(0).Value = 1 Then
If ds Is Nothing Then Return Nothing
If ds.Tables.Count <> 2 Then Return Nothing
Return New DataTable(1) {ds.Tables(0), ds.Tables(1)}
Else
Return Nothing
End If
End Function
Public Shared Function GetTeamBillListPause(ByVal hotelId As Integer) As DataTable()
Dim ds As DataSet
Dim parms(0) As SqlParameter
parms(0) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(0).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_ZZ_GetTeamBillListPause", ds, parms)
If ds Is Nothing Then Return Nothing
If ds.Tables.Count <> 2 Then Return Nothing
Return New DataTable(1) {ds.Tables(0), ds.Tables(1)}
End Function
Private Shared Function GetCnmList(ByVal hotelId As Integer, ByVal BillId As Integer, ByVal procName As String) As DataTable
Dim data As DataSet
Dim parms(2) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nBillId", SqlDbType.Int)
parms(1).Value = BillId
parms(2) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(2).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, procName, data, parms)
If parms(0).Value = 1 Then
If data.Tables.Count > 0 Then
Return data.Tables(0)
Else
Return Nothing
End If
Else
Return Nothing
End If
End Function
Public Shared Function GetCnmListAll(ByVal hotelId As Integer, ByVal BillId As Integer) As DataTable
Return GetCnmList(hotelId, BillId, "P_GetBillCnmList_All")
End Function
Public Shared Function GetCnmListCancel(ByVal hotelId As Integer, ByVal BillId As Integer) As DataTable
Return GetCnmList(hotelId, BillId, "P_GetBillCnmList_Cancel")
End Function
Public Shared Function GetCnmListCashed(ByVal hotelId As Integer, ByVal BillId As Integer) As DataTable
Return GetCnmList(hotelId, BillId, "P_GetBillCnmList_Cashed")
End Function
Public Shared Function GetCnmListNoCash(ByVal hotelId As Integer, ByVal BillId As Integer) As DataTable
Return GetCnmList(hotelId, BillId, "P_GetBillCnmList_NoCashed")
End Function
Public Shared Function GetCnmListTurnIn(ByVal hotelId As Integer, ByVal BillId As Integer) As DataTable
Return GetCnmList(hotelId, BillId, "P_GetBillCnmList_TurnIn")
End Function
Public Shared Function GetCnmListTurnOut(ByVal hotelId As Integer, ByVal BillId As Integer) As DataTable
Return GetCnmList(hotelId, BillId, "P_GetBillCnmList_TurnOut")
End Function
Public Shared Function AddConsume(ByVal hotelId As Integer, ByVal billId As Integer, _
ByVal productId As Integer, ByVal productTypeId As Integer, ByVal count As Decimal, _
ByVal price As Decimal, ByVal userId As Integer, ByVal computer As String, _
ByVal remark As String, ByVal jobTimeListId As Integer, ByVal outBillCode As String, ByVal tag As Integer) As Boolean
Dim parms(12) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nbillId", SqlDbType.Int)
parms(1).Value = billId
parms(2) = New SqlParameter("@nProductId", SqlDbType.Int)
parms(2).Value = productId
parms(3) = New SqlParameter("@nProductTypeId", SqlDbType.Int)
parms(3).Value = productTypeId
parms(4) = New SqlParameter("@nCount", SqlDbType.Decimal)
parms(4).Value = count
parms(5) = New SqlParameter("@nPrice", SqlDbType.Decimal)
parms(5).Value = price
parms(6) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(6).Value = userId
parms(7) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(7).Value = computer
parms(8) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(8).Value = remark
parms(9) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(9).Value = jobTimeListId
parms(10) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(10).Value = hotelId
parms(11) = New SqlParameter("@cOutBillCode", SqlDbType.NVarChar, 50)
parms(11).Value = outBillCode
parms(12) = New SqlParameter("@tag", SqlDbType.Int)
parms(12).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_InsertBillCnmList", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function CancelConsume(ByVal hotelId As Integer, ByVal CnmListId As Integer, _
ByVal userId As Integer, ByVal computer As String, _
ByVal remark As String, ByVal jobTimeListId As Integer, ByVal remarkId As Integer) As Boolean
Dim parms(7) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nBillCnmListId", SqlDbType.Int)
parms(1).Value = CnmListId
parms(2) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(2).Value = userId
parms(3) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(3).Value = computer
parms(4) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(4).Value = remark
parms(5) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(5).Value = jobTimeListId
parms(6) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(6).Value = hotelId
parms(7) = New SqlParameter("@nRemarkId", SqlDbType.Int)
parms(7).Value = remarkId
Util.ExecProc("", CnnStr.MainCnnStr, "P_CancelBillCnmList", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function GetCheckedMProductList(ByVal hotelId As Integer, ByVal BillId As Integer) As DataTable
Return GetCnmList(hotelId, BillId, "P_GetBillMPrdtList")
End Function
Public Shared Function AddCheckedCnm(ByRef id As Integer, ByVal hotelId As Integer, ByVal billId As Integer, _
ByVal productId As Integer, ByVal productTypeId As Integer, ByVal count As Decimal, _
ByVal price As Decimal, ByVal userId As Integer, ByVal computer As String, _
ByVal remark As String, ByVal jobTimeListId As Integer, ByVal isNow As Boolean, ByVal tag As Integer) As Boolean
Dim parms(13) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nbillId", SqlDbType.Int)
parms(1).Value = billId
parms(2) = New SqlParameter("@nProductId", SqlDbType.Int)
parms(2).Value = productId
parms(3) = New SqlParameter("@nProductTypeId", SqlDbType.Int)
parms(3).Value = productTypeId
parms(4) = New SqlParameter("@nCount", SqlDbType.Decimal)
parms(4).Value = count
parms(5) = New SqlParameter("@nPrice", SqlDbType.Decimal)
parms(5).Value = price
parms(6) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(6).Value = userId
parms(7) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(7).Value = computer
parms(8) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(8).Value = remark
parms(9) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(9).Value = jobTimeListId
parms(10) = New SqlParameter("@bIsNow", SqlDbType.Bit)
parms(10).Value = isNow
parms(11) = New SqlParameter("@nId", SqlDbType.Int)
parms(11).Direction = ParameterDirection.Output
parms(12) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(12).Value = hotelId
parms(13) = New SqlParameter("@tag", SqlDbType.Int)
parms(13).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_InertBillMPrdtList", Nothing, parms)
If parms(0).Value = 1 Then
id = parms(11).Value
Return True
Else
Return False
End If
End Function
Public Shared Function CancelCheckedCnm(ByVal hotelId As Integer, ByVal CnmListId As Integer, _
ByVal userId As Integer, ByVal computer As String, _
ByVal remark As String, ByVal ProductTypeId As Integer, ByVal remarkId As Integer) As Boolean
Dim parms(7) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Value = CnmListId
parms(2) = New SqlParameter("@nProductTypeId", SqlDbType.Int)
parms(2).Value = ProductTypeId
parms(3) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(3).Value = userId
parms(4) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(4).Value = computer
parms(5) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(5).Value = remark
parms(6) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(6).Value = hotelId
parms(7) = New SqlParameter("@nRemarkId", SqlDbType.Int)
parms(7).Value = remarkId
Util.ExecProc("", CnnStr.MainCnnStr, "P_CancelBillMPrdtList", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function GetPayCashList(ByVal hotelId As Integer, ByVal parentId As Integer) As DataTable
Return GetCashList(hotelId, parentId, 1)
End Function
Public Shared Function GetPreCashList(ByVal hotelId As Integer, ByVal parentId As Integer) As DataTable
Return GetCashList(hotelId, parentId, 3)
End Function
Public Shared Function GetCashList(ByVal hotelId As Integer, ByVal ParentId As Integer, ByVal tag As Integer) As DataTable
Dim data As DataSet
Dim parms(3) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nParentId", SqlDbType.Int)
parms(1).Value = ParentId
parms(2) = New SqlParameter("@tag", SqlDbType.Int)
parms(2).Value = tag
parms(3) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(3).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetCashList", data, parms)
If parms(0).Value = 1 Then
If data.Tables.Count > 0 Then
Return data.Tables(0)
Else
Return Nothing
End If
Else
Return Nothing
End If
End Function
Public Shared Function GetAccountCtrlList(ByVal hotelId As Integer, ByVal ParentId As Integer, ByVal tag As Integer) As DataTable
Dim data As DataSet
Dim parms(3) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nParentId", SqlDbType.Int)
parms(1).Value = ParentId
parms(2) = New SqlParameter("@tag", SqlDbType.Int)
parms(2).Value = tag
parms(3) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(3).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetAccountCtrlList", data, parms)
If parms(0).Value = 1 Then
If data.Tables.Count > 0 Then
Return data.Tables(0)
Else
Return Nothing
End If
Else
Return Nothing
End If
End Function
'Public Shared Function InsertPayCashList(ByVal id As Integer, ByVal hotelId As Integer, ByVal ParentId As Integer, ByVal payTypeId As Integer, ByVal payTypeName As String, _
' ByVal rate As Decimal, ByVal money As Decimal, ByVal jobTimeListId As Integer, ByVal userId As Integer, ByVal computer As String, ByVal remark As String) As Boolean
Public Shared Function InsertPayCashList(ByVal id As Integer, ByVal hotelId As Integer, ByVal ParentId As Integer, ByVal item As CashItemBase) As Boolean
Return InsertCashList(id, hotelId, ParentId, item.PayTypeId, item.PayTypeName, item.Rate, item.Money, item.JobTimeListId, item.UserId, item.Computer, item.Remark, "", 1)
End Function
'Public Shared Function InsertPreCashList(ByVal id As Integer, ByVal hotelId As Integer, ByVal ParentId As Integer, ByVal payTypeId As Integer, ByVal payTypeName As String, _
' ByVal rate As Decimal, ByVal money As Decimal, ByVal jobTimeListId As Integer, ByVal userId As Integer, ByVal computer As String, ByVal remark As String, ByVal PreBillCode As String) As Boolean
Public Shared Function InsertPreCashList(ByVal id As Integer, ByVal hotelId As Integer, ByVal ParentId As Integer, ByVal item As CashItemBase) As Boolean
Return InsertCashList(id, hotelId, ParentId, item.PayTypeId, item.PayTypeName, item.Rate, item.Money, item.JobTimeListId, item.UserId, item.Computer, item.Remark, item.PreBillCode, 3)
End Function
Public Shared Function InsertCashList(ByRef id As Integer, ByVal hotelId As Integer, ByVal ParentId As Integer, ByVal payTypeId As Integer, ByVal payTypeName As String, _
ByVal rate As Decimal, ByVal money As Decimal, ByVal jobTimeListId As Integer, ByVal userId As Integer, ByVal computer As String, ByVal remark As String, ByVal PreBillCode As String, ByVal tag As Integer) As Boolean
Dim parms(13) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nParentId", SqlDbType.Int)
parms(1).Value = ParentId
parms(2) = New SqlParameter("@nPayTypeId", SqlDbType.Int)
parms(2).Value = payTypeId
parms(3) = New SqlParameter("@cPayTypeName", SqlDbType.NVarChar, 50)
parms(3).Value = payTypeName
parms(4) = New SqlParameter("@nRate", SqlDbType.Decimal)
parms(4).Value = rate
parms(5) = New SqlParameter("@nMoney", SqlDbType.Decimal)
parms(5).Value = money
parms(6) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(6).Value = jobTimeListId
parms(7) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(7).Value = userId
parms(8) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(8).Value = computer
parms(9) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(9).Value = remark
parms(10) = New SqlParameter("@tag", SqlDbType.Int)
parms(10).Value = tag
parms(11) = New SqlParameter("@nId", SqlDbType.Int)
parms(11).Direction = ParameterDirection.Output
parms(12) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(12).Value = hotelId
parms(13) = New SqlParameter("@cPreBillCode", SqlDbType.NVarChar, 50)
parms(13).Value = PreBillCode
Util.ExecProc("", CnnStr.MainCnnStr, "P_InsertCashList", Nothing, parms)
If parms(0).Value = 1 Then
id = parms(11).Value
Return True
Else
id = -1
Return False
End If
End Function
Public Shared Function GetCheckPkgList(ByVal hotelId As Integer, ByVal ParentId As Integer, ByVal tag As Integer) As DataTable
Dim data As DataSet
Dim parms(3) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nParentId", SqlDbType.Int)
parms(1).Value = ParentId
parms(2) = New SqlParameter("@tag", SqlDbType.Int)
parms(2).Value = tag
parms(3) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(3).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetCheckedPkgList", data, parms)
If parms(0).Value = 1 Then
If data.Tables.Count > 0 Then
Return data.Tables(0)
Else
Return Nothing
End If
Else
Return Nothing
End If
End Function
Public Shared Function AddConsumeByPkg(ByVal hotelId As Integer, ByVal ParentId As Integer, _
ByVal PackageId As Integer, ByVal count As Decimal, _
ByVal userId As Integer, ByVal computer As String, _
ByVal remark As String, ByVal jobTimeListId As Integer, ByVal tag As Integer) As Boolean
Dim parms(9) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nParentId", SqlDbType.Int)
parms(1).Value = ParentId
parms(2) = New SqlParameter("@nPackageId", SqlDbType.Int)
parms(2).Value = PackageId
parms(3) = New SqlParameter("@nCount", SqlDbType.Decimal)
parms(3).Value = count
parms(4) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(4).Value = userId
parms(5) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(5).Value = computer
parms(6) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(6).Value = remark
parms(7) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(7).Value = jobTimeListId
parms(8) = New SqlParameter("@tag", SqlDbType.Int)
parms(8).Value = tag
parms(9) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(9).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_InsertPackageCnmList", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function AddCheckPkg(ByVal hotelId As Integer, ByRef id As Integer, ByVal IsNow As Boolean, ByVal ParentId As Integer, _
ByVal PackageId As Integer, ByVal count As Decimal, _
ByVal userId As Integer, ByVal computer As String, _
ByVal remark As String, ByVal jobTimeListId As Integer, ByVal tag As Integer) As Boolean
Dim parms(11) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Value = id
parms(2) = New SqlParameter("@bIsNow", SqlDbType.Bit)
parms(2).Value = IsNow
parms(3) = New SqlParameter("@nParentId", SqlDbType.Int)
parms(3).Value = ParentId
parms(4) = New SqlParameter("@nPackageId", SqlDbType.Int)
parms(4).Value = PackageId
parms(5) = New SqlParameter("@nCount", SqlDbType.Decimal)
parms(5).Value = count
parms(6) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(6).Value = userId
parms(7) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(7).Value = computer
parms(8) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(8).Value = remark
parms(9) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(9).Value = jobTimeListId
parms(10) = New SqlParameter("@tag", SqlDbType.Int)
parms(10).Value = tag
parms(11) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(11).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_InertCheckPkgList", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function CancelCheckedPkg(ByVal hotelId As Integer, ByVal CnmListId As Integer, _
ByVal userId As Integer, ByVal computer As String, _
ByVal remark As String, ByVal tag As Integer) As Boolean
Dim parms(6) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Value = CnmListId
parms(2) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(2).Value = userId
parms(3) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(3).Value = computer
parms(4) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(4).Value = remark
parms(5) = New SqlParameter("@tag", SqlDbType.Int)
parms(5).Value = tag
parms(6) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(6).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_CancelCheckPkgList", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function DoLeft(ByVal hotelId As Integer, ByVal Id As Integer, ByVal userId As Integer, ByVal computer As String, ByVal remark As String, ByVal tag As Integer) As Boolean
Dim parms(5) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Value = Id
parms(2) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(2).Value = userId
parms(3) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(3).Value = computer
parms(4) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(4).Value = remark
parms(5) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(5).Value = hotelId
Dim procN As String = ""
If tag = 1 Then
procN = "P_DoLeftSingleBill"
ElseIf tag = 2 Then
procN = "P_DoLeftTeamBill"
Else
procN = "P_DoLeftGuest"
End If
Util.ExecProc("", CnnStr.MainCnnStr, procN, Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function CancelImprest(ByVal hotelId As Integer, ByVal Id As Integer, ByVal userId As Integer, ByVal computer As String, ByVal remark As String, ByVal tag As Integer) As Boolean
Dim parms(6) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Value = Id
parms(2) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(2).Value = userId
parms(3) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(3).Value = computer
parms(4) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(4).Value = remark
parms(5) = New SqlParameter("@tag", SqlDbType.Int)
parms(5).Value = tag
parms(6) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(6).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_CanCelImprest", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function BackImprest(ByVal hotelId As Integer, ByVal Id As Integer, ByVal userId As Integer, ByVal computer As String, ByVal remark As String, ByVal JobTimeListId As Integer, ByVal tag As Integer) As Boolean
Dim parms(7) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Value = Id
parms(2) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(2).Value = userId
parms(3) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(3).Value = computer
parms(4) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(4).Value = remark
parms(5) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(5).Value = JobTimeListId
parms(6) = New SqlParameter("@tag", SqlDbType.Int)
parms(6).Value = tag
parms(7) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(7).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_BackImprest", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function GetAutoTransferList(ByVal hotelId As Integer, ByVal ParentId As Integer, ByVal tag As Integer) As DataTable
Dim data As DataSet
Dim parms(3) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nParentId", SqlDbType.Int)
parms(1).Value = ParentId
parms(2) = New SqlParameter("@tag", SqlDbType.Int)
parms(2).Value = tag
parms(3) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(3).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetAutoTransferList", data, parms)
If parms(0).Value = 1 Then
If data.Tables.Count > 0 Then
Return data.Tables(0)
Else
Return Nothing
End If
Else
Return Nothing
End If
End Function
Public Shared Function UpdateCnmListGroup(ByVal hotelId As Integer, ByVal CnmListId As Integer, ByVal GroupId As Integer, ByVal tag As Integer) As Boolean
Dim parms(4) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(1).Value = hotelId
parms(2) = New SqlParameter("@nCnmListId", SqlDbType.Int)
parms(2).Value = CnmListId
parms(3) = New SqlParameter("@nGroupId", SqlDbType.Int)
parms(3).Value = GroupId
parms(4) = New SqlParameter("@tag", SqlDbType.Int)
parms(4).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_UpdateCnmListGroup", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function DoAccountCtrl(ByRef ListId As Integer, ByVal hotelId As Integer, ByVal ParentId As Integer, ByVal ConsumeKindId As Integer, _
ByVal IsControl As Boolean, ByVal jobTimeListId As Integer, ByVal userId As Integer, ByVal computer As String, ByVal remark As String, ByVal tag As Integer) As Boolean
Dim parms(10) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nListId", SqlDbType.Int)
parms(1).Direction = ParameterDirection.InputOutput
parms(1).Value = ListId
parms(2) = New SqlParameter("@nConsumeKindId", SqlDbType.Int)
parms(2).Value = ConsumeKindId
parms(3) = New SqlParameter("@nParentId", SqlDbType.Int)
parms(3).Value = ParentId
parms(4) = New SqlParameter("@bIsControl", SqlDbType.Bit)
parms(4).Value = IsControl
parms(5) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(5).Value = jobTimeListId
parms(6) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(6).Value = userId
parms(7) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(7).Value = computer
parms(8) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(8).Value = remark
parms(9) = New SqlParameter("@tag", SqlDbType.Int)
parms(9).Value = tag
parms(10) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(10).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_DoAccountCtrl", Nothing, parms)
If parms(0).Value = 1 Then
ListId = parms(1).Value
Return True
Else
ListId = -1
Return False
End If
End Function
Public Shared Function DoAutoTransferSet(ByVal hotelId As Integer, ByVal Type As Integer, ByVal SourceId As Integer, ByVal ConsumeKindId As Integer, _
ByVal IsControl As Boolean, ByVal TargetId As Integer, ByVal userId As Integer, ByVal computer As String, ByVal remark As String, ByVal tag As Integer) As Boolean
Dim parms(10) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@Type", SqlDbType.Int)
parms(1).Value = Type
parms(2) = New SqlParameter("@nSourceId", SqlDbType.Int)
parms(2).Value = SourceId
parms(3) = New SqlParameter("@nTargetId", SqlDbType.Int)
parms(3).Value = TargetId
parms(4) = New SqlParameter("@nConsumeKindId", SqlDbType.Int)
parms(4).Value = ConsumeKindId
parms(5) = New SqlParameter("@bIsCtrl", SqlDbType.Bit)
parms(5).Value = IsControl
parms(6) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(6).Value = userId
parms(7) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(7).Value = computer
parms(8) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(8).Value = remark
parms(9) = New SqlParameter("@tag", SqlDbType.Int)
parms(9).Value = tag
parms(10) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(10).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_DoAutoTransferSet", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function GetTeamAccountList(ByVal hotelId As Integer, ByVal ParentId As Integer, ByVal tag As Integer) As DataTable
Dim data As DataSet
Dim parms(3) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nParentId", SqlDbType.Int)
parms(1).Value = ParentId
parms(2) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(2).Value = hotelId
parms(3) = New SqlParameter("@tag", SqlDbType.Int)
parms(3).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetTeamAccountList", data, parms)
If parms(0).Value = 1 Then
If data.Tables.Count > 0 Then
Return data.Tables(0)
Else
Return Nothing
End If
Else
Return Nothing
End If
End Function
Public Shared Function GetCashOptionGroupList(ByVal hotelId As Integer, ByVal CashId As Integer, ByVal tag As Integer) As DataTable()
Dim data As DataSet
Dim parms(3) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nCashId", SqlDbType.Int)
parms(1).Value = CashId
parms(2) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(2).Value = hotelId
parms(3) = New SqlParameter("@tag", SqlDbType.Int)
parms(3).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetGathCashItmList", data, parms)
If parms(0).Value = 1 Then
If data.Tables.Count > 0 Then
Return New DataTable() {data.Tables(0), data.Tables(1)}
Else
Return Nothing
End If
Else
Return Nothing
End If
End Function
Public Shared Function CheckIsBackable(ByVal hotelId As Integer, ByVal Id As Integer, ByVal tag As Integer) As Boolean
Dim parms(3) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Value = Id
parms(2) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(2).Value = hotelId
parms(3) = New SqlParameter("@tag", SqlDbType.Int)
parms(3).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_DoCheckIsBackable", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function DoBackBillGuest(ByVal hotelId As Integer, ByVal Id As Integer, ByVal userId As Integer, ByVal computer As String, ByVal JobTimeListId As Integer, ByVal RemaRk As String, ByVal tag As Integer, ByVal RemarkId As Integer) As Boolean
Dim parms(8) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Value = Id
parms(2) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(2).Value = hotelId
parms(3) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(3).Value = userId
parms(4) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(4).Value = computer
parms(5) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(5).Value = JobTimeListId
parms(6) = New SqlParameter("@tag", SqlDbType.Int)
parms(6).Value = tag
parms(7) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(7).Value = RemaRk
parms(8) = New SqlParameter("@nRemarkId", SqlDbType.Int)
parms(8).Value = RemarkId
Util.ExecProc("", CnnStr.MainCnnStr, "P_DoBackBillGuest", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function DoBackGathCashItm(ByVal hotelId As Integer, ByVal CashId As Integer, ByVal UserId As Integer, ByVal Computer As String, ByVal JobTimeListId As Integer, ByVal tag As Integer) As Boolean
Dim parms(6) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nCashId", SqlDbType.Int)
parms(1).Value = CashId
parms(2) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(2).Value = hotelId
parms(3) = New SqlParameter("@nUser", SqlDbType.Int)
parms(3).Value = UserId
parms(4) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(4).Value = Computer
parms(5) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(5).Value = JobTimeListId
parms(6) = New SqlParameter("@tag", SqlDbType.Int)
parms(6).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_DoBackGathCashItmList", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function DoTeamAccountSet(ByVal hotelId As Integer, ByVal BillId As Integer, ByVal ConsumeKindId As Integer, _
ByVal IsControl As Boolean, ByVal userId As Integer, ByVal computer As String, ByVal remark As String, ByVal tag As Integer) As Boolean
Dim parms(8) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nBillId", SqlDbType.Int)
parms(1).Value = BillId
parms(2) = New SqlParameter("@nConsumeKindId", SqlDbType.Int)
parms(2).Value = ConsumeKindId
parms(3) = New SqlParameter("@bIsCtrl", SqlDbType.Bit)
parms(3).Value = IsControl
parms(4) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(4).Value = userId
parms(5) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(5).Value = computer
parms(6) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(6).Value = remark
parms(7) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(7).Value = hotelId
parms(8) = New SqlParameter("@tag", SqlDbType.Int)
parms(8).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_DoTeamAccountSet", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function DoTransfer(ByVal hotelId As Integer, ByVal TargType As Integer, _
ByVal SrcId As Integer, ByVal TargId As Integer, ByVal CnmListId As Integer, _
ByVal userId As Integer, ByVal computer As String, _
ByVal remark As String, ByVal jobTimeListId As Integer, ByVal SrcType As Integer) As Boolean
Dim parms(10) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@SrcType", SqlDbType.Int)
parms(1).Value = SrcType
parms(10) = New SqlParameter("@TargType", SqlDbType.Int)
parms(10).Value = TargType
parms(2) = New SqlParameter("@nSrcId", SqlDbType.Int)
parms(2).Value = SrcId
parms(3) = New SqlParameter("@nTargId", SqlDbType.Int)
parms(3).Value = TargId
parms(4) = New SqlParameter("@nCnmListId", SqlDbType.Int)
parms(4).Value = CnmListId
parms(5) = New SqlParameter("@nHotelId", SqlDbType.Decimal)
parms(5).Value = hotelId
parms(6) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(6).Value = userId
parms(7) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(7).Value = computer
parms(8) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(8).Value = remark
parms(9) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(9).Value = jobTimeListId
Util.ExecProc("", CnnStr.MainCnnStr, "P_DoTransfer", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function DoPreCashTransfer(ByVal imprestId As Integer, ByVal srcType As Integer, ByVal srcId As Integer, _
ByVal targType As Integer, ByVal targId As Integer, ByVal userId As Integer, _
ByVal jobTimeListId As Integer, ByVal computer As String, ByVal remark As String, ByVal hotelId As Integer) As Boolean
Dim parms(10) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nImprestId", SqlDbType.Int)
parms(1).Value = imprestId
parms(2) = New SqlParameter("@nSrcType", SqlDbType.Int)
parms(2).Value = srcType
parms(3) = New SqlParameter("@nSrcId", SqlDbType.Int)
parms(3).Value = srcId
parms(4) = New SqlParameter("@nTargType", SqlDbType.Int)
parms(4).Value = targType
parms(5) = New SqlParameter("@nTargId", SqlDbType.Int)
parms(5).Value = targId
parms(6) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(6).Value = userId
parms(7) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(7).Value = jobTimeListId
parms(8) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(8).Value = computer
parms(9) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(9).Value = remark
parms(10) = New SqlParameter("@nHotelId", SqlDbType.Decimal)
parms(10).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_DoTransferImprest", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function DoTransfer(ByVal hotelId As Integer, ByVal TargType As Integer, _
ByVal SrcId As Integer, ByVal TargId As Integer, _
ByVal userId As Integer, ByVal computer As String, _
ByVal remark As String, ByVal jobTimeListId As Integer, ByVal SrcType As Integer) As Boolean
Dim parms(9) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@SrcType", SqlDbType.Int)
parms(1).Value = SrcType
parms(9) = New SqlParameter("@TargType", SqlDbType.Int)
parms(9).Value = TargType
parms(2) = New SqlParameter("@nSrcId", SqlDbType.Int)
parms(2).Value = SrcId
parms(3) = New SqlParameter("@nTargId", SqlDbType.Int)
parms(3).Value = TargId
parms(4) = New SqlParameter("@nHotelId", SqlDbType.Decimal)
parms(4).Value = hotelId
parms(5) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(5).Value = userId
parms(6) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(6).Value = computer
parms(7) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(7).Value = remark
parms(8) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(8).Value = jobTimeListId
Util.ExecProc("", CnnStr.MainCnnStr, "P_Z_DoTransferAll", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function DoSingleWalkIn(ByVal hotelId As Integer, ByRef billId As Integer, ByRef guestId As Integer, ByVal teamName As String, _
ByVal roomId As Integer, ByVal ConsumeRoomProductId As Integer, ByVal pactId As Integer, ByVal memberId As Integer, ByVal memberCardNo As String, _
ByVal price As Decimal, ByVal count As Integer, ByVal guestKindId As Integer, ByVal guestCount As Integer, ByVal kidCount As Integer, _
ByVal countryId As Integer, ByVal provinceId As Integer, ByVal cityId As Integer, ByVal townId As Integer, _
ByVal sex As Integer, ByVal birthday As DateTime, ByVal CertificateId As Integer, ByVal CertificateNo As String, ByVal mobile As String, _
ByVal VirtualGuestId As Integer, ByVal JobKindId As Integer, ByVal jobTimeListId As Integer, _
ByVal company As String, ByVal pactNo As String, ByVal pactCompany As String, ByVal guestName As String, ByVal mobileNo As String, _
ByVal telphoneHome As String, ByVal telphoneCompany As String, ByVal addressHome As String, ByVal addressCompany As String, _
ByVal accountTypeId As Integer, ByVal bankNo As String, ByVal rentKindId As Integer, ByVal authorizerId As Integer, _
ByVal salesmanId As Integer, ByVal userId As Integer, ByVal computer As String, ByVal remark As String, _
ByVal ArrivedTime As DateTime, ByVal LeftTime As DateTime, ByVal isToVG As Boolean, ByVal serverFee As Decimal, ByVal IsSecret As Boolean, ByVal firstName As String, ByVal lastName As String, ByVal CertiBeginDate As DateTime, ByVal CertiEndDate As DateTime, ByVal CertiLength As Integer, ByVal pHeadPic As Byte(), ByVal pCardPic As Byte(), ByVal AuthorizationReasonId As Integer) As Boolean
Dim parms(53) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nBillId", SqlDbType.Int)
parms(1).Direction = ParameterDirection.InputOutput
parms(1).Value = billId
parms(2) = New SqlParameter("@nGuestId", SqlDbType.Int)
parms(2).Value = guestId
parms(3) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(3).Value = hotelId
parms(4) = New SqlParameter("@nRentKindId", SqlDbType.Int)
parms(4).Value = rentKindId
parms(5) = New SqlParameter("@nAccountTypeId", SqlDbType.Int)
parms(5).Value = accountTypeId
parms(6) = New SqlParameter("@nPactId", SqlDbType.Int)
parms(6).Value = pactId
parms(7) = New SqlParameter("@cPactNo", SqlDbType.NVarChar, 100)
parms(7).Value = pactNo
parms(8) = New SqlParameter("@cPactCompany", SqlDbType.NVarChar, 100)
parms(8).Value = pactCompany
parms(9) = New SqlParameter("@nRoomId", SqlDbType.Int)
parms(9).Value = roomId
parms(10) = New SqlParameter("@nConsumeRoomProductId", SqlDbType.Int)
parms(10).Value = ConsumeRoomProductId
parms(11) = New SqlParameter("@nSalesmanId", SqlDbType.Int)
parms(11).Value = salesmanId
parms(12) = New SqlParameter("@nAuthorizerId", SqlDbType.Int)
parms(12).Value = authorizerId
parms(13) = New SqlParameter("@nPrice", SqlDbType.Decimal)
parms(13).Value = price
parms(14) = New SqlParameter("@nCount", SqlDbType.Int)
parms(14).Value = count
parms(15) = New SqlParameter("@nGuestKindId", SqlDbType.Int)
parms(15).Value = guestKindId
parms(16) = New SqlParameter("@nGuestCount", SqlDbType.Int)
parms(16).Value = guestCount
parms(17) = New SqlParameter("@nKidCount", SqlDbType.Int)
parms(17).Value = kidCount
parms(18) = New SqlParameter("@dArrivedTime", SqlDbType.DateTime)
parms(18).Value = ArrivedTime
parms(19) = New SqlParameter("@dLeftTime", SqlDbType.DateTime)
parms(19).Value = LeftTime
parms(20) = New SqlParameter("@cGuestName", SqlDbType.NVarChar, 100)
parms(20).Value = guestName
parms(21) = New SqlParameter("@nSex", SqlDbType.Int)
parms(21).Value = sex
parms(22) = New SqlParameter("@dBirthday", SqlDbType.DateTime)
parms(22).Value = birthday
parms(23) = New SqlParameter("@nCountryId", SqlDbType.Int)
parms(23).Value = countryId
parms(24) = New SqlParameter("@nProvinceId", SqlDbType.Int)
parms(24).Value = provinceId
parms(25) = New SqlParameter("@nCityId", SqlDbType.Int)
parms(25).Value = cityId
parms(26) = New SqlParameter("@nTownId", SqlDbType.Int)
parms(26).Value = townId
parms(27) = New SqlParameter("@nCertificateId", SqlDbType.Int)
parms(27).Value = CertificateId
parms(28) = New SqlParameter("@cCertificateNo", SqlDbType.NVarChar, 100)
parms(28).Value = CertificateNo
parms(29) = New SqlParameter("@cMobile", SqlDbType.NVarChar, 100)
parms(29).Value = mobile
parms(30) = New SqlParameter("@cTelphoneHome", SqlDbType.NVarChar, 100)
parms(30).Value = telphoneHome
parms(31) = New SqlParameter("@cTelphoneCompany", SqlDbType.NVarChar, 100)
parms(31).Value = telphoneCompany
parms(32) = New SqlParameter("@cCompany", SqlDbType.NVarChar, 100)
parms(32).Value = company
parms(33) = New SqlParameter("@cAddressHome", SqlDbType.NVarChar, 100)
parms(33).Value = addressHome
parms(34) = New SqlParameter("@cAddressCompany", SqlDbType.NVarChar, 100)
parms(34).Value = addressCompany
parms(35) = New SqlParameter("@nVirtualGuestId", SqlDbType.Int)
parms(35).Value = VirtualGuestId
parms(36) = New SqlParameter("@nMemberId", SqlDbType.Int)
parms(36).Value = memberId
parms(37) = New SqlParameter("@cBankNo", SqlDbType.NVarChar, 100)
parms(37).Value = bankNo
parms(38) = New SqlParameter("@nJobKindId", SqlDbType.Int)
parms(38).Value = JobKindId
parms(39) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(39).Value = userId
parms(40) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(40).Value = jobTimeListId
parms(41) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(41).Value = computer
parms(42) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(42).Value = remark
parms(43) = New SqlParameter("@bIsToVG", SqlDbType.Bit)
parms(43).Value = isToVG
parms(44) = New SqlParameter("@nServerFee", SqlDbType.Decimal)
parms(44).Value = serverFee
parms(45) = New SqlParameter("@bIsSecret", SqlDbType.Int)
parms(45).Value = IsSecret
parms(46) = New SqlParameter("@cFirstName", SqlDbType.NVarChar, 100)
parms(46).Value = firstName
parms(47) = New SqlParameter("@cLastName", SqlDbType.NVarChar, 100)
parms(47).Value = lastName
parms(48) = New SqlParameter("@dCertiBeginDate", SqlDbType.DateTime)
parms(48).Value = CertiBeginDate
parms(49) = New SqlParameter("@dCertiEndDate", SqlDbType.DateTime)
parms(49).Value = CertiEndDate
parms(50) = New SqlParameter("@nCertiLength", SqlDbType.Int)
parms(50).Value = CertiLength
parms(51) = New SqlParameter("@pHeadPic", SqlDbType.Image)
parms(51).Value = pHeadPic
parms(52) = New SqlParameter("@pCardPic", SqlDbType.Image)
parms(52).Value = pCardPic
parms(53) = New SqlParameter("@nAuthorizationReasonId", SqlDbType.Int)
parms(53).Value = AuthorizationReasonId
Util.ExecProc("", CnnStr.MainCnnStr, "P_GuestWalkInSingle", Nothing, parms)
If parms(0).Value = 1 Then
billId = parms(1).Value
Return True
Else
Return False
End If
End Function
Public Shared Function SplitCnmList(ByVal hotelId As Integer, ByVal CnmListId As Integer, ByVal ParentId As Integer, _
ByVal productId As Integer, ByVal productTypeId As Integer, ByVal Value As Decimal, _
ByVal userId As Integer, ByVal computer As String, _
ByVal remark As String, ByVal jobTimeListId As Integer, ByVal tag As Integer, ByVal optionTime As DateTime, ByVal oldId As Integer) As Boolean
Dim parms(13) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Value = CnmListId
parms(2) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(2).Value = hotelId
parms(3) = New SqlParameter("@nParentId", SqlDbType.Int)
parms(3).Value = ParentId
parms(4) = New SqlParameter("@nProductId", SqlDbType.Int)
parms(4).Value = productId
parms(5) = New SqlParameter("@nProductTypeId", SqlDbType.Int)
parms(5).Value = productTypeId
parms(6) = New SqlParameter("@nValue", SqlDbType.Decimal)
parms(6).Value = Value
parms(7) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(7).Value = userId
parms(8) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(8).Value = computer
parms(9) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(9).Value = remark
parms(10) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(10).Value = jobTimeListId
parms(11) = New SqlParameter("@tag", SqlDbType.Int)
parms(11).Value = tag
parms(12) = New SqlParameter("@optionTime", SqlDbType.DateTime)
parms(12).Value = optionTime
parms(13) = New SqlParameter("@OldId", SqlDbType.Int)
parms(13).Value = oldId
Util.ExecProc("", CnnStr.MainCnnStr, "P_UpdateCnmList", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function GatherCnmList(ByVal hotelId As Integer, ByVal CnmListId As Integer, ByVal Value As Decimal, _
ByVal userId As Integer, ByVal computer As String, _
ByVal remark As String, ByVal jobTimeListId As Integer, ByVal tag As Integer) As Boolean
Dim parms(8) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nCnmListId", SqlDbType.Int)
parms(1).Value = CnmListId
parms(2) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(2).Value = hotelId
parms(3) = New SqlParameter("@nValue", SqlDbType.Decimal)
parms(3).Value = Value
parms(4) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(4).Value = userId
parms(5) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(5).Value = computer
parms(6) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(6).Value = remark
parms(7) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(7).Value = jobTimeListId
parms(8) = New SqlParameter("@tag", SqlDbType.Int)
parms(8).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_GatherCnmList", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
#End Region
#Region "Tran Model"
Private _util As Util
Public Sub New()
Me._util = New Util()
End Sub
Public Sub BeginTran(ByVal hotelId As Integer)
Me._util.BeginTran(CnnStr.MainCnnStr)
End Sub
Public Sub CommitTran()
_util.CommitTran()
End Sub
Public Sub RollBackTran()
_util.RollBackTran()
End Sub
Public Function InsertPCashList(ByVal hotelid As Integer, ByRef id As Integer, ByVal ParentId As Integer, ByVal payTypeId As Integer, ByVal payTypeName As String, _
ByVal rate As Decimal, ByVal money As Decimal, ByVal jobTimeListId As Integer, ByVal userId As Integer, ByVal computer As String, ByVal remark As String, ByVal tag As Integer, ByVal ImprestId As Integer, ByVal PreBillCode As String, ByVal CshGroupId As Integer) As Boolean
Dim parms(15) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nParentId", SqlDbType.Int)
parms(1).Value = ParentId
parms(2) = New SqlParameter("@nPayTypeId", SqlDbType.Int)
parms(2).Value = payTypeId
parms(3) = New SqlParameter("@cPayTypeName", SqlDbType.NVarChar, 50)
parms(3).Value = payTypeName
parms(4) = New SqlParameter("@nRate", SqlDbType.Decimal)
parms(4).Value = rate
parms(5) = New SqlParameter("@nMoney", SqlDbType.Decimal)
parms(5).Value = money
parms(6) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(6).Value = jobTimeListId
parms(7) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(7).Value = userId
parms(8) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(8).Value = computer
parms(9) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(9).Value = remark
parms(10) = New SqlParameter("@tag", SqlDbType.Int)
parms(10).Value = tag
parms(11) = New SqlParameter("@nId", SqlDbType.Int)
parms(11).Direction = ParameterDirection.Output
parms(12) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(12).Value = hotelid
parms(13) = New SqlParameter("@nImprestId", SqlDbType.Int)
parms(13).Value = ImprestId
parms(14) = New SqlParameter("@cPreBillCode", SqlDbType.NVarChar, 100)
parms(14).Value = PreBillCode
parms(15) = New SqlParameter("@nCshGroupId", SqlDbType.Int)
parms(15).Value = CshGroupId
_util.ExecProcs("", "P_InsertCashList", parms)
If parms(0).Value = 1 Then
id = parms(11).Value
Return True
Else
id = -1
Return False
End If
End Function
Public Function CashingCnmList(ByVal hotelId As Integer, ByVal listId As Integer, ByVal jobTimeListId As Integer, ByVal userId As Integer, ByVal computer As String, ByVal remark As String, ByVal tag As Integer, ByVal CshGroupId As Integer) As Boolean
Dim parms(8) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nListId", SqlDbType.Int)
parms(1).Value = listId
parms(2) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(2).Value = jobTimeListId
parms(3) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(3).Value = userId
parms(4) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(4).Value = computer
parms(5) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(5).Value = remark
parms(6) = New SqlParameter("@tag", SqlDbType.Int)
parms(6).Value = tag
parms(7) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(7).Value = hotelId
parms(8) = New SqlParameter("@nCshGroupId", SqlDbType.Int)
parms(8).Value = CshGroupId
_util.ExecProcs("", "P_CashingCnmList", parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Function InsertCNMCashList(ByVal hotelId As Integer, ByRef id As Integer, ByVal CnmListId As Integer, ByVal CashId As Integer, ByVal PayValue As Decimal, ByVal tag As Integer, ByRef CshGroupId As Integer) As Boolean
Dim parms(7) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Direction = ParameterDirection.Output
parms(2) = New SqlParameter("@nCnmListId", SqlDbType.Int)
parms(2).Value = CnmListId
parms(3) = New SqlParameter("@nCashId", SqlDbType.Int)
parms(3).Value = CashId
parms(4) = New SqlParameter("@nPayValue", SqlDbType.Decimal)
parms(4).Value = PayValue
parms(5) = New SqlParameter("@tag", SqlDbType.Int)
parms(5).Value = tag
parms(6) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(6).Value = hotelId
parms(7) = New SqlParameter("@nCshGroupId", SqlDbType.Int)
parms(7).Direction = ParameterDirection.InputOutput
parms(7).Value = CshGroupId
_util.ExecProcs("", "P_InsertCnmCashList", parms)
If parms(0).Value = 1 Then
id = parms(1).Value
CshGroupId = parms(7).Value
Return True
Else
id = -1
CshGroupId = -1
Return False
End If
End Function
Public Function TransferToFA(ByVal hotelId As Integer, ByVal pctId As Integer, ByVal MemberId As Integer, ByVal CnmListId As Integer, ByVal userId As Integer, ByVal jobTimeListId As Integer, ByRef computer As String, ByVal remark As String, ByVal tag As Integer) As Boolean
Dim parms(9) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(1).Value = hotelId
parms(2) = New SqlParameter("@nCompanyId", SqlDbType.Int)
parms(2).Value = pctId
parms(3) = New SqlParameter("@nMemberId", SqlDbType.Int)
parms(3).Value = MemberId
parms(4) = New SqlParameter("@nCnmListId", SqlDbType.Int)
parms(4).Value = CnmListId
parms(5) = New SqlParameter("@tag", SqlDbType.Int)
parms(5).Value = tag
parms(6) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(6).Value = userId
parms(7) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(7).Value = jobTimeListId
parms(8) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(8).Value = computer
parms(9) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(9).Value = remark
_util.ExecProcs("", "P_Z_TransferToFA", parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
#Region "转应收-Cl"
'消费记录
Public Shared Function InsertFACnmList(ByRef id As Integer, ByVal OldCnmListId As Integer, ByVal FinanceAccountId As Integer, ByVal ProductTypeId As Integer, ByVal ProductId As Integer, ByVal Count As Integer, ByVal Price As Decimal, ByVal JobTimeListId As Integer, ByVal UserId As Integer, ByVal Computer As String, ByVal Remark As String, ByVal HotelId As Integer, ByVal GroupId As Integer, ByVal OutBillCode As String, ByVal tag As Integer) As Boolean
Dim parms(15) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Direction = ParameterDirection.Output
parms(2) = New SqlParameter("@nOldCnmListId", SqlDbType.Int)
parms(2).Value = OldCnmListId
parms(3) = New SqlParameter("@nFinanceAccountId", SqlDbType.Int)
parms(3).Value = FinanceAccountId
parms(4) = New SqlParameter("@nProductTypeId", SqlDbType.Int)
parms(4).Value = ProductTypeId
parms(5) = New SqlParameter("@nProductId", SqlDbType.Int)
parms(5).Value = ProductId
parms(6) = New SqlParameter("@nCount", SqlDbType.Int)
parms(6).Value = Count
parms(7) = New SqlParameter("@nPrice", SqlDbType.Decimal)
parms(7).Value = Price
parms(8) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(8).Value = JobTimeListId
parms(9) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(9).Value = UserId
parms(10) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(10).Value = Computer
parms(11) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(11).Value = Remark
parms(12) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(12).Value = HotelId
parms(13) = New SqlParameter("@nGroupId", SqlDbType.Int)
parms(13).Value = GroupId
parms(14) = New SqlParameter("@cOutBillCode", SqlDbType.NVarChar, 50)
parms(14).Value = OutBillCode
parms(15) = New SqlParameter("@tag", SqlDbType.Int)
parms(15).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_InsertFACnmList", Nothing, parms)
If parms(0).Value = 1 Then
id = parms(1).Value
Return True
Else
id = -1
Return False
End If
End Function
'付款记录
Public Shared Function InsertFACash(ByVal HotelId As Integer, ByRef id As Integer, ByVal CompanyId As Integer, ByVal Rate As Decimal, ByVal Money As Decimal, ByVal JobTimeListId As Integer, ByVal UserId As Integer, ByVal Computer As String, ByVal Remark As String, ByVal tag As Integer) As Boolean
Dim parms(10) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Direction = ParameterDirection.Output
parms(2) = New SqlParameter("@nCompanyId", SqlDbType.Int)
parms(2).Value = CompanyId
parms(3) = New SqlParameter("@nRate", SqlDbType.Decimal)
parms(3).Value = Rate
parms(4) = New SqlParameter("@nMoney", SqlDbType.Decimal)
parms(4).Value = Money
parms(5) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(5).Value = JobTimeListId
parms(6) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(6).Value = UserId
parms(7) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(7).Value = Computer
parms(8) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(8).Value = Remark
parms(9) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(9).Value = HotelId
parms(10) = New SqlParameter("@tag", SqlDbType.Int)
parms(10).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_InsertFACash", Nothing, parms)
If parms(0).Value = 1 Then
id = parms(1).Value
Return True
Else
id = -1
Return False
End If
End Function
'付款-消费记录
Public Shared Function InsertFACnmCsh(ByVal HotelId As Integer, ByVal id As Integer, ByVal FACnmListId As Integer, ByVal FACashId As Integer, ByVal PayValue As Decimal, ByVal tag As Integer) As Boolean
Dim parms(6) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Direction = ParameterDirection.Output
parms(2) = New SqlParameter("@nFACnmListId", SqlDbType.Int)
parms(2).Value = FACnmListId
parms(3) = New SqlParameter("@nFACashId", SqlDbType.Int)
parms(3).Value = FACashId
parms(4) = New SqlParameter("@nPayValue", SqlDbType.Decimal)
parms(4).Value = PayValue
parms(5) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(5).Value = HotelId
parms(6) = New SqlParameter("@tag", SqlDbType.Int)
parms(6).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_InsertFACnmCsh", Nothing, parms)
If parms(0).Value = 1 Then
id = parms(1).Value
Return True
Else
id = -1
Return False
End If
End Function
#End Region
#End Region
Public Shared Function QueryBill(ByVal hotelId As Integer, ByVal billStateName As String, ByVal accountTypeName As String, _
ByVal rentKindId As Integer, ByVal pactCompany As String, ByVal teamName As String, ByVal teamCode As String, ByVal reserveCode As String, _
ByVal salesmanId As Integer, ByVal addressHome As String, ByVal guestName As String, ByVal arrivedTimeMin As DateTime, _
ByVal arrivedTimeMax As DateTime, ByVal leftTimeMin As DateTime, ByVal leftTimeMax As DateTime) As DataTable
Dim parms(15) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(1).Value = hotelId
parms(2) = New SqlParameter("@cBillStateName", SqlDbType.NVarChar, 50)
parms(2).Value = Util.CheckParameter(billStateName)
parms(3) = New SqlParameter("@cAccountTypeName", SqlDbType.NVarChar, 50)
parms(3).Value = Util.CheckParameter(accountTypeName)
parms(4) = New SqlParameter("@nRentKindId", SqlDbType.Int)
parms(4).Value = Util.CheckParameter(rentKindId)
parms(5) = New SqlParameter("@cPactCompany", SqlDbType.NVarChar, 200)
parms(5).Value = Util.CheckParameter(pactCompany)
parms(6) = New SqlParameter("@cTeamName", SqlDbType.NVarChar, 50)
parms(6).Value = Util.CheckParameter(teamName)
parms(7) = New SqlParameter("@cTeamCode", SqlDbType.NVarChar, 50)
parms(7).Value = Util.CheckParameter(teamCode)
parms(8) = New SqlParameter("@cReserveCode", SqlDbType.NVarChar, 100)
parms(8).Value = Util.CheckParameter(reserveCode)
parms(9) = New SqlParameter("@nSalesmanId", SqlDbType.Int)
parms(9).Value = Util.CheckParameter(salesmanId)
parms(10) = New SqlParameter("@cAddressHome", SqlDbType.NVarChar, 200)
parms(10).Value = Util.CheckParameter(addressHome)
parms(11) = New SqlParameter("@cGuestName", SqlDbType.NVarChar, 50)
parms(11).Value = Util.CheckParameter(guestName)
parms(12) = New SqlParameter("@dArrivedTimeMin", SqlDbType.DateTime)
parms(12).Value = Util.CheckParameter(arrivedTimeMin)
parms(13) = New SqlParameter("@dArrivedTimeMax", SqlDbType.DateTime)
parms(13).Value = Util.CheckParameter(arrivedTimeMax)
parms(14) = New SqlParameter("@dLeftTimeMin", SqlDbType.DateTime)
parms(14).Value = Util.CheckParameter(leftTimeMin)
parms(15) = New SqlParameter("@dLeftTimeMax", SqlDbType.DateTime)
parms(15).Value = Util.CheckParameter(leftTimeMax)
Return Pub.GetDatatable(CnnStr.MainCnnStr, "P_QueryBill", parms)
End Function
Public Shared Function SetConsumeListState_FACnmList(ByVal hotelId As Integer, ByVal id As Integer, ByVal stateId As Integer) As Boolean
Dim parms(3) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(1).Value = hotelId
parms(2) = New SqlParameter("@nId", SqlDbType.Int)
parms(2).Value = id
parms(3) = New SqlParameter("@nStateId", SqlDbType.Int)
parms(3).Value = stateId
Util.ExecProc("", CnnStr.MainCnnStr, "P_SetConsumeListState_FACnmList", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function GetFinishedImprestList(ByVal hotelId As Integer, ByVal ParentId As Integer, ByVal tag As Integer) As DataTable()
Dim parms(3) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(1).Value = hotelId
parms(2) = New SqlParameter("@nParentId", SqlDbType.Int)
parms(2).Value = ParentId
parms(3) = New SqlParameter("@tag", SqlDbType.Int)
parms(3).Value = tag
Dim ds As DataSet
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetImprestListByBillAndGuest", ds, parms)
If parms(0).Value = 1 And ds.Tables.Count > 1 Then
Return New DataTable() {ds.Tables(0), ds.Tables(1)}
Else
Return Nothing
End If
End Function
Public Shared Function GetFACashList(ByVal hotelId As Integer) As DataTable
Dim parms(1) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(1).Value = hotelId
Return Pub.GetDatatable(CnnStr.MainCnnStr, "P_GetFACashList", parms)
End Function
Public Shared Function GetTransferConsume(ByVal hotelId As Integer, ByVal HallId As Integer) As DataTable
Return GetTransferConsume(hotelId, HallId, -1, 0)
End Function
Public Shared Function GetTransferConsume(ByVal hotelId As Integer, ByVal HallId As Integer, ByVal targId As Integer, ByVal tag As Integer) As DataTable
Dim parms(4) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(1).Value = hotelId
parms(2) = New SqlParameter("@nHallId", SqlDbType.Int)
parms(2).Value = HallId
parms(3) = New SqlParameter("@nTargId", SqlDbType.Int)
parms(3).Value = targId
parms(4) = New SqlParameter("@tag", SqlDbType.Int)
parms(4).Value = tag
Return Pub.GetDatatable(CnnStr.MainCnnStr, "P_GetConsumeByHall", parms)
End Function
'cl20090903
Public Shared Function DoEditCashRemark(ByVal Id As Integer, ByVal Remark As String, ByVal HotelId As Integer, ByVal Tag As Integer) As Boolean
Dim parms(4) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Value = Id
parms(2) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(2).Value = Remark
parms(3) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(3).Value = HotelId
parms(4) = New SqlParameter("@nTag", SqlDbType.Int)
parms(4).Value = Tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_DoEditCashRemark", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function GetCashSumOrDetail(ByVal hotelId As Integer, ByVal id As Integer, ByVal tag As Integer, ByVal cursor As Integer) As DataTable
Dim parms(3) As SqlParameter
Dim ds As DataSet
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Value = id
parms(2) = New SqlParameter("@tag", SqlDbType.Int)
parms(2).Value = tag
parms(3) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(3).Value = hotelId
Select Case cursor
Case 1
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetCashDetail_Consume", ds, parms)
Case 2
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetCashDetail_Date", ds, parms)
Case 3
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetCashSum_Consume", ds, parms)
Case 4
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetCashSum_Date", ds, parms)
End Select
If parms(0).Value = 1 AndAlso ds.Tables.Count > 0 Then
Return ds.Tables(0)
Else
Return Nothing
End If
End Function
Public Function GetGlobalId() As Integer
Dim parms(0) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetGlobalId", Nothing, parms)
Return parms(0).Value
End Function
End Class
Imports System.Data
Imports System.Data.SqlClient
Imports HNA.Common.ServerData
Public Class BillAccess
#Region "Shared function"
Public Shared Function SaveBill(ByVal hotelId As Integer, ByVal vBill As BillBase, ByVal userId As Integer, ByVal computer As String) As Boolean
Dim parms(24) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Value = vBill.Id
parms(2) = New SqlParameter("@cTeamName", SqlDbType.NVarChar, 100)
parms(2).Value = vBill.TeamName
parms(3) = New SqlParameter("@nMemberId", SqlDbType.Int)
parms(3).Value = vBill.MemberId
parms(4) = New SqlParameter("@cMemberCardNo", SqlDbType.NVarChar, 100)
parms(4).Value = vBill.MemberCardNo
parms(5) = New SqlParameter("@cCompany", SqlDbType.NVarChar, 100)
parms(5).Value = vBill.Company
parms(6) = New SqlParameter("@cPactNo", SqlDbType.NVarChar, 100)
parms(6).Value = vBill.PactNo
parms(7) = New SqlParameter("@cPactCompany", SqlDbType.NVarChar, 100)
parms(7).Value = vBill.PactCompany
parms(8) = New SqlParameter("@cGuestName", SqlDbType.NVarChar, 100)
parms(8).Value = vBill.GuestName
parms(9) = New SqlParameter("@cMobileNo", SqlDbType.NVarChar, 100)
parms(9).Value = vBill.MobileNo
parms(10) = New SqlParameter("@cTelphoneHome", SqlDbType.NVarChar, 100)
parms(10).Value = vBill.TelphoneHome
parms(11) = New SqlParameter("@cAddressHome", SqlDbType.NVarChar, 100)
parms(11).Value = vBill.AddressHome
parms(12) = New SqlParameter("@cAddressCompany", SqlDbType.NVarChar, 100)
parms(12).Value = vBill.AddressCompany
parms(13) = New SqlParameter("@nAccountTypeId", SqlDbType.Int)
parms(13).Value = vBill.AccountTypeId
parms(14) = New SqlParameter("@cBalanceNo", SqlDbType.NVarChar, 100)
parms(14).Value = vBill.BalanceNo
parms(15) = New SqlParameter("@nRentKindId", SqlDbType.Int)
parms(15).Value = vBill.RentKindId
parms(16) = New SqlParameter("@nAuthorizerId", SqlDbType.Int)
parms(16).Value = vBill.AuthorizerId
parms(17) = New SqlParameter("@nSalesmanId", SqlDbType.Int)
parms(17).Value = vBill.SalesmanId
parms(18) = New SqlParameter("@dArrivedTime", SqlDbType.DateTime)
parms(18).Value = vBill.ArrivedTime
parms(19) = New SqlParameter("@dLeftTime", SqlDbType.DateTime)
parms(19).Value = vBill.LeftTime
parms(20) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(20).Value = userId
parms(21) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(21).Value = computer
parms(22) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(22).Value = vBill.Remark
parms(23) = New SqlParameter("@cTelphoneCompany", SqlDbType.NVarChar, 100)
parms(23).Value = vBill.TelphoneCompany
parms(24) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(24).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_UpdateBill", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
'Public Shared Function SaveBill(ByVal hotelId As Integer, ByVal Id As Integer, ByVal teamName As String, ByVal memberId As Integer, ByVal memberCardNo As String, _
' ByVal company As String, ByVal pactNo As String, ByVal pactCompany As String, ByVal guestName As String, ByVal mobileNo As String, _
' ByVal telphoneHome As String, ByVal telphoneCompany As String, ByVal addressHome As String, ByVal addressCompany As String, _
' ByVal accountTypeId As Integer, ByVal balanceNo As String, ByVal rentKindId As Integer, ByVal authorizerId As Integer, _
' ByVal salesmanId As Integer, ByVal userId As Integer, ByVal computer As String, ByVal remark As String, _
' ByVal ArrivedTime As DateTime, ByVal LeftTime As DateTime) As Boolean
' Dim parms(24) As SqlParameter
' parms(0) = New SqlParameter("@ret", SqlDbType.Int)
' parms(0).Direction = ParameterDirection.Output
' parms(1) = New SqlParameter("@nId", SqlDbType.Int)
' parms(1).Value = Id
' parms(2) = New SqlParameter("@cTeamName", SqlDbType.NVarChar, 100)
' parms(2).Value = teamName
' parms(3) = New SqlParameter("@nMemberId", SqlDbType.Int)
' parms(3).Value = memberId
' parms(4) = New SqlParameter("@cMemberCardNo", SqlDbType.NVarChar, 100)
' parms(4).Value = memberCardNo
' parms(5) = New SqlParameter("@cCompany", SqlDbType.NVarChar, 100)
' parms(5).Value = company
' parms(6) = New SqlParameter("@cPactNo", SqlDbType.NVarChar, 100)
' parms(6).Value = pactNo
' parms(7) = New SqlParameter("@cPactCompany", SqlDbType.NVarChar, 100)
' parms(7).Value = pactCompany
' parms(8) = New SqlParameter("@cGuestName", SqlDbType.NVarChar, 100)
' parms(8).Value = guestName
' parms(9) = New SqlParameter("@cMobileNo", SqlDbType.NVarChar, 100)
' parms(9).Value = mobileNo
' parms(10) = New SqlParameter("@cTelphoneHome", SqlDbType.NVarChar, 100)
' parms(10).Value = telphoneHome
' parms(11) = New SqlParameter("@cAddressHome", SqlDbType.NVarChar, 100)
' parms(11).Value = addressHome
' parms(12) = New SqlParameter("@cAddressCompany", SqlDbType.NVarChar, 100)
' parms(12).Value = addressCompany
' parms(13) = New SqlParameter("@nAccountTypeId", SqlDbType.Int)
' parms(13).Value = accountTypeId
' parms(14) = New SqlParameter("@cBalanceNo", SqlDbType.NVarChar, 100)
' parms(14).Value = balanceNo
' parms(15) = New SqlParameter("@nRentKindId", SqlDbType.Int)
' parms(15).Value = rentKindId
' parms(16) = New SqlParameter("@nAuthorizerId", SqlDbType.Int)
' parms(16).Value = authorizerId
' parms(17) = New SqlParameter("@nSalesmanId", SqlDbType.Int)
' parms(17).Value = salesmanId
' parms(18) = New SqlParameter("@dArrivedTime", SqlDbType.DateTime)
' parms(18).Value = ArrivedTime
' parms(19) = New SqlParameter("@dLeftTime", SqlDbType.DateTime)
' parms(19).Value = LeftTime
' parms(20) = New SqlParameter("@nUserId", SqlDbType.Int)
' parms(20).Value = userId
' parms(21) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
' parms(21).Value = computer
' parms(22) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
' parms(22).Value = remark
' parms(23) = New SqlParameter("@cTelphoneCompany", SqlDbType.NVarChar, 100)
' parms(23).Value = telphoneCompany
' parms(24) = New SqlParameter("@nHotelId", SqlDbType.Int)
' parms(24).Value = hotelId
' Util.ExecProc("", CnnStr.MainCnnStr, "P_UpdateBill", Nothing, parms)
' If parms(0).Value = 1 Then
' Return True
' Else
' Return False
' End If
'End Function
'Public Shared Function CreateSingleBill(ByVal hotelId As Integer, ByVal teamName As String, ByVal memberId As Integer, ByVal memberCardNo As String, _
' ByVal company As String, ByVal pactNo As String, ByVal pactCompany As String, ByVal guestName As String, ByVal mobileNo As String, _
' ByVal telphoneHome As String, ByVal telphoneCompany As String, ByVal addressHome As String, ByVal addressCompany As String, _
' ByVal accountTypeId As Integer, ByVal balanceNo As String, ByVal rentKindId As Integer, ByVal authorizerId As Integer, _
' ByVal salesmanId As Integer, ByVal userId As Integer, ByVal computer As String, ByVal remark As String) As Boolean
Public Shared Function CreateSingleBill(ByVal hotelId As Integer, ByVal vBill As BillBase) As Boolean
Dim parms(21) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@cTeamName", SqlDbType.NVarChar, 100)
parms(1).Value = vBill.TeamName
parms(2) = New SqlParameter("@nMemberId", SqlDbType.Int)
parms(2).Value = vBill.MemberId
parms(3) = New SqlParameter("@cMemberCardNo", SqlDbType.NVarChar, 100)
parms(3).Value = vBill.MemberCardNo
parms(4) = New SqlParameter("@cCompany", SqlDbType.NVarChar, 100)
parms(4).Value = vBill.Company
parms(5) = New SqlParameter("@cPactNo", SqlDbType.NVarChar, 100)
parms(5).Value = vBill.PactNo
parms(6) = New SqlParameter("@cPactCompany", SqlDbType.NVarChar, 100)
parms(6).Value = vBill.PactCompany
parms(7) = New SqlParameter("@cGuestName", SqlDbType.NVarChar, 100)
parms(7).Value = vBill.GuestName
parms(8) = New SqlParameter("@cMobileNo", SqlDbType.NVarChar, 100)
parms(8).Value = vBill.MobileNo
parms(9) = New SqlParameter("@cTelphoneHome", SqlDbType.NVarChar, 100)
parms(9).Value = vBill.TelphoneHome
parms(10) = New SqlParameter("@cTelphoneCompany", SqlDbType.NVarChar, 100)
parms(10).Value = vBill.TelphoneCompany
parms(11) = New SqlParameter("@cAddressHome", SqlDbType.NVarChar, 100)
parms(11).Value = vBill.AddressHome
parms(12) = New SqlParameter("@cAddressCompany", SqlDbType.NVarChar, 100)
parms(12).Value = vBill.AddressCompany
parms(13) = New SqlParameter("@nAccountTypeId", SqlDbType.Int)
parms(13).Value = vBill.AccountTypeId
parms(14) = New SqlParameter("@cBalanceNo", SqlDbType.NVarChar, 100)
parms(14).Value = vBill.BalanceNo
parms(15) = New SqlParameter("@nRentKindId", SqlDbType.Int)
parms(15).Value = vBill.RentKindId
parms(16) = New SqlParameter("@nAuthorizerId", SqlDbType.Int)
parms(16).Value = vBill.AccountTypeId
parms(17) = New SqlParameter("@nSalesmanId", SqlDbType.Int)
parms(17).Value = vBill.SalesmanId
parms(18) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(18).Value = vBill.UserId
parms(19) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(19).Value = vBill.Computer
parms(20) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(20).Value = vBill.Remark
parms(21) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(21).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_CreateSingleBill", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function GetSingleBillList(ByVal hotelId As Integer, ByVal searchStr As String, ByVal tag As Integer) As DataTable
Dim data As DataSet
Dim parms(3) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@searchStr", SqlDbType.NVarChar, 4000)
parms(1).Value = IIf(searchStr = "", DBNull.Value, searchStr)
parms(2) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(2).Value = hotelId
parms(3) = New SqlParameter("@tag", SqlDbType.Int)
parms(3).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetSingleBillList", data, parms)
If parms(0).Value = 1 Then
If data.Tables.Count > 0 Then
Return data.Tables(0)
Else
Return Nothing
End If
Else
Return Nothing
End If
End Function
Public Shared Function GetSingleBillListPause(ByVal hotelId As Integer) As DataTable
Return Pub.GetDatatable(hotelId, CnnStr.MainCnnStr, "P_ZZ_GetSingleBillListPause")
End Function
Public Shared Function GetTeamBillList(ByVal hotelId As Integer, ByVal searchStr As String, ByVal tag As Integer) As DataTable()
Dim ds As DataSet
Dim parms(3) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(1).Value = hotelId
parms(2) = New SqlParameter("@searchStr", SqlDbType.NVarChar, 4000)
parms(2).Value = IIf(searchStr = "", DBNull.Value, searchStr)
parms(3) = New SqlParameter("@tag", SqlDbType.Int)
parms(3).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetTeamBillList", ds, parms)
If parms(0).Value = 1 Then
If ds Is Nothing Then Return Nothing
If ds.Tables.Count <> 2 Then Return Nothing
Return New DataTable(1) {ds.Tables(0), ds.Tables(1)}
Else
Return Nothing
End If
End Function
Public Shared Function GetTeamBillListPause(ByVal hotelId As Integer) As DataTable()
Dim ds As DataSet
Dim parms(0) As SqlParameter
parms(0) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(0).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_ZZ_GetTeamBillListPause", ds, parms)
If ds Is Nothing Then Return Nothing
If ds.Tables.Count <> 2 Then Return Nothing
Return New DataTable(1) {ds.Tables(0), ds.Tables(1)}
End Function
Private Shared Function GetCnmList(ByVal hotelId As Integer, ByVal BillId As Integer, ByVal procName As String) As DataTable
Dim data As DataSet
Dim parms(2) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nBillId", SqlDbType.Int)
parms(1).Value = BillId
parms(2) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(2).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, procName, data, parms)
If parms(0).Value = 1 Then
If data.Tables.Count > 0 Then
Return data.Tables(0)
Else
Return Nothing
End If
Else
Return Nothing
End If
End Function
Public Shared Function GetCnmListAll(ByVal hotelId As Integer, ByVal BillId As Integer) As DataTable
Return GetCnmList(hotelId, BillId, "P_GetBillCnmList_All")
End Function
Public Shared Function GetCnmListCancel(ByVal hotelId As Integer, ByVal BillId As Integer) As DataTable
Return GetCnmList(hotelId, BillId, "P_GetBillCnmList_Cancel")
End Function
Public Shared Function GetCnmListCashed(ByVal hotelId As Integer, ByVal BillId As Integer) As DataTable
Return GetCnmList(hotelId, BillId, "P_GetBillCnmList_Cashed")
End Function
Public Shared Function GetCnmListNoCash(ByVal hotelId As Integer, ByVal BillId As Integer) As DataTable
Return GetCnmList(hotelId, BillId, "P_GetBillCnmList_NoCashed")
End Function
Public Shared Function GetCnmListTurnIn(ByVal hotelId As Integer, ByVal BillId As Integer) As DataTable
Return GetCnmList(hotelId, BillId, "P_GetBillCnmList_TurnIn")
End Function
Public Shared Function GetCnmListTurnOut(ByVal hotelId As Integer, ByVal BillId As Integer) As DataTable
Return GetCnmList(hotelId, BillId, "P_GetBillCnmList_TurnOut")
End Function
Public Shared Function AddConsume(ByVal hotelId As Integer, ByVal billId As Integer, _
ByVal productId As Integer, ByVal productTypeId As Integer, ByVal count As Decimal, _
ByVal price As Decimal, ByVal userId As Integer, ByVal computer As String, _
ByVal remark As String, ByVal jobTimeListId As Integer, ByVal outBillCode As String, ByVal tag As Integer) As Boolean
Dim parms(12) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nbillId", SqlDbType.Int)
parms(1).Value = billId
parms(2) = New SqlParameter("@nProductId", SqlDbType.Int)
parms(2).Value = productId
parms(3) = New SqlParameter("@nProductTypeId", SqlDbType.Int)
parms(3).Value = productTypeId
parms(4) = New SqlParameter("@nCount", SqlDbType.Decimal)
parms(4).Value = count
parms(5) = New SqlParameter("@nPrice", SqlDbType.Decimal)
parms(5).Value = price
parms(6) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(6).Value = userId
parms(7) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(7).Value = computer
parms(8) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(8).Value = remark
parms(9) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(9).Value = jobTimeListId
parms(10) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(10).Value = hotelId
parms(11) = New SqlParameter("@cOutBillCode", SqlDbType.NVarChar, 50)
parms(11).Value = outBillCode
parms(12) = New SqlParameter("@tag", SqlDbType.Int)
parms(12).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_InsertBillCnmList", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function CancelConsume(ByVal hotelId As Integer, ByVal CnmListId As Integer, _
ByVal userId As Integer, ByVal computer As String, _
ByVal remark As String, ByVal jobTimeListId As Integer, ByVal remarkId As Integer) As Boolean
Dim parms(7) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nBillCnmListId", SqlDbType.Int)
parms(1).Value = CnmListId
parms(2) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(2).Value = userId
parms(3) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(3).Value = computer
parms(4) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(4).Value = remark
parms(5) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(5).Value = jobTimeListId
parms(6) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(6).Value = hotelId
parms(7) = New SqlParameter("@nRemarkId", SqlDbType.Int)
parms(7).Value = remarkId
Util.ExecProc("", CnnStr.MainCnnStr, "P_CancelBillCnmList", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function GetCheckedMProductList(ByVal hotelId As Integer, ByVal BillId As Integer) As DataTable
Return GetCnmList(hotelId, BillId, "P_GetBillMPrdtList")
End Function
Public Shared Function AddCheckedCnm(ByRef id As Integer, ByVal hotelId As Integer, ByVal billId As Integer, _
ByVal productId As Integer, ByVal productTypeId As Integer, ByVal count As Decimal, _
ByVal price As Decimal, ByVal userId As Integer, ByVal computer As String, _
ByVal remark As String, ByVal jobTimeListId As Integer, ByVal isNow As Boolean, ByVal tag As Integer) As Boolean
Dim parms(13) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nbillId", SqlDbType.Int)
parms(1).Value = billId
parms(2) = New SqlParameter("@nProductId", SqlDbType.Int)
parms(2).Value = productId
parms(3) = New SqlParameter("@nProductTypeId", SqlDbType.Int)
parms(3).Value = productTypeId
parms(4) = New SqlParameter("@nCount", SqlDbType.Decimal)
parms(4).Value = count
parms(5) = New SqlParameter("@nPrice", SqlDbType.Decimal)
parms(5).Value = price
parms(6) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(6).Value = userId
parms(7) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(7).Value = computer
parms(8) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(8).Value = remark
parms(9) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(9).Value = jobTimeListId
parms(10) = New SqlParameter("@bIsNow", SqlDbType.Bit)
parms(10).Value = isNow
parms(11) = New SqlParameter("@nId", SqlDbType.Int)
parms(11).Direction = ParameterDirection.Output
parms(12) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(12).Value = hotelId
parms(13) = New SqlParameter("@tag", SqlDbType.Int)
parms(13).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_InertBillMPrdtList", Nothing, parms)
If parms(0).Value = 1 Then
id = parms(11).Value
Return True
Else
Return False
End If
End Function
Public Shared Function CancelCheckedCnm(ByVal hotelId As Integer, ByVal CnmListId As Integer, _
ByVal userId As Integer, ByVal computer As String, _
ByVal remark As String, ByVal ProductTypeId As Integer, ByVal remarkId As Integer) As Boolean
Dim parms(7) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Value = CnmListId
parms(2) = New SqlParameter("@nProductTypeId", SqlDbType.Int)
parms(2).Value = ProductTypeId
parms(3) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(3).Value = userId
parms(4) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(4).Value = computer
parms(5) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(5).Value = remark
parms(6) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(6).Value = hotelId
parms(7) = New SqlParameter("@nRemarkId", SqlDbType.Int)
parms(7).Value = remarkId
Util.ExecProc("", CnnStr.MainCnnStr, "P_CancelBillMPrdtList", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function GetPayCashList(ByVal hotelId As Integer, ByVal parentId As Integer) As DataTable
Return GetCashList(hotelId, parentId, 1)
End Function
Public Shared Function GetPreCashList(ByVal hotelId As Integer, ByVal parentId As Integer) As DataTable
Return GetCashList(hotelId, parentId, 3)
End Function
Public Shared Function GetCashList(ByVal hotelId As Integer, ByVal ParentId As Integer, ByVal tag As Integer) As DataTable
Dim data As DataSet
Dim parms(3) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nParentId", SqlDbType.Int)
parms(1).Value = ParentId
parms(2) = New SqlParameter("@tag", SqlDbType.Int)
parms(2).Value = tag
parms(3) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(3).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetCashList", data, parms)
If parms(0).Value = 1 Then
If data.Tables.Count > 0 Then
Return data.Tables(0)
Else
Return Nothing
End If
Else
Return Nothing
End If
End Function
Public Shared Function GetAccountCtrlList(ByVal hotelId As Integer, ByVal ParentId As Integer, ByVal tag As Integer) As DataTable
Dim data As DataSet
Dim parms(3) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nParentId", SqlDbType.Int)
parms(1).Value = ParentId
parms(2) = New SqlParameter("@tag", SqlDbType.Int)
parms(2).Value = tag
parms(3) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(3).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetAccountCtrlList", data, parms)
If parms(0).Value = 1 Then
If data.Tables.Count > 0 Then
Return data.Tables(0)
Else
Return Nothing
End If
Else
Return Nothing
End If
End Function
'Public Shared Function InsertPayCashList(ByVal id As Integer, ByVal hotelId As Integer, ByVal ParentId As Integer, ByVal payTypeId As Integer, ByVal payTypeName As String, _
' ByVal rate As Decimal, ByVal money As Decimal, ByVal jobTimeListId As Integer, ByVal userId As Integer, ByVal computer As String, ByVal remark As String) As Boolean
Public Shared Function InsertPayCashList(ByVal id As Integer, ByVal hotelId As Integer, ByVal ParentId As Integer, ByVal item As CashItemBase) As Boolean
Return InsertCashList(id, hotelId, ParentId, item.PayTypeId, item.PayTypeName, item.Rate, item.Money, item.JobTimeListId, item.UserId, item.Computer, item.Remark, "", 1)
End Function
'Public Shared Function InsertPreCashList(ByVal id As Integer, ByVal hotelId As Integer, ByVal ParentId As Integer, ByVal payTypeId As Integer, ByVal payTypeName As String, _
' ByVal rate As Decimal, ByVal money As Decimal, ByVal jobTimeListId As Integer, ByVal userId As Integer, ByVal computer As String, ByVal remark As String, ByVal PreBillCode As String) As Boolean
Public Shared Function InsertPreCashList(ByVal id As Integer, ByVal hotelId As Integer, ByVal ParentId As Integer, ByVal item As CashItemBase) As Boolean
Return InsertCashList(id, hotelId, ParentId, item.PayTypeId, item.PayTypeName, item.Rate, item.Money, item.JobTimeListId, item.UserId, item.Computer, item.Remark, item.PreBillCode, 3)
End Function
Public Shared Function InsertCashList(ByRef id As Integer, ByVal hotelId As Integer, ByVal ParentId As Integer, ByVal payTypeId As Integer, ByVal payTypeName As String, _
ByVal rate As Decimal, ByVal money As Decimal, ByVal jobTimeListId As Integer, ByVal userId As Integer, ByVal computer As String, ByVal remark As String, ByVal PreBillCode As String, ByVal tag As Integer) As Boolean
Dim parms(13) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nParentId", SqlDbType.Int)
parms(1).Value = ParentId
parms(2) = New SqlParameter("@nPayTypeId", SqlDbType.Int)
parms(2).Value = payTypeId
parms(3) = New SqlParameter("@cPayTypeName", SqlDbType.NVarChar, 50)
parms(3).Value = payTypeName
parms(4) = New SqlParameter("@nRate", SqlDbType.Decimal)
parms(4).Value = rate
parms(5) = New SqlParameter("@nMoney", SqlDbType.Decimal)
parms(5).Value = money
parms(6) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(6).Value = jobTimeListId
parms(7) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(7).Value = userId
parms(8) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(8).Value = computer
parms(9) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(9).Value = remark
parms(10) = New SqlParameter("@tag", SqlDbType.Int)
parms(10).Value = tag
parms(11) = New SqlParameter("@nId", SqlDbType.Int)
parms(11).Direction = ParameterDirection.Output
parms(12) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(12).Value = hotelId
parms(13) = New SqlParameter("@cPreBillCode", SqlDbType.NVarChar, 50)
parms(13).Value = PreBillCode
Util.ExecProc("", CnnStr.MainCnnStr, "P_InsertCashList", Nothing, parms)
If parms(0).Value = 1 Then
id = parms(11).Value
Return True
Else
id = -1
Return False
End If
End Function
Public Shared Function GetCheckPkgList(ByVal hotelId As Integer, ByVal ParentId As Integer, ByVal tag As Integer) As DataTable
Dim data As DataSet
Dim parms(3) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nParentId", SqlDbType.Int)
parms(1).Value = ParentId
parms(2) = New SqlParameter("@tag", SqlDbType.Int)
parms(2).Value = tag
parms(3) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(3).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetCheckedPkgList", data, parms)
If parms(0).Value = 1 Then
If data.Tables.Count > 0 Then
Return data.Tables(0)
Else
Return Nothing
End If
Else
Return Nothing
End If
End Function
Public Shared Function AddConsumeByPkg(ByVal hotelId As Integer, ByVal ParentId As Integer, _
ByVal PackageId As Integer, ByVal count As Decimal, _
ByVal userId As Integer, ByVal computer As String, _
ByVal remark As String, ByVal jobTimeListId As Integer, ByVal tag As Integer) As Boolean
Dim parms(9) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nParentId", SqlDbType.Int)
parms(1).Value = ParentId
parms(2) = New SqlParameter("@nPackageId", SqlDbType.Int)
parms(2).Value = PackageId
parms(3) = New SqlParameter("@nCount", SqlDbType.Decimal)
parms(3).Value = count
parms(4) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(4).Value = userId
parms(5) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(5).Value = computer
parms(6) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(6).Value = remark
parms(7) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(7).Value = jobTimeListId
parms(8) = New SqlParameter("@tag", SqlDbType.Int)
parms(8).Value = tag
parms(9) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(9).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_InsertPackageCnmList", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function AddCheckPkg(ByVal hotelId As Integer, ByRef id As Integer, ByVal IsNow As Boolean, ByVal ParentId As Integer, _
ByVal PackageId As Integer, ByVal count As Decimal, _
ByVal userId As Integer, ByVal computer As String, _
ByVal remark As String, ByVal jobTimeListId As Integer, ByVal tag As Integer) As Boolean
Dim parms(11) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Value = id
parms(2) = New SqlParameter("@bIsNow", SqlDbType.Bit)
parms(2).Value = IsNow
parms(3) = New SqlParameter("@nParentId", SqlDbType.Int)
parms(3).Value = ParentId
parms(4) = New SqlParameter("@nPackageId", SqlDbType.Int)
parms(4).Value = PackageId
parms(5) = New SqlParameter("@nCount", SqlDbType.Decimal)
parms(5).Value = count
parms(6) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(6).Value = userId
parms(7) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(7).Value = computer
parms(8) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(8).Value = remark
parms(9) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(9).Value = jobTimeListId
parms(10) = New SqlParameter("@tag", SqlDbType.Int)
parms(10).Value = tag
parms(11) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(11).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_InertCheckPkgList", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function CancelCheckedPkg(ByVal hotelId As Integer, ByVal CnmListId As Integer, _
ByVal userId As Integer, ByVal computer As String, _
ByVal remark As String, ByVal tag As Integer) As Boolean
Dim parms(6) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Value = CnmListId
parms(2) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(2).Value = userId
parms(3) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(3).Value = computer
parms(4) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(4).Value = remark
parms(5) = New SqlParameter("@tag", SqlDbType.Int)
parms(5).Value = tag
parms(6) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(6).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_CancelCheckPkgList", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function DoLeft(ByVal hotelId As Integer, ByVal Id As Integer, ByVal userId As Integer, ByVal computer As String, ByVal remark As String, ByVal tag As Integer) As Boolean
Dim parms(5) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Value = Id
parms(2) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(2).Value = userId
parms(3) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(3).Value = computer
parms(4) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(4).Value = remark
parms(5) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(5).Value = hotelId
Dim procN As String = ""
If tag = 1 Then
procN = "P_DoLeftSingleBill"
ElseIf tag = 2 Then
procN = "P_DoLeftTeamBill"
Else
procN = "P_DoLeftGuest"
End If
Util.ExecProc("", CnnStr.MainCnnStr, procN, Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function CancelImprest(ByVal hotelId As Integer, ByVal Id As Integer, ByVal userId As Integer, ByVal computer As String, ByVal remark As String, ByVal tag As Integer) As Boolean
Dim parms(6) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Value = Id
parms(2) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(2).Value = userId
parms(3) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(3).Value = computer
parms(4) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(4).Value = remark
parms(5) = New SqlParameter("@tag", SqlDbType.Int)
parms(5).Value = tag
parms(6) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(6).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_CanCelImprest", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function BackImprest(ByVal hotelId As Integer, ByVal Id As Integer, ByVal userId As Integer, ByVal computer As String, ByVal remark As String, ByVal JobTimeListId As Integer, ByVal tag As Integer) As Boolean
Dim parms(7) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Value = Id
parms(2) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(2).Value = userId
parms(3) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(3).Value = computer
parms(4) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(4).Value = remark
parms(5) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(5).Value = JobTimeListId
parms(6) = New SqlParameter("@tag", SqlDbType.Int)
parms(6).Value = tag
parms(7) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(7).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_BackImprest", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function GetAutoTransferList(ByVal hotelId As Integer, ByVal ParentId As Integer, ByVal tag As Integer) As DataTable
Dim data As DataSet
Dim parms(3) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nParentId", SqlDbType.Int)
parms(1).Value = ParentId
parms(2) = New SqlParameter("@tag", SqlDbType.Int)
parms(2).Value = tag
parms(3) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(3).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetAutoTransferList", data, parms)
If parms(0).Value = 1 Then
If data.Tables.Count > 0 Then
Return data.Tables(0)
Else
Return Nothing
End If
Else
Return Nothing
End If
End Function
Public Shared Function UpdateCnmListGroup(ByVal hotelId As Integer, ByVal CnmListId As Integer, ByVal GroupId As Integer, ByVal tag As Integer) As Boolean
Dim parms(4) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(1).Value = hotelId
parms(2) = New SqlParameter("@nCnmListId", SqlDbType.Int)
parms(2).Value = CnmListId
parms(3) = New SqlParameter("@nGroupId", SqlDbType.Int)
parms(3).Value = GroupId
parms(4) = New SqlParameter("@tag", SqlDbType.Int)
parms(4).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_UpdateCnmListGroup", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function DoAccountCtrl(ByRef ListId As Integer, ByVal hotelId As Integer, ByVal ParentId As Integer, ByVal ConsumeKindId As Integer, _
ByVal IsControl As Boolean, ByVal jobTimeListId As Integer, ByVal userId As Integer, ByVal computer As String, ByVal remark As String, ByVal tag As Integer) As Boolean
Dim parms(10) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nListId", SqlDbType.Int)
parms(1).Direction = ParameterDirection.InputOutput
parms(1).Value = ListId
parms(2) = New SqlParameter("@nConsumeKindId", SqlDbType.Int)
parms(2).Value = ConsumeKindId
parms(3) = New SqlParameter("@nParentId", SqlDbType.Int)
parms(3).Value = ParentId
parms(4) = New SqlParameter("@bIsControl", SqlDbType.Bit)
parms(4).Value = IsControl
parms(5) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(5).Value = jobTimeListId
parms(6) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(6).Value = userId
parms(7) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(7).Value = computer
parms(8) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(8).Value = remark
parms(9) = New SqlParameter("@tag", SqlDbType.Int)
parms(9).Value = tag
parms(10) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(10).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_DoAccountCtrl", Nothing, parms)
If parms(0).Value = 1 Then
ListId = parms(1).Value
Return True
Else
ListId = -1
Return False
End If
End Function
Public Shared Function DoAutoTransferSet(ByVal hotelId As Integer, ByVal Type As Integer, ByVal SourceId As Integer, ByVal ConsumeKindId As Integer, _
ByVal IsControl As Boolean, ByVal TargetId As Integer, ByVal userId As Integer, ByVal computer As String, ByVal remark As String, ByVal tag As Integer) As Boolean
Dim parms(10) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@Type", SqlDbType.Int)
parms(1).Value = Type
parms(2) = New SqlParameter("@nSourceId", SqlDbType.Int)
parms(2).Value = SourceId
parms(3) = New SqlParameter("@nTargetId", SqlDbType.Int)
parms(3).Value = TargetId
parms(4) = New SqlParameter("@nConsumeKindId", SqlDbType.Int)
parms(4).Value = ConsumeKindId
parms(5) = New SqlParameter("@bIsCtrl", SqlDbType.Bit)
parms(5).Value = IsControl
parms(6) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(6).Value = userId
parms(7) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(7).Value = computer
parms(8) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(8).Value = remark
parms(9) = New SqlParameter("@tag", SqlDbType.Int)
parms(9).Value = tag
parms(10) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(10).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_DoAutoTransferSet", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function GetTeamAccountList(ByVal hotelId As Integer, ByVal ParentId As Integer, ByVal tag As Integer) As DataTable
Dim data As DataSet
Dim parms(3) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nParentId", SqlDbType.Int)
parms(1).Value = ParentId
parms(2) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(2).Value = hotelId
parms(3) = New SqlParameter("@tag", SqlDbType.Int)
parms(3).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetTeamAccountList", data, parms)
If parms(0).Value = 1 Then
If data.Tables.Count > 0 Then
Return data.Tables(0)
Else
Return Nothing
End If
Else
Return Nothing
End If
End Function
Public Shared Function GetCashOptionGroupList(ByVal hotelId As Integer, ByVal CashId As Integer, ByVal tag As Integer) As DataTable()
Dim data As DataSet
Dim parms(3) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nCashId", SqlDbType.Int)
parms(1).Value = CashId
parms(2) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(2).Value = hotelId
parms(3) = New SqlParameter("@tag", SqlDbType.Int)
parms(3).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetGathCashItmList", data, parms)
If parms(0).Value = 1 Then
If data.Tables.Count > 0 Then
Return New DataTable() {data.Tables(0), data.Tables(1)}
Else
Return Nothing
End If
Else
Return Nothing
End If
End Function
Public Shared Function CheckIsBackable(ByVal hotelId As Integer, ByVal Id As Integer, ByVal tag As Integer) As Boolean
Dim parms(3) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Value = Id
parms(2) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(2).Value = hotelId
parms(3) = New SqlParameter("@tag", SqlDbType.Int)
parms(3).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_DoCheckIsBackable", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function DoBackBillGuest(ByVal hotelId As Integer, ByVal Id As Integer, ByVal userId As Integer, ByVal computer As String, ByVal JobTimeListId As Integer, ByVal RemaRk As String, ByVal tag As Integer, ByVal RemarkId As Integer) As Boolean
Dim parms(8) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Value = Id
parms(2) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(2).Value = hotelId
parms(3) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(3).Value = userId
parms(4) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(4).Value = computer
parms(5) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(5).Value = JobTimeListId
parms(6) = New SqlParameter("@tag", SqlDbType.Int)
parms(6).Value = tag
parms(7) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(7).Value = RemaRk
parms(8) = New SqlParameter("@nRemarkId", SqlDbType.Int)
parms(8).Value = RemarkId
Util.ExecProc("", CnnStr.MainCnnStr, "P_DoBackBillGuest", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function DoBackGathCashItm(ByVal hotelId As Integer, ByVal CashId As Integer, ByVal UserId As Integer, ByVal Computer As String, ByVal JobTimeListId As Integer, ByVal tag As Integer) As Boolean
Dim parms(6) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nCashId", SqlDbType.Int)
parms(1).Value = CashId
parms(2) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(2).Value = hotelId
parms(3) = New SqlParameter("@nUser", SqlDbType.Int)
parms(3).Value = UserId
parms(4) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(4).Value = Computer
parms(5) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(5).Value = JobTimeListId
parms(6) = New SqlParameter("@tag", SqlDbType.Int)
parms(6).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_DoBackGathCashItmList", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function DoTeamAccountSet(ByVal hotelId As Integer, ByVal BillId As Integer, ByVal ConsumeKindId As Integer, _
ByVal IsControl As Boolean, ByVal userId As Integer, ByVal computer As String, ByVal remark As String, ByVal tag As Integer) As Boolean
Dim parms(8) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nBillId", SqlDbType.Int)
parms(1).Value = BillId
parms(2) = New SqlParameter("@nConsumeKindId", SqlDbType.Int)
parms(2).Value = ConsumeKindId
parms(3) = New SqlParameter("@bIsCtrl", SqlDbType.Bit)
parms(3).Value = IsControl
parms(4) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(4).Value = userId
parms(5) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(5).Value = computer
parms(6) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(6).Value = remark
parms(7) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(7).Value = hotelId
parms(8) = New SqlParameter("@tag", SqlDbType.Int)
parms(8).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_DoTeamAccountSet", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function DoTransfer(ByVal hotelId As Integer, ByVal TargType As Integer, _
ByVal SrcId As Integer, ByVal TargId As Integer, ByVal CnmListId As Integer, _
ByVal userId As Integer, ByVal computer As String, _
ByVal remark As String, ByVal jobTimeListId As Integer, ByVal SrcType As Integer) As Boolean
Dim parms(10) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@SrcType", SqlDbType.Int)
parms(1).Value = SrcType
parms(10) = New SqlParameter("@TargType", SqlDbType.Int)
parms(10).Value = TargType
parms(2) = New SqlParameter("@nSrcId", SqlDbType.Int)
parms(2).Value = SrcId
parms(3) = New SqlParameter("@nTargId", SqlDbType.Int)
parms(3).Value = TargId
parms(4) = New SqlParameter("@nCnmListId", SqlDbType.Int)
parms(4).Value = CnmListId
parms(5) = New SqlParameter("@nHotelId", SqlDbType.Decimal)
parms(5).Value = hotelId
parms(6) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(6).Value = userId
parms(7) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(7).Value = computer
parms(8) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(8).Value = remark
parms(9) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(9).Value = jobTimeListId
Util.ExecProc("", CnnStr.MainCnnStr, "P_DoTransfer", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function DoPreCashTransfer(ByVal imprestId As Integer, ByVal srcType As Integer, ByVal srcId As Integer, _
ByVal targType As Integer, ByVal targId As Integer, ByVal userId As Integer, _
ByVal jobTimeListId As Integer, ByVal computer As String, ByVal remark As String, ByVal hotelId As Integer) As Boolean
Dim parms(10) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nImprestId", SqlDbType.Int)
parms(1).Value = imprestId
parms(2) = New SqlParameter("@nSrcType", SqlDbType.Int)
parms(2).Value = srcType
parms(3) = New SqlParameter("@nSrcId", SqlDbType.Int)
parms(3).Value = srcId
parms(4) = New SqlParameter("@nTargType", SqlDbType.Int)
parms(4).Value = targType
parms(5) = New SqlParameter("@nTargId", SqlDbType.Int)
parms(5).Value = targId
parms(6) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(6).Value = userId
parms(7) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(7).Value = jobTimeListId
parms(8) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(8).Value = computer
parms(9) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(9).Value = remark
parms(10) = New SqlParameter("@nHotelId", SqlDbType.Decimal)
parms(10).Value = hotelId
Util.ExecProc("", CnnStr.MainCnnStr, "P_DoTransferImprest", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function DoTransfer(ByVal hotelId As Integer, ByVal TargType As Integer, _
ByVal SrcId As Integer, ByVal TargId As Integer, _
ByVal userId As Integer, ByVal computer As String, _
ByVal remark As String, ByVal jobTimeListId As Integer, ByVal SrcType As Integer) As Boolean
Dim parms(9) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@SrcType", SqlDbType.Int)
parms(1).Value = SrcType
parms(9) = New SqlParameter("@TargType", SqlDbType.Int)
parms(9).Value = TargType
parms(2) = New SqlParameter("@nSrcId", SqlDbType.Int)
parms(2).Value = SrcId
parms(3) = New SqlParameter("@nTargId", SqlDbType.Int)
parms(3).Value = TargId
parms(4) = New SqlParameter("@nHotelId", SqlDbType.Decimal)
parms(4).Value = hotelId
parms(5) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(5).Value = userId
parms(6) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(6).Value = computer
parms(7) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(7).Value = remark
parms(8) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(8).Value = jobTimeListId
Util.ExecProc("", CnnStr.MainCnnStr, "P_Z_DoTransferAll", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function DoSingleWalkIn(ByVal hotelId As Integer, ByRef billId As Integer, ByRef guestId As Integer, ByVal teamName As String, _
ByVal roomId As Integer, ByVal ConsumeRoomProductId As Integer, ByVal pactId As Integer, ByVal memberId As Integer, ByVal memberCardNo As String, _
ByVal price As Decimal, ByVal count As Integer, ByVal guestKindId As Integer, ByVal guestCount As Integer, ByVal kidCount As Integer, _
ByVal countryId As Integer, ByVal provinceId As Integer, ByVal cityId As Integer, ByVal townId As Integer, _
ByVal sex As Integer, ByVal birthday As DateTime, ByVal CertificateId As Integer, ByVal CertificateNo As String, ByVal mobile As String, _
ByVal VirtualGuestId As Integer, ByVal JobKindId As Integer, ByVal jobTimeListId As Integer, _
ByVal company As String, ByVal pactNo As String, ByVal pactCompany As String, ByVal guestName As String, ByVal mobileNo As String, _
ByVal telphoneHome As String, ByVal telphoneCompany As String, ByVal addressHome As String, ByVal addressCompany As String, _
ByVal accountTypeId As Integer, ByVal bankNo As String, ByVal rentKindId As Integer, ByVal authorizerId As Integer, _
ByVal salesmanId As Integer, ByVal userId As Integer, ByVal computer As String, ByVal remark As String, _
ByVal ArrivedTime As DateTime, ByVal LeftTime As DateTime, ByVal isToVG As Boolean, ByVal serverFee As Decimal, ByVal IsSecret As Boolean, ByVal firstName As String, ByVal lastName As String, ByVal CertiBeginDate As DateTime, ByVal CertiEndDate As DateTime, ByVal CertiLength As Integer, ByVal pHeadPic As Byte(), ByVal pCardPic As Byte(), ByVal AuthorizationReasonId As Integer) As Boolean
Dim parms(53) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nBillId", SqlDbType.Int)
parms(1).Direction = ParameterDirection.InputOutput
parms(1).Value = billId
parms(2) = New SqlParameter("@nGuestId", SqlDbType.Int)
parms(2).Value = guestId
parms(3) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(3).Value = hotelId
parms(4) = New SqlParameter("@nRentKindId", SqlDbType.Int)
parms(4).Value = rentKindId
parms(5) = New SqlParameter("@nAccountTypeId", SqlDbType.Int)
parms(5).Value = accountTypeId
parms(6) = New SqlParameter("@nPactId", SqlDbType.Int)
parms(6).Value = pactId
parms(7) = New SqlParameter("@cPactNo", SqlDbType.NVarChar, 100)
parms(7).Value = pactNo
parms(8) = New SqlParameter("@cPactCompany", SqlDbType.NVarChar, 100)
parms(8).Value = pactCompany
parms(9) = New SqlParameter("@nRoomId", SqlDbType.Int)
parms(9).Value = roomId
parms(10) = New SqlParameter("@nConsumeRoomProductId", SqlDbType.Int)
parms(10).Value = ConsumeRoomProductId
parms(11) = New SqlParameter("@nSalesmanId", SqlDbType.Int)
parms(11).Value = salesmanId
parms(12) = New SqlParameter("@nAuthorizerId", SqlDbType.Int)
parms(12).Value = authorizerId
parms(13) = New SqlParameter("@nPrice", SqlDbType.Decimal)
parms(13).Value = price
parms(14) = New SqlParameter("@nCount", SqlDbType.Int)
parms(14).Value = count
parms(15) = New SqlParameter("@nGuestKindId", SqlDbType.Int)
parms(15).Value = guestKindId
parms(16) = New SqlParameter("@nGuestCount", SqlDbType.Int)
parms(16).Value = guestCount
parms(17) = New SqlParameter("@nKidCount", SqlDbType.Int)
parms(17).Value = kidCount
parms(18) = New SqlParameter("@dArrivedTime", SqlDbType.DateTime)
parms(18).Value = ArrivedTime
parms(19) = New SqlParameter("@dLeftTime", SqlDbType.DateTime)
parms(19).Value = LeftTime
parms(20) = New SqlParameter("@cGuestName", SqlDbType.NVarChar, 100)
parms(20).Value = guestName
parms(21) = New SqlParameter("@nSex", SqlDbType.Int)
parms(21).Value = sex
parms(22) = New SqlParameter("@dBirthday", SqlDbType.DateTime)
parms(22).Value = birthday
parms(23) = New SqlParameter("@nCountryId", SqlDbType.Int)
parms(23).Value = countryId
parms(24) = New SqlParameter("@nProvinceId", SqlDbType.Int)
parms(24).Value = provinceId
parms(25) = New SqlParameter("@nCityId", SqlDbType.Int)
parms(25).Value = cityId
parms(26) = New SqlParameter("@nTownId", SqlDbType.Int)
parms(26).Value = townId
parms(27) = New SqlParameter("@nCertificateId", SqlDbType.Int)
parms(27).Value = CertificateId
parms(28) = New SqlParameter("@cCertificateNo", SqlDbType.NVarChar, 100)
parms(28).Value = CertificateNo
parms(29) = New SqlParameter("@cMobile", SqlDbType.NVarChar, 100)
parms(29).Value = mobile
parms(30) = New SqlParameter("@cTelphoneHome", SqlDbType.NVarChar, 100)
parms(30).Value = telphoneHome
parms(31) = New SqlParameter("@cTelphoneCompany", SqlDbType.NVarChar, 100)
parms(31).Value = telphoneCompany
parms(32) = New SqlParameter("@cCompany", SqlDbType.NVarChar, 100)
parms(32).Value = company
parms(33) = New SqlParameter("@cAddressHome", SqlDbType.NVarChar, 100)
parms(33).Value = addressHome
parms(34) = New SqlParameter("@cAddressCompany", SqlDbType.NVarChar, 100)
parms(34).Value = addressCompany
parms(35) = New SqlParameter("@nVirtualGuestId", SqlDbType.Int)
parms(35).Value = VirtualGuestId
parms(36) = New SqlParameter("@nMemberId", SqlDbType.Int)
parms(36).Value = memberId
parms(37) = New SqlParameter("@cBankNo", SqlDbType.NVarChar, 100)
parms(37).Value = bankNo
parms(38) = New SqlParameter("@nJobKindId", SqlDbType.Int)
parms(38).Value = JobKindId
parms(39) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(39).Value = userId
parms(40) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(40).Value = jobTimeListId
parms(41) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(41).Value = computer
parms(42) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(42).Value = remark
parms(43) = New SqlParameter("@bIsToVG", SqlDbType.Bit)
parms(43).Value = isToVG
parms(44) = New SqlParameter("@nServerFee", SqlDbType.Decimal)
parms(44).Value = serverFee
parms(45) = New SqlParameter("@bIsSecret", SqlDbType.Int)
parms(45).Value = IsSecret
parms(46) = New SqlParameter("@cFirstName", SqlDbType.NVarChar, 100)
parms(46).Value = firstName
parms(47) = New SqlParameter("@cLastName", SqlDbType.NVarChar, 100)
parms(47).Value = lastName
parms(48) = New SqlParameter("@dCertiBeginDate", SqlDbType.DateTime)
parms(48).Value = CertiBeginDate
parms(49) = New SqlParameter("@dCertiEndDate", SqlDbType.DateTime)
parms(49).Value = CertiEndDate
parms(50) = New SqlParameter("@nCertiLength", SqlDbType.Int)
parms(50).Value = CertiLength
parms(51) = New SqlParameter("@pHeadPic", SqlDbType.Image)
parms(51).Value = pHeadPic
parms(52) = New SqlParameter("@pCardPic", SqlDbType.Image)
parms(52).Value = pCardPic
parms(53) = New SqlParameter("@nAuthorizationReasonId", SqlDbType.Int)
parms(53).Value = AuthorizationReasonId
Util.ExecProc("", CnnStr.MainCnnStr, "P_GuestWalkInSingle", Nothing, parms)
If parms(0).Value = 1 Then
billId = parms(1).Value
Return True
Else
Return False
End If
End Function
Public Shared Function SplitCnmList(ByVal hotelId As Integer, ByVal CnmListId As Integer, ByVal ParentId As Integer, _
ByVal productId As Integer, ByVal productTypeId As Integer, ByVal Value As Decimal, _
ByVal userId As Integer, ByVal computer As String, _
ByVal remark As String, ByVal jobTimeListId As Integer, ByVal tag As Integer, ByVal optionTime As DateTime, ByVal oldId As Integer) As Boolean
Dim parms(13) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Value = CnmListId
parms(2) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(2).Value = hotelId
parms(3) = New SqlParameter("@nParentId", SqlDbType.Int)
parms(3).Value = ParentId
parms(4) = New SqlParameter("@nProductId", SqlDbType.Int)
parms(4).Value = productId
parms(5) = New SqlParameter("@nProductTypeId", SqlDbType.Int)
parms(5).Value = productTypeId
parms(6) = New SqlParameter("@nValue", SqlDbType.Decimal)
parms(6).Value = Value
parms(7) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(7).Value = userId
parms(8) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(8).Value = computer
parms(9) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(9).Value = remark
parms(10) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(10).Value = jobTimeListId
parms(11) = New SqlParameter("@tag", SqlDbType.Int)
parms(11).Value = tag
parms(12) = New SqlParameter("@optionTime", SqlDbType.DateTime)
parms(12).Value = optionTime
parms(13) = New SqlParameter("@OldId", SqlDbType.Int)
parms(13).Value = oldId
Util.ExecProc("", CnnStr.MainCnnStr, "P_UpdateCnmList", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function GatherCnmList(ByVal hotelId As Integer, ByVal CnmListId As Integer, ByVal Value As Decimal, _
ByVal userId As Integer, ByVal computer As String, _
ByVal remark As String, ByVal jobTimeListId As Integer, ByVal tag As Integer) As Boolean
Dim parms(8) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nCnmListId", SqlDbType.Int)
parms(1).Value = CnmListId
parms(2) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(2).Value = hotelId
parms(3) = New SqlParameter("@nValue", SqlDbType.Decimal)
parms(3).Value = Value
parms(4) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(4).Value = userId
parms(5) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 50)
parms(5).Value = computer
parms(6) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(6).Value = remark
parms(7) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(7).Value = jobTimeListId
parms(8) = New SqlParameter("@tag", SqlDbType.Int)
parms(8).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_GatherCnmList", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
#End Region
#Region "Tran Model"
Private _util As Util
Public Sub New()
Me._util = New Util()
End Sub
Public Sub BeginTran(ByVal hotelId As Integer)
Me._util.BeginTran(CnnStr.MainCnnStr)
End Sub
Public Sub CommitTran()
_util.CommitTran()
End Sub
Public Sub RollBackTran()
_util.RollBackTran()
End Sub
Public Function InsertPCashList(ByVal hotelid As Integer, ByRef id As Integer, ByVal ParentId As Integer, ByVal payTypeId As Integer, ByVal payTypeName As String, _
ByVal rate As Decimal, ByVal money As Decimal, ByVal jobTimeListId As Integer, ByVal userId As Integer, ByVal computer As String, ByVal remark As String, ByVal tag As Integer, ByVal ImprestId As Integer, ByVal PreBillCode As String, ByVal CshGroupId As Integer) As Boolean
Dim parms(15) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nParentId", SqlDbType.Int)
parms(1).Value = ParentId
parms(2) = New SqlParameter("@nPayTypeId", SqlDbType.Int)
parms(2).Value = payTypeId
parms(3) = New SqlParameter("@cPayTypeName", SqlDbType.NVarChar, 50)
parms(3).Value = payTypeName
parms(4) = New SqlParameter("@nRate", SqlDbType.Decimal)
parms(4).Value = rate
parms(5) = New SqlParameter("@nMoney", SqlDbType.Decimal)
parms(5).Value = money
parms(6) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(6).Value = jobTimeListId
parms(7) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(7).Value = userId
parms(8) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(8).Value = computer
parms(9) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(9).Value = remark
parms(10) = New SqlParameter("@tag", SqlDbType.Int)
parms(10).Value = tag
parms(11) = New SqlParameter("@nId", SqlDbType.Int)
parms(11).Direction = ParameterDirection.Output
parms(12) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(12).Value = hotelid
parms(13) = New SqlParameter("@nImprestId", SqlDbType.Int)
parms(13).Value = ImprestId
parms(14) = New SqlParameter("@cPreBillCode", SqlDbType.NVarChar, 100)
parms(14).Value = PreBillCode
parms(15) = New SqlParameter("@nCshGroupId", SqlDbType.Int)
parms(15).Value = CshGroupId
_util.ExecProcs("", "P_InsertCashList", parms)
If parms(0).Value = 1 Then
id = parms(11).Value
Return True
Else
id = -1
Return False
End If
End Function
Public Function CashingCnmList(ByVal hotelId As Integer, ByVal listId As Integer, ByVal jobTimeListId As Integer, ByVal userId As Integer, ByVal computer As String, ByVal remark As String, ByVal tag As Integer, ByVal CshGroupId As Integer) As Boolean
Dim parms(8) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nListId", SqlDbType.Int)
parms(1).Value = listId
parms(2) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(2).Value = jobTimeListId
parms(3) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(3).Value = userId
parms(4) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(4).Value = computer
parms(5) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(5).Value = remark
parms(6) = New SqlParameter("@tag", SqlDbType.Int)
parms(6).Value = tag
parms(7) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(7).Value = hotelId
parms(8) = New SqlParameter("@nCshGroupId", SqlDbType.Int)
parms(8).Value = CshGroupId
_util.ExecProcs("", "P_CashingCnmList", parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Function InsertCNMCashList(ByVal hotelId As Integer, ByRef id As Integer, ByVal CnmListId As Integer, ByVal CashId As Integer, ByVal PayValue As Decimal, ByVal tag As Integer, ByRef CshGroupId As Integer) As Boolean
Dim parms(7) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Direction = ParameterDirection.Output
parms(2) = New SqlParameter("@nCnmListId", SqlDbType.Int)
parms(2).Value = CnmListId
parms(3) = New SqlParameter("@nCashId", SqlDbType.Int)
parms(3).Value = CashId
parms(4) = New SqlParameter("@nPayValue", SqlDbType.Decimal)
parms(4).Value = PayValue
parms(5) = New SqlParameter("@tag", SqlDbType.Int)
parms(5).Value = tag
parms(6) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(6).Value = hotelId
parms(7) = New SqlParameter("@nCshGroupId", SqlDbType.Int)
parms(7).Direction = ParameterDirection.InputOutput
parms(7).Value = CshGroupId
_util.ExecProcs("", "P_InsertCnmCashList", parms)
If parms(0).Value = 1 Then
id = parms(1).Value
CshGroupId = parms(7).Value
Return True
Else
id = -1
CshGroupId = -1
Return False
End If
End Function
Public Function TransferToFA(ByVal hotelId As Integer, ByVal pctId As Integer, ByVal MemberId As Integer, ByVal CnmListId As Integer, ByVal userId As Integer, ByVal jobTimeListId As Integer, ByRef computer As String, ByVal remark As String, ByVal tag As Integer) As Boolean
Dim parms(9) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(1).Value = hotelId
parms(2) = New SqlParameter("@nCompanyId", SqlDbType.Int)
parms(2).Value = pctId
parms(3) = New SqlParameter("@nMemberId", SqlDbType.Int)
parms(3).Value = MemberId
parms(4) = New SqlParameter("@nCnmListId", SqlDbType.Int)
parms(4).Value = CnmListId
parms(5) = New SqlParameter("@tag", SqlDbType.Int)
parms(5).Value = tag
parms(6) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(6).Value = userId
parms(7) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(7).Value = jobTimeListId
parms(8) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(8).Value = computer
parms(9) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(9).Value = remark
_util.ExecProcs("", "P_Z_TransferToFA", parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
#Region "转应收-Cl"
'消费记录
Public Shared Function InsertFACnmList(ByRef id As Integer, ByVal OldCnmListId As Integer, ByVal FinanceAccountId As Integer, ByVal ProductTypeId As Integer, ByVal ProductId As Integer, ByVal Count As Integer, ByVal Price As Decimal, ByVal JobTimeListId As Integer, ByVal UserId As Integer, ByVal Computer As String, ByVal Remark As String, ByVal HotelId As Integer, ByVal GroupId As Integer, ByVal OutBillCode As String, ByVal tag As Integer) As Boolean
Dim parms(15) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Direction = ParameterDirection.Output
parms(2) = New SqlParameter("@nOldCnmListId", SqlDbType.Int)
parms(2).Value = OldCnmListId
parms(3) = New SqlParameter("@nFinanceAccountId", SqlDbType.Int)
parms(3).Value = FinanceAccountId
parms(4) = New SqlParameter("@nProductTypeId", SqlDbType.Int)
parms(4).Value = ProductTypeId
parms(5) = New SqlParameter("@nProductId", SqlDbType.Int)
parms(5).Value = ProductId
parms(6) = New SqlParameter("@nCount", SqlDbType.Int)
parms(6).Value = Count
parms(7) = New SqlParameter("@nPrice", SqlDbType.Decimal)
parms(7).Value = Price
parms(8) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(8).Value = JobTimeListId
parms(9) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(9).Value = UserId
parms(10) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(10).Value = Computer
parms(11) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(11).Value = Remark
parms(12) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(12).Value = HotelId
parms(13) = New SqlParameter("@nGroupId", SqlDbType.Int)
parms(13).Value = GroupId
parms(14) = New SqlParameter("@cOutBillCode", SqlDbType.NVarChar, 50)
parms(14).Value = OutBillCode
parms(15) = New SqlParameter("@tag", SqlDbType.Int)
parms(15).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_InsertFACnmList", Nothing, parms)
If parms(0).Value = 1 Then
id = parms(1).Value
Return True
Else
id = -1
Return False
End If
End Function
'付款记录
Public Shared Function InsertFACash(ByVal HotelId As Integer, ByRef id As Integer, ByVal CompanyId As Integer, ByVal Rate As Decimal, ByVal Money As Decimal, ByVal JobTimeListId As Integer, ByVal UserId As Integer, ByVal Computer As String, ByVal Remark As String, ByVal tag As Integer) As Boolean
Dim parms(10) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Direction = ParameterDirection.Output
parms(2) = New SqlParameter("@nCompanyId", SqlDbType.Int)
parms(2).Value = CompanyId
parms(3) = New SqlParameter("@nRate", SqlDbType.Decimal)
parms(3).Value = Rate
parms(4) = New SqlParameter("@nMoney", SqlDbType.Decimal)
parms(4).Value = Money
parms(5) = New SqlParameter("@nJobTimeListId", SqlDbType.Int)
parms(5).Value = JobTimeListId
parms(6) = New SqlParameter("@nUserId", SqlDbType.Int)
parms(6).Value = UserId
parms(7) = New SqlParameter("@cComputer", SqlDbType.NVarChar, 100)
parms(7).Value = Computer
parms(8) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(8).Value = Remark
parms(9) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(9).Value = HotelId
parms(10) = New SqlParameter("@tag", SqlDbType.Int)
parms(10).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_InsertFACash", Nothing, parms)
If parms(0).Value = 1 Then
id = parms(1).Value
Return True
Else
id = -1
Return False
End If
End Function
'付款-消费记录
Public Shared Function InsertFACnmCsh(ByVal HotelId As Integer, ByVal id As Integer, ByVal FACnmListId As Integer, ByVal FACashId As Integer, ByVal PayValue As Decimal, ByVal tag As Integer) As Boolean
Dim parms(6) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Direction = ParameterDirection.Output
parms(2) = New SqlParameter("@nFACnmListId", SqlDbType.Int)
parms(2).Value = FACnmListId
parms(3) = New SqlParameter("@nFACashId", SqlDbType.Int)
parms(3).Value = FACashId
parms(4) = New SqlParameter("@nPayValue", SqlDbType.Decimal)
parms(4).Value = PayValue
parms(5) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(5).Value = HotelId
parms(6) = New SqlParameter("@tag", SqlDbType.Int)
parms(6).Value = tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_InsertFACnmCsh", Nothing, parms)
If parms(0).Value = 1 Then
id = parms(1).Value
Return True
Else
id = -1
Return False
End If
End Function
#End Region
#End Region
Public Shared Function QueryBill(ByVal hotelId As Integer, ByVal billStateName As String, ByVal accountTypeName As String, _
ByVal rentKindId As Integer, ByVal pactCompany As String, ByVal teamName As String, ByVal teamCode As String, ByVal reserveCode As String, _
ByVal salesmanId As Integer, ByVal addressHome As String, ByVal guestName As String, ByVal arrivedTimeMin As DateTime, _
ByVal arrivedTimeMax As DateTime, ByVal leftTimeMin As DateTime, ByVal leftTimeMax As DateTime) As DataTable
Dim parms(15) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(1).Value = hotelId
parms(2) = New SqlParameter("@cBillStateName", SqlDbType.NVarChar, 50)
parms(2).Value = Util.CheckParameter(billStateName)
parms(3) = New SqlParameter("@cAccountTypeName", SqlDbType.NVarChar, 50)
parms(3).Value = Util.CheckParameter(accountTypeName)
parms(4) = New SqlParameter("@nRentKindId", SqlDbType.Int)
parms(4).Value = Util.CheckParameter(rentKindId)
parms(5) = New SqlParameter("@cPactCompany", SqlDbType.NVarChar, 200)
parms(5).Value = Util.CheckParameter(pactCompany)
parms(6) = New SqlParameter("@cTeamName", SqlDbType.NVarChar, 50)
parms(6).Value = Util.CheckParameter(teamName)
parms(7) = New SqlParameter("@cTeamCode", SqlDbType.NVarChar, 50)
parms(7).Value = Util.CheckParameter(teamCode)
parms(8) = New SqlParameter("@cReserveCode", SqlDbType.NVarChar, 100)
parms(8).Value = Util.CheckParameter(reserveCode)
parms(9) = New SqlParameter("@nSalesmanId", SqlDbType.Int)
parms(9).Value = Util.CheckParameter(salesmanId)
parms(10) = New SqlParameter("@cAddressHome", SqlDbType.NVarChar, 200)
parms(10).Value = Util.CheckParameter(addressHome)
parms(11) = New SqlParameter("@cGuestName", SqlDbType.NVarChar, 50)
parms(11).Value = Util.CheckParameter(guestName)
parms(12) = New SqlParameter("@dArrivedTimeMin", SqlDbType.DateTime)
parms(12).Value = Util.CheckParameter(arrivedTimeMin)
parms(13) = New SqlParameter("@dArrivedTimeMax", SqlDbType.DateTime)
parms(13).Value = Util.CheckParameter(arrivedTimeMax)
parms(14) = New SqlParameter("@dLeftTimeMin", SqlDbType.DateTime)
parms(14).Value = Util.CheckParameter(leftTimeMin)
parms(15) = New SqlParameter("@dLeftTimeMax", SqlDbType.DateTime)
parms(15).Value = Util.CheckParameter(leftTimeMax)
Return Pub.GetDatatable(CnnStr.MainCnnStr, "P_QueryBill", parms)
End Function
Public Shared Function SetConsumeListState_FACnmList(ByVal hotelId As Integer, ByVal id As Integer, ByVal stateId As Integer) As Boolean
Dim parms(3) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(1).Value = hotelId
parms(2) = New SqlParameter("@nId", SqlDbType.Int)
parms(2).Value = id
parms(3) = New SqlParameter("@nStateId", SqlDbType.Int)
parms(3).Value = stateId
Util.ExecProc("", CnnStr.MainCnnStr, "P_SetConsumeListState_FACnmList", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function GetFinishedImprestList(ByVal hotelId As Integer, ByVal ParentId As Integer, ByVal tag As Integer) As DataTable()
Dim parms(3) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(1).Value = hotelId
parms(2) = New SqlParameter("@nParentId", SqlDbType.Int)
parms(2).Value = ParentId
parms(3) = New SqlParameter("@tag", SqlDbType.Int)
parms(3).Value = tag
Dim ds As DataSet
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetImprestListByBillAndGuest", ds, parms)
If parms(0).Value = 1 And ds.Tables.Count > 1 Then
Return New DataTable() {ds.Tables(0), ds.Tables(1)}
Else
Return Nothing
End If
End Function
Public Shared Function GetFACashList(ByVal hotelId As Integer) As DataTable
Dim parms(1) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(1).Value = hotelId
Return Pub.GetDatatable(CnnStr.MainCnnStr, "P_GetFACashList", parms)
End Function
Public Shared Function GetTransferConsume(ByVal hotelId As Integer, ByVal HallId As Integer) As DataTable
Return GetTransferConsume(hotelId, HallId, -1, 0)
End Function
Public Shared Function GetTransferConsume(ByVal hotelId As Integer, ByVal HallId As Integer, ByVal targId As Integer, ByVal tag As Integer) As DataTable
Dim parms(4) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(1).Value = hotelId
parms(2) = New SqlParameter("@nHallId", SqlDbType.Int)
parms(2).Value = HallId
parms(3) = New SqlParameter("@nTargId", SqlDbType.Int)
parms(3).Value = targId
parms(4) = New SqlParameter("@tag", SqlDbType.Int)
parms(4).Value = tag
Return Pub.GetDatatable(CnnStr.MainCnnStr, "P_GetConsumeByHall", parms)
End Function
'cl20090903
Public Shared Function DoEditCashRemark(ByVal Id As Integer, ByVal Remark As String, ByVal HotelId As Integer, ByVal Tag As Integer) As Boolean
Dim parms(4) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Value = Id
parms(2) = New SqlParameter("@cRemark", SqlDbType.NVarChar, 4000)
parms(2).Value = Remark
parms(3) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(3).Value = HotelId
parms(4) = New SqlParameter("@nTag", SqlDbType.Int)
parms(4).Value = Tag
Util.ExecProc("", CnnStr.MainCnnStr, "P_DoEditCashRemark", Nothing, parms)
If parms(0).Value = 1 Then
Return True
Else
Return False
End If
End Function
Public Shared Function GetCashSumOrDetail(ByVal hotelId As Integer, ByVal id As Integer, ByVal tag As Integer, ByVal cursor As Integer) As DataTable
Dim parms(3) As SqlParameter
Dim ds As DataSet
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
parms(1) = New SqlParameter("@nId", SqlDbType.Int)
parms(1).Value = id
parms(2) = New SqlParameter("@tag", SqlDbType.Int)
parms(2).Value = tag
parms(3) = New SqlParameter("@nHotelId", SqlDbType.Int)
parms(3).Value = hotelId
Select Case cursor
Case 1
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetCashDetail_Consume", ds, parms)
Case 2
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetCashDetail_Date", ds, parms)
Case 3
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetCashSum_Consume", ds, parms)
Case 4
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetCashSum_Date", ds, parms)
End Select
If parms(0).Value = 1 AndAlso ds.Tables.Count > 0 Then
Return ds.Tables(0)
Else
Return Nothing
End If
End Function
Public Function GetGlobalId() As Integer
Dim parms(0) As SqlParameter
parms(0) = New SqlParameter("@ret", SqlDbType.Int)
parms(0).Direction = ParameterDirection.Output
Util.ExecProc("", CnnStr.MainCnnStr, "P_GetGlobalId", Nothing, parms)
Return parms(0).Value
End Function
End Class
