OpenAviso_Oultlook

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