Sub Activity_Create(FirstTime As Boolean)
If StateManager.RestoreState(Activity, "Main", 60) = False Then
'set the default values
End If
' these are the 2 searchviews
svwAWB.Initialize(Me, "svwAWB")
svwDelivery.Initialize(Me, "svwDelivery")
Activity.LoadLayout("MainMenu")
If ConnectedToLAN.weconnected = "YES" Then
tbhMain.AddTab("Select Route","SelectRoute")
End If
tbhMain.AddTab("Load","Load")
tbhMain.AddTab("Deliver","Deliver")
tbhMain.AddTab("Upload","Upload")
If FirstTime Then
Dim DeliveryAWBs As List
DeliveryAWBs = BuildDeliveryList
DeliveryIndex = svwDelivery.SetItems(DeliveryAWBs)
Dim AWBs As List
AWBs = BuildLoadList
AWBIndex = svwAWB.SetItems(AWBs)
Else
svwAWB.SetIndex(AWBIndex)
svwDelivery.SetIndex(DeliveryIndex)
End If
svwAWB.AddToParent(pnlLoad, 0, 0, 100%x, 100%y)
pnlLoadDetail.Visible = False
svwDelivery.AddToParent(pnlDeliver, 0, 0, 100%x, 100%y)
pnlDeliverDetail.Visible = False
StateManager.RestoreState(Activity, "Main", 60)
End Sub