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

plose, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-03-25 16:05:49 +01:00
parent 3223714ba5
commit c6d3fea004
2 changed files with 25 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -5460,9 +5460,9 @@ Public Class frmStartOptions
If invoice IsNot Nothing And invoice.Columns.Contains("invoice_id") AndAlso invoice.Rows.Count > 0 Then
Dim dvInvoice As New DataView(invoice)
' Dim distinctInv As DataTable = dvInvoice.ToTable(True, New String() {"invoice_id"})
Dim distinctInv As DataTable = dvInvoice.ToTable(True, New String() {"invoice_id"})
Dim distinctInv As DataTable = (New SQL).loadDgvBySql("select distinct(invoice_id) FROM [VERAG].[dbo].[tblMSEInvoices] where invoice_date = '2026-03-15' and invoice_id is not null ", "FMZOLL")
'Dim distinctInv As DataTable = (New SQL).loadDgvBySql("select distinct(invoice_id) FROM [VERAG].[dbo].[tblMSEInvoices] where invoice_date = '2026-03-15' and invoice_id is not null ", "FMZOLL")
For Each r As DataRow In distinctInv.Rows
@@ -7446,7 +7446,8 @@ repeatRequest:
Private Sub lblIDS_plauscheck_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblIDS_plauscheck.LinkClicked
Dim IDS As cIDS
Dim dt = IDS.checkPDFInvoices()
Dim dt As New DataTable
IDS.checkPDFInvoices(,, dt)
If dt.Rows.Count > 0 Then