diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb
index c1e545dc..74bda06c 100644
--- a/SDL/My Project/AssemblyInfo.vb	
+++ b/SDL/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.5.8.7")>
-<Assembly: AssemblyFileVersion("1.5.8.7")>
+<Assembly: AssemblyVersion("1.5.8.8")>
+<Assembly: AssemblyFileVersion("1.5.8.8")>
diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb
index 71a82589..1757d8e0 100644
--- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb
+++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb
@@ -845,5 +845,7 @@ Public Class usrCntlATLAS_EZA
         End If
 
     End Sub
+
+
 End Class
 
diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb
index c2121bc4..10827efe 100644
--- a/SDL/mdm/frmMDMDatenverarbetiung.vb
+++ b/SDL/mdm/frmMDMDatenverarbetiung.vb
@@ -1170,7 +1170,7 @@ Public Class frmMDMDatenverarbetiung
 
             .SET_SQL("    SELECT spesen.kundenNr as KdNr, Adressen.[Name 1] as Name, datum as Datum , (spesen.betrag * -1) as Betrag, spesen.gebuehr as Gebühr , spesen.buchungstext as Buchnungstext,spesen.kontoauszug as Kontoauszug, spesen.iban as IBAN, spesen.bic as BIC  FROM [tblMDM_Bankspesen] as spesen
                             inner join adressen ON spesen.kundenNr = Adressen.AdressenNr 
-                             where datum between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' and spesen.typ = 'Q'  and isnull(spesen.RK_ID,0) = 0 and spesen.SR_datum is null " & IIf(cbxIDSmitVerag.Checked, " ", " AND Left(spesen.KundenNr,2) <> 14 AND Left(spesen.KundenNr,2) <> 15 "), "FMZOLL")
+                             where datum between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' and spesen.typ = 'Q'  and isnull(spesen.RK_ID,0) = 0 and spesen.SR_datum is null " & IIf(cbxIDSmitVerag.Checked, " ", " AND Left(spesen.KundenNr,2) <> 14 AND Left(spesen.KundenNr,2) <> 15 AND Left(spesen.KundenNr,2) <> 18 "), "FMZOLL")
 
             .LOAD()
 
@@ -1872,7 +1872,6 @@ Public Class frmMDMDatenverarbetiung
                         Case MsgBoxResult.Yes
 
 
-
                             For Each R As DataRow In dtfehlendeOfferten.Rows
                                 If Not IsDBNull(R.Item("KundenNr")) AndAlso R.Item("KundenNr") IsNot Nothing AndAlso IsNumeric(R.Item("KundenNr")) Then
                                     Dim OffertenNr As Integer = -1
@@ -1911,6 +1910,8 @@ Public Class frmMDMDatenverarbetiung
 
                             Next
 
+                        Case MsgBoxResult.No
+
                     End Select
 
 
@@ -2020,10 +2021,7 @@ Public Class frmMDMDatenverarbetiung
 
                 Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
                 Dim verarbOK = IIf(test, False, True)
-                'Dim RECHNUNG As cRechnungsausgang = Nothing
-
-                Dim integerTem = 3051176
-                Dim RECHNUNG As New cRechnungsausgang(integerTem)
+                Dim RECHNUNG As cRechnungsausgang = Nothing
 
                 If Not gen_SPEDBUCH_ByKdNr(IDS("KdNrVERAG"), SPEDBUCH, art,,,, datPloseAnhang.Value) Then verarbOK = False
                 If Not gen_RECHNUNG_BySPEDBUCH(IDS("KdNrVERAG"), SPEDBUCH, art,,,, RECHNUNG) Then verarbOK = False