neu

2020-10-21 07:41:36 +02:00
parent 00cd158bf0
commit dcb3cea10e
3 changed files with 9 additions and 2 deletions
--- a/VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtignunen.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtignunen.vb
@@ -24,7 +24,7 @@
            Dim prog = ME_Form.GetType.Module.Name.Replace(".exe", "") 'FEHLER
            Return (CHECK_BERECHTIGUNG(Berechtigung_Bezeichnung, prog) = 0)
        Catch ex As Exception
-            MsgBox(Berechtigung_Bezeichnung & vbNewLine & vbNewLine & ex.Message & vbNewLine & ex.StackTrace)
+            MsgBox("BERECHTIGUNGSERR: " & Berechtigung_Bezeichnung & vbNewLine & vbNewLine & ex.Message & vbNewLine & ex.StackTrace)
            Return False
        End Try
    End Function