Anlage des Repos

archive/Packtisch Modul/Packtisch 4.1.0.2/Modules/ReplacePseudoSerialNumbers.vbm.bck

@@ -0,0 +1,78 @@
+' ReplacePseudoSerialNumbers()
+' ----------------------------------------------------------------------------
+' Stellt Methoden für den Zugriff auf die Tabelle Packtisch 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:   22.02.2022 / MP
+' Version Date / Editor:    23.03.2022 / MP
+' Version Number: 			4.0.0.0
+
+
+Sub ReplacePseudoSerialNumbers(AuftragsNr, ArtikelNr, PseudoSN, RealSN)	
+	Set Conn = CWLStart.Connection
+	Err.Clear
+	
+	If Len(RealSN) = 0 Or Len(PseudoSN) = 0 Then
+		If DEBUG_ON = True Then
+			AddDebugLine "Fehlender SN Parameter :"
+			AddDebugLine "For Article " & ArtikelNr
+			AddDebugLine "RealSN: '" & RealSN & "'"
+			AddDebugLine "PseudoSN: '" & PseudoSN & "'"
+						
+			ShowDebugBox "ReplacePseudoSerialNumbers"
+		End If
+		
+		Exit Sub
+	End If
+	
+	Dim ReplaceSQL : ReplaceSQL = ""
+	ReplaceSQL = ReplaceSQL & "update t024 set c068 = '" & RealSN & "' where c068 = '" & PseudoSN & "' "
+	ReplaceSQL = ReplaceSQL & SQLQuery_BasicWhere
+	
+	If DEBUG_ON = True Then
+		AddDebugLine "Update t024.c068"
+		AddDebugLine "SQL: " & ReplaceSQL
+		ShowDebugBox "ReplacePseudoSerialNumbers"
+	End If
+	
+	Result = Conn.ExecuteSQL(ReplaceSQL)
+	
+	If Result = False Then
+		If err <> 0 Then
+			Msgbox "Fehler bei Abfrage:" & vbNewline & err.description, vbExclamation, DEFAULT_TITLE & " - ReplacePseudoSerialNumbers"
+			Exit Sub
+		Else
+			Msgbox "Abfrage lieferte keine Ergebnisse.", vbExclamation, DEFAULT_TITLE & " - ReplacePseudoSerialNumbers"
+			Exit Sub
+		End If
+	End If
+	
+	UpdatePacktischHistoryRow AuftragsNr, ArtikelNr, PseudoSN, "Scanned", RealSN
+End Sub
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+