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-HKG.xml

2578 lines
56 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>
Var cash_disable = "0"
READ_FILE "/mnt/sdcard/coffeevending/cash_disable" cash_disable
DEBUGVAR cash_disable
SAVELOG "page_payment_cach-HKG.xml"
Var PreScaleCanculate = 100
Var CashlessPayFlag = 0
Var RemainAmountStrENG = ""
Var AdultState = "Invisible"
Var AdultState1 = "Invisible"
Var AdultState2 = "Invisible"
Var AdultState3 = "Invisible"
;Var AdultFlag = 0
Var AdultFlag2 = 0
If AdultFlag = 1 Then
Var AdultFlag = 0
DEBUGVAR SystemDate
Var sdate = ""
Var sdate = SystemDate
Var sdateday = ""
Var sdatemonth = ""
Var sdateyear = ""
SPLIT sdate "/" 1 sdateday
SPLIT sdate "/" 2 sdatemonth
SPLIT sdate "/" 3 sdateyear
INT sdateday
INT sdatemonth
INT sdateyear
READCARDID
Var AdultState = "Enable"
Var AdultState1 = "Enable"
Var countAdultS2 = 0
Var AdultFlag2 = 1
EndIf
Var ReqPayInfoFlag2 = 0
DEBUGVAR QRCODETMP
DEBUGVAR IsSmoRet
;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"
Var AlphaLoadingState = "Invisible"
Var AlphaPopupLoadingState = "Invisible"
; 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
Var CancelCounter = 0
Var CoinInCounter = 0
Var CancelNumber = 3
Var CreditCardButtonState = "Disable"
Var QRCodeButtonState = "Disable"
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 showRemaining !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow )
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 CreditCardButtonState = "Invisible"
Var QRCodeButtonState = "Invisible"
Var showRemaining = "Free"
Else
;Var PayState1 = "Enable"
;If cash_disable = "1" Then
; Var PayState1 = "Press"
;EndIf
Var CreditCardButtonState = "Enable"
Var QRCodeButtonState = "Enable"
;If Seeker.IntVendingCampaign = 0 Then
; Var CreditCardButtonState = "Enable"
; Var QRCodeButtonState = "Enable"
;Else
; SAVELOG "Cash only IntVendingCampaign"
; Var PayState2 = "Disable"
; Var PayState4 = "Disable"
; Var PayState5 = "Enable"
; Var PayState6 = "Disable"
;EndIf
;Var PayState3 = "Enable"
DEBUGVAR CoinAmount
If CoinAmount > 0 Then
SAVELOG "Cash only CoinAmount"
Var CreditCardButtonState = "Disable"
Var QRCodeButtonState = "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
Var showRemaining !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow )
EndIf
Var Seeker.PayWithQR = 0
Var NoGotoMenupage = "false"
If GetFreeFromError = 1 Then
Var Seeker.FreeVendingCampaign = 1
CoinVending OFF
If Seeker = "curr" Then
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1
Else
Var TxRef1 = ""
CreateTxRef1 TxRef1
Var DrinkPaid = SelectDrink
Var PaidPaymentFromNextStage = 1
EndIf
DEBUGVAR UserChoosePayment
Var UserChoosePayment = ""
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
If Seeker.FreeVendingCampaign = 1 Then
Var RemainAmountStr = "Free###size=150"
CoinVending OFF
If Seeker = "curr" Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
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"
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
Var RemainAmountStr !assigned StringFmt( Canout, DisplayFormat, PreScaleConvertShow )
Else
If show_eng = "true" Then
;Var RemainAmountStr = "Change " + Canout
;Var RemainAmountStr = RemainAmountStr + "###size=90"
Var RemainAmountStr !assigned StringFmt( Canout, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "Change " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
Else
Var RemainAmountStr = "ทอน " + Canout
EndIf
EndIf
Var CancleState = "Disable"
Var CoinInOK = 1
Var CoinInCounter = 0
Else
Var RemainAmountStr = "" + RemainAmount
Var RemainAmountStr !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow )
EndIf
;Var RemainAmount = 0
Var showRemaining = charOfBaht + RemainAmountStr
If RoadShow = "true" Then
Var showRemaining = "Free"
EndIf
Var showRemaining !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow )
EndIf
Var UserChoosePayment = ""
Var EnablingCountDown = 0
Var EnablingCreditCard = 0
Var EnablingQRCode = 0
Var RequestCreditCardCountDown = 0
Var RequestQRCodeCountDown = 0
Var SwitchingCreditCardToQRCode = 0
Var SwitchingQRCodeToCreditCard = 0
Var SwitchingContDown = 0
Var FirstTimeDelayEnableButton = 1
Var FirstTimeDelayEnableButtonCountDown = 5
;If CoinInFlag = 0 Then
; If CancelFlag = 0 Then
; If CreditCardButtonState = "Enable" Then
; Coin CARD
; Var UserChoosePayment = "CreditCard"
; Var CreditCardButtonState = "Disable"
; Var QRCodeButtonState = "Disable"
; Var LOADING_STATE = "Enable"
; Var AlphaLoadingState = "Enable"
; Var EnablingCreditCard = 1
; Var EnablingCountDown = 5
; Var RequestCreditCardCountDown = 1
; EndIf
; 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"
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"
Else
Var PayOfflineMode = 0
Var ShowNetworkProblem = "Invisible"
Var ShowNetworkProblemText = ""
EndIf
DEBUGVAR NOCashFlag
If NOCashFlag = 1 Then
Var PayState1 = "Disable"
EndIf
;cancel order
If SELLSTATUS = "DEACTIVE" Then
Var SELLONLINE = 1
EndIf
Var pay_with_credit_image = DirImage + "/bp_pay_with_credit.png"
Var pay_with_chanel_text = DirImage + "/text_1.png"
;If DisableUsingCode = "true" Then
If DisableUsingCode = "-" Then
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 web_readyOK = "true" Then
Var web_readyOK = "false"
If web_payment = "CASH" Then
Var alphaState2 = "Enable"
EndIf
EndIf
__CMD "prepar-cup-from-order" 0 "-" "-"
;Open "ROOT/taobin_project/xml/page_page_camera.xml"
If RoadShow = "true" Then
Var PayState1 = "Invisible"
Var PayState2 = "Invisible"
Var PayState3 = "Invisible"
Var PayState4 = "Invisible"
Var PayState5 = "Invisible"
Var PayState6 = "Invisible"
EndIf
;Disable taobin credit
Var TopRowY = 1276
Var BotRowY = 1499
Var PayState4 = "Invisible"
If SettingDisableTaobinCode = "true" Then
Var PayState2 = "Invisible"
EndIf
DEBUGVAR SettingDisableTaobinCredit
Var CancelContinue = 0
</EventOpen>
<EventActionOk>
Var VendingQRTypeResult = ""
DEBUGVAR ECommerceQR
SPLIT ECommerceQR "/" 5 VendingQRTypeResult
SAVELOG "Event -> ActionOK"
DEBUGVAR UserChoosePayment
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 ReqPayInfoFlag2 = 1 Then
DEBUGVAR VendingBank
Var Seeker.CampaignPayChanel = "malaymbb"
EndIf
If ReqPayInfoFlag2 = 2 Then
Var Seeker.CampaignPayChanel = "shopee"
EndIf
If ReqPayInfoFlag2 = 3 Then
Var Seeker.CampaignPayChanel = "true"
EndIf
If ReqPayInfoFlag2 = 4 Then
Var Seeker.CampaignPayChanel = "dolfin"
EndIf
If ReqPayInfoFlag2 = 5 Then
Var Seeker.CampaignPayChanel = "linepay"
EndIf
If Seeker = "curr" Then
MakeDrinkV1 SelectDrink SelectSugarID
;Var TxRef1 = ""
;CreateTxRef1 TxRef1
EndIf
Var Seeker.PayWithQR = 1
Var Seeker.VendingTSID = VendingTSID
Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
Var BrewingTextThai = "เตรียมแก้ว"
DEBUGVAR UserChoosePayment
Var UserChoosePayment = ""
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
If ReqPayInfoFlag = 1 Then
If VendingQRTypeResult = "MBB: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
Var ReqPayInfoFlag2 = 1
SAVELOG QRCODE99KBANK
SAVELOG Ext21
Var QRCODE99 = QRCODE99KBANK
Var LOADING_STATE = "Invisible"
Var AlphaPopupLoadingState = "Invisible"
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"
EndIf
EndIf
If VendingQRTypeResult = "IND: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
Var ReqPayInfoFlag2 = 1
SAVELOG QRCODE99KBANK
SAVELOG Ext21
Var QRCODE99 = QRCODE99KBANK
Var LOADING_STATE = "Invisible"
Var AlphaPopupLoadingState = "Invisible"
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 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
Var ReqPayInfoFlag2 = 2
SAVELOG QRCODE99Shoppy
SAVELOG Ext21
Var QRCODE99 = QRCODE99Shoppy
Var LOADING_STATE = "Invisible"
Var AlphaPopupLoadingState = "Invisible"
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 = 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
Var ReqPayInfoFlag2 = 3
SAVELOG QRCODE99Shoppy
SAVELOG Ext21
Var QRCODE99 = QRCODE99Shoppy
Var LOADING_STATE = "Invisible"
Var AlphaPopupLoadingState = "Invisible"
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 = 4 Then
If VendingQRTypeResult = "DOL: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
Var ReqPayInfoFlag2 = 4
SAVELOG QRCODE99Shoppy
SAVELOG Ext21
Var QRCODE99 = QRCODE99Shoppy
Var LOADING_STATE = "Invisible"
Var AlphaPopupLoadingState = "Invisible"
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 = 5 Then
If VendingQRTypeResult = "LPY: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
Var ReqPayInfoFlag2 = 5
SAVELOG QRCODE99Shoppy
SAVELOG Ext21
Var QRCODE99 = QRCODE99Shoppy
Var LOADING_STATE = "Invisible"
Var AlphaPopupLoadingState = "Invisible"
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
Else
Var PayInfoCFlag = 1
EndIf
DEBUGVAR VendingCashless
If VendingCashless = "OK" Then
DEBUGVAR CashlessCode
Var Timeout = 0
Var QRErrorState = "Invisible"
Var LOADING_STATE = "Invisible"
Var AlphaPopupLoadingState = "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
DEBUGVAR UserChoosePayment
Var UserChoosePayment = ""
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
</EventActionOk>
<EventActionError>
DEBUGVAR UserChoosePayment
If ActionOKCase = 0 Then
If ReqPayInfoFlag = 1 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
Var AlphaPopupLoadingState = "Invisible"
EndIf
EndIf
If ReqPayInfoFlag = 2 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
Var AlphaPopupLoadingState = "Invisible"
EndIf
EndIf
If ReqPayInfoFlag = 3 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
Var AlphaPopupLoadingState = "Invisible"
EndIf
EndIf
If ReqPayInfoFlag = 4 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
Var AlphaPopupLoadingState = "Invisible"
EndIf
EndIf
Else
Var PayInfoCFlag = 1
EndIf
If VendingCashless = "ERROR" Then
Var Timeout = 0
;Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
Var AlphaPopupLoadingState = "Invisible"
EndIf
EndIf
Refresh
</EventActionError>
<EventCashlessCard>
SAVELOG "Event -> CashlessCard"
DEBUGVAR VendingCashless
DEBUGVAR UserChoosePayment
DEBUGVAR CoinInFlag
Refresh
</EventCashlessCard>
<Timeout> 1000 </Timeout>
<EventTimeout>
DEBUGVAR VendingCashless
If ReadyForBrew = "false" Then
SAVELOG "Back to main1"
DEBUGVAR UserChoosePayment
Var UserChoosePayment = ""
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
If CamFlag = 1 Then
Var CamCount = CamCount + 1
If CamCount > 2 Then
facecompare 10
Var CamFlag = 0
Var CamCount = 0
EndIf
EndIf
If AdultState2 = "Enable" Then
Var countAdultS2 = countAdultS2 + 1
If countAdultS2 > 60 Then
Var AdultState2 = "Invisible"
Var AdultState3 = "Enable"
EndIf
Else
Var countAdultS2 = 0
EndIf
Var Timeout = Timeout + 1
If Timeout >= 120 Then
Var alphaState = "Invisible"
If RoadShow = "true" Then
Else
If PayState3 = "Enable" Then
Var PayState3 = "Disable"
EndIf
If PayState5 = "Enable" Then
Var PayState5 = "Disable"
EndIf
EndIf
Var LOADING_STATE = "Invisible"
Var AlphaPopupLoadingState = "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
DEBUGVAR UserChoosePayment
DEBUGVAR CancelContinue
Var UserChoosePayment = ""
If CancelContinue = 2 Then
Open "ROOT/taobin_project/xml/page_payment.xml"
EndIf
Open "ROOT/taobin_project/xml/page_catalog.xml"
Else
DEBUGVAR UserChoosePayment
Var UserChoosePayment = ""
If CancelContinue = 2 Then
Open "ROOT/taobin_project/xml/page_payment.xml"
EndIf
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
EndIf
EndIf
If TestLoopMakeDrink = 1 Then
MakeDrinkV1 SelectDrink SelectSugarID
DEBUGVAR UserChoosePayment
Var UserChoosePayment = ""
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
If CoinInOK = 1 Then
Var PayState5 = "Disable"
Var CoinInCounter = CoinInCounter + 1
If CoinInCounter = 1 Then
SAVELOG "CoinInOk OK"
;Var ChangeOK = 1
Var Timeout = 180
Var PayOK = 1
EndIf
Else
Var PayState5 = "Enable"
EndIf
Var stringLog = "Timeout " + Timeout
Var stringLog = stringLog + " PayOK"
Var stringLog = stringLog + PayOK
If Timeout >= 120 Then
If PayOK = 1 Then
If Seeker = "curr" Then
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1
Else
Var TxRef1 = ""
CreateTxRef1 TxRef1
Var DrinkPaid = SelectDrink
Var PaidPaymentFromNextStage = 1
EndIf
DEBUGVAR UserChoosePayment
Var UserChoosePayment = ""
Open "ROOT/taobin_project/xml/page_thankyou.xml"
Else
If CancelFlag = 0 Then
SAVELOG "Timeout > 120 s."
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
CoinVending OFF
Var CancelFlag = 1
Var cancelState = "Enable"
If CashlessPayFlag = 1 Then
CashlessReq VENDINGCANCEL ""
SAVELOG "Cashless called VENDINGCANCEL"
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
Var Seeker.CurrCreditUse = 0
EndIf
If Seeker.IntVendingCampaign = 0 Then
VendingQR OFF
If Seeker = "curr" Then
DEBUGVAR UserChoosePayment
Var UserChoosePayment = ""
Open "ROOT/taobin_project/xml/page_catalog.xml"
Else
DEBUGVAR UserChoosePayment
Var UserChoosePayment = ""
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
DEBUGVAR CancelCounter
DEBUGVAR Seeker.StoreCreditFlag
DEBUGVAR CancelNumber
If CancelCounter = CancelNumber Then
;Change CoinAmount
DEBUGVAR CoinAmount
If CoinAmount > 0 Then
DEBUGVAR Seeker.StoreCreditFlag
If Seeker.StoreCreditFlag = 1 Then
Var ChangeOK = 1
Else
DEBUGVAR CoinAmount
Change CoinAmount
EndIf
Else
DEBUGVAR CancelContinue
If ActionOKCase = 0 Then
Var ActionOKCase = 1
Var PayInfoCFlag = 1
EndIf
If CancelContinue = 1 Then
Var CancelContinue = 2
EndIf
EndIf
VendingQR OFF
EndIf
If CancelCounter >= 43 Then
Var ChangeOK = 1
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
DEBUGVAR UserChoosePayment
Var UserChoosePayment = ""
Open "ROOT/taobin_project/xml/page_catalog.xml"
Else
DEBUGVAR UserChoosePayment
Var UserChoosePayment = ""
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
EndIf
EndIf
Else
;wait ack
EndIf
EndIf
EndIf
EndIf
If FirstTimeDelayEnableButton = 1 Then
If FirstTimeDelayEnableButtonCountDown = 0 Then
Var CreditCardButtonState = "Enable"
Var QRCodeButtonState = "Enable"
Var LOADING_STATE = "Invisible"
Var AlphaLoadingState = "Invisible"
Var FirstTimeDelayEnableButton = 0
Else
Var FirstTimeDelayEnableButtonCountDown = FirstTimeDelayEnableButtonCountDown - 1
EndIf
EndIf
If EnablingCreditCard = 1 Then
If RequestCreditCardCountDown = 0 Then
GenHashWithTimeStamp CreditCardRef
; 65535 mean Credit card
Var CreditCardRef = CreditCardRef + "/65535"
DEBUGVAR CreditCardRef
Var RemainAmountX = PayAmount - Seeker.IntVendingCampaign
CashlessPay RemainAmountX CreditCardRef
Var CashlessPayFlag = 1
Var RequestCreditCardCountDown = -1
Else
Var RequestCreditCardCountDown = RequestCreditCardCountDown - 1
EndIf
If EnablingCountDown = 0 Then
Var Timeout = 0
Var UserChoosePayment = "CreditCard"
Var QRErrorState = "Invisible"
Var QR_POPUP = CountryRootPath + "/image/page_payment/img_tap_card_5_sec.png"
Var VendingCashless = "-"
If FirstTimeDelayEnableButton = 0 Then
Var LOADING_STATE = "Invisible"
Var AlphaPopupLoadingState = "Invisible"
EndIf
Var EnablingCountDown = 0
Var EnablingCreditCard = 0
Else
Var EnablingCountDown = EnablingCountDown - 1
EndIf
EndIf
If EnablingQRCode = 1 Then
If RequestQRCodeCountDown = 0 Then
GenHashWithTimeStamp CreditCardRef
; 0 mean QR code
Var CreditCardRef = CreditCardRef + "/0"
DEBUGVAR CreditCardRef
Var RemainAmountX = PayAmount - Seeker.IntVendingCampaign
CashlessPay RemainAmountX CreditCardRef
Var CashlessPayFlag = 1
Var RequestQRCodeCountDown = -1
Else
Var RequestQRCodeCountDown = RequestQRCodeCountDown - 1
EndIf
If EnablingCountDown = 0 Then
Var Timeout = 0
Var UserChoosePayment = "QRCode"
Var QRErrorState = "Invisible"
Var QR_POPUP = CountryRootPath + "/image/page_payment/img_use_qr_code.png"
Var VendingCashless = "-"
Var LOADING_STATE = "Invisible"
Var AlphaPopupLoadingState = "Invisible"
Var EnablingQRCode = 0
Var EnablingCountDown = 0
Else
Var EnablingCountDown = EnablingCountDown - 1
EndIf
EndIf
If SwitchingCreditCardToQRCode = 1 Then
If SwitchingContDown = 0 Then
Coin CARD
Var EnablingQRCode = 1
Var EnablingCountDown = 5
Var RequestCreditCardCountDown = 1
Var SwitchingCreditCardToQRCode = 0
Else
Var SwitchingContDown = SwitchingContDown - 1
EndIf
EndIf
If SwitchingQRCodeToCreditCard = 1 Then
If SwitchingContDown = 0 Then
Coin CARD
Var EnablingCreditCard = 1
Var EnablingCountDown = 5
Var RequestQRCodeCountDown = 1
Var SwitchingQRCodeToCreditCard = 0
Else
Var SwitchingContDown = SwitchingContDown - 1
EndIf
EndIf
If CashlessClosingPopup = 1 Then
If CashlessClosingPopupCountDown = 0 Then
Var alphaState = "Invisible"
Var LOADING_STATE = "Invisible"
Var AlphaPopupLoadingState = "Invisible"
Var CashlessClosingPopup = 0
Else
Var CashlessClosingPopupCountDown = CashlessClosingPopupCountDown - 1
EndIf
EndIf
Refresh
TimerReset
</EventTimeout>
<EventChangeStatus>
If ChangeStatus = "payout-end" Then
Var ChangeOK = 1
EndIf
</EventChangeStatus>
<EventIDCard>
DEBUGVAR IDCardStatus
DEBUGVAR IDCardReady
DEBUGVAR IDCardData
DEBUGVAR IDBirthdate
If CancelFlag = 0 Then
If AdultFlag2 = 1 Then
If IDCardStatus = "OK" Then
If IDCardReady = "OK" Then
If IDCardData = "START" Then
Var AdultState2 = "Enable"
Var AdultState1 = "Invisible"
Var AdultState3 = "Invisible"
Refresh
EndIf
EndIf
EndIf
If IDCardStatus = "OK" Then
If IDCardReady = "OK" Then
If IDCardData = "ERROR" Then
Var AdultState2 = "Invisible"
Var AdultState3 = "Enable"
Refresh
EndIf
EndIf
EndIf
If IDCardStatus = "ERROR" Then
Var AdultState2 = "Invisible"
Var AdultState3 = "Enable"
Refresh
EndIf
If IDCardStatus = "OK" Then
If IDCardReady = "OK" Then
If IDCardData = "DONE" Then
;Var birthDate = IDBirthdate
Var StrYear = ""
Var StrMon = ""
Var StrDay = ""
SUBSTRING IDBirthdate 0 4 StrYear
SUBSTRING IDBirthdate 4 6 StrMon
SUBSTRING IDBirthdate 6 8 StrDay
INT StrYear
INT StrMon
INT StrDay
Var Adult20 = 0
DEBUGVAR StrYear
DEBUGVAR StrMon
DEBUGVAR StrDay
DEBUGVAR sdatemonth
DEBUGVAR sdateday
Var sdateyear = sdateyear + 543
Var AgeNumber = sdateyear - StrYear
DEBUGVAR AgeNumber
If AgeNumber >= 20 Then
If AgeNumber = 20 Then
If sdatemonth > StrMon Then
Var Adult20 = 1
Else
If sdatemonth = StrMon Then
If sdateday >= StrDay Then
Var Adult20 = 1
EndIf
EndIf
EndIf
Else
Var Adult20 = 1
EndIf
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"
Refresh
Else
Var AdultState2 = "Invisible"
Var AdultState3 = "Enable"
Refresh
EndIf
Else
Var AdultState2 = "Invisible"
Var AdultState3 = "Enable"
Refresh
EndIf
Var AdultFlag2 = 1
EndIf
EndIf
EndIf
EndIf
EndIf
</EventIDCard>
<EventCoin>
TimerReset
If CoinInFlag = 0 Then
;VendingQR OFF
Var alphaState = "Invisible"
EndIf
Var CoinInFlag = 1
DEBUGVAR CoinInOK
If ViewBill > 0 Then
If PayOfflineMode = 1 Then
;CoinVending BILLREJECT
Var alphaState3_offline = "Enable"
Else
If Seeker.StoreCreditFlag = 1 Then
CoinVending BILLSTACKALL
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 RemainAmountStr !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow )
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
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
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
Var RemainAmountStr !assigned StringFmt( Canout, DisplayFormat, PreScaleConvertShow )
Else
If show_eng = "true" Then
;Var RemainAmountStr = "Change " + Canout
;Var RemainAmountStr = RemainAmountStr + "###size=90"
Var RemainAmountStr !assigned StringFmt( Canout, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "Change " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
Else
Var RemainAmountStr = "ทอน " + Canout
EndIf
EndIf
Var CancleState = "Disable"
Var CoinInOK = 1
Var CoinInCounter = 0
Else
Var RemainAmountStr = "" + RemainAmount
Var RemainAmountStr !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow )
EndIf
Var Timeout = 0
;Var RemainAmount = 0
Var showRemaining = charOfBaht + RemainAmountStr
Var showRemaining !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow )
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 = "Refund"
;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>
;include="ROOT/taobin_project/inc/video.inc"
<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 CashlessPayFlag = 1 Then
CashlessReq VENDINGCANCEL ""
SAVELOG "Cashless called VENDINGCANCEL"
EndIf
DEBUGVAR UserChoosePayment
Var UserChoosePayment = ""
Var CancelContinue = 0
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>
<Filename> OverlayMenuFilter </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> 664 </X>
;<Y> 1276</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"
;
; Var UserChoosePayment = "Code"
; Open "ROOT/taobin_project/xml/page_payment_code.xml"
; EndIf
; EndIf
;
; EndIf
;</EventClick>
;</Button>
<Button>
<X> 327 </X>
<Y> TopRowY </Y>
<State> CreditCardButtonState </State>
<Filename> Var( CountryRootPath + "/image/page_payment/bn_credit_card.png") </Filename>
<FilenamePress> Var( CountryRootPath + "/image/page_payment/bp_credit_card.png") </FilenamePress>
<FilenameDisable> Var( CountryRootPath + "/image/page_payment/bd_credit_card.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
SAVELOG "Pay_With_Card_Pressed."
DEBUGVAR UserChoosePayment
Var QRCODE99 = ""
Var QRErrorState = "Invisible"
Var QR_POPUP = CountryRootPath + "/image/page_payment/img_tap_card_5_sec.png"
Var alphaState = "Enable"
If UserChoosePayment = "CreditCard" Then
Var Timeout = 0
Var QR_POPUP = CountryRootPath + "/image/page_payment/img_tap_card_5_sec.png"
If EnablingCreditCard = 1 Then
Var LOADING_STATE = "Enable"
Var AlphaPopupLoadingState = "Enable"
EndIf
Else
If UserChoosePayment = "QRCode" Then
CashlessReq VENDINGCANCEL ""
Var LOADING_STATE = "Enable"
Var AlphaPopupLoadingState = "Enable"
Var SwitchingQRCodeToCreditCard = 1
Var SwitchingContDown = 1
Else
Coin CARD
Var UserChoosePayment = "CreditCard"
Var LOADING_STATE = "Enable"
Var AlphaPopupLoadingState = "Enable"
Var EnablingCreditCard = 1
Var EnablingCountDown = 5
Var RequestCreditCardCountDown = 1
EndIf
EndIf
EndIf
EndIf
EndIf
</EventClick>
</Button>
<Button>
<X> 551 </X>
<Y> TopRowY </Y>
<State> QRCodeButtonState </State>
<Filename> Var( CountryRootPath + "/image/page_payment/bn_qr_code.png") </Filename>
<FilenamePress> Var( CountryRootPath + "/image/page_payment/bp_qr_code.png") </FilenamePress>
<FilenameDisable> Var( CountryRootPath + "/image/page_payment/bd_qr_code.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
SAVELOG "Pay_With_QR_Pressed."
DEBUGVAR UserChoosePayment
Var QRCODE99 = ""
Var QRErrorState = "Invisible"
Var QR_POPUP = CountryRootPath + "/image/page_payment/img_use_qr_code.png"
Var LOADING_STATE = "Enable"
Var AlphaPopupLoadingState = "Enable"
Var alphaState = "Enable"
If UserChoosePayment = "CreditCard" Then
CashlessReq VENDINGCANCEL ""
Var SwitchingCreditCardToQRCode = 1
Var SwitchingContDown = 1
Else
Coin CARD
Var LOADING_STATE = "Enable"
Var AlphaPopupLoadingState = "Enable"
Var EnablingQRCode = 1
Var EnablingCountDown = 5
Var RequestQRCodeCountDown = 1
EndIf
EndIf
EndIf
EndIf
</EventClick>
</Button>
;<Button>
;<X> 439 </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"
;
; Var UserChoosePayment = "Credit"
; Open "ROOT/taobin_project/xml/page_payment_credit.xml"
; EndIf
; EndIf
;
; EndIf
;
;
;</EventClick>
;</Button>
<Button>
<X> 360 </X>
<Y> 1781 </Y>
<State>
eval(
If CancleState = "Enable" Then
If LOADING_STATE = "Enable" Then
Var return = "Disable"
Else
Var return = CancelState
EndIf
Else
Var return = CancleState
EndIf
)
</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 CashlessPayFlag = 1 Then
CashlessReq VENDINGCANCEL ""
SAVELOG "Cashless called VENDINGCANCEL"
EndIf
Var UserChoosePayment = ""
EndIf
EndIf
Refresh
</EventClick>
</Button>
<Text>
<X> 0 </X>
<Y> 1065 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 72 </Size>
<Font> KanitMediumTTF </Font>
<Color> PopupBodyTextColor </Color>
<Value> showRemaining </Value>
</Text>
<Text>
<X> 0 </X>
<Y> 938 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 66 </Size>
<Font> KanitMediumTTF </Font>
<Color> HeadlineColor </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> SubHeadlineColor </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> QR_POPUP </Filename>
</Image>
<Button>
<X> 766 </X>
<Y> 777 </Y>
<State>
eval(
If alphaState = "Enable" Then
If LOADING_STATE = "Enable" Then
Var return = "Disable"
Else
Var return = alphaState
EndIf
Else
Var return = alphaState
EndIf
)
</State>
<Filename> "ROOT/taobin_project/image/page_payment/Exit.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_payment/Exit.png" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
SAVELOG "Button cancel popup pressed."
If CashlessPayFlag = 1 Then
CashlessReq VENDINGCANCEL ""
Var LOADING_STATE = "Enable"
Var AlphaPopupLoadingState = "Enable"
Var CashlessClosingPopup = 1
Var CashlessClosingPopupCountDown = 1
Var UserChoosePayment = ""
Var CashlessPayFlag = 0
SAVELOG "Cashless closing popup"
Else
Var QRCODE99 = ""
Var LOADING_STATE = "Invisible"
Var AlphaPopupLoadingState = "Invisible"
Var QRErrorState = "Invisible"
Var alphaState = "Invisible"
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>
;inter-image
<Filename> Var( DirImage2 + "/img_popup11-HKG.png" )</Filename>
</Image>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> AdultState </State>
<Filename> "ROOT/taobin_project/image/page_payment/alpha.png" </Filename>
</Image>
<Image>
<X> 249 </X>
<Y> 751 </Y>
<State> AdultState1 </State>
<Filename> Var( DirImage + "/img_popup4.png" )</Filename>
</Image>
<Image>
<X> 838 </X>
<Y> 1350 </Y>
<State> eval(
Var return = "Invisible"
If AdultState1 = "Enable" Then
If AdultState2 = "Invisible" Then
Var return = "Enable"
EndIf
EndIf
DEBUGVAR return
)
</State>
<Animation>
<Style> "Bounce" </Style>
<OnEvent> "TimerSec=3" </OnEvent>
</Animation>
<Filename> "ROOT/taobin_project/image/anmi/arrow_1.png" </Filename>
</Image>
<Button>
<X> 360 </X>
<Y> 1373 </Y>
<State>AdultState1</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
SAVELOG "AdultState1 click"
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 = 0 Then
If UserChoosePayment = "CreditCard" Then
Var CashlessPayFlag = 0
CashlessReq FAIL ""
EndIf
If UserChoosePayment = "" Then
Var CashlessPayFlag = 0
CashlessReq FAIL ""
EndIf
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL ""
EndIf
EndIf
EndIf
Refresh
</EventClick>
</Button>
<Image>
<X> 249 </X>
<Y> 751 </Y>
<State> AdultState2 </State>
<Filename> Var( DirImage + "/img_popup4-2.png" )</Filename>
</Image>
<Image>
<X> 249 </X>
<Y> 751 </Y>
<State> AdultState3 </State>
<Filename> Var( DirImage + "/img_popup4-3.png" )</Filename>
</Image>
<Button>
<X> 360 </X>
<Y> 1373 </Y>
<State>AdultState3</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
SAVELOG "AdultState3 click"
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 = 0 Then
If UserChoosePayment = "CreditCard" Then
Var CashlessPayFlag = 0
CashlessReq FAIL ""
EndIf
If UserChoosePayment = "" Then
Var CashlessPayFlag = 0
CashlessReq FAIL ""
EndIf
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL ""
EndIf
EndIf
EndIf
Refresh
</EventClick>
</Button>
<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>
SAVELOG "alphaState2 click"
DEBUGVAR CancelFlag
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 = 0 Then
If UserChoosePayment = "CreditCard" Then
Var CashlessPayFlag = 0
CashlessReq FAIL ""
EndIf
If UserChoosePayment = "" Then
Var CashlessPayFlag = 0
CashlessReq FAIL ""
EndIf
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL ""
EndIf
EndIf
EndIf
DEBUGVAR UserChoosePayment
Var UserChoosePayment = ""
Var CancelContinue = 1
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> eval(
Var return = DirImage2 + "/img_popup12_NotEnoughCoin.png"
) </Filename>
</Image>
<Button>
<X> 327 </X>
<Y> 1208 </Y>
<State> eval(
DEBUGVAR SettingDisableTaobinCredit
If SettingDisableTaobinCredit = "true" Then
Var return = "Invisible"
Else
Var return = alphaState3
EndIf
DEBUGVAR return
) </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>
SAVELOG "alphaState3 click"
CoinVending BILLREJECT
Var alphaState3 = "Invisible"
If SettingDisableTaobinCredit = "true" Then
If EnoughChange = "yes" Then
Else
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
If CashlessPayFlag = 0 Then
If UserChoosePayment = "CreditCard" Then
Var CashlessPayFlag = 0
CashlessReq FAIL ""
EndIf
If UserChoosePayment = "" Then
Var CashlessPayFlag = 0
CashlessReq FAIL ""
EndIf
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL ""
EndIf
DEBUGVAR UserChoosePayment
Var UserChoosePayment = ""
Var CancelContinue = 0
EndIf
EndIf
EndIf
EndIf
Refresh
</EventClick>
</Button>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> alphaState3_offline </State>
<Filename> "ROOT/taobin_project/image/page_payment/alpha.png" </Filename>
</Image>
<Image>
<X> 182 </X>
<Y> 748 </Y>
<State> alphaState3_offline </State>
<Filename> Var( DirImage2 + "/img_popup12_offline.png" )</Filename>
</Image>
<Button>
<X> 327 </X>
<Y> 1335 </Y>
<State> alphaState3_offline </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>
SAVELOG "alphaState3_offline click"
CoinVending BILLREJECT
Var alphaState3_offline = "Invisible"
If SettingDisableTaobinCredit = "true" Then
If EnoughChange = "yes" Then
Else
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
If CashlessPayFlag = 0 Then
If UserChoosePayment = "CreditCard" Then
Var CashlessPayFlag = 0
CashlessReq FAIL ""
EndIf
If UserChoosePayment = "" Then
Var CashlessPayFlag = 0
CashlessReq FAIL ""
EndIf
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL ""
EndIf
DEBUGVAR UserChoosePayment
Var UserChoosePayment = ""
Var CancelContinue = 1
EndIf
EndIf
EndIf
EndIf
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> 445 </X>
<Y> 958 </Y>
<Width> 200 </Width>
<Height> 200 </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>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> AlphaLoadingState </State>
<Filename> "ROOT/taobin_project/image/page_payment/alpha.png" </Filename>
</Image>
<Image>
<X> 249 </X>
<Y> 748 </Y>
<State> AlphaPopupLoadingState </State>
<Filename> "ROOT/taobin_project/image/page_payment/alpha_popup.png" </Filename>
</Image>
<Text>
<X> 267 </X>
<Y> 1065 </Y>
<Width> 516 </Width>
<Height> 75 </Height>
<Size> 48 </Size>
<Font> RobotoBold </Font>
<Color> eval(
If AlphaLoadingState = "Enable" Then
Var return = 0xFFFFFF
Else
Var return = 0x5A5A5A
EndIf
)
</Color>
<Align> Center </Align>
<State> LOADING_STATE </State>
<Value> "Just Moment, Please" </Value>
;<Filename> Var( DirImage + "/loadingText.png" )</Filename>
</Text>
<GIF>
<X> 493 </X>
<Y> 968 </Y>
<Width> 94 </Width>
<Height> 94 </Height>
<State> LOADING_STATE </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>
<EventUnitTest1>
Var SELLONLINE = 1
Var EnoughChange = "nay"
Var PayState1 = "Enable"
</EventUnitTest1>
<EventUnitTest2>
Var SELLONLINE = 1
Var EnoughChange = "yes"
Var PayState1 = "Enable"
</EventUnitTest2>
<EventUnitTest3>
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
</EventUnitTest3>
</Popup>
Reference in a new issue View git blame Copy permalink