Anlage des Repos

archive/Packtisch Modul/Packtisch 4.1.0.2/Modules/UpdateArticleMasterData.vbm

@@ -0,0 +1,64 @@
+' 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
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+