686 lines
28 KiB
VB.net
686 lines
28 KiB
VB.net
Imports System.ServiceProcess
|
|
Public Class frmMain
|
|
Private _windream As clsWindream_allgemein
|
|
Private Sub TBPROFILBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBPROFILBindingNavigatorSaveItem.Click
|
|
Save_Profil()
|
|
End Sub
|
|
|
|
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
If My.Settings.myConnString = String.Empty Then
|
|
Dim dbPath As String = Application.StartupPath & "\Database\wdResultHandler.db3"
|
|
If IO.File.Exists(dbPath) Then
|
|
My.Settings.myConnString = dbPath
|
|
My.Settings.Save()
|
|
Else
|
|
MsgBox("Achtung: Die SQLite-Database File exisitiert nicht am angegebenen Ort: " & vbNewLine & dbPath, MsgBoxStyle.Critical, "Fehler:")
|
|
DB_Path()
|
|
End If
|
|
End If
|
|
Load_Constring()
|
|
Try
|
|
' Windream instanziieren
|
|
_windream = New clsWindream_allgemein()
|
|
'Windream initialisieren (Connection, Session, ... aufbauen)
|
|
_windream.Init()
|
|
Catch ex As Exception
|
|
MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
|
|
End Try
|
|
Load_Profil()
|
|
Load_Uebersicht()
|
|
clsLogger.Init(My.Application.Info.DirectoryPath & "\Log", "logResultHandler_")
|
|
End Sub
|
|
Sub Load_Uebersicht()
|
|
' Try
|
|
Dim DT As DataTable = MyDataset.TBWMRH_PROFIL
|
|
' ClassDIProfile.Init()
|
|
Dim Count As Integer = 0
|
|
ListViewProfile.Items.Clear()
|
|
|
|
|
|
Dim running = CheckIfRunning("DDWDResultHandler")
|
|
If running = False Then
|
|
ListViewProfile.Columns(3).Width = 150
|
|
Else
|
|
ListViewProfile.Columns(3).Width = 80
|
|
End If
|
|
For Each row As DataRow In DT.Rows
|
|
ListViewProfile.Items.Add(row.Item("Profilname"))
|
|
If running = False Then
|
|
ListViewProfile.Items(Count).ImageIndex = 2
|
|
Else
|
|
If CBool(row.Item("Aktiv")) = True Then
|
|
ListViewProfile.Items(Count).ImageIndex = 0
|
|
Else
|
|
ListViewProfile.Items(Count).ImageIndex = 1
|
|
End If
|
|
End If
|
|
Try
|
|
ListViewProfile.Items(Count).SubItems.Add(row.Item("Aktiv"))
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
ListViewProfile.Items(Count).SubItems.Add(row.Item("Letzter_Durchlauf"))
|
|
If running = False Then
|
|
ListViewProfile.Items(Count).SubItems.Add("Service stopped")
|
|
Else
|
|
If CBool(row.Item("Running")) = True Then
|
|
ListViewProfile.Items(Count).SubItems.Add("Running")
|
|
Else
|
|
ListViewProfile.Items(Count).SubItems.Add("Waiting")
|
|
End If
|
|
End If
|
|
|
|
Count += 1
|
|
Next
|
|
|
|
'Catch ex As Exception
|
|
' MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der Dateiimport-Profileiste")
|
|
'End Try
|
|
End Sub
|
|
Private Function CheckIfRunning(sServiceName As String) As Boolean
|
|
Try
|
|
Dim sc As New ServiceController(sServiceName)
|
|
If sc.Status.Equals(ServiceControllerStatus.Stopped) Or sc.Status.Equals(ServiceControllerStatus.StopPending) Then
|
|
' Service is not running
|
|
Return False
|
|
Else
|
|
' Service is running()
|
|
Return True
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler inCheckIfRunning")
|
|
End Try
|
|
End Function
|
|
Sub Load_Constring()
|
|
My.Settings.Save()
|
|
Me.TBWMRH_KONFIGURATIONTableAdapter.Connection.ConnectionString = My.Settings.SQLSERVER_CS
|
|
Me.TBWMRH_PROFILTableAdapter.Connection.ConnectionString = My.Settings.SQLSERVER_CS
|
|
Me.TBWMRH_PROFIL_JOBTableAdapter.Connection.ConnectionString = My.Settings.SQLSERVER_CS
|
|
Me.TBWMRH_PROFIL_FILE_JOBTableAdapter.Connection.ConnectionString = My.Settings.SQLSERVER_CS
|
|
Load_Grundkonfig()
|
|
End Sub
|
|
Sub Load_Grundkonfig()
|
|
Try
|
|
'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBWMRH_TBKONFIGURATION". Sie können sie bei Bedarf verschieben oder entfernen.
|
|
Me.TBWMRH_KONFIGURATIONTableAdapter.Fill(Me.MyDataset.TBWMRH_KONFIGURATION)
|
|
LOG_ERRORS_ONLY = MyDataset.TBWMRH_KONFIGURATION.Rows(0).Item("LOG_ERRORS_ONLY")
|
|
WDLAUFWERK = MyDataset.TBWMRH_KONFIGURATION.Rows(0).Item("WD_LAUFWERK")
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Load_Konfiguration:")
|
|
End Try
|
|
End Sub
|
|
Sub Load_Profil()
|
|
Try
|
|
Me.TBWMRH_PROFILTableAdapter.Fill(Me.MyDataset.TBWMRH_PROFIL)
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Load_Profil:")
|
|
End Try
|
|
End Sub
|
|
Private Sub ObjekttypenEintragen()
|
|
Me.ObjekttypComboBox.Items.Clear()
|
|
Try
|
|
Dim oDokumentTypen As WINDREAMLib.WMObjects = Me._windream.GetObjecttypesAsObjects()
|
|
If oDokumentTypen Is Nothing Then Exit Sub
|
|
For Each aType In oDokumentTypen
|
|
Me.ObjekttypComboBox.Items.Add(aType.aName)
|
|
Next
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei ObjekttypenEintragen")
|
|
End Try
|
|
|
|
End Sub
|
|
Sub Save_Profil()
|
|
Try
|
|
Select Case cmbTimeTyp.SelectedIndex
|
|
Case 0
|
|
RunTextBox.Text = "INTV;" & NumericUpDown.Value
|
|
Case 1
|
|
RunTextBox.Text = "TIME;" & dtp_Time.Text
|
|
End Select
|
|
|
|
Me.TBWMRH_PROFILBindingSource.EndEdit()
|
|
If MyDataset.TBWMRH_PROFIL.GetChanges Is Nothing = False Then
|
|
Me.GEAENDERTWERTextBox.Text = Environment.UserName
|
|
Me.TBWMRH_PROFILBindingSource.EndEdit()
|
|
Me.TBWMRH_PROFILTableAdapter.Update(MyDataset.TBWMRH_PROFIL)
|
|
statuslabel(True, "Profil erfolgreich gespeichert - " & Now)
|
|
Else
|
|
statuslabel(False, "")
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Save_Profil:")
|
|
End Try
|
|
|
|
End Sub
|
|
Sub statuslabel(visible As Boolean, Text As String)
|
|
Me.tsstatus.Visible = visible
|
|
Me.tsstatus.Text = Text
|
|
End Sub
|
|
Private Sub btnDatenbankConnect_Click(sender As Object, e As EventArgs) Handles btnDatenbankConnect.Click
|
|
DB_Path()
|
|
End Sub
|
|
Sub DB_Path()
|
|
With OpenFileDialog1
|
|
' Do
|
|
.Filter = "Alle Dateien|*.*"
|
|
.FilterIndex = 1
|
|
.Title = "Pfad zur Datenbank:"
|
|
If .ShowDialog() = DialogResult.OK Then
|
|
Dim dbPath As String = .FileName
|
|
My.Settings.myConnString = dbPath
|
|
My.Settings.Save()
|
|
Load_Constring()
|
|
End If
|
|
End With
|
|
End Sub
|
|
|
|
Private Sub btnaddSearch_Click(sender As Object, e As EventArgs) Handles btnaddSearch.Click
|
|
With OpenFileDialog1
|
|
' Do
|
|
.Filter = " windream-Suche|*.wdf|Alle Dateien|*.*"
|
|
.FilterIndex = 1
|
|
.Title = "Pfad zur windream-suche:"
|
|
If .ShowDialog() = DialogResult.OK Then
|
|
Me.WindreamSucheTextBox.Text = .FileName
|
|
End If
|
|
End With
|
|
End Sub
|
|
|
|
Private Sub TBPROFILBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs)
|
|
MyDataset.TBWMRH_PROFIL.ERSTELLTWERColumn.DefaultValue = Environment.UserName
|
|
End Sub
|
|
|
|
Private Sub TBPROFILBindingSource_CurrentItemChanged(sender As Object, e As EventArgs)
|
|
statuslabel(True, "TBPROFILBindingSource.CurrentItemChanged")
|
|
End Sub
|
|
|
|
Private Sub TBPROFILBindingSource_PositionChanged(sender As Object, e As EventArgs)
|
|
statuslabel(True, "TBPROFILBindingSource.PositionChanged - " & GUIDTextBox.Text)
|
|
|
|
'obj.SelectedIndex = cmbObjekttypen.FindStringExact()
|
|
End Sub
|
|
|
|
Private Sub TabControlMain_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControlMain.SelectedIndexChanged
|
|
Select Case TabControlMain.SelectedIndex
|
|
Case 0
|
|
Load_Profil()
|
|
Load_Uebersicht()
|
|
Case 1
|
|
ObjekttypenEintragen()
|
|
Load_Profil()
|
|
Case 2
|
|
Load_Grundkonfig()
|
|
End Select
|
|
End Sub
|
|
Private Sub TBPROFILBindingSource_BindingComplete(sender As Object, e As BindingCompleteEventArgs)
|
|
statuslabel(True, "TBPROFILBindingSource.BindingComplete - " & GUIDTextBox.Text)
|
|
End Sub
|
|
Sub Checkbox_Days()
|
|
Dim days As String
|
|
If CheckBox1.Checked Then
|
|
days = "1"
|
|
Else
|
|
days = "0"
|
|
End If
|
|
If CheckBox2.Checked Then
|
|
days = days & "1"
|
|
Else
|
|
days = days & "0"
|
|
End If
|
|
If CheckBox3.Checked Then
|
|
days = days & "1"
|
|
Else
|
|
days = days & "0"
|
|
End If
|
|
If CheckBox4.Checked Then
|
|
days = days & "1"
|
|
Else
|
|
days = days & "0"
|
|
End If
|
|
If CheckBox5.Checked Then
|
|
days = days & "1"
|
|
Else
|
|
days = days & "0"
|
|
End If
|
|
If CheckBox6.Checked Then
|
|
days = days & "1"
|
|
Else
|
|
days = days & "0"
|
|
End If
|
|
If CheckBox7.Checked Then
|
|
days = days & "1"
|
|
Else
|
|
days = days & "0"
|
|
End If
|
|
Me.DayTextBox.Text = days
|
|
End Sub
|
|
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
|
|
Checkbox_Days()
|
|
End Sub
|
|
|
|
Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
|
|
Checkbox_Days()
|
|
End Sub
|
|
Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged
|
|
Checkbox_Days()
|
|
End Sub
|
|
|
|
Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.CheckedChanged
|
|
Checkbox_Days()
|
|
End Sub
|
|
|
|
Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox5.CheckedChanged
|
|
Checkbox_Days()
|
|
End Sub
|
|
|
|
Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox6.CheckedChanged
|
|
Checkbox_Days()
|
|
End Sub
|
|
|
|
Private Sub CheckBox7_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox7.CheckedChanged
|
|
Checkbox_Days()
|
|
End Sub
|
|
|
|
Private Sub DayTextBox_TextChanged(sender As Object, e As EventArgs) Handles DayTextBox.TextChanged
|
|
If DayTextBox.Text <> String.Empty Then
|
|
'Markieren der Checkboxen'
|
|
If DayTextBox.Text.Substring(0, 1) = 1 Then
|
|
CheckBox1.Checked = True
|
|
End If
|
|
If DayTextBox.Text.Substring(1, 1) = 1 Then
|
|
CheckBox2.Checked = True
|
|
End If
|
|
If DayTextBox.Text.Substring(2, 1) = 1 Then
|
|
CheckBox3.Checked = True
|
|
End If
|
|
If DayTextBox.Text.Substring(3, 1) = 1 Then
|
|
CheckBox4.Checked = True
|
|
End If
|
|
If DayTextBox.Text.Substring(4, 1) = 1 Then
|
|
CheckBox5.Checked = True
|
|
End If
|
|
If DayTextBox.Text.Substring(5, 1) = 1 Then
|
|
CheckBox6.Checked = True
|
|
End If
|
|
If DayTextBox.Text.Substring(6, 1) = 1 Then
|
|
CheckBox7.Checked = True
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub RunTextBox_TextChanged(sender As Object, e As EventArgs) Handles RunTextBox.TextChanged
|
|
Dim arr As String()
|
|
arr = RunTextBox.Text.Split(";")
|
|
|
|
If RunTextBox.Text.Contains("TIME") Then
|
|
dtp_Time.Value = CDate("01.01.1900 " & arr(1))
|
|
Me.cmbTimeTyp.SelectedIndex = 1
|
|
Me.dtp_Time.Visible = True
|
|
Me.NumericUpDown.Visible = False
|
|
lblTimeIntervall.Text = "Uhrzeit:"
|
|
ElseIf RunTextBox.Text.Contains("INTV") Then 'INTV
|
|
If arr(1) = "" Then arr(1) = "5"
|
|
NumericUpDown.Value = arr(1)
|
|
Me.cmbTimeTyp.SelectedIndex = 0
|
|
Me.dtp_Time.Visible = False
|
|
Me.NumericUpDown.Visible = True
|
|
lblTimeIntervall.Text = "Intervall (Minute):"
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub cmbTimeTyp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbTimeTyp.SelectedIndexChanged
|
|
Select Case cmbTimeTyp.SelectedIndex
|
|
Case 0
|
|
Me.dtp_Time.Visible = False
|
|
Me.NumericUpDown.Visible = True
|
|
RunTextBox.Text = "INTV;" & NumericUpDown.Value
|
|
Case 1
|
|
Me.dtp_Time.Visible = True
|
|
Me.NumericUpDown.Visible = False
|
|
RunTextBox.Text = "TIME;" & dtp_Time.Text
|
|
End Select
|
|
End Sub
|
|
|
|
Private Sub Load_Jobs(ProfilID As Integer)
|
|
Try
|
|
Me.TBWMRH_PROFIL_JOBTableAdapter.Fill(Me.MyDataset.TBWMRH_PROFIL_JOB, ProfilID)
|
|
Catch ex As System.Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Load Jobs:")
|
|
End Try
|
|
End Sub
|
|
Private Sub Load_FILE_JOBS(Profil_ID As Integer)
|
|
Try
|
|
Me.TBWMRH_PROFIL_FILE_JOBTableAdapter.Fill(Me.MyDataset.TBWMRH_PROFIL_FILE_JOB, Profil_ID)
|
|
Me.STRING1ComboBox.Items.Clear()
|
|
cmbFileJob_WHIndexe.Items.Clear()
|
|
Dim indexe = _windream.GetIndicesByObjecttype(ObjekttypComboBox.Text)
|
|
If indexe IsNot Nothing Then
|
|
For Each index As String In indexe
|
|
Me.STRING1ComboBox.Items.Add(index)
|
|
cmbFileJob_WHIndexe.Items.Add(index)
|
|
Next
|
|
End If
|
|
Catch ex As System.Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Load File-Jobs:")
|
|
End Try
|
|
|
|
End Sub
|
|
Private Sub GUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles GUIDTextBox.TextChanged
|
|
If GUIDTextBox.Text <> String.Empty Then
|
|
Load_Jobs(GUIDTextBox.Text)
|
|
Load_FILE_JOBS(GUIDTextBox.Text)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles ToolStripButton7.Click
|
|
Save_PROFIL_JOB()
|
|
End Sub
|
|
Sub Save_PROFIL_JOB()
|
|
Try
|
|
Me.TBWMRH_PROFIL_JOBBindingSource.EndEdit()
|
|
If MyDataset.TBWMRH_PROFIL_JOB.GetChanges Is Nothing = False Then
|
|
Me.GEAENDERTWERTextBox1.Text = Environment.UserName
|
|
Me.TBWMRH_PROFIL_JOBBindingSource.EndEdit()
|
|
Me.TBWMRH_PROFIL_JOBTableAdapter.Update(MyDataset.TBWMRH_PROFIL_JOB)
|
|
statuslabel(True, "Profil-JOB erfolgreich gespeichert - " & Now)
|
|
Else
|
|
statuslabel(False, "")
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Save PROFIL-JOB:")
|
|
End Try
|
|
End Sub
|
|
Sub Save_File_JOB()
|
|
Try
|
|
Me.TBWMRH_PROFIL_FILE_JOBBindingSource.EndEdit()
|
|
If MyDataset.TBWMRH_PROFIL_FILE_JOB.GetChanges Is Nothing = False Then
|
|
Me.GEAENDERTWERTextBox2.Text = Environment.UserName
|
|
Me.TBWMRH_PROFIL_FILE_JOBBindingSource.EndEdit()
|
|
Me.TBWMRH_PROFIL_FILE_JOBTableAdapter.Update(MyDataset.TBWMRH_PROFIL_FILE_JOB)
|
|
statuslabel(True, "File-JOB erfolgreich gespeichert - " & Now)
|
|
Else
|
|
statuslabel(False, "")
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Save File-JOB:")
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
|
|
Dim result As MsgBoxResult
|
|
result = MessageBox.Show("Sind Sie sicher dass Sie diesen Job löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
|
If result = MsgBoxResult.Yes Then
|
|
Me.TBWMRH_PROFIL_JOBTableAdapter.Delete(Me.GUIDTextBox1.Text)
|
|
Load_Jobs(Me.GUIDTextBox.Text)
|
|
statuslabel(True, "Job wurde erfolgreich gelöscht! - " & Now)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click
|
|
Dim result As MsgBoxResult
|
|
result = MessageBox.Show("Sind Sie sicher dass Sie dieses Profil löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
|
If result = MsgBoxResult.Yes Then
|
|
Me.TBWMRH_PROFIL_JOBTableAdapter.DeleteforPROFIL(Me.GUIDTextBox.Text)
|
|
Me.TBWMRH_PROFIL_FILE_JOBTableAdapter.DeleteForProfil(Me.GUIDTextBox.Text)
|
|
Me.TBWMRH_PROFILTableAdapter.Delete(Me.GUIDTextBox.Text)
|
|
Load_Profil()
|
|
statuslabel(True, "Profil wurde erfolgreich gelöscht! - " & Now)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub JOB_TYPComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles JOB_TYPComboBox.SelectedIndexChanged
|
|
btnJOB_addSpeicherort.Visible = False
|
|
lblString1.Text = ""
|
|
lblString2.Text = ""
|
|
Select Case JOB_TYPComboBox.SelectedIndex
|
|
Case 0
|
|
lblString1.Text = "Speicherort für windream-Ergebnisse:"
|
|
btnJOB_addSpeicherort.Visible = True
|
|
Case 1
|
|
lblString1.Text = "Email-Empfänger:"
|
|
Case 2 'json BNS
|
|
lblString1.Text = "User Kunde:"
|
|
lblString2.Text = "BNS Kundennummer:"
|
|
End Select
|
|
End Sub
|
|
|
|
Private Sub btnJOB_addSpeicherort_Click(sender As Object, e As EventArgs) Handles btnJOB_addSpeicherort.Click
|
|
With FolderBrowserDialog1
|
|
' Do
|
|
.Description = "Speicherort für Ergebnis-Dokumente"
|
|
If .ShowDialog() = DialogResult.OK Then
|
|
Me.STRING1TextBox.Text = .SelectedPath
|
|
End If
|
|
End With
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton9_Click(sender As Object, e As EventArgs) Handles ToolStripButton9.Click
|
|
Dim result As MsgBoxResult
|
|
result = MessageBox.Show("Sind Sie sicher dass Sie diesen File-Job löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
|
If result = MsgBoxResult.Yes Then
|
|
Me.TBWMRH_PROFIL_FILE_JOBTableAdapter.Delete(Me.GUIDTextBox2.Text)
|
|
Load_FILE_JOBS(Me.GUIDTextBox.Text)
|
|
statuslabel(True, "File-Job wurde erfolgreich gelöscht! - " & Now)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton14_Click(sender As Object, e As EventArgs) Handles ToolStripButton14.Click
|
|
Save_File_JOB()
|
|
End Sub
|
|
|
|
Private Sub STEP_TYPComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles STEP_TYPComboBox.SelectedIndexChanged
|
|
cmbFileJob_WHIndexe.Visible = False
|
|
btnFileJob_addIndex.Visible = False
|
|
Me.btnaddDatetime.Visible = False
|
|
STRING1TextBoxFile_Job.Visible = False
|
|
STRING2TextBoxProfil_FileJob.Visible = False
|
|
lblString2FileJobs.Visible = False
|
|
btnTestCon.Visible = False
|
|
lblndexname.Visible = False
|
|
If STEP_TYPComboBox.SelectedIndex <> -1 Then
|
|
Select Case STEP_TYPComboBox.SelectedIndex
|
|
Case 0
|
|
lblString1FileJobs.Text = "Indexname"
|
|
STRING1ComboBox.Visible = True
|
|
|
|
lblString2FileJobs.Text = "Wert"
|
|
STRING2TextBoxProfil_FileJob.Visible = True
|
|
Me.btnaddDatetime.Visible = True
|
|
|
|
Case 1
|
|
Renamewithindex()
|
|
Case 2
|
|
Renamewithindex()
|
|
Case 3 'Oracle
|
|
btnTestCon.Visible = True
|
|
lblString1FileJobs.Text = "Connection String Oracle"
|
|
lblString2FileJobs.Text = "Command Oracle"
|
|
STRING1TextBoxFile_Job.Visible = True
|
|
STRING2TextBoxProfil_FileJob.Visible = True
|
|
lblString2FileJobs.Visible = True
|
|
Case 4 'MSSQL
|
|
btnTestCon.Visible = True
|
|
lblString1FileJobs.Text = "Connection String MSSQL"
|
|
lblString2FileJobs.Text = "Command MSSQL"
|
|
STRING1TextBoxFile_Job.Visible = True
|
|
STRING2TextBoxProfil_FileJob.Visible = True
|
|
lblString2FileJobs.Visible = True
|
|
End Select
|
|
|
|
End If
|
|
End Sub
|
|
Sub Renamewithindex()
|
|
lblString1FileJobs.Text = "Namenkonvention"
|
|
STRING1ComboBox.Visible = False
|
|
STRING1TextBoxFile_Job.Visible = True
|
|
lblndexname.Visible = True
|
|
|
|
cmbFileJob_WHIndexe.Visible = True
|
|
btnFileJob_addIndex.Visible = True
|
|
End Sub
|
|
Private Sub btn_runProfileManual_Click(sender As Object, e As EventArgs) Handles btn_runProfileManual.Click
|
|
'Try
|
|
' Dim result As MsgBoxResult
|
|
' If RunningCheckBox.Checked = False Then
|
|
|
|
' result = MessageBox.Show("Bitte bestätigen Sie den manuellen Start des Profils!", "Bestätigung erforderlich:", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
|
|
' If result = MsgBoxResult.Ok Then
|
|
' Me.TBWMRH_PROFILTableAdapter.cmdUpdateRunningnow(Me.GUIDTextBox.Text)
|
|
' MsgBox("Das Profil wurde für den manuellen Durchlauf markiert. Der Durchlauf sollte innerhalb der nächsten Minute starten.", MsgBoxStyle.Information)
|
|
' Load_Profil()
|
|
' End If
|
|
' Else
|
|
' result = MessageBox.Show("Achtung das Profil schein noch zu laufen, dennoch Updaten??", "Bestätigung erforderlich:", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
|
|
' If result = MsgBoxResult.Ok Then
|
|
' Me.TBWMRH_PROFILTableAdapter.cmdUpdateRunningnow(Me.GUIDTextBox.Text)
|
|
' Load_Profil()
|
|
' End If
|
|
' End If
|
|
|
|
'Catch ex As Exception
|
|
' MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Run Job manually:")
|
|
'End Try
|
|
Me.TBWMRH_PROFILTableAdapter.cmdUpdateRunningnow(Me.GUIDTextBox.Text)
|
|
Manual()
|
|
End Sub
|
|
|
|
Private Sub tabtn_refreshProfile_Click(sender As Object, e As EventArgs) Handles tabtn_refreshProfile.Click
|
|
Load_Profil()
|
|
End Sub
|
|
|
|
Private Sub tsbtmrefresh_Uebersicht_Click(sender As Object, e As EventArgs) Handles tsbtmrefresh_Uebersicht.Click
|
|
Load_Uebersicht()
|
|
End Sub
|
|
|
|
Private Sub btnsave_Grundkonfig_Click(sender As Object, e As EventArgs) Handles btnsave_Grundkonfig.Click
|
|
Try
|
|
Me.TBWMRH_KONFIGURATIONBindingSource.EndEdit()
|
|
If MyDataset.TBWMRH_KONFIGURATION.GetChanges Is Nothing = False Then
|
|
Me.GEAENDERT_WERTextBox.Text = Environment.UserName
|
|
Me.TBWMRH_KONFIGURATIONBindingSource.EndEdit()
|
|
Me.TBWMRH_KONFIGURATIONTableAdapter.Update(MyDataset.TBWMRH_KONFIGURATION)
|
|
statuslabel(True, "Grundkonfiguration gespeichert - " & Now)
|
|
Load_Grundkonfig()
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Save Grundkonfig:")
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub btnaddDatetime_Click(sender As Object, e As EventArgs) Handles btnaddDatetime.Click
|
|
Me.STRING2TextBoxProfil_FileJob.Text = STRING2TextBoxProfil_FileJob.Text & "[%DATETIME]"
|
|
End Sub
|
|
Private Sub btnFileJob_addIndex_Click(sender As Object, e As EventArgs) Handles btnFileJob_addIndex.Click
|
|
If cmbFileJob_WHIndexe.SelectedIndex <> -1 Then
|
|
STRING1TextBoxFile_Job.Text = STRING1TextBoxFile_Job.Text & "[%" & cmbFileJob_WHIndexe.Text & "]"
|
|
End If
|
|
End Sub
|
|
Sub Manual()
|
|
'Try
|
|
Dim notcompleted As Boolean = False
|
|
|
|
clsLogger.Add("", False)
|
|
clsLogger.Add("## Start Durchlauf WindreamResultHandler - " & Now & " ## ", False)
|
|
clsLogger.Add("", False)
|
|
'windream initialisieren
|
|
If _windream.Init() = True Then
|
|
clsLogger.AddDetailLog("windream vollumfänglich initialisiert!")
|
|
'Zur sicherheit die DB nochmal initialiseren
|
|
If clsDatatabase.Init() = True Then
|
|
Dim DT As DataTable = clsDatatabase.Return_Datatable("SELECT GUID FROM TBWMRH_PROFIL WHERE AKTIV = 1 order by REIHENFOLGE")
|
|
If DT.Rows.Count > 0 Then
|
|
clsLogger.AddDetailLog("Anzahl der aktiven Profile: " & DT.Rows.Count.ToString)
|
|
For Each DR As DataRow In DT.Rows
|
|
_PROFIL_ID = CInt(DR.Item("GUID"))
|
|
'Und nun das Profil durchlaufen
|
|
Dim initresult = clsProfil.Init(_PROFIL_ID)
|
|
If initresult = True Then
|
|
clsLogger.WriteLog()
|
|
clsProfil.Profil_Durchlauf()
|
|
ElseIf initresult = False Then
|
|
clsLogger.Add("clsProfil konnte nicht initialisiert werden", True, "RUN_THREAD")
|
|
notcompleted = True
|
|
ElseIf initresult = 0 Then
|
|
clsLogger.AddDetailLog("initresult: 0")
|
|
notcompleted = True
|
|
ElseIf initresult = 1 Then
|
|
clsLogger.AddDetailLog("initresult: 1")
|
|
notcompleted = True
|
|
End If
|
|
Next
|
|
Else
|
|
clsLogger.Add("- Keine aktiven Profile vorhanden", False)
|
|
notcompleted = True
|
|
End If
|
|
clsDatatabase.Execute_non_Query("UPDATE TBWMRH_KONFIGURATION SET LAST_TICK = GETDATE() WHERE GUID = 1")
|
|
Else
|
|
clsLogger.Add("- clsSQLLite konnte nicht initialisiert werden!", False)
|
|
notcompleted = True
|
|
End If
|
|
Else
|
|
clsLogger.Add("# Achtung: Windream-Init mit Fehlern beendet", False)
|
|
notcompleted = True
|
|
End If
|
|
If notcompleted = True Then
|
|
clsLogger.WriteLog()
|
|
End If
|
|
MsgBox("Run completed!", MsgBoxStyle.Information)
|
|
'Catch ex As Exception
|
|
' clsLogger.AddError(ex.Message, "RUN_THREAD")
|
|
'End Try
|
|
End Sub
|
|
|
|
Private Sub TBWMRH_PROFIL_JOBBindingSource_AddingNew_1(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBWMRH_PROFIL_JOBBindingSource.AddingNew
|
|
MyDataset.TBWMRH_PROFIL_JOB.ERSTELLTWERColumn.DefaultValue = Environment.UserName
|
|
MyDataset.TBWMRH_PROFIL_JOB.PROFIL_IDColumn.DefaultValue = GUIDTextBox.Text
|
|
End Sub
|
|
|
|
Private Sub TBWMRH_PROFIL_FILE_JOBBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBWMRH_PROFIL_FILE_JOBBindingSource.AddingNew
|
|
MyDataset.TBWMRH_PROFIL_FILE_JOB.ERSTELLTWERColumn.DefaultValue = Environment.UserName
|
|
MyDataset.TBWMRH_PROFIL_FILE_JOB.PROFIL_IDColumn.DefaultValue = GUIDTextBox.Text
|
|
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Process.Start(clsLogger.LogFilename)
|
|
End Sub
|
|
|
|
Private Sub btnTestCon_Click(sender As Object, e As EventArgs) Handles btnTestCon.Click
|
|
If STRING1TextBoxFile_Job.Text = "" Then
|
|
Exit Sub
|
|
End If
|
|
If STEP_TYPComboBox.Text = "Execute Oracle Command" Then
|
|
If clsDatatabase.Oracle_CS_Test(STRING1TextBoxFile_Job.Text) = True Then
|
|
MsgBox("Oracle Connection successfull!", MsgBoxStyle.Information)
|
|
Exit Sub
|
|
End If
|
|
ElseIf STEP_TYPComboBox.Text = "Execute MSSQL Command" Then
|
|
If clsDatatabase.MSSQL_CS_Test(STRING1TextBoxFile_Job.Text) = True Then
|
|
MsgBox("MSSQL Connection successfull!", MsgBoxStyle.Information)
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
clsLogger.WriteLog()
|
|
MsgBox("Connection could not be created - Check the log", MsgBoxStyle.Critical)
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
Try
|
|
Dim p As New Process()
|
|
p.StartInfo.FileName = Me.WindreamSucheTextBox.Text
|
|
p.StartInfo.WindowStyle = ProcessWindowStyle.Normal
|
|
p.Start()
|
|
p.WaitForExit()
|
|
p.Close()
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Öffnen der windream-Suche:")
|
|
End Try
|
|
End Sub
|
|
End Class
|