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

add spiral

Browse source
This commit is contained in:
worawut 2022-09-22 09:30:59 +07:00
parent 2c9bd0a030
commit 9b87c6a59e
3 changed files with 407 additions and 364 deletions
Download patch file Download diff file Expand all files Collapse all files

89
spiral/xml/page_spiral_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
@ -156,9 +157,11 @@
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "1"
@ -197,9 +200,11 @@
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "2"
@ -238,9 +243,11 @@
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "3"
@ -279,9 +286,11 @@
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "4"
@ -320,9 +329,11 @@
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "5"
@ -361,9 +372,11 @@
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "6"
@ -402,9 +415,11 @@
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "7"
@ -443,9 +458,11 @@
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "8"
@ -484,9 +501,11 @@
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "9"
@ -522,13 +541,15 @@
Trim TelephoneNumber 10
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "0"
@ -569,6 +590,8 @@
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
TimerReset
Refresh
@ -577,7 +600,7 @@
<Button>
<X> 218 </X>
<X> 397 </X>
<Y> 1607 </Y>
<Filename> Var( DirImage + "/bn_cancel2.png" )</Filename>
@ -671,6 +694,13 @@
<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>
@ -686,13 +716,46 @@
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<Function2>
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>