' 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