36 lines
1.5 KiB
Plaintext
36 lines
1.5 KiB
Plaintext
' GetWinLineStockedAmount(ProductNumber : String, IncludeSalesDocuments : Boolean)
|
|
' ----------------------------------------------------------------------------
|
|
' Lagerstand des Artikels prüfen
|
|
'
|
|
' Returns: NAME : TYP
|
|
' ----------------------------------------------------------------------------
|
|
' Copyright (c) 2021 by Digital Data GmbH
|
|
'
|
|
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
|
|
' Tel.: 0641/202360 • E-Mail: info-flow(at)digitaldata.works
|
|
' ----------------------------------------------------------------------------
|
|
' Creation Date / Author: 22.01.2021 / XX
|
|
' Version Date / Editor: 13.12.2021 / MP
|
|
' Version Number: 3.0.0.6
|
|
|
|
Function GetWinLineStockedAmount(ProductNumber, IncludeSalesDocuments)
|
|
|
|
SQL = ""
|
|
SQL = SQL & "SELECT "
|
|
SQL = SQL & " (SELECT C008 - C009 from [v021] (NOLOCK) where (c002 = '__ARTICLENUMBER__') " & SQLQuery_BasicWhere & ") - "
|
|
|
|
If IncludeSalesDocuments = True Or IncludeSalesDocuments = "True" Or IncludeSalesDocuments = 1 Then
|
|
' Include Products from sales documents
|
|
SQL = SQL & " ISNULL((SELECT SUM(C035) AS [MengeVerkauf] FROM [t014] (NOLOCK) where c000 = '__ARTICLENUMBER__' "& SQLQuery_BasicWhere &"), 0) "
|
|
Else
|
|
' Skip Products from sales documents
|
|
SQL = SQL & " (SELECT 0) "
|
|
End If
|
|
|
|
SQL = SQL & "AS c000"
|
|
|
|
SQL = Replace(SQL, "__ARTICLENUMBER__", ProductNumber)
|
|
Set Result = CWLStart.CurrentCompany.Connection.Select(SQL)
|
|
|
|
GetWinLineStockedAmount = Result.Value("c000")
|
|
End Function |