ms

app/DD-Record-Organizer/ClassHelper.vb

@@ -216,8 +216,11 @@ Public Class ClassHelper
     End Function
     Public Shared Function InsertEssential_Log(REFERENCE_KEY As Integer, REFERENCE_STRING As String, COMMENT As String)
         Try
+            COMMENT = COMMENT.Replace("'", "")
             Dim insert = String.Format("INSERT INTO TBPMO_LOG_ESSENTIALS (REFERENCE_KEY,REFERENCE_STRING,COMMENT,ADDED_WHO) VALUES ({0},'{1}','{2}','{3}')", REFERENCE_KEY, REFERENCE_STRING, COMMENT, USER_USERNAME)
-            Return clsDatabase.Execute_non_Query(insert, False)
+
+            Dim result = clsDatabase.Execute_non_Query(insert, False)
+            Return result
         Catch ex As Exception
             ClassLogger.Add("Unexpected Error in InsertEssential_Log: " & ex.Message, True, False)
             Return False

app/DD-Record-Organizer/ClassInit.vb

@@ -157,7 +157,7 @@ Public Class ClassInit
            
 
                 If Right_RO = False Then
-                    ClassLogger.Add(" - User: " & USER_USERNAME & " nicht für Modul freigegben!", False)
+                    ClassLogger.Add("User '" & USER_USERNAME & "' not authorized for using Record-Organizer!")
                     'MsgBox("Achtung: Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
                     Dim msg = String.Format("Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
 
@@ -165,7 +165,6 @@ Public Class ClassInit
                         msg = String.Format("You are not authorized for using this module." & vbNewLine & "Please contact the admin.")
                     End If
                     MsgBox(msg, MsgBoxStyle.Exclamation)
-                    ClassHelper.InsertEssential_Log(USER_GUID, "USER-ID", "User not authorized for using Record-Organizer!")
                     Return False
                     'Me.Close()
                 Else
@@ -191,7 +190,7 @@ Public Class ClassInit
                     'Am System anmelden
                     sql = String.Format("UPDATE TBDD_USER SET LOGGED_IN = 1, LOGGED_WHERE = '{0}' WHERE GUID = {1}", Environment.MachineName, USER_GUID)
                     ClassDatabase.Execute_non_Query(sql)
-                    sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Record-Organizer'"
+                    sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND UPPER(MODULE)= UPPER('Record-Organizer')"
                     If ClassDatabase.Execute_non_Query(sql) = True Then
 
                     End If
@@ -274,7 +273,7 @@ Public Class ClassInit
                     End If
             End If
         Catch ex As Exception
-            ClassLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message, True)
+            ClassLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message)
             MsgBox("Unexpected Error in InitUserLogin: " & ex.Message, MsgBoxStyle.Critical)
             Return False
         End Try

app/DD-Record-Organizer/frmCalendar.Designer.vb

@@ -95,10 +95,10 @@ Partial Class frmCalendar
         'SchedulerControl1
         '
         Me.SchedulerControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SchedulerControl1.Location = New System.Drawing.Point(0, 140)
+        Me.SchedulerControl1.Location = New System.Drawing.Point(0, 141)
         Me.SchedulerControl1.MenuManager = Me.ribbonCalendar
         Me.SchedulerControl1.Name = "SchedulerControl1"
-        Me.SchedulerControl1.Size = New System.Drawing.Size(926, 457)
+        Me.SchedulerControl1.Size = New System.Drawing.Size(926, 456)
         Me.SchedulerControl1.Start = New Date(2014, 12, 23, 0, 0, 0, 0)
         Me.SchedulerControl1.Storage = Me.SchedulerStorage1
         Me.SchedulerControl1.TabIndex = 0
@@ -118,7 +118,7 @@ Partial Class frmCalendar
         Me.ribbonCalendar.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.CalendarToolsRibbonPageCategory1})
         Me.ribbonCalendar.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.pageCalendar})
         Me.ribbonCalendar.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemSpinEdit1, Me.RepositoryItemDuration1})
-        Me.ribbonCalendar.Size = New System.Drawing.Size(926, 140)
+        Me.ribbonCalendar.Size = New System.Drawing.Size(926, 141)
         '
         'SwitchToDayViewItem1
         '
@@ -484,8 +484,9 @@ Partial Class frmCalendar
         Me.ClientSize = New System.Drawing.Size(926, 597)
         Me.Controls.Add(Me.SchedulerControl1)
         Me.Controls.Add(Me.ribbonCalendar)
+        Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Name = "frmCalendar"
-        Me.Text = "Kalender Ansicht - Brainpool"
+        Me.Text = "Kalender Ansicht"
         CType(Me.SchedulerControl1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.ribbonCalendar, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.RepositoryItemSpinEdit1, System.ComponentModel.ISupportInitialize).EndInit()