miggaze fix

This commit is contained in:
miggaze 2020-10-26 21:00:16 +07:00
parent 2c35ff0504
commit dc74a9c5ad
9 changed files with 586 additions and 163 deletions

View file

@ -10,10 +10,117 @@
Var StarwState = "Enable"
Var countClick2 = 0
Var Timeout = 0
</EventOpen>
<EventActionOk>
If ActionOKCase = 1 Then
If CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
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 ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C"
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 ActionOKCase = 2
Else
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
Else
If ActionOKCase = 2 Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
EndIf
</EventActionOk>
<EventActionError>
If ActionOKCase = 1 Then
If CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
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 ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C"
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 ActionOKCase = 2
Else
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
Else
If ActionOKCase = 2 Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
EndIf
</EventActionError>
<Timeout> 800 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
Var CountDownBrewing = CountDownBrewing - 1
; run test;
@ -21,11 +128,26 @@
; Open "ROOT/taobin_project/xml/page_drinkok.xml"
;EndIf
If CountDownBrewing = 0 Then
Open "ROOT/taobin_project/xml/page_drinkok.xml"
;Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
Var ShowCountDownBrewing = CountDownBrewing
If Timeout > 120 Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
If Timeout > 60 Then
Var MachineState_Result = 2
EndIf
If ChangeFlag = 1 Then
Var ChangeTimeout = ChangeTimeout + 1
EndIf
If ChangeOK = 2 Then
If ActionOKCase = 0 Then
Var TelephoneNumber = "0899999999"
@ -40,6 +162,61 @@
EndIf
EndIf
If ChangeTimeout > 30 Then
If ActionOKCase = 0 Then
Var VendingDiscount = 0
Var VendingCampaign = 0
Var TelephoneNumber = "0899999999"
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
;Open "ROOT/xml/menu_closeMaintenance.xml"
Var ActionOKCase = 1
EndIf
EndIf
If ChangeOK = 3 Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
If ChangeOK = 4 Then
If ActionOKCase = 0 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
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 ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C"
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 ActionOKCase = 2
EndIf
EndIf
If MachineState_Result = 1 Then
Var Timeout = 0
Var ProcessText = ""
@ -84,7 +261,7 @@
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Change ServiceAmount2
Var ChangeOK = 0
EndIf
Else
If CoinAmount > 0 Then
@ -92,20 +269,50 @@
Var ChangeFlag = 1
Var ServiceAmount2 = ServiceAmount2 - IntVendingCampaign
Change ServiceAmount2
Var ChangeOK = 0
EndIf
Else
Var ChangeOK = 4
EndIf
EndIf
Else
Var ChangeOK = 3
If CodeChannel = 0 Then
If CoinAmount > 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Var ServiceAmount2 = CoinAmount
Change CoinAmount
EndIf
Else
Var ChangeOK = 3
EndIf
Else
If CoinAmount > 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Var ServiceAmount2 = CoinAmount
Change CoinAmount
EndIf
Else
Var ChangeOK = 4
EndIf
EndIf
EndIf
OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_drinkfail.xml"
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/test_video_loop.xml"
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_list.xml"
;Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_list.xml"
EndIf
EndIf
@ -162,7 +369,9 @@
; this copy in file menu_brew2.xml and menu_lid_straw.xml
<EventChangeStatus>
If ChangeStatus = "payout-end" Then
Var ChangeOK = 2
If ChangeFlag = 1 Then
Var ChangeOK = 2
EndIf
EndIf
</EventChangeStatus>