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

divl. Änderungne

Browse Source
This commit is contained in:
d.breimaier
2026-06-17 17:02:04 +02:00
parent 4eb7544918
commit a108d490e2
3 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
MDM_Worker/cPLOSE_Inv_Data.vb
View File

@@ -211,7 +211,7 @@ Public Class cPLOSE_Inv_Data
If jahr < 2020 Then Return False
Dim REohneDAID As String = "Select plInv_Id, plInv_Dateiname,plInv_PdfFileName, plInv_daId, plInv_PLOSEKundennummer FROM [tblPLOSE_Inv_Data] where plInv_daId Is null And plInv_PdfFileName Is Not null And Year(plInv_SupplierRechnungsDatum) = " & jahr & IIf(kdNr > 0, " and plInv_PLOSEKundennummer = " & kdNr, "")
Dim REohneDAID As String = "Select plInv_Id, plInv_Dateiname,plInv_PdfFileName, plInv_daId, plInv_PLOSEKundennummer FROM [tblPLOSE_Inv_Data] where plInv_daId Is null And plInv_PdfFileName Is Not null And Year(plInv_SupplierRechnungsDatum) = " & jahr & IIf(kdNr > 0, " and plInv_PLOSEKundennummer = " & kdNr, "") & " order by plInv_Einlesedatum desc"
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dtREohneDAID As DataTable = SQL.loadDgvBySql(REohneDAID, "FMZOLL")

2
initATLASAufschubkonten/cWorker_Verwahrung.vb
View File

@@ -1237,7 +1237,7 @@ Anzeige:
TextHTMLtable &= "<td><b>" & r.Item("LKW_ID") & "</b></td>"
TextHTMLtable &= "<td><b>" & r.Item("anzahlPackstuecke") & "</b></td>"
TextHTMLtable &= "<td><b>" & r.Item("AnzahlStückErledigt") & "</b></td>"
If Not isNCTS Then TextHTMLtable &= "<td><b>" & r.Item("StornierungKZ") & "</b></td>"
If Not isNCTS AndAlso dt.Columns.Contains("StornierungK") Then TextHTMLtable &= "<td><b>" & r.Item("StornierungKZ") & "</b></td>"
TextHTMLtable &= "</tr>"
Next

11
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -3566,7 +3566,10 @@ Public Class frmStartOptions
Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
Body &= "<br><br>Automatisch generiertes E-Mail."
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(Mail_To, Mail_betreff, Body, getAbsenderEmail(),, False, Mail_CC, Mail_BCC, list)
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = Mail_FIMRA
'VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("d.breimaier@verag.ag", "UID-Prüfung", Body,,, False, , , list)
' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list)
End If
@@ -7599,7 +7602,7 @@ repeatRequest:
Private Sub Button30_Click(sender As Object, e As EventArgs) Handles Button30.Click
Dim BezeichnungSetzen As String = "select Beschreibung_DE,Beschreibung_EN FROM [tblVZPreisliste] where Beschreibung_DE = ''" 'hardcoded, weil erst zu diesem Zeitpunkt bekommen wir alle RMC-Rechnungen vollständig
Dim BezeichnungSetzen As String = "select Beschreibung_DE,Beschreibung_EN FROM [tblVZPreisliste] where Beschreibung_DE = ''"
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dtRechnnungsdaten As DataTable = SQL.loadDgvBySql(BezeichnungSetzen, "FMZOLL")
@@ -8036,9 +8039,9 @@ repeatRequest:
If dt IsNot Nothing Then
For Each r As DataRow In dt.Rows
Dim fehlerhafteMail As String = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_email"))
Dim fehlerhafteMailCC As String = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_emailcc"))
Dim fehlerhafteMailBCC As String = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_emailbcc"))
Dim fehlerhafteMail As String = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK_better(r("kkd_email"))
Dim fehlerhafteMailCC As String = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK_better(r("kkd_emailcc"))
Dim fehlerhafteMailBCC As String = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK_better(r("kkd_emailbcc"))
If fehlerhafteMail <> "" Or fehlerhafteMailCC <> "" Or fehlerhafteMailBCC <> "" Then