pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions
taobin_project/xml/page_brewing3Multi.xml

1083 lines
24 KiB
XML
Raw Normal View History

Coffee-Multi
2021-11-10 15:33:47 +07:00
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open move from page_brewing3.xml
If CART_INDEX = 1 Then
Var ServiceAmount2 = CART1_PRICE
Var SelectDrink = CART1_PDCODE
After Seeker
2022-05-19 15:52:16 +07:00
Var Seeker.ExtendData = CART1_ONTOP
Coffee-Multi
2021-11-10 15:33:47 +07:00
EndIf
If CART_INDEX = 2 Then
Var ServiceAmount2 = CART2_PRICE
Var SelectDrink = CART2_PDCODE
After Seeker
2022-05-19 15:52:16 +07:00
Var Seeker.ExtendData = CART2_ONTOP
Coffee-Multi
2021-11-10 15:33:47 +07:00
EndIf
If CART_INDEX = 3 Then
Var ServiceAmount2 = CART3_PRICE
Var SelectDrink = CART3_PDCODE
After Seeker
2022-05-19 15:52:16 +07:00
Var Seeker.ExtendData = CART3_ONTOP
Coffee-Multi
2021-11-10 15:33:47 +07:00
EndIf
Var SessionID2 = "" + CART_INDEX
Var SessionID2 = SessionID2 + ":"
After Seeker
2022-05-19 15:52:16 +07:00
Var SessionID2 = SessionID2 + Seeker.ExtendData
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var countClick2 = 0
Var Timeout = 0
Var PrintCoinAmount = 0
If show_eng = "true" Then
;Var DirImage = "ROOT/taobin_project/image/collect_point1_en"
Play "ROOT/taobin_project/sound_eng/Wait_a_moment.mp3"
Else
;Var DirImage = "ROOT/taobin_project/image/collect_point1"
Play "ROOT/taobin_project/sound_thai/thankyou.mp3"
EndIf
Var waitAckPay = 0
Var VendingTSIDTmp = ""
Var VendingTSIDProblem = ""
creditReferecnce o3
2021-12-07 12:02:02 +07:00
Var CreditReference = ""
Coffee-Multi
2021-11-10 15:33:47 +07:00
order conti order
2021-12-17 12:48:38 +07:00
If Seeker.PayWithQR = 1 Then
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var VendingTSIDTmp = VendingTSID
order conti order
2021-12-17 12:48:38 +07:00
If Seeker.TNumberTaobinCredit = "" Then
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
Else
order conti order
2021-12-17 12:48:38 +07:00
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
Coffee-Multi
2021-11-10 15:33:47 +07:00
EndIf
Var PayType = ""
If ChangeFlag2 = 1 Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
Var VendingDiscount = 0
Var VendingCampaign = 0
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Var PayReferenceTmp = PayReference
Var PayReference = ""
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Var PayReference = PayReferenceTmp
Else
order conti order
2021-12-17 12:48:38 +07:00
If Seeker.StoreCreditFlag = 1 Then
Coffee-Multi
2021-11-10 15:33:47 +07:00
If CoinAmount > 0 Then
Var VendingDiscount = 0
Var VendingCampaign = 0
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Var PayReferenceTmp = PayReference
Var PayReference = ""
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Var PayReference = PayReferenceTmp
EndIf
EndIf
EndIf
EndIf
order conti order
2021-12-17 12:48:38 +07:00
If Seeker.TNumberTaobinCredit = "" Then
Coffee-Multi
2021-11-10 15:33:47 +07:00
order conti order
2021-12-17 12:48:38 +07:00
If Seeker.TNumberTaobinMember = "" Then
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var TelephoneNumberProblem = ""
Else
order conti order
2021-12-17 12:48:38 +07:00
Var TelephoneNumberProblem = Seeker.TNumberTaobinMember
Coffee-Multi
2021-11-10 15:33:47 +07:00
EndIf
Else
order conti order
2021-12-17 12:48:38 +07:00
Var TelephoneNumberProblem = Seeker.TNumberTaobinCredit
Coffee-Multi
2021-11-10 15:33:47 +07:00
EndIf
If TelephoneNumberProblem = "" Then
;Var TelephoneNumberProblem = ""
Var ShowTextNumber = "Enable"
Var Tel_Confirm_State = "Disable"
Else
Var ShowTextNumber = "Invisible"
Var Tel_Confirm_State = "Enable"
EndIf
order conti order
2021-12-17 12:48:38 +07:00
If Seeker.TNumberTaobinMember = "" Then
Coffee-Multi
2021-11-10 15:33:47 +07:00
Else
order conti order
2021-12-17 12:48:38 +07:00
If Seeker.PayWithQR = 1 Then
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var VendingTSID = VendingTSIDTmp
Else
Var VendingTSID = ""
EndIf
order conti order
2021-12-17 12:48:38 +07:00
Var BmiYear = Seeker.PointTaobinStr
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var PointCrm = ""
order conti order
2021-12-17 12:48:38 +07:00
If Seeker.FromConsent = 1 Then
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var PointCrm = "pdpa1"
EndIf
Var GetScore = VendingTSID
If AddPointFlag = 0 Then
Var AddPointFlag = 1
fix bug taobin point
2022-02-24 11:32:08 +07:00
If Seeker.TaobinErrorNetwork = 0 Then
order conti order
2021-12-17 12:48:38 +07:00
AddData 11 Seeker.TNumberTaobinMember BmiYear PointCrm GetScore
Coffee-Multi
2021-11-10 15:33:47 +07:00
Else
Var PointCrm = ""
order conti order
2021-12-17 12:48:38 +07:00
AddData 14 Seeker.TNumberTaobinMember BmiYear PointCrm GetScore
Coffee-Multi
2021-11-10 15:33:47 +07:00
EndIf
EndIf
Var VendingTSID = ""
EndIf
If GetFreeFromError = 1 Then
;Var GetFreeFromError = 0
Var TelephoneNumberProblem = TelephoneNumberGOTFree
EndIf
If LedLidBlink = "true" Then
Var LedLidBlink = "no"
LED LedDoorLid Blink 255 255 255 255
EndIf
Var PayType = "multi"
lid straw problem
2022-03-03 11:30:03 +07:00
If show_eng = "true" Then
Var DirImage2 = "ROOT/taobin_project/image/topping2_en"
Else
Var DirImage2 = "ROOT/taobin_project/image/topping2"
EndIf
Var StrawStateX = "Enable"
Var LidStateX = "Enable"
Var Seeker.thankLidFlag = 0
Var Seeker.thankStrawFlag = 0
Var bg_strawlid = DirImage2 + "/bg_strawlidSmall.png"
Var bg_strawlid_ST = "Enable"
Var Seeker.strawAction = 0
Var Seeker.lidAction = 0
If Seeker.thankLidFlag = 1 Then
Var bg_strawlid = DirImage2 + "/bg_strawSmall.png"
Var LidStateX = "Invisible"
Var Seeker.lidAction = 2
EndIf
Hide button report straw
2022-03-13 10:29:55 +07:00
; Disable
Var bg_strawlid_ST = "Invisible"
Var bg_strawProblem_ST = "Invisible"
Var StrawStateX = "Invisible"
Var LidStateX = "Invisible"
Coffee-Multi
2021-11-10 15:33:47 +07:00
</EventOpen>
<EventActionOk>
If ActionOKCase = 1 Then
order conti order
2021-12-17 12:48:38 +07:00
If Seeker.CodeChannel = 1 Then
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var SessionID2 = SelectSlot + ":"
After Seeker
2022-05-19 15:52:16 +07:00
Var SessionID2 = SessionID2 + Seeker.ExtendData
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber2 = "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 + "/"
add code S04
2022-03-21 15:52:55 +07:00
Var ECommerce = ECommerce + Seeker.VendingCode
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var ECommerce = ECommerce + "/"
order conti order
2021-12-17 12:48:38 +07:00
Var ECommerce = ECommerce + Seeker.CodeNumber
Coffee-Multi
2021-11-10 15:33:47 +07:00
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 TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0
Var ActionOKCase = 2
SAVELOG "back_to_main from line > 142."
Open "ROOT/taobin_project/xml/page_drinkfail2Multi.xml"
Else
SAVELOG "back_to_main from line > 147."
Open "ROOT/taobin_project/xml/page_drinkfail2Multi.xml"
EndIf
Else
EndIf
If waitAckPay = 1 Then
Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
</EventActionOk>
<EventActionError>
If ActionOKCase = 1 Then
order conti order
2021-12-17 12:48:38 +07:00
If Seeker.CodeChannel = 1 Then
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var SessionID2 = SelectSlot + ":"
After Seeker
2022-05-19 15:52:16 +07:00
Var SessionID2 = SessionID2 + Seeker.ExtendData
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber2 = "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 + "/"
add code S04
2022-03-21 15:52:55 +07:00
Var ECommerce = ECommerce + Seeker.VendingCode
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var ECommerce = ECommerce + "/"
order conti order
2021-12-17 12:48:38 +07:00
Var ECommerce = ECommerce + Seeker.CodeNumber
Coffee-Multi
2021-11-10 15:33:47 +07:00
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 TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0
Var ActionOKCase = 2
SAVELOG "back_to_main from line > 204."
Open "ROOT/taobin_project/xml/page_drinkfail2Multi.xml"
Else
SAVELOG "back_to_main from line > 173."
Open "ROOT/taobin_project/xml/page_drinkfail2Multi.xml"
EndIf
Else
EndIf
</EventActionError>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
Add button
2021-11-15 15:48:46 +07:00
If BREW_COUNT_DOWN_FROM_APP = "on" Then
Var CountDownBrewing = BREW_CNT
Else
If CountDownBrewing > 0 Then
Var CountDownBrewing = CountDownBrewing - 1
EndIf
Endif
Coffee-Multi
2021-11-10 15:33:47 +07:00
If Simulation = "true" Then
If CountDownBrewing = 0 Then
;Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
EndIf
If Timeout = 4 Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sounds/music1.mp3"
EndIf
; run test;
;If CountDownBrewing = 40 Then
; Open "ROOT/taobin_project/xml/page_drinkok.xml"
;EndIf
If CountDownBrewing = 0 Then
;Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
Var ShowCountDownBrewing = CountDownBrewing
If Timeout > 540 Then
SAVELOG "back_to_main from line > 217."
Open "ROOT/taobin_project/xml/page_drinkfail2Multi.xml"
EndIf
If Timeout > 480 Then
Var MachineState_Result = 2
EndIf
If ChangeFlag = 1 Then
Var ChangeTimeout = ChangeTimeout + 1
EndIf
If waitAckPay = 1 Then
If Timeout > 60 Then
Var VendingTSID = ""
Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
EndIf
If waitAckPay = 2 Then
If Timeout > 10 Then
order conti order
2021-12-17 12:48:38 +07:00
If Seeker.CodeChannel = 1 Then
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var SessionID2 = SelectSlot + ":"
After Seeker
2022-05-19 15:52:16 +07:00
Var SessionID2 = SessionID2 + Seeker.ExtendData
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber2 = "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 + "/"
add code S04
2022-03-21 15:52:55 +07:00
Var ECommerce = ECommerce + Seeker.VendingCode
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var ECommerce = ECommerce + "/"
order conti order
2021-12-17 12:48:38 +07:00
Var ECommerce = ECommerce + Seeker.CodeNumber
Coffee-Multi
2021-11-10 15:33:47 +07:00
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 TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0
EndIf
SAVELOG "back_to_main from line > 309."
Open "ROOT/taobin_project/xml/page_drinkfail2Multi.xml"
EndIf
EndIf
If ChangeOK = 2 Then
If ActionOKCase = 0 Then
order conti order
2021-12-17 12:48:38 +07:00
If Seeker.TNumberTaobinCredit = "" Then
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
order conti order
2021-12-17 12:48:38 +07:00
If Seeker.TNumberTaobinMember = "" Then
Coffee-Multi
2021-11-10 15:33:47 +07:00
Else
order conti order
2021-12-17 12:48:38 +07:00
Var TelephoneNumber = Seeker.TNumberTaobinMember
Coffee-Multi
2021-11-10 15:33:47 +07:00
EndIf
Else
order conti order
2021-12-17 12:48:38 +07:00
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
Coffee-Multi
2021-11-10 15:33:47 +07:00
EndIf
Var PayDetail = "1/" + HURR_FOREVER
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + SAMESALARY
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + NOBONUS
;Var PayDetail="1/F:404/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1"
Var ServiceType = "coffee"
Var ServiceCredit = SelectDrink
Var SuggestID = ""
Var SessionID2 = ""
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
order conti order
2021-12-17 12:48:38 +07:00
;If Seeker.CodeChannel = 0 Then
Coffee-Multi
2021-11-10 15:33:47 +07:00
; SAVELOG "back_to_main from line > 315."
; Open "ROOT/taobin_project/xml/page_drinkfail2Multi.xml"
;EndIf
Var waitAckPay = 2
Var Timeout = 5
Var ActionOKCase = 1
EndIf
EndIf
If ChangeTimeout > 30 Then
If ActionOKCase = 0 Then
order conti order
2021-12-17 12:48:38 +07:00
If Seeker.TNumberTaobinCredit = "" Then
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
order conti order
2021-12-17 12:48:38 +07:00
If Seeker.TNumberTaobinMember = "" Then
Coffee-Multi
2021-11-10 15:33:47 +07:00
Else
order conti order
2021-12-17 12:48:38 +07:00
Var TelephoneNumber = Seeker.TNumberTaobinMember
Coffee-Multi
2021-11-10 15:33:47 +07:00
EndIf
Else
order conti order
2021-12-17 12:48:38 +07:00
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
Coffee-Multi
2021-11-10 15:33:47 +07:00
EndIf
Var PayDetail = "1/" + HURR_FOREVER
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + SAMESALARY
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + NOBONUS
;Var PayDetail="1/F:404/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1"
Var ServiceType = "coffee"
Var ServiceCredit = SelectDrink
Var SuggestID = ""
Var SessionID2 = ""
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
order conti order
2021-12-17 12:48:38 +07:00
;If Seeker.CodeChannel = 0 Then
Coffee-Multi
2021-11-10 15:33:47 +07:00
; SAVELOG "back_to_main from line > 357."
; Open "ROOT/taobin_project/xml/page_drinkfail2Multi.xml"
;EndIf
Var waitAckPay = 2
Var Timeout = 5
Var ActionOKCase = 1
EndIf
EndIf
fix change coin multi
2021-11-15 19:42:16 +07:00
Coffee-Multi
2021-11-10 15:33:47 +07:00
If MachineState_Result = 1 Then
If waitAckPay = 0 Then
Var waitAckPay = 0
Var Timeout = 0
Var ProcessText = ""
order conti order
2021-12-17 12:48:38 +07:00
If Seeker.TNumberTaobinCredit = "" Then
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
order conti order
2021-12-17 12:48:38 +07:00
If Seeker.TNumberTaobinMember = "" Then
Coffee-Multi
2021-11-10 15:33:47 +07:00
Else
order conti order
2021-12-17 12:48:38 +07:00
Var TelephoneNumber = Seeker.TNumberTaobinMember
Coffee-Multi
2021-11-10 15:33:47 +07:00
EndIf
Else
order conti order
2021-12-17 12:48:38 +07:00
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
Coffee-Multi
2021-11-10 15:33:47 +07:00
EndIf
Var ServiceType = "coffee"
Var ServiceCredit = SelectDrink
Var SuggestID = ""
Var PayDetail = "1/" + HURR_FOREVER
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + SAMESALARY
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + NOBONUS
;Var PayDetail="1/S:0/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1"
If GetFreeFromError = 1 Then
order conti order
2021-12-17 12:48:38 +07:00
Var Seeker.CodeChannel = 1
Var Seeker.VendingCode = "C48"
Var Seeker.CodeNumber = "0000000000"
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var VendingCampaign = ServiceAmount2
EndIf
order conti order
2021-12-17 12:48:38 +07:00
If Seeker.PayWithQR = 0 Then
If Seeker.CodeChannel = 1 Then
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var SessionID2 = SessionID2 + "/"
order conti order
2021-12-17 12:48:38 +07:00
Var SessionID2 = SessionID2 + Seeker.CodeNumber
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var SessionID2 = SessionID2 + "/"
order conti order
2021-12-17 12:48:38 +07:00
Var SessionID2 = SessionID2 + Seeker.VendingCode
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + SelectDrink
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + BoxID
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + "S"
Var SessionID2 = SessionID2 + "/"
order conti order
2021-12-17 12:48:38 +07:00
Var SessionID2 = SessionID2 + Seeker.CodeNumber
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var SessionID2 = SessionID2 + "/"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Else
order conti order
2021-12-17 12:48:38 +07:00
If Seeker.CodeChannel = 2 Then
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + ""
Var SessionID2 = SessionID2 + "/"
order conti order
2021-12-17 12:48:38 +07:00
Var SessionID2 = SessionID2 + Seeker.VendingCode
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + SelectDrink
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + BoxID
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + "S"
Var SessionID2 = SessionID2 + "/"
order conti order
2021-12-17 12:48:38 +07:00
Var SessionID2 = SessionID2 + Seeker.CodeNumber
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var SessionID2 = SessionID2 + "/"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Else
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
EndIf
EndIf
Else
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
EndIf
EndIf
Var ServiceSuccess = "yes"
If waitAckPay = 0 Then
Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
EndIf
If MachineState_Result = 2 Then
If ErrTimeout = 0 Then
Var ErrTimeout = 1
order conti order
2021-12-17 12:48:38 +07:00
If Seeker.PayWithQR = 0 Then
If Seeker.CodeChannel = 0 Then
Coffee-Multi
2021-11-10 15:33:47 +07:00
If ChangeFlag = 0 Then
Var ChangeFlag = 1
order conti order
2021-12-17 12:48:38 +07:00
If Seeker.StoreCreditFlag = 1 Then
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var ChangeOK = 2
Else
fix change coin multi
2021-11-15 19:41:38 +07:00
;Change ServiceAmount2
Var ChangeAmountSum = ChangeAmountSum + ServiceAmount2
Var ChangeOK = 2
Coffee-Multi
2021-11-10 15:33:47 +07:00
EndIf
EndIf
Else
If CoinAmount > 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
order conti order
2021-12-17 12:48:38 +07:00
Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign
Coffee-Multi
2021-11-10 15:33:47 +07:00
order conti order
2021-12-17 12:48:38 +07:00
If Seeker.StoreCreditFlag = 1 Then
Coffee-Multi
2021-11-10 15:33:47 +07:00
Var ChangeOK = 2
Else
fix change coin multi
2021-11-15 19:41:38 +07:00
;Change ServiceAmount3
Var ChangeAmountSum = ChangeAmountSum + ServiceAmount3
Var ChangeOK = 2
Coffee-Multi
2021-11-10 15:33:47 +07:00
EndIf
EndIf
Else
Var ChangeOK = 2
EndIf
EndIf
Else
Var ChangeOK = 2
EndIf
;OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_drinkfail.xml"
;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/test_video_loop.xml"
;Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_list.xml"
EndIf
EndIf
If MachineStage = "show-menu" Then
If MachineState_Result = 0 Then
changed image bx_add_order, remove check show-menu,show next order after cancel and adddata 24 auto
2022-04-04 12:32:43 +07:00
;SAVELOG "back_to_main from line > 655."
Coffee-Multi
2021-11-10 15:33:47 +07:00
;Open "ROOT/taobin_project/xml/page_drinkok.xml"
changed image bx_add_order, remove check show-menu,show next order after cancel and adddata 24 auto
2022-04-04 12:32:43 +07:00
;Var MachineState_Result = 1
Coffee-Multi
2021-11-10 15:33:47 +07:00
EndIf
EndIf
If MachineStage = "close-maintenance" Then
If MachineState_Result = 0 Then
SAVELOG "back_to_main from line > 663."
Var MachineState_Result = 2
;Open "ROOT/taobin_project/xml/page_drinkfail2Multi.xml"
EndIf
EndIf
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
If RoadShow = "true" Then
Open "ROOT/taobin_project/xml/page_back_to_error.xml"
Else
Var MachineState_Result = 2
EndIf
EndIf
DEBUGVAR CountUpBrewing
; animation video loop
If AnimationOn = "true" Then
Var CountUpBrewing = CountUpBrewing + 1
Var SlotVideo = CountUpBrewing / AnimationVideoPlayTime
If PreviseStepVideo = SlotVideo Then
;SAVELOG SlotVideo
Else
Var PreviseStepVideo = SlotVideo
;SAVELOG PreviseStepVideo
;SAVELOG SlotVideo
;SAVELOG CountUpBrewing
;Var CountDownVideoTime = CountDownVideoTimeReload
Var StepVideo = SlotVideo + 2
;SAVELOG StepVideo
If StepVideo = 1 Then
Var videoID = VideoID1
EndIf
If StepVideo = 2 Then
Var videoID = VideoID2
EndIf
If StepVideo = 3 Then
Var videoID = VideoID3
EndIf
If StepVideo = 4 Then
Var videoID = VideoID4
EndIf
If StepVideo = 5 Then
Var videoID = VideoID5
EndIf
If StepVideo = 6 Then
Var videoID = VideoID6
EndIf
If StepVideo = 7 Then
Var videoID = VideoID7
EndIf
If StepVideo = 8 Then
Var videoID = VideoID8
EndIf
If StepVideo = 9 Then
Var videoID = VideoID9
EndIf
;SAVELOG videoID
If videoID = 0 Then
Else
If videoID = "---" Then
Else
Var VideoPlayFile = VideoPath
Var VideoPlayFile = VideoPlayFile + VideoFileBegin
Var VideoPlayFile = VideoPlayFile + videoID
Var VideoPlayFile = VideoPlayFile + VideoFileEnd
Var PictureFile = PicturePath
Var PictureFile = PictureFile + PictureBegin
Var PictureFile = PictureFile + videoID
Var PictureFile = PictureFile + PictureEnd
DEBUGVAR VideoPlayFile
DEBUGVAR PictureFile
EndIf
EndIf
EndIf
EndIf
If IgnoreNetCore = "true" Then
If CountDownBrewing = 0 Then
Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
EndIf
Refresh
TimerReset
</EventTimeout>
<EventMachine>
;If MachineStage = "drink-success" Then
; Open "ROOT/taobin_project/xml/page_drinkok.xml"
;EndIf
;If MachineStage = "drink-failed" Then
; Open "ROOT/taobin_project/xml/page_drinkfail.xml"
;EndIf
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
If RoadShow = "true" Then
Open "ROOT/taobin_project/xml/page_back_to_error.xml"
Else
Var MachineState_Result = 2
EndIf
EndIf
Refresh
</EventMachine>
; this copy in file menu_brew2.xml and menu_lid_straw.xml
<EventChangeStatus>
If ChangeStatus = "payout-end" Then
If ChangeFlag = 1 Then
Var ChangeOK = 2
EndIf
EndIf
</EventChangeStatus>
<Video>
<X> 0 </X>
<Y> 380 </Y>
<Width> 1080</Width>
<Height> 840 </Height>
<Refresh> "Reload" </Refresh>
<Loop> "true" </Loop>
<Filename> VideoPlayFile </Filename>
</Video>
;<Image>
;<X> 0 </X>
;<Y> 0 </Y>
;<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
;</Image>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
<Image>
<X> 60 </X>
<Y> 1290 </Y>
<Filename> PictureFile</Filename>
</Image>
<Image>
<X> 60 </X>
<Y> 1649 </Y>
<Filename> BottomText </Filename>
</Image>
;
<Image>
<X> 751 </X>
<Y> 413 </Y>
<Filename> "ROOT/taobin_project/image/page_doing/img2.png" </Filename>
</Image>
;
<Text>
<X> XPosiShowCountDownBrew </X>
<Y> 470 </Y>
<Align> End </Align>
<Width> 153 </Width>
<Size> 88 </Size>
<Font> RobotoBold </Font>
<Color> 0x513C2F </Color>
<Value> ShowCountDownBrewing </Value>
</Text>
;<Text>
;<X> 100 </X>
;<Y> 470 </Y>
;<Align> End </Align>
;<Width> 153 </Width>
;<Size> 30 </Size>
;<Font> RobotoBold </Font>
;<Color> 0x513C2F </Color>
;<Value> MachineStage </Value>
;</Text>
;
;<Text>
;<X> 0 </X>
;<Y> 1880 </Y>
;<Size> 30 </Size>
;<Align> Center </Align>
;<Width> 1080 </Width>
;<Font> KanitThinTTF </Font>
;<Color> 0x513C2F </Color>
;<Value> MachineStage </Value>
;</Text>
;<Button>
;<X> 0 </X>
;<Y> 1860 </Y>
;<Width> 200 </Width>
;<Height> 50 </Height>
;<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
;<Volume> SoundVolume </Volume>
;<EventClick>
; Var countClick = countClick + 1
; If countClick = 3 Then
;
; EndIf
;
; If countClick = 5 Then
; Var countClick = 0
; MainMenu
; EndIf
; Refresh
;</EventClick>
;</Button>
<Button>
<X> 870 </X>
<Y> 1860 </Y>
<Width> 200 </Width>
<Height> 50 </Height>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var countClick2 = countClick2 + 1
If countClick2 = 3 Then
EndIf
If countClick2 = 5 Then
Var countClick2 = 0
Var HaveCup = "true"
Var MachineStage = "drink-success"
Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
Refresh
</EventClick>
</Button>
lid straw problem
2022-03-03 11:30:03 +07:00
<Button>
<X> 10 </X>
<Y> 500 </Y>
<State>bg_strawlid_ST</State>
<Filename> bg_strawlid </Filename>
<EventClick>
</EventClick>
</Button>
; straw left
<Button>
<X> 50 </X>
<Y> 572 </Y>
<State> StrawStateX </State>
<Mode> "No" </Mode>
<Filename> "ROOT/taobin_project/image/topping2/bn_straw.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/bp_straw.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/topping2/bd_straw.png" </FilenameDisable>
<EventClick>
SAVELOG "Click straw cb"
If StrawStateX = "Press" Then
;Var StrawStateX = "Enable"
Else
Var StrawStateX = "Press"
Var Seeker.strawAction = 1
EndIf
Refresh
</EventClick>
</Button>
<Button>
<X> 377 </X>
<Y> 579 </Y>
<State> StrawStateX </State>
<Mode> "No" </Mode>
<Filename> "ROOT/taobin_project/image/topping2/cb_notcheck.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/cb_checked.png" </FilenamePress>
<FilenameDisable> Var( DirImage + "/cb_checkdis.png" ) </FilenameDisable>
<EventClick>
SAVELOG "Click straw cb"
If StrawStateX = "Press" Then
;Var StrawStateX = "Enable"
Else
Var StrawStateX = "Press"
Var Seeker.strawAction = 1
EndIf
Refresh
</EventClick>
</Button>
; LID left
<Button>
<X> 50 </X>
<Y> 648 </Y>
<State> LidStateX </State>
<Mode> "No" </Mode>
<Filename> "ROOT/taobin_project/image/topping2/bn_lid.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/bp_lid.png" </FilenamePress>
<FilenameDisable> Var( DirImage + "/bd_lid.png" ) </FilenameDisable>
<EventClick>
If Seeker.thankLidFlag = 0 Then
SAVELOG "Click LID pic"
If LidStateX = "Press" Then
;Var LidStateX = "Enable"
Else
Var LidStateX = "Press"
Var Seeker.lidAction = 1
EndIf
DEBUGVAR SugarState1
Refresh
EndIf
</EventClick>
</Button>
<Button>
<X> 377 </X>
<Y> 655 </Y>
<State> LidStateX </State>
<Mode> "No" </Mode>
<Filename> "ROOT/taobin_project/image/topping2/cb_notcheck.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/cb_checked.png" </FilenamePress>
<FilenameDisable> Var( DirImage + "/cb_checkdis.png" ) </FilenameDisable>
<EventClick>
If Seeker.thankLidFlag = 0 Then
SAVELOG "Click LID cb"
If LidStateX = "Press" Then
;Var LidStateX = "Enable"
Else
Var LidStateX = "Press"
Var Seeker.lidAction = 1
EndIf
Refresh
EndIf
</EventClick>
</Button>
Coffee-Multi
2021-11-10 15:33:47 +07:00
</Popup>
Reference in a new issue Copy permalink