' GetWinLineOriginalLineNumber(OrderNumber : String, ArticleNumber : String, IsSerialNumberArticle : Int)
' ----------------------------------------------------------------------------
' Ermittelt die originale Zeilennummer einer belegposition
' 
' 18.02.21 - Wird im Packtisch 3.0 nicht mehr verwendet
'
' Returns: GetWinLineOriginalLineNumber : Int
' ----------------------------------------------------------------------------
' 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:   18.08.2020 / MK
' Version Date / Editor:    26.04.2021 / MP
' Version Number:           3.0.0.3

Function GetWinLineOriginalLineNumber(OrderNumber, ArticleNumber, IsSerialNumberArticle)
	Set Conn = CWLStart.CurrentCompany.Connection

	Err.Clear
	
	If IsSerialNumberArticle = 1 Then
		SQL = "SELECT TOP 1 c078 FROM t026 (NOLOCK) " 
		SQL = SQL & "WHERE c067 = '"& OrderNumber &"' AND c003 = '"& ArticleNumber &"' "
		SQL = SQL & SQLQuery_OrderWhere
		
		Set Result = Conn.Select(SQL)
		
		If DEBUG_ON = True Then
			AddDebugLine "Querying for Original Line Number.. " & vbNewline
			AddDebugLine "Result Columns: " & Result
			AddDebugLine "Result Rows: " & Result.RowCount
			AddDebugLine "SQL: " & SQL
			
			ShowDebugBox "GetWinLineOriginalLineNumber"
		End If
		
		If Result < 0 Then
			If err <> 0 Then
				Msgbox "Fehler bei Abfrage:" & vbNewline & err.description, vbExclamation, DEFAULT_TITLE & " - GetWinLineOriginalLineNumber"
				Exit Function
			Else
				Msgbox "Abfrage lieferte keine Ergebnisse.", vbExclamation, DEFAULT_TITLE & " - GetWinLineOriginalLineNumber"
				Exit Function
			End If
		End If
		
		GetWinLineOriginalLineNumber = Result.Value("c078")
	Else
		If DEBUG_ON = True Then
			AddDebugLine "Setting Original Line Number to 0.."

			ShowDebugBox "GetWinLineOriginalLineNumber"
		End If
		
	
		GetWinLineOriginalLineNumber = "0"
	End If
End Function