Exception TFA Null Verweis
This commit is contained in:
@@ -798,8 +798,14 @@ Public Class frmMain
|
||||
If oDT.Rows.Count = 1 Then
|
||||
Dim oTFA_REG_DL = oDT.Rows(0).Item("TFA_REG_DEADLINE")
|
||||
Dim oTOTP = oDT.Rows(0).Item("TOTP_SECRET_KEY")
|
||||
Dim oForm As New frm2Factor_Properties(oReceiver.Email, oTOTP, oTFA_REG_DL, DB_DD_ECM)
|
||||
oForm.ShowDialog()
|
||||
If IsDBNull(oTFA_REG_DL) Then
|
||||
bsitmInfo.Caption = "So far, no TFA for this user defined!"
|
||||
bsitmInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
|
||||
Else
|
||||
Dim oForm As New frm2Factor_Properties(oReceiver.Email, oTOTP, oTFA_REG_DL, DB_DD_ECM)
|
||||
oForm.ShowDialog()
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Reference in New Issue
Block a user