Merge branch 'master' of forthrd.ddns.net:/1TBHDD/ikong/taobin_project

This commit is contained in:
kong 2021-11-26 17:20:44 +07:00
commit f784957d0c
61 changed files with 1057 additions and 437 deletions

View file

@ -13,11 +13,22 @@
DEBUGVAR SoundVolume
DEBUGVAR web_ref
DEBUGVAR web_payment
DEBUGVAR web_telnum
DEBUGVAR web_code
DEBUGVAR web_pin
Var web_telnumOK = ""
Var web_readyOK = "false"
Var GetFreeFromError = 0
Var taobin_version = "1.53"
Cart "DeleteMenuID" "ALL"
Var MultiPayEnable = "true"
Var ShoppyPayEnable = "true"
Var PayType = ""
; On open
@ -124,17 +135,27 @@
EndIf
DEBUGVAR NetworkStatus
If NetworkStatus = "ACTIVATE" Then
Var ShowNetworkProblem = "Invisible"
Var ShowNetworkProblemText = ""
Machine NetworkUp
GenHashWithTimeStamp QRCODE99
WEB "ENABLE"
Else
Var ShowNetworkProblem = "Enable"
Var ShowButtonClick2 = "Invisible"
Var ShowNetworkProblemText = "การสื่อสารขัดข้อง ชำระเงินได้เฉพาะเงินสด"
Machine NetworkDown
Var QRCODE99 = ""
WEB "DISABLE"
EndIf
@ -301,6 +322,8 @@
Var showCart = "Invisible"
</EventOpen>
<Timeout> 1000 </Timeout>
@ -480,10 +503,27 @@
</EventNetDeactive>
<EventWebApp>
DEBUGVAR web_ready
DEBUGVAR web_ready
If web_ready = "true" Then
If web_ref = QRCODE99 Then
Var web_readyOK = web_ready
Var web_telnumOK = web_telnum
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml"
TopView "show"
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml"
EndIf
Else
EndIf
</EventWebApp>
<Video>
<X> 0 </X>
<Y> 0 </Y>
@ -617,6 +657,15 @@
<Value> ShowNetworkProblemText </Value>
</Text>
<QRCode>
<X> 895 </X>
<Y> 1110 </Y>
<Width> 178 </Width>
<Height> 178 </Height>
<State> "Enable" </State>
<Service> testservice </Service>
</QRCode>
<Button>
<X> 0 </X>

View file

@ -8,7 +8,9 @@
TopView "show"
; On open
Var web_readyOK = "false"
Var web_telnumOK = ""
If CocktailShow = "true" Then
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_cocktail.xml"
@ -61,11 +63,18 @@
If NetworkStatus = "ACTIVATE" Then
Var ShowNetworkProblem = "Invisible"
Var ShowNetworkProblemText = ""
GenHashWithTimeStamp QRCODE99
WEB "ENABLE"
Else
Var ShowNetworkProblem = "Enable"
Var ShowButtonClick2 = "Invisible"
Var ShowNetworkProblemText = "การสื่อสารขัดข้อง ชำระเงินได้เฉพาะเงินสด"
Var QRCODE99 = ""
WEB "DISABLE"
EndIf
; 1035 is Coke.
@ -80,6 +89,9 @@
DEBUGVAR CART_COUNT
Var QRCODE99_Y = 1718
Var showCart = "Invisible"
If MultiPayEnable = "true" Then
@ -87,12 +99,18 @@
Var showCart = "Enable"
Var cart_image_bn = DirImageCart + "/bn_cart1.png"
Var cart_image_bp = DirImageCart + "/bp_cart1.png"
Var QRCODE99_Y = 1580
EndIf
If CART_COUNT = 2 Then
Var showCart = "Enable"
Var cart_image_bn = DirImageCart + "/bn_cart2.png"
Var cart_image_bp = DirImageCart + "/bp_cart2.png"
Var QRCODE99_Y = 1580
EndIf
@ -129,6 +147,25 @@
;EndIf
</EventChangeStatus>
<EventWebApp>
DEBUGVAR web_ready
If web_ready = "true" Then
If web_ref = QRCODE99 Then
Cart "DeleteMenuID" "ALL"
Var web_readyOK = web_ready
Var web_telnumOK = web_telnum
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml"
EndIf
Else
EndIf
</EventWebApp>
<Video>
<X> 0 </X>
@ -355,6 +392,15 @@
</EventClick>
</Button>
<QRCode>
<X> 895 </X>
<Y> QRCODE99_Y</Y>
<Width> 178 </Width>
<Height> 178 </Height>
<State> "Enable" </State>
<Service> testservice </Service>
</QRCode>
; Cart
@ -378,4 +424,6 @@
</Button>
</Popup>

View file

@ -962,7 +962,7 @@
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_member_topup1.xml"
Open "ROOT/taobin_project/xml/page_member_topup2.xml"
</EventClick>
</Button>

View file

@ -28,11 +28,33 @@
Var FromConsent = 0
If TNumberTaobinCredit = "" Then
Var number7 = ""
Var number8 = ""
Var number9 = ""
Var number10 = ""
If web_telnumOK = "" Then
Else
Var TelephoneNumber = web_telnumOK
Var StepGetPoint = 0
Var PdpaAsk = 0
Var OperatorTemp = ""
Var CreditAmount = 0
Var OperatorStatus = ""
Var AccountType = ""
SAVELOG "collect_point1-p52."
GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
EndIf
Else
Var TelephoneNumber = TNumberTaobinCredit
@ -46,7 +68,7 @@
Var OperatorStatus = ""
Var AccountType = ""
SAVELOG "collect_point1-p49."
SAVELOG "collect_point1-p71."
GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
@ -80,8 +102,9 @@
DEBUGVAR Timeout
Var Timeout = Timeout + 1
If Timeout > 20 Then
If Timeout > 30 Then
SAVELOG "collect_point1-p107."
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
@ -563,6 +586,7 @@
<Volume> SoundVolume </Volume>
<EventClick>
; goto lid straw
SAVELOG "collect_point1-p589."
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
</EventClick>
</Button>

View file

@ -100,13 +100,13 @@
Var TNumberTaobinMemberXXX = TelephoneNumber
Trim TNumberTaobinMemberXXX 3
;Trim TNumberTaobinMemberXXX 3
;Var TNumberTaobinMemberXXX = TNumberTaobinMemberXXX + "-XXX-"
Var TNumberTaobinMemberXXX = "XXX-XXX-"
Var TNumberTaobinMemberXXX = TNumberTaobinMemberXXX + number7
Var TNumberTaobinMemberXXX = TNumberTaobinMemberXXX + number8
Var TNumberTaobinMemberXXX = TNumberTaobinMemberXXX + number9
Var TNumberTaobinMemberXXX = TNumberTaobinMemberXXX + number10
;Var TNumberTaobinMemberXXX = "XXX-XXX-"
;Var TNumberTaobinMemberXXX = TNumberTaobinMemberXXX + number7
;Var TNumberTaobinMemberXXX = TNumberTaobinMemberXXX + number8
;Var TNumberTaobinMemberXXX = TNumberTaobinMemberXXX + number9
;Var TNumberTaobinMemberXXX = TNumberTaobinMemberXXX + number10
If TaobinLevel = 1 Then
Var PointTaobin = PayAmount / 20

View file

@ -1074,6 +1074,7 @@
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> TNumberTaobinMemberXXX </Value>
<Format> Telnum-mask-1 </Format>
</Text>
<Text>

View file

@ -390,13 +390,13 @@
<Button>
<X> 757 </X>
<Y> 424 </Y>
<X> 160 </X>
<Y> 1673 </Y>
<State> buttonRemoveCup </State>
;<Color> "0x00BDFF" </Color>
<Interval> 500 </Interval>
<Filename> "ROOT/taobin_project/image/main_page/bn_remove_cup.png" </Filename>
<Filename> "ROOT/taobin_project/image/main_page/bp_remove_cup.png" </Filename>
<Filename> Var( DirImage + "/bn_open_door.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_open_door.png" ) </FilenamePress>
<EventClick>
Machine RemoveCup
Machine DoorLidOpen

View file

@ -50,11 +50,17 @@
Var next_pic_bg = ""
Var BlinkImg = 0
Var txtDrinkOKState = "Invisible"
If show_eng = "true" Then
If CART_COUNT > 0 Then
If CART_INDEX < CART_COUNT Then
Var next_pic_bg = DirImage + "/Preparing.png"
Var BlinkImg = 1
Var txtDrinkOKState = "Enable"
Var cart_next = CART_INDEX + 1
Var nextCount = "" + cart_next
@ -83,6 +89,8 @@
If CART_INDEX < CART_COUNT Then
Var next_pic_bg = DirImage + "/Preparing.png"
Var BlinkImg = 1
Var txtDrinkOKState = "Enable"
Var cart_next = CART_INDEX + 1
Var nextCount = "" + cart_next
@ -141,6 +149,19 @@
Var MultiGo = 1
EndIf
If BlinkImg = 1 Then
Var next_pic_bg = DirImage + "/Preparing.png"
Var BlinkImg = 2
Else
If BlinkImg = 2 Then
Var next_pic_bg = DirImage + "/Preparing.png"
Var BlinkImg = 1
EndIf
EndIf
If MultiGo = 1 Then
If CART_INDEX = CART_COUNT Then
@ -323,16 +344,16 @@
<Text>
<X> 0 </X>
<Y> 1886 </Y>
<Size> 20 </Size>
<Width> 1080</Width>
<Align> end </Align>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Value> countClick2 </Value>
</Text>
;<Text>
;<X> 0 </X>
;<Y> 1886 </Y>
;<Size> 20 </Size>
;<Width> 1080</Width>
;<Align> end </Align>
;<Font> RobotoBlack </Font>
;<Color> 0x513C2F </Color>
;<Value> countClick2 </Value>
;</Text>
<Image>
@ -371,15 +392,22 @@
<Filename> next_pic </Filename>
</Image>
<Image>
<X> 77 </X>
<Y> 1378 </Y>
<State> txtDrinkOKState </State>
<Filename> Var( DirImage + "/txtDrinkOK.png" ) </Filename>
</Image>
<Button>
<X> 757 </X>
<Y> 424 </Y>
<X> 160 </X>
<Y> 1673 </Y>
<State> buttonRemoveCup </State>
;<Color> "0x00BDFF" </Color>
<Interval> 500 </Interval>
<Filename> "ROOT/taobin_project/image/main_page/bn_remove_cup.png" </Filename>
<Filename> "ROOT/taobin_project/image/main_page/bp_remove_cup.png" </Filename>
<Filename> Var( DirImage + "/bn_open_door.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_open_door.png" ) </FilenamePress>
<EventClick>
Machine RemoveCup
Machine DoorLidOpen

View file

@ -128,7 +128,7 @@
<Button>
<X> 287 </X>
<Y> 638 </Y>
<Y> 670 </Y>
<State> PayState1</State>
<Filename> Var( DirImage + "/bn_cash.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_cash.png") </FilenamePress>
@ -146,7 +146,7 @@
<Button>
<X> 287 </X>
<Y> 819 </Y>
<Y> 800 </Y>
<State> PayState3</State>
<Filename> Var( DirImage + "/bn_prompt_pay.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_prompt_pay.png") </FilenamePress>

View file

@ -52,6 +52,11 @@
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"
@ -119,39 +124,55 @@
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 = ""
;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
;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

View file

@ -6,6 +6,9 @@
<Volume> SoundVolume </Volume>
<Sound> PlaySoundLag </Sound>
<EventOpen>
DEBUGVAR QRCODETMP
DEBUGVAR IsSmoRet
Var countClick2 = 0
;SAVELOG SelectDrink
@ -19,7 +22,7 @@
DEBUGVAR SelectDrink
DEBUGVAR video_menu_0
Var FlagQROpened = 0
Var PayInfoCFlag = 0
@ -28,8 +31,11 @@
Var PayAmount = PriceDrink
Var LOADING_STATE = "Invisible"
; Below original
; On open
Var alphaState = "Invisible"
Var alphaState2 = "Invisible"
Var alphaState3 = "Invisible"
@ -40,7 +46,7 @@
Var CancelFlag = 0
Var CancelCounter = 0
Var CoinInCounter = 0
Var CancelNumber = 2
Var CancelNumber = 3
Var PayAmount = PriceDrink
Var RemainAmount = PayAmount - IntVendingCampaign
@ -66,19 +72,21 @@
Var ServiceCharge = 0
Var Donate = ""
Var SuggestID = ""
Var CancleState = "Invisible"
Var CancleState = "Enable"
Var VendingDiscount = DiscountDrink
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var QRErrorFlag = 0
SAVELOG SelectDrink
SAVELOG QRChannel
SAVELOG QRCODE99
DEBUGVAR QRCODE99
SAVELOG VendingCampaign
SAVELOG VendingCode
@ -89,49 +97,14 @@
Var CodeChannel = 0
EndIf
If RoadShow = "false" Then
If QRChannel = 0 Then
;Var VendingQRCode = "ERROR"
VendingQR ON
If CoinVendingOnFlag = 0 Then
;CoinVending ON
Var CoinVendingOnFlag = 1
Else
EndIf
;Var QRCODE99 = ""
Else
;Var VendingQRCode = "OK"
VendingQR ON
CoinVending OFF
Var QRCODE99 = QRCODETMP
Var RemainAmountStr = ""
Var CashTextWarning = ""
If QRCODE99 = "" Then
Var CashTextWarning = "ระบบ Promtpay ไม่สามารถใช้งานได้ในขณะนี้"
Var QRErrorState = "Enable"
Else
Var QRErrorState = "Invisible"
EndIf
EndIf
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
@ -139,23 +112,28 @@
If IntVendingCampaign = 0 Then
Var PayState2 = "Enable"
Var PayState4 = "Enable"
Var PayState5 = "Enable"
Else
Var PayState2 = "Disable"
Var PayState4 = "Disable"
Var PayState5 = "Disable"
EndIf
Var PayState3 = "Enable"
If CoinAmount > 0 Then
Var PayState2 = "Disable"
Var PayState3 = "Disable"
Var PayState4 = "Disable"
Var PayState5 = "Disable"
Var CoinInFlag = 1
EndIf
If IntVendingCredit > 0 Then
Var PayState2 = "Disable"
Var PayState4 = "Disable"
Var PayState5 = "Disable"
EndIf
@ -267,6 +245,7 @@
Var PayState2 = "Disable"
Var PayState3 = "Disable"
Var PayState4 = "Disable"
Var PayState5 = "Disable"
Var PayOfflineMode = 1
Else
@ -290,13 +269,13 @@
If DisableUsingCode = "true" Then
SAVELOG "Diable code because using topping."
Var PayState2 = "Disable"
Var pay_with_code_image = DirImage + "/bp_pay_with_code_error.png"
Var pay_with_code_image = DirImage + "/bn_pay_with_codeSmall_error.png"
Else
If IntVendingCredit > 0 Then
Var pay_with_code_image = DirImage + "/bp_pay_with_code_error2.png"
Var pay_with_credit_image = DirImage + "/bp_pay_with_credit_error2.png"
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"
@ -308,10 +287,94 @@
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"
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 IntVendingCampaign > 0 Then
Var ECommerceQR = ECommerceQR + VendingCode
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + CodeNumber
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + VendingCampaignRI3
EndIf
If IntVendingCredit > 0 Then
Var ECommerceQR = ECommerceQR + "CRD"
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + TNumberTaobinCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + 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
EndIf
</EventOpen>
<EventActionOk>
Var VendingQRTypeResult = ""
DEBUGVAR ECommerceQR
SPLIT ECommerceQR "/" 5 VendingQRTypeResult
If ActionOKCase = 0 Then
If VendingREFID = "" Then
SAVELOG "menu_page4-QR.xml > ActOK_REFID"
@ -338,24 +401,73 @@
EndIf
If ReqPayInfoFlag = 1 Then
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var QRCODE99 = SessionID
Var QRCODE99 = QRCODE99 + Ext1a
SAVELOG Ext1a
SAVELOG QRCODE99
Var QRCODE99 = QRCODE99 + Ext21
Var QRCODETMP = QRCODE99
Var ReqPayInfoFlag = 0
SAVELOG QRCODE99
SAVELOG Ext21
If VendingQRTypeResult = "KBA:2" Then
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var QRCODE99KBANK = SessionID
Var QRCODE99KBANK = QRCODE99KBANK + Ext1a
SAVELOG Ext1a
SAVELOG QRCODE99KBANK
Var QRCODE99KBANK = QRCODE99KBANK + Ext21
Var QRCODETMP = QRCODE99KBANK
Var ReqPayInfoFlag = 0
SAVELOG QRCODE99KBANK
SAVELOG Ext21
Var QRCODE99 = QRCODE99KBANK
Var LOADING_STATE = "Invisible"
EndIf
EndIf
If ReqPayInfoFlag = 2 Then
If VendingQRTypeResult = "AIR:2" Then
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var QRCODE99Shoppy = SessionID
Var QRCODE99Shoppy = QRCODE99Shoppy + Ext1a
SAVELOG Ext1a
SAVELOG QRCODE99Shoppy
Var QRCODE99Shoppy = QRCODE99Shoppy + Ext21
Var ReqPayInfoFlag = 0
SAVELOG QRCODE99Shoppy
SAVELOG Ext21
Var QRCODE99 = QRCODE99Shoppy
Var LOADING_STATE = "Invisible"
EndIf
EndIf
Else
Var PayInfoCFlag = 1
EndIf
</EventActionOk>
<EventActionError>
If ActionOKCase = 0 Then
If ReqPayInfoFlag = 1 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
EndIf
EndIf
If ReqPayInfoFlag = 2 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
EndIf
EndIf
EndIf
Refresh
</EventActionError>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -373,6 +485,11 @@
If Timeout >= 120 Then
Var alphaState = "Invisible"
Var PayState3 = "Disable"
Var PayState5 = "Disable"
Var LOADING_STATE = "Invisible"
Var QRErrorState = "Invisible"
EndIf
@ -664,6 +781,7 @@
If CoinInOK = 0 Then
If CancelFlag = 0 Then
SAVELOG "VDCancle > Cancle Order."
Machine CancelWepApp
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
@ -714,10 +832,10 @@
; back
<Button>
<X> 19 </X>
<Y> 420 </Y>
<Filename> "ROOT/taobin_project/image/page2/bn_back_arrow.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page2/bn_back_arrow.png" </FilenamePress>
<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>
@ -725,6 +843,7 @@
If CoinInOK = 0 Then
If CancelFlag = 0 Then
SAVELOG "ButtonCancleMain > Cancle Order."
Machine CancelWepApp
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
@ -766,7 +885,7 @@
<Button>
<X> 287 </X>
<Y> 1254 </Y>
<Y> 1261 </Y>
<State> PayState1</State>
<Filename> FilenameShowbuttonCashBN </Filename>
<FilenamePress> FilenameShowbuttonCashBP </FilenamePress>
@ -802,7 +921,7 @@
<Button>
<X> 287 </X>
<Y> 1696</Y>
<Y> 1677</Y>
<State> PayState2</State>
<Filename> Var( DirImage + "/bn_pay_with_code.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_code.png") </FilenamePress>
@ -827,7 +946,7 @@
<Button>
<X> 287 </X>
<Y> 1401 </Y>
<Y> 1365 </Y>
<State> PayState3</State>
<Filename> Var( DirImage + "/bn_prompt_pay.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_prompt_pay.png") </FilenamePress>
@ -841,27 +960,78 @@
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
If QRCODE99 = "" Then
Var CashTextWarning = "ระบบ Promtpay ไม่สามารถใช้งานได้ในขณะนี้"
Var QRErrorState = "Enable"
Else
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
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 IntVendingCampaign > 0 Then
Var ECommerceQR = ECommerceQR + VendingCode
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + CodeNumber
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + VendingCampaignRI3
EndIf
If IntVendingCredit > 0 Then
Var ECommerceQR = ECommerceQR + "CRD"
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + TNumberTaobinCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + 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
Refresh
If CoinAmount > 0 Then
Change CoinAmount
Var ChangeOK = 0
Var CancelFlag = 1
Var CancelCounter = 0
Var NoGotoMenupage = "true"
;If CoinAmount > 0 Then
; Change CoinAmount
; Var ChangeOK = 0
; Var CancelFlag = 1
; Var CancelCounter = 0
; Var NoGotoMenupage = "true"
;
;EndIf
EndIf
EndIf
EndIf
@ -880,7 +1050,7 @@
<Button>
<X> 287 </X>
<Y> 1548 </Y>
<Y> 1573 </Y>
<State> PayState4</State>
<Filename> Var( DirImage + "/bn_pay_with_credit.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_credit.png") </FilenamePress>
@ -907,12 +1077,91 @@
</Button>
<Button>
<X> 438 </X>
<Y> 1786 </Y>
<X> 287 </X>
<Y> 1469 </Y>
<State> PayState5</State>
<Filename> Var( DirImage + "/bn_pay_with_shoppy.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_shoppy.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_pay_with_shoppy.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If Timeout < 120 Then
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
If alphaState = "Invisible" Then
Var QR_POPUP = "/img_popup2.png"
Var LOADING_STATE = "Enable"
Var QRCODE99 = ""
Var FlagQROpened = 1
Var alphaState = "Enable"
;CoinVending OFF
VendingQR ON
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + 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 + VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + CodeNumber
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + 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> 287 </X>
<Y> 1781 </Y>
<State>CancleState</State>
<Filename> Var( DirImage + "/bn_cancel.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel.png" ) </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_cancel.png" ) </FilenameDisable>
<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>
@ -924,6 +1173,10 @@
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 CancelCounter = 0
@ -1000,8 +1253,26 @@
<X> 249 </X>
<Y> 748 </Y>
<State> alphaState </State>
<Filename> Var( DirImage + "/img_popup1.png" )</Filename>
<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>
@ -1012,8 +1283,11 @@
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var LOADING_STATE = "Invisible"
Var QRErrorState = "Invisible"
Var alphaState = "Invisible"
Var QRCODE99 = ""
;CoinVending ON
;VendingQR OFF
Refresh
@ -1052,6 +1326,10 @@
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 CancelCounter = 0
@ -1156,7 +1434,7 @@
<QRCode>
<X> 399 </X>
<Y> 912 </Y>
<Y> 905 </Y>
<Width> WQR </Width>
<Height> HQR </Height>
<State> alphaState </State>
@ -1164,10 +1442,10 @@
</QRCode>
<Button>
<X> 490 </X>
<Y> 1050 </Y>
<X> 267 </X>
<Y> 960 </Y>
<State>QRErrorState</State>
<Filename> "ROOT/taobin_project/image/page_payment/QRError.png" </Filename>
<Filename> Var( DirImage + "/QRError.png" ) </Filename>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
@ -1265,4 +1543,7 @@
</Button>
</Popup>

View file

@ -25,6 +25,8 @@
Var VendingCampaign = IntVendingCampaign
Var PayAmount = PriceDrink
Var LOADING_STATE = "Invisible"
; Below original
; On open
@ -38,7 +40,7 @@
Var CancelFlag = 0
Var CancelCounter = 0
Var CoinInCounter = 0
Var CancelNumber = 2
Var CancelNumber = 3
Var PayAmount = PriceDrink
Var RemainAmount = PayAmount - IntVendingCampaign
@ -66,13 +68,14 @@
Var ServiceCharge = 0
Var Donate = ""
Var SuggestID = ""
Var CancleState = "Invisible"
Var CancleState = "Enable"
Var VendingDiscount = DiscountDrink
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var QRErrorFlag = 0
SAVELOG SelectDrink
@ -132,6 +135,7 @@
Var PayState2 = "Invisible"
Var PayState3 = "Invisible"
Var PayState4 = "Invisible"
Var PayState5 = "Invisible"
Var showRemaining = "Free"
Else
@ -139,23 +143,28 @@
If IntVendingCampaign = 0 Then
Var PayState2 = "Enable"
Var PayState4 = "Enable"
Var PayState5 = "Enable"
Else
Var PayState2 = "Disable"
Var PayState4 = "Disable"
Var PayState5 = "Disable"
EndIf
Var PayState3 = "Enable"
If CoinAmount > 0 Then
Var PayState2 = "Disable"
Var PayState3 = "Disable"
Var PayState4 = "Disable"
Var PayState5 = "Disable"
Var CoinInFlag = 1
EndIf
If IntVendingCredit > 0 Then
Var PayState2 = "Disable"
Var PayState4 = "Disable"
Var PayState5 = "Disable"
EndIf
@ -175,11 +184,11 @@
Var PayWithQR = 0
Var NoGotoMenupage = "false"
If show_eng = "true" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cashSmall.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_en/page_payment/bp_cashSmall.png"
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_cashSmall.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cashSmall.png"
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash.png"
EndIf
@ -267,6 +276,7 @@
Var PayState2 = "Disable"
Var PayState3 = "Disable"
Var PayState4 = "Disable"
Var PayState5 = "Disable"
Var PayOfflineMode = 1
Else
@ -308,11 +318,11 @@
If CART_COUNT = 1 Then
Var pay_with_code_imagebn = "/bn_pay_with_codeSmall.png"
Var pay_with_code_imagebp = "/bp_pay_with_codeSmall.png"
Var pay_with_code_imagebn = "/bn_pay_with_code.png"
Var pay_with_code_imagebp = "/bp_pay_with_code.png"
Else
Var pay_with_code_imagebn = "/bn_pay_with_codeSmall_error.png"
Var pay_with_code_imagebp = "/bp_pay_with_codeSmall_error.png"
Var pay_with_code_imagebp = "/bn_pay_with_codeSmall_error.png"
Var PayState2 = "Disable"
EndIf
@ -331,10 +341,20 @@
Var AddOrderState = "Invisible"
EndIf
If ShoppyPayEnable = "true" Then
Else
Var PayState5 = "Disable"
EndIf
</EventOpen>
<EventActionOk>
Var VendingQRTypeResult = ""
DEBUGVAR ECommerceQR
SPLIT ECommerceQR "/" 5 VendingQRTypeResult
If ActionOKCase = 0 Then
If VendingREFID = "" Then
SAVELOG "menu_page4-QR.xml > ActOK_REFID"
@ -362,24 +382,72 @@
EndIf
If ReqPayInfoFlag = 1 Then
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var QRCODE99 = SessionID
Var QRCODE99 = QRCODE99 + Ext1a
SAVELOG Ext1a
SAVELOG QRCODE99
Var QRCODE99 = QRCODE99 + Ext21
Var QRCODETMP = QRCODE99
Var ReqPayInfoFlag = 0
SAVELOG QRCODE99
SAVELOG Ext21
If VendingQRTypeResult = "KBA:2" Then
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var QRCODE99KBANK = SessionID
Var QRCODE99KBANK = QRCODE99KBANK + Ext1a
SAVELOG Ext1a
SAVELOG QRCODE99KBANK
Var QRCODE99KBANK = QRCODE99KBANK + Ext21
Var QRCODETMP = QRCODE99KBANK
Var ReqPayInfoFlag = 0
SAVELOG QRCODE99KBANK
SAVELOG Ext21
Var QRCODE99 = QRCODE99KBANK
Var LOADING_STATE = "Invisible"
EndIf
EndIf
If ReqPayInfoFlag = 2 Then
If VendingQRTypeResult = "AIR:2" Then
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var QRCODE99Shoppy = SessionID
Var QRCODE99Shoppy = QRCODE99Shoppy + Ext1a
SAVELOG Ext1a
SAVELOG QRCODE99Shoppy
Var QRCODE99Shoppy = QRCODE99Shoppy + Ext21
Var ReqPayInfoFlag = 0
SAVELOG QRCODE99Shoppy
SAVELOG Ext21
Var QRCODE99 = QRCODE99Shoppy
Var LOADING_STATE = "Invisible"
EndIf
EndIf
Else
Var PayInfoCFlag = 1
EndIf
</EventActionOk>
<EventActionError>
If ActionOKCase = 0 Then
If ReqPayInfoFlag = 1 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
EndIf
EndIf
If ReqPayInfoFlag = 2 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
EndIf
EndIf
EndIf
Refresh
</EventActionError>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -397,6 +465,10 @@
If Timeout >= 120 Then
Var alphaState = "Invisible"
Var PayState3 = "Disable"
Var PayState5 = "Disable"
Var LOADING_STATE = "Invisible"
Var QRErrorState = "Invisible"
EndIf
@ -854,12 +926,12 @@
Var SessionID = ""
GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var Timeout = 0
Var QRCODE99 = ""
Var QRCODETMP = ""
Var ReqPayInfoFlag = 1
;Var ReqPayInfoFlag = 1
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
@ -942,6 +1014,7 @@
<EventClick>
If CoinInFlag = 0 Then
VendingQR OFF
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
@ -951,7 +1024,7 @@
<Button>
<X> 287 </X>
<Y> 1240 </Y>
<Y> 1261 </Y>
<State> PayState1</State>
<Filename> FilenameShowbuttonCashBN </Filename>
<FilenamePress> FilenameShowbuttonCashBP </FilenamePress>
@ -990,7 +1063,7 @@
<Button>
<X> 287 </X>
<Y> 1612</Y>
<Y> 1677</Y>
<State> PayState2</State>
<Filename> Var( DirImage + pay_with_code_imagebn) </Filename>
<FilenamePress> Var( DirImage + pay_with_code_imagebp") </FilenamePress>
@ -1015,11 +1088,11 @@
<Button>
<X> 287 </X>
<Y> 1364 </Y>
<Y> 1365 </Y>
<State> PayState3</State>
<Filename> Var( DirImage + "/bn_prompt_paySmall.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_prompt_paySmall.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_prompt_paySmall.png") </FilenameDisable>
<Filename> Var( DirImage + "/bn_prompt_pay.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_prompt_pay.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_prompt_pay.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
@ -1030,27 +1103,62 @@
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
Var QR_POPUP = "/img_popup1.png"
Var LOADING_STATE = "Enable"
Var FlagQROpened = 1
Var alphaState = "Enable"
;CoinVending OFF
VendingQR ON
If QRCODE99 = "" Then
Var CashTextWarning = "ระบบ Promtpay ไม่สามารถใช้งานได้ในขณะนี้"
Var QRErrorState = "Enable"
Else
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + "00000"
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 IntVendingCredit > 0 Then
Var ECommerceQR = ECommerceQR + "CRD"
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + TNumberTaobinCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + 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
Refresh
If CoinAmount > 0 Then
Change CoinAmount
Var ChangeOK = 0
Var CancelFlag = 1
Var CancelCounter = 0
Var NoGotoMenupage = "true"
EndIf
;If CoinAmount > 0 Then
; Change CoinAmount
; Var ChangeOK = 0
; Var CancelFlag = 1
; Var CancelCounter = 0
; Var NoGotoMenupage = "true"
;
;EndIf
EndIf
EndIf
EndIf
@ -1068,11 +1176,11 @@
<Button>
<X> 287 </X>
<Y> 1488 </Y>
<Y> 1573 </Y>
<State> PayState4</State>
<Filename> Var( DirImage + "/bn_pay_with_creditSmall.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_creditSmall.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_pay_with_creditSmall.png") </FilenameDisable>
<Filename> Var( DirImage + "/bn_pay_with_credit.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_credit.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_pay_with_credit.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
@ -1097,11 +1205,79 @@
<Button>
<X> 287 </X>
<Y> 1736 </Y>
<Y> 1469 </Y>
<State> PayState5</State>
<Filename> Var( DirImage + "/bn_pay_with_shoppy.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_shoppy.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_pay_with_shoppy.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If CoinInFlag = 0 Then
If CancelFlag = 0 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-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 + "AIR: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 ReqPayInfoFlag = 2
Refresh
EndIf
EndIf
</EventClick>
</Button>
<Button>
<X> 287 </X>
<Y> 1781 </Y>
<State> CancleState</State>
<Filename> Var( DirImage + "/bn_cancel_all.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_cancel_all.png") </FilenamePress>
<FilenameDisable> pay_with_credit_image </FilenameDisable>
<FilenameDisable> Var( DirImage + "/bp_cancel_all.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
@ -1126,52 +1302,7 @@
</EventClick>
</Button>
<Button>
<X> 438 </X>
<Y> 1786 </Y>
<State>CancleState</State>
<Filename> Var( DirImage + "/bn_cancel.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel.png" ) </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_cancel.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."
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
If FlagQROpened = 1 Then
Var CancelNumber = 12
EndIf
EndIf
EndIf
;If CoinAmount > 0 Then
; Change CoinAmount
; Var ChangeOK = 0
; Var CancelFlag = 1
; Var CancelCounter = 0
;
;Else
; ;Var ChangeOK = 1
;EndIf
;Open "ROOT/taobin_project/xml/page_catalog.xml"
Refresh
</EventClick>
</Button>
<Image>
<X> 60 </X>
@ -1324,7 +1455,23 @@
<X> 249 </X>
<Y> 748 </Y>
<State> alphaState </State>
<Filename> Var( DirImage + "/img_popup1.png" )</Filename>
<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>
@ -1336,8 +1483,11 @@
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var LOADING_STATE = "Invisible"
Var QRErrorState = "Invisible"
Var alphaState = "Invisible"
Var QRCODE99 = ""
;CoinVending ON
;VendingQR OFF
Refresh
@ -1480,7 +1630,7 @@
<QRCode>
<X> 399 </X>
<Y> 912 </Y>
<Y> 905 </Y>
<Width> WQR </Width>
<Height> HQR </Height>
<State> alphaState </State>
@ -1488,10 +1638,10 @@
</QRCode>
<Button>
<X> 490 </X>
<Y> 1050 </Y>
<X> 267 </X>
<Y> 960 </Y>
<State>QRErrorState</State>
<Filename> "ROOT/taobin_project/image/page_payment/QRError.png" </Filename>
<Filename> Var( DirImage + "/QRError.png" ) </Filename>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>

View file

@ -34,6 +34,63 @@
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If web_readyOK = "true" Then
Var web_readyOK = "false"
If web_code = "" Then
Else
Var ShowTextNumber = "Invisible"
Var Tel_Confirm_State = "Enable"
Var GetPayInfoFlag = 1
VendingQR OFF
Var TelephoneNumber = web_code
Var CodeNumber = TelephoneNumber
Var RemainAmount = 0
;PrepareDrink SelectDrink SelectSugarID
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber2 = "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 + "C00"
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + CodeNumber
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var Timeout = 0
Var TelephoneNumber = CodeNumber
Var CodeChannel = 1
EndIf
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -109,6 +166,10 @@
Var VendingCode = "C00"
EndIf
If VendingCode = "AIR" Then
Var VendingCode = "C00"
EndIf
SAVELOG VendingCode
SAVELOG VendingCampaignRI3
@ -150,147 +211,78 @@
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
;Var SessionID2 = SelectSlot + ":"
;Var SessionID2 = SessionID2 + ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber2 = "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 + "KBA:2/"
Var ECommerce = ECommerce + VendingCode
Var ECommerce = ECommerce + ":"
Var ECommerce = ECommerce + CodeNumber
Var ECommerce = ECommerce + ":"
Var ECommerce = ECommerce + VendingCampaignRI3
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
;Var CreditAmount1 = ""
;Var ServiceAmountFlow = ""
;Var TelephoneNumber2 = "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 + "KBA:2/"
;Var ECommerce = ECommerce + VendingCode
;Var ECommerce = ECommerce + ":"
;Var ECommerce = ECommerce + CodeNumber
;Var ECommerce = ECommerce + ":"
;Var ECommerce = ECommerce + VendingCampaignRI3
;Var ServiceParameter = "max"
;Var ServiceCharge = 0
;Var AccountType = "new"
;Var testservice = "kbank"
;Var tc = ""
;Var GetScore = ""
;Var OperatorName = ""
;Var SessionID = ""
;GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0
;Var CodeChannel = 2
Var CodeChannel = 1
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
Else
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var Timeout = 0
Var CodeChannel = 2
Else
Var FreeVendingCampaign = 1
If VendingCode = "C24" Then
Var VendingCampaign = PayAmount
CoinVending OFF
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
If VendingCode = "C25" Then
Var VendingCampaign = PayAmount
CoinVending OFF
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
If VendingCode = "C30" Then
Var VendingCampaign = PayAmount
CoinVending OFF
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
If VendingCode = "C32" Then
Var VendingCampaign = PayAmount
CoinVending OFF
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
If VendingCode = "C33" Then
Var VendingCampaign = PayAmount
CoinVending OFF
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
If VendingCode = "C34" Then
Var VendingCampaign = PayAmount
CoinVending OFF
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
If VendingCode = "C36" Then
Var VendingCampaign = PayAmount
CoinVending OFF
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
If VendingCode = "C38" Then
Var VendingCampaign = PayAmount
CoinVending OFF
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
If VendingCode = "C41" Then
Var VendingCampaign = PayAmount
CoinVending OFF
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
Var ShowErrorText = "Enable"
Var text_show_error = DirImage + "/text_show_error.png"
Var GetPayInfoFlag = 0
Var CodeChannel = 0
EndIf
EndIf
Else
SAVELOG "CodeChannel 2 > ActOK."
Var CreditAmount = 0
Var QRCODE99 = SessionID
Var QRCODE99 = QRCODE99 + Ext1a
Var QRCODE99 = QRCODE99 + Ext21
Var QRCODETMP = QRCODE99
Var CodeChannel = 1
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
Else
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
;SAVELOG "CodeChannel 2 > ActOK."
;
;Var CreditAmount = 0
;Var QRCODE99 = SessionID
;Var QRCODE99 = QRCODE99 + Ext1a
;Var QRCODE99 = QRCODE99 + Ext21
;Var QRCODETMP = QRCODE99
;Var CodeChannel = 1
;
;If CART_COUNT >= 1 Then
; Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
;Else
; Open "ROOT/taobin_project/xml/page_payment_cash.xml"
;EndIf
EndIf
@ -652,11 +644,10 @@
Var CodeNumber = TelephoneNumber
Var RemainAmount = 0
PrepareDrink SelectDrink SelectSugarID
;PrepareDrink SelectDrink SelectSugarID
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + sugarID
Var SessionID2 = SessionID2 + "000"
Var SessionID2 = SessionID2 + ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""

View file

@ -40,6 +40,28 @@
EndIf
Var Ext1a = ""
If web_readyOK = "true" Then
Var web_readyOK = "false"
Var Tel_Confirm_State = "Enable"
Var ShowTextNumber1 = "Enable"
Var ShowTextNumber2= "Enable"
Var ShowTextNumber3= "Enable"
Var ShowTextNumber4= "Enable"
Var PinNumber = web_pin
Var TelephoneNumber = web_telnum
Var DataTmp = TelephoneNumber + "/"
Var DataTmp = DataTmp + PinNumber
GETACCEXT DataTmp 13
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>

View file

@ -181,47 +181,45 @@
Var CoffeePinNumber = PinNumber
Var IntVendingCredit = SumCreditAmount
;Var PriceDrinkWithCredit = PriceDrink - SumCreditAmount
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumberQR = "0899999999"
If CART_COUNT >= 1 Then
Var ServiceType = "coffee-multi"
Else
Var ServiceType = "coffee"
EndIf
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 ECommerceQR = ECommerceQR + "CRD"
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + TNumberTaobinCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + SumCreditAmount
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 QRCODE99 = ""
Var QRCODETMP = ""
Var ReqPayInfoFlag = 1
;Var SessionID2 = SelectSlot + ":"
;Var SessionID2 = SessionID2 + ExtendData
;Var CreditAmount1 = ""
;Var ServiceAmountFlow = ""
;Var TelephoneNumberQR = "0899999999"
;If CART_COUNT >= 1 Then
; Var ServiceType = "coffee-multi"
;Else
; Var ServiceType = "coffee"
;EndIf
;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 ECommerceQR = ECommerceQR + "CRD"
;Var ECommerceQR = ECommerceQR + ":"
;Var ECommerceQR = ECommerceQR + TNumberTaobinCredit
;Var ECommerceQR = ECommerceQR + ":"
;Var ECommerceQR = ECommerceQR + SumCreditAmount
;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 QRCODE99 = ""
;Var QRCODETMP = ""
;
;Var ReqPayInfoFlag = 1

View file

@ -167,6 +167,11 @@
Var AddPointFlag = 0
Var PayType = ""
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"
@ -240,37 +245,37 @@
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + "00000"
;Var SessionID2 = SelectSlot + ":"
;Var SessionID2 = SessionID2 + "00000"
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"
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
;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"
;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
;GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0
;Var GetPayInfoFlag = 1
;Var ReqPayInfoFlag = 1
EndIf

View file

@ -80,6 +80,7 @@
<Volume> SoundVolume </Volume>
<EventClick>
SAVELOG "Press Accept"
SAVELOG "show_consent-p83."
If UnitTestType = "1" Then
Var CoffeePoint = 10
@ -106,6 +107,7 @@
<EventClick>
; goto lid straw
SAVELOG "Press Decline"
SAVELOG "show_consent-p110."
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
</EventClick>
</Button>