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

Multi Credit

Browse source
This commit is contained in:
miggaze 2021-12-09 15:15:11 +07:00
parent 651d132fab
commit 5a3054d098
4 changed files with 73 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

3
xml/page_board.xml
View file

@ -14,6 +14,9 @@
DEBUGVAR SoundVolume
Var PauseOrder = "false"
DEBUGVAR web_ref
DEBUGVAR web_payment
DEBUGVAR web_telnum

24
xml/page_brewing3.xml
View file

@ -534,7 +534,7 @@
Var PayDetail = PayDetail + NOBONUS
Var PayDetail="1/S:0/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1"
;Var PayDetail="1/S:0/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1"
If GetFreeFromError = 1 Then
Var CodeChannel = 1
@ -963,15 +963,19 @@
</EventClick>
</Button>
<Button>
<X> 10 </X>
<Y> 424 </Y>
<Filename> next_pic_bg </Filename>
<EventClick>
Var PauseOrder = "true"
Open "ROOT/taobin_project/xml/page_catalog.xml"
</EventClick>
</Button>
;<Button>
;<X> 10 </X>
;<Y> 424 </Y>
;<Filename> next_pic_bg </Filename>
;<EventClick>
; Var PauseOrder = "true"
; Var Seeker = "next"
;
; Open "ROOT/taobin_project/xml/page_catalog_choose_drink1.xml"
;</EventClick>
;</Button>
</Popup>

28
xml/page_payment_cash.xml
View file

@ -534,7 +534,11 @@
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0
EndIf
Open "ROOT/taobin_project/xml/page_catalog.xml"
If PauseOrder = "false" Then
Open "ROOT/taobin_project/xml/page_catalog.xml"
Else
Open "ROOT/taobin_project/xml/page_brewing3.xml"
EndIf
EndIf
@ -579,9 +583,23 @@
Var CancelFlag = 1
Var CancelCounter = 0
If CoinAmount = 0 Then
If IntVendingCredit > 0 Then
Var BmiYear = IntVendingCredit
Var GetScore = "useCredit"
AddData 24 TNumberTaobinCredit BmiYear PointCrm GetScore
Var IntVendingCredit = 0
EndIf
If IntVendingCampaign = 0 Then
VendingQR OFF
Open "ROOT/taobin_project/xml/page_catalog.xml"
If PauseOrder = "false" Then
Open "ROOT/taobin_project/xml/page_catalog.xml"
Else
Open "ROOT/taobin_project/xml/page_brewing3.xml"
EndIf
EndIf
EndIf
@ -648,7 +666,11 @@
;EndIf
Var ActionOKCase = 1
If IntVendingCampaign = 0 Then
Open "ROOT/taobin_project/xml/page_catalog.xml"
If PauseOrder = "false" Then
Open "ROOT/taobin_project/xml/page_catalog.xml"
Else
Open "ROOT/taobin_project/xml/page_brewing3.xml"
EndIf
EndIf
EndIf
EndIf

31
xml/page_payment_cashMore.xml
View file

@ -568,6 +568,13 @@
Var CancelFlag = 1
Var CancelCounter = 0
If CoinAmount = 0 Then
If IntVendingCredit > 0 Then
Var BmiYear = IntVendingCredit
Var GetScore = "useCredit"
AddData 24 TNumberTaobinCredit BmiYear PointCrm GetScore
Var IntVendingCredit = 0
EndIf
If IntVendingCampaign = 0 Then
VendingQR OFF
@ -1037,6 +1044,12 @@
If CoinInFlag = 0 Then
VendingQR OFF
If IntVendingCredit > 0 Then
Var BmiYear = IntVendingCredit
Var GetScore = "useCredit"
AddData 24 TNumberTaobinCredit BmiYear PointCrm GetScore
Var IntVendingCredit = 0
EndIf
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
@ -1360,6 +1373,12 @@
<State> cart1_en </State>
<Filename> "ROOT/taobin_project/image/page_payment/iconX.png" </Filename>
<EventClick>
If IntVendingCredit > 0 Then
Var BmiYear = IntVendingCredit
Var GetScore = "useCredit"
AddData 24 TNumberTaobinCredit BmiYear PointCrm GetScore
Var IntVendingCredit = 0
EndIf
Cart "DeleteMenuID" 1
</EventClick>
@ -1399,6 +1418,12 @@
<State> cart2_en </State>
<Filename> "ROOT/taobin_project/image/page_payment/iconX.png" </Filename>
<EventClick>
If IntVendingCredit > 0 Then
Var BmiYear = IntVendingCredit
Var GetScore = "useCredit"
AddData 24 TNumberTaobinCredit BmiYear PointCrm GetScore
Var IntVendingCredit = 0
EndIf
Cart "DeleteMenuID" 2
</EventClick>
</Button>
@ -1438,6 +1463,12 @@
<State> cart3_en </State>
<Filename> "ROOT/taobin_project/image/page_payment/iconX.png" </Filename>
<EventClick>
If IntVendingCredit > 0 Then
Var BmiYear = IntVendingCredit
Var GetScore = "useCredit"
AddData 24 TNumberTaobinCredit BmiYear PointCrm GetScore
Var IntVendingCredit = 0
EndIf
Cart "DeleteMenuID" 3
</EventClick>