Bugfix DienstplanVariabel

UID/Dienstplan/frmDienstplanVariabel.vb

@@ -1083,7 +1083,7 @@ Public Class frmDienstplanVariabel
                     End If
                     ' ctxtDgvSchicht1.Items(0).Text = String.Format("This is the cell at {0}, {1}", ht.ColumnIndex, ht.RowIndex)
 
-
+                    If o IsNot Nothing Then
                         If o.SCHICHT.dedet_Splitschicht = True Then
                             thisDgv.ContextMenuStrip = ContextMenuStrip1
                             If thisDgv.SelectedCells.Count = 0 Then
@@ -1094,6 +1094,8 @@ Public Class frmDienstplanVariabel
 
                         End If
 
+                    End If
+
 
                 End If
                 Else
@@ -2094,6 +2096,11 @@ Public Class frmDienstplanVariabel
         Dim o As usrCntlDienstWoche = Nothing
         If dgv_tmp.Parent.Parent.GetType() Is GetType(usrCntlDienstWoche) Then o = dgv_tmp.Parent.Parent
 
+        If o Is Nothing Then
+            MsgBox("Keine Splitschichten erlaubt!")
+            Exit Sub
+        End If
+
         If o.SCHICHT.dedet_Hauptsplitschicht = False Then
 
             MsgBox("In Schicht " & o.schicht_name & " sind keine Splitschichten erlaubt!")

UID/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.2.1.0")>
-<Assembly: AssemblyFileVersion("1.2.1.0")>
+<Assembly: AssemblyVersion("1.2.1.1")>
+<Assembly: AssemblyFileVersion("1.2.1.1")>