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

AUS: Add coconut promotion

Browse source
This commit is contained in:
Kenta420 2024-11-01 18:36:22 +07:00
parent 5665af3706
commit 8ca07a13e4
19 changed files with 26351 additions and 2847 deletions
Download patch file Download diff file Expand all files Collapse all files

262
xml/page_payment_cash-AUS.xml
View file

@ -1534,94 +1534,182 @@ EndIf
</Button>
<Button>
<X> 328 </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>
;<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>
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> 552 </X>
<Y> 1499 </Y>
<State> PayState3</State>
<Filename> "ROOT/taobin_project/inter/aus/image/payment_cash/bn_pay_with_codeOther.png" </Filename>
<FilenamePress> "ROOT/taobin_project/inter/aus/image/payment_cash/bp_pay_with_codeOther.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/inter/aus/image/payment_cash/bd_pay_with_codeOther.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>