add lazada and indo malay

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

View file

@ -43,10 +43,7 @@
Var number7 = ""
Var number8 = ""
Var number9 = ""
Var number10 = ""
Var StepX = 2
@ -58,6 +55,20 @@
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_enter_your_mobile_to_credit_balance.mp3"
EndIf
Var MaxNumber = 10
If CountryName = "Malaysia" Then
EndIf
If CountryName = "Indonesia" Then
Var MaxNumber = 12
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -192,7 +203,7 @@
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "1"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
@ -204,22 +215,7 @@
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "1"
EndIf
If TelNumLen = 8 Then
Var number8 = "1"
EndIf
If TelNumLen = 9 Then
Var number9 = "1"
EndIf
If TelNumLen = 10 Then
Var number10 = "1"
EndIf
</EventClick>
</Button>
@ -234,7 +230,7 @@
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "2"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
Trim TelephoneNumber MaxNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
@ -247,21 +243,7 @@
TimerReset
Refresh
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
</EventClick>
</Button>
@ -277,7 +259,7 @@
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "3"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
Trim TelephoneNumber MaxNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
@ -290,22 +272,7 @@
TimerReset
Refresh
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
</EventClick>
</Button>
@ -320,7 +287,7 @@
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "4"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
Trim TelephoneNumber MaxNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
@ -333,21 +300,7 @@
TimerReset
Refresh
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
</EventClick>
</Button>
@ -363,7 +316,7 @@
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "5"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
Trim TelephoneNumber MaxNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
@ -376,21 +329,7 @@
TimerReset
Refresh
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
</EventClick>
</Button>
@ -406,7 +345,7 @@
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "6"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
Trim TelephoneNumber MaxNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
@ -419,21 +358,7 @@
TimerReset
Refresh
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
</EventClick>
</Button>
@ -449,7 +374,7 @@
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "7"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
Trim TelephoneNumber MaxNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
@ -462,21 +387,7 @@
TimerReset
Refresh
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
</EventClick>
</Button>
@ -492,7 +403,7 @@
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "8"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
Trim TelephoneNumber MaxNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
@ -505,21 +416,7 @@
TimerReset
Refresh
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
</EventClick>
</Button>
@ -534,7 +431,7 @@
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "9"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
Trim TelephoneNumber MaxNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
@ -547,22 +444,7 @@
TimerReset
Refresh
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
</EventClick>
</Button>
@ -576,7 +458,7 @@
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber 10
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
@ -591,21 +473,8 @@
TimerReset
Refresh
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
</EventClick>
</Button>
@ -620,9 +489,17 @@
<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"