45 lines
1.9 KiB
Plaintext
45 lines
1.9 KiB
Plaintext
' 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 |