diff --git a/SDL/zoll/usrCntlAuswertungenEV_Veranlagungen.vb b/SDL/zoll/usrCntlAuswertungenEV_Veranlagungen.vb
index 8412ff68..d2860fdc 100644
--- a/SDL/zoll/usrCntlAuswertungenEV_Veranlagungen.vb
+++ b/SDL/zoll/usrCntlAuswertungenEV_Veranlagungen.vb
@@ -47,7 +47,7 @@ Public Class usrCntlAuswertungenEV_Veranlagungen
                         If cboEzollSRV.Text = "UNISPED" Then
                             EZOLL_SQLSRV = "EZOLL_UNISPED"
                         End If
-                        genExcelKd(r("kde_KundenNr"), EZOLL_SQLSRV, folderpath, r("Name"))
+                        genExcelKd(r("kde_KundenNr"), folderpath, EZOLL_SQLSRV, r("Name"))
                         cnt += 1
                     Next
                 End If
@@ -156,7 +156,8 @@ Public Class usrCntlAuswertungenEV_Veranlagungen
                                     End If
 
                                     'Handelsrechnungen
-                                    For Each rg In SQL.DLookupArray("distinct(DRef)", "[zsAnmGdsItemDocCerts] As DOC inner join zsAnmRefs As ANM On ANM.LizenzNr=DOC.LizenzNr And  ANM.OperatorID=DOC.OperatorID And  ANM.AnmID=DOC.AnmID", "(LRN = '" & BezugsNr & "') and DocCd IN ('N380','N325')", EZOLL_SQLSRV, "DRef")
+                                    Dim dtRg = SQL.DLookupArray("distinct(DRef)", "[zsAnmGdsItemDocCerts] As DOC inner join zsAnmRefs As ANM On ANM.LizenzNr=DOC.LizenzNr And  ANM.OperatorID=DOC.OperatorID And  ANM.AnmID=DOC.AnmID", "(LRN = '" & BezugsNr & "') and DocCd IN ('N380','N325')", EZOLL_SQLSRV, "DRef")
+                                    For Each rg In dtRg
                                         handelsrechnungen &= semi & rg : semi = ","
                                     Next
                             End Select