62 lines
3.4 KiB
Plaintext
62 lines
3.4 KiB
Plaintext
' Version Date: 07.01.2021
|
|
Function GetWinLineStorageLocation(ProductNumber, ProductSerialNumber, IsSerialNumberArticle)
|
|
Set Conn = CWLStart.CurrentCompany.Connection
|
|
|
|
' Get 'Lagerortstruktur' for Product
|
|
SQL = "SELECT c178 FROM [V021] (NOLOCK) WHERE c010 = '"& ProductNumber &"'"
|
|
|
|
Set Result = Conn.Select(SQL)
|
|
|
|
If Result.Value("c178") = 0 Then
|
|
GetWinLineStorageLocation = 0
|
|
Exit Function
|
|
End If
|
|
|
|
If IsSerialNumberArticle = 1 Then
|
|
Identifier = GetWinLineInternalProductNumber(ProductNumber, ProductSerialNumber)
|
|
Else
|
|
Identifier = ProductNumber
|
|
End If
|
|
|
|
SQL = ""
|
|
SQL = SQL & "SELECT TOP 1 T335.c000 "
|
|
SQL = SQL & "FROM [T024] (NOLOCK), [T335] (NOLOCK), [T299] (NOLOCK) "
|
|
SQL = SQL & "OUTER APPLY (SELECT C000, C001, C003, C031 FROM T335 (NOLOCK) WHERE C000 = T299.C001 AND T335.MESOCOMP = '" & MandatorNr & "' AND (T335.MESOYEAR = " & WinLineCurrentYear & " OR T335.MESOYEAR = " & WinLineCurrentYear - 12 & ")) L1 "
|
|
SQL = SQL & "OUTER APPLY (SELECT C000, C001, C003, C031 FROM T335 (NOLOCK) WHERE C000 = T299.C002 AND T335.MESOCOMP = '" & MandatorNr & "' AND (T335.MESOYEAR = " & WinLineCurrentYear & " OR T335.MESOYEAR = " & WinLineCurrentYear - 12 & ")) L2 "
|
|
SQL = SQL & "OUTER APPLY (SELECT C000, C001, C003, C031 FROM T335 (NOLOCK) WHERE C000 = T299.C003 AND T335.MESOCOMP = '" & MandatorNr & "' AND (T335.MESOYEAR = " & WinLineCurrentYear & " OR T335.MESOYEAR = " & WinLineCurrentYear - 12 & ")) L3 "
|
|
SQL = SQL & "OUTER APPLY (SELECT C000, C001, C003, C031 FROM T335 (NOLOCK) WHERE C000 = T299.C004 AND T335.MESOCOMP = '" & MandatorNr & "' AND (T335.MESOYEAR = " & WinLineCurrentYear & " OR T335.MESOYEAR = " & WinLineCurrentYear - 12 & ")) L4 "
|
|
SQL = SQL & "OUTER APPLY (SELECT C000, C001, C003, C031 FROM T335 (NOLOCK) WHERE C000 = T299.C005 AND T335.MESOCOMP = '" & MandatorNr & "' AND (T335.MESOYEAR = " & WinLineCurrentYear & " OR T335.MESOYEAR = " & WinLineCurrentYear - 12 & ")) L5 "
|
|
SQL = SQL & "WHERE T299.C000 = '"& Identifier &"' AND T299.C000 = T024.C002 AND T299.MESOCOMP = '" & MandatorNr & "' AND (T299.MESOYEAR = " & WinLineCurrentYear & " OR T299.MESOYEAR = " & WinLineCurrentYear - 12 & ") AND T024.MESOCOMP = '" & MandatorNr & "' "
|
|
SQL = SQL & "AND (T024.MESOYEAR = " & WinLineCurrentYear & " OR T024.MESOYEAR = " & WinLineCurrentYear - 12 & ")AND T335.MESOCOMP = '" & MandatorNr & "' AND (T335.MESOYEAR = " & WinLineCurrentYear & " OR T335.MESOYEAR = " & WinLineCurrentYear - 12 & ") AND (T299.C001 = T335.C020 AND T299.C002 = T335.C021 "
|
|
SQL = SQL & "AND T299.C003 = T335.C022 AND T299.C004 = T335.C023 AND T299.C005 = T335.C024 AND T299.C006 = T335.C025) "
|
|
SQL = SQL & "ORDER BY T335.c000 DESC, T299.C001,T299.C002,T299.C003,T299.C004,T299.C005,T299.C006"
|
|
|
|
|
|
If DEBUG_ON = True Then
|
|
AddDebugLine "SQL Part 1: " & Mid(SQL, 1, 750)
|
|
ShowDebugBox "GetWinLineStorageLocation"
|
|
|
|
AddDebugLine "SQL Part 2: " & Mid(SQL, 750)
|
|
ShowDebugBox "GetWinLineStorageLocation"
|
|
End If
|
|
|
|
Set Result = Conn.Select(SQL)
|
|
|
|
If DEBUG_ON = True Then
|
|
AddDebugLine "Querying storage location... " & vbNewline
|
|
AddDebugLine "ArticleNumber: " & ProductNumber
|
|
AddDebugLine "SerialNumber: " & ProductSerialNumber
|
|
AddDebugLine "IsSerialNumber Article: " & IsSerialNumberArticle
|
|
AddDebugLine "Result Columns: " & Result
|
|
AddDebugLine "Result Rows: " & Result.RowCount
|
|
AddDebugLine "SQL: " & SQL
|
|
|
|
ShowDebugBox "GetWinLineStorageLocation"
|
|
End If
|
|
|
|
If Result = -1 Then
|
|
GetWinLineStorageLocation = 0
|
|
Else
|
|
GetWinLineStorageLocation = Result.Value("c000")
|
|
End If
|
|
End Function |