Berechtigung

UID/Programme/frmBerechtigungsObjekte.vb

@@ -60,6 +60,16 @@
 
 
 
+        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("ATILLA", "ATILLA"))
+        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("FRONTOFFICE", "FRONTOFFICE"))
+        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERIMEX", "VERIMEX"))
+
         cboAbteilung.Items.Clear()
         cboAbteilung.fillWithSQL("SELECT [abt_id],[abt_bezeichnung] FROM tblAbteilungen", False, "ADMIN", True)
         cboNiederlassung.Items.Clear()
@@ -285,5 +295,21 @@
 
     End Sub
 
+    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
+        If dgvObjekte.SelectedRows.Count = 0 Then Exit Sub
+        'Gruppe zuordnen
+        If cboFirma._value = String.Empty Then Exit Sub
+        If Not IsNumeric(MyTextBox6.Text) Then Exit Sub
 
+        Dim BOZ As New VERAG_PROG_ALLGEMEIN.cBerechtigungsObjekteZuordnung
+        BOZ.beroz_beroId = dgvObjekte.SelectedRows(0).Cells("id").Value
+        BOZ.beroz_bergrId = cboFirma._value
+        BOZ.beroz_art = "F"
+        BOZ.beroz_berechtigungsstufe = MyTextBox6.Text
+        BOZ.INSERT()
+        BerechtigungsObjekte.LOAD_LIST()
+        loadGruppen()
+        cboFirma.SelectedIndex = 0
+        MyTextBox6.Text = "0"
+    End Sub
 End Class