Sendung weiterleiten (für AMBAR).

Aviso/frmSendungsdetailsNEU.vb

@@ -3003,8 +3003,10 @@ Public Class frmSendungsdetailsNEU
 
         If SENDUNG_LIST(CURRENT_INDEX).LetzterMitarbeiterId IsNot Nothing AndAlso SENDUNG_LIST(CURRENT_INDEX).LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
             btnQS_MA.Image = My.Resources.personCheck_blue_small
+            Button18.Enabled = True
         Else
             btnQS_MA.Image = My.Resources.personCheck_small
+            Button18.Enabled = False
         End If
         'If SENDUNG_LIST(CURRENT_INDEX).tblSnd_QS_MA IsNot Nothing AndAlso IsNumeric(SENDUNG_LIST(CURRENT_INDEX).tblSnd_QS_MA) Then
 
@@ -5883,4 +5885,15 @@ Public Class frmSendungsdetailsNEU
             initAnhang()
         End If
     End Sub
+
+    Private Sub Button18_Click_1(sender As Object, e As EventArgs) Handles Button18.Click
+
+
+        Dim f As New frmAvisoWeiterleiten("S", AvisoId, VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID) '--> Weitereliten
+            If f.ShowDialog(Me) = DialogResult.OK Then
+            Me.Close()
+        End If
+
+
+    End Sub
 End Class