From 44c41bc5288c77d8e292bb57cb02eeefc562d101 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Mon, 12 Aug 2024 10:39:26 +0200 Subject: [PATCH] EV Unisped --- SDL/zoll/usrCntlAuswertungenEV_Veranlagungen.vb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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