' 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