IMEX MySnd, RKSV DE Storno, Div.Bugfix

Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb

@@ -154,10 +154,18 @@ Public Class frmAvisoWeiterleiten
             ASF.AktUebernehmen_Zuruecksetzen(AvisoId, WeiterleitungTextTV)
         End If
 
-        ' Me.Close()
-        '  End If
 
-        Me.Close()
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" And WLart = "A" And bezeichnung = "VERIMEX" Then
+            If vbYes = MsgBox("Akt auf Status 'VERIMEX' setzten?", vbYesNoCancel) Then
+                Dim FUNC As New AvisoStatusFunctions
+                FUNC.setVorbereitet(AvisoId)
+            End If
+        End If
+
+            ' Me.Close()
+            '  End If
+
+            Me.Close()
         Me.DialogResult = DialogResult.OK
     End Sub