div. Änderungen

SDL/kunden/usrCntlCBAM.vb

@@ -494,7 +494,7 @@ Public Class usrCntlCBAM
 
 
 
-            If dtGP IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+            If dtGP IsNot Nothing AndAlso dtGP.Rows.Count > 0 Then
 
                 If ReDaten.Rows.Count > 0 Then
                     dtGP.Columns("invoice date").ReadOnly = False
@@ -509,8 +509,6 @@ Public Class usrCntlCBAM
                     ' Look for matching row in dt2
                     Dim found() As DataRow = ReDaten.Select("Registriernummer_MRN = '" & MDN_NR & "'")
 
-
-
                     If found.Length > 0 Then
 
                         Dim rechnugnsdatum As String = found(0)("Positionsunterlagendatum")

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -1,6 +1,7 @@
 Imports System.Data.SqlClient
 Imports System.Globalization
 Imports System.IO
+Imports org.BouncyCastle.Asn1.Ocsp
 Imports SDL.EORI
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -1681,7 +1682,11 @@ Public Class usrCntlKundenuebersicht
     Private Sub dgvVertraege_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVertraege.CellDoubleClick
         If dgvVertraege.SelectedRows.Count = 1 Then
             Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraege.SelectedRows(0).Cells("kv_datenarchivId").Value)
-            DS.OPEN_SINGLE()
+            If DS.hasITEMS Then
+                For Each i In DS.DATA_LIST.LIST
+                    Process.Start(i.coll_pfad)
+                Next
+            End If
         End If
     End Sub