GUI-Änderung Gesamtsicherheiten, Essensbestellungen

Aviso/frmGesamtsicherheitenNEU.vb

@@ -37,7 +37,7 @@ Public Class frmGesamtsicherheitenNEU
 
     Dim indexGsId As Integer
 
-    Dim indexGsNr As Integer = -1
+    Dim indexGsNr As Integer
 
     Dim indexGspPosId As Integer
 
@@ -320,7 +320,7 @@ Public Class frmGesamtsicherheitenNEU
             Me.avisoID = setNullToZero(dt.Rows(0).Item("gs_avisoId"))
             Me.LKWKZ = setNullToZero(dt.Rows(0).Item("gs_LKWKZ"))
             Me.FilialNummer = setNullToZero(dt.Rows(0).Item("gs_filialenNr"))
-            Me.Abfertigungsnummer = setNullToZero(dt.Rows(0).Item("gs_abfertigungsNr"))
+            Me.Abfertigungsnummer = dt.Rows(0).Item("gs_abfertigungsNr")
             Me.warenortID = setNullToZero(dt.Rows(0).Item("gs_warenort"))
         End If
 
@@ -673,7 +673,12 @@ Public Class frmGesamtsicherheitenNEU
             Me.warenortID = "-"
         End Try
 
-        Me.Abfertigungsnummer = txtAbfertNum.Text
+        Try
+            Me.Abfertigungsnummer = checkNothingValue(txtAbfertNum.Text, "String")
+
+        Catch
+            Me.Abfertigungsnummer = txtAbfertNum.Text
+        End Try
 
         If txtlkwIdSearch.Text IsNot "" Then
             Me.avisoID = CInt(txtlkwIdSearch.Text)
@@ -710,7 +715,7 @@ Public Class frmGesamtsicherheitenNEU
                 End If
 
             Case "Double"
-                If obj Is Nothing Or obj Is DBNull.Value Then
+                If obj Is Nothing Or obj Is DBNull.Value Or obj = ""  Then
                     Return Nothing
                 Else
                     Return Double.Parse(CDbl(obj))