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

fix Can use credit from current for next order

Browse source
This commit is contained in:
miggaze 2022-05-24 14:07:55 +07:00
parent 6dc2c89b7a
commit b45738d20e
13 changed files with 360 additions and 75 deletions
Download patch file Download diff file Expand all files Collapse all files

86
xml/page_payment_storeCredit2.xml
View file

@ -120,7 +120,7 @@
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable"
Function 2
;Function 2
EndIf
Var ShowErrorText = "Invisible"
@ -143,7 +143,9 @@
TimerReset
Refresh
If TelNumLen >= 4 Then
Function 2
EndIf
</EventClick>
</Button>
@ -163,7 +165,7 @@
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable"
Function 2
;Function 2
EndIf
Var ShowErrorText = "Invisible"
@ -185,6 +187,10 @@
TimerReset
Refresh
If TelNumLen >= 4 Then
Function 2
EndIf
</EventClick>
</Button>
@ -204,7 +210,7 @@
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable"
Function 2
;Function 2
EndIf
Var ShowErrorText = "Invisible"
@ -226,6 +232,10 @@
TimerReset
Refresh
If TelNumLen >= 4 Then
Function 2
EndIf
</EventClick>
</Button>
@ -245,7 +255,7 @@
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable"
Function 2
;Function 2
EndIf
Var ShowErrorText = "Invisible"
@ -267,6 +277,11 @@
TimerReset
Refresh
If TelNumLen >= 4 Then
Function 2
EndIf
</EventClick>
</Button>
@ -286,7 +301,7 @@
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable"
Function 2
;Function 2
EndIf
Var ShowErrorText = "Invisible"
@ -308,6 +323,10 @@
TimerReset
Refresh
If TelNumLen >= 4 Then
Function 2
EndIf
</EventClick>
</Button>
@ -327,7 +346,7 @@
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable"
Function 2
;Function 2
EndIf
Var ShowErrorText = "Invisible"
@ -349,6 +368,10 @@
TimerReset
Refresh
If TelNumLen >= 4 Then
Function 2
EndIf
</EventClick>
</Button>
@ -368,7 +391,7 @@
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable"
Function 2
;Function 2
EndIf
Var ShowErrorText = "Invisible"
@ -390,6 +413,10 @@
TimerReset
Refresh
If TelNumLen >= 4 Then
Function 2
EndIf
</EventClick>
</Button>
@ -409,7 +436,7 @@
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable"
Function 2
;Function 2
EndIf
Var ShowErrorText = "Invisible"
@ -431,6 +458,10 @@
TimerReset
Refresh
If TelNumLen >= 4 Then
Function 2
EndIf
</EventClick>
</Button>
@ -450,7 +481,7 @@
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable"
Function 2
;Function 2
EndIf
Var ShowErrorText = "Invisible"
@ -472,6 +503,10 @@
TimerReset
Refresh
If TelNumLen >= 4 Then
Function 2
EndIf
</EventClick>
</Button>
@ -492,7 +527,7 @@
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable"
Function 2
;Function 2
EndIf
Var ShowTextNumber = "Invisible"
@ -517,6 +552,10 @@
TimerReset
Refresh
If TelNumLen >= 4 Then
Function 2
EndIf
</EventClick>
</Button>
@ -759,8 +798,18 @@
If Seeker.pageStoreCredit0 = 1 Then
If Seeker = "next" Then
Var Curr = "curr"
Var CoffeeCreditKeep = StoreCreditAmount + 0
DEBUGVAR CoffeeCredit
DEBUGVAR Curr.CurrCreditAmount
If Seeker.TNumberTaobinCredit = Curr.CurrCreditTelNum Then
Var CoffeeCredit = CoffeeCredit + Curr.CurrCreditAmount
EndIf
EndIf
Var CoffeeCreditKeep = StoreCreditAmount + CoffeeCredit
Open "ROOT/taobin_project/xml/page_payment_storeCredit3.xml"
Else
@ -778,7 +827,18 @@
CoinVending BILLSTACKALL
Var CoffeeCreditKeep = RemainAmountKeep + 0
If Seeker = "next" Then
Var Curr = "curr"
DEBUGVAR CoffeeCredit
DEBUGVAR Curr.CurrCreditAmount
If Seeker.TNumberTaobinCredit = Curr.CurrCreditTelNum Then
Var CoffeeCredit = CoffeeCredit + Curr.CurrCreditAmount
EndIf
EndIf
Var CoffeeCreditKeep = RemainAmountKeep + CoffeeCredit
Open "ROOT/taobin_project/xml/page_payment_storeCredit3.xml"
EndIf