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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-11-05 07:59:47 +01:00
parent dcb3cea10e
commit 3b532b0a10
37 changed files with 2804 additions and 189 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/Reports/MDM/BriefSDl/rptSDLBrief.vb
View File

@@ -32,7 +32,9 @@ Public Class rptSDLBrief
If archiviert Then
sqlStr &= " AND isnull([archiviert] ,0)=1 "
Else
sqlStr &= " AND isnull(lkw.KZAenderung ,0)=0 AND isnull(lkw.Verkauft ,0)=0 AND isnull(lkw.Abgemeldet ,0)=0 AND isnull([Gesperrt],0)=0 AND isnull([Defekt] ,0)=0 AND isnull([Verloren] ,0)=0 AND isnull([Gestohlen] ,0)=0 "
sqlStr &= " AND isnull([archiviert] ,1)=0 "
' sqlStr &= " AND isnull(lkw.KZAenderung ,0)=0 AND isnull(lkw.Verkauft ,0)=0 AND isnull(lkw.Abgemeldet ,0)=0 AND isnull([Gesperrt],0)=0 AND isnull([Defekt] ,0)=0 AND isnull([Verloren] ,0)=0 AND isnull([Gestohlen] ,0)=0 "
sqlStr &= "/* AND isnull(lkw.KZAenderung ,0)=0 AND isnull(lkw.Verkauft ,0)=0 AND isnull(lkw.Abgemeldet ,0)=0 */ AND isnull([Gesperrt],0)=0 AND isnull([Defekt] ,0)=0 AND isnull([Verloren] ,0)=0 AND isnull([Gestohlen] ,0)=0 "
End If
Dim order As String = " ORDER BY SDLNr, Bestelldatum, BestellNr,Ausstellungsdatum,KartenNr,OBUID"