"Enable" 1080 1920 "0xeae6e1" SoundVolume
Var SendNotiPaySuccess = 2
Var GetMoreStrawCount = 3
DEBUGVAR TxRef1
SAVELOG "page_brewing3.xml"
DEBUGVAR MachineStage
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_brewing3Multi.xml"
Else
Var PayReference = ""
Var PayType = ""
EndIf
Var SelectDrink = Seeker.selected_a_drink
Var ExtendData = Seeker.ExtendData
Var ServiceAmount2 = Seeker.ServiceAmount2
DEBUGVAR Seeker
DEBUGVAR Seeker.selected_a_drink
DEBUGVAR Seeker.ServiceAmount2
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
; On open move from page_brewing3.xml
Var countClick2 = 0
Var Timeout = 0
Var PrintCoinAmount = 0
If show_eng = "true" Then
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png"
Play "ROOT/taobin_project/sound_eng/Wait_a_moment.mp3"
Var bnGetMoreStrawFileName = "ROOT/taobin_project/image/page_doing/bn_get_more_straw_en.png"
Var bpGetMoreStrawFileName = "ROOT/taobin_project/image/page_doing/bp_get_more_straw_en.png"
Var bnStrawProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_straw_en.png"
Var bpStrawProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_straw_en.png"
Var bnLidProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_lid_en.png"
Var bpLidProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_lid_en.png"
Var bn_get_lid_image = "ROOT/taobin_project/image/page_doing/bn_get_lid_en.png"
Var bp_get_lid_image = "ROOT/taobin_project/image/page_doing/bp_get_lid_en.png"
Var brew_txt2 = "ROOT/taobin_project/image/page_doing/brewing_txt_adv3_en.png"
Var brew_txt1 = "ROOT/taobin_project/image/page_doing/brewing_txt_adv1_en.png"
Var XStraw = 336
Else
Var PlaySoundLag = "ROOT/taobin_project/sound_thai/thankyou.mp3"
; Play Sound #zone
If SoundBackToSchoolEnable = 1 Then
If SoundBackToSchoolType = 1 Then
Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/boy/"
EndIf
If SoundBackToSchoolType = 2 Then
Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/girl/"
EndIf
Var PlaySoundLag = RootPathSoundBackToSchool + "thankyou.wav"
EndIf
Play PlaySoundLag
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
Var bnGetMoreStrawFileName = "ROOT/taobin_project/image/page_doing/bn_get_more_straw.png"
Var bpGetMoreStrawFileName = "ROOT/taobin_project/image/page_doing/bp_get_more_straw.png"
Var bnStrawProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_straw.png"
Var bpStrawProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_straw.png"
Var bnLidProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_lid.png"
Var bpLidProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_lid.png"
Var bn_get_lid_image = "ROOT/taobin_project/image/page_doing/bn_get_lid.png"
Var bp_get_lid_image = "ROOT/taobin_project/image/page_doing/bp_get_lid.png"
Var brew_txt2 = "ROOT/taobin_project/image/page_doing/brewing_txt_adv3.png"
Var brew_txt1 = "ROOT/taobin_project/image/page_doing/brewing_txt_adv1.png"
Var XStraw = 382
EndIf
Var waitAckPay = 0
Var VendingTSIDTmp = ""
Var VendingTSIDProblem = ""
Var CreditReference = ""
Var PayCredit = 0
If Seeker.PayWithQR = 1 Then
Var VendingTSIDTmp = Seeker.VendingTSID
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
Else
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
EndIf
If ChangeFlag2 = 1 Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
Var VendingDiscount = 0
Var VendingCampaign = 0
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Else
If Seeker.StoreCreditFlag = 1 Then
Var VendingDiscount = 0
Var VendingCampaign = 0
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
EndIf
EndIf
EndIf
If Seeker.TNumberTaobinCredit = "" Then
If Seeker.TNumberTaobinMember = "" Then
Var TelephoneNumberProblem = ""
Else
Var TelephoneNumberProblem = Seeker.TNumberTaobinMember
EndIf
Else
Var TelephoneNumberProblem = Seeker.TNumberTaobinCredit
EndIf
If TelephoneNumberProblem = "" Then
;Var TelephoneNumberProblem = ""
Var ShowTextNumber = "Enable"
Var Tel_Confirm_State = "Disable"
Else
Var ShowTextNumber = "Invisible"
Var Tel_Confirm_State = "Enable"
EndIf
Var AddData = 0
DEBUGVAR Seeker.TNumberTaobinMember
DEBUGVAR Seeker.PointTaobinStr
If Seeker.TNumberTaobinMember = "" Then
Else
If Seeker.PayWithQR = 1 Then
Var VendingTSID = VendingTSIDTmp
Else
Var VendingTSID = ""
EndIf
Var BmiYear = Seeker.PointTaobinStr
Var PointCrm = ""
If Seeker.FromConsent = 1 Then
Var PointCrm = "pdpa1"
EndIf
Var GetScore = VendingTSID
If Seeker.TaobinErrorNetwork = 0 Then
Var Cid = 11
Var AddData = 1
;AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore
Else
Var PointCrm = ""
Var Cid = 14
Var AddData = 1
;AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore
EndIf
Var VendingTSID = ""
EndIf
If Seeker.VendingCode = "MKFOO" Then
Var AddData = 0
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 CreditReference = Seeker.CreditReferenceTmp
Var VendingDiscount = Seeker.VendingDiscount
Var VendingCampaign = Seeker.VendingCampaign
Var TxReference = Seeker.TxRef1
DEBUGVAR TxReference
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping2_en"
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping2"
EndIf
DEBUGVAR show_eng
Var next_pic_bn = DirImage + "/bn_add_order.png"
Var next_pic_bp = DirImage + "/bp_add_order.png"
Var text_next_order = DirImage + "/text_next_order.png"
Var bg_strawlid = DirImage2 + "/bg_strawlidSmall.png"
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
DEBUGVAR LastMakeDrinkResult
If LastMakeDrinkResult = "success" Then
Var MachineState_Result = 1
EndIf
If LastMakeDrinkResult = "fail" Then
SAVELOG "LastMakeDrinkResult is 2"
Var MachineState_Result = 2
EndIf
DEBUGVAR VendingCampaign
If MachineState_Result > 0 Then
Var SelectMenuBetweenBrewEnable1 = "Invisible"
Else
Var SelectMenuBetweenBrewEnable1 = "Enable"
EndIf
If GetFreeFromError = 1 Then
Var SelectMenuBetweenBrewEnable1 = "Invisible"
EndIf
If SelectMenuBetweenBrewEnable1 = "Enable" Then
Var EnableGetMoreStrawFileName = "Enable"
Var SelectMenuBetweenBrewEnable1Blink = "Enable"
Else
Var SelectMenuBetweenBrewEnable1Blink = "Invisible"
Var EnableGetMoreStrawFileName = "Invisible"
EndIf
; Hide
Var bg_strawProblem_ST = "Invisible"
Var StrawProblemStatus = 1
Var StrawStateX = "Invisible"
Var LidStateX = "Invisible"
; Override from config
If StrawGetMoreState = "Invisible" Then
Var bg_strawProblem_ST = "Enable"
Var EnableGetMoreStrawFileName = "Invisible"
EndIf
If RoadShow = "true" Then
Var SelectMenuBetweenBrewEnable1Blink = "Invisible"
EndIf
If Seeker.CreditCard = 1 Then
Var SelectMenuBetweenBrewEnable1Blink = "Invisible"
Var SelectMenuBetweenBrewEnable1 = "Invisible"
EndIf
If NeedUpgrade = "true" Then
Var SelectMenuBetweenBrewEnable1Blink = "Invisible"
Var SelectMenuBetweenBrewEnable1 = "Invisible"
EndIf
If NeedReboot = "true" Then
Var SelectMenuBetweenBrewEnable1Blink = "Invisible"
Var SelectMenuBetweenBrewEnable1 = "Invisible"
EndIf
DEBUGVAR NeedUpgrade
DEBUGVAR NeedReboot
; copy stage
Var bg_lidProblem_ST2 = bg_lidProblem_ST
DEBUGVAR bg_lidProblem_ST2
; zone Language
If LanguageObjectShow = "Enable" Then
Var XStraw = 350
Var SelectMenuBetweenBrewEnable2 = SelectMenuBetweenBrewEnable1
Var SelectMenuBetweenBrewEnable1 = "Invisible"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing_inter/bg_show_time_remaining.png"
Var bg_lidProblem_ST = "Invisible"
Var GetLidButtonState = "Invisible"
Var bg_strawProblem_ST = "Invisible"
var EnableGetMoreStrawFileName = "Invisible"
var EnableGetMoreStrawFileName2 = "Enable"
Var bg_strawProblem_ST2 = "Invisible"~/tb_send_file.sh 173149 ~cofffeemachineConfig/profile/run_6_profile_1.json profile/profile_new_1.json dc
If bg_lidProblem_ST2 = "Invisible" Then
Var GetLidButtonState2 = "Enable"
Else
Var GetLidButtonState2 = "Invisible"
EndIf
EndIf
If NoLangObjectShow = "Enable" Then
Var SelectMenuBetweenBrewEnable2 = "Invisible"
Var bg_lidProblem_ST2 = "Invisible"
Var GetLidButtonState2 = "Invisible"
Var bg_strawProblem_ST2 = "Invisible"
var EnableGetMoreStrawFileName2 = "Invisible"
DEBUGVAR bg_lidProblem_ST
If bg_lidProblem_ST = "Invisible" Then
Var GetLidButtonState = "Enable"
Var XStraw = 265
EndIf
EndIf
DEBUGVAR SelectMenuBetweenBrewEnable1
DEBUGVAR SelectMenuBetweenBrewEnable2
DEBUGVAR LanguageObjectShow
DEBUGVAR NoLangObjectShow
Var CreditCardVoid = 0
If InternationalEnable = 1 Then
Var adver_brewing_en = 0
EndIf
If adver_brewing_en = 1 Then
Var adver_brewing_playing = 1
Var adver_brewing_play_index = 2
Var adver_brewing_count_down = 10
Var VideoPlayFile = "ROOT/taobin_project/image/page_doing/tao_adv1.png"
Var PictureFile = brew_txt1
EndIf
Var CampaignEnable = 0
Var GetLidButtonCountDown = 0
; language instance
RootLayoutVisible 3 "hide"
Var XPosiShowCountDownBrew = 768
Refresh
If CreditCardVoid = 1 Then
Var ChangeOK = 2
EndIf
If ActionOKCase = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
DEBUGVAR SessionID2
DEBUGVAR SessionID2
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 + Seeker.VendingCode
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.CodeNumber
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign
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
SAVELOG "back_to_main from line > 142."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
Else
SAVELOG "back_to_main from line > 147."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
Else
EndIf
If waitAckPay = 1 Then
SAVELOG "waitAckPay = 1"
Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
If ActionOKCase = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
DEBUGVAR SessionID2
DEBUGVAR SessionID2
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 + Seeker.VendingCode
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.CodeNumber
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign
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
SAVELOG "back_to_main from line > 204."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
Else
SAVELOG "back_to_main from line > 173."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
Else
EndIf
1000
Var Timeout = Timeout + 1
DEBUGVAR MachineState_Result
DEBUGVAR BREW_COUNT_DOWN_FROM_APP
If MOVE_CUP_TO_DOOR = "true" Then
Var MOVE_CUP_TO_DOOR = "false"
EndIf
If BREW_COUNT_DOWN_FROM_APP = "on" Then
Var CountDownBrewing = BREW_CNT
Else
If CountDownBrewing > 0 Then
Var CountDownBrewing = CountDownBrewing - 1
EndIf
Endif
;If Simulation = "true" Then
; If CountDownBrewing = 0 Then
; ;Open "ROOT/taobin_project/xml/page_drinkok.xml"
; EndIf
;EndIf
If SelectMenuBetweenBrewEnable1 = "Enable" Then
If Timeout = 5 Then
If show_eng = "true" Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/next_drink.mp3"
Else
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/next_drink.mp3"
; Play Sound #zone
If SoundBackToSchoolEnable = 1 Then
If SoundBackToSchoolType = 1 Then
Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/boy/"
EndIf
If SoundBackToSchoolType = 2 Then
Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/girl/"
EndIf
Var PlaySoundLag = RootPathSoundBackToSchool + "next_drink.wav"
EndIf
PlayLong PlaySoundLag
EndIf
EndIf
If Timeout = 9 Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sounds/music1.mp3"
EndIf
Else
If Timeout = 4 Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sounds/music1.mp3"
EndIf
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_drinkfail2.xml"
EndIf
If Timeout > 480 Then
SAVELOG " Timeout > 480"
Var MachineState_Result = 2
EndIf
If ChangeFlag = 1 Then
Var ChangeTimeout = ChangeTimeout + 1
EndIf
If waitAckPay = 1 Then
If Timeout > 60 Then
Var VendingTSID = ""
SAVELOG "TIMEOUT=60"
Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
EndIf
If waitAckPay = 2 Then
If Timeout > 10 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
DEBUGVAR SessionID2
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 + Seeker.VendingCode
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.CodeNumber
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign
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
EndIf
SAVELOG "back_to_main from line > 309."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
EndIf
If ChangeOK = 2 Then
If ActionOKCase = 0 Then
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
If Seeker.TNumberTaobinMember = "" Then
Else
Var TelephoneNumber = Seeker.TNumberTaobinMember
EndIf
Else
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
EndIf
If NextOrderStatus = "Disable" Then
Var PayDetail="2/F:1221/0/"
Var PayDetail = PayDetail + "/XML|"
Var PayDetail = PayDetail + Seeker.OrderChanel
Else
If HURR_FOREVER = "S:0" Then
Var HURR_FOREVER = "F:1303"
EndIf
Var PayDetail = "2/" + HURR_FOREVER
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + SAMESALARY
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + NOBONUS
Var PayDetail = PayDetail + "/XML|"
Var PayDetail = PayDetail + Seeker.OrderChanel
EndIf
;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
;If Seeker.CodeChannel = 0 Then
; SAVELOG "back_to_main from line > 315."
; Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
;EndIf
Var waitAckPay = 2
Var Timeout = 5
Var ActionOKCase = 1
SAVELOG "ActionOKCase = change OK 2"
EndIf
EndIf
If ChangeTimeout > 30 Then
If ActionOKCase = 0 Then
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
If Seeker.TNumberTaobinMember = "" Then
Else
Var TelephoneNumber = Seeker.TNumberTaobinMember
EndIf
Else
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
EndIf
If NextOrderStatus = "Disable" Then
Var PayDetail="2/F:1221/0/"
Var PayDetail = PayDetail + "/XML|"
Var PayDetail = PayDetail + Seeker.OrderChanel
Else
If HURR_FOREVER = "S:0" Then
Var HURR_FOREVER = "F:1303"
EndIf
Var PayDetail = "2/" + HURR_FOREVER
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + SAMESALARY
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + NOBONUS
Var PayDetail = PayDetail + "/XML|"
Var PayDetail = PayDetail + Seeker.OrderChanel
EndIf
;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
;If Seeker.CodeChannel = 0 Then
; SAVELOG "back_to_main from line > 357."
; Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
;EndIf
Var waitAckPay = 2
Var Timeout = 5
Var ActionOKCase = 1
SAVELOG "ActionOKCase = change time out"
EndIf
EndIf
If ChangeOK = 3 Then
If ActionOKCase = 0 Then
Var SVT = "coffee"
Var ACC = "0899999999"
If Seeker.TNumberTaobinMember = "" Then
Else
Var ACC = Seeker.TNumberTaobinMember
EndIf
If NextOrderStatus = "Disable" Then
Var PayDetail="2/F:1221/0/"
Var PayDetail = PayDetail + "/XML|"
Var PayDetail = PayDetail + Seeker.OrderChanel
Else
If HURR_FOREVER = "S:0" Then
Var HURR_FOREVER = "F:1303"
EndIf
Var PayDetail = "2/" + HURR_FOREVER
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + SAMESALARY
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + NOBONUS
Var PayDetail = PayDetail + "/XML|"
Var PayDetail = PayDetail + Seeker.OrderChanel
EndIf
Var DEE = PayDetail
PAYEXT SVT ACC VendingTSIDTmp DEE
Var ActionOKCase = 1
SAVELOG "ActionOKCase = change OK 3"
If Seeker.CodeChannel = 0 Then
SAVELOG "back_to_main from line > 391."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
Var waitAckPay = 2
Var Timeout = 5
EndIf
EndIf
If MachineState_Result = 1 Then
;Var MachineState_Result = 2
EndIf
If MachineState_Result = 1 Then
DEBUGVAR PaySuccessWithDaemonTask
If waitAckPay = 0 Then
Var waitAckPay = 0
Var Timeout = 0
Var ProcessText = ""
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
If Seeker.TNumberTaobinMember = "" Then
Else
Var TelephoneNumber = Seeker.TNumberTaobinMember
EndIf
Else
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
EndIf
If AddData = 1 Then
Var Cid = 26
AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore
EndIf
Var ServiceType = "coffee"
Var ServiceCredit = SelectDrink
Var SuggestID = ""
Var PayDetail = "2/" + HURR_FOREVER
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + SAMESALARY
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + NOBONUS
Var PayDetail = PayDetail + "/XML|"
Var PayDetail = PayDetail + Seeker.OrderChanel
;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
Var Seeker.CodeChannel = 1
Var Seeker.VendingCode = "FAU"
Var Seeker.CodeNumber = "0000000000"
Var VendingCampaign = ServiceAmount2
EndIf
If Seeker.PayWithQR = 0 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + ""
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + Seeker.VendingCode
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + SelectDrink
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + BoxID
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + "S"
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + Seeker.CodeNumber
Var SessionID2 = SessionID2 + "/"
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS
;CashlessReq FAIL
EndIf
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Else
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS
;CashlessReq FAIL
EndIf
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
EndIf
Else
;no wait ack pay
Var waitAckPay = 0
Var SVT = "coffee"
Var ACC = "0899999999"
Var DEE = PayDetail
If Seeker.TNumberTaobinMember = "" Then
Else
Var ACC = Seeker.TNumberTaobinMember
EndIf
PAYEXT SVT ACC VendingTSIDTmp DEE
EndIf
EndIf
__CMD "clear-stock-data" 0 "-" "-"
Var ServiceSuccess = "yes"
If waitAckPay = 0 Then
SAVELOG "waitAckPay=0"
Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
EndIf
If MachineState_Result = 2 Then
SAVELOG MachineStage
If ErrTimeout = 0 Then
Var ErrTimeout = 1
If AddData = 1 Then
Var Cid = 26
AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore
EndIf
If Seeker.PayWithQR = 0 Then
If Seeker.CreditCard = 1 Then
CashlessReq FAIL
Var ChangeFlag = 1
Var CreditCardVoid = 1
Else
If Seeker.CodeChannel = 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
If Seeker.StoreCreditFlag = 1 Then
Var ChangeOK = 2
Else
If GetFreeFromError = 1 Then
Var ChangeOK = 2
Else
Change ServiceAmount2
EndIf
EndIf
EndIf
Else
If Seeker.VendingCode = "MKFOO" Then
Var Cid = 33
Var PointCrm = "0"
Var GetScore = "1"
Var TelephoneNumberx = "0899999999"
AddData Cid Seeker.TNumberTaobinMember Seeker.CodeNumber PointCrm GetScore
Var Seeker.CodeChannel = 0
EndIf
If CoinAmount > 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign
If Seeker.StoreCreditFlag = 1 Then
Var ChangeOK = 2
Else
Change ServiceAmount3
EndIf
EndIf
Else
Var ChangeOK = 2
EndIf
EndIf
EndIf
Else
Var ChangeOK = 3
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 = "close-maintenance" Then
If MachineState_Result = 0 Then
SAVELOG "back_to_main from line > 663."
Var MachineState_Result = 2
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
SAVELOG " drink-failed...."
Var MachineState_Result = 2
EndIf
EndIf
If MachineState_Result > 0 Then
Var SelectMenuBetweenBrewEnable1 = "Invisible"
EndIf
If SelectMenuBetweenBrewEnable1 = "Enable" Then
If SelectMenuBetweenBrewEnable1Blink = "Enable" Then
Var SelectMenuBetweenBrewEnable1Blink = "Invisible"
Else
Var SelectMenuBetweenBrewEnable1Blink = "Enable"
EndIf
Else
If SelectMenuBetweenBrewEnable2 = "Enable" Then
If SelectMenuBetweenBrewEnable1Blink = "Enable" Then
Var SelectMenuBetweenBrewEnable1Blink = "Invisible"
Else
Var SelectMenuBetweenBrewEnable1Blink = "Enable"
EndIf
Else
Var SelectMenuBetweenBrewEnable1Blink = "Invisible"
EndIf
EndIf
DEBUGVAR CountUpBrewing
; animation video loop
If AnimationOn = "true" Then
If adver_brewing_playing = 1 Then
If adver_brewing_play_index = 2 Then
DEBUGVAR adver_brewing_count_down
If adver_brewing_count_down > 0 Then
Var adver_brewing_count_down = adver_brewing_count_down - 1
Var PictureFile = brew_txt1
EndIf
If adver_brewing_count_down = 0 Then
GetFileSizeK "taobin_project/video/brewing_adv3.mp4" brewing_adv_size
DEBUGVAR brewing_adv_size
Var adver_brewing_play_index = 1
Var adver_brewing_count_down = 0
If brewing_adv_size = 10307404 Then
If Anniversary3VideoEnable = 1 Then
Var adver_brewing_play_index = 1
Var adver_brewing_count_down = 20
EndIf
EndIf
EndIf
EndIf
If adver_brewing_play_index = 1 Then
DEBUGVAR adver_brewing_count_down
If adver_brewing_count_down > 0 Then
Var adver_brewing_count_down = adver_brewing_count_down - 1
Var VideoPlayFile = "ROOT/taobin_project/video/brewing_adv3.mp4"
Var PictureFile = brew_txt2
EndIf
If adver_brewing_count_down = 0 Then
Var adver_brewing_play_index = 0
Var adver_brewing_playing = 0
EndIf
EndIf
Else
Var CountUpBrewing = CountUpBrewing + 1
;CampaignEnable
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
; CampaignEnable
EndIf
If IgnoreNetCore = "true" Then
If CountDownBrewing = 0 Then
SAVELOG "CountDownBrewing=0"
Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
EndIf
If RoadShow = "true" Then
Var SelectMenuBetweenBrewEnable1Blink = "Invisible"
EndIf
DEBUGVAR EnableGetMoreStrawFileName
If EnableGetMoreStrawFileName = "PressForever" Then
DEBUGVAR GetMoreStrawCount
If GetMoreStrawCount > 0 Then
If EnableGetMoreStrawFileNameCountDown > 0 Then
Var EnableGetMoreStrawFileNameCountDown = EnableGetMoreStrawFileNameCountDown - 1
If EnableGetMoreStrawFileNameCountDown = 0 Then
Var EnableGetMoreStrawFileName = "Enable"
EndIf
EndIf
EndIf
EndIf
If EnableGetMoreStrawFileName2 = "PressForever" Then
DEBUGVAR GetMoreStrawCount
If GetMoreStrawCount > 0 Then
If EnableGetMoreStrawFileNameCountDown > 0 Then
Var EnableGetMoreStrawFileNameCountDown = EnableGetMoreStrawFileNameCountDown - 1
If EnableGetMoreStrawFileNameCountDown = 0 Then
Var EnableGetMoreStrawFileName2 = "Enable"
EndIf
EndIf
EndIf
EndIf
If GetMoreStrawCount <= 0 Then
If StrawProblemStatus = 1 Then
Var StrawProblemStatus = 2
If NoLangObjectShow = "Enable" Then
Var bg_strawProblem_ST = "Enable"
Else
Var bg_strawProblem_ST2 = "Enable"
EndIf
EndIf
EndIf
DEBUGVAR bg_lidProblem_ST2
If GetLidButtonCountDown > 0 Then
Var GetLidButtonCountDown = GetLidButtonCountDown - 1
DEBUGVAR GetLidButtonCountDown
EndIf
If NoLangObjectShow = "Enable" Then
If GetLidButtonCountDown = 1 Then
Var GetLidButtonState = "Invisible"
Var bg_lidProblem_ST = "Enable"
Var XStraw = 356
EndIf
EndIf
If LanguageObjectShow = "Enable" Then
If GetLidButtonCountDown = 1 Then
Var GetLidButtonState2 = "Invisible"
Var bg_lidProblem_ST2 = "Enable"
Var XStraw = 365
EndIf
EndIf
Refresh
TimerReset
;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
DEBUGVAR MachineStage
If MachineStage = "drink-failed" Then
If RoadShow = "true" Then
Open "ROOT/taobin_project/xml/page_back_to_error.xml"
Else
SAVELOG "Event Machine drink fail"
Var MachineState_Result = 2
EndIf
EndIf
Refresh
; this copy in file menu_brew2.xml and menu_lid_straw.xml
If ChangeStatus = "payout-end" Then
If ChangeFlag = 1 Then
Var ChangeOK = 2
EndIf
EndIf
60 1290
; NoLangObjectShow "Enable" PictureFile 0 1655 SelectMenuBetweenBrewEnable1 text_next_order 0 1655 1080 SelectMenuBetweenBrewEnable2 000408 835 1735 SelectMenuBetweenBrewEnable1Blink "ROOT/taobin_project/image/page_payment/arrow_1.png"
; zone show time remaining
751 413 IMG_CNT
;
XPosiShowCountDownBrew 470 End 153 88
RobotoBold
0x513C2F ShowCountDownBrewing 816 429 LanguageObjectShow 000405 941 518 LanguageObjectShow 000406
Var BREW_COUNT_DOWN_FROM_APP = "off"
Var CountDownBrewing = 121
Var BREW_COUNT_DOWN_FROM_APP = "off"
Var CountDownBrewing = 2
;
;
;
;
;
;
; Next Order
;
;
;
;
;
;
;
; Button Straw, More request and report.
;
;
;
;
;
;
;
; Lid button, Get one and report
;
;====================================================================
;-------------------------