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 b2c68fb725
commit 6e0f591aa1
3 changed files with 18 additions and 14 deletions

View file

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

View file

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

View file

@ -368,8 +368,12 @@
If CoinAmount >= ServiceAmountSupCampain Then
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
Var CurrAmount = CoinAmount
Var RefID = "" + ServiceAmountSupCampain