Bonutaet, UIDPrüfung, etc.

SDL/kunden/frmKundenblatt.vb

@@ -116,6 +116,10 @@ Public Class frmKundenblatt
         If FilialeNr > 0 Then
             UsrcntlKundeBearbeitenFull1.Filiale = FilialeNr
         End If
+
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Bonität_Bearbeiten", "SDL") Then
+            btnBonitaetBearbeiten.Visible = True
+        End If
         'UsrcntlKundeBearbeitenFull1.BERECHTIGUNEN = BERECHTIGUNEN
         Me.KeyPreview = True
         pnlInfo.Height = 0
@@ -239,6 +243,7 @@ Public Class frmKundenblatt
 
             End If
 
+            lblBonitaet.Text = If(KUNDE.Bonität, "")
 
         Else
             UsrcntlKundeBearbeitenFull1.Enabled = False
@@ -2033,6 +2038,7 @@ Public Class frmKundenblatt
         If loaded Then
             initDGVOffenePosten()
             initDGVUmsatz()
+            initDGVUmsatzNachLeistungsNr()
         End If
     End Sub
 
@@ -2102,5 +2108,72 @@ Public Class frmKundenblatt
 
     End Sub
 
+
+    Sub initDGVUmsatzNachLeistungsNr()
+        With dgvUmsatzNachLeistngsNr
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige Is Nothing Then Exit Sub
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Exit Sub
+            Dim where = ""
+            If cboFirmaFMZOLL._value <> "" Then
+                where = " AND [VermittlerKundenNr] = " & kdNr & " AND Firma_ID=" & cboFirmaFMZOLL._value
+            Else
+                where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")")
+                where &= " AND [VermittlerKundenNr] = " & kdNr
+            End If
+
+            Dim sqlstr = ""
+            sqlstr &= "  SELECT * FROM ( SELECT Leistungen.LeistungsNr, Leistungen.LeistungsBez,YEAR(Abfertigungsdatum ) [Year] , (RechnungsausgangPositionen.SteuerpflichtigerBetrag+RechnungsausgangPositionen.SteuerfreierBetrag  ) AS "
+            sqlstr &= " [Der Wert] FROM Rechnungsausgang INNER JOIN (RechnungsausgangPositionen  LEFT JOIN Leistungen ON RechnungsausgangPositionen.LeistungsNr = Leistungen.LeistungsNr) ON (Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID) "
+            sqlstr &= " WHERE 1 = 1 "
+            sqlstr &= where
+            sqlstr &= " ) AS Rg"
+            sqlstr &= " PIVOT( SUM([Der Wert]) FOR [Year] IN (" & getJahrString() & ")) AS MNamePivot"
+            sqlstr &= " order by LeistungsNr"
+            .DataSource = SQL.loadDgvBySql(sqlstr, "FMZOLL")
+            If .DataSource Is Nothing Then Exit Sub
+            If .Columns.Count = 0 Then Exit Sub
+
+            For i = 0 To dgvUmsatzNachLeistngsNr.ColumnCount - 1
+
+                If i = 0 Then
+                    .Columns(i).Width = 50
+                End If
+
+                If i > 1 Then
+                    .Columns(i).Width = 75
+                    .Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+                End If
+
+            Next
+
+        End With
+
+    End Sub
+
+    Function getJahrString() As String
+        getJahrString = ""
+        For j = Now.Year To 2010 Step -1
+            getJahrString &= "[" & j & "],"
+        Next
+        getJahrString = getJahrString.Substring(0, getJahrString.Length - 1)
+    End Function
+
+    Private Sub btnBonitaetBearbeiten_Click(sender As Object, e As EventArgs) Handles btnBonitaetBearbeiten.Click
+
+        Dim f1 As New frmBonitaet(kdNr)
+        f1.ShowDialog(Me)
+        KdSearchBox1.KdNr = kdNr  'aktualisieren
+
+    End Sub
+
+    Private Sub FlatButton6_Click(sender As Object, e As EventArgs) Handles FlatButton6.Click
+
+        Dim f As New frmBonitätsverlauf(kdNr)
+        f.Show()
+        AddHandler f.FormClosed, Sub()
+                                     KdSearchBox1.KdNr = kdNr
+                                 End Sub
+
+    End Sub
 End Class