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

fix credit2

Browse source
This commit is contained in:
miggaze 2022-02-11 16:39:43 +07:00
parent 387221ec42
commit e455f5b439
1 changed files with 66 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

77
xml/page_payment_credit2.xml
View file

@ -49,7 +49,7 @@
Var AcceptAuto = "false" Var AcceptAuto = "false"
Var Tel_Confirm_State = "Enable" ;Var Tel_Confirm_State = "Enable"
Var ShowTextNumber1 = "Enable" Var ShowTextNumber1 = "Enable"
Var ShowTextNumber2= "Enable" Var ShowTextNumber2= "Enable"
@ -258,7 +258,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"
@ -302,7 +303,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"
@ -345,7 +347,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"
@ -388,7 +391,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"
@ -431,7 +435,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"
@ -474,7 +479,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"
@ -517,7 +523,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"
@ -560,7 +567,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"
@ -603,7 +611,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"
@ -685,7 +694,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"
@ -927,6 +937,51 @@
</EventSecurity> </EventSecurity>
<Function2>
Var ShowSentSmsText = "Invisible"
Var Timeout = 0
If PinNumberUser = PinNumber Then
Var SumCreditAmount = CoffeeCredit
If SumCreditAmount >= PayAmount Then
If ReqAdddata22 = 0 Then
Var BmiYear = PayAmount
Var GetScore = "useCredit"
AddData 22 TelephoneNumber BmiYear PointCrm GetScore
Var ReqAdddata22 = 1
EndIf
Else
Open "ROOT/taobin_project/xml/page_payment_credit3.xml"
EndIf
Else
Var ShowErrorText = "Enable"
Var PinNumber = ""
Var ShowTextNumber1 = "Invisible"
Var ShowTextNumber2 = "Invisible"
Var ShowTextNumber3 = "Invisible"
Var ShowTextNumber4 = "Invisible"
EndIf
;Var DataTmp = TelephoneNumber + "/"
;Var DataTmp = DataTmp + PinNumber
;GETACCEXT DataTmp 19
Var ReqFlag = 0
Refresh
</Function2>