OpenAviso_Oultlook

Aviso/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("4.1.6.0")>
-<Assembly: AssemblyFileVersion("4.1.6.0")>
+<Assembly: AssemblyVersion("4.1.6.2")>
+<Assembly: AssemblyFileVersion("4.1.6.2")>

Aviso/frmEintragAviso.vb

@@ -1714,18 +1714,27 @@ Public Class frmEintragAviso
         'End If
         If myAviso.AvisoID > 0 Then
 
-            Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
-            Dim frmSendungsdetails As New frmSendungsdetailsNEU(myAviso.AvisoID, -1)
-            frmSendungsdetails.ShowDialog(frmGrayOut)
+            If Process.GetCurrentProcess().ProcessName.ToUpper() = "AVISO" Then
+                Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
+                Dim frmSendungsdetails As New frmSendungsdetailsNEU(myAviso.AvisoID, -1)
+                frmSendungsdetails.ShowDialog(frmGrayOut)
+
+
+                frmGrayOut.Close()
+            Else
+                VERAG_PROG_ALLGEMEIN.cProgramFunctions.SendMessageToAviso("OpenAvisoSnd_" & myAviso.AvisoID)
+
+            End If
 
 
-            frmGrayOut.Close()
         End If
         'initDgvSendungen()
     End Sub
 
 
 
+
+
     Private Sub txtSendungen_Leave(sender As Object, e As EventArgs) Handles txtSendungen.Leave
         If Not IsNumeric(txtSendungen.Text) Then
             txtSendungen.Text = 1

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