48 lines
2.0 KiB
Plaintext
48 lines
2.0 KiB
Plaintext
' GetWinLineProductInfoByProductNumber(ProductNumber : String, WinLineMandatorNr : String, WinLineYear : Int)
|
|
' ----------------------------------------------------------------------------
|
|
' Läd den passenden Datensatz aus v021 zur übergebenen Artikelnummer
|
|
'
|
|
' Returns: GetWinLineProductInfoByProductNumber : WinLineProductInfo-Objekt
|
|
' ----------------------------------------------------------------------------
|
|
' 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: 23.09.2020 / JJ
|
|
' Version Date / Editor: 23.09.2020 / JJ
|
|
' Version Number: 1.0.0.0
|
|
|
|
Function GetWinLineProductInfoByProductNumber(ProductNumber, WinLineMandatorNr, WinLineYear)
|
|
|
|
On Error Resume Next
|
|
|
|
If (ProductNumber <> "") Then
|
|
|
|
SQLTable_WinLineProductInfo = "V021"
|
|
SQLQuery_WinLineProductInfo = "c011 = '"& ProductNumber &"' and c002 = c011 and MESOCOMP = '"& WinLineMandatorNr &"' AND MESOYEAR = '"& WinLineCurrentYear &"'"
|
|
|
|
Set SQLResult_WinLineProductInfo = CWLStart.CurrentCompany.SearchRecord (SQLTable_WinLineProductInfo, SQLQuery_WinLineProductInfo)
|
|
|
|
If (DEBUG_ON = True) or (DebugMode = "Enabled" ) Then
|
|
AddDebugLine "Querying for Article Number.. " & vbNewline
|
|
AddDebugLine "Result Columns: " & SQLResult_WinLineProductInfo
|
|
AddDebugLine "Result Rows: " & SQLResult_WinLineProductInfo.RowCount
|
|
AddDebugLine "SQL: " & SQLQuery_WinLineProductInfo
|
|
|
|
ShowDebugBox "GetWinLineInternalProductNumber"
|
|
End If
|
|
|
|
If (SQLResult_WinLineProductInfo.RowCount = -1) or (SQLResult_WinLineProductInfo.RowCount = 0) Then
|
|
|
|
GetWinLineProductInfoByProductNumber = 0
|
|
|
|
Elseif (SQLResult_WinLineProductInfo.RowCount >= 1) Then
|
|
|
|
Set GetWinLineProductInfoByProductNumber = SQLResult_WinLineProductInfo
|
|
|
|
End if
|
|
|
|
End if
|
|
|
|
End Function |