gestellungsgarantien, Vertraege, offeneAntraege, IDS

SDL/USTV/frmUSTVoffeneAntraege.vb

@@ -1,4 +1,5 @@
 Imports System.Windows.Documents
+Imports java.awt.geom
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmUSTVoffeneAntraege
@@ -1107,13 +1108,40 @@ Public Class frmUSTVoffeneAntraege
             If dtfehlendePDF.Rows.Count > 0 Then
                 If vbYes = MsgBox("Details der fehlenden PDF-Rechnungen anzeigen?", vbYesNo) Then
                     cProgramFunctions.genExcelFromDT_NEW(dtfehlendePDF,,, "Fehlende PDF-Rechnungen: " & dat_Sum_Von.Value.ToShortDateString & " - " & dat_Sum_Bis.Value.ToShortDateString)
+
                 End If
             End If
+
+            'extra bei IDS -> wenn nicht korrekt verarbeitet/gesetzt!!
+            If LIEFERANT.ToString.ToLower = "ids" Then
+                Dim IDS As cIDS
+                Dim dt = IDS.checkInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value)
+
+                If dt.Rows.Count > 0 Then
+                    cProgramFunctions.genExcelFromDT_NEW(dt,,, "Fehlende PDF-Teilrechnungen inkl. Datensatz" & dat_Sum_Von.Value.ToShortDateString & " - " & dat_Sum_Bis.Value.ToShortDateString)
+
+                    If vbYes = MsgBox(dt.Rows.Count & " Gesamtrechnungen der fehlenden PDF-Teilrechnungen anzeigen?", vbYesNo) Then
+                        For Each row In dt.Rows
+                            If row.item("daId") IsNot Nothing AndAlso IsNumeric(row.item("daId")) AndAlso CInt(row.item("daId")) > 0 Then
+                                Dim DS As New cDATENSERVER(row.item("daId"))
+                                Dim pathPDF = DS.GET_TOP1_PATH
+                                If pathPDF <> "" Then Process.Start(pathPDF)
+                            End If
+
+                        Next
+                    End If
+
+                End If
+
+            End If
+
         Else
             MsgBox("Funktion nur pro Lieferant möglich!")
         End If
 
 
+
+
     End Sub
 
     Private Sub frmUSTVoffeneAntraege_Load(sender As Object, e As EventArgs) Handles MyBase.Load

SDL/kunden/usrcntlVertraege.vb

@@ -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

SDL/usrcntlGestellungsgarantien.Designer.vb

@@ -157,6 +157,7 @@ Partial Class usrcntlGestellungsgarantien
         Me.dgvGestGarantieNew.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvGestGarantieNew.Location = New System.Drawing.Point(0, 0)
         Me.dgvGestGarantieNew.Name = "dgvGestGarantieNew"
+        Me.dgvGestGarantieNew.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
         Me.dgvGestGarantieNew.Size = New System.Drawing.Size(506, 105)
         Me.dgvGestGarantieNew.TabIndex = 15
         '