update referent id

This commit is contained in:
Kenta420 2024-01-12 17:50:35 +07:00
parent 664de8e601
commit 6e4196b61b
2 changed files with 15 additions and 23 deletions

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