' 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