neu

Aviso/frmEintragAviso.vb

@@ -103,6 +103,16 @@ Public Class frmEintragAviso
             optSchriftlich.Checked = True
         End If
 
+        cboFirma.Items.Clear()
+        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
+        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
+        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
+        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
+        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
+        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE"))
+        cboFirma.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
+        cboFirma.Enabled = False
 
         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
             Case "IMEX"
@@ -136,8 +146,14 @@ Public Class frmEintragAviso
                 Label1.Visible = True
                 cboImEx.Visible = True
                 cboImEx.Text = "IMPORT"
+            Case "VERIMEX"
+                cboFirma.Enabled = True
         End Select
 
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
+            cboFirma.Enabled = True
+        End If
+
 
 
         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
@@ -390,8 +406,10 @@ Public Class frmEintragAviso
                         lblStatus.Text = ""
                 End Select
                 lblStatus.Text = " " & lblStatus.Text & " "   'für bessere farbliche Hervorhebung
+            cboFirma.changeItem("")
+            cboFirma.changeItem(myAviso.FIRMA)
 
-                If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_ZeitenBearbeiten", "SDL") Then
+            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_ZeitenBearbeiten", "SDL") Then
                     panAdmin.Visible = bearb 'Administrator bekommt mehr Edit-Möglichkeiten
                 End If
 
@@ -538,6 +556,15 @@ Public Class frmEintragAviso
             lblSendungsanzahl.Visible = False
             lblErrVorraussuchtlEintreffen.Visible = False
 
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
+                If cboFirma._value = "" Then
+                    MsgBox("Firma auswählen!", vbInformation)
+                    cboFirma.Focus()
+                    Exit Sub
+
+                End If
+            End If
+
             If CDate(dtpAvisoEingangDatum.Value) > Now Then
                 MsgBox("Aviso-Datum darf nicht in der Zukunft liegen!", vbInformation)
                 dtpAvisoEingangDatum.Focus()
@@ -889,7 +916,7 @@ Public Class frmEintragAviso
                 myAviso.Sammelakt = (myAviso.Sendungen_Gesamtanzahl > 1) 'cbxSammelakt.Checked
             End If
 
-            myAviso.FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            myAviso.FIRMA = If(cboFirma._value <> "", cboFirma._value, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
             myAviso.Cluster = If(VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER, "")