AddIn

VERAGAddIn/frmAvisoAnfügen.vb

@@ -1,8 +1,6 @@
 Imports System.Diagnostics
 Imports System.Windows.Forms
 Imports AVISO
-Imports VERAG_PROG_ALLGEMEIN
-Imports VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA
 
 Public Class frmAvisoAnfuegen
 
@@ -14,6 +12,7 @@ Public Class frmAvisoAnfuegen
     Dim VSQL As New VERAG_PROG_ALLGEMEIN.SQL
 
     Public ATT As List(Of String)
+    Public INFO As String = ""
 
     Sub New(Bezeichnung, Art)
 
@@ -272,6 +271,11 @@ Public Class frmAvisoAnfuegen
 
                 Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
                 Dim sv As New AVISO.frmAddSendungsvermerkShort(dgvSendungen.SelectedRows(0).Cells("tblSnd_AvisoID").Value, Me.SendungsId) ', dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
+
+                If INFO <> "" Then
+                    sv.txtDetail.Text = INFO
+                End If
+
                 sv.Location = Me.PointToClient(Cursor.Position)
                 sv.ShowDialog(frmGrayOut)
                 frmGrayOut.Close()