diff --git a/MailSender/MAILSender.vb b/MailSender/MAILSender.vb
index a6c7b33..9a14796 100644
--- a/MailSender/MAILSender.vb
+++ b/MailSender/MAILSender.vb
@@ -58,7 +58,7 @@ Module Mail
             '   PARAM = "NCTSLIST_TOBB"
             '   PARAM = "NCTSLIST_TOBB"
             '------------------------------------------------------------------------------------
-            'PARAM = "UID_OPS_SYSKA_ABGLEICH"
+            PARAM = "UID_OPS_SYSKA_ABGLEICH"
 
             If PARAM = "" Then
                 System.Console.WriteLine("OPTION nicht erkannt!")
@@ -2660,7 +2660,7 @@ Module Mail
             For Each i In firmenlist
                 Dim top = 100
                 Dim sql As New SQL
-                Dim sqlstrKunden = "   select * from ( SELECT  [KundenNr] as KundenNr,[Name 1], (isnull(Adressen.UstIdKz,'') + isnull(Adressen.UstIdNr,'')) as UIDNrKunden, isnull(c_ustidnr,'') as UIDNrKundenDeb, [i_firm_refid] as MandantFIBU,  FiBuSchnittstelleNr as MandantAVISO FROM [VERAG].[dbo].[Kunden] 
+                Dim sqlstrKunden = "   select * from ( SELECT  [KundenNr] as KundenNr,[Name 1], Adressen.LandKz, (isnull(Adressen.UstIdKz,'') + isnull(Adressen.UstIdNr,'')) as UIDNrKunden, isnull(c_ustidnr,'') as UIDNrKundenDeb, [i_firm_refid] as MandantFIBU,  FiBuSchnittstelleNr as MandantAVISO FROM [VERAG].[dbo].[Kunden] 
                                         inner join Adressen on Adressen.AdressenNr = Kunden.KundenNr
                                         inner join Buchhaltung.[FIBU2].[dbo].[fibu_konto] on Kunden.KundenNrZentrale = i_konto
                                         where isnull(KundenNrZentrale,0) <> 0 and Auswahl = 'A' And isnull(FiBuSchnittstelleNr,0) = " & i.Value & " ANd [i_firm_refid] = " & i.Value & "  ) as temp  where UIDNrKunden <> UIDNrKundenDeb"
diff --git a/initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb
index 930c649..26bbcb8 100644
--- a/initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb
+++ b/initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb
@@ -424,7 +424,7 @@ Public Class frmMDMNachrichtenVerarbeitung
                                     If Not System.IO.Directory.Exists(ZIEL_PFAD & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then System.IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
 
                                     'File in Datenarchiv sichern:
-                                    Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "PLOSE", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(d))
+                                    Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "PLOSE", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(d),)
                                     DS.uploadDataToDATENSERVER(d)
                                     'DatenArchiv-Id in tblPLOSE_Inv_Data Tabelle eintragen (über PDF-Name) :
                                     SQL.doSQL("Update [tblPLOSE_Inv_Data] SET [plInv_daId]='" & DS.da_id & "'   where [plInv_PdfFileName] = '" & DS.da_name & "' and [plInv_Einlesedatum] > DATEADD(DAY,-4,getdate())  ", "FMZOLL")
diff --git a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb
index a640a08..13d071c 100644
--- a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb
+++ b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb
@@ -564,6 +564,8 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
                                                 document.Zeitstempel = Now()
 
                                                 If document.SAVE() Then cntDatenEingelesen += 1
+                                                frmStartOptions.moveFile_DateBack(d, zielpfad & "EPN_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
+                                                cntDatenEingelesen += 1
 
                                             End If