OpenAviso_Oultlook

Aviso/frmHauptfenster.vb

@@ -208,6 +208,15 @@ Public Class frmHauptfenster
                        Dim split = message.ToString.Split("_")
                        FUNC.showKd(split(1), True)
                    End Sub)
+        ElseIf message.StartsWith("OpenAvisoSnd_") Then
+            Invoke(Sub()
+                       Dim split = message.ToString.Split("_")
+                       If split.Count > 1 AndAlso IsNumeric(split(1)) AndAlso split(1) > 0 Then
+                           Dim frmSendungsdetails As New frmSendungsdetailsNEU(split(1), -1)
+                           frmSendungsdetails.ShowDialog(Me)
+                       End If
+                   End Sub)
+
         End If
     End Sub
 
@@ -4615,6 +4624,7 @@ ELSE_ATILLA:
 
     Private Sub Button11_Click_1(sender As Object, e As EventArgs) Handles Button11.Click
 
+
         Exit Sub
 
         setProfileImage()
@@ -5069,7 +5079,10 @@ ELSE_ATILLA:
 
     Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
 
-        VERAG_PROG_ALLGEMEIN.DHF_ArtikelBeispiel.Beispiel_TestSave()
+
+        ' VERAG_PROG_ALLGEMEIN.cProgramFunctions.SendMessageToAviso("OpenAvisoSnd_1445868")
+
+        'VERAG_PROG_ALLGEMEIN.DHF_ArtikelBeispiel.Beispiel_TestSave()
 
 
         Exit Sub