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

28
SDL/USTV/frmUSTVoffeneAntraege.vb
View File

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

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

1
SDL/usrcntlGestellungsgarantien.Designer.vb generated
View File

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

10
VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb
View File

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