This commit is contained in:
2024-10-03 10:25:55 +02:00
parent b3dc251ff5
commit 69aed16926
5 changed files with 14 additions and 28 deletions

View File

@@ -1,11 +1,5 @@
Imports System.Drawing
Imports System.IO
Imports System.Reflection
Imports System.Security.Policy
Imports System.Threading
Imports System.Web.UI.WebControls.WebParts
Imports System.Windows.Forms
Imports VERAG_PROG_ALLGEMEIN.cMessenger
Public Class frmMessenger
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

View File

@@ -1,11 +1,8 @@

Imports System.Drawing
Imports System.Globalization
Imports System.Reflection
Imports System.Text
Imports System.Threading
Imports System.Windows.Forms
Imports DocumentFormat.OpenXml.Drawing.Diagrams
Public Class frmUeberstundenauszahlen
Dim refresh As Boolean = False

View File

@@ -1,9 +1,6 @@
Imports System.Data.SqlClient
Imports System.EnterpriseServices
Imports System.IO
Imports System.Net
Imports System.Reflection
Imports DocumentFormat.OpenXml.InkML
Public Class cMSEAPI
@@ -1016,7 +1013,7 @@ Public Class cMSEAPI
'\\datenarchiv\Datenarchiv\MDM_SCHNITTSTELLEN\ECHTSYSTEM\Nachrichtendaten_ZIEL\MSE
If r("url") <> "" AndAlso r("name") <> "" AndAlso r("name").contains("VAT") Then 'only VAT-Invoices
Dim inv As New cMSEInvoices(r("name"), r("inv.invoice_id"))
Dim inv As New cMSEInvoices(r("name"), r("invoice_id"))
If Not inv.imported Then 'verhindert unnötige Downloads
Dim filepath = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURLStream(r("url"), r("name"), PDFRECHNUNGENPFAD, False)
If filepath <> "" AndAlso uploadToDs Then