' UpdateDeliveryNote(OrderNumber: String)
' ----------------------------------------------------------------------------
' Füllt zusätzliche Felder in der Tabelle t025 (Belegkopf)
' - User ID (FLD_BENUTZERNUMMER_PACKTISCH)
' - Datum und Uhrzeit der LS-Erzeugung (FLD_ERSTELLDATUM_PACKTISCH)
' - Name des Computers an dem der Packtisch läuft (FLD_COMPUTERNAME_PACKTISCH)
' - Packtischversion (FLD_VERSION_PACKTISCH)
' 
' 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:    23.06.2021 / MP
' Version Number: 			4.0.0.0

Sub UpdateDeliveryNote(OrderNumber)
	Err.Clear
	
	If USE_ADDITIONAL_DBFIELDS = False Then
		Exit Sub
	End If
	
	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 SET "
	SQL = SQL & FLD_BENUTZERNUMMER_PACKTISCH & " = " & UserNumber & ", "
	SQL = SQL & FLD_ERSTELLDATUM_PACKTISCH & " = '" & DateString & " " & TimeString & "', "
	SQL = SQL & FLD_COMPUTERNAME_PACKTISCH & " = '" & ComputerName & "', "
	SQL = SQL & FLD_VERSION_PACKTISCH & " = '" & 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 Sub