GBR: Changed for support Barcode format Code-128

xml/page_payment_cash-GBR.xml

@@ -1451,20 +1451,36 @@
     If scanresult = "true" Then
 
         TrimCRLF scanmsg
+
         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"
-        If textLen >= MIN_UKB_CODE Then
-            If textLen <= MAX_UKB_CODE Then
+        If memberCodeLength >= MIN_UKB_CODE Then
+            If memberCodeLength <= MAX_UKB_CODE Then
                 Var validTextLength = "true"
             EndIf
         EndIf
 
         If validTextLength = "true" Then
 
-            Var UKBMemberID = scanmsg
+            Var UKBMemberID = memeberCode
 
             If Timeout < 120 Then
                 If CoinInFlag = 0 Then