Multi Credit

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

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