diff --git a/MDM_Worker/cPLOSE_Inv_Data.vb b/MDM_Worker/cPLOSE_Inv_Data.vb
index b86f33d..e79d6a1 100644
--- a/MDM_Worker/cPLOSE_Inv_Data.vb
+++ b/MDM_Worker/cPLOSE_Inv_Data.vb
@@ -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")
diff --git a/initATLASAufschubkonten/cWorker_Verwahrung.vb b/initATLASAufschubkonten/cWorker_Verwahrung.vb
index 87adf7b..a42e4e2 100644
--- a/initATLASAufschubkonten/cWorker_Verwahrung.vb
+++ b/initATLASAufschubkonten/cWorker_Verwahrung.vb
@@ -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
diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb
index 1f2df1e..3007ec7 100644
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -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