edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-03-04 15:47:48 +01:00
parent 3aaf328ce6
commit b4612ab3e0
142 changed files with 24372 additions and 14785 deletions
Download Patch File Download Diff File Expand all files Collapse all files

65
SDL/kunden/usrCntlKundenBesonderheiten.vb
View File

@@ -4,7 +4,30 @@
Dim loaded = False
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Protected Overrides Sub OnVisibleChanged(ByVal e As EventArgs)
doStyle()
End Sub
Sub doStyle()
With dgvBesonderheiten
If .Columns.Count = 0 Then dgvBesonderheiten.Columns.Clear() : Exit Sub
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
End With
End Sub
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)
@@ -15,12 +38,12 @@
loaded = True
End Sub
Sub init(kdNr, Optional Kategorie = "", Optional simpleView = False)
Sub init(kdNr, Optional Kategorie = "", Optional simpleView = False, Optional preferedKategorie = "", Optional preferedKategorieOtherIN = "")
loaded = False
If simpleView Then Panel1.Visible = False 'showhideOptions(False)
cboKategorie.changeItem(Kategorie)
cbx.Checked = False
initDGV(kdNr, simpleView)
initDGV(kdNr, simpleView, preferedKategorie, preferedKategorieOtherIN)
loaded = True
End Sub
@@ -30,7 +53,7 @@
cboKategorie.Visible = visible
lbl.Visible = visible
End Sub
Private Sub initDGV(Optional kdnrTmp = -1, Optional simpleView = False)
Private Sub initDGV(Optional kdnrTmp = -1, Optional simpleView = False, Optional preferedKategorie = "", Optional preferedKategorieOtherIN = "")
dgvBesonderheiten.Columns.Clear()
@@ -50,7 +73,14 @@
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")
Dim order = " ORDER BY kdb_AenderungAm desc"
Dim katIN = " "
If preferedKategorie <> "" Then
order = " ORDER BY CASE WHEN kdb_kategorie = '" & preferedKategorie & "' THEN 1 ELSE 2 END desc, kdb_AenderungAm desc "
If katIN <> "" Then order = " AND kdb_kategorie IN(" & preferedKategorieOtherIN & ",'" & preferedKategorie & "') "
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 " & katIN & where & " " & order, "FMZOLL")
If .Columns.Count = 0 Then dgvBesonderheiten.Columns.Clear() : Exit Sub
.ClearSelection()
@@ -76,19 +106,22 @@
.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
doStyle()
'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