"Enable" 1080 1920 BackgroundColor SoundVolume "Partial" ; On open Var DirImage = CountryRootPath + "/image/collectiing/" Var Timeout = 0 StopLongPlay Var MachineErrorDetailAll = MachineErrorDetail + " / " Var MachineErrorDetailAll = MachineErrorDetailAll + MachineErrorDetailEng DEBUGVAR TelephoneNumberProblem ; try-get-user Var payload = "SG/" + TelephoneNumberProblem Var payload = payload + "/-" Var payload = payload + "/-" Var payload = payload + "/-" Var payload = payload + "/-" DEBUGVAR payload Var Seeker.IsMember = 0 Var SendProblemOfMember = 0 Var ShowQRByNoMember = "Invisible" Var TaobinName = "" If TelephoneNumberProblem = "" Then Var ShowQRByNoMember = "Enable" Else GETACCEXT payload 35 EndIf Var StepX = 1 Var Ext1a = "" Var DrinkFail3Page = "ROOT/taobin_project/xml/page_drinkfail3.xml" If UsePepsiTheme = 1 Then Var DirImage = "ROOT/taobin_project/inter/whatthecup/sgp/image/collectiing/" Var DrinkFail3Page = "ROOT/taobin_project/inter/whatthecup/sgp/xml/page_drinkfail3-SGP_blue.xml" EndIf 1000 Var Timeout = Timeout + 1 If Timeout > 60 Then If SendProblemOfMember = 1 Then DEBUGVAR TelephoneNumberProblem StrLen TelephoneNumberProblem TelNumLen If TelNumLen >= MinPhoneNumber Then Var ProblemID = 7 Var ChooseProblem = "taobin purchasing problems" If Seeker.PayWithQR = 1 Then Var VendingTSIDProblem = VendingTSIDTmp If Seeker.CampaignPayChanel = "promptpay" Then Var ProblemID = 8 Var ChooseProblem = "taobin purchasing problems(Void Failed)" EndIf Else Var VendingTSIDProblem = VendingTSID EndIf PROBLEM2 TelephoneNumberProblem ProblemID ChooseProblem VendingTSIDProblem EndIf EndIf If MachineStage = "remove-cup" Then Open DrinkFail3Page Else If NextOrder = "true" Then Var NextOrder = "false" TransferVar "next" "curr" Var Seeker = "curr" Open "ROOT/taobin_project/xml/page_thankyouConti.xml" Else Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf EndIf EndIf TimerReset ;include="ROOT/taobin_project/inc/video.inc" If StepX = 1 Then If Ext1a = "ok" Then Var TaobinName = Ext1d If TaobinName = "" Then Var Seeker.IsMember = 0 Else If TaobinName = "-" Then Var Seeker.IsMember = 0 Else Var Seeker.IsMember = 1 EndIf EndIf DEBUGVAR Seeker.IsMember If Seeker.IsMember = 1 Then SAVELOG "Already member, will send problem" Var SendProblemOfMember = 1 Else SAVELOG "Not member, show QR" Var SendProblemOfMember = 0 Var ShowQRByNoMember = "Enable" EndIf Else Var Seeker.IsMember = 0 SAVELOG "StepX.error, show QR" Var ShowQRByNoMember = "Enable" EndIf EndIf If StepX = 1 Then SAVELOG "ActionError show QR" Var ShowQRByNoMember = "Enable" EndIf 0 440 Var( DirImage + "/text_11.png" ) 329 1301 ShowQRByNoMember Var( DirImage + "/QR_contract.png" ) ; ; 190 ; 1548 ; Var( DirImage + "/text13.png" ) ; 400 1770 Var( DirImage + "/bn_close.png" ) Var( DirImage + "/bp_close.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume StrLen TelephoneNumberProblem TelNumLen If SendProblemOfMember = 1 Then If TelNumLen >= MinPhoneNumber Then Var ProblemID = 7 Var ChooseProblem = "taobin purchasing problems" If Seeker.PayWithQR = 1 Then Var VendingTSIDProblem = VendingTSIDTmp If Seeker.CampaignPayChanel = "promptpay" Then Var ProblemID = 8 Var ChooseProblem = "taobin purchasing problems(Void Failed)" EndIf Else Var VendingTSIDProblem = VendingTSID EndIf PROBLEM2 TelephoneNumberProblem ProblemID ChooseProblem VendingTSIDProblem EndIf EndIf DEBUGVAR MachineStage If MachineStage = "remove-cup" Then Open DrinkFail3Page Else If NextOrder = "true" Then Var NextOrder = "false" TransferVar "next" "curr" Var Seeker = "curr" Open "ROOT/taobin_project/xml/page_thankyouConti.xml" Else Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf EndIf 5 1868 24 Center 1080 RobotoRegular HeadlineColor MachineErrorDetailAll