GUI-Änderung Gesamtsicherheiten, Essensbestellungen

Aviso/frmEssensbestellungen.vb

@@ -1,5 +1,4 @@
 
-Imports Therefore.API
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmEssensbestellungen
@@ -7,6 +6,7 @@ Public Class frmEssensbestellungen
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
     Dim essen As New cEssensbestellung()
     Dim dt As New DataTable
+    Dim ttMontag, ttDienstag, ttMittwoch, ttDonnerstag, ttFreitag As New ToolTip()
 
 
 
@@ -112,6 +112,12 @@ Public Class frmEssensbestellungen
             lblBestellungBis.Text = ""
             loadDGVBestellungen()
             btnSave.Enabled = False
+            For Each comp As System.ComponentModel.Component In Me.components.Components
+                If TypeOf comp Is ToolTip Then
+                    Dim tip = DirectCast(comp, ToolTip)
+                    tip.RemoveAll()
+                End If
+            Next
             Exit Sub
         End If
 
@@ -313,8 +319,7 @@ Public Class frmEssensbestellungen
 
         If dt.Rows(0).Item("MenuEssenMo") IsNot Nothing Then
             pbMontag.Visible = True
-            Dim ttMontag As New ToolTip()
+
-            ttMontag.RemoveAll()
             ttMontag.SetToolTip(pbMontag, dt.Rows(0).Item("MenuEssenMo").ToString)
         Else
             pbMontag.Visible = False
@@ -323,7 +328,7 @@ Public Class frmEssensbestellungen
 
         If dt.Rows(0).Item("MenuEssenDi") IsNot Nothing Then
             pbDienstag.Visible = True
-            Dim ttDienstag As New ToolTip()
+
             ttDienstag.SetToolTip(pbDienstag, dt.Rows(0).Item("MenuEssenDi").ToString)
         Else
             pbDienstag.Visible = False
@@ -332,7 +337,6 @@ Public Class frmEssensbestellungen
 
         If dt.Rows(0).Item("MenuEssenMi") IsNot Nothing Then
             pbMittwoch.Visible = True
-            Dim ttMittwoch As New ToolTip()
             ttMittwoch.SetToolTip(pbMittwoch, dt.Rows(0).Item("MenuEssenMi").ToString)
         Else
             pbMittwoch.Visible = False
@@ -340,7 +344,6 @@ Public Class frmEssensbestellungen
 
         If dt.Rows(0).Item("MenuEssenDo") IsNot Nothing Then
             pbDonnerstag.Visible = True
-            Dim ttDonnerstag As New ToolTip()
             ttDonnerstag.SetToolTip(pbDonnerstag, dt.Rows(0).Item("MenuEssenDo").ToString)
         Else
             pbDonnerstag.Visible = False
@@ -348,7 +351,6 @@ Public Class frmEssensbestellungen
 
         If dt.Rows(0).Item("MenuEssenFr") IsNot Nothing Then
             pbFreitag.Visible = True
-            Dim ttFreitag As New ToolTip()
             ttFreitag.SetToolTip(pbFreitag, dt.Rows(0).Item("MenuEssenFr").ToString)
         Else
             pbFreitag.Visible = False

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