update addData 41 referent use serviceAmount & comment unsuse update serviceAmount

This commit is contained in:
Kenta420 2024-01-12 20:10:29 +07:00
parent 2e6d8e1c64
commit 07ccac5bc3
3 changed files with 18 additions and 14 deletions

View file

@ -944,12 +944,12 @@
If ReqAdddata22 = 0 Then If ReqAdddata22 = 0 Then
If Seeker = "next" Then ;If Seeker = "next" Then
Var Curr = "curr" ; Var Curr = "curr"
If TelephoneNumber = Curr.CurrCreditTelNum Then ; If TelephoneNumber = Curr.CurrCreditTelNum Then
Var SumCreditAmount = CoffeeCredit + Curr.CurrCreditAmount ; Var SumCreditAmount = CoffeeCredit + Curr.CurrCreditAmount
EndIf ; EndIf
EndIf ;EndIf
Var useCreditAmount = PayAmountSubDiscount Var useCreditAmount = PayAmountSubDiscount
Var BmiYear = useCreditAmount Var BmiYear = useCreditAmount

View file

@ -46,12 +46,12 @@
Var AcceptAuto = "false" Var AcceptAuto = "false"
If Seeker = "next" Then ;If Seeker = "next" Then
Var Curr = "curr" ; Var Curr = "curr"
If TelephoneNumber = Curr.CurrCreditTelNum Then ; If TelephoneNumber = Curr.CurrCreditTelNum Then
Var SumCreditAmount2 = SumCreditAmount + Curr.CurrCreditAmount ; Var SumCreditAmount2 = SumCreditAmount + Curr.CurrCreditAmount
EndIf ; EndIf
EndIf ;EndIf
If show_eng = "true" Then If show_eng = "true" Then

View file

@ -368,8 +368,12 @@
If CoinAmount >= ServiceAmountSupCampain Then If CoinAmount >= ServiceAmountSupCampain Then
Var CurrAmount = Seeker.CurrCreditAmount Var CurrAmount = Seeker.CurrCreditAmount
Var RefID = "0/" + Seeker.CreditNotEnoughRefID
Var Seeker.CreditReferenceTmp = RefID Var RefID = "" + ServiceAmountSupCampain
Var RefID = RefID + "/"
Var RefID = RefID + Seeker.CreditNotEnoughRefID
Var Seeker.CreditReferenceTmp = "0/" + Seeker.CreditNotEnoughRefID
Else Else
Var CurrAmount = CoinAmount Var CurrAmount = CoinAmount
Var RefID = "" + ServiceAmountSupCampain Var RefID = "" + ServiceAmountSupCampain