From d1c5516b75f477b434dcc9efd3dbb4d6b61c6756 Mon Sep 17 00:00:00 2001 From: Pakin Date: Thu, 13 Jun 2024 13:23:25 +0700 Subject: [PATCH] SGP: add stay at payment page if only cancel popup --- xml/page_payment_cash-SGP.xml | 514 ++++++++++++++++++---------------- 1 file changed, 269 insertions(+), 245 deletions(-) diff --git a/xml/page_payment_cash-SGP.xml b/xml/page_payment_cash-SGP.xml index fa0944cc..acab9035 100644 --- a/xml/page_payment_cash-SGP.xml +++ b/xml/page_payment_cash-SGP.xml @@ -17,7 +17,7 @@ DEBUGVAR VendingCashless CashlessReq FAIL - + Var CashlessPayFlag = 0 Var RemainAmountStrENG = "" Var AdultState = "Invisible" @@ -38,9 +38,9 @@ Var sdateday = "" Var sdatemonth = "" Var sdateyear = "" - SPLIT sdate "/" 1 sdateday + SPLIT sdate "/" 1 sdateday SPLIT sdate "/" 2 sdatemonth - SPLIT sdate "/" 3 sdateyear + SPLIT sdate "/" 3 sdateyear INT sdateday INT sdatemonth INT sdateyear @@ -56,7 +56,7 @@ Var ReqPayInfoFlag2 = 0 - DEBUGVAR QRCODETMP + DEBUGVAR QRCODETMP DEBUGVAR IsSmoRet Var countClick2 = 0 @@ -76,26 +76,26 @@ Var FlagQROpened = 0 Var PayInfoCFlag = 0 Var ActionOKCase = 0 - Var VendingCampaign = Seeker.IntVendingCampaign - Var Seeker.VendingCampaign = Seeker.IntVendingCampaign + Var VendingCampaign = Seeker.IntVendingCampaign + Var Seeker.VendingCampaign = Seeker.IntVendingCampaign Var PayAmount = PriceDrink - + Var LOADING_STATE = "Invisible" - ; Below original + ; Below original ; On open Var cancelState = "Invisible" - + Var alphaState = "Invisible" Var alphaState2 = "Invisible" Var alphaState3 = "Invisible" Var alphaState3_offline = "Invisible" - + Var CoinInFlag = 0 ;Var CoinAmount = 0 Var CancelFlag = 0 @@ -103,10 +103,10 @@ Var CoinInCounter = 0 Var CancelNumber = 3 - - + + Var PayAmount = PriceDrink - Var RemainAmount = PayAmount - Seeker.IntVendingCampaign + Var RemainAmount = PayAmount - Seeker.IntVendingCampaign Var RemainAmount = RemainAmount - CoinAmount Var RemainAmount = RemainAmount - Seeker.IntVendingCredit Var RemainAmountStr = "" + RemainAmount @@ -116,12 +116,12 @@ Var CoinInOK = 0 Var RemainAmountKeep = 0 - + Var showRemaining = charOfBaht + RemainAmountStr Var showRemaining !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow ) - + Var VendingREFID = "" - + Var TelephoneNumber = "0899999999" Var ServiceType = "coffee" @@ -129,14 +129,14 @@ Var ServiceAmount2 = PayAmount Var Seeker.ServiceAmount2 = PayAmount Var ServiceCharge = 0 - Var Donate = "" + Var Donate = "" Var SuggestID = "" Var CancleState = "Enable" Var Seeker.VendingDiscount = DiscountDrink - - Var CashTextWarning = "" + + Var CashTextWarning = "" Var QRErrorState = "Invisible" Var QRErrorFlag = 0 @@ -155,9 +155,9 @@ If Seeker.VendingCode = "C00" Then Var Seeker.CodeChannel = 0 EndIf - + Var ExtendData = Seeker.ExtendData - + DEBUGVAR QRCODE99KBANK If RoadShow = "true" Then @@ -168,11 +168,11 @@ Var PayState5 = "Invisible" Var PayState6 = "Invisible" Var showRemaining = "Free" - + Else Var PayState1 = "Enable" - If cash_disable = "1" Then + If cash_disable = "1" Then Var PayState1 = "Press" EndIf @@ -181,7 +181,7 @@ Var PayState4 = "Enable" Var PayState5 = "Enable" Var PayState6 = "Enable" - Else + Else SAVELOG "Cash only IntVendingCampaign" Var PayState2 = "Disable" Var PayState4 = "Disable" @@ -189,8 +189,8 @@ Var PayState6 = "Disable" EndIf Var PayState3 = "Enable" - - + + DEBUGVAR CoinAmount If CoinAmount > 0 Then SAVELOG "Cash only CoinAmount" @@ -210,12 +210,12 @@ Var PayState6 = "Disable" EndIf - + Var showRemaining = charOfBaht + RemainAmountStr - If show_eng = "true" Then + If show_eng = "true" Then Var showRemaining = charOfBaht + RemainAmountStr Else Var showRemaining = RemainAmountStr + " บาท" @@ -224,24 +224,24 @@ Var showRemaining !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow ) EndIf - + Var Seeker.PayWithQR = 0 Var NoGotoMenupage = "false" - If show_eng = "true" Then + If show_eng = "true" Then Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cash.png" Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_en/page_payment/bp_cash.png" Else Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cash.png" Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash.png" - + EndIf Var X_CASH = 216 If RoadShow = "true" Then Var X_CASH = 287 - If show_eng = "true" Then + If show_eng = "true" Then Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cash.png" Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_en/page_payment/bp_cash.png" Else @@ -252,38 +252,38 @@ If GetFreeFromError = 1 Then Var Seeker.FreeVendingCampaign = 1 - CoinVending OFF - If Seeker = "curr" Then - + CoinVending OFF + If Seeker = "curr" Then + MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 Else Var TxRef1 = "" CreateTxRef1 TxRef1 - + Var DrinkPaid = SelectDrink Var PaidPaymentFromNextStage = 1 - + EndIf DEBUGVAR UserChoosePayment Var UserChoosePayment = "" - Open "ROOT/taobin_project/xml/page_thankyou.xml" + Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf - + If CoinInOK = 0 Then - + Var RemainAmount = PayAmount - CoinAmount Var RemainAmount = RemainAmount - Seeker.IntVendingCampaign Var RemainAmount = RemainAmount - Seeker.IntVendingCredit Var SumCoinAmount = CoinAmount + Seeker.IntVendingCampaign Var SumCoinAmount = CoinAmount + Seeker.IntVendingCredit - If SumCoinAmount >= PayAmount Then + If SumCoinAmount >= PayAmount Then SAVELOG "CoinInOk First" DEBUGVAR CoinAmount @@ -298,7 +298,7 @@ Var RemainAmountStr !assigned StringFmt( Canout, DisplayFormat, PreScaleConvertShow ) Else - If show_eng = "true" Then + If show_eng = "true" Then ;Var RemainAmountStr = "Change " + Canout ;Var RemainAmountStr = RemainAmountStr + "###size=90" Var RemainAmountStr !assigned StringFmt( Canout, DisplayFormat, PreScaleConvertShow ) @@ -309,7 +309,7 @@ EndIf EndIf - + Var CancleState = "Disable" Var CoinInOK = 1 Var CoinInCounter = 0 @@ -338,7 +338,7 @@ ; EndIf ;EndIf - If show_eng = "true" Then + If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment" Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en" Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png" @@ -349,7 +349,7 @@ Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png" EndIf - + Var EnoughChange = "yes" Var SELLONLINE = 0 @@ -362,7 +362,7 @@ If SELLONLINE = 0 Then SAVELOG "Cash only NetworkStatus down" - + Var PayState2 = "Disable" Var PayState3 = "Disable" Var PayState4 = "Disable" @@ -373,7 +373,7 @@ Var ShowNetworkProblem = "Enable" Var ShowButtonClick2 = "Invisible" - + Else Var PayOfflineMode = 0 @@ -388,18 +388,18 @@ Var PayState1 = "Disable" EndIf - ;cancel order + ;cancel order If SELLSTATUS = "DEACTIVE" Then Var SELLONLINE = 1 EndIf - + Var pay_with_credit_image = DirImage + "/bp_pay_with_credit.png" Var pay_with_chanel_text = DirImage + "/text_1.png" - + ;If DisableUsingCode = "true" Then If DisableUsingCode = "-" Then @@ -416,7 +416,7 @@ Var pay_with_chanel_text = DirImage + "/text_2.png" Else - + Var pay_with_code_image = DirImage + "/bp_pay_with_code.png" EndIf EndIf @@ -433,7 +433,7 @@ If web_readyOK = "true" Then - Var web_readyOK = "false" + Var web_readyOK = "false" If web_payment = "CASH" Then Var alphaState2 = "Enable" @@ -444,7 +444,7 @@ __CMD "prepar-cup-from-order" 0 "-" "-" - ;Open "ROOT/taobin_project/xml/page_page_camera.xml" + ;Open "ROOT/taobin_project/xml/page_page_camera.xml" If RoadShow = "true" Then Var PayState1 = "Invisible" @@ -471,8 +471,9 @@ Var UserChoosePayment = "" - + DEBUGVAR SettingDisableTaobinCredit + Var CancelContinue = 0 Var QR_POPUP = CountryRootPath + "/image/page_payment/img_tap_card_5_sec.png" @@ -483,10 +484,10 @@ DEBUGVAR ECommerceQR SPLIT ECommerceQR "/" 5 VendingQRTypeResult - - DEBUGVAR UserChoosePayment - If ActionOKCase = 0 Then + DEBUGVAR UserChoosePayment + + If ActionOKCase = 0 Then If VendingREFID = "" Then SAVELOG "menu_page4-QR.xml > ActOK_REFID" Refresh @@ -520,7 +521,7 @@ - + If Seeker = "curr" Then MakeDrinkV1 SelectDrink SelectSugarID ;Var TxRef1 = "" @@ -528,17 +529,17 @@ EndIf Var Seeker.PayWithQR = 1 Var Seeker.VendingTSID = VendingTSID - + Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif" Var BrewingTextThai = "เตรียมแก้ว" DEBUGVAR UserChoosePayment Var UserChoosePayment = "" - Open "ROOT/taobin_project/xml/page_thankyou.xml" - + Open "ROOT/taobin_project/xml/page_thankyou.xml" + EndIf - If ReqPayInfoFlag = 1 Then + If ReqPayInfoFlag = 1 Then If VendingQRTypeResult = "MBB:2" Then Var CashTextWarning = "" Var QRErrorState = "Invisible" @@ -556,7 +557,7 @@ Var QRCODE99 = QRCODE99KBANK Var LOADING_STATE = "Invisible" - If show_eng = "true" Then + If show_eng = "true" Then PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_scan_to_pay_via_mobile.mp3" Else PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_scan_to_pay_via_mobile.mp3" @@ -581,18 +582,18 @@ Var QRCODE99 = QRCODE99KBANK Var LOADING_STATE = "Invisible" - If show_eng = "true" Then + If show_eng = "true" Then PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_scan_to_pay_via_e-wallet.mp3" Else PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_scan_to_pay_via_e-wallet.mp3" EndIf - + EndIf - - + + EndIf - If ReqPayInfoFlag = 2 Then + If ReqPayInfoFlag = 2 Then If VendingQRTypeResult = "AIR:2" Then Var CashTextWarning = "" Var QRErrorState = "Invisible" @@ -609,7 +610,7 @@ Var QRCODE99 = QRCODE99Shoppy Var LOADING_STATE = "Invisible" - If show_eng = "true" Then + If show_eng = "true" Then PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_scan_to_pay_via_e-wallet.mp3" Else PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_scan_to_pay_via_e-wallet.mp3" @@ -618,7 +619,7 @@ EndIf EndIf - If ReqPayInfoFlag = 3 Then + If ReqPayInfoFlag = 3 Then If VendingQRTypeResult = "TWN:2" Then Var CashTextWarning = "" Var QRErrorState = "Invisible" @@ -635,7 +636,7 @@ Var QRCODE99 = QRCODE99Shoppy Var LOADING_STATE = "Invisible" - If show_eng = "true" Then + If show_eng = "true" Then PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_scan_to_pay_via_e-wallet.mp3" Else PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_scan_to_pay_via_e-wallet.mp3" @@ -644,7 +645,7 @@ EndIf EndIf - If ReqPayInfoFlag = 4 Then + If ReqPayInfoFlag = 4 Then If VendingQRTypeResult = "DOL:2" Then Var CashTextWarning = "" Var QRErrorState = "Invisible" @@ -661,7 +662,7 @@ Var QRCODE99 = QRCODE99Shoppy Var LOADING_STATE = "Invisible" - If show_eng = "true" Then + If show_eng = "true" Then PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_scan_to_pay_via_e-wallet.mp3" Else PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_scan_to_pay_via_e-wallet.mp3" @@ -670,7 +671,7 @@ EndIf EndIf - If ReqPayInfoFlag = 5 Then + If ReqPayInfoFlag = 5 Then If VendingQRTypeResult = "LPY:2" Then Var CashTextWarning = "" Var QRErrorState = "Invisible" @@ -687,7 +688,7 @@ Var QRCODE99 = QRCODE99Shoppy Var LOADING_STATE = "Invisible" - If show_eng = "true" Then + If show_eng = "true" Then PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_scan_to_pay_via_e-wallet.mp3" Else PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_scan_to_pay_via_e-wallet.mp3" @@ -711,7 +712,7 @@ If ViewBill > 0 Then CoinVending BILLREJECT EndIf - + VendingQR OFF CoinVending OFF Refresh @@ -724,7 +725,7 @@ DEBUGVAR UserChoosePayment Var UserChoosePayment = "" - Open "ROOT/taobin_project/xml/page_thankyou.xml" + Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf @@ -734,29 +735,29 @@ DEBUGVAR UserChoosePayment - If ActionOKCase = 0 Then - If ReqPayInfoFlag = 1 Then + If ActionOKCase = 0 Then + If ReqPayInfoFlag = 1 Then Var QRErrorFlag = 1 If alphaState = "Enable" Then Var QRErrorState = "Enable" Var LOADING_STATE = "Invisible" EndIf EndIf - If ReqPayInfoFlag = 2 Then + If ReqPayInfoFlag = 2 Then Var QRErrorFlag = 1 If alphaState = "Enable" Then Var QRErrorState = "Enable" Var LOADING_STATE = "Invisible" EndIf EndIf - If ReqPayInfoFlag = 3 Then + If ReqPayInfoFlag = 3 Then Var QRErrorFlag = 1 If alphaState = "Enable" Then Var QRErrorState = "Enable" Var LOADING_STATE = "Invisible" EndIf EndIf - If ReqPayInfoFlag = 4 Then + If ReqPayInfoFlag = 4 Then Var QRErrorFlag = 1 If alphaState = "Enable" Then Var QRErrorState = "Enable" @@ -770,11 +771,11 @@ If VendingCashless = "ERROR" Then Var Timeout = 0 - + ;Var QRErrorFlag = 1 If alphaState = "Enable" Then Var QRErrorState = "Enable" - Var LOADING_STATE = "Invisible" + Var LOADING_STATE = "Invisible" EndIf EndIf @@ -793,7 +794,7 @@ DEBUGVAR UserChoosePayment DEBUGVAR CoinInFlag - + If CancelFlag = 0 Then @@ -811,7 +812,7 @@ Var VendingCashless = "-" Var LOADING_STATE = "Enable" Var alphaState = "Enable" - Var RemainAmountX = PayAmount - Seeker.IntVendingCampaign + Var RemainAmountX = PayAmount - Seeker.IntVendingCampaign CashlessPay RemainAmountX CreditCardRef Var CashlessPayFlag = 1 EndIf @@ -826,7 +827,7 @@ Var VendingCashless = "-" Var LOADING_STATE = "Enable" Var alphaState = "Enable" - Var RemainAmountX = PayAmount - Seeker.IntVendingCampaign + Var RemainAmountX = PayAmount - Seeker.IntVendingCampaign CashlessPay RemainAmountX CreditCardRef Var CashlessPayFlag = 1 @@ -840,12 +841,12 @@ If CancelFlag = 1 Then DEBUGVAR CancelFlag - Var CashlessPayFlag = 0 + Var CashlessPayFlag = 0 CashlessReq FAIL EndIf EndIf - + Refresh @@ -853,7 +854,7 @@ 1000 - + DEBUGVAR VendingCashless @@ -870,14 +871,14 @@ If CamFlag = 1 Then Var CamCount = CamCount + 1 If CamCount > 2 Then - facecompare 10 + facecompare 10 Var CamFlag = 0 Var CamCount = 0 EndIf EndIf - + If AdultState2 = "Enable" Then Var countAdultS2 = countAdultS2 + 1 @@ -889,13 +890,13 @@ Var countAdultS2 = 0 EndIf - + Var Timeout = Timeout + 1 If Timeout >= 120 Then Var alphaState = "Invisible" - + If RoadShow = "true" Then Else @@ -905,7 +906,7 @@ If PayState5 = "Enable" Then Var PayState5 = "Disable" EndIf - EndIf + EndIf Var LOADING_STATE = "Invisible" Var QRErrorState = "Invisible" @@ -920,7 +921,7 @@ EndIf If PayInfoCFlag = 1 Then - If Seeker.CodeChannel = 1 Then + If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + Seeker.ExtendData @@ -931,11 +932,11 @@ Var ECommerce = "" Var ECommerce = ECommerce + PriceDrink Var ECommerce = ECommerce + "/" - Var ECommerce = ECommerce + DiscountDrink + Var ECommerce = ECommerce + DiscountDrink Var ECommerce = ECommerce + "/" - Var ECommerce = ECommerce + SessionID2 + Var ECommerce = ECommerce + SessionID2 Var ECommerce = ECommerce + "/" - Var ECommerce = ECommerce + SelectDrink + Var ECommerce = ECommerce + SelectDrink Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.VendingCode Var ECommerce = ECommerce + "/" @@ -957,22 +958,32 @@ If Seeker = "curr" Then DEBUGVAR UserChoosePayment Var UserChoosePayment = "" - Open "ROOT/taobin_project/xml/page_catalog.xml" + + If CancelContinue = 2 Then + Open "ROOT/taobin_project/xml/page_payment.xml" + EndIf + + Open "ROOT/taobin_project/xml/page_catalog.xml" Else DEBUGVAR UserChoosePayment Var UserChoosePayment = "" - Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" + + If CancelContinue = 2 Then + Open "ROOT/taobin_project/xml/page_payment.xml" + EndIf + + Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" EndIf EndIf - If TestLoopMakeDrink = 1 Then + If TestLoopMakeDrink = 1 Then MakeDrinkV1 SelectDrink SelectSugarID DEBUGVAR UserChoosePayment Var UserChoosePayment = "" - Open "ROOT/taobin_project/xml/page_thankyou.xml" + Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf - + If CoinInOK = 1 Then @@ -1002,9 +1013,9 @@ If Timeout > 180 Then If PayOK = 1 Then - + If Seeker = "curr" Then - + MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 @@ -1018,7 +1029,7 @@ DEBUGVAR UserChoosePayment Var UserChoosePayment = "" - Open "ROOT/taobin_project/xml/page_thankyou.xml" + Open "ROOT/taobin_project/xml/page_thankyou.xml" Else If CancelFlag = 0 Then @@ -1035,19 +1046,19 @@ If CashlessPayFlag = 0 Then If UserChoosePayment = "CreditCashless" Then - Var CashlessPayFlag = 0 + Var CashlessPayFlag = 0 CashlessReq FAIL EndIf If UserChoosePayment = "" Then - Var CashlessPayFlag = 0 + Var CashlessPayFlag = 0 CashlessReq FAIL EndIf EndIf If CashlessPayFlag = 1 Then - Var CashlessPayFlag = 0 + Var CashlessPayFlag = 0 CashlessReq FAIL EndIf @@ -1069,16 +1080,16 @@ If Seeker = "curr" Then DEBUGVAR UserChoosePayment Var UserChoosePayment = "" - Open "ROOT/taobin_project/xml/page_catalog.xml" + Open "ROOT/taobin_project/xml/page_catalog.xml" Else DEBUGVAR UserChoosePayment Var UserChoosePayment = "" - Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" + Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" EndIf EndIf EndIf - - EndIf + + EndIf EndIf EndIf @@ -1098,27 +1109,32 @@ ;Change CoinAmount If CoinAmount > 0 Then If Seeker.StoreCreditFlag = 1 Then - Var ChangeOK = 1 + Var ChangeOK = 1 Else Change CoinAmount EndIf - + Else If ActionOKCase = 0 Then Var ActionOKCase = 1 Var PayInfoCFlag = 1 EndIf + + If CancelContinue = 1 Then + Var CancelContinue = 2 + EndIf + EndIf VendingQR OFF EndIf If CancelCounter >= 43 Then - Var ChangeOK = 1 + Var ChangeOK = 1 EndIf - + ; This copy in file menu_catalog.xml - + If ChangeOK = 1 Then If ActionOKCase = 0 Then @@ -1129,7 +1145,7 @@ Var TelephoneNumber = Seeker.TNumberTaobinCredit Var PayO2 = Seeker.CoffeePinNumber EndIf - + Var VendingDiscount = 0 Var VendingCampaign = 0 Var ServiceType = "credit" @@ -1137,18 +1153,18 @@ Var ServiceCredit = "coffee" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Var PayCredit = 1 - + Var ActionOKCase = 1 - If Seeker = "curr" Then + If Seeker = "curr" Then If Seeker.IntVendingCampaign = 0 Then If Seeker = "curr" Then DEBUGVAR UserChoosePayment Var UserChoosePayment = "" - Open "ROOT/taobin_project/xml/page_catalog.xml" + Open "ROOT/taobin_project/xml/page_catalog.xml" Else DEBUGVAR UserChoosePayment Var UserChoosePayment = "" - Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" + Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" EndIf EndIf Else @@ -1156,16 +1172,16 @@ EndIf EndIf EndIf - + EndIf - + Refresh TimerReset - + - If ChangeStatus = "payout-end" Then + If ChangeStatus = "payout-end" Then Var ChangeOK = 1 EndIf @@ -1188,7 +1204,7 @@ Var AdultState2 = "Enable" Var AdultState1 = "Invisible" Var AdultState3 = "Invisible" - + Refresh EndIf EndIf @@ -1199,16 +1215,16 @@ If IDCardData = "ERROR" Then Var AdultState2 = "Invisible" Var AdultState3 = "Enable" - + Refresh EndIf EndIf EndIf - If IDCardStatus = "ERROR" Then + If IDCardStatus = "ERROR" Then Var AdultState2 = "Invisible" Var AdultState3 = "Enable" - + Refresh EndIf @@ -1243,14 +1259,14 @@ Var AgeNumber = sdateyear - StrYear DEBUGVAR AgeNumber - If AgeNumber >= 20 Then + If AgeNumber >= 20 Then If AgeNumber = 20 Then - If sdatemonth > StrMon Then + If sdatemonth > StrMon Then Var Adult20 = 1 Else - If sdatemonth = StrMon Then - If sdateday >= StrDay Then + If sdatemonth = StrMon Then + If sdateday >= StrDay Then Var Adult20 = 1 EndIf EndIf @@ -1259,15 +1275,15 @@ Var Adult20 = 1 EndIf - If Adult20 = 1 Then + If Adult20 = 1 Then Var AdultState3 = "Invisible" Var AdultState2 = "Invisible" Var AdultState1 = "Invisible" Var AdultState = "Invisible" ;CoinVending XBILL - Open "ROOT/taobin_project/xml/page_payment_camera.xml" + Open "ROOT/taobin_project/xml/page_payment_camera.xml" Refresh - + Else Var AdultState2 = "Invisible" Var AdultState3 = "Enable" @@ -1282,7 +1298,7 @@ Var AdultFlag2 = 1 - + EndIf EndIf EndIf @@ -1304,13 +1320,13 @@ Var alphaState = "Invisible" EndIf - + Var CoinInFlag = 1 DEBUGVAR CoinInOK - + If ViewBill > 0 Then @@ -1319,11 +1335,11 @@ Var alphaState3_offline = "Enable" Else - If Seeker.StoreCreditFlag = 1 Then + If Seeker.StoreCreditFlag = 1 Then CoinVending BILLSTACKALL Else - + Var RemainAmount = PayAmount - CoinAmount Var RemainAmount = RemainAmount - Seeker.IntVendingCampaign @@ -1345,32 +1361,32 @@ Var showRemaining !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow ) - + If SELLONLINE = 1 Then Var alphaState3 = "Enable" Else Var alphaState3_offline = "Enable" EndIf - If show_eng = "true" Then + If show_eng = "true" Then PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/The_change_has_run_out.mp3" Else PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/The_change_has_run_out.mp3" EndIf EndIf - + EndIf - + Else - + If CoinInOK = 0 Then - - + + Var RemainAmount = PayAmount - CoinAmount Var RemainAmount = RemainAmount - Seeker.IntVendingCampaign @@ -1378,7 +1394,7 @@ Var SumCoinAmount = CoinAmount + Seeker.IntVendingCampaign Var SumCoinAmount = SumCoinAmount + Seeker.IntVendingCredit - If SumCoinAmount >= PayAmount Then + If SumCoinAmount >= PayAmount Then ;Var VendingQRCode = "ERROR" CoinVending OFF VendingQR OFF @@ -1387,7 +1403,7 @@ Var RemainAmountStr = 0 Var RemainAmountStr !assigned StringFmt( Canout, DisplayFormat, PreScaleConvertShow ) Else - If show_eng = "true" Then + If show_eng = "true" Then ;Var RemainAmountStr = "Change " + Canout ;Var RemainAmountStr = RemainAmountStr + "###size=90" Var RemainAmountStr !assigned StringFmt( Canout, DisplayFormat, PreScaleConvertShow ) @@ -1398,7 +1414,7 @@ EndIf EndIf - + Var CancleState = "Disable" Var CoinInOK = 1 Var CoinInCounter = 0 @@ -1417,18 +1433,18 @@ Var showRemaining !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow ) Var alphaState2 = "Enable" - + EndIf EndIf - - + + Refresh - If CoinInFlag = 1 Then + If CoinInFlag = 1 Then If CoinInOK = 0 Then If CancelFlag = 0 Then SAVELOG "VDCancle > Cancle Order." @@ -1438,17 +1454,17 @@ Var cancelState = "Enable" Var CancelCounter = 0 ;If CoinAmount = 0 Then - ; Open "ROOT/taobin_project/xml/page_catalog.xml" + ; Open "ROOT/taobin_project/xml/page_catalog.xml" ;EndIf Var showRemaining = "Refund" ;Open "ROOT/taobin_project/xml/page_catalog.xml" - If FlagQROpened = 1 Then + If FlagQROpened = 1 Then Var CancelNumber = 12 EndIf - EndIf + EndIf EndIf ;VendingQR OFF Refresh @@ -1478,8 +1494,8 @@ Var( DirImage + "/bn_back_arrow2.png") "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - - + + If CoinInOK = 0 Then If CancelFlag = 0 Then @@ -1494,35 +1510,37 @@ Var cancelState = "Enable" Var CancelCounter = 0 - If FlagQROpened = 1 Then + If FlagQROpened = 1 Then Var CancelNumber = 12 EndIf If CashlessPayFlag = 0 Then If UserChoosePayment = "CreditCashless" Then - Var CashlessPayFlag = 0 + Var CashlessPayFlag = 0 CashlessReq FAIL EndIf If UserChoosePayment = "" Then - Var CashlessPayFlag = 0 + Var CashlessPayFlag = 0 CashlessReq FAIL EndIf EndIf If CashlessPayFlag = 1 Then - Var CashlessPayFlag = 0 + Var CashlessPayFlag = 0 CashlessReq FAIL EndIf - + DEBUGVAR UserChoosePayment Var UserChoosePayment = "" - + + Var CancelContinue = 0 + EndIf EndIf - + @@ -1546,14 +1564,14 @@ 375 623 - eval( + eval( If IsSmoRet = "true" Then Var return = "Enable" Else Var return = "Invisible" EndIf -) - +) + "ROOT/taobin_project/image/topping2/blender_icon.png" @@ -1566,17 +1584,17 @@ pay_with_code_image "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + If alphaState = "Invisible" Then - + If CoinInFlag = 0 Then If CancelFlag = 0 Then Var TelephoneNumber = "" Var Tel_Confirm_State = "Disable" - + Var UserChoosePayment = "Code" - Open "ROOT/taobin_project/xml/page_payment_code.xml" + Open "ROOT/taobin_project/xml/page_payment_code.xml" EndIf EndIf @@ -1590,10 +1608,10 @@ PayState5 Var( CountryRootPath + "/image/page_payment/bn_credit_card_ezlink.png") Var( CountryRootPath + "/image/page_payment/bd_credit_card_ezlink.png") - Var( CountryRootPath + "/image/page_payment/bd_credit_card_ezlink.png") + Var( CountryRootPath + "/image/page_payment/bd_credit_card_ezlink.png") "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + If alphaState = "Invisible" Then If CoinInFlag = 0 Then @@ -1625,18 +1643,18 @@ EndIf pay_with_credit_image "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + If alphaState = "Invisible" Then - + If CoinInFlag = 0 Then If CancelFlag = 0 Then Var TelephoneNumber = "" Var Tel_Confirm_State = "Disable" - + Var UserChoosePayment = "Credit" - Open "ROOT/taobin_project/xml/page_payment_credit.xml" + Open "ROOT/taobin_project/xml/page_payment_credit.xml" EndIf EndIf @@ -1662,7 +1680,7 @@ EndIf FilenameShowbuttonCashBP "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + If alphaState = "Invisible" Then @@ -1677,9 +1695,9 @@ EndIf Var MachineStage = "make-drink" Var BrewingTextThai = "เตรียมแก้ว" MakeDrinkV1 SelectDrink SelectSugarID - Open "ROOT/taobin_project/xml/page_thankyou.xml" + Open "ROOT/taobin_project/xml/page_thankyou.xml" ;Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - + EndIf Else @@ -1705,10 +1723,10 @@ EndIf Var( DirImage + "/bp_cancel_all.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + ;VendingQR OFF - + If CoinInOK = 0 Then If CancelFlag = 0 Then SAVELOG "ButtonCancleMain > Cancle Order." @@ -1721,32 +1739,32 @@ EndIf Var cancelState = "Enable" Var CancelCounter = 0 - If FlagQROpened = 1 Then + If FlagQROpened = 1 Then Var CancelNumber = 12 EndIf If CashlessPayFlag = 0 Then If UserChoosePayment = "CreditCashless" Then - Var CashlessPayFlag = 0 + Var CashlessPayFlag = 0 CashlessReq FAIL EndIf If UserChoosePayment = "" Then - Var CashlessPayFlag = 0 + Var CashlessPayFlag = 0 CashlessReq FAIL EndIf EndIf If CashlessPayFlag = 1 Then - Var CashlessPayFlag = 0 + Var CashlessPayFlag = 0 CashlessReq FAIL EndIf - + EndIf EndIf Refresh - + @@ -1812,7 +1830,7 @@ EndIf - + - + @@ -2140,9 +2160,9 @@ EndIf Var( DirImage2 + "/bp_keep.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + - Open "ROOT/taobin_project/xml/page_payment_storeCredit.xml" + Open "ROOT/taobin_project/xml/page_payment_storeCredit.xml" @@ -2154,15 +2174,15 @@ EndIf Var( DirImage2 + "/bp_cancel2.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - - + + SAVELOG "alphaState3 click" CoinVending BILLREJECT Var alphaState3 = "Invisible" If SettingDisableTaobinCredit = "true" Then - If EnoughChange = "yes" Then + If EnoughChange = "yes" Then Else @@ -2181,31 +2201,33 @@ EndIf Var cancelState = "Enable" Var CancelCounter = 0 - If FlagQROpened = 1 Then + If FlagQROpened = 1 Then Var CancelNumber = 12 EndIf If CashlessPayFlag = 0 Then If UserChoosePayment = "CreditCashless" Then - Var CashlessPayFlag = 0 + Var CashlessPayFlag = 0 CashlessReq FAIL EndIf If UserChoosePayment = "" Then - Var CashlessPayFlag = 0 + Var CashlessPayFlag = 0 CashlessReq FAIL EndIf EndIf If CashlessPayFlag = 1 Then - Var CashlessPayFlag = 0 + Var CashlessPayFlag = 0 CashlessReq FAIL EndIf DEBUGVAR UserChoosePayment Var UserChoosePayment = "" - + + Var CancelContinue = 0 + EndIf EndIf @@ -2239,7 +2261,7 @@ EndIf Var( DirImage2 + "/bp_cancel2.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "alphaState3_offline click" CoinVending BILLREJECT Var alphaState3_offline = "Invisible" @@ -2266,30 +2288,32 @@ EndIf Var cancelState = "Enable" Var CancelCounter = 0 - If FlagQROpened = 1 Then + If FlagQROpened = 1 Then Var CancelNumber = 12 EndIf If CashlessPayFlag = 0 Then If UserChoosePayment = "CreditCashless" Then - Var CashlessPayFlag = 0 + Var CashlessPayFlag = 0 CashlessReq FAIL EndIf If UserChoosePayment = "" Then - Var CashlessPayFlag = 0 + Var CashlessPayFlag = 0 CashlessReq FAIL EndIf EndIf If CashlessPayFlag = 1 Then - Var CashlessPayFlag = 0 + Var CashlessPayFlag = 0 CashlessReq FAIL EndIf DEBUGVAR UserChoosePayment Var UserChoosePayment = "" + Var CancelContinue = 1 + EndIf EndIf @@ -2345,7 +2369,7 @@ EndIf Var( DirImage + "/QRError.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + @@ -2386,8 +2410,8 @@ EndIf - - Open "/media/bt/xml/security_alarm.xml" + + Open "/media/bt/xml/security_alarm.xml" ; @@ -2414,7 +2438,7 @@ EndIf DEBUGVAR IgnoreNetCore If IgnoreNetCore = "true" Then MakeDrinkV1 SelectDrink SelectSugarID - Open "ROOT/taobin_project/xml/page_thankyou.xml" + Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf