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

Only process active articles

Browse Source
This commit is contained in:
Jonathan Jenne 2023-11-07 10:02:04 +01:00
parent 34c8ecbee5
commit dc4955db17
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -89,7 +89,8 @@ Namespace Winline
[c075] -- EAN
FROM [{pMandator.Server}].[{pMandator.Database}].[dbo].[v021]
WHERE
mesocomp = '{pMandator.Id}' AND mesoyear = {oYear}"
c038 IS NULL -- Nur Aktive Artikel
AND mesocomp = '{pMandator.Id}' AND mesoyear = {oYear}"
Dim oTable = Await Database.GetDatatableAsync(oSQL)
Dim oArticles As New List(Of Article)
@ -531,7 +532,7 @@ Namespace Winline
FROM [{pMandator.Database}].[dbo].[v021]
WHERE
[c075] = '{pEAN}'
AND [c038] IS NULL -- Aktiv
AND [c038] IS NULL -- Nur Aktive Artikel
AND [mesocomp] = '{pMandator.Id}' AND [mesoyear] = {oYear}"
Dim oTable As DataTable = Database.GetDatatable(oSQL)
@ -636,6 +637,7 @@ Namespace Winline
[c123] -- Ersatzartikelnummer
FROM [{pMandator.Database}].[dbo].[v021]
WHERE [c011] = '{pArticleNumber}'
AND c038 IS NULL -- Nur Aktive Artikel
AND [mesocomp] = '{pMandator.Id}' AND [mesoyear] = {oYear}"
Dim oTable As DataTable = Database.GetDatatable(oSQL)