' 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