' GetWinLineInternalProductNumber(ProductNumber : String, SerialNumber : String)
' ----------------------------------------------------------------------------
' Holt die interne ProductNumber (c002) aus der Artikelview, wenn es eine
' Seriennummer gibt, ansonsten passt der Wert aus dem Parameter
' 
' Returns: Interne Artikelnummer 
' ----------------------------------------------------------------------------
' 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:   10.08.2020 / MK
' Version Date / Editor:    26.04.2021 / MP
' Version Number:           3.0.0.3

Function GetWinLineInternalProductNumber(ProductNumber, SerialNumber)
	Set Conn = CWLStart.CurrentCompany.Connection
	Err.Clear
	
	If SerialNumber = "" Then
		GetWinLineInternalProductNumber = ProductNumber
	Else
		SQL = "SELECT [c002] FROM [v021] (NOLOCK) WHERE [c011] = '"& ProductNumber &"' AND [c068] = '"& SerialNumber &"' AND (c038 IS NULL) " & SQLQuery_BasicWhere
		
		Set Result = Conn.Select(SQL)
		
		If DEBUG_ON = True Then
			AddDebugLine "Querying for Internal Article Number.. " & vbNewline
			AddDebugLine "Result Columns: " & Result 
			AddDebugLine "Result Rows: " & Result.RowCount
			AddDebugLine "SQL: " & SQL
			
			ShowDebugBox "GetWinLineInternalProductNumber"
		End If	
		
		If Result < 0 Then
			If err <> 0 Then
				Msgbox "Fehler bei Abfrage:" & vbNewline & err.description, vbExclamation, DEFAULT_TITLE & " - GetWinLineInternalProductNumber"
				Exit Function
			Else
				Msgbox "Abfrage lieferte keine Ergebnisse.", vbExclamation, DEFAULT_TITLE & " - GetWinLineInternalProductNumber"
				Exit Function
			End If
		End If
		
		GetWinLineInternalProductNumber = Result.Value("c002")	
	End If
End Function