diff --git a/xml/page_cannotConti.xml b/xml/page_cannotConti.xml new file mode 100644 index 00000000..40eaa76c --- /dev/null +++ b/xml/page_cannotConti.xml @@ -0,0 +1,694 @@ + + "Enable" + 1080 + 1920 + "0xeae6e1" + "ROOT/taobin_project/sounds/chaching.mp3" + SoundVolume + + ; On open + Var CountDownThankyou = 4 + Var CountDownBrewing = BrewTime + Var CountUpBrewing = 0 + SAVELOG BrewTime + Var ShowCountDownBrewing = CountDownBrewing + Var Timeout = 0 + Var ChangeFlag = 0 + Var ErrTimeout = 0 + Var ActionOKCase = 0 + Var ChangeTimeout = 0 + Var ChangeOK = 0 + + Var MachineState_Result = 0 + + Var FailedCount = 0 + Var ChangeAmountSum = 0 + + Var Tel_Confirm_Flag = 0 + Var LastMakeDrinkResult = "-" + + DEBUGVAR MachineStage + DEBUGVAR NextOrderStatus + + If show_eng = "true" Then + Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2_eng.png" + Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png" + Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png" + + Var BottomText = PicturePath + "text_bottom_eng.png" + Else + Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2.png" + Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png" + Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png" + Var BottomText = PicturePath + "text_bottom_thai2.png" + EndIf + + DEBUGVAR StarwState + DEBUGVAR LidState + DEBUGVAR BottomText + + DEBUGVAR Seeker.TNumberTaobinCredit + DEBUGVAR TelephoneNumber + DEBUGVAR Seeker.StoreCreditFlag + + + If Seeker = "curr" Then + SAVELOG "Call from thankyou Conti" + + Topping "Select" Seeker.selected_a_drink + + ; Set option toppinng and pack + Topping "Select1-ID" Seeker.topping1 + Topping "Select2-ID" Seeker.topping2 + Topping "Select3-ID" Seeker.topping3 + + ; Pack + Topping "Pack" ExtendData + + + + Var SessionID2 = SelectSlot + ":" + Var SessionID2 = SessionID2 + ExtendData + + + Topping "ClearNextOrder" "-" + EndIf + + Var LastMakeDrinkResult = "fail" + Var NextOrderStatus = "Disable" + + DEBUGVAR LastMakeDrinkResult + DEBUGVAR MachineStage + DEBUGVAR NextOrderStatus + + ; page_brewing3.xml + DEBUGVAR MachineStage + + Var PayReference = "" + Var PayType = "" + + + Var SelectDrink = Seeker.selected_a_drink + Var ServiceAmount2 = Seeker.ServiceAmount2 + + DEBUGVAR Seeker + DEBUGVAR Seeker.selected_a_drink + DEBUGVAR Seeker.ServiceAmount2 + + ; On open move from page_brewing3.xml + Var countClick2 = 0 + + Var Timeout = 0 + + Var PrintCoinAmount = 0 + + 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 + + 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 + + Var CreditReference = Seeker.CreditReferenceTmp + Var VendingDiscount = Seeker.VendingDiscount + Var VendingCampaign = Seeker.VendingCampaign + + + 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 + + + + If LastMakeDrinkResult = "success" Then + Var MachineState_Result = 1 + EndIf + + If LastMakeDrinkResult = "fail" Then + Var MachineState_Result = 2 + EndIf + + + DEBUGVAR VendingCampaign + + + + + + + + If ActionOKCase = 1 Then + If Seeker.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 + 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 + + 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 + + If Timeout > 540 Then + SAVELOG "back_to_main from line > 217." + Open "ROOT/taobin_project/xml/page_drinkfail2.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 = "" + 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 + + 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="1/F:1221/0/" + Else + + + Var PayDetail = "1/" + HURR_FOREVER + Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + SAMESALARY + Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + NOBONUS + + 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 + + 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="1/F:1221/0/" + Else + + Var PayDetail = "1/" + HURR_FOREVER + Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + SAMESALARY + Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + NOBONUS + + 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 + + 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="1/F:1221/0/" + Else + + + Var PayDetail = "1/" + HURR_FOREVER + Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + SAMESALARY + Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + NOBONUS + + EndIf + + + + + Var DEE = PayDetail + + PAYEXT SVT ACC VendingTSIDTmp DEE + + Var ActionOKCase = 1 + 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 = 2 Then + + SAVELOG MachineStage + + If ErrTimeout = 0 Then + Var ErrTimeout = 1 + + If AddData = 1 Then + AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore + EndIf + + + If Seeker.PayWithQR = 0 Then + 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 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 + + Else + Var ChangeOK = 3 + EndIf + + + + EndIf + EndIf + + + + + Refresh + TimerReset + + + + +; +; 0 +; 0 +; "ROOT/taobin_project/image/ad_medium_2.png" +; + + + + + + 375 + 623 + 331 + 435 + Seeker.PictureDrink + + + + 0 + 938 + 1080 + Center + 72 + KanitMediumTTF + 0x513C2F + Seeker.showname + + + + If ChangeStatus = "payout-end" Then + If ChangeFlag = 1 Then + Var ChangeOK = 2 + EndIf + EndIf + + + + diff --git a/xml/page_get_yourchange.xml b/xml/page_get_yourchange.xml new file mode 100644 index 00000000..4e1cca13 --- /dev/null +++ b/xml/page_get_yourchange.xml @@ -0,0 +1,109 @@ + + "Enable" + 1080 + 1920 + "0xeae6e1" +; "ROOT/taobin_project/sounds/chaching.mp3" + SoundVolume + + ; On open + + Var Timeout = 0 + + + If show_eng = "true" Then + + Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png" + Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png" + + + + Var DirImage = "ROOT/taobin_project/image/page_thankyou_en" + Else + + Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png" + Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png" + + + Var DirImage = "ROOT/taobin_project/image/page_thankyou" + EndIf + + + + + + 1000 + + + Var Timeout = Timeout + 1 + + If Timeout >= 2 Then + + If ChangeStatus = "payout-end" Then + Var Timeout = 30 + EndIf + + If Seeker = "curr" Then + Var Timeout = 30 + EndIf + + If Timeout >= 30 Then + + If Seeker = "next" Then + ;CoinBack + Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" + Else + Open "ROOT/taobin_project/xml/page_brewing3.xml" + EndIf + + EndIf + + EndIf + + + + Refresh + TimerReset + + + + + + + + + + 0 + 1123 + 144 + Center + 1080 + KanitRegularTTF + 0xDE794E + StoreCreditAmount + + + + 70 + 932 + Var( DirImage + "/imgGetChange.png" ) + + +