AVISO, etc.

Aviso/frmGesamtsicherheitenMenuNEU.vb

@@ -218,28 +218,35 @@ Public Class frmGesamtsicherheitenMenuNEU
 
 
     Private Sub OpenFRM(sender As Object, e As DataGridViewCellEventArgs) Handles dgvListe.CellDoubleClick
-        Dim frm As New frmGesamtsicherheitenNEU
-        With frm
-            .currentGesSichRef = GesSichRef
-            .gessicherheitID = dgvListe.CurrentRow.Cells("gs_gsnr").Value
-            .Standort = Me.Standort
-            .datum = dgvListe.CurrentRow.Cells("gs_datum").Value
-            .LKWKZ = dgvListe.CurrentRow.Cells("gs_LKWKZ").Value
-            .FilialNummer = dgvListe.CurrentRow.Cells("gs_filialenNr").Value
-            .Abfertigungsnummer = dgvListe.CurrentRow.Cells("gs_abfertigungsNr").Value
-            .warenortID = dgvListe.CurrentRow.Cells("gs_warenort").Value
-            .avisoID = dgvListe.CurrentRow.Cells("gs_avisoId").Value
-            .dataTable = Me.dataTable
-            .firmaId = Me.firmaId
-        End With
+        Try
 
-        AddHandler frm.FormClosing, Function()
-                                        GesSichRef.CalcSaldo()
-                                        ShowStandort()
-                                        LoadDGV()
-                                        Me.BringToFront()
-                                    End Function
-        frm.Show()
+
+            Dim frm As New frmGesamtsicherheitenNEU
+            With frm
+                .currentGesSichRef = GesSichRef
+                .gessicherheitID = dgvListe.CurrentRow.Cells("gs_gsnr").Value
+                .Standort = Me.Standort
+                .datum = dgvListe.CurrentRow.Cells("gs_datum").Value
+                .LKWKZ = dgvListe.CurrentRow.Cells("gs_LKWKZ").Value
+                .FilialNummer = dgvListe.CurrentRow.Cells("gs_filialenNr").Value
+                .Abfertigungsnummer = dgvListe.CurrentRow.Cells("gs_abfertigungsNr").Value
+                .warenortID = dgvListe.CurrentRow.Cells("gs_warenort").Value
+                .avisoID = dgvListe.CurrentRow.Cells("gs_avisoId").Value
+                .dataTable = Me.dataTable
+                .firmaId = Me.firmaId
+            End With
+
+            AddHandler frm.FormClosing, Function()
+                                            GesSichRef.CalcSaldo()
+                                            ShowStandort()
+                                            LoadDGV()
+                                            Me.BringToFront()
+                                        End Function
+            frm.Show()
+
+        Catch ex As Exception
+
+        End Try
     End Sub
 
     Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click