Bugfix, Auswerung, APIO

2024-10-22 17:08:52 +02:00
parent e7d2164ace
commit ca19bbfa09
4 changed files with 12 additions and 9 deletions
--- a/SDL/zoll/usrCntlAuswertungenEV_Veranlagungen.vb
+++ b/SDL/zoll/usrCntlAuswertungenEV_Veranlagungen.vb
@@ -1,6 +1,4 @@
-Imports System.IO
-
-Public Class usrCntlAuswertungenEV_Veranlagungen
+Public Class usrCntlAuswertungenEV_Veranlagungen



@@ -156,10 +154,13 @@ Public Class usrCntlAuswertungenEV_Veranlagungen
                                    End If

                                    'Handelsrechnungen
+
                                    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
+                                        For Each rg In dtRg
+                                            handelsrechnungen &= semi & rg : semi = ","
+                                        Next
+
+
                            End Select