MS

app/ResultHandler_Konfig/frmMain.vb

@@ -1,9 +1,17 @@
 Imports System.ServiceProcess
-Imports Modules.Logging
+Imports DigitalData.Modules.Logging
+Imports DD_WMResulthandler
+Imports System.Net.Mail
+Imports System.Net
+
 Public Class frmMain
-    Private Shared _Logger As NLog.Logger = NLog.LogManager.GetCurrentClassLogger
-    Private _windream As DD_WMResulthandler.clsWindream_allgemein
-    Dim MyLoggerConfig As Logger
+    Private _windream As clsWindream_allgemein
+    Private _database As clsDatabase
+    Private _profil As clsProfil
+    Private _email As clsEmail
+    Dim MyLogger As LogConfig
+    Dim Logger As Logger
+    Dim switchRecord As Boolean = True
     Private Sub TBPROFILBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBPROFILBindingNavigatorSaveItem.Click
         Save_Profil()
     End Sub
@@ -22,13 +30,15 @@ Public Class frmMain
         '        DB_Path()
         '    End If
         'End If
+        MyLogger = New LogConfig(LogConfig.PathType.AppData, Nothing, "Log")
+        Logger = MyLogger.GetLogger()
         Load_Constring()
-        MyLoggerConfig = New Logger(Logger.PathType.AppData)
-
-        _Logger.Info("Konfig started: " & Now.ToString)
+        _database = New clsDatabase(MyLogger, My.Settings.SQLSERVER_CS)
+        _email = New clsEmail(MyLogger)
+        Logger.Info("Konfig started: " & Now.ToString)
         Try
             ' Windream instanziieren
-            _windream = New DD_WMResulthandler.clsWindream_allgemein()
+            _windream = New clsWindream_allgemein(MyLogger)
             'Windream initialisieren (Connection, Session, ... aufbauen)
             _windream.Init()
         Catch ex As Exception
@@ -100,6 +110,7 @@ Public Class frmMain
             End If
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler inCheckIfRunning")
+            Return False
         End Try
     End Function
     Sub Load_Constring()
@@ -116,18 +127,21 @@ Public Class frmMain
         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)
-            DD_WMResulthandler.clsCURRENT.LOG_ERRORS_ONLY = MyDataset.TBWMRH_KONFIGURATION.Rows(0).Item("LOG_ERRORS_ONLY")
-            DD_WMResulthandler.clsCURRENT.WDLAUFWERK = MyDataset.TBWMRH_KONFIGURATION.Rows(0).Item("WD_LAUFWERK")
+            clsCURRENT.LOG_ERRORS_ONLY = MyDataset.TBWMRH_KONFIGURATION.Rows(0).Item("LOG_ERRORS_ONLY")
+            clsCURRENT.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
+            switchRecord = True
             Me.TBWMRH_PROFILTableAdapter.Fill(Me.MyDataset.TBWMRH_PROFIL)
+
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Load_Profil:")
         End Try
+        switchRecord = False
     End Sub
     Private Sub ObjekttypenEintragen()
         Me.ObjekttypComboBox.Items.Clear()
@@ -167,6 +181,11 @@ Public Class frmMain
     End Sub
     Sub statuslabel(visible As Boolean, Text As String)
         Me.tsstatus.Visible = visible
+        If visible = True Then
+            tsstatus.BackColor = Color.Yellow
+        Else
+            tsstatus.BackColor = Color.Transparent
+        End If
         Me.tsstatus.Text = Text
     End Sub
     Private Sub btnaddSearch_Click(sender As Object, e As EventArgs) Handles btnaddSearch.Click
@@ -220,6 +239,9 @@ Public Class frmMain
         End Try
     End Sub
     Sub Checkbox_Days()
+        If switchRecord = True Then
+            Exit Sub
+        End If
         Dim days As String
         If CheckBox1.Checked Then
             days = "1"
@@ -287,6 +309,15 @@ Public Class frmMain
 
     Private Sub DayTextBox_TextChanged(sender As Object, e As EventArgs) Handles DayTextBox.TextChanged
         If DayTextBox.Text <> String.Empty Then
+            switchRecord = True
+            CheckBox1.Checked = False
+            CheckBox2.Checked = False
+            CheckBox3.Checked = False
+            CheckBox4.Checked = False
+            CheckBox5.Checked = False
+            CheckBox6.Checked = False
+            CheckBox7.Checked = False
+
             'Markieren der Checkboxen'
             If DayTextBox.Text.Substring(0, 1) = 1 Then
                 CheckBox1.Checked = True
@@ -309,6 +340,7 @@ Public Class frmMain
             If DayTextBox.Text.Substring(6, 1) = 1 Then
                 CheckBox7.Checked = True
             End If
+            switchRecord = False
         End If
 
     End Sub
@@ -373,12 +405,14 @@ Public Class frmMain
 
     End Sub
     Private Sub GUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles GUIDTextBox.TextChanged
+        Load_Jobs()
+    End Sub
+    Sub Load_Jobs()
         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
@@ -449,9 +483,9 @@ Public Class frmMain
         STRING2TextBox.Visible = False
         STRING3TextBox.Visible = False
         STRING4TextBox.Visible = False
-        STRING3TextBox.Size = New Size(400, 22)
-        STRING3TextBox.Anchor = AnchorStyles.Left Or AnchorStyles.Top
+        ' STRING3TextBox.Size = New Size(400, 22)
         STRING3TextBox.Multiline = False
+        STRING3TextBox1.Visible = False
         STRING5TextBox.Visible = False
 
         Select Case JOB_TYPComboBox.Text.ToUpper
@@ -465,11 +499,10 @@ Public Class frmMain
                 lblString2.Text = "Email-Betreff:"
                 STRING2TextBox.Visible = True
                 lblString3.Text = "Email-Body:"
-                STRING3TextBox.Visible = True
                 lblString4.Text = "Email-Profil:"
                 lblString4.Visible = True
-                STRING3TextBox.Anchor = AnchorStyles.Left Or AnchorStyles.Top Or AnchorStyles.Right Or AnchorStyles.Bottom
-                STRING3TextBox.Multiline = True
+                STRING3TextBox.Visible = False
+                STRING3TextBox1.Visible = True
 
                 STRING4TextBox.Visible = True
             Case "BNS json Download".ToUpper 'json BNS
@@ -480,6 +513,7 @@ Public Class frmMain
             Case "Concat Files to one pdf".ToUpper ' Concat Files to one pdf
                 lblString1.Text = "Name und Speicherort der zusammengefügten PDF-Datei:"
                 STRING1TextBox.Visible = True
+                btnJOB_addSpeicherort.Visible = True
                 lblString2.Text = "Löschen der exportierten Dateien (Ja/Nein)"
                 STRING2TextBox.Visible = True
             Case "Send concatted file via mail".ToUpper
@@ -488,7 +522,8 @@ Public Class frmMain
                 lblString2.Text = "Email-Betreff:"
                 STRING2TextBox.Visible = True
                 lblString3.Text = "Email-Body:"
-                STRING3TextBox.Visible = True
+                STRING3TextBox.Visible = False
+                STRING3TextBox1.Visible = True
                 lblString4.Text = "Email-Profil:"
                 STRING4TextBox.Visible = True
             Case "Send to printer".ToUpper
@@ -500,7 +535,8 @@ Public Class frmMain
                 lblString2.Text = "Email-Betreff:"
                 STRING2TextBox.Visible = True
                 lblString3.Text = "Email-Body:"
-                STRING3TextBox.Visible = True
+                STRING3TextBox.Visible = False
+                STRING3TextBox1.Visible = True
                 lblString4.Text = "Email-Profil:"
                 STRING4TextBox.Visible = True
                 lblString5.Text = "Pfad zu WM-Suche:"
@@ -551,6 +587,7 @@ Public Class frmMain
                     STRING1ComboBox.Visible = True
 
                     lblString2FileJobs.Text = "Wert"
+                    lblString2FileJobs.Visible = True
                     STRING2TextBoxProfil_FileJob.Visible = True
                     Me.btnaddDatetime.Visible = True
 
@@ -609,9 +646,9 @@ Public Class frmMain
                 statuslabel(True, "Grundkonfiguration gespeichert - " & Now)
                 Load_Grundkonfig()
                 If LOG_ERRORS_ONLYCheckBox.Checked = False Then
-                    MyLoggerConfig.Debug = True
+                    MyLogger.Debug = True
                 Else
-                    MyLoggerConfig.Debug = False
+                    MyLogger.Debug = False
                 End If
             End If
         Catch ex As Exception
@@ -628,54 +665,69 @@ Public Class frmMain
         End If
     End Sub
     Sub Manual(ID As Integer)
-        'Try
-        Dim notcompleted As Boolean = False
-        _Logger.Info("## Start Durchlauf WindreamResultHandler - " & Now & " ## ")
-        'windream initialisieren
-        If DD_WMResulthandler.clsDatatabase.Init(My.Settings.SQLSERVER_CS) = True Then
-            If _windream.Init() = True Then
-                _Logger.Info("windream vollumfänglich initialisiert!")
-                Dim DT As DataTable = DD_WMResulthandler.clsDatatabase.Return_Datatable("SELECT GUID FROM TBWMRH_PROFIL WHERE GUID = " & ID)
-                If DT.Rows.Count > 0 Then
-                    _Logger.Info("Anzahl der aktiven Profile: " & DT.Rows.Count.ToString)
-                    For Each DR As DataRow In DT.Rows
-                        DD_WMResulthandler.clsCURRENT._PROFIL_ID = CInt(DR.Item("GUID"))
-                        'Und nun das Profil durchlaufen
-                        Dim initresult = DD_WMResulthandler.clsProfil.Init(DD_WMResulthandler.clsCURRENT._PROFIL_ID)
-                        If initresult = True Then
-
-                            DD_WMResulthandler.clsProfil.Profil_Durchlauf()
-                        ElseIf initresult = False Then
-                            _Logger.Warn("clsProfil konnte nicht initialisiert werden")
-                            notcompleted = True
-                        ElseIf initresult = 0 Then
-                            _Logger.Warn("initresult: 0")
-                            notcompleted = True
-                        ElseIf initresult = 1 Then
-                            _Logger.Warn("initresult: 1")
-                            notcompleted = True
-                        End If
-                    Next
-                Else
-                    _Logger.Warn("- Keine aktiven Profile vorhanden")
-                    notcompleted = True
+        Try
+            Dim notcompleted As Boolean = False
+            Logger.Info("## Start Durchlauf WindreamResultHandler - " & Now & " ## ")
+            _profil = New clsProfil(MyLogger, ID)
+            'windream initialisieren
+            If _database.Init(My.Settings.SQLSERVER_CS) = True Then
+                Dim DT As DataTable = _database.Return_Datatable("select * from TBWMRH_KONFIGURATION where GUID = 1")
+                If DT.Rows.Count = 1 Then
+                    clsCURRENT.DT_TBWMRH_KONFIGURATION = DT
+                    clsCURRENT.WDLAUFWERK = clsCURRENT.DT_TBWMRH_KONFIGURATION.Rows(0).Item("WD_LAUFWERK")
+                    DD_WMResulthandler.clsCURRENT.LOG_ERRORS_ONLY = DT.Rows(0).Item("LOG_ERRORS_ONLY")
+                    MyLogger.Debug = DT.Rows(0).Item("LOG_ERRORS_ONLY")
+                    If DD_WMResulthandler.clsCURRENT.LOG_ERRORS_ONLY = False Then
+                        Logger.Debug("Detaillog is ON!")
+                    End If
+                    DD_WMResulthandler.clsCURRENT.WDLAUFWERK = DT.Rows(0).Item("WD_LAUFWERK")
                 End If
+
+                If _windream.Init() = True Then
+                    Logger.Info("windream vollumfänglich initialisiert!")
+                    DT = _database.Return_Datatable("SELECT GUID FROM TBWMRH_PROFIL WHERE GUID = " & ID)
+                    If DT.Rows.Count > 0 Then
+                        Logger.Info("Anzahl der aktiven Profile: " & DT.Rows.Count.ToString)
+                        For Each DR As DataRow In DT.Rows
+                            clsCURRENT._PROFIL_ID = CInt(DR.Item("GUID"))
+                            'Und nun das Profil durchlaufen
+                            Dim initresult = _profil.Init(clsCURRENT._PROFIL_ID)
+                            If initresult = True Then
+                                _profil.Profil_Durchlauf(True)
+                            ElseIf initresult = False Then
+                                Logger.Warn("clsProfil konnte nicht initialisiert werden")
+                                notcompleted = True
+                            ElseIf initresult = 0 Then
+                                Logger.Warn("initresult: 0")
+                                notcompleted = True
+                            ElseIf initresult = 1 Then
+                                Logger.Warn("initresult: 1")
+                                notcompleted = True
+                            End If
+                        Next
+                    Else
+                        Logger.Warn("- Keine aktiven Profile vorhanden")
+                        notcompleted = True
+                    End If
+                Else
+                    Logger.Warn("# Achtung: Windream-Init mit Fehlern beendet")
+                End If
+                _database.Execute_non_Query("UPDATE TBWMRH_KONFIGURATION SET LAST_TICK = GETDATE() WHERE GUID = 1")
             Else
-                _Logger.Warn("# Achtung: Windream-Init mit Fehlern beendet")
+                Logger.Warn("- clsDatatabase konnte nicht initialisiert werden!")
+                notcompleted = True
             End If
-            DD_WMResulthandler.clsDatatabase.Execute_non_Query("UPDATE TBWMRH_KONFIGURATION SET LAST_TICK = GETDATE() WHERE GUID = 1")
-        Else
-            _Logger.Warn("- clsDatatabase konnte nicht initialisiert werden!")
-            notcompleted = True
-        End If
 
-        If notcompleted = True Then
+            If notcompleted = True Then
+                MsgBox("Run completed with errors - Check the log!", MsgBoxStyle.Information)
+            Else
+                MsgBox("Run completed!", MsgBoxStyle.Information)
+            End If
 
-        End If
-        MsgBox("Run completed!", MsgBoxStyle.Information)
-        'Catch ex As Exception
-        '    clsLogger.AddError(ex.Message, "RUN_THREAD")
-        'End Try
+        Catch ex As Exception
+            Logger.Error(ex)
+
+        End Try
     End Sub
 
     Private Sub TBWMRH_PROFIL_JOBBindingSource_AddingNew_1(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBWMRH_PROFIL_JOBBindingSource.AddingNew
@@ -690,7 +742,12 @@ Public Class frmMain
     End Sub
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        Process.Start(MyLoggerConfig.LogFile)
+        Try
+            Process.Start(MyLogger.LogFile)
+        Catch ex As Exception
+            MsgBox(ex.Message & vbNewLine & "Logfile: " & MyLogger.LogFile)
+        End Try
+
     End Sub
 
     Private Sub btnTestCon_Click(sender As Object, e As EventArgs) Handles btnTestCon.Click
@@ -698,12 +755,12 @@ Public Class frmMain
             Exit Sub
         End If
         If STEP_TYPComboBox.Text = "Execute Oracle Command" Then
-            If DD_WMResulthandler.clsDatatabase.Oracle_CS_Test(STRING1TextBoxFile_Job.Text) = True Then
+            If _database.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 DD_WMResulthandler.clsDatatabase.MSSQL_CS_Test(STRING1TextBoxFile_Job.Text) = True Then
+            If _database.MSSQL_CS_Test(STRING1TextBoxFile_Job.Text) = True Then
                 MsgBox("MSSQL Connection successfull!", MsgBoxStyle.Information)
                 Exit Sub
             End If
@@ -733,7 +790,7 @@ Public Class frmMain
     End Sub
 
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
-        Process.Start(MyLoggerConfig.LogDirectory)
+        Process.Start(MyLogger.LogDirectory)
     End Sub
 
     Private Sub TBDD_EMAIL_ACCOUNTBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_EMAIL_ACCOUNTBindingSource.AddingNew
@@ -760,16 +817,42 @@ Public Class frmMain
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Save Email:")
         End Try
+    End Sub
+    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
+        Try
+            My.Settings.Save()
+            Dim wrapper As New clsEncryption("!35452didalog=")
+
+            Dim PWPlain = wrapper.DecryptData(EMAIL_PWTextBox.Text)
+            Dim sClient = New SmtpClient(EMAIL_SMTPTextBox.Text)
+            Dim mymesssage As New MailMessage
+            sClient.Port = 587
+            sClient.EnableSsl = True
+            sClient.Credentials = New NetworkCredential(EMAIL_USERTextBox.Text, PWPlain)
+            sClient.UseDefaultCredentials = False
+            mymesssage.Body = "Test"
+            mymesssage.From = New MailAddress(EMAIL_FROMTextBox.Text)
+            mymesssage.Subject = "TestSubject"
+            mymesssage.CC.Add(New MailAddress(txtTestmail.Text))
+            sClient.Send(mymesssage)
+        Catch ex As Exception
+
+        End Try
+
+
     End Sub
     Private Sub btnsendtestmail_Click(sender As Object, e As EventArgs) Handles btnsendtestmail.Click
+
+
         If txtTestmail.Text <> String.Empty Then
-            Dim wrapper As New DD_WMResulthandler.clsEncryption("!35452didalog=")
+            My.Settings.Save()
+            Dim wrapper As New clsEncryption("!35452didalog=")
 
             Dim PWPlain = wrapper.DecryptData(EMAIL_PWTextBox.Text)
 
 
-            If DD_WMResulthandler.clsEmail.Email_Send_Independentsoft("Testmail DD Windream-ResultHandler", "This is the body (text will be replaced within profile)", txtTestmail.Text,
-                                EMAIL_FROMTextBox.Text, EMAIL_SMTPTextBox.Text, PORTTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, CheckBoxSSL.CheckState, "") = True Then
+            If _email.Email_Send_Independentsoft("Testmail DD Windream-ResultHandler", "This is the body (text will be replaced within profile)", txtTestmail.Text,
+                                EMAIL_FROMTextBox.Text, EMAIL_SMTPTextBox.Text, PORTTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, AUTH_TYPEComboBox.Text, "") = True Then
                 MsgBox("Email was send successfully.", MsgBoxStyle.Information)
             Else
                 MsgBox("Could not send the testmail. Please check the log.", MsgBoxStyle.Exclamation)
@@ -778,7 +861,7 @@ Public Class frmMain
     End Sub
 
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
-        Dim wrapper As New DD_WMResulthandler.clsEncryption("!35452didalog=")
+        Dim wrapper As New clsEncryption("!35452didalog=")
         Dim pwencrypted = wrapper.EncryptData(txtnewpasswort.Text)
         EMAIL_PWTextBox.Text = pwencrypted
         SaveEmail()
@@ -814,7 +897,65 @@ Public Class frmMain
         End Try
     End Sub
 
-    Private Sub LOG_ERRORS_ONLYCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles LOG_ERRORS_ONLYCheckBox.CheckedChanged
+    Private Sub TabPage2_Click(sender As Object, e As EventArgs) Handles TabPage2.Click
 
     End Sub
+
+    Private Sub ToolStripButton23_Click_1(sender As Object, e As EventArgs) Handles ToolStripButton23.Click
+        Load_Jobs(GUIDTextBox.Text)
+    End Sub
+
+    Private Sub ToolStripButton24_Click(sender As Object, e As EventArgs) Handles ToolStripButton24.Click
+        Load_FILE_JOBS(GUIDTextBox.Text)
+    End Sub
+
+    Private Sub NumericUpDown_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown.ValueChanged
+        Select Case cmbTimeTyp.SelectedValue
+            Case "Intervall"
+                Me.dtp_Time.Visible = False
+                Me.NumericUpDown.Visible = True
+                RunTextBox.Text = "INTV;" & NumericUpDown.Value
+            Case "Uhrzeit"
+                Me.dtp_Time.Visible = True
+                Me.NumericUpDown.Visible = False
+                RunTextBox.Text = "TIME;" & dtp_Time.Text
+        End Select
+    End Sub
+
+    Private Sub dtp_Time_ValueChanged(sender As Object, e As EventArgs) Handles dtp_Time.ValueChanged
+        Select Case cmbTimeTyp.SelectedValue
+            Case "Uhrzeit"
+                Me.NumericUpDown.Visible = False
+                Me.dtp_Time.Visible = True
+                RunTextBox.Text = "TIME;" & dtp_Time.Text
+        End Select
+    End Sub
+
+    Private Sub EncryptToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EncryptToolStripMenuItem.Click
+        Dim wrapper As New clsEncryption("!35452didalog=")
+        Dim pwencrypted = wrapper.DecryptData(EMAIL_PWTextBox.Text)
+        MsgBox("PW is: " & pwencrypted)
+    End Sub
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
+        Dim Dayofweek As Integer = My.Computer.Clock.LocalTime.DayOfWeek
+        Dim SUBS As Integer = 0
+        Dim RUNTODAY As Integer = 0
+        Select Case Dayofweek
+            Case 6 'Saturday
+            Case 5 'Friday
+            Case 4 'Thursday
+            Case 3 'Wednesday
+            Case 2 'Tuesday
+            Case 1 'Monday
+            Case 0 'Sunday
+        End Select
+        If Dayofweek = 0 Then
+            SUBS = 6
+        Else
+            SUBS = Dayofweek - 1
+        End If
+        RUNTODAY = TextBox1.Text.Substring(SUBS, 1)
+        MsgBox(RUNTODAY)
+    End Sub
 End Class