This commit is contained in:
miggaze 2020-10-27 18:23:58 +07:00
parent dc74a9c5ad
commit 3474927a6f
2 changed files with 40 additions and 34 deletions

View file

@ -192,37 +192,39 @@
EndIf EndIf
If PayInfoCFlag = 1 Then If PayInfoCFlag = 1 Then
Var SessionID2 = SelectSlot + ":" If CodeChannel = 1 Then
Var SessionID2 = SessionID2 + ExtendData Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var CreditAmount1 = "" Var CreditAmount1 = ""
Var ServiceAmountFlow = "" Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999" Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee" Var ServiceType = "coffee"
Var ECommerce = "" Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2 Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C00" Var ECommerce = ECommerce + "C00"
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + CodeNumber Var ECommerce = ECommerce + CodeNumber
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C" Var ECommerce = ECommerce + "C"
Var ServiceParameter = "max" Var ServiceParameter = "max"
Var ServiceCharge = 0 Var ServiceCharge = 0
Var AccountType = "new" Var AccountType = "new"
Var testservice = "kbank" Var testservice = "kbank"
Var tc = "" Var tc = ""
Var GetScore = "" Var GetScore = ""
Var OperatorName = "" Var OperatorName = ""
Var SessionID = "" Var SessionID = ""
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0 ;Var Timeout = 0
EndIf
Open "ROOT/taobin_project/xml/page_catalog.xml" Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf EndIf
@ -297,6 +299,9 @@
; Open "ROOT/taobin_project/xml/page_catalog.xml" ; Open "ROOT/taobin_project/xml/page_catalog.xml"
;EndIf ;EndIf
Var ActionOKCase = 1 Var ActionOKCase = 1
If IntVendingCampaign = 0 Then
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
EndIf EndIf
EndIf EndIf
@ -397,6 +402,7 @@
EndIf EndIf
EndIf EndIf
VendingQR OFF VendingQR OFF
Refresh
</EventVDCancle> </EventVDCancle>
@ -576,6 +582,8 @@
;Open "ROOT/taobin_project/xml/page_catalog.xml" ;Open "ROOT/taobin_project/xml/page_catalog.xml"
Refresh
</EventClick> </EventClick>
</Button> </Button>

View file

@ -16,9 +16,7 @@
Var CodeChannel = 0 Var CodeChannel = 0
;Var VendingQRCode = "ERROR" ;Var VendingQRCode = "ERROR"
VendingQR ON VendingQR OFF
Var QRCODE99 = ""
CoinVending OFF CoinVending OFF
Var ShowTextNumber = "Enable" Var ShowTextNumber = "Enable"
@ -32,7 +30,7 @@
Var Timeout = Timeout + 1 Var Timeout = Timeout + 1
If Timeout > 30 Then If Timeout > 30 Then
VendingQR OFF ;VendingQR OFF
Open menu_back_to_main Open menu_back_to_main
EndIf EndIf