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

update referent id

Browse source
This commit is contained in:
Kenta420 2024-01-12 17:50:35 +07:00
parent 7f17b1e81b
commit c138c28967
2 changed files with 15 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

21
xml/page_payment_storeCredit.xml
View file

@ -100,27 +100,6 @@
INT CoffeeCredit
Var Seeker.CoffeePinNumber = Ext1c
If Seeker = "next" Then
Var Curr = "curr"
DEBUGVAR CoffeeCredit
DEBUGVAR Curr.CurrCreditAmount
If TelephoneNumber = Curr.CurrCreditTelNum Then
Var CoffeeCredit = CoffeeCredit + Curr.CurrCreditAmount
If Curr.CurrCreditUse > 0 Then
Var CoffeeCredit = CoffeeCredit - Curr.CurrCreditUse
If CoffeeCredit < 0 Then
Var CoffeeCredit = 0
EndIf
EndIf
EndIf
EndIf
Var Seeker.TNumberTaobinCredit = TelephoneNumber
If Seeker.pageStoreCredit0 = 1 Then

17
xml/page_thankyou.xml
View file

@ -363,10 +363,23 @@
If Seeker.CreditNotEnoughRefID = "" Then
Else
Var CurrAmount = Seeker.CurrCreditAmount
Var ServiceAmountSupCampain = Seeker.ServiceAmount2 - Seeker.IntVendingCampaign
If CoinAmount >= ServiceAmountSupCampain Then
Var CurrAmount = Seeker.CurrCreditAmount
Var RefID = "0/" + Seeker.CreditNotEnoughRefID
Var Seeker.CreditReferenceTmp = RefID
Else
Var CurrAmount = CoinAmount
Var RefID = "" + ServiceAmountSupCampain
Var RefID = RefID + "/"
Var RefID = RefID + Seeker.CreditNotEnoughRefID
Var Seeker.CreditReferenceTmp = RefID
EndIf
Var CurrTelePhoneNum = Seeker.CurrCreditTelNum
Var CurrPinNum = Seeker.CurrCreditPinNum
Var RefID = Seeker.CreditNotEnoughRefID
AddData 41 CurrTelePhoneNum CurrAmount CurrPinNum RefID
EndIf