Ens Deklaration

Aviso/frmSendungsdetailsNEU.vb

@@ -7663,4 +7663,37 @@ Public Class frmSendungsdetailsNEU
             Me.Cursor = Cursors.Default
         ' End If
     End Sub
+
+    Private Sub ToolStripMenuItem34_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem34.Click
+        Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
+        If SENDUNG_LIST IsNot Nothing Then
+            SND = SENDUNG_LIST(CURRENT_INDEX)
+        Else
+            MsgBox("Keine Sendung!")
+            Exit Sub
+        End If
+
+
+        Dim filialNr As Integer = SND.FilialenNr
+        Dim abfertigungsNr As Integer = SND.AbfertigungsNr
+
+        ' URL zusammenbauen
+        Dim url As String = String.Format(
+            "https://login.verag.ag/ens?filialNr={0}&abfertigungsNr={1}",
+            filialNr,
+            abfertigungsNr
+        )
+
+        Try
+            ' Browser öffnen (ab .NET Framework 4.5 braucht man UseShellExecute=True)
+            Process.Start(New ProcessStartInfo With {
+                .FileName = url,
+                .UseShellExecute = True
+            })
+        Catch ex As Exception
+            MessageBox.Show("Fehler beim Öffnen der URL: " & ex.Message,
+                            "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
+        End Try
+
+    End Sub
 End Class