neu

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -2337,4 +2337,34 @@ Public Class usrCntlKundenuebersicht
             End If
         End If
     End Sub
+
+    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
+        genUIDEORIList(kdNr, "UID")
+
+    End Sub
+
+    Sub genUIDEORIList(kdNr, typeListe)
+        If kdNr <= 0 Then Exit Sub
+        Dim frmList As New frmKundenUIDEORI_List
+        Select Case typeListe
+            Case "UID"
+                Dim dt = SQL.loadDgvBySql("SELECT [uid_id],[uid_KundenNr],[uid_UstIdKz],[uid_UstIdNr],[uid_Datum],[uid_valid],[uid_Sachbearbeiter],[uid_stufe] FROM [tblUIDPruefung]where uid_KundenNr='" & kdNr & "'", "FMZOLL")
+                If dt IsNot Nothing Then
+                    frmList.dgv.DataSource = dt
+                    frmList.dgv.Columns("uid_id").Visible = False
+                    AddHandler frmList.dgv.CellDoubleClick, Sub()
+                                                                Dim PdfTmp = SDL.FormularManagerNEU.UID_PRUEFUNG_PROTOKOLL(frmList.dgv.SelectedRows(0).Cells("uid_id").Value)
+                                                                If PdfTmp <> "" Then
+                                                                    Process.Start(PdfTmp)
+
+                                                                End If
+                                                                        End Sub
+                    frmList.Show(Me)
+                End If
+            Case "EORI"
+        End Select
+
+
+    End Sub
+
 End Class