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

add lazada and indo malay

Browse source
This commit is contained in:
pichet 2023-01-16 14:44:05 +07:00
parent b5481c7aef
commit c67964fa20
83 changed files with 4905 additions and 1019 deletions
Download patch file Download diff file Expand all files Collapse all files

394
xml/page_payment_credit.xml
View file

@ -29,11 +29,7 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
Var number7 = ""
Var number8 = ""
Var number9 = ""
Var number10 = ""
Var Ext1a = ""
Var GetAccFlag = 0
@ -66,6 +62,19 @@
EndIf
Var MaxNumber = 10
Var PosX_Cancel = 397
If CountryName = "Malaysia" Then
EndIf
If CountryName = "Indonesia" Then
Var MaxNumber = 12
Var PosX_Cancel = 218
EndIf
@ -190,37 +199,28 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "1"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
Var ShowTextNumber = "Invisible"
If TelNumLen >= 10 Then
;Var Tel_Confirm_State = "Enable"
Function 2
If MaxNumber > 10 Then
Var Tel_Confirm_State = "Enable"
Else
Function 2
EndIf
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "1"
EndIf
TimerReset
Refresh
If TelNumLen = 8 Then
Var number8 = "1"
EndIf
If TelNumLen = 9 Then
Var number9 = "1"
EndIf
If TelNumLen = 10 Then
Var number10 = "1"
EndIf
EndIf
</EventClick>
</Button>
@ -233,37 +233,25 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "2"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
Var ShowTextNumber = "Invisible"
If TelNumLen >= 10 Then
;Var Tel_Confirm_State = "Enable"
Function 2
If MaxNumber > 10 Then
Var Tel_Confirm_State = "Enable"
Else
Function 2
EndIf
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "2"
EndIf
If TelNumLen = 8 Then
Var number8 = "2"
EndIf
If TelNumLen = 9 Then
Var number9 = "2"
EndIf
If TelNumLen = 10 Then
Var number10 = "2"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -276,37 +264,25 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "3"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
Var ShowTextNumber = "Invisible"
If TelNumLen >= 10 Then
;Var Tel_Confirm_State = "Enable"
Function 2
If MaxNumber > 10 Then
Var Tel_Confirm_State = "Enable"
Else
Function 2
EndIf
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "3"
EndIf
If TelNumLen = 8 Then
Var number8 = "3"
EndIf
If TelNumLen = 9 Then
Var number9 = "3"
EndIf
If TelNumLen = 10 Then
Var number10 = "3"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -319,37 +295,25 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "4"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
Var ShowTextNumber = "Invisible"
If TelNumLen >= 10 Then
;Var Tel_Confirm_State = "Enable"
Function 2
If MaxNumber > 10 Then
Var Tel_Confirm_State = "Enable"
Else
Function 2
EndIf
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "4"
EndIf
If TelNumLen = 8 Then
Var number8 = "4"
EndIf
If TelNumLen = 9 Then
Var number9 = "4"
EndIf
If TelNumLen = 10 Then
Var number10 = "4"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -362,37 +326,25 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "5"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
Var ShowTextNumber = "Invisible"
If TelNumLen >= 10 Then
;Var Tel_Confirm_State = "Enable"
Function 2
If MaxNumber > 10 Then
Var Tel_Confirm_State = "Enable"
Else
Function 2
EndIf
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "5"
EndIf
If TelNumLen = 8 Then
Var number8 = "5"
EndIf
If TelNumLen = 9 Then
Var number9 = "5"
EndIf
If TelNumLen = 10 Then
Var number10 = "5"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -405,37 +357,25 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "6"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
Var ShowTextNumber = "Invisible"
If TelNumLen >= 10 Then
;Var Tel_Confirm_State = "Enable"
Function 2
If MaxNumber > 10 Then
Var Tel_Confirm_State = "Enable"
Else
Function 2
EndIf
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "6"
EndIf
If TelNumLen = 8 Then
Var number8 = "6"
EndIf
If TelNumLen = 9 Then
Var number9 = "6"
EndIf
If TelNumLen = 10 Then
Var number10 = "6"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -448,37 +388,25 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "7"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
Var ShowTextNumber = "Invisible"
If TelNumLen >= 10 Then
;Var Tel_Confirm_State = "Enable"
Function 2
If MaxNumber > 10 Then
Var Tel_Confirm_State = "Enable"
Else
Function 2
EndIf
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "7"
EndIf
If TelNumLen = 8 Then
Var number8 = "7"
EndIf
If TelNumLen = 9 Then
Var number9 = "7"
EndIf
If TelNumLen = 10 Then
Var number10 = "7"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -491,37 +419,25 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "8"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
Var ShowTextNumber = "Invisible"
If TelNumLen >= 10 Then
;Var Tel_Confirm_State = "Enable"
Function 2
If MaxNumber > 10 Then
Var Tel_Confirm_State = "Enable"
Else
Function 2
EndIf
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "8"
EndIf
If TelNumLen = 8 Then
Var number8 = "8"
EndIf
If TelNumLen = 9 Then
Var number9 = "8"
EndIf
If TelNumLen = 10 Then
Var number10 = "8"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -534,37 +450,25 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "9"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
Var ShowTextNumber = "Invisible"
If TelNumLen >= 10 Then
;Var Tel_Confirm_State = "Enable"
Function 2
If MaxNumber > 10 Then
Var Tel_Confirm_State = "Enable"
Else
Function 2
EndIf
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "9"
EndIf
If TelNumLen = 8 Then
Var number8 = "9"
EndIf
If TelNumLen = 9 Then
Var number9 = "9"
EndIf
If TelNumLen = 10 Then
Var number10 = "9"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -577,38 +481,25 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber 10
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
If TelNumLen >= 10 Then
If MaxNumber > 10 Then
Var Tel_Confirm_State = "Enable"
Else
Function 2
EndIf
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "0"
EndIf
If TelNumLen = 8 Then
Var number8 = "0"
EndIf
If TelNumLen = 9 Then
Var number9 = "0"
EndIf
If TelNumLen = 10 Then
Var number10 = "0"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -623,9 +514,12 @@
<EventClick>
Var Timeout = 0
Trim TelephoneNumber -1
Var Tel_Confirm_State = "Invisible"
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var Tel_Confirm_State = "Invisible"
EndIf
If TelNumLen = 0 Then
Var ShowTextNumber = "Enable"
@ -639,9 +533,8 @@
</EventClick>
</Button>
<Button>
<X> 397 </X>
<X> PosX_Cancel </X>
<Y> 1607 </Y>
<Filename> Var( DirImage + "/bn_cancel2.png" )</Filename>
@ -675,8 +568,7 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var GetAccFlag = 1
GETACCEXT TelephoneNumber 19
Function 2
</EventClick>