Skip inactive articles when looking up EAN

MultiTool.Common/Winline/WinlineData.vb

@@ -511,7 +511,9 @@ Namespace Winline
                     [c075], -- EAN-Nummer 
                     [c123]  -- Ersatzartikelnummer
                     FROM [{pMandator.Database}].[dbo].[v021]
-                    WHERE [c075] = '{pEAN}'
+                    WHERE 
+                    [c075] = '{pEAN}'
+                    AND [c038] IS NULL -- Aktiv
                     AND [mesocomp] = '{pMandator.Id}' AND [mesoyear] = {oYear}"
                 Dim oTable As DataTable = Database.GetDatatable(oSQL)
 
@@ -678,6 +680,7 @@ Namespace Winline
                         [c123]  -- Ersatzartikelnummer
                         FROM [{oMandator.Database}].[dbo].[v021]
                         WHERE [c075] = '{oEANNumber}'
+                        AND [c038] IS NULL
                         AND [mesocomp] = '{oMandator.Id}' AND [mesoyear] = {oYear}"
                     Dim oTable As DataTable = Database.GetDatatable(oSQL)