DragDrop Verträge, VermerkeBesonderheiten KDStamm

SDL/kunden/usrCntlKundenBesonderheiten.vb

@@ -1,4 +1,7 @@
-Public Class usrCntlKundenBesonderheiten
+Imports DocumentFormat.OpenXml.Drawing
+Imports DocumentFormat.OpenXml.Drawing.Charts
+
+Public Class usrCntlKundenBesonderheiten
 
     Dim kdNr As Integer = -1
     Dim loaded = False
@@ -41,7 +44,7 @@
     Sub init(kdNr, Optional Kategorie = "", Optional simpleView = False, Optional preferedKategorie = "", Optional preferedKategorieOtherIN = "")
         loaded = False
         If simpleView Then Panel1.Height = 0 : Panel1.Visible = False 'showhideOptions(False)
-            cboKategorie.changeItem(Kategorie)
+        cboKategorie.changeItem(Kategorie)
         cbx.Checked = False
         initDGV(kdNr, simpleView, preferedKategorie, preferedKategorieOtherIN)
         loaded = True
@@ -53,6 +56,33 @@
         cboKategorie.Visible = visible
         lbl.Visible = visible
     End Sub
+    Private Sub initDGV_CLMN()
+        Try
+            With dgvBesonderheiten
+                If .Columns.Count = 0 Then dgvBesonderheiten.Columns.Clear() : Exit Sub
+
+                For Each r As DataGridViewRow In .Rows
+                    '  r.Cells("clmnRufzeichen").Value = ""
+                    Select Case r.Cells("kdb_kategorie").Value
+                        Case "BH" : If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "BH" Then r.Cells("clmnRufzeichen").Value = "!"
+                        Case "VERR"
+                            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG
+                                Case "VERR", "BH" : r.Cells("clmnRufzeichen").Value = "!"
+                            End Select
+                        Case "ZOLL" : If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ZOLL" Then r.Cells("clmnRufzeichen").Value = "!"
+                            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG
+                                Case "ZOLL", "QS", "FISK" : r.Cells("clmnRufzeichen").Value = "!"
+                            End Select
+                            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then r.Cells("clmnRufzeichen").Value = "!"
+                        Case "VERIMEX" : If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then r.Cells("clmnRufzeichen").Value = "!!"
+                    End Select
+                Next
+            End With
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub
     Private Sub initDGV(Optional kdnrTmp = -1, Optional simpleView = False, Optional preferedKategorie = "", Optional preferedKategorieOtherIN = "")
 
         dgvBesonderheiten.Columns.Clear()
@@ -129,8 +159,17 @@
                 .Columns("kdb_mitName").Visible = False
                 .ColumnHeadersVisible = False
             End If
-            ' .GetOrder()
 
+            Dim colm As New DataGridViewTextBoxColumn
+            colm.HeaderText = ""
+            colm.Width = 20
+            colm.Name = "clmnRufzeichen"
+            colm.DefaultCellStyle.ForeColor = Color.Red
+            colm.DefaultCellStyle.Font = New Font(.DefaultCellStyle.Font.FontFamily, .DefaultCellStyle.Font.Size, FontStyle.Bold)
+            .Columns.Insert(2, colm)
+
+            ' .GetOrder()
+            initDGV_CLMN()
         End With
     End Sub
 
@@ -186,4 +225,10 @@
         End If
     End Sub
 
+
+
+    Private Sub dgvBesonderheiten_Paint(sender As Object, e As PaintEventArgs) Handles dgvBesonderheiten.Paint
+        initDGV_CLMN()
+        doStyle()
+    End Sub
 End Class