AppCustom/MultiTool
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Filter out inactive accounts and document kinds

Browse Source
This commit is contained in:
Jonathan Jenne 2022-05-03 15:59:18 +02:00
parent 8e02ed7159
commit 8743f0c4b1
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
MultiTool.Common/Winline/WinlineData.vb
View File

@ -182,7 +182,8 @@ Namespace Winline
[c260] -- GLN [c260] -- GLN
FROM [{pMandator.Server}].[{pMandator.Database}].[dbo].[v050] FROM [{pMandator.Server}].[{pMandator.Database}].[dbo].[v050]
WHERE WHERE
c139 IS NULL c139 IS NULL -- Kontentyp
AND c105 IS NULL -- Inaktiv
AND mesocomp = '{pMandator.Id}' AND mesocomp = '{pMandator.Id}'
AND mesoyear = {oYear}" AND mesoyear = {oYear}"
Dim oTable = Await Database.GetDatatableAsync(oSQL) Dim oTable = Await Database.GetDatatableAsync(oSQL)
@ -270,6 +271,7 @@ Namespace Winline
[c001] LIKE 'Werk%(VK)' OR [c001] LIKE 'Werk%(VK)' OR
[c001] LIKE 'Werk%(WK)' [c001] LIKE 'Werk%(WK)'
) )
AND c129 IS NULL -- Inaktiv
AND [mesocomp] = '{pMandator.Id}' AND [mesoyear] = {oYear}" AND [mesocomp] = '{pMandator.Id}' AND [mesoyear] = {oYear}"
Dim oTable As DataTable = Await Database.GetDatatableAsync(oSQL) Dim oTable As DataTable = Await Database.GetDatatableAsync(oSQL)
Dim oKinds As New List(Of DocumentKind) Dim oKinds As New List(Of DocumentKind)