I have another question.

On TP1200 Comfort I have to implement barcoding system. I have to have arround 10000 data records. All data records have same variables. If I use only one group then could have max 500 data records.

Code from barcode looks like 3KKB46.

I organized it in groups. For group name I use first four characters (e.g. 3KKB). Last two characters always are numbers and could be from 00 to 99.

It works fine as long as customer need new group which is not in recipes base. Then I have to create new group with my software. It is not acceptable for customer.

I created groups like Group 1, Group 2, Group 3 up to Group 300 (which is max allowed group numbers). Then I wrote script which search data records in each group (from 1 to max allowed 500 data records in one group). It means 300 Groups with 500 data records per group.

E.g. barcode scaner was read 3KKB36. Then script searching if in Group 1 (group No is 1) exist 3KKB36. It search per data records numbers from 1 to 500 ( if data record No 1 is 3KKB36 then it stops with searching. If not goes to data record No 2 and so on. If data record is not found in Group 1 start searching in Group 2 and so on. When scaned code is found searching stops.

This takes long time.

Is exist some way how to handling recipes smarter and faster? Please advice me.

Thank you.

Stef_63

Below is my script:

Sub VBsearchLegacy_1()
'Tip:
' 1. Use the <CTRL+SPACE> or <CTRL+I> shortcut to open a list of all objects and functions
' 2. Write the code using the HMI Runtime object.
'  Example: HmiRuntime.Screens("Screen_1").
' 3. Use the <CTRL+J> shortcut to create an object reference.
'Write the code as of this position:


Dim Counter, Counter1, Counter2

Counter = 0
Counter1 = 0
Do Until (Counter1 = 100)
Counter1 = Counter1 + 1
Loop



SmartTags("DataRecordNumber") = 1
SmartTags("RecipeNumber") = 1
SmartTags("RecipeName") = "N/A"
SmartTags("DataRecordName") = "N/A"
SmartTags("RecipeSearchStatus") = 0

Do Until (Counter2 = 100)
Counter2 = Counter2 + 1
Loop

Counter = 0

Do Until (SmartTags("Code from barcode") = SmartTags("DataRecordName")  Or RecipeNumber>= 300)

Counter=1

Do Until (SmartTags("Code from barcode") = SmartTags("DataRecordName")  Or Counter >= 500)

GetDataRecordName RecipeNumber ,Counter ,"RecipeName","DataRecordName","RecipeSearchStatus"
DataRecordNumber= Counter
Counter = Counter + 1


Counter2=0

Do Until (RecipeSearchStatus=4 Or RecipeSearchStatus=12)
Loop


If (SmartTags("Code from barcode") = SmartTags("DataRecordName")) Then
SmartTags("found recipe")=SmartTags("DataRecordName")
End If


Loop


Counter2=0

RecipeNumber= RecipeNumber+ 1

Loop


Counter = 0

If    RecipeSearchStatus = 4  Then
SmartTags("GroupName")= SmartTags("RecipeName")
SmartTags("SpringTypeName")=SmartTags("DataRecordName")
End If


End If


End Sub

------------------------------------------------------------------------------------------
Split from VB script on TP1200 comfort