From 2107d6620b1679a02ae7a2a54b14dd3c992cc259 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 19 Feb 2026 17:04:50 +0100 Subject: [PATCH] gestellungsgarantien, Vertraege, offeneAntraege, IDS --- SDL/USTV/frmUSTVoffeneAntraege.vb | 28 ++++++++++++++++++ SDL/kunden/usrcntlVertraege.vb | 32 +++++++++++++++++++-- SDL/usrcntlGestellungsgarantien.Designer.vb | 1 + VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb | 10 +++++-- 4 files changed, 65 insertions(+), 6 deletions(-) diff --git a/SDL/USTV/frmUSTVoffeneAntraege.vb b/SDL/USTV/frmUSTVoffeneAntraege.vb index 09be87e5..121b2f9e 100644 --- a/SDL/USTV/frmUSTVoffeneAntraege.vb +++ b/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 diff --git a/SDL/kunden/usrcntlVertraege.vb b/SDL/kunden/usrcntlVertraege.vb index 28b38f3b..bde82372 100644 --- a/SDL/kunden/usrcntlVertraege.vb +++ b/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 diff --git a/SDL/usrcntlGestellungsgarantien.Designer.vb b/SDL/usrcntlGestellungsgarantien.Designer.vb index 5bffced6..9a7605fb 100644 --- a/SDL/usrcntlGestellungsgarantien.Designer.vb +++ b/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 ' diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb b/VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb index b242034e..1e007358 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb +++ b/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")