Exception TFA Null Verweis

This commit is contained in:
Developer01
2025-06-25 13:49:55 +02:00
parent f1920e16fa
commit a1688608ab
2 changed files with 10 additions and 5 deletions

View File

@@ -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