Filter out inactive accounts and document kinds

MultiTool.Common/Winline/WinlineData.vb

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