GBR: Changed for support Barcode format Code-128
This commit is contained in:
parent
e611d4a439
commit
ffea501a4c
1 changed files with 20 additions and 4 deletions
|
|
@ -1451,20 +1451,36 @@
|
||||||
If scanresult = "true" Then
|
If scanresult = "true" Then
|
||||||
|
|
||||||
TrimCRLF scanmsg
|
TrimCRLF scanmsg
|
||||||
|
|
||||||
StrLen scanmsg textLen
|
StrLen scanmsg textLen
|
||||||
|
|
||||||
DEBUGVAR textLen
|
Var memeberCode = scanmsg
|
||||||
|
|
||||||
|
DEBUGVAR scanmsg
|
||||||
|
DEBUGVAR memeberCode
|
||||||
|
|
||||||
|
STRCONTAIN "]C1" scanmsg code128Format
|
||||||
|
If code128Format = "true" Then
|
||||||
|
SAVELOG "Code-128 detected"
|
||||||
|
SUBSTRING scanmsg 3 textLen memeberCode
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
DEBUGVAR memeberCode
|
||||||
|
|
||||||
|
StrLen memeberCode memberCodeLength
|
||||||
|
|
||||||
|
DEBUGVAR memberCodeLength
|
||||||
|
|
||||||
Var validTextLength = "false"
|
Var validTextLength = "false"
|
||||||
If textLen >= MIN_UKB_CODE Then
|
If memberCodeLength >= MIN_UKB_CODE Then
|
||||||
If textLen <= MAX_UKB_CODE Then
|
If memberCodeLength <= MAX_UKB_CODE Then
|
||||||
Var validTextLength = "true"
|
Var validTextLength = "true"
|
||||||
EndIf
|
EndIf
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
If validTextLength = "true" Then
|
If validTextLength = "true" Then
|
||||||
|
|
||||||
Var UKBMemberID = scanmsg
|
Var UKBMemberID = memeberCode
|
||||||
|
|
||||||
If Timeout < 120 Then
|
If Timeout < 120 Then
|
||||||
If CoinInFlag = 0 Then
|
If CoinInFlag = 0 Then
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue