Sub btnRepeat_Click
If itemSelected=True Then
TableRowsCount=ResultTable.GetTableSize
For i =0 To TableRowsCount-1
selItemDescr = ResultTable.GetValue(0, i)
selQuantitySel = ResultTable.GetValue(1, i)
selItemPrice = ResultTable.GetValue(2, i)
selItemPriority = ResultTable.GetValue(3, i)
selItemCode = ResultTable.GetValue(4, i)
selItemSelected = ResultTable.GetValue(6, i)
If selItemSelected="Y" Then
CursorLite=SQLite.ExecQuery("SELECT ModGroupCode, ModGroupCode1, ModGroupCode2, ModGroupCode3 FROM Inventory WHERE ItemNum='" & selItemCode & "'")
CursorLite.Position=0
ModGroupCode = CursorLite.GetString("ModGroupCode")
ModGroupCode1 = CursorLite.GetString("ModGroupCode1")
ModGroupCode2 = CursorLite.GetString("ModGroupCode2")
ModGroupCode3 = CursorLite.GetString("ModGroupCode3")
If ModGroupCode="" Then
ModGroupCode="*NA*"
End If
If ModGroupCode1="" Then
ModGroupCode1="*NA*"
End If
If ModGroupCode2="" Then
ModGroupCode2="*NA*"
End If
If ModGroupCode3="" Then
ModGroupCode3="*NA*"
End If
ResultTable.AddRow(Array As String(selItemDescr, selQuantitySel, Round2(selQuantitySel*selItemPrice,2), selItemPriority, selItemCode, DateTime.Date(DateTime.Now) & " " & DateTime.Time(DateTime.Now), "N"), "Item")
refreshGrandTotal
If ModGroupCode<>"*NA*" Or ModGroupCode1<>"*NA*" Or ModGroupCode2<>"*NA*" Or ModGroupCode3<>"*NA*" Then
rowSelected=ResultTable.GetTableSize
Starter.csu.CallSubDelayedPlus2(Modifiers, "callModifiers", 5, Array As Object(ModGroupCode & ":" & ModGroupCode1 & ":" & ModGroupCode2 & ":" & ModGroupCode3 & ":" & selQuantitySel & ":" & ItemPriority, 1))
'STOP HERE UNTIL TO RETURN THE RESULT FROM CALLING SUB
End If
End If
Next
itemSelected=False
End If
End Sub