diff --git a/xml/page_payment_cash-UAE.xml b/xml/page_payment_cash-UAE.xml index 8ecbfcfb..b53b056d 100644 --- a/xml/page_payment_cash-UAE.xml +++ b/xml/page_payment_cash-UAE.xml @@ -14,7 +14,7 @@ SAVELOG "page_payment_cach-uae_dubai.xml" Var PreScaleCanculate = 100 - + Var CashlessPayFlag = 0 Var RemainAmountStrENG = "" Var AdultState = "Invisible" @@ -35,9 +35,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 @@ -53,7 +53,7 @@ Var ReqPayInfoFlag2 = 0 - DEBUGVAR QRCODETMP + DEBUGVAR QRCODETMP DEBUGVAR IsSmoRet Var countClick2 = 0 @@ -73,26 +73,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 @@ -100,10 +100,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 @@ -113,12 +113,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" @@ -126,14 +126,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 @@ -152,9 +152,9 @@ If Seeker.VendingCode = "C00" Then Var Seeker.CodeChannel = 0 EndIf - + Var ExtendData = Seeker.ExtendData - + DEBUGVAR QRCODE99KBANK If RoadShow = "true" Then @@ -165,11 +165,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 @@ -178,7 +178,7 @@ Var PayState4 = "Enable" Var PayState5 = "Enable" Var PayState6 = "Enable" - Else + Else SAVELOG "Cash only IntVendingCampaign" Var PayState2 = "Disable" Var PayState4 = "Disable" @@ -186,8 +186,8 @@ Var PayState6 = "Disable" EndIf Var PayState3 = "Enable" - - + + DEBUGVAR CoinAmount If CoinAmount > 0 Then SAVELOG "Cash only CoinAmount" @@ -207,12 +207,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 + " บาท" @@ -222,7 +222,7 @@ EndIf - + Var Seeker.PayWithQR = 0 @@ -239,14 +239,14 @@ Else Var FilenameShowbuttonCashBN = CountryRootPath + "/image/page_payment_cash/bn_cash.png" Var FilenameShowbuttonCashBP = CountryRootPath + "/image/page_payment_cash/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 @@ -257,36 +257,36 @@ 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 - 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 @@ -301,7 +301,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 ) @@ -312,7 +312,7 @@ EndIf EndIf - + Var CancleState = "Disable" Var CoinInOK = 1 Var CoinInCounter = 0 @@ -341,7 +341,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" @@ -373,7 +373,7 @@ DEBUGVAR cancel2Btn DEBUGVAR cancel2BtnP EndIf - + Var EnoughChange = "yes" Var SELLONLINE = 0 @@ -390,7 +390,7 @@ If SELLONLINE = 0 Then SAVELOG "Cash only NetworkStatus down" - + Var PayState2 = "Disable" Var PayState3 = "Disable" Var PayState4 = "Disable" @@ -401,7 +401,7 @@ Var ShowNetworkProblem = "Enable" Var ShowButtonClick2 = "Invisible" - + Else Var PayOfflineMode = 0 @@ -415,14 +415,14 @@ 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" If LanguageShow = "UAE_DUBAI" Then @@ -430,7 +430,7 @@ Else Var pay_with_chanel_text = DirImage + "/text_1.png" EndIf - + ;If DisableUsingCode = "true" Then If DisableUsingCode = "-" Then @@ -447,7 +447,7 @@ Var pay_with_chanel_text = DirImage + "/text_2.png" Else - + Var pay_with_code_image = DirImage + "/bp_pay_with_code.png" EndIf EndIf @@ -464,7 +464,7 @@ If web_readyOK = "true" Then - Var web_readyOK = "false" + Var web_readyOK = "false" If web_payment = "CASH" Then Var alphaState2 = "Enable" @@ -475,7 +475,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" @@ -505,9 +505,9 @@ DEBUGVAR ECommerceQR SPLIT ECommerceQR "/" 5 VendingQRTypeResult - - If ActionOKCase = 0 Then + + If ActionOKCase = 0 Then If VendingREFID = "" Then SAVELOG "menu_page4-QR.xml > ActOK_REFID" Refresh @@ -541,7 +541,7 @@ - + If Seeker = "curr" Then MakeDrinkV1 SelectDrink SelectSugarID ;Var TxRef1 = "" @@ -549,15 +549,15 @@ EndIf Var Seeker.PayWithQR = 1 Var Seeker.VendingTSID = VendingTSID - + Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif" Var BrewingTextThai = "เตรียมแก้ว" - 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" @@ -575,7 +575,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" @@ -600,18 +600,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" @@ -628,7 +628,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" @@ -637,7 +637,7 @@ EndIf EndIf - If ReqPayInfoFlag = 3 Then + If ReqPayInfoFlag = 3 Then If VendingQRTypeResult = "TWN:2" Then Var CashTextWarning = "" Var QRErrorState = "Invisible" @@ -654,7 +654,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" @@ -663,7 +663,7 @@ EndIf EndIf - If ReqPayInfoFlag = 4 Then + If ReqPayInfoFlag = 4 Then If VendingQRTypeResult = "DOL:2" Then Var CashTextWarning = "" Var QRErrorState = "Invisible" @@ -680,7 +680,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" @@ -689,7 +689,7 @@ EndIf EndIf - If ReqPayInfoFlag = 5 Then + If ReqPayInfoFlag = 5 Then If VendingQRTypeResult = "LPY:2" Then Var CashTextWarning = "" Var QRErrorState = "Invisible" @@ -706,7 +706,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" @@ -730,7 +730,7 @@ If ViewBill > 0 Then CoinVending BILLREJECT EndIf - + VendingQR OFF CoinVending OFF Refresh @@ -741,7 +741,7 @@ Var Seeker.CreditCard = 1 Var Seeker.CreditCardRef = CreditCardRef - Open "ROOT/taobin_project/xml/page_thankyou.xml" + Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf @@ -749,29 +749,29 @@ - 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" @@ -785,11 +785,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 @@ -809,7 +809,7 @@ 1000 - + If ReadyForBrew = "false" Then SAVELOG "Back to main1" Open "ROOT/taobin_project/xml/page_back_to_main.xml" @@ -820,14 +820,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 @@ -839,19 +839,19 @@ Var countAdultS2 = 0 EndIf - + Var Timeout = Timeout + 1 If Timeout >= 120 Then Var alphaState = "Invisible" - + If RoadShow = "true" Then Else Var PayState3 = "Disable" Var PayState5 = "Disable" - EndIf + EndIf Var LOADING_STATE = "Invisible" Var QRErrorState = "Invisible" @@ -866,7 +866,7 @@ EndIf If PayInfoCFlag = 1 Then - If Seeker.CodeChannel = 1 Then + If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + Seeker.ExtendData @@ -877,11 +877,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 + "/" @@ -901,9 +901,9 @@ ;Var Timeout = 0 EndIf If Seeker = "curr" Then - Open "ROOT/taobin_project/xml/page_catalog.xml" + Open "ROOT/taobin_project/xml/page_catalog.xml" Else - + Var brewing3ContiInter = CountryRootPath + "/xml/page_brewing3Conti.lxml" DEBUGVAR brewing3ContiInter Open brewing3ContiInter @@ -911,11 +911,11 @@ EndIf - If TestLoopMakeDrink = 1 Then + If TestLoopMakeDrink = 1 Then MakeDrinkV1 SelectDrink SelectSugarID - Open "ROOT/taobin_project/xml/page_thankyou.xml" + Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf - + If CoinInOK = 1 Then @@ -938,9 +938,9 @@ If Timeout > 180 Then If PayOK = 1 Then - + If Seeker = "curr" Then - + MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 @@ -952,7 +952,7 @@ EndIf - Open "ROOT/taobin_project/xml/page_thankyou.xml" + Open "ROOT/taobin_project/xml/page_thankyou.xml" Else If CancelFlag = 0 Then @@ -967,7 +967,7 @@ Var cancelState = "Enable" If CashlessPayFlag = 1 Then - Var CashlessPayFlag = 0 + Var CashlessPayFlag = 0 CashlessReq FAIL EndIf @@ -987,7 +987,7 @@ If Seeker.IntVendingCampaign = 0 Then VendingQR OFF If Seeker = "curr" Then - Open "ROOT/taobin_project/xml/page_catalog.xml" + Open "ROOT/taobin_project/xml/page_catalog.xml" Else Var brewing3ContiInter = CountryRootPath + "/xml/page_brewing3Conti.lxml" @@ -995,8 +995,8 @@ EndIf EndIf EndIf - - EndIf + + EndIf EndIf EndIf @@ -1016,11 +1016,11 @@ ;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 @@ -1032,11 +1032,11 @@ 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 @@ -1047,7 +1047,7 @@ Var TelephoneNumber = Seeker.TNumberTaobinCredit Var PayO2 = Seeker.CoffeePinNumber EndIf - + Var VendingDiscount = 0 Var VendingCampaign = 0 Var ServiceType = "credit" @@ -1055,12 +1055,12 @@ 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 - Open "ROOT/taobin_project/xml/page_catalog.xml" + Open "ROOT/taobin_project/xml/page_catalog.xml" Else Var brewing3ContiInter = CountryRootPath + "/xml/page_brewing3Conti.lxml" @@ -1072,16 +1072,16 @@ EndIf EndIf EndIf - + EndIf - + Refresh TimerReset - + - If ChangeStatus = "payout-end" Then + If ChangeStatus = "payout-end" Then Var ChangeOK = 1 EndIf @@ -1104,7 +1104,7 @@ Var AdultState2 = "Enable" Var AdultState1 = "Invisible" Var AdultState3 = "Invisible" - + Refresh EndIf EndIf @@ -1115,16 +1115,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 @@ -1159,14 +1159,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 @@ -1175,15 +1175,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" @@ -1198,7 +1198,7 @@ Var AdultFlag2 = 1 - + EndIf EndIf EndIf @@ -1220,11 +1220,11 @@ Var alphaState = "Invisible" EndIf - + Var CoinInFlag = 1 - + If ViewBill > 0 Then @@ -1233,11 +1233,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 @@ -1259,32 +1259,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 @@ -1292,7 +1292,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 @@ -1301,7 +1301,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 ) @@ -1312,7 +1312,7 @@ EndIf EndIf - + Var CancleState = "Disable" Var CoinInOK = 1 Var CoinInCounter = 0 @@ -1331,18 +1331,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." @@ -1352,17 +1352,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 @@ -1392,8 +1392,8 @@ backTopLeft "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - - + + If CoinInOK = 0 Then If CancelFlag = 0 Then @@ -1408,18 +1408,18 @@ Var cancelState = "Enable" Var CancelCounter = 0 - If FlagQROpened = 1 Then + If FlagQROpened = 1 Then Var CancelNumber = 12 EndIf If CashlessPayFlag = 1 Then - Var CashlessPayFlag = 0 + Var CashlessPayFlag = 0 CashlessReq FAIL EndIf - + EndIf EndIf - + @@ -1437,14 +1437,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" @@ -1458,15 +1458,15 @@ Var( DirImage + "/bd_pay_with_code.png") "/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" - Open "ROOT/taobin_project/xml/page_payment_code.xml" + Open "ROOT/taobin_project/xml/page_payment_code.xml" EndIf EndIf @@ -1481,22 +1481,24 @@ ;inter-image Var( DirImage + "/bn_credit_card_and_qr.png") Var( DirImage + "/bp_credit_card_and_qr.png") - Var( DirImage + "/bd_credit_card_and_qr.png") + Var( DirImage + "/bd_credit_card_and_qr.png") "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + If alphaState = "Invisible" Then If CoinInFlag = 0 Then If CancelFlag = 0 Then Var QR_POPUP = "/img_popup8.png" Var alphaState = "Enable" - ;Coin CARD + Coin CARD + + Var ReqPayInfoFromCashOther = 2 Var CreditCardRef = "" GenHashWithTimeStamp CreditCardRef - DEBUGVAR VendingCashless + DEBUGVAR VendingCashless Var QRCODE99 = "" Var Timeout = 0 @@ -1504,14 +1506,14 @@ If alphaState = "Invisible" Then ;add-pd-to-ref Var CreditCardRef = CreditCardRef + "/" - Var CreditCardRef = CreditCardRef + SelectDrink + Var CreditCardRef = CreditCardRef + SelectDrink DEBUGVAR CreditCardRef - + ;Var QR_POPUP = "/img_popup8-2.png" 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 @@ -1533,16 +1535,16 @@ 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" - Open "ROOT/taobin_project/xml/page_payment_credit.xml" + Open "ROOT/taobin_project/xml/page_payment_credit.xml" EndIf EndIf @@ -1568,7 +1570,7 @@ EndIf FilenameShowbuttonCashBP "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + If alphaState = "Invisible" Then @@ -1581,9 +1583,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 @@ -1609,10 +1611,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." @@ -1625,20 +1627,20 @@ EndIf Var cancelState = "Enable" Var CancelCounter = 0 - If FlagQROpened = 1 Then + If FlagQROpened = 1 Then Var CancelNumber = 12 EndIf If CashlessPayFlag = 1 Then - Var CashlessPayFlag = 0 + Var CashlessPayFlag = 0 CashlessReq FAIL EndIf - + EndIf EndIf Refresh - + @@ -1711,7 +1713,7 @@ EndIf - + @@ -1782,7 +1788,7 @@ EndIf 838 1350 - eval( + eval( Var return = "Invisible" If AdultState1 = "Enable" Then @@ -1791,7 +1797,7 @@ EndIf EndIf EndIf DEBUGVAR return - ) + ) @@ -1809,9 +1815,9 @@ 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." @@ -1824,10 +1830,10 @@ EndIf Var cancelState = "Enable" Var CancelCounter = 0 - If FlagQROpened = 1 Then + If FlagQROpened = 1 Then Var CancelNumber = 12 EndIf - + EndIf EndIf @@ -1858,9 +1864,9 @@ 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." @@ -1873,17 +1879,17 @@ EndIf Var cancelState = "Enable" Var CancelCounter = 0 - If FlagQROpened = 1 Then + If FlagQROpened = 1 Then Var CancelNumber = 12 EndIf - + EndIf EndIf Refresh - + @@ -1960,9 +1966,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" ; ; @@ -1974,7 +1980,7 @@ EndIf cancel2BtnP "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + CoinVending BILLREJECT Var alphaState3 = "Invisible" @@ -2004,7 +2010,7 @@ EndIf cancel2BtnP "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + CoinVending BILLREJECT Var alphaState3_offline = "Invisible" @@ -2054,7 +2060,7 @@ EndIf Var( DirImage + "/QRError.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + @@ -2102,8 +2108,8 @@ EndIf - - Open "/media/bt/xml/security_alarm.xml" + + Open "/media/bt/xml/security_alarm.xml" ; @@ -2130,7 +2136,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