edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

EV Unisped

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-08-12 10:39:26 +02:00
parent 32c9faf509
commit 44c41bc528
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
SDL/zoll/usrCntlAuswertungenEV_Veranlagungen.vb
View File

@@ -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