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

88
xml/page_check_member.xml
View file

@ -15,6 +15,7 @@
Var ShowTextNumber = "Enable"
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
Var Tel_Confirm_State = "Invisible"
Var GetCreditFlag = 0
@ -186,13 +187,16 @@
Var TelephoneNumber = TelephoneNumber + "1"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "1"
@ -232,6 +236,10 @@
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "2"
@ -271,6 +279,10 @@
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "3"
@ -310,6 +322,10 @@
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "4"
@ -349,6 +365,10 @@
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "5"
@ -388,6 +408,10 @@
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "6"
@ -427,6 +451,10 @@
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "7"
@ -466,6 +494,10 @@
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "8"
@ -504,6 +536,10 @@
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "9"
@ -544,6 +580,10 @@
TimerReset
Refresh
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "0"
@ -583,6 +623,7 @@
EndIf
;Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
TimerReset
Refresh
@ -621,8 +662,37 @@
<Volume> SoundVolume </Volume>
<EventClick>
;GETACCEXT TelephoneNumber 14
GETACCEXT TelephoneNumber 19
DEBUGVAR "PICHET"
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
GETACCEXT TelephoneNumber 19
Else
Var ShowErrorText2 = "Enable"
;Var TelephoneNumber = ""
Var Tel_Confirm_State = "Invisible"
Refresh
EndIf
</EventClick>
</Button>
@ -677,7 +747,15 @@
<Y> 942 </Y>
<State> ShowErrorText </State>
<Refresh> "Enable" </Refresh>
<Filename> "ROOT/taobin_project/image/collectiing/text_show_notfound.png" </Filename>
<Filename> Var( DirImage + "/text_show_notfound.png") </Filename>
</Image>
<Image>
<X> 152 </X>
<Y> 910 </Y>
<State> ShowErrorText2 </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_show_error5.png") </Filename>
</Image>