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

Aviso/usrcntlAktDetailsATILLANeu.vb

@@ -233,15 +233,24 @@ Public Class usrcntlAktDetailsATILLANeu
         timer.Interval = 100
         reload(AvisoID)
         If My.Computer.Screen.WorkingArea.Width < 1300 Then
-            btnAnkunft.Text = "ANKUNFT"
-            btnErfasst.Text = "ERFASST"
-            ' btnVorbereitet.Text = "VORB.QS"
-            btnVorgeschrieben.Text = "VORGESCHR."
-            btnFreigabe.Text = "FREIGABE"
+            'btnAnkunft.Text = "ANKUNFT"
+            'btnErfasst.Text = "ERFASST"
+            '' btnVorbereitet.Text = "VORB.QS"
+            'btnVorgeschrieben.Text = "VORGESCHR."
+            'btnFreigabe.Text = "FREIGABE"
             'btnVorgeschrieben.Text = "VORGESCHR."
             'btnVorgeschrieben.Text = "VORGESCHR."
         End If
 
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("STATUS_ATILLA") Then
+            Panel14.Visible = True
+            Panel15.Visible = True
+        Else
+            Panel14.Visible = False
+            Panel15.Visible = False
+        End If
+
+
         If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ALLOW_STATUS2_VERIMEX") Then
             Panel6.Visible = True
         Else
@@ -289,8 +298,12 @@ Public Class usrcntlAktDetailsATILLANeu
                 lblStatus.Text = "ERFASST" : pnlStatus.BackColor = btnErfasst.BackColor
                 'Case VERAG_PROG_ALLGEMEIN.cglobal.Status_Vorbereitet
                 '      lblStatus.Text = "VORBEREITET - QS" : pnlStatus.BackColor = btnVorbereitet.BackColor
-            Case VERAG_PROG_ALLGEMEIN.cglobal.Status_Vorgeschrieben
+            Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben
                 lblStatus.Text = "VORGESCHRIEBEN" : pnlStatus.BackColor = btnVorgeschrieben.BackColor
+            Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX
+                lblStatus.Text = "AN VERIMEX" : pnlStatus.BackColor = btnAnVerimex.BackColor
+            Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN
+                lblStatus.Text = "AN INDONESIEN" : pnlStatus.BackColor = btnAnIndonesien.BackColor
             Case VERAG_PROG_ALLGEMEIN.cglobal.Status_Freigegeben
                 lblStatus.Text = "FREIGABE" : pnlStatus.BackColor = btnFreigabe.BackColor
                 Button3.Visible = True
@@ -1579,4 +1592,22 @@ Public Class usrcntlAktDetailsATILLANeu
             frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
         End If
     End Sub
+
+    Private Sub FlowLayoutPanel_Paint(sender As Object, e As PaintEventArgs) Handles FlowLayoutPanel.Paint
+
+    End Sub
+
+    Private Sub btnAnVerimex_Click(sender As Object, e As EventArgs) Handles btnAnVerimex.Click
+        If FUNC.setAnVERIMEX(AvisoID) Then
+            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+        End If
+    End Sub
+
+    Private Sub btnAnIndonesien_Click(sender As Object, e As EventArgs) Handles btnAnIndonesien.Click
+        If FUNC.setAnINDONESIEN(AvisoID) Then
+            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+        End If
+    End Sub
 End Class