' UpdateDeliveryNote(OrderNumber: String)
' ----------------------------------------------------------------------------
' Füllt zusätzliche Felder in der Tabelle t025 (Belegkopf)
' - User ID (U000)
' - Datum und Uhrzeit der LS-Erzeugung (U001)
' - Name des Computers an dem der Packtisch läuft (U002)
' - Packtischversion (U003)
' 
' Returns: -
' ----------------------------------------------------------------------------
' 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:   26.04.2021 / MP
' Version Date / Editor:    26.04.2021 / MP
' Version Number: 			3.0.0.3

Function UpdateDeliveryNote(OrderNumber)
	Err.Clear
	
	Dim SQL : SQL = ""
	Dim NowObject : NowObject = Now
	Dim UserNumber : UserNumber = CWLStart.CurrentUser.Number
	Dim DateString : DateString = Year(NowObject) & "-" & GetLeftPad(Month(NowObject)) & "-" & GetLeftPad(Day(NowObject))
	Dim TimeString : TimeString = GetLeftPad(Hour(NowObject)) & ":" & GetLeftPad(Minute(NowObject)) & ":" & GetLeftPad(Second(NowObject))
	Dim ComputerName : ComputerName = GetWindowsEnvironment("COMPUTERNAME")
		
	SQL = SQL & " UPDATE t025"
	SQL = SQL & " SET U000 = " & UserNumber & ", U001 = '" & DateString & " " & TimeString & "',"
	SQL = SQL & " U002 = '" & ComputerName & "', U003 = '" & PACKTISCH_VERSION & "'"
	SQL = SQL & " WHERE c000 = (SELECT TOP 1 c000 FROM t025 WHERE c029 IS NOT NULL AND c044 = '" & OrderNumber & "' " & SQLQuery_OrderWhere & " ORDER BY ts DESC) " & SQLQuery_OrderWhere	
	
	If DEBUG_ON = True Then
		AddDebugLine "SQL: " & SQL	
		ShowDebugBox "UpdateDeliveryNote"
	End If

	CWLStart.Connection.ExecuteSQL(SQL)
	
	If err <> 0 Then 
		MsgBox "Fehler beim Updaten des Lieferscheins: " & err.number & " - " & err.description
	End If 
End Function