Imports System.Data.SqlClient
Imports System.IO

Imports DataAccess
Imports Common

Public Class MainForm
    Inherits System.Windows.Forms.Form

#Region " Vom Windows Form Designer generierter Code "

    Public Sub New()
        MyBase.New()

        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()

        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen

    End Sub

    ' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    ' Für Windows Form-Designer erforderlich
    Private components As System.ComponentModel.IContainer

    'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
    'Sie kann mit dem Windows Form-Designer modifiziert werden.
    'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents lblEDKB02State As System.Windows.Forms.Label
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents txtNextStartDate As System.Windows.Forms.TextBox
    Friend WithEvents cmdSet As System.Windows.Forms.Button
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents Label8 As System.Windows.Forms.Label
    Friend WithEvents lblReturnFile As System.Windows.Forms.Label
    Friend WithEvents txtFileCount As System.Windows.Forms.TextBox
    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
    Friend WithEvents chkCleanReturn As System.Windows.Forms.CheckBox
    Friend WithEvents chkCleanFileCount As System.Windows.Forms.CheckBox
    Friend WithEvents chkNextStart As System.Windows.Forms.CheckBox
    Friend WithEvents chkSetIsRunning As System.Windows.Forms.CheckBox
    Friend WithEvents cmdRefresh As System.Windows.Forms.Button
    Friend WithEvents lblProcessState As System.Windows.Forms.Label
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents chkKillWord As System.Windows.Forms.CheckBox
    Friend WithEvents chkKillEDBK02 As System.Windows.Forms.CheckBox
    Friend WithEvents Label6 As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
		Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(MainForm))
		Me.Label1 = New System.Windows.Forms.Label
		Me.Label2 = New System.Windows.Forms.Label
		Me.Label3 = New System.Windows.Forms.Label
		Me.Label4 = New System.Windows.Forms.Label
		Me.lblEDKB02State = New System.Windows.Forms.Label
		Me.Label5 = New System.Windows.Forms.Label
		Me.txtNextStartDate = New System.Windows.Forms.TextBox
		Me.cmdSet = New System.Windows.Forms.Button
		Me.Label7 = New System.Windows.Forms.Label
		Me.Label8 = New System.Windows.Forms.Label
		Me.lblReturnFile = New System.Windows.Forms.Label
		Me.txtFileCount = New System.Windows.Forms.TextBox
		Me.chkCleanReturn = New System.Windows.Forms.CheckBox
		Me.PictureBox1 = New System.Windows.Forms.PictureBox
		Me.chkCleanFileCount = New System.Windows.Forms.CheckBox
		Me.chkNextStart = New System.Windows.Forms.CheckBox
		Me.chkSetIsRunning = New System.Windows.Forms.CheckBox
		Me.cmdRefresh = New System.Windows.Forms.Button
		Me.lblProcessState = New System.Windows.Forms.Label
		Me.Label9 = New System.Windows.Forms.Label
		Me.chkKillWord = New System.Windows.Forms.CheckBox
		Me.chkKillEDBK02 = New System.Windows.Forms.CheckBox
		Me.Label6 = New System.Windows.Forms.Label
		Me.SuspendLayout()
		'
		'Label1
		'
		Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Label1.Location = New System.Drawing.Point(8, 8)
		Me.Label1.Name = "Label1"
		Me.Label1.TabIndex = 0
		Me.Label1.Text = "Allgemein"
		'
		'Label2
		'
		Me.Label2.Location = New System.Drawing.Point(24, 32)
		Me.Label2.Name = "Label2"
		Me.Label2.Size = New System.Drawing.Size(432, 40)
		Me.Label2.TabIndex = 1
		Me.Label2.Text = "Mit Hilfe dieses Tools, können die Batch Parameter für den EDKB02 angepasst werde" & _
		"n. Bitte beachten Sie, dass bei falscher Benutzung möglicherweise Mails an die S" & _
		"ystemverantwortlichen ausgelöst werden."
		'
		'Label3
		'
		Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Label3.Location = New System.Drawing.Point(8, 80)
		Me.Label3.Name = "Label3"
		Me.Label3.TabIndex = 2
		Me.Label3.Text = "Status"
		'
		'Label4
		'
		Me.Label4.Location = New System.Drawing.Point(24, 112)
		Me.Label4.Name = "Label4"
		Me.Label4.Size = New System.Drawing.Size(80, 16)
		Me.Label4.TabIndex = 3
		Me.Label4.Text = "Datenbank:"
		'
		'lblEDKB02State
		'
		Me.lblEDKB02State.Location = New System.Drawing.Point(120, 112)
		Me.lblEDKB02State.Name = "lblEDKB02State"
		Me.lblEDKB02State.Size = New System.Drawing.Size(376, 16)
		Me.lblEDKB02State.TabIndex = 4
		Me.lblEDKB02State.Text = "lblDBState"
		'
		'Label5
		'
		Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Label5.Location = New System.Drawing.Point(8, 280)
		Me.Label5.Name = "Label5"
		Me.Label5.Size = New System.Drawing.Size(192, 23)
		Me.Label5.TabIndex = 12
		Me.Label5.Text = "Zurücksetzen"
		'
		'txtNextStartDate
		'
		Me.txtNextStartDate.Location = New System.Drawing.Point(192, 312)
		Me.txtNextStartDate.Name = "txtNextStartDate"
		Me.txtNextStartDate.Size = New System.Drawing.Size(136, 20)
		Me.txtNextStartDate.TabIndex = 14
		Me.txtNextStartDate.Text = ""
		'
		'cmdSet
		'
		Me.cmdSet.Location = New System.Drawing.Point(416, 496)
		Me.cmdSet.Name = "cmdSet"
		Me.cmdSet.Size = New System.Drawing.Size(80, 23)
		Me.cmdSet.TabIndex = 21
		Me.cmdSet.Text = "&Setzen"
		'
		'Label7
		'
		Me.Label7.Location = New System.Drawing.Point(24, 184)
		Me.Label7.Name = "Label7"
		Me.Label7.Size = New System.Drawing.Size(80, 16)
		Me.Label7.TabIndex = 9
		Me.Label7.Text = "FileCount.txt:"
		'
		'Label8
		'
		Me.Label8.Location = New System.Drawing.Point(24, 168)
		Me.Label8.Name = "Label8"
		Me.Label8.Size = New System.Drawing.Size(80, 16)
		Me.Label8.TabIndex = 7
		Me.Label8.Text = "Return.txt:"
		'
		'lblReturnFile
		'
		Me.lblReturnFile.Location = New System.Drawing.Point(120, 168)
		Me.lblReturnFile.Name = "lblReturnFile"
		Me.lblReturnFile.Size = New System.Drawing.Size(376, 16)
		Me.lblReturnFile.TabIndex = 8
		Me.lblReturnFile.Text = "lblReturnFile"
		'
		'txtFileCount
		'
		Me.txtFileCount.BackColor = System.Drawing.SystemColors.Control
		Me.txtFileCount.Location = New System.Drawing.Point(120, 184)
		Me.txtFileCount.Multiline = True
		Me.txtFileCount.Name = "txtFileCount"
		Me.txtFileCount.ReadOnly = True
		Me.txtFileCount.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
		Me.txtFileCount.Size = New System.Drawing.Size(288, 80)
		Me.txtFileCount.TabIndex = 10
		Me.txtFileCount.Text = ""
		'
		'chkCleanReturn
		'
		Me.chkCleanReturn.Checked = True
		Me.chkCleanReturn.CheckState = System.Windows.Forms.CheckState.Checked
		Me.chkCleanReturn.Location = New System.Drawing.Point(24, 368)
		Me.chkCleanReturn.Name = "chkCleanReturn"
		Me.chkCleanReturn.Size = New System.Drawing.Size(384, 24)
		Me.chkCleanReturn.TabIndex = 16
		Me.chkCleanReturn.Text = "Return.txt auf ""0"" setzen"
		'
		'PictureBox1
		'
		Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
		Me.PictureBox1.Location = New System.Drawing.Point(464, 8)
		Me.PictureBox1.Name = "PictureBox1"
		Me.PictureBox1.Size = New System.Drawing.Size(32, 32)
		Me.PictureBox1.TabIndex = 14
		Me.PictureBox1.TabStop = False
		'
		'chkCleanFileCount
		'
		Me.chkCleanFileCount.Checked = True
		Me.chkCleanFileCount.CheckState = System.Windows.Forms.CheckState.Checked
		Me.chkCleanFileCount.Location = New System.Drawing.Point(24, 392)
		Me.chkCleanFileCount.Name = "chkCleanFileCount"
		Me.chkCleanFileCount.Size = New System.Drawing.Size(384, 24)
		Me.chkCleanFileCount.TabIndex = 17
		Me.chkCleanFileCount.Text = "FileCount.txt leeren"
		'
		'chkNextStart
		'
		Me.chkNextStart.Checked = True
		Me.chkNextStart.CheckState = System.Windows.Forms.CheckState.Checked
		Me.chkNextStart.Location = New System.Drawing.Point(24, 312)
		Me.chkNextStart.Name = "chkNextStart"
		Me.chkNextStart.Size = New System.Drawing.Size(168, 24)
		Me.chkNextStart.TabIndex = 13
		Me.chkNextStart.Text = "Nächster Start setzen auf:"
		'
		'chkSetIsRunning
		'
		Me.chkSetIsRunning.Checked = True
		Me.chkSetIsRunning.CheckState = System.Windows.Forms.CheckState.Checked
		Me.chkSetIsRunning.Location = New System.Drawing.Point(24, 336)
		Me.chkSetIsRunning.Name = "chkSetIsRunning"
		Me.chkSetIsRunning.Size = New System.Drawing.Size(456, 24)
		Me.chkSetIsRunning.TabIndex = 15
		Me.chkSetIsRunning.Text = "IsRunning(läuft) auf 0 (bereit zum Starten) setzen"
		'
		'cmdRefresh
		'
		Me.cmdRefresh.Location = New System.Drawing.Point(416, 240)
		Me.cmdRefresh.Name = "cmdRefresh"
		Me.cmdRefresh.Size = New System.Drawing.Size(80, 23)
		Me.cmdRefresh.TabIndex = 11
		Me.cmdRefresh.Text = "&Aktualisieren"
		'
		'lblProcessState
		'
		Me.lblProcessState.Location = New System.Drawing.Point(120, 128)
		Me.lblProcessState.Name = "lblProcessState"
		Me.lblProcessState.Size = New System.Drawing.Size(376, 16)
		Me.lblProcessState.TabIndex = 6
		Me.lblProcessState.Text = "lblProcessState"
		'
		'Label9
		'
		Me.Label9.Location = New System.Drawing.Point(24, 128)
		Me.Label9.Name = "Label9"
		Me.Label9.Size = New System.Drawing.Size(80, 16)
		Me.Label9.TabIndex = 5
		Me.Label9.Text = "Prozess:"
		'
		'chkKillWord
		'
		Me.chkKillWord.Location = New System.Drawing.Point(24, 424)
		Me.chkKillWord.Name = "chkKillWord"
		Me.chkKillWord.Size = New System.Drawing.Size(384, 24)
		Me.chkKillWord.TabIndex = 18
		Me.chkKillWord.Text = "Alle Word Prozesse abrupt beenden (KILL)"
		'
		'chkKillEDBK02
		'
		Me.chkKillEDBK02.Location = New System.Drawing.Point(24, 496)
		Me.chkKillEDBK02.Name = "chkKillEDBK02"
		Me.chkKillEDBK02.Size = New System.Drawing.Size(384, 24)
		Me.chkKillEDBK02.TabIndex = 20
		Me.chkKillEDBK02.Text = "EDKB02 Prozess abrupt beenden (KILL)"
		'
		'Label6
		'
		Me.Label6.Location = New System.Drawing.Point(64, 448)
		Me.Label6.Name = "Label6"
		Me.Label6.Size = New System.Drawing.Size(344, 40)
		Me.Label6.TabIndex = 19
		Me.Label6.Text = "Bitte beachten Sie, dass bei dieser Option ALLE Word Prozesse auf dieser Maschine" & _
		" beendet werden. Dies kann möglicherweise zu Problemen führen."
		'
		'MainForm
		'
		Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
		Me.ClientSize = New System.Drawing.Size(506, 528)
		Me.Controls.Add(Me.Label6)
		Me.Controls.Add(Me.chkKillEDBK02)
		Me.Controls.Add(Me.chkKillWord)
		Me.Controls.Add(Me.lblProcessState)
		Me.Controls.Add(Me.Label9)
		Me.Controls.Add(Me.cmdRefresh)
		Me.Controls.Add(Me.chkSetIsRunning)
		Me.Controls.Add(Me.chkNextStart)
		Me.Controls.Add(Me.chkCleanFileCount)
		Me.Controls.Add(Me.PictureBox1)
		Me.Controls.Add(Me.chkCleanReturn)
		Me.Controls.Add(Me.txtFileCount)
		Me.Controls.Add(Me.lblReturnFile)
		Me.Controls.Add(Me.Label8)
		Me.Controls.Add(Me.Label7)
		Me.Controls.Add(Me.cmdSet)
		Me.Controls.Add(Me.txtNextStartDate)
		Me.Controls.Add(Me.Label5)
		Me.Controls.Add(Me.lblEDKB02State)
		Me.Controls.Add(Me.Label4)
		Me.Controls.Add(Me.Label3)
		Me.Controls.Add(Me.Label2)
		Me.Controls.Add(Me.Label1)
		Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
		Me.MaximizeBox = False
		Me.MinimizeBox = False
		Me.Name = "MainForm"
		Me.Text = "EDKB02 - Batch Status"
		Me.ResumeLayout(False)

	End Sub

#End Region

#Region "Members"

    Dim _settings As New Common.Settings

#End Region

#Region "Private methods"

    Private Sub LoadData()
        Try
            Dim isRunning As Boolean
            Dim dsEDKB02 As New DataSet
            Dim edkb02 As New Process

            Dim sqlCom As New SqlCommand
            Dim sqlConn As New SqlConnection(_settings.GetDecryptedDSN())
            Dim da As New SqlDataAdapter

            'get process informations
            Dim edkb02s() As System.Diagnostics.Process = Process.GetProcessesByName(_settings.GetSettingValue("EDKB02ProcessName"))
            If edkb02s.Length > 0 Then
                edkb02 = edkb02s(0)
            Else
                edkb02 = Nothing
            End If

            'Get state for batch from db
            sqlConn.Open()
            sqlCom.CommandText = "SELECT * FROM Jobs WHERE JobId = " & _settings.GetSettingValue("JobId")
            sqlCom.Connection = sqlConn
            da.SelectCommand = sqlCom
            da.Fill(dsEDKB02)

            If dsEDKB02.Tables.Count > 0 Then
                If dsEDKB02.Tables(0).Rows.Count > 0 Then

                    Dim row As DataRow = dsEDKB02.Tables(0).Rows(0)

                    'check is running for edkb02
                    isRunning = CBool(DataAccess.Job.CheckIsRunning(_settings.GetDecryptedDSN(), _settings.GetSettingValue("ProgramId")))
                    If (isRunning) Then
                        lblEDKB02State.Text = "Läuft zur Zeit (seit " & row("LastRunStart") & ")"
                    Else
                        lblEDKB02State.Text = "Bereit"
                    End If

                    'set next startdate
                    Dim oldDate As DateTime = CDate(row("NextStartDate"))
                    Dim nextStartDate As New DateTime(oldDate.Year, oldDate.Month, oldDate.Day, oldDate.Hour + 1, 0, 0)
                    txtNextStartDate.Text = nextStartDate

                Else
                    MsgBox("Der Job EDKB02 konnte nicht geladen werden")
                End If
            Else
                MsgBox("Der Job EDKB02 konnte nicht geladen werden")
            End If

            'get state for batch by process info
            If Not edkb02 Is Nothing Then
                If edkb02.Responding Then
                    lblProcessState.Text = "Läuft und antwortet"
                Else
                    lblProcessState.Text = "Läuft, aber antwortet nicht"
                End If
            Else
                lblProcessState.Text = "Läuft nicht"
            End If

            'read return.txt file
            Dim returnFile As New StreamReader(CStr(_settings.GetSettingValue("ReturnFilePath")))
            lblReturnFile.Text = returnFile.ReadLine()
            returnFile.Close()

            'read filecount.txt file
            Dim fileCountFile As New StreamReader(CStr(_settings.GetSettingValue("FileCountPath")))
            txtFileCount.Text = fileCountFile.ReadToEnd()
            fileCountFile.Close()


        Catch ex As Exception
            'damn ><
            Throw ex
        End Try
    End Sub

#End Region

#Region "Event handlers"

	Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Try
			LoadData()
		Catch ex As Exception
			MsgBox("Beim Starten ist ein Fehler aufgetreten" & vbCrLf & vbCrLf & ex.Message & vbCrLf & ex.StackTrace, MsgBoxStyle.Critical, "Fehler beim Start")
			Close()
		End Try
	End Sub

	Private Sub cmdSet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSet.Click
		Try
			cmdSet.Enabled = False

			If chkNextStart.Checked Then
				Dim nextStartDate As New DateTime
				nextStartDate = CDate(txtNextStartDate.Text)

				'set next execution time
				Dim sqlCom As New SqlCommand
				Dim sqlConn As New SqlConnection(_settings.GetDecryptedDSN())

				sqlConn.Open()
				sqlCom.CommandText = "UPDATE Jobs SET NextStartDate = CONVERT(DATETIME, '" & nextStartDate & "') WHERE JobId = " & _settings.GetSettingValue("JobId")
				sqlCom.Connection = sqlConn
				sqlCom.ExecuteNonQuery()

				DataAccess.Job.SetNextStartDateCalculated(_settings.GetDecryptedDSN(), _settings.GetSettingValue("JobId"), True)
			End If

			If chkSetIsRunning.Checked Then
				'reset is running
				DataAccess.Job.SetIsRunning(_settings.GetDecryptedDSN(), _settings.GetSettingValue("ProgramId"), False)
			End If

			If chkCleanFileCount.Checked Then
				'reset filecount.txt file
				Dim fileCountFile As New StreamWriter(CStr(_settings.GetSettingValue("FileCountPath")))
				fileCountFile.Write("")
				fileCountFile.Close()
			End If

			If chkCleanReturn.Checked Then
				'reset return.txt file
				Dim returnFile As New StreamWriter(CStr(_settings.GetSettingValue("ReturnFilePath")))
				returnFile.Write("0")
				returnFile.Close()
			End If

			'kill word processes
			If chkKillWord.Checked Then
                Dim words() As System.Diagnostics.Process = Process.GetProcessesByName(_settings.GetSettingValue("WordProcessName"))

				Dim word As Process
				For Each word In words
					word.Kill()
				Next
			End If

			'kill edkb02 processes
			If chkKillEDBK02.Checked Then
                Dim edkb02s() As System.Diagnostics.Process = Process.GetProcessesByName(_settings.GetSettingValue("EDKB02ProcessName"))

				Dim edkb02 As Process
				For Each edkb02 In edkb02s
					edkb02.Kill()
				Next
			End If

			'refresh ui
			LoadData()
		Catch ex As Exception
			MsgBox("Beim Speichern ist ein Fehler aufgetreten" & vbCrLf & vbCrLf & ex.Message & vbCrLf & ex.StackTrace, MsgBoxStyle.Critical, "Fehler beim Speichern")
		Finally
			cmdSet.Enabled = True
		End Try
	End Sub

	Private Sub chkNextStart_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkNextStart.CheckedChanged
		If chkNextStart.Checked Then
			txtNextStartDate.ReadOnly = False
		Else
			txtNextStartDate.ReadOnly = True
		End If
	End Sub

	Private Sub cmdRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRefresh.Click
		Try
			LoadData()
		Catch ex As Exception
			MsgBox("Beim Aktualisieren ist ein Fehler aufgetreten" & vbCrLf & vbCrLf & ex.Message & vbCrLf & ex.StackTrace, MsgBoxStyle.Critical, "Fehler beim Start")
		End Try
	End Sub

#End Region

End Class