This commit is contained in:
kong 2020-10-20 15:48:39 +07:00
parent f7903cce0f
commit 575dfefcab
13 changed files with 111 additions and 163 deletions

View file

@ -317,52 +317,52 @@
Else
If GetPayInfoFlag = 0 Then
If GetPayInfoFlag = 0 Then
VendingQR OFF
VendingQR OFF
Var CodeNumber = TelephoneNumber
Var RemainAmount = 0
PrepareDrink SelectDrink SelectSugarID
Var CodeNumber = TelephoneNumber
Var RemainAmount = 0
PrepareDrink SelectDrink SelectSugarID
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + sugarID
Var SessionID2 = SessionID2 + "000"
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + sugarID
Var SessionID2 = SessionID2 + "000"
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C00"
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + CodeNumber
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C00"
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + CodeNumber
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var Timeout = 0
Var GetPayInfoFlag = 1
Var TelephoneNumber = CodeNumber
Var CodeChannel = 1
Open "/media/bt/xml/page_page4-CodeWaiting.xml"
EndIf
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var Timeout = 0
Var GetPayInfoFlag = 1
Var TelephoneNumber = CodeNumber
Var CodeChannel = 1
Open "ROOT/taobin_project/xml/page_show_point.xml"
EndIf
EndIf