Merge branch 'master' of forthrd.ddns.net:/1TBHDD/ikong/taobin_project

This commit is contained in:
kong 2021-08-17 15:38:31 +07:00
commit a555ea6e45
5 changed files with 98 additions and 9 deletions

View file

@ -468,7 +468,6 @@
EndIf
EndIf
If MachineState_Result = 1 Then
If waitAckPay = 0 Then

View file

@ -8,7 +8,7 @@
<EventOpen>
; On open
Var Tel_Confirm_State = "Disable"
Var Tel_Confirm_State = "Invisible"
Var ShowTextNumber = "Enable"
Var Timeout = 0
Var TelephoneNumber = ""
@ -105,6 +105,9 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "1"
Trim TelephoneNumber 10
TimerReset
@ -130,6 +133,8 @@
Var number10 = "1"
EndIf
EndIf
</EventClick>
</Button>
@ -142,6 +147,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "2"
Trim TelephoneNumber 10
TimerReset
@ -166,6 +173,7 @@
If TelNumLen = 10 Then
Var number10 = "2"
EndIf
EndIf
</EventClick>
</Button>
@ -178,6 +186,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "3"
Trim TelephoneNumber 10
TimerReset
@ -202,6 +212,7 @@
If TelNumLen = 10 Then
Var number10 = "3"
EndIf
EndIf
</EventClick>
</Button>
@ -214,6 +225,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "4"
Trim TelephoneNumber 10
TimerReset
@ -238,6 +251,7 @@
If TelNumLen = 10 Then
Var number10 = "4"
EndIf
EndIf
</EventClick>
</Button>
@ -250,6 +264,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "5"
Trim TelephoneNumber 10
TimerReset
@ -274,6 +290,7 @@
If TelNumLen = 10 Then
Var number10 = "5"
EndIf
EndIf
</EventClick>
</Button>
@ -286,6 +303,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "6"
Trim TelephoneNumber 10
TimerReset
@ -310,6 +329,7 @@
If TelNumLen = 10 Then
Var number10 = "6"
EndIf
EndIf
</EventClick>
</Button>
@ -322,6 +342,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "7"
Trim TelephoneNumber 10
TimerReset
@ -346,6 +368,7 @@
If TelNumLen = 10 Then
Var number10 = "7"
EndIf
EndIf
</EventClick>
</Button>
@ -358,6 +381,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "8"
Trim TelephoneNumber 10
TimerReset
@ -382,6 +407,7 @@
If TelNumLen = 10 Then
Var number10 = "8"
EndIf
EndIf
</EventClick>
</Button>
@ -394,6 +420,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "9"
Trim TelephoneNumber 10
TimerReset
@ -418,6 +446,8 @@
If TelNumLen = 10 Then
Var number10 = "9"
EndIf
EndIf
</EventClick>
</Button>
@ -430,6 +460,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber 10
StrLen TelephoneNumber TelNumLen
@ -456,6 +488,7 @@
If TelNumLen = 10 Then
Var number10 = "0"
EndIf
EndIf
</EventClick>
</Button>
@ -469,7 +502,7 @@
<EventClick>
Var Timeout = 0
Trim TelephoneNumber -1
Var Tel_Confirm_State = "Disable"
Var Tel_Confirm_State = "Invisible"
StrLen TelephoneNumber TelNumLen

View file

@ -111,6 +111,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "1"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
@ -137,7 +139,7 @@
If TelNumLen = 10 Then
Var number10 = "1"
EndIf
EndIf
</EventClick>
</Button>
@ -150,6 +152,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "2"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
@ -176,6 +180,7 @@
If TelNumLen = 10 Then
Var number10 = "2"
EndIf
EndIf
</EventClick>
</Button>
@ -188,6 +193,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "3"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
@ -214,6 +221,7 @@
If TelNumLen = 10 Then
Var number10 = "3"
EndIf
EndIf
</EventClick>
</Button>
@ -226,6 +234,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "4"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
@ -252,6 +262,7 @@
If TelNumLen = 10 Then
Var number10 = "4"
EndIf
EndIf
</EventClick>
</Button>
@ -264,6 +275,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "5"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
@ -290,6 +303,7 @@
If TelNumLen = 10 Then
Var number10 = "5"
EndIf
EndIf
</EventClick>
</Button>
@ -302,6 +316,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "6"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
@ -328,6 +344,7 @@
If TelNumLen = 10 Then
Var number10 = "6"
EndIf
EndIf
</EventClick>
</Button>
@ -340,6 +357,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "7"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
@ -366,6 +385,7 @@
If TelNumLen = 10 Then
Var number10 = "7"
EndIf
EndIf
</EventClick>
</Button>
@ -378,6 +398,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "8"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
@ -404,6 +426,7 @@
If TelNumLen = 10 Then
Var number10 = "8"
EndIf
EndIf
</EventClick>
</Button>
@ -416,6 +439,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "9"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
@ -442,6 +467,7 @@
If TelNumLen = 10 Then
Var number10 = "9"
EndIf
EndIf
</EventClick>
</Button>
@ -454,6 +480,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber 10
StrLen TelephoneNumber TelNumLen
@ -481,6 +509,7 @@
If TelNumLen = 10 Then
Var number10 = "0"
EndIf
EndIf
</EventClick>
</Button>

View file

@ -197,7 +197,7 @@
Var StoreCreditFlag = 1
Open "ROOT/taobin_project/xml/page_payment_cash.xml"

View file

@ -125,7 +125,7 @@
If Ext1a = "invalid password" Then
Var ShowErrorText = "Enable"
EndIf
EndIf
EndIf
@ -168,6 +168,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "1"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
@ -194,7 +196,7 @@
If TelNumLen = 10 Then
Var number10 = "1"
EndIf
EndIf
</EventClick>
</Button>
@ -207,6 +209,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "2"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
@ -233,6 +237,7 @@
If TelNumLen = 10 Then
Var number10 = "2"
EndIf
EndIf
</EventClick>
</Button>
@ -245,6 +250,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "3"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
@ -271,6 +278,7 @@
If TelNumLen = 10 Then
Var number10 = "3"
EndIf
EndIf
</EventClick>
</Button>
@ -283,6 +291,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "4"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
@ -309,6 +319,7 @@
If TelNumLen = 10 Then
Var number10 = "4"
EndIf
EndIf
</EventClick>
</Button>
@ -322,6 +333,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "5"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
@ -348,6 +361,7 @@
If TelNumLen = 10 Then
Var number10 = "5"
EndIf
EndIf
</EventClick>
</Button>
@ -360,6 +374,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "6"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
@ -386,6 +402,7 @@
If TelNumLen = 10 Then
Var number10 = "6"
EndIf
EndIf
</EventClick>
</Button>
@ -398,6 +415,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "7"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
@ -424,7 +443,7 @@
If TelNumLen = 10 Then
Var number10 = "7"
EndIf
EndIf
</EventClick>
</Button>
@ -437,6 +456,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "8"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
@ -463,7 +484,7 @@
If TelNumLen = 10 Then
Var number10 = "8"
EndIf
EndIf
</EventClick>
</Button>
@ -476,6 +497,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "9"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
@ -502,6 +525,7 @@
If TelNumLen = 10 Then
Var number10 = "9"
EndIf
EndIf
</EventClick>
</Button>
@ -514,6 +538,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber 10
StrLen TelephoneNumber TelNumLen
@ -541,6 +567,7 @@
If TelNumLen = 10 Then
Var number10 = "0"
EndIf
EndIf
</EventClick>
</Button>
@ -611,6 +638,7 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var GetAccFlag = 1
GETACCEXT TelephoneNumber 13
</EventClick>