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

185
spiral/xml/page_spiral_payment_credit2.xml
View file

@ -258,7 +258,8 @@
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
@ -302,7 +303,8 @@
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
@ -345,7 +347,8 @@
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
@ -388,7 +391,8 @@
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
@ -431,7 +435,8 @@
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
@ -474,7 +479,8 @@
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
@ -517,7 +523,8 @@
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
@ -560,7 +567,8 @@
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
@ -603,7 +611,8 @@
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
@ -685,7 +694,8 @@
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowTextNumber = "Invisible"
@ -767,7 +777,7 @@
<Button>
<X> 218 </X>
<X> 397 </X>
<Y> 1607 </Y>
<Filename> Var( DirImage + "/bn_back.png") </Filename>
<FilenamePress> Var( DirImage + "/bn_back.png") </FilenamePress>
@ -779,60 +789,60 @@
</Button>
<Button>
<X> 577 </X>
<Y> 1607 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_confirm.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_confirm.png" )</FilenamePress>
<FilenameDisable> Var( DirImage + "/bn_confirm.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
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/spiral/xml/page_spiral_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
</EventClick>
</Button>
;<Button>
;<X> 577 </X>
;<Y> 1607 </Y>
;<Refresh> "Enable" </Refresh>
;<State> Tel_Confirm_State </State>
;<Filename> Var( DirImage + "/bn_confirm.png" ) </Filename>
;<FilenamePress> Var( DirImage + "/bp_confirm.png" )</FilenamePress>
;<FilenameDisable> Var( DirImage + "/bn_confirm.png" )</FilenameDisable>
;<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
;<Volume> SoundVolume </Volume>
;<EventClick>
;
; 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/spiral/xml/page_spiral_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
;
;
;</EventClick>
;</Button>
<Image>
<X> 242 </X>
@ -928,6 +938,51 @@
<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/spiral/xml/page_spiral_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>
</Popup>