Anlage des Repos
This commit is contained in:
@@ -0,0 +1,210 @@
|
||||
' PacktischHistorySQL()
|
||||
' ----------------------------------------------------------------------------
|
||||
' 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: 15.02.2022 / MP
|
||||
' Version Date / Editor: 01.06.2023 / MP/JJ
|
||||
' Version Number: 4.1.0.0
|
||||
|
||||
|
||||
Sub InsertPacktischHistoryRow(AuftragsNr, ArtikelNr, PseudoSN)
|
||||
|
||||
Set Conn = CWLStart.Connection
|
||||
Err.Clear
|
||||
|
||||
Dim NowObject : NowObject = Now
|
||||
Dim DateString : DateString = Year(NowObject) & "-" & GetLeftPad(Month(NowObject)) & "-" & GetLeftPad(Day(NowObject))
|
||||
Dim TimeString : TimeString = GetLeftPad(Hour(NowObject)) & ":" & GetLeftPad(Minute(NowObject)) & ":" & GetLeftPad(Second(NowObject))
|
||||
Dim RechnerName : RechnerName = GetWindowsEnvironment("COMPUTERNAME")
|
||||
Dim InsertSQL : InsertSQL = ""
|
||||
InsertSQL = InsertSQL & "INSERT INTO dbo.TBDD_PACKTISCH_HISTORY "
|
||||
InsertSQL = InsertSQL & " ([AuftragsNr] "
|
||||
InsertSQL = InsertSQL & " ,[ArtikelNr] "
|
||||
InsertSQL = InsertSQL & " ,[PseudoSN] "
|
||||
InsertSQL = InsertSQL & " ,[Rechnername] "
|
||||
InsertSQL = InsertSQL & " ,[ErstelltWann] "
|
||||
InsertSQL = InsertSQL & " ,[PacktischVersion] "
|
||||
InsertSQL = InsertSQL & " ,[mesocomp] "
|
||||
InsertSQL = InsertSQL & " ,[mesoyear] "
|
||||
InsertSQL = InsertSQL & " ,[Status] "
|
||||
InsertSQL = InsertSQL & " ) VALUES ( "
|
||||
|
||||
InsertSQL = InsertSQL & "'" & AuftragsNr & "', "
|
||||
InsertSQL = InsertSQL & "'" & ArtikelNr & "', "
|
||||
InsertSQL = InsertSQL & "'" & PseudoSN & "', "
|
||||
InsertSQL = InsertSQL & "'" & RechnerName & "', "
|
||||
InsertSQL = InsertSQL & "'" & DateString & " " & TimeString & "', "
|
||||
InsertSQL = InsertSQL & "'" & PACKTISCH_VERSION & "', "
|
||||
InsertSQL = InsertSQL & "'" & MandatorNr & "', "
|
||||
InsertSQL = InsertSQL & "'" & WinlineCurrentYear & "', "
|
||||
InsertSQL = InsertSQL & "'Locked'"
|
||||
InsertSQL = InsertSQL & " ) "
|
||||
|
||||
Result = Conn.ExecuteSQL(InsertSQL)
|
||||
|
||||
If DEBUG_ON = True Then
|
||||
AddDebugLine "TBDD_PACKTISCH_HISTORY - Insert"
|
||||
AddDebugLine "SQL: " & InsertSQL
|
||||
ShowDebugBox "InsertPacktischHistoryRow"
|
||||
End If
|
||||
|
||||
If Result = False Then
|
||||
If err <> 0 Then
|
||||
Msgbox "Fehler bei Abfrage:" & vbNewline & err.description, vbExclamation, DEFAULT_TITLE & " - InsertPacktischHistoryRow"
|
||||
Exit Sub
|
||||
Else
|
||||
Msgbox "Abfrage lieferte keine Ergebnisse.", vbExclamation, DEFAULT_TITLE & " - InsertPacktischHistoryRow"
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Sub UpdatePacktischHistoryRow(AuftragsNr, ArtikelNr, PseudoSN, Status, RealSN)
|
||||
|
||||
Set Conn = CWLStart.Connection
|
||||
Err.Clear
|
||||
|
||||
Dim NowObject : NowObject = Now
|
||||
Dim DateString : DateString = Year(NowObject) & "-" & GetLeftPad(Month(NowObject)) & "-" & GetLeftPad(Day(NowObject))
|
||||
Dim TimeString : TimeString = GetLeftPad(Hour(NowObject)) & ":" & GetLeftPad(Minute(NowObject)) & ":" & GetLeftPad(Second(NowObject))
|
||||
Dim RechnerName : RechnerName = GetWindowsEnvironment("COMPUTERNAME")
|
||||
Dim UpdateSQL : UpdateSQL = ""
|
||||
UpdateSQL = UpdateSQL & "UPDATE dbo.TBDD_PACKTISCH_HISTORY "
|
||||
UpdateSQL = UpdateSQL & "SET [Status] = '" & Status & "', "
|
||||
UpdateSQL = UpdateSQL & "[GeaendertWann] = '" & DateString & " " & TimeString & "' "
|
||||
|
||||
If Len(RealSN) > 0 Then
|
||||
UpdateSQL = UpdateSQL & ", RealSN = '" & RealSN & "' "
|
||||
End If
|
||||
|
||||
UpdateSQL = UpdateSQL & "WHERE AuftragsNr = '" & AuftragsNr & "' AND "
|
||||
UpdateSQL = UpdateSQL & "ArtikelNr = '" & ArtikelNr & "' AND "
|
||||
UpdateSQL = UpdateSQL & "PseudoSN = '" & PseudoSN & "' AND "
|
||||
UpdateSQL = UpdateSQL & "Rechnername = '" & RechnerName & "'"
|
||||
|
||||
If DEBUG_ON = True Then
|
||||
AddDebugLine "TBDD_PACKTISCH_HISTORY - Update"
|
||||
AddDebugLine "SQL: " & UpdateSQL
|
||||
ShowDebugBox "UpdatePacktischHistoryRow"
|
||||
End If
|
||||
|
||||
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
|
||||
|
||||
Sub UpdatePacktischHistoryRowsAfterSuccess(AuftragsNr)
|
||||
|
||||
Set Conn = CWLStart.Connection
|
||||
Err.Clear
|
||||
|
||||
Dim NowObject : NowObject = Now
|
||||
Dim DateString : DateString = Year(NowObject) & "-" & GetLeftPad(Month(NowObject)) & "-" & GetLeftPad(Day(NowObject))
|
||||
Dim TimeString : TimeString = GetLeftPad(Hour(NowObject)) & ":" & GetLeftPad(Minute(NowObject)) & ":" & GetLeftPad(Second(NowObject))
|
||||
Dim RechnerName : RechnerName = GetWindowsEnvironment("COMPUTERNAME")
|
||||
Dim UpdateSQL : UpdateSQL = ""
|
||||
UpdateSQL = UpdateSQL & "UPDATE dbo.TBDD_PACKTISCH_HISTORY "
|
||||
UpdateSQL = UpdateSQL & "SET [Status] = 'Used', "
|
||||
UpdateSQL = UpdateSQL & "[GeaendertWann] = '" & DateString & " " & TimeString & "' "
|
||||
|
||||
UpdateSQL = UpdateSQL & "WHERE AuftragsNr = '" & AuftragsNr & "' AND "
|
||||
UpdateSQL = UpdateSQL & "Rechnername = '" & RechnerName & "' AND "
|
||||
UpdateSQL = UpdateSQL & "RealSN IS NOT NULL"
|
||||
|
||||
If DEBUG_ON = True Then
|
||||
AddDebugLine "TBDD_PACKTISCH_HISTORY - Update"
|
||||
AddDebugLine "SQL: " & UpdateSQL
|
||||
ShowDebugBox "UpdatePacktischHistoryRowsAfterSuccess"
|
||||
End If
|
||||
|
||||
Result = Conn.ExecuteSQL(UpdateSQL)
|
||||
|
||||
If Result = False Then
|
||||
If err <> 0 Then
|
||||
Msgbox "Fehler bei Abfrage:" & vbNewline & err.description, vbExclamation, DEFAULT_TITLE & " - UpdatePacktischHistoryRowsAfterSuccess"
|
||||
Exit Sub
|
||||
Else
|
||||
Msgbox "Abfrage lieferte keine Ergebnisse.", vbExclamation, DEFAULT_TITLE & " - UpdatePacktischHistoryRowsAfterSuccess"
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Sub DeletePacktischHistoryRows()
|
||||
|
||||
Set Conn = CWLStart.Connection
|
||||
Err.Clear
|
||||
|
||||
Dim RechnerName : RechnerName = GetWindowsEnvironment("COMPUTERNAME")
|
||||
Dim DeleteSQL : DeleteSQL = ""
|
||||
DeleteSQL = DeleteSQL & "DELETE FROM dbo.TBDD_PACKTISCH_HISTORY WHERE Rechnername = '" & Rechnername & "' "
|
||||
DeleteSQL = DeleteSQL & "AND Status <> 'Used'"
|
||||
|
||||
If DEBUG_ON = True Then
|
||||
AddDebugLine "TBDD_PACKTISCH_HISTORY - Delete"
|
||||
AddDebugLine "SQL: " & UpdateSQL
|
||||
ShowDebugBox "DeletePacktischHistoryRows"
|
||||
End If
|
||||
|
||||
Result = Conn.ExecuteSQL(DeleteSQL)
|
||||
|
||||
If Result = False Then
|
||||
If err <> 0 Then
|
||||
Msgbox "Fehler bei Abfrage:" & vbNewline & err.description, vbExclamation, DEFAULT_TITLE & " - DeletePacktischHistoryRows"
|
||||
Exit Sub
|
||||
Else
|
||||
Msgbox "Abfrage lieferte keine Ergebnisse.", vbExclamation, DEFAULT_TITLE & " - DeletePacktischHistoryRows"
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user