neu

SDL/kunden/usrCntlKundenBesonderheiten.vb

@@ -0,0 +1,155 @@
+Public Class usrCntlKundenBesonderheiten
+
+    Dim kdNr As Integer = -1
+    Dim loaded = False
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+
+    Private Sub usrCntlKundenBesonderheiten_Load(sender As Object, e As EventArgs) Handles Me.Load
+        'initDGV()
+        cboKategorie.fillWithSQL("SELECT [kdbkat_kategorie],[kdbkat_bezeichnung] FROM  [tblKundenBesonderheiten_Kategorien]", False, "FMZOLL", True)
+
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Besonderheiten_Bearbeiten", "SDL") Then
+            showhideOptions(True)
+        End If
+        loaded = True
+    End Sub
+
+    Sub init(kdNr, Optional Kategorie = "", Optional simpleView = False)
+        loaded = False
+        If simpleView Then Panel1.Visible = False 'showhideOptions(False)
+        cboKategorie.changeItem(Kategorie)
+        cbx.Checked = False
+        initDGV(kdNr, simpleView)
+        loaded = True
+    End Sub
+
+    Sub showhideOptions(visible)
+        cbx.Visible = visible
+        btn.Visible = visible
+        cboKategorie.Visible = visible
+        lbl.Visible = visible
+    End Sub
+    Private Sub initDGV(Optional kdnrTmp = -1, Optional simpleView = False)
+
+        dgvBesonderheiten.Columns.Clear()
+
+        If kdnrTmp > 0 Then Me.kdNr = kdnrTmp
+        If kdNr <= 0 Then Exit Sub
+
+        With dgvBesonderheiten
+            Dim loadedTmp = loaded
+
+            Dim where = ""
+
+            If cboKategorie._value <> "" Then
+                where &= " AND kdb_kategorie='" & cboKategorie._value & "' "
+            End If
+
+            If Not cbx.Checked Or Not cbx.Visible Then
+                where &= " and kdb_history=0  "
+            End If
+
+            .DataSource = SQL.loadDgvBySql("SELECT kdb_id, kdb_AenderungAm,kdb_text,kdb_mitId,kdb_mitName,kdb_EingetragenAm,kdb_kategorie, kdb_hervorheben,kdb_history  FROM [tblKundenBesonderheiten] where kdb_KundenNr=" & kdNr & " and kdb_visible=1  " & where & " ORDER BY kdb_AenderungAm desc", "FMZOLL")
+
+            If .Columns.Count = 0 Then dgvBesonderheiten.Columns.Clear() : Exit Sub
+            .ClearSelection()
+            .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
+
+            .Columns("kdb_id").Visible = False
+            .Columns("kdb_hervorheben").Visible = False
+            .Columns("kdb_EingetragenAm").Visible = False
+            .Columns("kdb_history").Visible = False
+            .Columns("kdb_mitId").Visible = False
+
+            .Columns("kdb_kategorie").Width = 65
+            .Columns("kdb_kategorie").HeaderText = "Art"
+
+            .Columns("kdb_text").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            .Columns("kdb_text").HeaderText = "Text"
+
+            .Columns("kdb_mitName").Width = 60
+            .Columns("kdb_mitName").HeaderText = "SB"
+
+            .Columns("kdb_AenderungAm").Width = 65
+            .Columns("kdb_AenderungAm").HeaderText = "Datum"
+            .Columns("kdb_AenderungAm").DefaultCellStyle.Format = "dd.MM.yyyy"
+
+            .EnableHeadersVisualStyles = False
+            For Each c In .Columns
+                c.HeaderCell.Style.ForeColor = Color.White
+                c.HeaderCell.Style.BackColor = Color.FromArgb(0, 54, 128)
+
+            Next
+            For Each r As DataGridViewRow In .Rows
+                If r.Cells("kdb_hervorheben").Value Then
+                    r.DefaultCellStyle.BackColor = Color.LightYellow
+                End If
+                If r.Cells("kdb_history").Value Then
+                    r.DefaultCellStyle.BackColor = Color.LightGray
+                End If
+            Next
+
+            If simpleView Then
+                .Columns("kdb_kategorie").Visible = False
+                .Columns("kdb_mitName").Visible = False
+                .ColumnHeadersVisible = False
+            End If
+            ' .GetOrder()
+
+        End With
+    End Sub
+
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+        Dim f As New frmKundenBesonderheiten_Add(kdNr)
+        f.ShowDialog()
+        initDGV()
+    End Sub
+
+
+
+    Private Sub dgvBesonderheiten_SelectionChanged(sender As Object, e As EventArgs) Handles dgvBesonderheiten.SelectionChanged
+        dgvBesonderheiten.ClearSelection()
+    End Sub
+
+    Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboKategorie.SelectedIndexChanged, cbx.CheckedChanged
+        If loaded Then initDGV()
+    End Sub
+
+
+
+
+    Dim TMP_kdb_id = -1
+    Private Sub dgvBesonderheiten_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvBesonderheiten.CellMouseClick
+        If e.Button = MouseButtons.Right Then
+            If e.RowIndex >= 0 Then
+                If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Besonderheiten_Bearbeiten", "SDL") Then
+                    TMP_kdb_id = dgvBesonderheiten.Rows(e.RowIndex).Cells("kdb_id").Value
+                    cntxt.Show(Cursor.Position)
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub BearbetienToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbetienToolStripMenuItem.Click
+        If TMP_kdb_id < 0 Then Exit Sub
+        Dim f As New frmKundenBesonderheiten_Add(TMP_kdb_id, kdNr)
+        f.ShowDialog()
+        TMP_kdb_id = -1
+        initDGV()
+    End Sub
+    Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click
+        If TMP_kdb_id < 0 Then Exit Sub
+        If vbYes = MsgBox("Möchten Sie den Eintrag wirklich auf 'gelöscht' setzten?", vbYesNoCancel) Then
+            Dim KD_BES As New VERAG_PROG_ALLGEMEIN.cKundenBesonderheiten(TMP_kdb_id)
+            KD_BES.kdb_history = True
+            Dim delStr = "*Gelöscht: "
+            If Not KD_BES.kdb_text.Contains(delStr) Then KD_BES.kdb_text = delStr & KD_BES.kdb_text
+            KD_BES.SAVE()
+
+            TMP_kdb_id = -1
+            initDGV()
+        End If
+    End Sub
+
+End Class