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

fix store_credit2

Browse source
This commit is contained in:
miggaze 2022-02-11 17:05:36 +07:00
parent e455f5b439
commit 78dbb33325
1 changed files with 69 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

79
xml/page_payment_storeCredit2.xml
View file

@ -119,7 +119,8 @@
StrLen PinNumber TelNumLen StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable" ;Var Tel_Confirm_State = "Enable"
Function 2
EndIf EndIf
Var ShowErrorText = "Invisible" Var ShowErrorText = "Invisible"
@ -161,7 +162,8 @@
StrLen PinNumber TelNumLen StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable" ;Var Tel_Confirm_State = "Enable"
Function 2
EndIf EndIf
Var ShowErrorText = "Invisible" Var ShowErrorText = "Invisible"
@ -201,7 +203,8 @@
StrLen PinNumber TelNumLen StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable" ;Var Tel_Confirm_State = "Enable"
Function 2
EndIf EndIf
Var ShowErrorText = "Invisible" Var ShowErrorText = "Invisible"
@ -241,7 +244,8 @@
StrLen PinNumber TelNumLen StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable" ;Var Tel_Confirm_State = "Enable"
Function 2
EndIf EndIf
Var ShowErrorText = "Invisible" Var ShowErrorText = "Invisible"
@ -281,7 +285,8 @@
StrLen PinNumber TelNumLen StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable" ;Var Tel_Confirm_State = "Enable"
Function 2
EndIf EndIf
Var ShowErrorText = "Invisible" Var ShowErrorText = "Invisible"
@ -321,7 +326,8 @@
StrLen PinNumber TelNumLen StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable" ;Var Tel_Confirm_State = "Enable"
Function 2
EndIf EndIf
Var ShowErrorText = "Invisible" Var ShowErrorText = "Invisible"
@ -361,7 +367,8 @@
StrLen PinNumber TelNumLen StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable" ;Var Tel_Confirm_State = "Enable"
Function 2
EndIf EndIf
Var ShowErrorText = "Invisible" Var ShowErrorText = "Invisible"
@ -401,7 +408,8 @@
StrLen PinNumber TelNumLen StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable" ;Var Tel_Confirm_State = "Enable"
Function 2
EndIf EndIf
Var ShowErrorText = "Invisible" Var ShowErrorText = "Invisible"
@ -441,7 +449,8 @@
StrLen PinNumber TelNumLen StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable" ;Var Tel_Confirm_State = "Enable"
Function 2
EndIf EndIf
Var ShowErrorText = "Invisible" Var ShowErrorText = "Invisible"
@ -482,7 +491,8 @@
Trim PinNumber 4 Trim PinNumber 4
StrLen PinNumber TelNumLen StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable" ;Var Tel_Confirm_State = "Enable"
Function 2
EndIf EndIf
Var ShowTextNumber = "Invisible" Var ShowTextNumber = "Invisible"
@ -737,5 +747,54 @@
</EventMachine> </EventMachine>
<Function2>
If FlagOKButton = 0 Then
Var FlagOKButton = 1
Var Seeker.StoreCreditFlag = 1
Var Seeker.CoffeePinNumber = PinNumber
If Seeker.pageStoreCredit0 = 1 Then
Var CoffeeCreditKeep = StoreCreditAmount + 0
Open "ROOT/taobin_project/xml/page_payment_storeCredit3.xml"
Else
If ViewBill < RemainAmount Then
CoinVending BILLSTACKALL
;Open "ROOT/taobin_project/xml/page_payment_cash.xml"
Var FlagWaitUpdateCoinAmount = 1
Var Timeout = 0
Else
CoinVending BILLSTACKALL
Var CoffeeCreditKeep = RemainAmountKeep + 0
Open "ROOT/taobin_project/xml/page_payment_storeCredit3.xml"
EndIf
EndIf
EndIf
Refresh
</Function2>
</Popup> </Popup>