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

AUS: Added new Coconut menus

Browse source
This commit is contained in:
Kenta420 2024-10-29 18:16:46 +07:00
parent ba4e593e13
commit 1f2efa60cc
60 changed files with 3896 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

116
xml/page_payment_cash-AUS.xml
View file

@ -516,6 +516,32 @@
EndIf
If ReqPayInfoFlag = 1 Then
If VendingQRTypeResult = "FZB:2" Then
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var QRCODE99FZB = SessionID
Var QRCODE99FZB = QRCODE99FZB + Ext1a
SAVELOG Ext1a
SAVELOG QRCODE99FZB
Var QRCODE99FZB = QRCODE99FZB + Ext21
Var QRCODETMP = QRCODE99FZB
Var ReqPayInfoFlag = 0
Var ReqPayInfoFlag2 = 1
SAVELOG QRCODE99FZB
SAVELOG Ext21
Var QRCODE99 = QRCODE99FZB
Var LOADING_STATE = "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 = "MBB:2" Then
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
@ -1507,6 +1533,96 @@ EndIf
</EventClick>
</Button>
;<Button>
;<X> 216 </X>
;<Y> 1499 </Y>
;<State> PayState3</State>
;<Filename> "ROOT/taobin_project/inter/aus/image/payment_cash/bn_pay_qrcode.png" </Filename>
;<FilenamePress> "ROOT/taobin_project/inter/aus/image/payment_cash/bp_pay_qrcode.png" </FilenamePress>
;<FilenameDisable> "ROOT/taobin_project/inter/aus/image/payment_cash/bd_pay_qrcode.png" </FilenameDisable>
;<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
;<Volume> SoundVolume </Volume>
;<EventClick>
;
; If Timeout < 120 Then
; If CoinInFlag = 0 Then
; If CancelFlag = 0 Then
; If alphaState = "Invisible" Then
;
; Var QR_POPUP = "/img_popup1.png"
; Var QRCODE99 = ""
;
; Var LOADING_STATE = "Enable"
;
; Var FlagQROpened = 1
; Var alphaState = "Enable"
;
; VendingQR ON
;
; Var SessionID2 = SelectSlot + ":"
; Var SessionID2 = SessionID2 + Seeker.ExtendData
;
; Var CreditAmount1 = ""
; Var ServiceAmountFlow = ""
; Var TelephoneNumberQR = "0899999999"
; Var ServiceType = "coffee"
; Var ECommerceQR = ""
; Var ECommerceQR = ECommerceQR + PriceDrink
; Var ECommerceQR = ECommerceQR + "/"
; Var ECommerceQR = ECommerceQR + DiscountDrink
; Var ECommerceQR = ECommerceQR + "/"
; Var ECommerceQR = ECommerceQR + SessionID2
; Var ECommerceQR = ECommerceQR + "/"
; Var ECommerceQR = ECommerceQR + SelectDrink
; Var ECommerceQR = ECommerceQR + "/"
; Var ECommerceQR = ECommerceQR + "FZB:2/"
;
; If Seeker.IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
; EndIf
;
; If Seeker.IntVendingCredit > 0 Then
; If Seeker.IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + "|"
; EndIf
; Var ECommerceQR = ECommerceQR + "CRD"
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.TNumberTaobinCredit
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.IntVendingCredit
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + PointCrm
; EndIf
;
;
; Var ServiceParameter = "max"
; Var ServiceCharge = 0
; Var AccountType = "new"
; Var testservice = "kbank"
; Var tc = ""
; Var GetScore = ""
; Var OperatorName = ""
; Var SessionID = ""
;
; Var PayDetail2 = Seeker.PayDetail2
; GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
; Var ReqPayInfoFlag = 1
; Refresh
; EndIf
; EndIf
; EndIf
; EndIf
;
;
;</EventClick>
;</Button>
<Button>
<X> 360 </X>
<Y> 1781 </Y>