fix bug storecredit for credit+cash

This commit is contained in:
miggaze 2021-08-17 15:21:10 +07:00
parent 54bdaabc36
commit 40e2e0be0b
2 changed files with 30 additions and 4 deletions

View file

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

View file

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