"Enable"
1080
1920
"0xeae6e1"
; On open
Var GetPayInfoFlag = 0
Var SessionID2 = ""
Var testservice = "kbank"
Var QRCODE99 = ""
Var QRCODETMP = ""
Var QRChannel = 0
Var HaveCup = "true"
;Var PriceDrink = 5
Var DiscountDrink = 0
Var SelectSlot = "1"
SAVELOG BoxID
Var QRCODE1 = "A000000677010112"
Var QRCODE2 = "010755600066301"
Var QRCODE3 = "VDGN"
Var QRCODE4 = BoxID
Var QRCODE5 = SelectSlot
Var QRCODE6 = SelectDrink
Var QRCODE7 = PriceDrink
Var QRCODE8 = ""
Var CountStepPackPayment = 0
Var VendingCode = "C00"
Var VendingCampaignRI3 = 0
Var IntVendingCampaign = 0
Var FreeVendingCampaign = 0
Var CodeChannel = 0
Var CoinVendingOnFlag = 0
Var IntVendingCredit = 0
Var StoreCreditFlag = 0
Var pageStoreCredit0 = 0
Var TNumberTaobinCredit = ""
Var TNumberTaobinMember = ""
Var VendingTSIDTmp = ""
Var TNumberTaobinMember = ""
Var VendingTSIDTmp = ""
Var PayType = ""
Var CART_INDEX = 0
Var QRCODE99KBANK = ""
Var QRCODE99Shoppy = ""
Var LOADING_STATE = "Invisible"
Var QR_POPUP = "/img_popup2.png"
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var PlaySoundLag = "ROOT/taobin_project/sound_eng/How_would_you_like_to_pay.mp3"
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var PlaySoundLag = "ROOT/taobin_project/sound_thai/payment.mp3"
EndIf
SAVELOG MachineStage
If ReadyForBrew = "false" Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
Var ReadyForBrew = "false"
EndIf
If MachineStage = "remove-cup" Then
Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml"
EndIf
If CupChecking = "true" Then
Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml"
EndIf
Var MachineStage = "-"
Var PayReference = ""
900
If ReadyForBrew = "false" Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
Var ReadyForBrew = "false"
EndIf
If MachineStage = "remove-cup" Then
Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml"
EndIf
Var CountStepPackPayment = CountStepPackPayment + 1
If CountStepPackPayment = 1 Then
SAVELOG ExtendData
If GetPayInfoFlag = 0 Then
If RoadShow = "false" Then
;CoinVending ON
CoinVending XBILL
EndIf
Var RemainAmount = 0
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"
;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 Timeout = 0
;Var GetPayInfoFlag = 1
;Var ReqPayInfoFlag = 1
EndIf
; Reset
Var MachineState_Result = 0
DEBUGVAR ExtendData
If web_readyOK = "true" Then
If web_payment = "CODE" Then
Open "ROOT/taobin_project/xml/page_payment_code.xml"
EndIf
If web_payment = "CREDIT" Then
Open "ROOT/taobin_project/xml/page_payment_credit2.xml"
EndIf
EndIf
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
TimerReset
Refresh
;
; 0
; 0
; "ROOT/taobin_project/image/ad_medium_2.png"
;
375
623
331
435
PictureDrink
0
938
1080
Center
72
KanitMediumTTF
0x513C2F
showname
0
1022
1080
Center
24
KanitLightTTF
0x6F5F51
showdesc
144
413
Var( DirImage + "/text_1.png" )