Jara ausblenden Bugfix

This commit is contained in:
2022-09-20 15:37:31 +02:00
parent 6644d97d7e
commit 89d8f5a9b2

View File

@@ -79,7 +79,7 @@ Public Class usrCntlKartenDaten
kdNr_WHERE = ""
End If
If kdNr_filter Then
Dim dt As DataTable = SQL.loadDgvBySql("SELECT KundenSDL.SDLNr FROM KundenSDL INNER JOIN [Speditionsdienstleistungen] as S ON s.SDLNr=KundenSDL.sdlnr WHERE s.SDLTypNr IN (1,2) AND KundenSDL.KundenNr " & kdNr & " group by KundenSDL.SDLNr ")
Dim dt As DataTable = SQL.loadDgvBySql("SELECT KundenSDL.SDLNr FROM KundenSDL INNER JOIN [Speditionsdienstleistungen] as S ON s.SDLNr=KundenSDL.sdlnr WHERE s.SDLTypNr IN (1,2) AND KundenSDL.KundenNr = '" & kdNr & "' group by KundenSDL.SDLNr ")
If dt Is Nothing Then
MsgBox("Es wurden noch keine Leistungen freigeschaltet.")
Else