div. Änderungen

UID/frmAPIEinstellungen.vb

@@ -235,18 +235,54 @@ Public Class frmAPIEinstellungen
                 Dim path As New System.IO.DirectoryInfo(DataGridView.CurrentRow.Cells("api_debugpath").Value)
 
                 If DataGridView.CurrentRow.Cells("api_debugpath").Value IsNot DBNull.Value AndAlso path.Exists Then
-                        Process.Start(DataGridView.CurrentRow.Cells("api_debugpath").Value)
-                    End If
+                    Process.Start(DataGridView.CurrentRow.Cells("api_debugpath").Value)
                 End If
-
-        Else
-
             End If
-        Me.Cursor = Cursors.Default
+
+        ElseIf DataGridView.Columns(e.ColumnIndex).Name = "api_program" Then
+            If DataGridView.CurrentRow.Cells("api_program").Value <> "" AndAlso DataGridView.CurrentRow.Cells("api_program").Value.ToString.ToLower = "creditsafe" Then
+                openCreditsafeRequests()
+            End If
+
+
+        End If
+            Me.Cursor = Cursors.Default
     End Sub
 
     Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
         Dim webAddress As String = "https://wiki.verag.ag/de/software/Offene_Punkte#aviso-schnittstellen-zu-fremdsystemen"
         Process.Start(webAddress)
     End Sub
+
+    Private Sub openCreditsafeRequests()
+        Try
+
+            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+            Dim frm As New Form
+            Dim dgv As New DataGridView()
+            Dim dt As New DataTable
+            Dim cs = New cCreditSafeAPI("creditsafe")
+            cs.authenticate()
+            cs.getSubscriptionCountries(dt)
+            dgv.DataSource = dt
+            If dgv IsNot Nothing Then
+                frm.Size = New Size(1400, 1000)
+                dgv.Size = New Size(frm.Size.Width - 50, frm.Size.Height - 50)
+                dgv.Dock = DockStyle.Fill
+                dgv.Anchor = AnchorStyles.Left
+                dgv.Anchor = AnchorStyles.Top
+                dgv.ReadOnly = True
+                frm.Controls.Add(dgv)
+                frm.StartPosition = FormStartPosition.CenterScreen
+                frm.ShowDialog()
+            End If
+
+
+        Catch ex As System.Exception
+
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+
+    End Sub
 End Class