diff --git a/xml/page_NewBrewing3.xml b/xml/page_NewBrewing3.xml new file mode 100644 index 00000000..31e90e82 --- /dev/null +++ b/xml/page_NewBrewing3.xml @@ -0,0 +1,1816 @@ + + "Enable" + 1080 + 1920 + "0xeae6e1" + SoundVolume + + + + TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/payext_setup.ev" + + Var SendNotiPaySuccess = 2 + + Var GetMoreStrawCount = 2 + + Var CountUpWhenBREW_CNT = 0 + DEBUGVAR TxRef1 + + SAVELOG "page_brewing3.xml" + DEBUGVAR MachineStage + + Var PictureFileTextDesctionState = "Enable" + + + If CART_COUNT >= 1 Then + Open "ROOT/taobin_project/xml/page_brewing3Multi.xml" + Else + Var PayReference = "" + Var PayType = "newpay" + EndIf + + 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 = "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.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_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 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/video/brewing_txt_adv3_en.png" + Var brew_txt1 = "ROOT/taobin_project/video/brewing_txt_adv1_en.png" + + Var XStraw = 142 + 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/video/brewing_txt_adv3.png" + Var brew_txt1 = "ROOT/taobin_project/video/brewing_txt_adv1.png" + + Var XStraw = 142 + EndIf + + Var waitAckPay = 0 + Var VendingTSIDTmp = "" + Var VendingTSIDProblem = "" + Var CreditReference = "" + Var PayCredit = 0 + + If Seeker.TNumberTaobinCredit = "" Then + + If Seeker.TNumberTaobinMember = "" Then + Var TelephoneNumberProblem = "" + Else + Var TelephoneNumberProblem = Seeker.TNumberTaobinMember + EndIf + + Else + Var TelephoneNumberProblem = Seeker.TNumberTaobinCredit + EndIf + + DEBUGVAR Seeker.TNumberTaobinMember + DEBUGVAR Seeker.PointTaobinStr + + + If GetFreeFromError = 1 Then + Var TelephoneNumberProblem = TelephoneNumberGOTFree + EndIf + + + If LedLidBlink = "true" Then + Var LedLidBlink = "no" + LED LedDoorLid Blink 255 255 255 255 + EndIf + + + 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 topup_credit_bn = DirImage + "/bn_topup_credit.png" + Var topup_credit_bp = DirImage + "/bp_topup_credit.png" + Var EnableTopupCreditBetweenBrew = "Invisible" + + 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" + Var EnableTopupCreditBetweenBrew = "Enable" + EndIf + + If GetFreeFromError = 1 Then + Var SelectMenuBetweenBrewEnable1 = "Invisible" + Var EnableTopupCreditBetweenBrew = "Invisible" + EndIf + + If DisableFromPowerup = "true" Then + Var SelectMenuBetweenBrewEnable1 = "Invisible" + Var SelectMenuBetweenBrewEnable1Text = "Invisible" + Var EnableTopupCreditBetweenBrew = "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" + Var EnableTopupCreditBetweenBrew = "Invisible" + EndIf + + If NeedUpgrade = "true" Then + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1 = "Invisible" + Var EnableTopupCreditBetweenBrew = "Invisible" + EndIf + + If NeedReboot = "true" Then + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1 = "Invisible" + Var EnableTopupCreditBetweenBrew = "Invisible" + EndIf + + If SELLSTATUS = "DEACTIVE" Then + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1 = "Invisible" + Var EnableTopupCreditBetweenBrew = "Invisible" + EndIf + + DEBUGVAR NeedUpgrade + DEBUGVAR NeedReboot + DEBUGVAR SELLSTATUS + + ; 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" + + 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 = "ROOT/taobin_project/image/page_doing/tao_adv1.png" + Var PictureFile = brew_txt1 + EndIf + + Var CampaignEnable = 0 + + + Var GetLidButtonCountDown = 0 + + ; language instance + + + + DEBUGVAR SelectMenuBetweenBrewEnable1 + DEBUGVAR SelectMenuBetweenBrewEnable2 + + Var SelectMenuBetweenBrewEnable1Text = SelectMenuBetweenBrewEnable1 + + + ; echo 1 > /mnt/sdcard/game_enable + READ_FILE "/mnt/sdcard/game_enable" game_mode_str + STRCONTAIN "1" game_mode_str game_mode_enable + DEBUGVAR game_mode_enable + + + If GameEnableFromTrickerEv = 1 Then + Var game_mode_enable = "true" + EndIf + + If GameOverrideDisable = 1 Then + Var game_mode_enable = "false" + EndIf + + READ_FILE "/mnt/sdcard/game_disable" game_mode_str + STRCONTAIN "1" game_mode_str game_mode_disable + DEBUGVAR game_mode_disable + + If game_mode_disable = "true" Then + Var game_mode_enable = "false" + EndIf + + DEBUGVAR GameEnableFromTrickerEv + DEBUGVAR GameOverrideDisable + + DEBUGVAR Seeker + If game_mode_enable = "true" Then + + + DEBUGVAR GameInstalled + + If GameInstalled = "true" Then + If Seeker.TNumberTaobinCredit = "" Then + Var TelephoneNumber = "0899999999" + + If Seeker.TNumberTaobinMember = "" Then + Else + Var TelephoneNumber = Seeker.TNumberTaobinMember + EndIf + + Else + Var TelephoneNumber = Seeker.TNumberTaobinCredit + EndIf + + StrLen TelephoneNumber TelNumLen + + DEBUGVAR TelephoneNumber + DEBUGVAR TelNumLen + + If TelNumLen = 10 Then + + ; reset + WRITE_FILE "/mnt/sdcard/config_taobingame.yaml" "" + ;APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: "http://10.0.16.233:30487/taobingame"\r\n" + APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: "http://10.0.16.231:30460"\r\n" + + If TelephoneNumber = "0899999999" Then + ; Coupon or customer not input phone number. + Var ACCString !assigned SprintFmt("ACC: ""\r\n", "") + Else + + Var ACCString !assigned SprintFmt("ACC: "%s"\r\n", TelephoneNumber) + EndIf + + DEBUGVAR ACCString + + If show_eng = "true" Then + Var LangString = "LANG: "EN"\r\n" + Else + Var LangString = "LANG: "TH"\r\n" + EndIf + + Var BoxIDString !assigned SprintFmt("BOX_ID: "%s"\r\n", BoxID) + + ; reset + WRITE_FILE "/mnt/sdcard/taobingame_acc.yaml" "" + APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" ACCString + APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" LangString + APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" BoxIDString + + ; + + Var Game01Enable = 1 + Else + ; reset + WRITE_FILE "/mnt/sdcard/config_taobingame.yaml" "" + ;APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: "http://10.0.16.233:30487/taobingame"\r\n" + APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: "http://10.0.16.231:30460"\r\n" + + Var ACCString !assigned SprintFmt("ACC: ""\r\n", "") + DEBUGVAR ACCString + + If show_eng = "true" Then + Var LangString = "LANG: "EN"\r\n" + Else + Var LangString = "LANG: "TH"\r\n" + EndIf + + Var BoxIDString !assigned SprintFmt("BOX_ID: "%s"\r\n", BoxID) + + ; reset + WRITE_FILE "/mnt/sdcard/taobingame_acc.yaml" "" + APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" ACCString + APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" LangString + APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" BoxIDString + + ; + + Var Game01Enable = 1 + EndIf + EndIf + EndIf + + + + DEBUGVAR Game01Enable + DEBUGVAR BREW_CNT + If Game01Enable = 1 Then + If BREW_CNT > 75 Then + Var ButtonGameCountDown = BREW_CNT - 60 + If ButtonGameCountDown > 10 Then + Var ButtonGameCountDown = 10 + EndIf + + Var ButtonGameCountDownState = "PressForever" + Else + Var Game01Enable = 0 + Var ButtonGameCountDownState = "Invisible" + Var ButtonGamePressToPlayState = "Invisible" + + Var ButtonGameCountDown = 0 + EndIf + + Else + Var ButtonGameCountDown = 0 + Var ButtonGameCountDownState = "Invisible" + EndIf + + DEBUGVAR ButtonGameCountDown + + Var ButtonGamePressToPlayState = "Invisible" + + + + ; BREW_CNT > 15 ( pre-time ) + 60 ( Game Time ) Game01Enable + ; BREW_CNT > 15 ( pre-time ) + 50 ( Game Time ) + 10 (Debound Time) Game01Enable + + If Game01Enable = 1 Then + + If ButtonGameCountDownState = "Enable" Then + If BREW_CNT < 75 Then + If Game01Enable = 1 Then + SAVELOG "Game01Enable set zero event open 2" + EndIf + Var Game01Enable = 0 + Var ButtonGameCountDownState = "Invisible" + Var ButtonGamePressToPlayState = "Invisible" + EndIf + EndIf + + If BREW_CNT > 70 Then + + Else + If Game01Enable = 1 Then + SAVELOG "Game01Enable set zero event open 1" + EndIf + Var Game01Enable = 0 + Var ButtonGamePressToPlayState = "Invisible" + + EndIf + EndIf + + + + + 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 + + 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 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 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 + + + + 1000 + + + + Var Timeout = Timeout + 1 + + If Timeout < 2 Then + If Game01Enable = 0 Then + If game_mode_enable = "true" Then + If BREW_CNT > 75 Then + SAVELOG "Button game enable from EventTimeout" + Var Game01Enable = 1 + Var ButtonGameCountDownState = "Invisible" + Var ButtonGamePressToPlayState = "Enable" + + EndIf + EndIf + EndIf + + EndIf + + DEBUGVAR MachineState_Result + DEBUGVAR BREW_COUNT_DOWN_FROM_APP + + + If MOVE_CUP_TO_DOOR = "true" Then + Var MOVE_CUP_TO_DOOR = "false" + EndIf + + Var CountDownBrewing = 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" + + ; 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 + 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 + + ; run test; + ;I f CountDownBrewing = 40 Then + ; Open "ROOT/taobin_project/xml/page_drinkok.xml" + ;EndIf + ;I f CountDownBrewing = 0 Then + ; ;Open "ROOT/taobin_project/xml/page_drinkok.xml" + ;EndIf + + Var ShowCountDownBrewing = CountDownBrewing + + DEBUGVAR EnableDoubleCupNoError + DEBUGVAR HURR_FOREVER + If EnableDoubleCupNoError = 1 Then + If HURR_FOREVER = "F:1028" Then + Var SavePayDetail = HURR_FOREVER + Open "ROOT/taobin_project/xml/page_pickup_cup_from_error.xml" + EndIf + If HURR_FOREVER = "F:1029" Then + Var SavePayDetail = HURR_FOREVER + Open "ROOT/taobin_project/xml/page_pickup_cup_from_error.xml" + EndIf + If HURR_FOREVER = "F:1030" Then + Var SavePayDetail = HURR_FOREVER + Open "ROOT/taobin_project/xml/page_pickup_cup_from_error.xml" + EndIf + If HURR_FOREVER = "F:1031" Then + Var SavePayDetail = HURR_FOREVER + Open "ROOT/taobin_project/xml/page_pickup_cup_from_error.xml" + EndIf + EndIf + + + If Timeout > 540 Then + SAVELOG "back_to_main from line > 217." + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + EndIf + + + 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 Timeout > 480 Then + SAVELOG " Timeout > 480" + Var MachineState_Result = 2 + EndIf + + If ChangeFlag = 1 Then + Var ChangeTimeout = ChangeTimeout + 1 + 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 PayDetail = "" + Var PayDetail2 = "" + Var VendingOrderID = Seeker.ORDER_ID + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 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 PayDetail = "" + Var PayDetail2 = "" + Var VendingOrderID = Seeker.ORDER_ID + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 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 + ;Var MachineState_Result = 2 + EndIf + + If MachineState_Result = 1 Then + DEBUGVAR PaySuccessWithDaemonTask + + If waitAckPay = 0 Then + + Var waitAckPay = 0 + Var Timeout = 0 + + If Seeker.PayWithQR = 0 Then + + If Seeker.CreditCard = 1 Then + CashlessReq SUCCESS + EndIf + + Else + + 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 ChangeFlag = 0 Then + Var ChangeFlag = 1 + Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign + + If Seeker.StoreCreditFlag = 1 Then + Var ChangeOK = 2 + Else + Change ServiceAmount3 + EndIf + + 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 > 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" + Var SelectMenuBetweenBrewEnable1Text = "Invisible" + Var EnableTopupCreditBetweenBrew = "Invisible" + EndIf + + ; Close next button. + If CLOSE_ORDER_NOW = "true" Then + Var SelectMenuBetweenBrewEnable1 = "Invisible" + Var SelectMenuBetweenBrewEnable1Text = "Invisible" + Var SelectMenuBetweenBrewEnable2 = "Invisible" + Var EnableTopupCreditBetweenBrew = "Invisible" + + EndIf + + If DisableFromPowerup = "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 + 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 + 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 + 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. +; + + + + + + + + + 526 + 1680 + 241 + 204 + ButtonGamePressToPlayState + "ROOT/taobin_project/app/game/TAMATIAN-01.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 with phone number + Var TelephoneNumberProblem = "1234567890" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + + + diff --git a/xml/page_NewBrewing3Conti.xml b/xml/page_NewBrewing3Conti.xml new file mode 100644 index 00000000..dbd73e87 --- /dev/null +++ b/xml/page_NewBrewing3Conti.xml @@ -0,0 +1,993 @@ + + "Enable" + 1080 + 1920 + "0xeae6e1" + SoundVolume + + + Var ActionOKCase = 0 + Var Seeker = "curr" + + If show_eng = "true" Then + Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment" + Var DirImage2 = "ROOT/taobin_project/image/topping2_en" + Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png" + Else + Var DirImage = "ROOT/taobin_project/image/page_payment" + Var DirImage2 = "ROOT/taobin_project/image/topping2" + Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png" + EndIf + + 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 topup_credit_bn = DirImage + "/bn_topup_credit.png" + Var topup_credit_bp = DirImage + "/bp_topup_credit.png" + + Var EnableTopupCreditBetweenBrew = "Enable" + + If NextOrder = "true" Then + Var EnableSelectMenuBetweenBrew = "Invisible" + Else + Var EnableSelectMenuBetweenBrew = "Enable" + EndIf + + If GetFreeFromError = 1 Then + Var EnableSelectMenuBetweenBrew = "Invisible" + Var EnableTopupCreditBetweenBrew = "Invisible" + EndIf + + If EnableSelectMenuBetweenBrew = "Enable" Then + Var EnableSelectMenuBetweenBrewBlink = "Enable" + Else + Var EnableSelectMenuBetweenBrewBlink = "Invisible" + EndIf + + + Var bg_strawlid = DirImage2 + "/bg_strawlidSmall.png" + If Seeker.thankLidFlag = 1 Then + Var bg_strawlid = DirImage2 + "/bg_strawSmall.png" + Var LidStateX = "Invisible" + EndIf + + Var TimeoutWaitPay = 10 + + Var PayReference = "" + Var PayType = "newpay" + Var MachineState_Result = 0 + + If LastMakeDrinkResult = "success" Then + Var MachineState_Result = 1 + EndIf + + If LastMakeDrinkResult = "fail" Then + Var MachineState_Result = 2 + EndIf + + + Var ExtendData = Seeker.ExtendData + Var SelectDrink = Seeker.selected_a_drink + 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 + + DEBUGVAR Seeker.TNumberTaobinMember + DEBUGVAR Seeker.PointTaobinStr + + 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 + + + Var DirImage = "ROOT/taobin_project/image/complete/" + Var next_pic_bg = DirImage + "/Preparing.png" + + Var bg_strawlid_ST = "Invisible" + Var bg_strawProblem_ST = "Invisible" + Var StrawStateX = "Invisible" + Var LidStateX = "Invisible" + + If Seeker.CreditCard = 1 Then + Var EnableSelectMenuBetweenBrew = "Invisible" + Var EnableTopupCreditBetweenBrew = "Invisible" + EndIf + + If MachineState_Result > 0 Then + Var EnableTopupCreditBetweenBrew = "Invisible" + EndIf + + Var CreditCardVoid = 0 + + DEBUGVAR ButtonGameCountDownState + + + + + + + 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 + + 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 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 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 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 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_drinkfail2.xml" + EndIf + + + If Timeout > 480 Then + Var MachineState_Result = 2 + EndIf + + If ChangeFlag = 1 Then + Var ChangeTimeout = ChangeTimeout + 1 + EndIf + + + If waitAckPay = 2 Then + If Timeout > TimeoutWaitPay 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 PayDetail = "" + Var PayDetail2 = "" + Var VendingOrderID = Seeker.ORDER_ID + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate + + Var waitAckPay = 2 + Var TimeoutWaitPay = 45 + 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 + + Var ServiceType = "coffee-refund" + Var ServiceCredit = SelectDrink + Var SuggestID = "" + Var SessionID2 = "" + + Var PayDetail = "" + Var PayDetail2 = "" + Var VendingOrderID = Seeker.ORDER_ID + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate + + Var waitAckPay = 2 + Var TimeoutWaitPay = 45 + Var Timeout = 5 + Var ActionOKCase = 1 + + EndIf + EndIf + + If ChangeOK = 3 Then + If ActionOKCase = 0 Then + + 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 TimeoutWaitPay = 45 + 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 + + If Seeker.PayWithQR = 0 Then + + If Seeker.CreditCard = 1 Then + CashlessReq SUCCESS + EndIf + + Else + + EndIf + + EndIf + + __CMD "clear-stock-data" 0 "-" "-" + + Var ServiceSuccess = "yes" + If waitAckPay = 0 Then + SAVELOG "waitAckPay = 0 Timeout" + 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 ChangeFlag = 0 Then + Var ChangeFlag = 1 + Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign + + If Seeker.StoreCreditFlag = 1 Then + Var ChangeOK = 2 + Else + Change ServiceAmount3 + EndIf + + EndIf + + + + EndIf + EndIf + + Else + Var ChangeOK = 3 + EndIf + + + EndIf + EndIf + + + + DEBUGVAR LastMakeDrinkResult + DEBUGVAR MachineStage + + + If LastMakeDrinkResult = "success" Then + Var MachineState_Result = 1 + EndIf + + If LastMakeDrinkResult = "fail" Then + Var MachineState_Result = 2 + 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 + + If MachineState_Result > 0 Then + Var EnableSelectMenuBetweenBrew = "Invisible" + Var EnableTopupCreditBetweenBrew = "Invisible" + EndIf + + If EnableSelectMenuBetweenBrew = "Enable" Then + If EnableSelectMenuBetweenBrewBlink = "Enable" Then + Var EnableSelectMenuBetweenBrewBlink = "Invisible" + Else + Var EnableSelectMenuBetweenBrewBlink = "Enable" + EndIf + + Else + Var EnableSelectMenuBetweenBrewBlink = "Invisible" + 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 + SAVELOG "CountDownBrewing = 0" + Open "ROOT/taobin_project/xml/page_drinkok.xml" + EndIf + EndIf + + + If ButtonGameCountDown > 0 Then + If ButtonGameCountDown = 1 Then + Var ButtonGameCountDownState = "Invisible" + Var ButtonGamePressToPlayState = "Enable" + EndIf + Var ButtonGameCountDown = ButtonGameCountDown - 1 + DEBUGVAR ButtonGameCountDown + EndIf + + + DEBUGVAR BREW_CNT + DEBUGVAR ButtonGamePressToPlayState + If BREW_CNT > 60 Then + + Else + Var ButtonGamePressToPlayState = "Invisible" + Var Game01Enable = 0 + EndIf + + + + + + Refresh + TimerReset + + + + + + + +; 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 + + + + +;include="ROOT/taobin_project/inc/video.inc" + + +; +; 0 +; 0 +; "ROOT/taobin_project/image/ad_medium_2.png" +; + + + + + + + 60 + 1290 + PictureFile + + +; +; 60 +; 1649 +; BottomText +; + + + 0 + 1655 +EnableSelectMenuBetweenBrew + text_next_order + + + + 835 + 1735 +EnableSelectMenuBetweenBrewBlink + "ROOT/taobin_project/image/page_payment/arrow_1.png" + + + + + +; + + 751 + 413 + IMG_CNT + +; + + XPosiShowCountDownBrew + 470 + End + 153 + 88 + RobotoBold + 0x513C2F + ShowCountDownBrewing + + + + + + + + + + 526 + 1680 + 241 + 204 + ButtonGamePressToPlayState + "ROOT/taobin_project/app/game/TAMATIAN-01.gif" + + + + 526 + 1680 + 241 + 204 + ButtonGamePressToPlayState + + DEBUGVAR Game01Enable + SAVELOG "Press play game conti" + Var Game01Enable = 0 + Var ButtonGamePressToPlayState = "Invisible" + RunApp "com.NDF.taobin" + + + + + + + +; straw left + + + + + + +; LID left + + + + + + + + diff --git a/xml/page_NewCannotConti.xml b/xml/page_NewCannotConti.xml new file mode 100644 index 00000000..6b605bf0 --- /dev/null +++ b/xml/page_NewCannotConti.xml @@ -0,0 +1,557 @@ + + "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" + Var TextErrorShow = "Sorry, unable to produce the next order" + 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" + + Var TextErrorShow = "เต่าบินขัดข้องไม่สามารถทำเครื่องดื่มได้" + EndIf + + DEBUGVAR StarwState + DEBUGVAR LidState + DEBUGVAR BottomText + + DEBUGVAR Seeker.TNumberTaobinCredit + DEBUGVAR TelephoneNumber + DEBUGVAR Seeker.StoreCreditFlag + + + DEBUGVAR Seeker + DEBUGVAR Seeker.selected_a_drink + DEBUGVAR Seeker.ServiceAmount2 + + + If Seeker = "curr" Then + SAVELOG " cannot on curr" + + Var ExtendData = Seeker.ExtendData + Var SessionID2 = SelectSlot + ":" + Var SessionID2 = SessionID2 + Seeker.ExtendData + + DEBUGVAR SessionID2 + + Topping "ClearNextOrder" "-" + EndIf + + Var LastMakeDrinkResult = "fail" + Var NextOrderStatus = "Disable" + + DEBUGVAR LastMakeDrinkResult + DEBUGVAR MachineStage + DEBUGVAR NextOrderStatus + + DEBUGVAR error_code_stop_now + + ; page_brewing3.xml + DEBUGVAR MachineStage + + Var PayReference = "" + Var PayType = "" + + + Var SelectDrink = Seeker.selected_a_drink + Var ServiceAmount2 = Seeker.ServiceAmount2 + Var PriceDrink = 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.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 + + 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 + + Var CreditCardVoid = 0 + + + + + + + If CreditCardVoid = 1 Then + Var ChangeOK = 2 + EndIf + + + If ActionOKCase = 1 Then + If Seeker.CodeChannel = 1 Then + Var SessionID2 = SelectSlot + ":" + Var SessionID2 = SessionID2 + Seeker.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 ActionOKCase = 1 Then + If Seeker.CodeChannel = 1 Then + Var SessionID2 = SelectSlot + ":" + Var SessionID2 = SessionID2 + Seeker.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 = 2 Then + If Timeout > 10 Then + + If Seeker.CodeChannel = 1 Then + Var SessionID2 = SelectSlot + ":" + Var SessionID2 = SessionID2 + Seeker.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 + + Var ServiceType = "coffee-refund" + Var ServiceCredit = SelectDrink + Var SuggestID = "" + Var SessionID2 = "" + + Var PayDetail = "" + Var PayDetail2 = "" + Var VendingOrderID = Seeker.ORDER_ID + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate + + 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 + + Var ServiceType = "coffee-refund" + Var ServiceCredit = SelectDrink + Var SuggestID = "" + Var SessionID2 = "" + + Var PayDetail = "" + Var PayDetail2 = "" + Var VendingOrderID = Seeker.ORDER_ID + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate + + Var waitAckPay = 2 + Var Timeout = 5 + Var ActionOKCase = 1 + + EndIf + EndIf + + If ChangeOK = 3 Then + If ActionOKCase = 0 Then + + 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 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 + + + + + Refresh + TimerReset + + + + +; +; 0 +; 0 +; "ROOT/taobin_project/image/ad_medium_2.png" +; + +;include="ROOT/taobin_project/inc/video.inc" + + + + + + + + + + 0 + 427 + 1080 + Center + 46 + RobotoBlack + 0x513C2F + "Enable" + TextErrorShow + + + + + 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 + + + + \ No newline at end of file diff --git a/xml/page_brewing3.xml b/xml/page_brewing3.xml index 922319ce..11d94447 100644 --- a/xml/page_brewing3.xml +++ b/xml/page_brewing3.xml @@ -5,6 +5,12 @@ "0xeae6e1" SoundVolume + + + If New_Payment = 1 Then + Open "ROOT/taobin_project/xml/page_NewBrewing3.xml" + EndIf + Var SendNotiPaySuccess = 2 Var GetMoreStrawCount = 2 diff --git a/xml/page_brewing3Conti.xml b/xml/page_brewing3Conti.xml index 9e91e4b9..b7303914 100644 --- a/xml/page_brewing3Conti.xml +++ b/xml/page_brewing3Conti.xml @@ -6,6 +6,11 @@ SoundVolume + + If New_Payment = 1 Then + Open "ROOT/taobin_project/xml/page_NewBrewing3Conti.xml" + EndIf + Var ActionOKCase = 0 Var Seeker = "curr" diff --git a/xml/page_cannotConti.xml b/xml/page_cannotConti.xml index 5c8651bf..e29c551a 100644 --- a/xml/page_cannotConti.xml +++ b/xml/page_cannotConti.xml @@ -6,6 +6,11 @@ "ROOT/taobin_project/sounds/chaching.mp3" SoundVolume + + If New_Payment = 1 Then + Open "ROOT/taobin_project/xml/page_NewCannotConti.xml" + EndIf + ; On open Var CountDownThankyou = 4 Var CountDownBrewing = BrewTime diff --git a/xml/page_get_yourchange.xml b/xml/page_get_yourchange.xml index 87e7a184..2abccf2d 100644 --- a/xml/page_get_yourchange.xml +++ b/xml/page_get_yourchange.xml @@ -83,6 +83,9 @@ UpdateTxRef2 TxRef1 ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate PayO2 PdpaAccept VendingDiscount VendingCampaign PayReference PayType CreditReference PayDetail PayDetail2 EndIf + If New_Payment = 1 Then + TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/payment.ev" + EndIf If Seeker = "next" Then ;CoinBack diff --git a/xml/page_lid_straw.xml b/xml/page_lid_straw.xml index 90499e45..72189b0f 100644 --- a/xml/page_lid_straw.xml +++ b/xml/page_lid_straw.xml @@ -129,6 +129,11 @@ Open brewing3ContiInter Else + + If New_Payment = 1 Then + TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/payment.ev" + EndIf + Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" EndIf @@ -155,6 +160,11 @@ Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml" Open Brew3Inter Else + + If New_Payment = 1 Then + TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/payment.ev" + EndIf + Open "ROOT/taobin_project/xml/page_brewing3.xml" EndIf Else diff --git a/xml/page_payment.xml b/xml/page_payment.xml index 09850540..d02247f6 100644 --- a/xml/page_payment.xml +++ b/xml/page_payment.xml @@ -461,6 +461,12 @@ __CMD "CLEAR_TIME_BLINK_DISPLAY" 0 "-" "-" + ;new payment coffee-payment + If New_Payment = 1 Then + Var Seeker.ORDER_ID = "" + GenHashWithTimeStamp Seeker.ORDER_ID + EndIf + 900 diff --git a/xml/page_payment_cash.xml b/xml/page_payment_cash.xml index 768e1017..a38b04f8 100644 --- a/xml/page_payment_cash.xml +++ b/xml/page_payment_cash.xml @@ -367,6 +367,7 @@ CoinVending OFF If Seeker = "curr" Then + Topping "SetOrderID" Seeker.ORDER_ID MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 @@ -389,6 +390,7 @@ CoinVending OFF If Seeker = "curr" Then + Topping "SetOrderID" Seeker.ORDER_ID MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 @@ -1128,6 +1130,7 @@ If Seeker = "curr" Then + Topping "SetOrderID" Seeker.ORDER_ID MakeDrinkV1 SelectDrink SelectSugarID ;Var TxRef1 = "" ;CreateTxRef1 TxRef1 @@ -1626,6 +1629,7 @@ Refresh If Seeker = "curr" Then + Topping "SetOrderID" Seeker.ORDER_ID MakeDrinkV1 SelectDrink SelectSugarID EndIf Var Seeker.CreditCard = 1 @@ -1848,7 +1852,8 @@ If PayOK = 1 Then If Seeker = "curr" Then - + + Topping "SetOrderID" Seeker.ORDER_ID MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 diff --git a/xml/page_payment_code.xml b/xml/page_payment_code.xml index 465c0ec6..7ed16f4b 100644 --- a/xml/page_payment_code.xml +++ b/xml/page_payment_code.xml @@ -255,6 +255,7 @@ Var CART_INDEX = 0 If Seeker = "curr" Then + Topping "SetOrderID" Seeker.ORDER_ID MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 diff --git a/xml/page_payment_codeAEON.xml b/xml/page_payment_codeAEON.xml index a20899df..3dd84573 100644 --- a/xml/page_payment_codeAEON.xml +++ b/xml/page_payment_codeAEON.xml @@ -140,6 +140,7 @@ Var CART_INDEX = 0 If Seeker = "curr" Then + Topping "SetOrderID" Seeker.ORDER_ID MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 diff --git a/xml/page_payment_codeAIS.xml b/xml/page_payment_codeAIS.xml index 31d1b61c..749356ab 100644 --- a/xml/page_payment_codeAIS.xml +++ b/xml/page_payment_codeAIS.xml @@ -140,6 +140,7 @@ Var CART_INDEX = 0 If Seeker = "curr" Then + Topping "SetOrderID" Seeker.ORDER_ID MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 diff --git a/xml/page_payment_codeDtac.xml b/xml/page_payment_codeDtac.xml index e2df34ca..683dfc61 100644 --- a/xml/page_payment_codeDtac.xml +++ b/xml/page_payment_codeDtac.xml @@ -140,6 +140,7 @@ Var CART_INDEX = 0 If Seeker = "curr" Then + Topping "SetOrderID" Seeker.ORDER_ID MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 diff --git a/xml/page_payment_codeGLX.xml b/xml/page_payment_codeGLX.xml index 25f2f3fb..9b1750a8 100644 --- a/xml/page_payment_codeGLX.xml +++ b/xml/page_payment_codeGLX.xml @@ -140,6 +140,7 @@ Var CART_INDEX = 0 If Seeker = "curr" Then + Topping "SetOrderID" Seeker.ORDER_ID MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 diff --git a/xml/page_payment_codeGrab.xml b/xml/page_payment_codeGrab.xml index ce03452e..3af785c4 100644 --- a/xml/page_payment_codeGrab.xml +++ b/xml/page_payment_codeGrab.xml @@ -140,6 +140,7 @@ Var CART_INDEX = 0 If Seeker = "curr" Then + Topping "SetOrderID" Seeker.ORDER_ID MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 diff --git a/xml/page_payment_codeInfinyx.xml b/xml/page_payment_codeInfinyx.xml index 6889575d..1c6b09db 100644 --- a/xml/page_payment_codeInfinyx.xml +++ b/xml/page_payment_codeInfinyx.xml @@ -140,6 +140,7 @@ Var CART_INDEX = 0 If Seeker = "curr" Then + Topping "SetOrderID" Seeker.ORDER_ID MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 diff --git a/xml/page_payment_codeKBANK.xml b/xml/page_payment_codeKBANK.xml index 13c01a26..ffb7e9f3 100644 --- a/xml/page_payment_codeKBANK.xml +++ b/xml/page_payment_codeKBANK.xml @@ -140,6 +140,7 @@ Var CART_INDEX = 0 If Seeker = "curr" Then + Topping "SetOrderID" Seeker.ORDER_ID MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 diff --git a/xml/page_payment_codeLH.xml b/xml/page_payment_codeLH.xml index a4785b7a..c7c51967 100644 --- a/xml/page_payment_codeLH.xml +++ b/xml/page_payment_codeLH.xml @@ -140,6 +140,7 @@ Var CART_INDEX = 0 If Seeker = "curr" Then + Topping "SetOrderID" Seeker.ORDER_ID MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 diff --git a/xml/page_payment_codeLotus.xml b/xml/page_payment_codeLotus.xml index a4b48ccb..2d49d892 100644 --- a/xml/page_payment_codeLotus.xml +++ b/xml/page_payment_codeLotus.xml @@ -140,6 +140,7 @@ Var CART_INDEX = 0 If Seeker = "curr" Then + Topping "SetOrderID" Seeker.ORDER_ID MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 diff --git a/xml/page_payment_codeMCard.xml b/xml/page_payment_codeMCard.xml index ea9b78cf..56763c13 100644 --- a/xml/page_payment_codeMCard.xml +++ b/xml/page_payment_codeMCard.xml @@ -140,6 +140,7 @@ Var CART_INDEX = 0 If Seeker = "curr" Then + Topping "SetOrderID" Seeker.ORDER_ID MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 diff --git a/xml/page_payment_codeRabbit.xml b/xml/page_payment_codeRabbit.xml index a124cdb9..e438ab1e 100644 --- a/xml/page_payment_codeRabbit.xml +++ b/xml/page_payment_codeRabbit.xml @@ -140,6 +140,7 @@ Var CART_INDEX = 0 If Seeker = "curr" Then + Topping "SetOrderID" Seeker.ORDER_ID MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 diff --git a/xml/page_payment_codeSCG.xml b/xml/page_payment_codeSCG.xml index 4000f660..de66cf38 100644 --- a/xml/page_payment_codeSCG.xml +++ b/xml/page_payment_codeSCG.xml @@ -140,6 +140,7 @@ Var CART_INDEX = 0 If Seeker = "curr" Then + Topping "SetOrderID" Seeker.ORDER_ID MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 diff --git a/xml/page_payment_codeThe1.xml b/xml/page_payment_codeThe1.xml index 4a0a78d5..15fb4de3 100644 --- a/xml/page_payment_codeThe1.xml +++ b/xml/page_payment_codeThe1.xml @@ -140,6 +140,7 @@ Var CART_INDEX = 0 If Seeker = "curr" Then + Topping "SetOrderID" Seeker.ORDER_ID MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 diff --git a/xml/page_payment_codeTrue.xml b/xml/page_payment_codeTrue.xml index 3fa45172..f89375ed 100644 --- a/xml/page_payment_codeTrue.xml +++ b/xml/page_payment_codeTrue.xml @@ -140,6 +140,7 @@ Var CART_INDEX = 0 If Seeker = "curr" Then + Topping "SetOrderID" Seeker.ORDER_ID MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 diff --git a/xml/page_payment_credit2.xml b/xml/page_payment_credit2.xml index 3b242801..fa93150f 100644 --- a/xml/page_payment_credit2.xml +++ b/xml/page_payment_credit2.xml @@ -197,6 +197,7 @@ Var CART_INDEX = 0 If Seeker = "curr" Then + Topping "SetOrderID" Seeker.ORDER_ID MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 diff --git a/xml/page_payment_credit3-0.xml b/xml/page_payment_credit3-0.xml index 6a0c5fb7..f36dadff 100644 --- a/xml/page_payment_credit3-0.xml +++ b/xml/page_payment_credit3-0.xml @@ -111,6 +111,7 @@ Var CART_INDEX = 0 If Seeker = "curr" Then + Topping "SetOrderID" Seeker.ORDER_ID MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 diff --git a/xml/page_payment_credit3-TopupSuccess.xml b/xml/page_payment_credit3-TopupSuccess.xml index 1ff95163..df5782e5 100644 --- a/xml/page_payment_credit3-TopupSuccess.xml +++ b/xml/page_payment_credit3-TopupSuccess.xml @@ -81,7 +81,7 @@ If Seeker = "curr" Then DEBUGVAR "MakeDrinkV1" - + Topping "SetOrderID" Seeker.ORDER_ID MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 diff --git a/xml/page_payment_credit3.xml b/xml/page_payment_credit3.xml index c9d6f22a..3ce63053 100644 --- a/xml/page_payment_credit3.xml +++ b/xml/page_payment_credit3.xml @@ -190,6 +190,7 @@ Var CART_INDEX = 0 If Seeker = "curr" Then + Topping "SetOrderID" Seeker.ORDER_ID MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" diff --git a/xml/page_payment_storeCredit3.xml b/xml/page_payment_storeCredit3.xml index 399d428d..e745048a 100644 --- a/xml/page_payment_storeCredit3.xml +++ b/xml/page_payment_storeCredit3.xml @@ -93,6 +93,7 @@ Var CART_INDEX = 0 If Seeker = "curr" Then + Topping "SetOrderID" Seeker.ORDER_ID MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 diff --git a/xml/page_thankyouConti.xml b/xml/page_thankyouConti.xml index 0681cf64..5bd9254b 100644 --- a/xml/page_thankyouConti.xml +++ b/xml/page_thankyouConti.xml @@ -30,7 +30,6 @@ Var Tel_Confirm_Flag = 0 Var LastMakeDrinkResult = "-" - DEBUGVAR MIGGAZE2 DEBUGVAR MachineStage DEBUGVAR NextOrderStatus @@ -310,6 +309,7 @@ Else Var LastMakeDrinkResult = "-" + Topping "SetOrderID" Seeker.ORDER_ID MakeDrinkV1 Seeker.selected_a_drink SelectSugarID EndIf diff --git a/xml/process/addpoint.ev b/xml/process/addpoint.ev new file mode 100644 index 00000000..ba9be432 --- /dev/null +++ b/xml/process/addpoint.ev @@ -0,0 +1,132 @@ + + + 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 + + If MyMintEnable = 1 Then + If FromMyMintPro = 1 Then + Var AddData = 0 + EndIf + EndIf + + If ProBadValentineEnable = 1 Then + If FromBadValentinePro = 1 Then + Var AddData = 0 + EndIf + EndIf + + DEBUGVAR Seeker.CodeChannel + DEBUGVAR Seeker.CollectPointMain + DEBUGVAR LipitPro + DEBUGVAR FromLipitPro + If LipitPro = 1 Then + If FromLipitPro = 1 Then + If Seeker.CodeChannel = 1 Then + If Seeker.CollectPointMain = 0 Then + Var AddData = 0 + EndIf + EndIf + EndIf + EndIf + + DEBUGVAR FromPowerUpPro + If FreeEnergyDrink = 1 Then + If FromPowerUpPro = 1 Then + ; AddData + + ; +1 in quota in this id card + Var Param1 = "" + Var Param2 = "" + Var Param3 = "" + + If IDNum = "" Then + + Else + AddData 44 TelephoneNumber IDNum Param1 Param2 + EndIf + + ; clear id + Var IDNum = "" + Var FromPowerUpPro = 0 + Var AddData = 0 + Var DisableFromPowerup = "true" + Else + Var DisableFromPowerup = "" + EndIf + EndIf + + If EnergyDrink1BathPro = 1 Then + If FromEnergyDrink1BathPro = 1 Then + SAVELOG "Adding Energy drink 1 Bath pro quota" + Var Param1 = "" + Var Param2 = "" + Var Param3 = "" + + If IDNum = "" Then + + Else + AddData 44 TelephoneNumber IDNum Param1 Param2 + EndIf + + ; clear id + Var IDNum = "" + Var FromEnergyDrink1BathPro = 0 + Var AddData = 0 + Var DisableFromPowerup = "true" + Else + Var DisableFromPowerup = "" + EndIf + EndIf + + Var PointCrm = "" + If Seeker.FromConsent = 1 Then + Var PointCrm = "pdpa1" + EndIf + + If Seeker.PayWithQR = 1 Then + Var GetScore = Seeker.VendingTSID + Else + Var GetScore = "" + 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/xml/process/payext_setup.ev b/xml/process/payext_setup.ev new file mode 100644 index 00000000..54f82e5b --- /dev/null +++ b/xml/process/payext_setup.ev @@ -0,0 +1,7 @@ + +Var SVT = "coffee" +Var ACC = TelephoneNumber +Var DEE = PayDetail + +Var PayDetail2 = Seeker.PayDetail2 +PAYEXT_SETUP SVT ACC Seeker.VendingTSID Seeker.ORDER_ID \ No newline at end of file diff --git a/xml/process/payment.ev b/xml/process/payment.ev new file mode 100644 index 00000000..5a20724a --- /dev/null +++ b/xml/process/payment.ev @@ -0,0 +1,96 @@ + + + + If Seeker.PayWithQR = 1 Then + ;pay credit if coinAmount > 0 + + 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" + + Else + + 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 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