AppStd/ResulHandlerMSSQL
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS Klassen überarbeitet NLOG integriert

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-08-16 10:58:57 +02:00
parent be9fca94b3
commit 844a423f7d
76 changed files with 365601 additions and 1752 deletions
Download Patch File Download Diff File Expand all files Collapse all files

143
app/ResultHandler_Konfig/frmMain.vb
View File

@@ -1,6 +1,9 @@
Imports System.ServiceProcess
Imports Modules.Logging
Public Class frmMain
Private _windream As ClassWMResulthandler.clsWindream_allgemein
Private Shared _Logger As NLog.Logger = NLog.LogManager.GetCurrentClassLogger
Private _windream As DD_WMResulthandler.clsWindream_allgemein
Dim MyLoggerConfig As Logger
Private Sub TBPROFILBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBPROFILBindingNavigatorSaveItem.Click
Save_Profil()
End Sub
@@ -20,17 +23,20 @@ Public Class frmMain
' End If
'End If
Load_Constring()
MyLoggerConfig = New Logger(Logger.PathType.AppData)
_Logger.Info("Konfig started: " & Now.ToString)
Try
' Windream instanziieren
_windream = New ClassWMResulthandler.clsWindream_allgemein()
_windream = New DD_WMResulthandler.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()
ClassWMResulthandler.clsLogger.Init(My.Application.Info.DirectoryPath & "\Log", "logResultHandlerGUI_")
ToolStripStatusLabelVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
End Sub
Sub Load_Uebersicht()
@@ -110,8 +116,8 @@ 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)
ClassWMResulthandler.clsCURRENT.LOG_ERRORS_ONLY = MyDataset.TBWMRH_KONFIGURATION.Rows(0).Item("LOG_ERRORS_ONLY")
ClassWMResulthandler.clsCURRENT.WDLAUFWERK = MyDataset.TBWMRH_KONFIGURATION.Rows(0).Item("WD_LAUFWERK")
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")
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Load_Konfiguration:")
End Try
@@ -200,7 +206,7 @@ Public Class frmMain
Case 2
Load_Grundkonfig()
Case 3
load_Emails
load_Emails()
End Select
End Sub
Private Sub TBPROFILBindingSource_BindingComplete(sender As Object, e As BindingCompleteEventArgs)
@@ -430,7 +436,7 @@ Public Class frmMain
End Sub
Private Sub JOB_TYPComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles JOB_TYPComboBox.SelectedIndexChanged
Show_String_Lables
Show_String_Lables()
End Sub
Sub Show_String_Lables()
btnJOB_addSpeicherort.Visible = False
@@ -438,7 +444,7 @@ Public Class frmMain
lblString2.Text = ""
lblString3.Text = ""
lblString4.Text = ""
lblString4.Visible = False
lblString5.Text = ""
STRING1TextBox.Visible = False
STRING2TextBox.Visible = False
STRING3TextBox.Visible = False
@@ -446,6 +452,7 @@ Public Class frmMain
STRING3TextBox.Size = New Size(400, 22)
STRING3TextBox.Anchor = AnchorStyles.Left Or AnchorStyles.Top
STRING3TextBox.Multiline = False
STRING5TextBox.Visible = False
Select Case JOB_TYPComboBox.Text.ToUpper
Case "Export HDD".ToUpper
@@ -487,6 +494,17 @@ Public Class frmMain
Case "Send to printer".ToUpper
lblString1.Text = "Netzwerkpfad/Name des Druckers:"
STRING1TextBox.Visible = True
Case "Send InfoMail with WM-Search".ToUpper
lblString1.Text = "Email-Empfänger:"
STRING1TextBox.Visible = True
lblString2.Text = "Email-Betreff:"
STRING2TextBox.Visible = True
lblString3.Text = "Email-Body:"
STRING3TextBox.Visible = True
lblString4.Text = "Email-Profil:"
STRING4TextBox.Visible = True
lblString5.Text = "Pfad zu WM-Suche:"
STRING5TextBox.Visible = True
End Select
End Sub
Private Sub btnJOB_addSpeicherort_Click(sender As Object, e As EventArgs) Handles btnJOB_addSpeicherort.Click
@@ -571,40 +589,7 @@ Public Class frmMain
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
Try
If IsNumeric(Me.GUIDTextBox.Text) Then
Me.TBWMRH_PROFILTableAdapter.cmdUpdateRunningnow(Me.GUIDTextBox.Text)
Manual(Me.GUIDTextBox.Text)
End If
Catch ex As Exception
End Try
End Sub
Private Sub tabtn_refreshProfile_Click(sender As Object, e As EventArgs) Handles tabtn_refreshProfile.Click
Load_Profil()
@@ -623,6 +608,11 @@ Public Class frmMain
Me.TBWMRH_KONFIGURATIONTableAdapter.Update(MyDataset.TBWMRH_KONFIGURATION)
statuslabel(True, "Grundkonfiguration gespeichert - " & Now)
Load_Grundkonfig()
If LOG_ERRORS_ONLYCheckBox.Checked = False Then
MyLoggerConfig.Debug = True
Else
MyLoggerConfig.Debug = False
End If
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Save Grundkonfig:")
@@ -640,48 +630,47 @@ Public Class frmMain
Sub Manual(ID As Integer)
'Try
Dim notcompleted As Boolean = False
ClassWMResulthandler.clsLogger.Add("## Start Durchlauf WindreamResultHandler - " & Now & " ## ", False)
_Logger.Info("## Start Durchlauf WindreamResultHandler - " & Now & " ## ")
'windream initialisieren
If ClassWMResulthandler.clsDatatabase.Init(My.Settings.SQLSERVER_CS) = True Then
If DD_WMResulthandler.clsDatatabase.Init(My.Settings.SQLSERVER_CS) = True Then
If _windream.Init() = True Then
ClassWMResulthandler.clsLogger.AddDetailLog("windream vollumfänglich initialisiert!")
Dim DT As DataTable = ClassWMResulthandler.clsDatatabase.Return_Datatable("SELECT GUID FROM TBWMRH_PROFIL WHERE GUID = " & ID)
_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
ClassWMResulthandler.clsLogger.AddDetailLog("Anzahl der aktiven Profile: " & DT.Rows.Count.ToString)
_Logger.Info("Anzahl der aktiven Profile: " & DT.Rows.Count.ToString)
For Each DR As DataRow In DT.Rows
ClassWMResulthandler.clsCURRENT._PROFIL_ID = CInt(DR.Item("GUID"))
DD_WMResulthandler.clsCURRENT._PROFIL_ID = CInt(DR.Item("GUID"))
'Und nun das Profil durchlaufen
Dim initresult = ClassWMResulthandler.clsProfil.Init(ClassWMResulthandler.clsCURRENT._PROFIL_ID)
Dim initresult = DD_WMResulthandler.clsProfil.Init(DD_WMResulthandler.clsCURRENT._PROFIL_ID)
If initresult = True Then
ClassWMResulthandler.clsLogger.WriteLog()
ClassWMResulthandler.clsProfil.Profil_Durchlauf()
DD_WMResulthandler.clsProfil.Profil_Durchlauf()
ElseIf initresult = False Then
ClassWMResulthandler.clsLogger.Add("clsProfil konnte nicht initialisiert werden", True, "RUN_THREAD")
_Logger.Warn("clsProfil konnte nicht initialisiert werden")
notcompleted = True
ElseIf initresult = 0 Then
ClassWMResulthandler.clsLogger.AddDetailLog("initresult: 0")
_Logger.Warn("initresult: 0")
notcompleted = True
ElseIf initresult = 1 Then
ClassWMResulthandler.clsLogger.AddDetailLog("initresult: 1")
_Logger.Warn("initresult: 1")
notcompleted = True
End If
Next
Else
ClassWMResulthandler.clsLogger.Add("- Keine aktiven Profile vorhanden", False)
_Logger.Warn("- Keine aktiven Profile vorhanden")
notcompleted = True
End If
Else
ClassWMResulthandler.clsLogger.Add("# Achtung: Windream-Init mit Fehlern beendet", False)
notcompleted = True
_Logger.Warn("# Achtung: Windream-Init mit Fehlern beendet")
End If
ClassWMResulthandler.clsDatatabase.Execute_non_Query("UPDATE TBWMRH_KONFIGURATION SET LAST_TICK = GETDATE() WHERE GUID = 1")
DD_WMResulthandler.clsDatatabase.Execute_non_Query("UPDATE TBWMRH_KONFIGURATION SET LAST_TICK = GETDATE() WHERE GUID = 1")
Else
ClassWMResulthandler.clsLogger.Add("- clsDatatabase konnte nicht initialisiert werden!", False)
_Logger.Warn("- clsDatatabase konnte nicht initialisiert werden!")
notcompleted = True
End If
End If
If notcompleted = True Then
If notcompleted = True Then
ClassWMResulthandler.clsLogger.WriteLog()
End If
MsgBox("Run completed!", MsgBoxStyle.Information)
'Catch ex As Exception
@@ -701,7 +690,7 @@ Public Class frmMain
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Process.Start(ClassWMResulthandler.clsLogger.LogFilename)
Process.Start(MyLoggerConfig.LogFile)
End Sub
Private Sub btnTestCon_Click(sender As Object, e As EventArgs) Handles btnTestCon.Click
@@ -709,17 +698,16 @@ Public Class frmMain
Exit Sub
End If
If STEP_TYPComboBox.Text = "Execute Oracle Command" Then
If ClassWMResulthandler.clsDatatabase.Oracle_CS_Test(STRING1TextBoxFile_Job.Text) = True Then
If DD_WMResulthandler.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 ClassWMResulthandler.clsDatatabase.MSSQL_CS_Test(STRING1TextBoxFile_Job.Text) = True Then
If DD_WMResulthandler.clsDatatabase.MSSQL_CS_Test(STRING1TextBoxFile_Job.Text) = True Then
MsgBox("MSSQL Connection successfull!", MsgBoxStyle.Information)
Exit Sub
End If
End If
ClassWMResulthandler.clsLogger.WriteLog()
MsgBox("Connection could not be created - Check the log", MsgBoxStyle.Critical)
@@ -745,7 +733,7 @@ Public Class frmMain
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Process.Start(System.IO.Path.GetDirectoryName(ClassWMResulthandler.clsLogger.LogFilename))
Process.Start(MyLoggerConfig.LogDirectory)
End Sub
Private Sub TBDD_EMAIL_ACCOUNTBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_EMAIL_ACCOUNTBindingSource.AddingNew
@@ -757,7 +745,7 @@ Public Class frmMain
End Sub
Private Sub ToolStripButton21_Click(sender As Object, e As EventArgs) Handles ToolStripButton21.Click
SaveEmail
SaveEmail()
End Sub
Sub SaveEmail()
Try
@@ -775,12 +763,12 @@ Public Class frmMain
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 ClassWMResulthandler.clsEncryption("!35452didalog=")
Dim wrapper As New DD_WMResulthandler.clsEncryption("!35452didalog=")
Dim PWPlain = wrapper.DecryptData(EMAIL_PWTextBox.Text)
If ClassWMResulthandler.clsEmail.Email_Send_Independentsoft("Testmail DD Windream-ResultHandler", "This is the body (text will be replaced within profile)", txtTestmail.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
MsgBox("Email was send successfully.", MsgBoxStyle.Information)
Else
@@ -790,7 +778,7 @@ Public Class frmMain
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim wrapper As New ClassWMResulthandler.clsEncryption("!35452didalog=")
Dim wrapper As New DD_WMResulthandler.clsEncryption("!35452didalog=")
Dim pwencrypted = wrapper.EncryptData(txtnewpasswort.Text)
EMAIL_PWTextBox.Text = pwencrypted
SaveEmail()
@@ -814,4 +802,19 @@ Public Class frmMain
PDF_XCHANGE_LOCATIONTextBox.Text = OpenFileDialog1.FileName
End If
End Sub
Private Sub ToolStripButton23_Click(sender As Object, e As EventArgs) Handles tsbtnStartProfile.Click
Try
If IsNumeric(Me.GUIDTextBox.Text) Then
Me.TBWMRH_PROFILTableAdapter.cmdUpdateRunningnow(Me.GUIDTextBox.Text)
Manual(Me.GUIDTextBox.Text)
End If
Catch ex As Exception
End Try
End Sub
Private Sub LOG_ERRORS_ONLYCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles LOG_ERRORS_ONLYCheckBox.CheckedChanged
End Sub
End Class