WARENORT-AVISO, EN-Anpassung, Benachrichtigungen, ATILLA-Indonesien, AVISO-TV

Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb

@@ -163,13 +163,35 @@ Public Class frmAvisoWeiterleiten
         End If
 
 
-        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)
+
+
+        '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
+
+
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("STATUS_ATILLA") Then
+                If WLart = "T" And bezeichnungFirma = "VERIMEX" Or WLart = "F" And bezeichnung = "VERIMEX" Then
+                    If vbYes = MsgBox("Akt auf Status 'AN VERIMEX' setzten?", vbYesNoCancel) Then
+                        Dim FUNC As New AvisoStatusFunctions
+                        FUNC.setAnVERIMEX(AvisoId)
+                    End If
+                End If
+                If WLart = "T" And bezeichnung = "INDONESIEN" Then
+                    If vbYes = MsgBox("Akt auf Status 'AN INDONESIEN' setzten?", vbYesNoCancel) Then
+                        Dim FUNC As New AvisoStatusFunctions
+                        FUNC.setAnINDONESIEN(AvisoId)
+                    End If
+                End If
             End If
         End If
 
+
+
         ' Me.Close()
         '  End If