51 lines
2.2 KiB
Plaintext
51 lines
2.2 KiB
Plaintext
' 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 |