vers

Aviso/usrcntlAktDetails.vb

@@ -194,8 +194,23 @@ Public Class usrcntlAktDetails
         cboFormulareRgAn.changeItem("AVISIERER")
 
 
+
+        Select Case If(AVISO.FIRMA <> "", AVISO.FIRMA, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
+            Case "ATILLA"
+                pnlStatus2Vorgeschr.Visible = False
+                pnlStatusVERIMEX.Visible = True
+                pnlStatusINDONESIEN.Visible = True
+                Button9.Visible = True
+            Case Else
+                pnlStatus2Vorgeschr.Visible = True
+                pnlStatusVERIMEX.Visible = False
+                pnlStatusINDONESIEN.Visible = False
+                Button9.Visible = False
+        End Select
+
         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
             Case "UNISPED" : btnSendungslisteUNISPED.Visible = True
+
         End Select
 
         If My.Computer.Screen.WorkingArea.Width < 1300 Or VERAG_PROG_ALLGEMEIN.cAllgemein.dpi > 96 Then
@@ -3872,5 +3887,29 @@ Public Class usrcntlAktDetails
 
     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
+
+    Private Sub Button9_Click_1(sender As Object, e As EventArgs) Handles Button9.Click
+        Dim SND = Nothing
+        Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
+        VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN
+        If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
+            SND = SENDUNG_LIST(0)
+            SendungOptions.PrintSendungATILLA("PRINT", SND, AVISO, (New System.Drawing.Printing.PrinterSettings).PrinterName)
+            Panel4.Visible = False
+        End If
+    End Sub
 End Class