taobin_project/spiral/xml/page_spiral_payment_cashMore.xml
2023-04-26 10:43:37 +07:00

1959 lines
43 KiB
XML

<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<Sound> PlaySoundLag </Sound>
<EventOpen>
Var SellLeaw = 0
Var sendPayMultiFlag = 0
DEBUGVAR QRCODETMP
DEBUGVAR PayType
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 CashlessPayFlag = 0
Var PayDetail = ""
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 FlagalphaState2 = 0
Var alphaState2t = alphaState2
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
DEBUGVAR QRCODE99KBANK
If RoadShow = "true" Then
Var PayState1 = "Enable"
Var PayState2 = "Invisible"
Var PayState3 = "Invisible"
Var PayState4 = "Invisible"
Var PayState5 = "Invisible"
Var showRemaining = "Free"
Else
Var PayState1 = "Enable"
If Seeker.IntVendingCampaign = 0 Then
Var PayState2 = "Enable"
Var PayState4 = "Enable"
Var PayState5 = "Enable"
Else
SAVELOG "Cash only IntVendingCampaign"
Var PayState2 = "Disable"
Var PayState4 = "Disable"
Var PayState5 = "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 CoinInFlag = 1
EndIf
If Seeker.IntVendingCredit > 0 Then
SAVELOG "Cash only IntVendingCredit"
Var PayState2 = "Disable"
Var PayState4 = "Disable"
Var PayState5 = "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
If RoadShow = "true" Then
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
;Var VendingQRCode = "ERROR"
CoinVending OFF
Var Canout = SumCoinAmount - PayAmount
If Canout = 0 Then
Var RemainAmountStr = 0
Else
Var FlagalphaState2 = 1
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 ShowHeadSpiralSelect = "ROOT/taobin_project/spiral/image/page_spiral/spiral_text_detail_en.png"
Var ShowHeadSpiralCash = "ROOT/taobin_project/spiral/image/page_spiral/spiral_text_choose_money_en.png"
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
Var DirImage3 = "ROOT/taobin_project/spiral/image/page_spiral"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Else
Var ShowHeadSpiralSelect = "ROOT/taobin_project/spiral/image/page_spiral/spiral_text_detail.png"
Var ShowHeadSpiralCash = "ROOT/taobin_project/spiral/image/page_spiral/spiral_text_choose_money.png"
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var DirImage3 = "ROOT/taobin_project/spiral/image/page_spiral"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
Var EnoughChange = "yes"
Var SELLONLINE = 0
If SELLSTATUS = "SELLONLINE" Then
Var SELLONLINE = 1
EndIf
If SELLSTATUS = "SELLNOCASH" Then
Var SELLONLINE = 1
EndIf
If SELLONLINE = 0 Then
SAVELOG "Cash only NetworkStatus down"
Var PayState2 = "Disable"
Var PayState3 = "Disable"
Var PayState4 = "Disable"
Var PayState5 = "Disable"
Var PayState6 = "Disable"
Var PayOfflineMode = 1
Var ShowNetworkProblem = "Enable"
Var ShowButtonClick2 = "Invisible"
Var ShowNetworkProblemText = "การสื่อสารขัดข้อง ชำระเงินได้เฉพาะเงินสด"
Else
Var PayOfflineMode = 0
Var ShowNetworkProblem = "Invisible"
Var ShowNetworkProblemText = ""
EndIf
If NOCashFlag = 1 Then
Var PayState1 = "Disable"
EndIf
;If NetworkStatus = "DOWN" Then
; SAVELOG "Cash only NetworkStatus down"
;
; Var PayState2 = "Disable"
; Var PayState3 = "Disable"
; Var PayState4 = "Disable"
; Var PayState5 = "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 + "/bn_pay_with_codeSmall_error.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"
EndIf
If web_readyOK = "true" Then
Var web_readyOK = "false"
If web_payment = "CASH" Then
Var alphaState2 = "Enable"
Var alphaState2t = alphaState2
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 + 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 + 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 "-" "-"
If ReqPayInfoFromCashOther = 1 Then
Var LOADING_STATE = "Enable"
Var FlagQROpened = 1
Var alphaState = "Enable"
VendingQR ON
Var ReqPayInfoFromCashOther = 0
EndIf
If ReqPayInfoFromCashOther = 2 Then
Var alphaState = "Enable"
Var ReqPayInfoFromCashOther = 0
EndIf
</EventOpen>
<EventActionOk>
Var VendingQRTypeResult = ""
DEBUGVAR ECommerceQR
DEBUGVAR ReqPayInfoFlag
SPLIT ECommerceQR "/" 5 VendingQRTypeResult
DEBUGVAR VendingQRTypeResult
DEBUGVAR ActionOKCase
If ActionOKCase = 0 Then
DEBUGVAR VendingREFID
If VendingREFID = "" Then
SAVELOG "menu_page4-QR.xml > ActOK_REFID"
Refresh
Else
Var sendPayMultiFlag = 0
DEBUGVAR VendingREFID
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
SAVELOG "menu_page4-QR.xml > ActOK_make"
;Var VendingQRCode = "ERROR"
;Coin STANDBY
VendingQR OFF
CoinVending OFF
Var PayReference = MultiTSID
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/spiral/xml/page_spiral_thankyou_qr.xml"
EndIf
If ReqPayInfoFlag = 1 Then
If VendingQRTypeResult = "KBA:2" Then
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var QRCODE99KBANK = ""
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 = ""
Var QRCODE99Shoppy = SessionID
Var QRCODE99Shoppy = QRCODE99Shoppy + Ext1a
SAVELOG Ext1
SAVELOG QRCODE99Shoppy
Var QRCODE99Shoppy = QRCODE99Shoppy + Ext21
Var ReqPayInfoFlag = 0
SAVELOG QRCODE99Shoppy
SAVELOG Ext2
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 = ""
Var QRCODE99Shoppy = SessionID
Var QRCODE99Shoppy = QRCODE99Shoppy + Ext1a
DEBUGVAR Ext2
SAVELOG Ext1
SAVELOG QRCODE99Shoppy
Var QRCODE99Shoppy = QRCODE99Shoppy + Ext21
Var ReqPayInfoFlag = 0
Var ReqPayInfoFlag2 = 3
SAVELOG QRCODE99Shoppy
SAVELOG Ext2
Var QRCODE99 = QRCODE99Shoppy
Var LOADING_STATE = "Invisible"
EndIf
EndIf
If ReqPayInfoFlag = 4 Then
If VendingQRTypeResult = "DOL:2" Then
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var QRCODE99Shoppy = ""
Var QRCODE99Shoppy = SessionID
Var QRCODE99Shoppy = QRCODE99Shoppy + Ext1a
SAVELOG Ext1
SAVELOG QRCODE99Shoppy
Var QRCODE99Shoppy = QRCODE99Shoppy + Ext21
Var ReqPayInfoFlag = 0
Var ReqPayInfoFlag2 = 4
SAVELOG QRCODE99Shoppy
SAVELOG Ext2
Var QRCODE99 = QRCODE99Shoppy
Var LOADING_STATE = "Invisible"
EndIf
EndIf
If ReqPayInfoFlag = 5 Then
If VendingQRTypeResult = "LPY:2" Then
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var QRCODE99Shoppy = ""
Var QRCODE99Shoppy = SessionID
Var QRCODE99Shoppy = QRCODE99Shoppy + Ext1a
SAVELOG Ext1
SAVELOG QRCODE99Shoppy
Var QRCODE99Shoppy = QRCODE99Shoppy + Ext21
Var ReqPayInfoFlag = 0
Var ReqPayInfoFlag2 = 5
SAVELOG QRCODE99Shoppy
SAVELOG Ext2
Var QRCODE99 = QRCODE99Shoppy
Var LOADING_STATE = "Invisible"
EndIf
EndIf
Else
Var PayInfoCFlag = 1
EndIf
If VendingCashless = "OK" Then
DEBUGVAR CashlessCode
Var Timeout = 0
Var QRErrorState = "Invisible"
Var LOADING_STATE = "Invisible"
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
VendingQR OFF
CoinVending OFF
Refresh
If Seeker = "curr" Then
; MakeDrinkV1 SelectDrink SelectSugarID
EndIf
Var Seeker.CreditCard = 1
Var Seeker.CreditCardRef = CreditCardRef
Open "ROOT/taobin_project/spiral/xml/page_spiral_thankyou_creditcard.xml"
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
If ReqPayInfoFlag = 4 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
EndIf
EndIf
If ReqPayInfoFlag = 5 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
EndIf
EndIf
Else
Var PayInfoCFlag = 1
EndIf
Refresh
</EventActionError>
<EventCashlessCard>
Var CreditCardRef = ""
GenHashWithTimeStamp CreditCardRef
DEBUGVAR VendingCashless
If VendingCashless = "READY" Then
Var QRCODE99 = ""
Var Timeout = 0
Var QRErrorState = "Invisible"
Var QR_POPUP = "/img_popup8-2.png"
Var VendingCashless = "-"
Var LOADING_STATE = "Enable"
Var RemainAmountX = PayAmount - Seeker.IntVendingCampaign
CashlessPay RemainAmountX CreditCardRef
Var CashlessPayFlag = 1
EndIf
Refresh
</EventCashlessCard>
<Timeout> 1000 </Timeout>
<EventTimeout>
DEBUGVAR SpiralKeepCredit
If ReadyForBrew = "false" Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
Var Timeout = Timeout + 1
If Timeout >= 120 Then
Var alphaState = "Invisible"
Var PayState3 = "Disable"
Var PayState5 = "Disable"
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 + ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999"
Var ServiceType = "locker"
Var ECommerce = ""
Var ECommerce = "locker5/"
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 + "C00"
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
;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
Open "ROOT/taobin_project/spiral/xml/page_spiral_check_cash.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"
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
EndIf
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
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
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 = "locker"
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
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
DEBUGVAR ViewBill
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 FlagalphaState2 = 1
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"
Var alphaState2t = alphaState2
If FlagalphaState2 = 1 Then
Var alphaState2t = "Invisible"
EndIf
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> 0 </X>
<Y> 380 </Y>
<Width> 1080 </Width>
<Height> 864 </Height>
<Color> 0xFFFFFF </Color>
</Image>
;<Image>
;<X> 155 </X>
;<Y> 991 </Y>
;<Width> 774 </Width>
;<Height> 129 </Height>
;<Filename> "ROOT/taobin_project/spiral/image/page_spiral/spiral_text_appfast.png" </Filename>
;</Image>
<Image>
<X> 143 </X>
<Y> 360 </Y>
<Filename> ShowHeadSpiralCash </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
; 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> 184 </X>
<Y> 1276 </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"
Var alphaState2t = alphaState2
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> 432 </X>
<Y> 1276 </Y>
<State> PayState3</State>
<Filename> Var( DirImage + "/bn_prompt_pay.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_prompt_pay.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bd_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 SelectSlot = "2"
Var SessionID2 = SelectSlot + ":00000"
;Var SessionID2 = "1:00000"
Var SelectDrink = "00-00-00-0000"
Var DiscountDrink = 0
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumberQR = "0899999999"
Var ServiceType = "coffee-multi"
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> 680 </X>
<Y> 1276 </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/spiral/xml/page_spiral_payment_credit.xml"
EndIf
EndIf
EndIf
</EventClick>
</Button>
;<Image>
;<X> 184 </X>
;<Y> 1530 </Y>
;<Filename> Var( DirImage3 + "/spiral_payment_bd_code.png") </Filename>
;</Image>
<Button>
<X> 184 </X>
<Y> 1530 </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/spiral/xml/page_spiral_payment_code.xml"
EndIf
EndIf
EndIf
</EventClick>
</Button>
<Button>
<X> 432 </X>
<Y> 1530 </Y>
<State> PayState5</State>
<Filename> Var( DirImage + "/bn_pay_with_ewallet.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_ewallet.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bd_pay_with_ewallet.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
Open "ROOT/taobin_project/spiral/xml/page_spiral_payment_cashOther.xml"
EndIf
EndIf
EndIf
</EventClick>
</Button>
;<Image>
;<X> 680 </X>
;<Y> 1530 </Y>
;<Filename> Var( DirImage3 + "/bd_pay_with_codeOther.png") </Filename>
;</Image>
<Button>
<X> 680 </X>
<Y> 1530 </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/spiral/xml/page_spiral_payment_codeOther.xml"
EndIf
EndIf
EndIf
</EventClick>
</Button>
;;<Button>
;<X> 432 </X>
;<Y> 1530 </Y>
;<State> PayState5</State>
;<Filename> Var( DirImage3 + "/spiral_payment_bn_shopee.png") </Filename>
;<FilenamePress> Var( DirImage3 + "/spiral_payment_bd_shopee.png") </FilenamePress>
;<FilenameDisable> Var( DirImage3 + "/spiral_payment_bp_shopee.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 + 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> 360 </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
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
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>
<Image>
<X> 0 </X>
<Y> 555 </Y>
<Width> 1080 </Width>
<Height> 437 </Height>
<Filename> SpiralProduct </Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 1127 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 80 </Size>
<Font> KanitMediumTTF </Font>
<Color> ColorOrange </Color>
<Value> showRemaining </Value>
</Text>
<Text>
<X> 0 </X>
<Y> 982 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 65 </Size>
<Font> KanitMediumTTF </Font>
<Color> ColorBrown2 </Color>
<Value> showname </Value>
</Text>
<Text>
<X> 0 </X>
<Y> 1058 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 40 </Size>
<Font> KanitTTF </Font>
<Color> ColorBrown </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
CashlessReq OFF
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
EndIf
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> alphaState2t </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
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
EndIf
EndIf
EndIf
Var alphaState2 = "Invisible"
Var alphaState2t = alphaState2
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>
If SpiralKeepCredit = 1 Then
CoinVending BILLSTACKALL
Var CoffeeCreditKeep = RemainAmountKeep
Open "ROOT/taobin_project/spiral/xml/page_spiral_payment_storeCredit3.xml"
Else
Open "ROOT/taobin_project/spiral/xml/page_spiral_payment_storeCredit.xml"
EndIf
</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> 100 </X>
<Y> 1880 </Y>
<Size> 14 </Size>
<Align> "Left" </Align>
<Width> 1080 </Width>
<Font> KanitThinTTF </Font>
<Color> 0x513C2F </Color>
<Value> "55555" </Value>
</Text>
<Button>
<X> 0 </X>
<Y> 1870 </Y>
<State> ShowNetworkProblem </State>
<Color> "0xFF0000" </Color>
<Width> 1080 </Width>
<Height> 60 </Height>
<EventClick>
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>
;<Text>
;<X> 92 </X>
;<Y> 600 </Y>
;<Size> 60 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> Seeker.TNumberTaobinMember </Value>
;</Text>
;
;<Text>
;<X> 92 </X>
;<Y> 700 </Y>
;<Size> 60 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> Seeker.TNumberTaobinCredit </Value>
;</Text>
</Popup>