Sub Activity_Create(FirstTime As Boolean)
If (FirstTime = True) Then
Frame = 0
TimerGif.load(File.DirAssets, "waiting.gif")
TimerForGif.Interval = TimerGif.Delay(Frame)
TimerForGif.Initialize("TimerForGif", TimerForGif.Interval)
TimerForGif.Enabled = False
Dim PhoneInfo As PhoneId
If PhoneInfo.GetSimSerialNumber.Trim.Length > 0 Then
SimCardNumber = PhoneInfo.GetSimSerialNumber
Else If PhoneInfo.GetSubscriberId.Trim.Length > 0 Then
SimCardNumber = PhoneInfo.GetSubscriberId
Else If PhoneInfo.GetLine1Number.Trim.Length > 0 Then
SimCardNumber = PhoneInfo.GetLine1Number
Else
SimCardNumber = PhoneInfo.GetDeviceId
End If
If (File.Exists(File.DirInternal, "PrefTaxiSP.txt") = True) Then
ScreenToLoadWhenBack = "FirstMenu"
Activity.LoadLayout("Login")
loadEditLogin
chkAutomaticLogin.Checked = True
Dim Login As LoginPreferences
Login.Initialize("", "")
Dim m As Map = Login.GetPreferences
edtPhoneNumber.Text = m.GetKeyAt(0)
edtPassword.Text = m.GetValueAt(0)
Else
Activity.LoadLayout("FirstMenu")
End If
UserLogged = False
UserAvailable = False
MyFade.Initialize(Activity, Me, "powered-splash.png", Gravity.CENTER_VERTICAL, 5000, 1000, "Fade", False)
Else
If StateManager.RestoreState(Activity, "Main", 60) = False Then
'set the default values
If (UserLogged = False AND ScreenToLoadWhenBack <> "FirstMenu") Then
ScreenToLoadWhenBack = "FirstMenu"
Activity.Invalidate
Activity.RemoveAllViews
Activity.LoadLayout("Login")
loadEditLogin
If (File.Exists(File.DirInternal, "PrefTaxiSP.txt") = True) Then
chkAutomaticLogin.Checked = True
Dim Login As LoginPreferences
Login.Initialize("", "")
Dim m As Map = Login.GetPreferences
edtPhoneNumber.Text = m.GetKeyAt(0)
edtPassword.Text = m.GetValueAt(0)
End If
Else
If (ScreenToLoadWhenBack <> "NewOrder" OR _
ScreenToLoadWhenBack <> "OrderAccepted" OR _
ScreenToLoadWhenBack <> "FinalizeOrder" OR _
ScreenToLoadWhenBack <> "WaitingCustomer") Then
Activity.Invalidate
Activity.RemoveAllViews
End If
If (Activity.RequestFocus = False) Then
Activity.LoadLayout(ScreenToLoadWhenBack)
End If
End If
End If
End If
End Sub