bm.Initialize(Me, "Authenticate")
Dim res As String = bm.CanAuthenticate
If res = "SUCCESS" Then
LogColor("Biometric OK",Colors.Blue)
Main.Biometric = True
Else
LogColor("Biometric not available",Colors.Blue)
Main.Biometric = False
End If
If FirstTime = True Then
If Main.ChekearConHuella=True And Main.Biometric = True Then 'si esta el check en ajustes
LogColor("va a autenticar...",Colors.Blue)
bm.Show("Autentíquese...")
Wait For Authenticate_Complete (Success As Boolean, ErrorMessage As String)
If Success=False Then
Alerter1.Title("Bienvenido!")
Alerter1.Text("Autenticación inválida.")
Alerter1.BackgroundColor(Colors.Green)
Alerter1.Show
ExitApplication
End If
End If
SQL1.Initialize(File.DirInternal, "portit.db", False)
End If