60 lines
1.4 KiB
Plaintext
60 lines
1.4 KiB
Plaintext
' 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: 22.02.2022 / MP
|
|
' Version Number: 4.0.0.0
|
|
|
|
|
|
Sub ReplacePseudoSerialNumbers(AuftragsNr, ArtikelNr, PseudoSN, RealSN)
|
|
Set Conn = CWLStart.Connection
|
|
Err.Clear
|
|
|
|
Dim ReplaceSQL : ReplaceSQL = ""
|
|
ReplaceSQL = ReplaceSQL & "update t024 set c068 = '" & RealSN & "' where c068 = '" & PseudoSN & "' "
|
|
ReplaceSQL = ReplaceSQL & SQLQuery_BasicWhere
|
|
|
|
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
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|