65 lines
1.5 KiB
Plaintext
65 lines
1.5 KiB
Plaintext
' UpdateArticleMasterData() // NICHT MEHR VERWENDET
|
|
' ----------------------------------------------------------------------------
|
|
' Stellt Methoden für das Aktualisieren der t024 (Artikel Stammdatei) bereit
|
|
'
|
|
' 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: 16.02.2022 / MP/JJ
|
|
' Version Date / Editor: 16.02.2022 / MP/JJ
|
|
' Version Number: 4.0.0.0
|
|
|
|
|
|
|
|
Sub UpdateArticleSN(ArtikelNr, PseudoSN, RealSN)
|
|
|
|
Set Conn = CWLStart.Connection
|
|
Err.Clear
|
|
|
|
Dim UpdateSQL : UpdateSQL = ""
|
|
UpdateSQL = UpdateSQL & "UPDATE dbo.t024 "
|
|
UpdateSQL = UpdateSQL & "SET [c068] = '" & RealSN & "' WHERE "
|
|
UpdateSQL = UpdateSQL & "c011 = '" & ArtikelNr & "' AND "
|
|
UpdateSQL = UpdateSQL & "c068 = '" & PseudoSN & "' AND "
|
|
UpdateSQL = UpdateSQL & "mesocomp = '" & MandatorNr & "' AND "
|
|
UpdateSQL = UpdateSQL & "mesoyear = '" & mesoyear & "'"
|
|
|
|
Result = Conn.ExecuteSQL(UpdateSQL)
|
|
|
|
If Result = False Then
|
|
If err <> 0 Then
|
|
Msgbox "Fehler bei Abfrage:" & vbNewline & err.description, vbExclamation, DEFAULT_TITLE & " - UpdatePacktischHistoryRow"
|
|
Exit Sub
|
|
Else
|
|
Msgbox "Abfrage lieferte keine Ergebnisse.", vbExclamation, DEFAULT_TITLE & " - UpdatePacktischHistoryRow"
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|