edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gestellungsgarantien, Vertraege, offeneAntraege, IDS

Browse Source
This commit is contained in:
d.breimaier
2026-02-19 17:04:50 +01:00
parent c6205619c6
commit 2107d6620b
4 changed files with 65 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
SDL/kunden/usrcntlVertraege.vb
View File

@@ -9,10 +9,36 @@ Public Class usrcntlVertraege
Public Shared Event clickOK(ByVal sender As System.Object, ByVal e As System.EventArgs)
Private Sub dgvVertraege_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVertraegeNew.CellContentDoubleClick
If dgvVertraegeNew.SelectedRows.Count = 1 Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraegeNew.SelectedRows(0).Cells("kv_datenarchivId").Value)
DS.OPEN_SINGLE()
'If dgvVertraegeNew.SelectedRows.Count = 1 Then
' Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraegeNew.SelectedRows(0).Cells("kv_datenarchivId").Value)
' DS.OPEN_SINGLE()
'End If
Dim tmprowindex As Integer = e.RowIndex
If dgvVertraegeNew.Columns(e.ColumnIndex).Name = "clmnPDF" Then
If dgvVertraegeNew.Rows(e.RowIndex).Cells("kv_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(dgvVertraegeNew.Rows(e.RowIndex).Cells("kv_datenarchivId").Value) > 0 Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraegeNew.Rows(tmprowindex).Cells("kv_datenarchivId").Value)
If DS.hasITEMS Then
For Each i In DS.DATA_LIST.LIST
Process.Start(i.coll_pfad)
Next
End If
End If
ElseIf dgvVertraegeNew.Columns(e.ColumnIndex).Name = "clmnMail" Then
If dgvVertraegeNew.Rows(e.RowIndex).Cells("kv_datenarchivId_mail").Value IsNot DBNull.Value AndAlso CInt(dgvVertraegeNew.Rows(e.RowIndex).Cells("kv_datenarchivId_mail").Value) > 0 Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraegeNew.Rows(tmprowindex).Cells("kv_datenarchivId_mail").Value)
If DS.hasITEMS Then
For Each i In DS.DATA_LIST.LIST
Process.Start(i.coll_pfad)
Next
End If
End If
End If
End Sub
Private Sub dgvVertraege_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvVertraegeNew.CellMouseClick