From 5a9b8927f43dc7e5a3863696ebcc5b6aea2fa9f1 Mon Sep 17 00:00:00 2001 From: Pakin Date: Mon, 7 Apr 2025 14:43:12 +0700 Subject: [PATCH] SGP: add new_brewing3 (no next cup edition) --- inter/sgp/xml/page_NewBrewing3_blue.lxml | 1746 +++++++++++++++++ inter/whatthecup/sgp/xml/process/addpoint.ev | 89 + .../xml/process/discount_from_promotion.ev | 111 ++ .../sgp/xml/process/payext_setup.ev | 26 + inter/whatthecup/sgp/xml/process/payment.ev | 128 ++ 5 files changed, 2100 insertions(+) create mode 100644 inter/sgp/xml/page_NewBrewing3_blue.lxml create mode 100644 inter/whatthecup/sgp/xml/process/addpoint.ev create mode 100644 inter/whatthecup/sgp/xml/process/discount_from_promotion.ev create mode 100644 inter/whatthecup/sgp/xml/process/payext_setup.ev create mode 100644 inter/whatthecup/sgp/xml/process/payment.ev diff --git a/inter/sgp/xml/page_NewBrewing3_blue.lxml b/inter/sgp/xml/page_NewBrewing3_blue.lxml new file mode 100644 index 00000000..99e46456 --- /dev/null +++ b/inter/sgp/xml/page_NewBrewing3_blue.lxml @@ -0,0 +1,1746 @@ + + "Enable" + 1080 + 1920 + BackgroundColor + SoundVolume + + + TRY "/mnt/sdcard/coffeevending/taobin_project/inter/whatthecup/sgp/xml/process/payext_setup.ev" + + Var SendNotiPaySuccess = 2 + + Var GetMoreStrawCount = 2 + + Var CountUpWhenBREW_CNT = 0 + DEBUGVAR TxRef1 + + SAVELOG "SGP page_brewing3.lxml v3 (NewPaymentInter)" + DEBUGVAR MachineStage + DEBUGVAR Seeker.ORDER_ID + + __CMD "PayWasSent" Seeker.ORDER_ID "-" "-" + __CMD "machine-cleanliness-score" Seeker.CleanFeedbackScore "-" "-" + + Var PictureFileTextDesctionState = "Enable" + + + If CART_COUNT >= 1 Then + Open "ROOT/taobin_project/xml/page_brewing3Multi.xml" + Else + Var PayReference = "" + Var PayType = "newpay" + EndIf + + Var DirImageDoing = CountryRootPath + "/image/page_doing" + + If UsePepsiTheme = 1 Then + Var DirImageDoing = "ROOT/taobin_project/inter/whatthecup/sgp/image/page_doing" + EndIf + + DEBUGVAR BackgroundColor + + Var SelectDrink = Seeker.selected_a_drink + Var ExtendData = Seeker.ExtendData + + Var ServiceAmount2 = Seeker.ServiceAmount2 + Var PriceDrink = Seeker.ServiceAmount2 + + DEBUGVAR Seeker + DEBUGVAR Seeker.selected_a_drink + DEBUGVAR Seeker.ServiceAmount2 + + DEBUGVAR Seeker.CodeNumber + + Var SessionID2 = SelectSlot + ":" + Var SessionID2 = SessionID2 + ExtendData + + ; On open move from page_brewing3.xml + Var countClick2 = 0 + + Var Timeout = 0 + + Var PrintCoinAmount = 0 + + WRITE_FILE "/mnt/sdcard/coffeevending/log/drink-success" "--" + + + If show_eng = "true" Then + + Var IMG_CNT = DirImageDoing + "/img2_eng.png" + + Play "ROOT/taobin_project/sound_eng/Wait_a_moment.mp3" + Var bnGetMoreStrawFileName = DirImageDoing + "/bn_get_more_straw_en.png" + Var bpGetMoreStrawFileName = DirImageDoing + "/bp_get_more_straw_en.png" + + Var bnStrawProblemReport = DirImageDoing + "/bn_send_report_straw_en.png" + Var bpStrawProblemReport = DirImageDoing + "/bp_send_report_straw_en.png" + + Var bnLidProblemReport = DirImageDoing + "/bn_send_report_lid_en.png" + Var bpLidProblemReport = DirImageDoing + "/bp_send_report_lid_en.png" + + + Var bn_get_lid_image = DirImageDoing + "/bn_get_lid_en.png" + Var bp_get_lid_image = DirImageDoing + "/bp_get_lid_en.png" + + Var brew_txt2 = "ROOT/taobin_project/video/brewing_txt_adv3_en.png" + Var brew_txt1 = "ROOT/taobin_project/video/brewing_txt_adv1_en.png" + + DEBUGVAR bnGetMoreStrawFileName + DEBUGVAR bnStrawProblemReport + DEBUGVAR bnLidProblemReport + DEBUGVAR bn_get_lid_image + + ;If UsePepsiTheme = 1 Then + ; Var brew_txt2 = "ROOT/taobin_project/inter/whatthecup/sgp/video/brewing_txt_adv3_en.png" + ; Var brew_txt1 = "ROOT/taobin_project/inter/whatthecup/sgp/video/brewing_txt_adv1_en.png" + ;EndIf + + DEBUGVAR EnableGetMoreStrawFileName + DEBUGVAR GetLidButtonState + + Var XStraw = 274 + Else + Var PlaySoundLag = "ROOT/taobin_project/sound_thai/thankyou.mp3" + + + Play PlaySoundLag + + Var IMG_CNT = DirImageDoing + "/img2.png" + + + Var bnGetMoreStrawFileName = DirImageDoing + "/bn_get_more_straw.png" + Var bpGetMoreStrawFileName = DirImageDoing + "/bp_get_more_straw.png" + + Var bnStrawProblemReport = DirImageDoing + "/bn_send_report_straw.png" + Var bpStrawProblemReport = DirImageDoing + "/bp_send_report_straw.png" + + Var bnLidProblemReport = DirImageDoing + "/bn_send_report_lid.png" + Var bpLidProblemReport = DirImageDoing + "/bp_send_report_lid.png" + + + Var bn_get_lid_image = DirImageDoing + "/bn_get_lid.png" + Var bp_get_lid_image = DirImageDoing + "/bp_get_lid.png" + + Var brew_txt2 = "ROOT/taobin_project/video/brewing_txt_adv3.png" + Var brew_txt1 = "ROOT/taobin_project/video/brewing_txt_adv1.png" + + Var XStraw = 274 + 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 + + + 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 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" + + If UsePepsiTheme = 1 Then + Var DirImage = "ROOT/taobin_project/inter/whatthecup/sgp/image/page_payment_en/page_payment" + Var DirImage2 = "ROOT/taobin_project/inter/whatthecup/sgp/image/topping2_en" + EndIf + 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 = "Enable" + Var SelectMenuBetweenBrewEnable1 = "Enable" + EndIf + + If NeedUpgrade = "true" Then + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1 = "Invisible" + EndIf + + If NeedReboot = "true" Then + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1 = "Invisible" + EndIf + + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1 = "Invisible" + + 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 = DirImageDoing + "/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" + + 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 LanguageObjectShow + DEBUGVAR NoLangObjectShow + + + Var CreditCardVoid = 0 + If InternationalEnable = 1 Then + Var adver_brewing_en = 0 + RootLayoutVisible 3 "hide" + 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 = DirImageDoing + "/tao_adv1.png" + Var PictureFile = brew_txt1 + EndIf + + + Var CampaignEnable = 0 + + + Var GetLidButtonCountDown = 0 + + ; language instance + + + + DEBUGVAR SelectMenuBetweenBrewEnable1 + DEBUGVAR SelectMenuBetweenBrewEnable2 + + Var SelectMenuBetweenBrewEnable1Text = SelectMenuBetweenBrewEnable1 + + + DEBUGVAR GameEnableFromTrickerEv + DEBUGVAR GameOverrideDisable + + DEBUGVAR Seeker + + DEBUGVAR Game01Enable + DEBUGVAR BREW_CNT + + Var ButtonGameCountDown = 0 + Var ButtonGameCountDownState = "Invisible" + + Var ButtonGameCountDown = 0 + Var ButtonGameCountDownState = "Invisible" + Var ButtonGamePressToPlayState = "Invisible" + + Var InitCNT = BREW_CNT + + Var ShowPercent = "Invisible" + Var ShowCountdown = "Enable" + + If ShowCountDownAsPercent = 1 Then + Var ShowPercent = "Enable" + Var ShowCountdown = "Invisible" + + Var IMG_CNT = "ROOT/taobin_project/inter/sgp/image/page_doing/img2_percent_eng.png" + + If UsePepsiTheme = 1 Then + Var IMG_CNT = "ROOT/taobin_project/inter/whatthecup/sgp/image/page_doing/img2_percent_eng.png" + EndIf + EndIf + + If XPercent = 0 Then + + Else + Var XPercent = 0 + EndIf + + CashlessReq SUCCESS "" + + __CMD "SetErrorCodeHandleByXML" 1028 "-" "-" + __CMD "SetErrorCodeHandleByXML" 1029 "-" "-" + __CMD "SetErrorCodeHandleByXML" 1030 "-" "-" + __CMD "SetErrorCodeHandleByXML" 1031 "-" "-" + + + + 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 + + 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 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 + + DEBUGVAR MOVE_CUP_TO_DOOR + DEBUGVAR SetPercent100 + + If MOVE_CUP_TO_DOOR = "true" Then + Var MOVE_CUP_TO_DOOR = "false" + Var SetPercent100 = 1 + EndIf + + If BREW_COUNT_DOWN_FROM_APP = "on" Then + Var CountDownBrewing = BREW_CNT + Else + + If CountDownBrewing > 0 Then + Var CountDownBrewing = CountDownBrewing - 1 + EndIf + Endif + + DEBUGVAR BREW_CNT + + + 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" + + + PlayLong PlaySoundLag + EndIf + EndIf + If Timeout = 9 Then + If OpenFromCollectPoint3 = 0 Then + PlayLong "/mnt/sdcard/coffeevending/taobin_project/sounds/music1.mp3" + EndIf + EndIf + Else + If Timeout = 4 Then + If OpenFromCollectPoint3 = 0 Then + PlayLong "/mnt/sdcard/coffeevending/taobin_project/sounds/music1.mp3" + EndIf + EndIf + EndIf + + Var ShowCountDownBrewing = CountDownBrewing + + ; percent + If ShowCountDownAsPercent = 1 Then + Var XPercent = InitCNT - ShowCountDownBrewing + If ShowCountDownBrewing <= 5 Then + Var XPercent = 95 + If SetPercent100 = 1 Then + Var XPercent = 100 + EndIf + Else + Var XPercent = XPercent * 100 + DEBUGVAR XPercent + Var XPercent = XPercent / InitCNT + EndIf + + DEBUGVAR XPercent + EndIf + + + If Timeout > 540 Then + SAVELOG "back_to_main from line > 217." + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + EndIf + + + + DEBUGVAR CountUpWhenBREW_CNT + + If BREW_CNT = 0 Then + If CountUpWhenBREW_CNT > 56 Then + Var CountUpWhenBREW_CNT = 0 + Var drink_success_set = "-" + READ_FILE "/mnt/sdcard/coffeevending/log/drink-success" drink_success_set + DEBUGVAR drink_success_set + If drink_success_set = "1" Then + Var MachineState_Result = 1 + EndIf + + EndIf + + Var CountUpWhenBREW_CNT = CountUpWhenBREW_CNT + 1 + + EndIf + + If BREW_CNT > 0 Then + + If XPercent = 100 Then + SAVELOG "Sussy 100 percent success?" + + If MachineState_Result = 0 Then + + SAVELOG "Recheck drink-success from touch file" + + Var CountUpWhenBREW_CNT = 0 + Var drink_success_set = "-" + READ_FILE "/mnt/sdcard/coffeevending/log/drink-success" drink_success_set + DEBUGVAR drink_success_set + If drink_success_set = "1" Then + Var MachineState_Result = 1 + EndIf + EndIf + + + + EndIf + + 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 + + + Var ServiceType = "coffee-refund" + Var ServiceCredit = SelectDrink + Var SuggestID = "" + Var SessionID2 = "" + + Var VendingDiscount = 0 + Var VendingCampaign = 0 + Var PayDetail = "" + Var PayDetail2 = "" + Var VendingOrderID = Seeker.ORDER_ID + Var ServiceRefund = 0 + Var ServiceCharge = 0 + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate + + 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 + + + Var ServiceType = "coffee-refund" + Var ServiceCredit = SelectDrink + Var SuggestID = "" + Var SessionID2 = "" + + Var VendingDiscount = 0 + Var VendingCampaign = 0 + Var PayDetail = "" + Var PayDetail2 = "" + Var VendingOrderID = Seeker.ORDER_ID + Var ServiceRefund = 0 + Var ServiceCharge = 0 + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate + + 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 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 + DEBUGVAR PaySuccessWithDaemonTask + + If waitAckPay = 0 Then + + Var waitAckPay = 0 + Var Timeout = 0 + + Var ProcessText = "" + If Seeker.PayWithQR = 0 Then + + If Seeker.CreditCard = 1 Then + CashlessReq SUCCESS "" + EndIf + 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 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 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 + + + + + + EndIf + EndIf + + + If MachineStage = "close-maintenance" Then + If MachineState_Result = 0 Then + SAVELOG "back_to_main from line > 1087." + Var MachineState_Result = 2 + EndIf + EndIf + + If MachineStage = "drink-success" Then + ;Var SetPercent100 = 1 + 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" + Var SelectMenuBetweenBrewEnable1Text = "Invisible" + EndIf + + ; Close next button. + If CLOSE_ORDER_NOW = "true" Then + Var SelectMenuBetweenBrewEnable1 = "Invisible" + Var SelectMenuBetweenBrewEnable1Text = "Invisible" + + Var EnableTopupCreditBetweenBrew = "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 + + DEBUGVAR adver_brewing_play_index + 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 + + + Var adver_brewing_play_index = 1 + Var adver_brewing_count_down = 0 + + ; Next video follow script. + TRY "ROOT/taobin_project/video/script3_brew.ev" + + + EndIf + EndIf + + If adver_brewing_play_index = 1 Then + DEBUGVAR adver_brewing_count_down + DEBUGVAR brew_vdo2 + + If adver_brewing_count_down > 0 Then + Var adver_brewing_count_down = adver_brewing_count_down - 1 + + If brew_vdo2 = "" Then + Var VideoPlayFile = "ROOT/taobin_project/video/brewing_adv3.mp4" + Else + Var VideoPlayFile = brew_vdo2 + EndIf + Var PictureFile = brew_txt2 + + EndIf + + If adver_brewing_count_down = 0 Then + Var adver_brewing_play_index = 0 + If adver_brewing_video_full_file_name = "" Then + Var adver_brewing_playing = 0 + Else + Var adver_brewing_playing = 2 + EndIf + EndIf + EndIf + + + + Else + If adver_brewing_playing = 2 Then + DEBUGVAR adver_brewing_video_full_file_name + If adver_brewing_video_full_file_name = "" Then + Var adver_brewing_playing = 0 + Else + Var VideoPlayFile = adver_brewing_video_full_file_name + Var PictureFile = brew_txt2 + Var PictureFileTextDesctionState = "Invisible" + + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1Text = "Invisible" + 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 + EndIf + ; CampaignEnable + EndIf + ; AnimationOn = true + + + 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 DoorLidSensorDetect = "true" Then + Var DoorLidSensorDetect = "-" + Var GetLidButtonState = "Invisible" + Var bg_lidProblem_ST = "Invisible" + Var GetLidButtonCountDown = 0 + EndIf + + If NoLangObjectShow = "Enable" Then + + If GetLidButtonCountDown = 1 Then + Var GetLidButtonState = "Invisible" + Var bg_lidProblem_ST = "Enable" + ;Var XStraw = 356 + + EndIf + EndIf + + Var bg_lidProblem_ST = "Invisible" + + If LanguageObjectShow = "Enable" Then + + If GetLidButtonCountDown = 1 Then + Var GetLidButtonState2 = "Invisible" + Var bg_lidProblem_ST2 = "Enable" + Var XStraw = 365 + + EndIf + EndIf + + If ButtonGameCountDown > 0 Then + If ButtonGameCountDown = 1 Then + Var ButtonGameCountDownState = "Invisible" + Var ButtonGamePressToPlayState = "Enable" + EndIf + Var ButtonGameCountDown = ButtonGameCountDown - 1 + + EndIf + + + If ButtonGameCountDownState = "Enable" Then + If BREW_CNT < 85 Then + If Game01Enable = 1 Then + SAVELOG "Game01Enable set zero event timeout 2" + EndIf + Var Game01Enable = 0 + Var ButtonGameCountDownState = "Invisible" + Var ButtonGamePressToPlayState = "Invisible" + EndIf + EndIf + + + DEBUGVAR ButtonGamePressToPlayState + DEBUGVAR BREW_CNT + If BREW_CNT > 60 Then + + Else + Var ButtonGamePressToPlayState = "Invisible" + If Game01Enable = 1 Then + SAVELOG "Game01Enable set zero event timeout" + EndIf + Var Game01Enable = 0 + 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 + ;Var SetPercent100 = 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 + PictureFileTextDesctionState + PictureFile + + + + + + +;include="ROOT/taobin_project/inc/video.inc" + + + + + + 0 + 1655 + SelectMenuBetweenBrewEnable1Text + 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 + ShowCountdown + End + 153 + 88 + RobotoBold + 0x513C2F + ShowCountDownBrewing + +; + + XPosiShowCountDownBrew + 470 + ShowPercent + End + 153 + 88 + RobotoBold + HeadlineColor + XPercent + + + + 816 + 429 + ShowCountdown + + 000405 + + + + 941 + 518 + ShowCountdown + + 000406 + + + + + Var BREW_COUNT_DOWN_FROM_APP = "off" + Var CountDownBrewing = 121 + + + Var BREW_COUNT_DOWN_FROM_APP = "off" + Var CountDownBrewing = 2 + + + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + + + ; test drinkfail with phone number + Var TelephoneNumberProblem = "12345678" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + +; +; +; +; +; +; +; Next Order +; + + + +; +; +; +; +; +; +; Button Straw, More request and report. +; + + + + + + + + + 526 + 1680 + 241 + 204 + ButtonGamePressToPlayState + "ROOT/taobin_project/app/game/TAMATIAN-01_en.gif" + + + + 526 + 1680 + 241 + 204 + ButtonGamePressToPlayState + + DEBUGVAR Game01Enable + SAVELOG "Press play game" + Var Game01Enable = 0 + Var ButtonGamePressToPlayState = "Invisible" + RunApp "com.NDF.taobin" + + + +; +; +; +; +; +; +; Lid button, Get one and report +; + + + + +;==================================================================== + + + +;------------------------- + + + + + + ; test drinkfail + + Var MachineStage = "remove-cup" + + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + + + + ; test drinkfail with phone number + Var TelephoneNumberProblem = "1234567890" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + + + diff --git a/inter/whatthecup/sgp/xml/process/addpoint.ev b/inter/whatthecup/sgp/xml/process/addpoint.ev new file mode 100644 index 00000000..44d428df --- /dev/null +++ b/inter/whatthecup/sgp/xml/process/addpoint.ev @@ -0,0 +1,89 @@ + + + Var AddData = 1 + + DEBUGVAR Seeker.TNumberTaobinMember + DEBUGVAR Seeker.PointTaobinStr + + If Seeker.TNumberTaobinCredit = "" Then + Var TelephoneNumber = "0899999999" + Var PayO2 = "" + + If Seeker.TNumberTaobinMember = "" Then + Var AddData = 0 + Else + Var TelephoneNumber = Seeker.TNumberTaobinMember + EndIf + + Else + Var TelephoneNumber = Seeker.TNumberTaobinCredit + Var PayO2 = Seeker.CoffeePinNumber + EndIf + + + If Seeker.VendingCode = "MKFOO" Then + Var AddData = 0 + EndIf + + DEBUGVAR Seeker.CodeChannel + DEBUGVAR Seeker.CollectPointMain + + Var PointCrm = "" + If Seeker.FromConsent = 1 Then + Var PointCrm = "pdpa1" + EndIf + + If Seeker.PayWithQR = 1 Then + Var GetScore = Seeker.VendingTSID + Else + Var GetScore = "" + EndIf + + DEBUGVAR Seeker.RedeemSwensenCoupon + DEBUGVAR Seeker.RedeemSwensenCouponDrinkPrice + If Seeker.RedeemSwensenCoupon = 1 Then + Var Cid = 56 + Var var1 = "" + Var var2 = "" + Var var3 = "" + If Seeker.RedeemSwensenCouponDrinkPrice >= 20 Then + Var var1 = "153" + EndIf + If Seeker.RedeemSwensenCouponDrinkPrice >= 30 Then + Var var1 = "154" + EndIf + If Seeker.RedeemSwensenCouponDrinkPrice >= 40 Then + Var var1 = "155" + EndIf + If Seeker.RedeemSwensenCouponDrinkPrice >= 50 Then + Var var1 = "156" + EndIf + + DEBUGVAR var1 + + If var1 = "" Then + + Else + AddData Cid Seeker.TNumberTaobinMember var1 var2 var3 + EndIf + EndIf + + If AddData = 1 Then + Var Cid = 26 + DEBUGVAR "Befor Brewing3" + DEBUGVAR Seeker + DEBUGVAR Seeker.UseGet15Discount + If NewCollectPoint = 1 Then + If Seeker.UseGet15Discount = 1 Then + Var Cid = 39 + Else + Var Cid = 40 + Var PreviousSeeker.UseGetDrink5Bath = 0 + EndIf + EndIf + + AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore + EndIf + + + diff --git a/inter/whatthecup/sgp/xml/process/discount_from_promotion.ev b/inter/whatthecup/sgp/xml/process/discount_from_promotion.ev new file mode 100644 index 00000000..71a379dd --- /dev/null +++ b/inter/whatthecup/sgp/xml/process/discount_from_promotion.ev @@ -0,0 +1,111 @@ + +If From12Day12MenuPro = 1 Then + Var PriceDiff = PriceDrink - PromotionPriceDrink + Var Seeker.VendingCode = "PMD" + PriceDiff + Var Seeker.CodeNumber = "00000000" + Var Seeker.CodeChannel = 1 + Var Seeker.FreeVendingCampaign = 0 + Var Seeker.IntVendingCampaign = PriceDiff + Var Seeker.VendingCampaignRI3 = PriceDiff +EndIf + +If FromOreoDiscount11Pro = 1 Then + Var Seeker.VendingCode = "PMD11" + Var Seeker.CodeNumber = "00000000" + Var Seeker.CodeChannel = 1 + Var Seeker.FreeVendingCampaign = 0 + Var Seeker.IntVendingCampaign = 11 + Var Seeker.VendingCampaignRI3 = 11 +EndIf + +If FromMomCocoaPro = 1 Then + If DiscountMomCocoaPro > 0 Then + Var DiscountDrink = DiscountMomCocoaPro + Var Seeker.CampaignPPrice = PromotionPriceDrink + EndIf +EndIf + +If FromCocoa77Pro = 1 Then + Var OriginalPriceWithTopping = OriginalPrice + TOPPING_PRICE + Var PriceDiff = OriginalPriceWithTopping - PromotionPriceDrink + Var DiscountDrink = PriceDiff + Var Seeker.CampaignPPrice = PromotionPriceDrink +EndIf + +If FromPassionMintPro = 1 Then + Var OriginalPriceWithTopping = OriginalPrice + TOPPING_PRICE + Var PriceDiff = OriginalPriceWithTopping - PromotionPriceDrink + Var DiscountDrink = PriceDiff + Var Seeker.CampaignPPrice = PromotionPriceDrink +EndIf + +If BoxID = 105005 Then + If Seeker.selected_a_drink = "12-05-02-0045" Then + Var PriceDiff = PriceDrink - 25 + Var DiscountDrink = PriceDiff + Var Seeker.CampaignPPrice = 25 + Var DiscountCampaignCode = "SVB0002" + + Var PriceDrink = PriceDrink - PriceDiff + EndIf +EndIf + +If ChildrenFree = 1 Then + + Var RemainAmountStr = "Free###size=150" + + Var Seeker.VendingCode = "MKFOO" + Var Seeker.IntVendingCampaign = PriceDrink + Var Seeker.FreeVendingCampaign = 1 + Var Seeker.CodeChannel = 1 + Var Seeker.CodeNumber = IDNum + + DEBUGVAR IDNum + + Var Seeker.TNumberTaobinMember = TelNumPromotion + + ;If Seeker = "curr" Then + ; + ; MakeDrinkV1 SelectDrink SelectSugarID + ; Var TxRef1 = "" + ; CreateTxRef1 TxRef1 + ;Else + ; Var TxRef1 = "" + ; CreateTxRef1 TxRef1 + ; + ; Var DrinkPaid = SelectDrink + ; Var PaidPaymentFromNextStage = 1 + ; + ;EndIf + ;Open "ROOT/taobin_project/xml/page_thankyou.xml" + Open "ROOT/taobin_project/xml/page_payment_cash.xml" + + + +EndIf + +; Oreo free +If PromotionIDOreoBuyTwoSaveMore = 1 Then + Var PromotionIDOreoBuyTwoSaveMore = 0 + Var PromotionIDCurrentOrder = 2 +EndIf + +If PromotionIDCurrentOrder = 2 Then + SAVELOG "Promotion: Oreo Get 1 Free 1" +EndIf + +If FromCoffeeDrink1BathPro = 1 Then + SAVELOG "From Coffee Drink 1 Bath pro" + Var PromotionIDCurrentOrder = 3 +EndIf + + + +If InternationalEnable = 1 Then + If CountryName = "Thailand" Then + ;do not thing + Else + Var discount_promo_file = CountryRootPath + "/xml/process/discount_from_promotion.ev" + TRY discount_promo_file + EndIf +EndIf diff --git a/inter/whatthecup/sgp/xml/process/payext_setup.ev b/inter/whatthecup/sgp/xml/process/payext_setup.ev new file mode 100644 index 00000000..6026ea70 --- /dev/null +++ b/inter/whatthecup/sgp/xml/process/payext_setup.ev @@ -0,0 +1,26 @@ + +If Seeker.PayWithQR = 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 +EndIf + +DEBUGVAR TelephoneNumber +Var TelephoneNumberExt = TelephoneNumber +If TelephoneNumberExt = "" Then + Var TelephoneNumberExt = "0899999999" +EndIf +__CMD "SetTelNum" TelephoneNumberExt Seeker.ORDER_ID Seeker.VendingTSID +Var payOrderChannel = "/XML|" + Seeker.OrderChanel +__CMD "SetPayType" Seeker.ORDER_ID payOrderChannel "" diff --git a/inter/whatthecup/sgp/xml/process/payment.ev b/inter/whatthecup/sgp/xml/process/payment.ev new file mode 100644 index 00000000..d2a5d574 --- /dev/null +++ b/inter/whatthecup/sgp/xml/process/payment.ev @@ -0,0 +1,128 @@ +DEBUGVAR "MIGGAZE0-SGP" +If Seeker.PayWithQR = 1 Then + + Var ServiceAmount2 = Seeker.ServiceAmount2 + Var CreditReference = "" + Var TxReference = "" + Var VendingDiscount = 0 + Var VendingCampaign = 0 + Var SelectDrink = Seeker.selected_a_drink + Var SuggestID = "" + + If ChangeFlag2 = 1 Then + Var TelephoneNumber = "0899999999" + Var PayO2 = "" + Var ServiceType = "credit" + Var SessionID2 = SelectDrink + Var ServiceCredit = "coffee" + Var PayDetail = "" + Var PayDetail2 = "" + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate + + Else + + If Seeker.StoreCreditFlag = 1 Then + Var TelephoneNumber = Seeker.TNumberTaobinCredit + Var PayO2 = Seeker.CoffeePinNumber + Var ServiceType = "credit" + Var SessionID2 = SelectDrink + Var ServiceCredit = "coffee" + Var PayDetail = "" + Var PayDetail2 = "" + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate + + EndIf + EndIf + + TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/addpoint.ev" + + If ConnectWithPOSMachine = 1 Then + Var SelectDrink = Seeker.selected_a_drink + Var ExtendData = Seeker.ExtendData + Var ServiceAmount2 = Seeker.ServiceAmount2 + Var SessionID2 = SelectSlot + ":" + Var SessionID2 = SessionID2 + ExtendData + + Var CreditReference = Seeker.CreditReferenceTmp + Var VendingDiscount = Seeker.VendingDiscount + Var VendingCampaign = Seeker.VendingCampaign + Var TxReference = Seeker.TxRef1 + Var VendingOrderID = Seeker.ORDER_ID + Var PayType = "newpay" + + Var ServiceType = "coffee-payment" + Var ServiceCredit = SelectDrink + Var SuggestID = "" + + Var PayDetail = "2/S:0/0//XML|" + Seeker.OrderChanel + + If GetFreeFromError = 1 Then + Var Seeker.CodeChannel = 1 + Var Seeker.VendingCode = "FAU" + Var Seeker.CodeNumber = "0000000000" + Var VendingCampaign = ServiceAmount2 + EndIf + + Var PayDetail2 = Seeker.PayDetail2 + POSPay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate + EndIf + + + Else + + ; not-open-yet + ;TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/addpoint.ev" + + + Var SelectDrink = Seeker.selected_a_drink + Var ExtendData = Seeker.ExtendData + Var ServiceAmount2 = Seeker.ServiceAmount2 + Var SessionID2 = SelectSlot + ":" + Var SessionID2 = SessionID2 + ExtendData + + Var CreditReference = Seeker.CreditReferenceTmp + Var VendingDiscount = Seeker.VendingDiscount + Var VendingCampaign = Seeker.VendingCampaign + Var TxReference = Seeker.TxRef1 + Var VendingOrderID = Seeker.ORDER_ID + Var PayType = "newpay" + + Var ServiceType = "coffee-payment" + Var ServiceCredit = SelectDrink + Var SuggestID = "" + + Var PayDetail = "2/S:0/0//XML|" + Seeker.OrderChanel + + If GetFreeFromError = 1 Then + Var Seeker.CodeChannel = 1 + Var Seeker.VendingCode = "FAU" + Var Seeker.CodeNumber = "0000000000" + Var VendingCampaign = ServiceAmount2 + EndIf + + 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 + "/" + + + Var PayDetail2 = Seeker.PayDetail2 + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate + Else + + + Var PayDetail2 = Seeker.PayDetail2 + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate + + EndIf + EndIf