pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions
taobin_project/xml/page_payment_cash.xml

1811 lines
40 KiB
XML
Raw Blame History

<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<Sound> PlaySoundLag </Sound>
<EventOpen>
DEBUGVAR QRCODETMP
DEBUGVAR IsSmoRet
Var countClick2 = 0
;SAVELOG SelectDrink
;SAVELOG NameDrink
;SAVELOG NameDrinkTH
;SAVELOG DrinkDescription
SAVELOG PriceDrink
;SAVELOG topping1
;SAVELOG topping2
;SAVELOG topping3
DEBUGVAR SelectDrink
DEBUGVAR video_menu_0
Var FlagQROpened = 0
Var PayInfoCFlag = 0
Var ActionOKCase = 0
Var VendingCampaign = Seeker.IntVendingCampaign
Var Seeker.VendingCampaign = Seeker.IntVendingCampaign
Var PayAmount = PriceDrink
Var LOADING_STATE = "Invisible"
; Below original
; On open
Var cancelState = "Invisible"
Var alphaState = "Invisible"
Var alphaState2 = "Invisible"
Var alphaState3 = "Invisible"
Var CoinInFlag = 0
;Var CoinAmount = 0
Var CancelFlag = 0
Var CancelCounter = 0
Var CoinInCounter = 0
Var CancelNumber = 3
Var PayAmount = PriceDrink
Var RemainAmount = PayAmount - Seeker.IntVendingCampaign
Var RemainAmount = RemainAmount - CoinAmount
Var RemainAmount = RemainAmount - Seeker.IntVendingCredit
Var RemainAmountStr = "" + RemainAmount
Var Timeout = 0
Var PayOK = 0
Var ChangeOK = 0
Var CoinInOK = 0
Var RemainAmountKeep = 0
Var showRemaining = charOfBaht + RemainAmountStr
Var VendingREFID = ""
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var ServiceCredit = SelectDrink
Var ServiceAmount2 = PayAmount
Var Seeker.ServiceAmount2 = PayAmount
Var ServiceCharge = 0
Var Donate = ""
Var SuggestID = ""
Var CancleState = "Enable"
Var Seeker.VendingDiscount = DiscountDrink
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var QRErrorFlag = 0
SAVELOG SelectDrink
SAVELOG QRChannel
SAVELOG QRCODE99
DEBUGVAR QRCODE99
SAVELOG VendingCampaign
SAVELOG Seeker.VendingCode
SAVELOG Seeker.CodeChannel
If Seeker.VendingCode = "C00" Then
Var Seeker.CodeChannel = 0
EndIf
Var ExtendData = Seeker.ExtendData
DEBUGVAR QRCODE99KBANK
If RoadShow = "true" Then
Var PayState1 = "Enable"
Var PayState2 = "Invisible"
Var PayState3 = "Invisible"
Var PayState4 = "Invisible"
Var PayState5 = "Invisible"
Var PayState6 = "Invisible"
Var showRemaining = "Free"
Else
Var PayState1 = "Enable"
If Seeker.IntVendingCampaign = 0 Then
Var PayState2 = "Enable"
Var PayState4 = "Enable"
Var PayState5 = "Enable"
Var PayState6 = "Enable"
Else
SAVELOG "Cash only IntVendingCampaign"
Var PayState2 = "Disable"
Var PayState4 = "Disable"
Var PayState5 = "Disable"
Var PayState6 = "Disable"
EndIf
Var PayState3 = "Enable"
DEBUGVAR CoinAmount
If CoinAmount > 0 Then
SAVELOG "Cash only CoinAmount"
Var PayState2 = "Disable"
Var PayState3 = "Disable"
Var PayState4 = "Disable"
Var PayState5 = "Disable"
Var PayState6 = "Disable"
Var CoinInFlag = 1
EndIf
If Seeker.IntVendingCredit > 0 Then
SAVELOG "Cash only IntVendingCredit"
Var PayState2 = "Disable"
Var PayState4 = "Disable"
Var PayState5 = "Disable"
Var PayState6 = "Disable"
EndIf
Var showRemaining = charOfBaht + RemainAmountStr
If show_eng = "true" Then
Var showRemaining = charOfBaht + RemainAmountStr
Else
Var showRemaining = RemainAmountStr + " บาท"
EndIf
EndIf
Var Seeker.PayWithQR = 0
Var NoGotoMenupage = "false"
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 = 60
If RoadShow = "true" Then
Var X_CASH = 287
If show_eng = "true" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cash_2.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_en/page_payment/bp_cash_2.png"
Else
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cash_2.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash_2.png"
EndIf
EndIf
If GetFreeFromError = 1 Then
Var Seeker.FreeVendingCampaign = 1
CoinVending OFF
If Seeker = "curr" Then
MakeDrinkV1 SelectDrink SelectSugarID
EndIf
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
SAVELOG "CoinInOk First"
DEBUGVAR CoinAmount
DEBUGVAR Seeker.IntVendingCampaign
DEBUGVAR Seeker.IntVendingCredit
;Var VendingQRCode = "ERROR"
CoinVending OFF
Var Canout = SumCoinAmount - PayAmount
If Canout = 0 Then
Var RemainAmountStr = 0
Else
Var RemainAmountStr = "ทอน " + Canout
EndIf
Var CancleState = "Disable"
Var CoinInOK = 1
Var CoinInCounter = 0
Else
Var RemainAmountStr = "" + RemainAmount
EndIf
;Var RemainAmount = 0
Var showRemaining = charOfBaht + RemainAmountStr
If RoadShow = "true" Then
Var showRemaining = "Free"
EndIf
EndIf
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"
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
Var EnoughChange = "yes"
If NetworkStatus = "DOWN" Then
SAVELOG "Cash only NetworkStatus down"
Var PayState2 = "Disable"
Var PayState3 = "Disable"
Var PayState4 = "Disable"
Var PayState5 = "Disable"
Var PayState6 = "Disable"
Var PayOfflineMode = 1
Else
Var PayOfflineMode = 0
EndIf
If NetworkStatus = "ACTIVATE" Then
Var ShowNetworkProblem = "Invisible"
Var ShowNetworkProblemText = ""
Else
Var ShowNetworkProblem = "Enable"
Var ShowButtonClick2 = "Invisible"
Var ShowNetworkProblemText = "การสื่อสารขัดข้อง ชำระเงินได้เฉพาะเงินสด"
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
SAVELOG "Diable code because using topping."
Var PayState2 = "Disable"
Var pay_with_code_image = DirImage + "/bd_pay_with_code.png"
Else
If Seeker.IntVendingCredit > 0 Then
Var pay_with_code_image = DirImage + "/bp_pay_with_code.png"
Var pay_with_credit_image = DirImage + "/bp_pay_with_credit.png"
Var pay_with_chanel_text = DirImage + "/text_2.png"
Else
Var pay_with_code_image = DirImage + "/bp_pay_with_code.png"
EndIf
EndIf
Machine DoorClose
If ShoppyPayEnable = "true" Then
Else
Var PayState5 = "Disable"
Var PayState6 = "Disable"
EndIf
If web_readyOK = "true" Then
Var web_readyOK = "false"
If web_payment = "CASH" Then
Var alphaState2 = "Enable"
EndIf
If web_payment = "QR" Then
Var QR_POPUP = "/img_popup1.png"
Var LOADING_STATE = "Enable"
Var FlagQROpened = 1
Var alphaState = "Enable"
;CoinVending OFF
VendingQR ON
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumberQR = "0899999999"
Var ServiceType = "coffee"
Var ECommerceQR = ""
Var ECommerceQR = ECommerceQR + PriceDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + DiscountDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SessionID2
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SelectDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "KBA:2/"
If Seeker.IntVendingCampaign > 0 Then
Var ECommerceQR = ECommerceQR + Seeker.VendingCode
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
EndIf
If Seeker.IntVendingCredit > 0 Then
Var ECommerceQR = ECommerceQR + "CRD"
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.TNumberTaobinCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.IntVendingCredit
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var ReqPayInfoFlag = 1
EndIf
If web_payment = "SHOPEE" Then
Var QR_POPUP = "/img_popup2.png"
Var LOADING_STATE = "Enable"
Var FlagQROpened = 1
Var alphaState = "Enable"
;CoinVending OFF
VendingQR ON
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumberQR = "0899999999"
Var ServiceType = "coffee"
Var ECommerceQR = ""
Var ECommerceQR = ECommerceQR + PriceDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + DiscountDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SessionID2
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SelectDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "AIR:2/"
;If Seeker.IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
;EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var ReqPayInfoFlag = 2
EndIf
EndIf
__CMD "prepar-cup-from-order" 0 "-" "-"
</EventOpen>
<EventActionOk>
Var VendingQRTypeResult = ""
DEBUGVAR ECommerceQR
SPLIT ECommerceQR "/" 5 VendingQRTypeResult
If ActionOKCase = 0 Then
If VendingREFID = "" Then
SAVELOG "menu_page4-QR.xml > ActOK_REFID"
Refresh
Else
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
SAVELOG "menu_page4-QR.xml > ActOK_make"
;Var VendingQRCode = "ERROR"
;Coin STANDBY
VendingQR OFF
CoinVending OFF
If Seeker = "curr" Then
MakeDrinkV1 SelectDrink SelectSugarID
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"
EndIf
If ReqPayInfoFlag = 1 Then
If VendingQRTypeResult = "KBA:2" Then
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var QRCODE99KBANK = SessionID
Var QRCODE99KBANK = QRCODE99KBANK + Ext1a
SAVELOG Ext1a
SAVELOG QRCODE99KBANK
Var QRCODE99KBANK = QRCODE99KBANK + Ext21
Var QRCODETMP = QRCODE99KBANK
Var ReqPayInfoFlag = 0
SAVELOG QRCODE99KBANK
SAVELOG Ext21
Var QRCODE99 = QRCODE99KBANK
Var LOADING_STATE = "Invisible"
EndIf
EndIf
If ReqPayInfoFlag = 2 Then
If VendingQRTypeResult = "AIR:2" Then
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var QRCODE99Shoppy = SessionID
Var QRCODE99Shoppy = QRCODE99Shoppy + Ext1a
SAVELOG Ext1a
SAVELOG QRCODE99Shoppy
Var QRCODE99Shoppy = QRCODE99Shoppy + Ext21
Var ReqPayInfoFlag = 0
SAVELOG QRCODE99Shoppy
SAVELOG Ext21
Var QRCODE99 = QRCODE99Shoppy
Var LOADING_STATE = "Invisible"
EndIf
EndIf
If ReqPayInfoFlag = 3 Then
If VendingQRTypeResult = "TWN:2" Then
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var QRCODE99Shoppy = SessionID
Var QRCODE99Shoppy = QRCODE99Shoppy + Ext1a
SAVELOG Ext1a
SAVELOG QRCODE99Shoppy
Var QRCODE99Shoppy = QRCODE99Shoppy + Ext21
Var ReqPayInfoFlag = 0
SAVELOG QRCODE99Shoppy
SAVELOG Ext21
Var QRCODE99 = QRCODE99Shoppy
Var LOADING_STATE = "Invisible"
EndIf
EndIf
Else
Var PayInfoCFlag = 1
EndIf
</EventActionOk>
<EventActionError>
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
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
EndIf
EndIf
If ReqPayInfoFlag = 3 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
EndIf
EndIf
Else
Var PayInfoCFlag = 1
EndIf
Refresh
</EventActionError>
<Timeout> 1000 </Timeout>
<EventTimeout>
If ReadyForBrew = "false" Then
SAVELOG "Back to main1"
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
Var Timeout = Timeout + 1
If Timeout >= 120 Then
Var alphaState = "Invisible"
If RoadShow = "true" Then
Else
Var PayState3 = "Disable"
Var PayState5 = "Disable"
EndIf
Var LOADING_STATE = "Invisible"
Var QRErrorState = "Invisible"
EndIf
If Timeout > 210 Then
If ActionOKCase = 1 Then
Var PayInfoCFlag = 1
EndIf
EndIf
If PayInfoCFlag = 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
EndIf
If Seeker = "curr" Then
Open "ROOT/taobin_project/xml/page_catalog.xml"
Else
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
EndIf
EndIf
If TestLoopMakeDrink = 1 Then
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
If CoinInOK = 1 Then
Var CoinInCounter = CoinInCounter + 1
If CoinInCounter = 1 Then
SAVELOG "CoinInOk OK"
;Var ChangeOK = 1
Var Timeout = 180
Var PayOK = 1
EndIf
EndIf
Var stringLog = "Timeout " + Timeout
Var stringLog = stringLog + " PayOK"
Var stringLog = stringLog + PayOK
If Timeout > 180 Then
If PayOK = 1 Then
If Seeker = "curr" Then
MakeDrinkV1 SelectDrink SelectSugarID
EndIf
Open "ROOT/taobin_project/xml/page_thankyou.xml"
Else
If CancelFlag = 0 Then
SAVELOG "Timeout > 180 s."
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
CoinVending OFF
Var CancelFlag = 1
Var cancelState = "Enable"
Var CancelCounter = 0
If CoinAmount = 0 Then
If Seeker.IntVendingCredit > 0 Then
Var BmiYear = Seeker.IntVendingCredit
Var GetScore = "useCredit"
AddData 24 Seeker.TNumberTaobinCredit BmiYear PointCrm GetScore
Var Seeker.IntVendingCredit = 0
Var Seeker.CurrCreditUse = 0
EndIf
If Seeker.IntVendingCampaign = 0 Then
VendingQR OFF
If Seeker = "curr" Then
Open "ROOT/taobin_project/xml/page_catalog.xml"
Else
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
If CancelFlag = 1 Then
If Seeker.IntVendingCredit > 0 Then
Var BmiYear = Seeker.IntVendingCredit
Var GetScore = "useCredit"
AddData 24 Seeker.TNumberTaobinCredit BmiYear PointCrm GetScore
Var Seeker.IntVendingCredit = 0
Var Seeker.CurrCreditUse = 0
EndIf
Var CancelCounter = CancelCounter + 1
If CancelCounter = CancelNumber Then
;Change CoinAmount
If CoinAmount > 0 Then
If Seeker.StoreCreditFlag = 1 Then
Var ChangeOK = 1
Else
Change CoinAmount
EndIf
Else
If ActionOKCase = 0 Then
Var ActionOKCase = 1
Var PayInfoCFlag = 1
EndIf
EndIf
VendingQR OFF
EndIf
If CancelCounter >= 43 Then
Var ChangeOK = 1
EndIf
; This copy in file menu_catalog.xml
If ChangeOK = 1 Then
If ActionOKCase = 0 Then
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
Else
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
EndIf
Var VendingDiscount = 0
Var VendingCampaign = 0
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Var PayCredit = 1
Var ActionOKCase = 1
If Seeker = "curr" Then
If Seeker.IntVendingCampaign = 0 Then
If Seeker = "curr" Then
Open "ROOT/taobin_project/xml/page_catalog.xml"
Else
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
EndIf
EndIf
Else
;wait ack
EndIf
EndIf
EndIf
EndIf
;Var CoinInCounter = CoinInCounter + 1
;If CoinInOK = 1 Then
; If CoinInCounter = 3 Then
;
; Var RemainAmount = PayAmount - CoinAmount
; If CoinAmount >= PayAmount Then
; Var Canout = CoinAmount - PayAmount
; If Canout > 0 Then
; Change Canout
; Else
; Var ChangeOK = 1
; EndIf
;
; Var Timeout = 118
; Var PayOK = 1
;
; MakeDrinkV1 SelectDrink SelectSugarID
;
; Open "ROOT/taobin_project/xml/page_thankyou.xml"
;
; EndIf
; EndIf
;EndIf
Refresh
TimerReset
</EventTimeout>
<EventChangeStatus>
If ChangeStatus = "payout-end" Then
Var ChangeOK = 1
EndIf
</EventChangeStatus>
<EventCoin>
TimerReset
If CoinInFlag = 0 Then
;VendingQR OFF
Var alphaState = "Invisible"
EndIf
Var CoinInFlag = 1
If ViewBill > 0 Then
If PayOfflineMode = 1 Then
CoinVending BILLREJECT
Else
Var RemainAmount = PayAmount - CoinAmount
Var RemainAmount = RemainAmount - Seeker.IntVendingCampaign
Var RemainAmount = RemainAmount - Seeker.IntVendingCredit
If ViewBill > RemainAmount Then
Var RemainAmountKeep = ViewBill - RemainAmount
Else
Var RemainAmountKeep = ViewBill
EndIf
Var Timeout = 0
Var RemainAmountStr = "" + RemainAmount
Var showRemaining = charOfBaht + RemainAmountStr
Var alphaState3 = "Enable"
EndIf
Else
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 = SumCoinAmount + Seeker.IntVendingCredit
If SumCoinAmount >= PayAmount Then
;Var VendingQRCode = "ERROR"
CoinVending OFF
VendingQR OFF
Var Canout = SumCoinAmount - PayAmount
If Canout = 0 Then
Var RemainAmountStr = 0
Else
Var RemainAmountStr = "ทอน " + Canout
EndIf
Var CancleState = "Disable"
Var CoinInOK = 1
Var CoinInCounter = 0
Else
Var RemainAmountStr = "" + RemainAmount
EndIf
Var Timeout = 0
;Var RemainAmount = 0
Var showRemaining = charOfBaht + RemainAmountStr
Var alphaState2 = "Enable"
EndIf
EndIf
Refresh
</EventCoin>
<EventVDCancle>
If CoinInFlag = 1 Then
If CoinInOK = 0 Then
If CancelFlag = 0 Then
SAVELOG "VDCancle > Cancle Order."
Machine CancelWepApp
CoinVending OFF
Var CancelFlag = 1
Var cancelState = "Enable"
Var CancelCounter = 0
;If CoinAmount = 0 Then
; Open "ROOT/taobin_project/xml/page_catalog.xml"
;EndIf
Var showRemaining = "คืนเงิน"
;Open "ROOT/taobin_project/xml/page_catalog.xml"
If FlagQROpened = 1 Then
Var CancelNumber = 12
EndIf
EndIf
EndIf
;VendingQR OFF
Refresh
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
EndIf
</EventVDCancle>
;<Image>
;<X> 0 </X>
;<Y> 0 </Y>
;<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
;</Image>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
<Image>
<X> 144 </X>
<Y> 413 </Y>
<Filename> pay_with_chanel_text </Filename>
</Image>
; back
<Button>
<X> 18 </X>
<Y> 422 </Y>
<Filename> Var( DirImage + "/bn_back_arrow2.png") </Filename>
<FilenamePress> Var( DirImage + "/bn_back_arrow2.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If CoinInOK = 0 Then
If CancelFlag = 0 Then
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
SAVELOG "ButtonCancleMain > Cancle Order."
Machine CancelWepApp
CoinVending OFF
Var CancelFlag = 1
Var cancelState = "Enable"
Var CancelCounter = 0
If FlagQROpened = 1 Then
Var CancelNumber = 12
EndIf
EndIf
EndIf
</EventClick>
</Button>
<Image>
<X> 375 </X>
<Y> 623 </Y>
<Width> 331 </Width>
<Height> 435 </Height>
<Filename> PictureDrink </Filename>
</Image>
<Image>
<X> 375 </X>
<Y> 623 </Y>
<State> eval(
If IsSmoRet = "true" Then
Var return = "Enable"
Else
Var return = "Invisible"
EndIf
)
</State>
<Filename> "ROOT/taobin_project/image/topping2/blender_icon.png" </Filename>
</Image>
<Button>
<X> X_CASH </X>
<Y> 1255 </Y>
<State> PayState1</State>
<Filename> FilenameShowbuttonCashBN </Filename>
<FilenamePress> FilenameShowbuttonCashBP </FilenamePress>
<FilenameDisable> FilenameShowbuttonCashBP </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If alphaState = "Invisible" Then
If EnoughChange = "yes" Then
Var alphaState2 = "Enable"
If RoadShow = "true" Then
Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
Var MachineStage = "make-drink"
Var BrewingTextThai = "เตรียมแก้ว"
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
;Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
EndIf
Else
Var alphaState3 = "Enable"
Refresh
EndIf
EndIf
</EventClick>
</Button>
<Button>
<X> 804 </X>
<Y> 1255</Y>
<State> PayState2</State>
<Filename> Var( DirImage + "/bn_pay_with_code.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_code.png") </FilenamePress>
<FilenameDisable> pay_with_code_image </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
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"
EndIf
EndIf
EndIf
</EventClick>
</Button>
<Button>
<X> 308 </X>
<Y> 1255 </Y>
<State> PayState3</State>
<Filename> Var( DirImage + "/bn_prompt_pay.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_prompt_pay.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_prompt_pay.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If Timeout < 120 Then
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
If alphaState = "Invisible" Then
Var QR_POPUP = "/img_popup1.png"
Var LOADING_STATE = "Enable"
Var FlagQROpened = 1
Var alphaState = "Enable"
;CoinVending OFF
VendingQR ON
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumberQR = "0899999999"
Var ServiceType = "coffee"
Var ECommerceQR = ""
Var ECommerceQR = ECommerceQR + PriceDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + DiscountDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SessionID2
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SelectDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "KBA:2/"
If Seeker.IntVendingCampaign > 0 Then
Var ECommerceQR = ECommerceQR + Seeker.VendingCode
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
EndIf
If Seeker.IntVendingCredit > 0 Then
Var ECommerceQR = ECommerceQR + "CRD"
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.TNumberTaobinCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.IntVendingCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + PointCrm
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var ReqPayInfoFlag = 1
Refresh
;If CoinAmount > 0 Then
; Change CoinAmount
; Var ChangeOK = 0
; Var CancelFlag = 1
; Var CancelCounter = 0
; Var NoGotoMenupage = "true"
;
;EndIf
EndIf
EndIf
EndIf
EndIf
; If CoinInFlag = 0 Then
; Var BG_Menu_Page4 = "ROOT/image/BG_PromptPay_Page4.bmp"
; Var PayState1 = "Enable"
; Var PayState2 = "PressForever"
; Var QRChannel = 1
; Open "ROOT/taobin_project/xml/page_payment_qr.xml"
;
; EndIf
</EventClick>
</Button>
<Button>
<X> 556 </X>
<Y> 1255 </Y>
<State> PayState4</State>
<Filename> Var( DirImage + "/bn_pay_with_credit.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_credit.png") </FilenamePress>
<FilenameDisable> pay_with_credit_image </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
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"
EndIf
EndIf
EndIf
</EventClick>
</Button>
<Button>
<X> 418 </X>
<Y> 1503 </Y>
<State> PayState5</State>
<Filename> Var( DirImage + "/bn_pay_with_shoppy.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_shoppy.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_pay_with_shoppy.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If Timeout < 120 Then
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
If alphaState = "Invisible" Then
Var QR_POPUP = "/img_popup2.png"
Var LOADING_STATE = "Enable"
Var QRCODE99 = ""
Var FlagQROpened = 1
Var alphaState = "Enable"
;CoinVending OFF
VendingQR ON
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumberQR = "0899999999"
Var ServiceType = "coffee"
Var ECommerceQR = ""
Var ECommerceQR = ECommerceQR + PriceDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + DiscountDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SessionID2
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SelectDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "AIR:2/"
;If IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
;EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var ReqPayInfoFlag = 2
Refresh
EndIf
EndIf
EndIf
EndIf
</EventClick>
</Button>
<Button>
<X> 170 </X>
<Y> 1503 </Y>
<State> PayState6</State>
<Filename> Var( DirImage + "/bn_pay_with_true.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_true.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_pay_with_true.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If Timeout < 120 Then
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
If alphaState = "Invisible" Then
Var QR_POPUP = "/img_popup3.png"
Var LOADING_STATE = "Enable"
Var QRCODE99 = ""
Var FlagQROpened = 1
Var alphaState = "Enable"
;CoinVending OFF
VendingQR ON
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumberQR = "0899999999"
Var ServiceType = "coffee"
Var ECommerceQR = ""
Var ECommerceQR = ECommerceQR + PriceDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + DiscountDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SessionID2
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SelectDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "TWN:2/"
;If IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
;EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var ReqPayInfoFlag = 3
Refresh
EndIf
EndIf
EndIf
EndIf
</EventClick>
</Button>
<Button>
<X> 173 </X>
<Y> 1503 </Y>
<State> "Invisible"</State>
<Filename> Var( DirImage + "/bn_pay_with_linepay.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_linepay.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_pay_with_linepay.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
</EventClick>
</Button>
<Button>
<X> 666 </X>
<Y> 1503 </Y>
<State> PayState2</State>
<Filename> Var( DirImage + "/bn_pay_with_codeOther.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_codeOther.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_pay_with_codeOther.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
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_codeOther.xml"
EndIf
EndIf
EndIf
</EventClick>
</Button>
<Button>
<X> 287 </X>
<Y> 1781 </Y>
<State>CancleState</State>
<Filename> Var( DirImage + "/bn_cancel_all.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel_all.png" ) </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_cancel_all.png" ) </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
;VendingQR OFF
If CoinInOK = 0 Then
If CancelFlag = 0 Then
SAVELOG "ButtonCancleMain > Cancle Order."
Machine CancelWepApp
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
CoinVending OFF
Var CancelFlag = 1
Var cancelState = "Enable"
Var CancelCounter = 0
If FlagQROpened = 1 Then
Var CancelNumber = 12
EndIf
EndIf
EndIf
;If CoinAmount > 0 Then
; Change CoinAmount
; Var ChangeOK = 0
; Var CancelFlag = 1
; Var CancelCounter = 0
;
;Else
; ;Var ChangeOK = 1
;EndIf
;Open "ROOT/taobin_project/xml/page_catalog.xml"
Refresh
</EventClick>
</Button>
<Text>
<X> 0 </X>
<Y> 1132 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 72 </Size>
<Font> KanitMediumTTF </Font>
<Color> 0xB78F24 </Color>
<Value> showRemaining </Value>
</Text>
<Text>
<X> 0 </X>
<Y> 938 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 72 </Size>
<Font> KanitMediumTTF </Font>
<Color> 0x513C2F </Color>
<Value> showname </Value>
</Text>
<Text>
<X> 0 </X>
<Y> 1022 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 24 </Size>
<Font> KanitLightTTF </Font>
<Color> 0x6F5F51 </Color>
<Value> showdesc </Value>
</Text>
; QR popup
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> alphaState </State>
<Filename> "ROOT/taobin_project/image/page_payment/alpha.png" </Filename>
</Image>
<Image>
<X> 249 </X>
<Y> 748 </Y>
<State> alphaState </State>
<Filename> Var( DirImage + QR_POPUP )</Filename>
</Image>
<GIF>
<X> 493 </X>
<Y> 968 </Y>
<Width> 94 </Width>
<Height> 94 </Height>
<State> LOADING_STATE </State>
<Filename> Var( DirImage + "/loading.gif" )</Filename>
</GIF>
<Image>
<X> 267 </X>
<Y> 1065 </Y>
<State> LOADING_STATE </State>
<Filename> Var( DirImage + "/loadingText.png" )</Filename>
</Image>
<Button>
<X> 438 </X>
<Y> 1345 </Y>
<State> alphaState </State>
<Filename> Var( DirImage + "/bn_cancel.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var LOADING_STATE = "Invisible"
Var QRErrorState = "Invisible"
Var alphaState = "Invisible"
Var QRCODE99 = ""
;CoinVending ON
;VendingQR OFF
Refresh
</EventClick>
</Button>
; begin cash popup
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> alphaState2 </State>
<Filename> "ROOT/taobin_project/image/page_payment/alpha.png" </Filename>
</Image>
<Image>
<X> 182 </X>
<Y> 748 </Y>
<State> alphaState2 </State>
<Filename> Var( DirImage2 + "/img_popup11.png" )</Filename>
</Image>
<Button>
<X> 438 </X>
<Y> 1345 </Y>
<State> alphaState2 </State>
<Filename> Var( DirImage + "/bn_cancel.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If CoinInOK = 0 Then
If CancelFlag = 0 Then
SAVELOG "ButtonCancleAlpha2 > Cancle Order."
Machine CancelWepApp
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
CoinVending OFF
Var CancelFlag = 1
Var cancelState = "Enable"
Var CancelCounter = 0
If FlagQROpened = 1 Then
Var CancelNumber = 12
EndIf
EndIf
EndIf
Var alphaState2 = "Invisible"
Refresh
</EventClick>
</Button>
<Text>
<X> 0 </X>
<Y> 1041 </Y>
<Size> 144 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<State> alphaState2 </State>
<Color> 0xDE794E </Color>
<Value> RemainAmountStr </Value>
</Text>
; end case popup
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> alphaState3 </State>
<Filename> "ROOT/taobin_project/image/page_payment/alpha.png" </Filename>
</Image>
<Image>
<X> 182 </X>
<Y> 748 </Y>
<State> alphaState3 </State>
<Filename> Var( DirImage2 + "/img_popup12.png" )</Filename>
</Image>
<Button>
<X> 327 </X>
<Y> 1208 </Y>
<State> alphaState3 </State>
<Filename> Var( DirImage2 + "/bn_keep.png" )</Filename>
<FilenamePress> Var( DirImage2 + "/bp_keep.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_payment_storeCredit.xml"
</EventClick>
</Button>
<Button>
<X> 327 </X>
<Y> 1335 </Y>
<State> alphaState3 </State>
<Filename> Var( DirImage2 + "/bn_cancel2.png" )</Filename>
<FilenamePress> Var( DirImage2 + "/bp_cancel2.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
CoinVending BILLREJECT
Var alphaState3 = "Invisible"
Refresh
</EventClick>
</Button>
;<Text>
;<X> 0 </X>
;<Y> 1041 </Y>
;<Size> 100 </Size>
;<Align> Center </Align>
;<Width> 1080 </Width>
;<Font> KanitRegularTTF </Font>
;<State> alphaState3 </State>
;<Color> 0xDE794E </Color>
;<Value> RemainAmountKeep </Value>
;</Text>
<Text>
<X> 270 </X>
<Y> 1000 </Y>
<Width>550</Width>
<Align> Center </Align>
<Size> 30 </Size>
<Font> KanitRegularTTF </Font>
<State> alphaState </State>
<Color> 0xFF0000 </Color>
<Value> CashTextWarning </Value>
</Text>
<QRCode>
<X> 399 </X>
<Y> 905 </Y>
<Width> WQR </Width>
<Height> HQR </Height>
<State> alphaState </State>
<Service> testservice </Service>
</QRCode>
<Button>
<X> 267 </X>
<Y> 960 </Y>
<State>QRErrorState</State>
<Filename> Var( DirImage + "/QRError.png" ) </Filename>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
</EventClick>
</Button>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> cancelState </State>
<Filename> Var( DirImage + "/CancelOrder.png" ) </Filename>
</Image>
<GIF>
<X> 493 </X>
<Y> 960 </Y>
<Width> 94 </Width>
<Height> 94 </Height>
<State> cancelState </State>
<Filename> Var( DirImage + "/loading.gif" )</Filename>
</GIF>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
;<Text>
;<X> 0 </X>
;<Y> 1880 </Y>
;<Size> 14 </Size>
;<Align> "Left" </Align>
;<Width> 1080 </Width>
;<Font> KanitThinTTF </Font>
;<Color> 0x513C2F </Color>
;<Value> SelectDrink </Value>
;</Text>
<Button>
<X> 0 </X>
<Y> 1870 </Y>
<State> ShowNetworkProblem </State>
<Color> "0xFF0000" </Color>
<Width> 1080 </Width>
<Height> 60 </Height>
<EventClick>
DEBUGVAR IgnoreNetCore
If IgnoreNetCore = "true" Then
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
</EventClick>
</Button>
<Text>
<X> 5 </X>
<Y> 1880 </Y>
<Size> 24 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> RobotoRegular </Font>
<Color> 0xFFFFFF </Color>
<Value> ShowNetworkProblemText </Value>
</Text>
</Popup>
Reference in a new issue View git blame Copy permalink