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
+        'If dgvVertraegeNew.SelectedRows.Count = 1 Then
-            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraegeNew.SelectedRows(0).Cells("kv_datenarchivId").Value)
+        '    Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraegeNew.SelectedRows(0).Cells("kv_datenarchivId").Value)
-            DS.OPEN_SINGLE()
+        '    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
         '

VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb

@@ -3,7 +3,6 @@ Imports System.Data.SqlClient
 Imports System.IO
 Imports System.Net
 Imports System.Reflection
-Imports DocumentFormat.OpenXml.Office2016.Drawing.ChartDrawing
 
 Public Class cIDS
 
@@ -664,12 +663,17 @@ Public Class cIDS
         Return ""
     End Function
 
-    Public Shared Function checkInvoices() As DataTable
+    Public Shared Function checkInvoices(Optional reDatVon As Date = Nothing, Optional reDatBis As Date = Nothing) As DataTable
         Try
             Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
+            Dim SQLstr = " "
 
-            Dim SQLstr = "select *  from tblIDSInvoicesNew where invoice_id not in (select TotalInvoiceId from tblIDSInvoicesNewSplittedByCountry) and Year(YearMonthDay) >= 2025"
+            If  IsDate(reDatVon) AndAlso cDate(reDatVon) > "01.01.2020" AndAlso IsDate(reDatBis) AndAlso cDate(reDatBis) > "01.01.2020" Then
+                SQLstr &= "select Invoicenumber as RechnungsNr ,YearMonthDay as Rechnungsdatum, Adressen.AdressenNr as KundenNr,Adressen.[Name 1] as Kunde, kde_keineMWSt,daId from tblIDSInvoicesNew  Inner join [tbl_IDS_Kunden] on [tbl_IDS_Kunden].CustomerCode =tblIDSInvoicesNew.CustomerCode and isnull([tbl_IDS_Kunden].KdNrAlt, 1) = 0 Inner join Adressen on Adressen.AdressenNr = [tbl_IDS_Kunden].KdNrVERAG INNER JOIN tblKundenErweitert on Adressen.AdressenNr = kde_KundenNr where invoice_id not in (select TotalInvoiceId from tblIDSInvoicesNewSplittedByCountry) AND YearMonthDay >= '" & reDatVon.ToShortDateString & "' and YearMonthDay < '" & reDatBis.ToShortDateString & "'"
+            Else
+                SQLstr &= "select * from tblIDSInvoicesNew where invoice_id not in (select TotalInvoiceId from tblIDSInvoicesNewSplittedByCountry) AND Year(YearMonthDay) >= 2025"
+            End If
 
             Dim dt = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql(SQLstr, "FMZOLL")