168 lines
5.6 KiB
Plaintext
168 lines
5.6 KiB
Plaintext
' 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 |