update referent id
This commit is contained in:
parent
664de8e601
commit
6e4196b61b
2 changed files with 15 additions and 23 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue