SDL Jetzt erst recht!

2019-08-08 12:34:08 +02:00
parent f336f214e9
commit 5cbb13561f
1496 changed files with 522451 additions and 0 deletions
--- a/SDL/kunden/frmBonitätsverlauf.vb
+++ b/SDL/kunden/frmBonitätsverlauf.vb
@@ -0,0 +1,114 @@
+Public Class frmBonitätsverlauf
+
+    Public kdnr = -1
+    Sub New(kdnr)
+        InitializeComponent()
+        Me.kdnr = kdnr
+    End Sub
+    Sub New(kdnr As Integer, PARENT_FORMULARMANAGER As frmFormulare)
+        InitializeComponent()
+        Me.kdnr = kdnr
+        Me.PARENT_FORMULARMANAGER = PARENT_FORMULARMANAGER
+    End Sub
+    Sub New(kdnr As Integer, PARENT_USRCNTL As usrcntlCreditreformBoniAuskunft)
+        InitializeComponent()
+        Me.kdnr = kdnr
+        Me.PARENT_USRCNTL = PARENT_USRCNTL
+    End Sub
+
+
+    Public PARENT_FORMULARMANAGER As frmFormulare = Nothing
+    Public PARENT_USRCNTL As usrcntlCreditreformBoniAuskunft = Nothing
+
+    Private Sub frmBonitätsverlauf_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        KdSearchBox1.initKdBox(Me)
+
+        AddHandler KdSearchBox1.PropertyChanged, Sub()
+                                                     initDGV()
+                                                 End Sub
+
+        KdSearchBox1.KdNr = kdnr
+
+    End Sub
+
+    Sub initDGV()
+        Try
+            Me.Cursor = Cursors.WaitCursor
+            MyDatagridview1.Columns.Clear()
+            If KdSearchBox1.KdNr_value > 0 Then
+                With MyDatagridview1
+                    Dim sqlstr As String = ""
+                    sqlstr &= "SELECT *  FROM [VERAG].[dbo].[tblBonitaetsauskunft] where ba_KundenNr=" & KdSearchBox1.KdNr_value & " ORDER BY ba_Datum DESC"
+
+                    .SET_SQL(sqlstr, "FMZOLL")
+                    .LOAD()
+
+                    If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
+                    .RowHeadersVisible = False
+                    .ReadOnly = True
+                    .SelectionMode = DataGridViewSelectionMode.FullRowSelect
+                    .MultiSelect = False
+
+                    .Columns("ba_id").Visible = False
+                    .Columns("ba_KundenNr").Visible = False
+                    .Columns("ba_MaId").Visible = False
+
+
+                    .Columns("ba_CRArt").Visible = False
+                    .Columns("ba_CRAnsprechpartnerHerrFrau").Visible = False
+                    .Columns("ba_CRAnsprechpartner").Visible = False
+                    .Columns("ba_Firma").Visible = False
+                    .Columns("ba_Adresse1").Visible = False
+                    .Columns("ba_Adresse2").Visible = False
+                    .Columns("ba_LetztesBearbeitungsDatum").Visible = False
+                    .Columns("ba_Bankverbindung").Visible = False
+                    .Columns("ba_Sonstiges").Visible = False
+                    .Columns("ba_Umsatz").DefaultCellStyle.Format = "C2"
+                    .Columns("ba_Hoechstkredit").DefaultCellStyle.Format = "C2"
+
+                    For Each c As DataGridViewColumn In .Columns
+                        c.HeaderText = c.Name.Replace("ba_", "")
+                    Next
+                End With
+            End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click
+        Me.Cursor = Cursors.WaitCursor
+        cProgramFunctions.genExcelFromDGV_NEW(MyDatagridview1, False)
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub FlatButton7_Click(sender As Object, e As EventArgs) Handles FlatButton7.Click
+        initDGV()
+    End Sub
+
+    Private Sub MyDatagridview1_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles MyDatagridview1.CellDoubleClick
+        If e.RowIndex < 0 Then Exit Sub
+
+        If PARENT_USRCNTL IsNot Nothing Then
+            PARENT_USRCNTL.LoadValues(MyDatagridview1.Rows(e.RowIndex).Cells("ba_id").Value)
+            Me.Close()
+        ElseIf PARENT_FORMULARMANAGER IsNot Nothing Then
+            Dim found = False
+            For Each c In PARENT_FORMULARMANAGER.MyFlowLayoutPanel1.Controls
+                If c.GetType.ToString = GetType(usrcntlCreditreformBoniAuskunft).ToString Then
+                    DirectCast(c, usrcntlCreditreformBoniAuskunft).LoadValues(MyDatagridview1.Rows(e.RowIndex).Cells("ba_id").Value)
+                    found = True
+                End If
+            Next
+            If found Then Me.Close() : Exit Sub
+        Else
+            Dim f As New frmFormulare
+            f.Show()
+            f.addForm("Boniteatsauskunft", {MyDatagridview1.Rows(e.RowIndex).Cells("ba_id").Value})
+
+        End If
+    End Sub
+End Class