Creditsafe-API

SDL/kunden/frmBonitätsverlauf.vb

@@ -66,10 +66,26 @@
                     .Columns("ba_Sonstiges").Visible = False
                     .Columns("ba_Umsatz").DefaultCellStyle.Format = "C2"
                     .Columns("ba_Hoechstkredit").DefaultCellStyle.Format = "C2"
+                    .Columns("ba_datenarchivId").Visible = False
 
-                    For Each c As DataGridViewColumn In .Columns
-                        c.HeaderText = c.Name.Replace("ba_", "")
+                    Dim c As New DataGridViewImageColumn
+                    c.Name = "PDF" : c.HeaderText = "Bericht"
+                    c.Image = My.Resources.pdf_gray : c.ImageLayout = DataGridViewImageCellLayout.Zoom
+                    c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
+                    c.DefaultCellStyle.Tag = "PDF anzeigen"
+                    .Columns.Add(c)
+
+
+                    For Each r As DataGridViewRow In .Rows
+                        If r.Cells("ba_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("ba_datenarchivId").Value) > 0 Then
+                            DirectCast(r.Cells("PDF"), DataGridViewImageCell).Value = My.Resources.pdf
+                        End If
                     Next
+
+                    For Each cc As DataGridViewColumn In .Columns
+                        cc.HeaderText = cc.Name.Replace("ba_", "")
+                    Next
+
                     If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
                 End With
             End If
@@ -93,24 +109,43 @@
     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
+        If MyDatagridview1.Columns(e.ColumnIndex).Name = "PDF" Then
+            openPDF(sender, e)
         Else
-            Dim f As New frmFormulare
-            f.Show()
-            f.addForm("Boniteatsauskunft", {MyDatagridview1.Rows(e.RowIndex).Cells("ba_id").Value})
+
+            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 If
+
+
+
+    End Sub
+
+    Private Sub openPDF(sender As Object, e As DataGridViewCellEventArgs)
+
+        If MyDatagridview1.Rows(e.RowIndex).Cells("ba_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(MyDatagridview1.Rows(e.RowIndex).Cells("ba_datenarchivId").Value) > 0 Then
+
+            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(MyDatagridview1.Rows(e.RowIndex).Cells("ba_datenarchivId").Value)
+            DS.OPEN_SINGLE(True)
+        End If
+
     End Sub
 
 End Class