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

add xendit and debug telnum

Browse source
This commit is contained in:
miggaze 2022-09-19 11:48:38 +07:00
parent 4232f8669e
commit 49a688cb9f
18 changed files with 406 additions and 59 deletions
Download patch file Download diff file Expand all files Collapse all files

55
xml/page_payment_credit.xml
View file

@ -18,6 +18,7 @@
Var ShowTextNumber = "Enable"
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
Var Tel_Confirm_State = "Invisible"
Var GetCreditFlag = 0
@ -192,6 +193,7 @@
Function 2
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "1"
@ -234,6 +236,7 @@
Function 2
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "2"
@ -276,6 +279,7 @@
Function 2
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "3"
@ -318,6 +322,7 @@
Function 2
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "4"
@ -360,6 +365,7 @@
Function 2
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "5"
@ -402,6 +408,7 @@
Function 2
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "6"
@ -444,6 +451,7 @@
Function 2
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "7"
@ -486,6 +494,7 @@
Function 2
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "8"
@ -528,6 +537,7 @@
Function 2
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "9"
@ -571,6 +581,7 @@
TimerReset
Refresh
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "0"
@ -611,6 +622,7 @@
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
TimerReset
Refresh
@ -713,6 +725,14 @@
<Filename> Var( DirImage + "/text_show_notfound.png") </Filename>
</Image>
<Image>
<X> 152 </X>
<Y> 920 </Y>
<State> ShowErrorText2 </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_show_error5.png") </Filename>
</Image>
;<Image>
;<X> 0 </X>
@ -736,8 +756,39 @@
</EventSecurity>
<Function2>
Var GetAccFlag = 1
GETACCEXT TelephoneNumber 19
Var Tel2DFlag = 0
Var Tel2D = TelephoneNumber
Trim Tel2D 2
If Tel2D = "06" Then
Var Tel2DFlag = 1
EndIf
If Tel2D = "07" Then
Var Tel2DFlag = 1
EndIf
If Tel2D = "08" Then
Var Tel2DFlag = 1
EndIf
If Tel2D = "09" Then
Var Tel2DFlag = 1
EndIf
If Tel2DFlag = 1 Then
Var GetAccFlag = 1
GETACCEXT TelephoneNumber 19
Else
Var ShowErrorText2 = "Enable"
;Var TelephoneNumber = ""
Var Tel_Confirm_State = "Invisible"
Refresh
EndIf
</Function2>