' end of sub that is running correctly
GetScreenGroups
End Sub
Public Sub GetScreenGroups
DBUtils.DropTable(SQL1, "ScreenGroups")
Dim SQLSTR As String
Dim myno As Int
' merge Products and models
SQLSTR="Select CategoryID, Listorder, CategoryName from Categories "
Dim Cursor1 As Cursor
Dim ScreenGroupID() As Int
Dim ListOrder() As Int
Dim ScreenGroupName() As String
Dim myno As Int
myno = 0
Cursor1 = SQL1.ExecQuery(SQLSTR)
Cursor1.Position=0
For i = 0 To Cursor1.RowCount -1
ScreenGroupID(i)=Cursor1.GetInt("CategoryID")
ListOrder(i)=Cursor1.GetInt("ListOrder")
ScreenGroupName(i)=Cursor1.GetInt("CategoryName")
myno = myno+1
Next
Dim m As Map
m.Initialize
m.Put("ScreenGroupNo", DBUtils.DB_INTEGER)
m.Put("ListOrder", DBUtils.DB_INTEGER)
m.Put("ScreenGroupName", DBUtils.DB_TEXT)
DBUtils.CreateTable(SQL1, "ScreenGroups", m, "ScreenGroupNo")
JournalWriter.WriteJournal("Table ScreenGroups Created" ,"System")
Dim ListOfMaps As List
ListOfMaps.Initialize
Dim id As Int
For i = 1 To myno-1
Dim m As Map
m.Initialize
id = i
m.Put("ScreenGroupNo", ScreenGroupID(i))
m.Put("ListOrder", ListOrder(i))
m.Put("ScreenGroupName", ScreenGroupName(i))
ListOfMaps.Add(m)
Next
DBUtils.InsertMaps(SQL1, "ScreenGroups", ListOfMaps)
JournalWriter.WriteJournal("Inserted records into table ScreenGroups" ,"System")
ProgressDialogHide
ToastMessageShow("Completed", True)