' SetExportWinLineDoc_SQLData
' ----------------------------------------------------------------------------
' Diese Subroutine füllt eine Tabelle (Grid) mit Daten
' Parameter 1 (LEVEL)	= Das aktuelle Showlevel übergeben.
' Parameter 2 (BUTTON)	= Die ID des betätigten Knopfs.
'
' ----------------------------------------------------------------------------
' Copyright (c) 2021 by Digital Data GmbH
'
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
' Tel.: 0641/202360 • E-Mail: info-flow@digitaldata.works
' ----------------------------------------------------------------------------
' Creation Date / Author:    15.07.2021 / MK
' Version Date / Editor:     15.07.2021 / MK
' Version Number:            1.0.0.0

Sub SetExportWinLineDoc_SQLData(LEVEL,BUTTON)

	If (BUTTON = LEVEL3_BTN_Restore_Profiles_ID) Then

		IF (FileSystemObject.FileExists(TemplateExportWinLineDoc_Profiles_File)) Then

			Set SQLResult_Profiles = Conn.Select(SQLQuery_Profiles_Default)
			If (SQLResult_Profiles.RowCount) > 0 Then

				MsgBoxResult = MsgBox  ("Wenn Sie fortfahren, werden die Auslieferungsprofile gelöscht und neu angelegt!"	& vbCrLf & vbCrLf & _
										"Änderungen an diesen gehen verloren!" 							 					& vbCrLf & vbCrLf & _
										"Der Vorgang kann NICHT Rückgängig gemacht werden!"									& vbCrLf & vbCrLf & _
										"Möchten Sie fortfahren?",vbYesNo+vbCritical,DEFAULT_TITLE & " - ACHTUNG! ACHTUNG!")

				If (MsgBoxResult = 6) Then

					SQLResult_Profiles = Conn.ExecuteSQL(SQLDelete_Profiles)

					LEVEL1_GRID_CURRENT_ROW					= 0
					LEVEL1_GRID_CURRENT_GUID				= 0
					LEVEL1_GRID_CURRENT_AKTIV				= 0
					LEVEL1_GRID_CURRENT_Beschreibung		= 0
					LEVEL1_GRID_CURRENT_Mandant				= 0

					If (SQLResult_Profiles = true) Then

						'After the delete insert
						InsertExportWinLineDoc_SQLData LEVEL,TemplateExportWinLineDoc_Profiles_File

					Else
						MsgBox	"Der Löschvorgang ist fehlgeschlagen!"			& vbCrLf & _
								"Bitte informieren Sie Ihren Administrator!"	& vbCrLf & _
								"",vbOkayOnly+vbCritical,DEFAULT_TITLE & " - Fehler!"

						SQLResult_Profiles = 0

					End if

				Else
					MsgBox "Der Vorgang wurde abgebrochen!",vbOkayOnly+vbInformation,DEFAULT_TITLE

				End if

			Else
				InsertExportWinLineDoc_SQLData LEVEL,TemplateExportWinLineDoc_Profiles_File

			End If

		Else
			MsgBox "Die Vorlagen-Datei wurde nicht gefunden!"	& vbCrLf & vbCrLf &_
					TemplateExportWinLineDoc_Profiles_File 		& vbCrLf & _
					"",vbYesNo+vbCritical,DEFAULT_TITLE & " - Abbruch!"

		End if

	'------------------------------------------------------------------------------------------------------------------------------------------------------------------

	ElseIf (BUTTON = LEVEL3_BTN_Restore_Configs_ID) Then

			Set SQLResult_Configs = Conn.Select(SQLQuery_Configs_Default)
			If (SQLResult_Configs.RowCount) > 0 Then

				MsgBoxResult = MsgBox  ("Wenn Sie fortfahren, werden die Auslieferungskonfigurationen gelöscht und neu angelegt!"	& vbCrLf & vbCrLf & _
										"Änderungen an diesen gehen verloren!" 							 							& vbCrLf & vbCrLf & _
										"Der Vorgang kann NICHT Rückgängig gemacht werden!"											& vbCrLf & vbCrLf & _
										"Möchten Sie fortfahren?",vbYesNo+vbCritical,DEFAULT_TITLE & " - ACHTUNG! ACHTUNG!")

				If (MsgBoxResult = 6) Then

					SQLResult_Configs = Conn.ExecuteSQL(SQLDelete_Configs)

					LEVEL2_GRID_CURRENT_ROW					= 0
					LEVEL2_GRID_CURRENT_GUID				= 0
					LEVEL2_GRID_CURRENT_AKTIV				= 0
					LEVEL2_GRID_CURRENT_Beschreibung		= 0
					LEVEL2_GRID_CURRENT_Mandant				= 0

					If (SQLResult_Configs = true) Then

						'After the delete insert
						InsertExportWinLineDoc_SQLData LEVEL,TemplateExportWinLineDoc_Configs_File

					Else
						MsgBox	"Der Löschvorgang ist fehlgeschlagen!"			& vbCrLf & _
								"Bitte informieren Sie Ihren Administrator!"	& vbCrLf & _
								"",vbOkayOnly+vbCritical,DEFAULT_TITLE & " - Fehler!"

						SQLResult_Configs = 0

					End if

				Else
					MsgBox "Der Vorgang wurde abgebrochen!",vbOkayOnly+vbInformation,DEFAULT_TITLE

				End if

			Else
				InsertExportWinLineDoc_SQLData LEVEL,TemplateExportWinLineDoc_Configs_File

			End If

		Else
			MsgBox "Die Vorlagen-Datei wurde nicht gefunden!"	& vbCrLf & vbCrLf &_
					TemplateExportWinLineDoc_Configs_File 		& vbCrLf & _
					"",vbYesNo+vbCritical,DEFAULT_TITLE & " - Abbruch!"

	End if

End Sub

'------------------------------------------------------------------------------------------------------------------
Private Sub InsertExportWinLineDoc_SQLData(LEVEL,FILE)

	'Get file content of the sql script
	FileToRead.CharSet = "utf-8"
	FileToRead.Open
	FileToRead.LoadFromFile(File)
	FileToReadContents = FileToRead.ReadText()
	FileToRead.Close

	SQLInsert = FileToReadContents 

	'Replace the default TB names
	SQLInsert = Replace(SQLInsert,"[dbo].[t650]",TBDD_EXPORT_WINLINEDOC_CONFIG)
	SQLInsert = Replace(SQLInsert,"[dbo].[t651]",TBDD_EXPORT_WINLINEDOC_PROFILE)
	
	'Some magic OTRS cannot do
	SQLInsert = Replace(SQLInsert,vbCr,"")
	SQLInsert = Replace(SQLInsert,vbLf,"")
	SQLInsert = TRIM(SQLInsert)

	'Execute Insert - remember that no "GO" order is supported
	SQLResult = Conn.ExecuteSQL(SQLInsert)
	
	IF		(SQLResult = True)  Then
		msgbox	"Die Wiederherstellung war erfolgreich!",vbOkayOnly+vbInformation,DEFAULT_TITLE
	
	ElseIf	(SQLResult = False) Then
		msgbox 	"Achtung, es ist ein Fehler aufgetreten!"	 & vbCrLf & _
				"Bitte informieren Sie Ihren Administrator!" & vbCrLf & _
				"",vbOkayOnly+vbCritical,DEFAULT_TITLE
	End if

	IF		(LEVEL = 1) Then
		SetExportWinLineDoc_TableContent LEVEL,LEVEL1_GRID_ID
		
	ElseIf	(LEVEL = 2) Then
		SetExportWinLineDoc_TableContent LEVEL,LEVEL2_GRID_ID
	
	End if

End Sub