79 lines
1.9 KiB
Plaintext
79 lines
1.9 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: 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
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|