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

MS ClassWM Resulthandler

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-08-10 11:34:38 +02:00
parent fadc882ba9
commit 5ff1bec8cc
96 changed files with 183537 additions and 3996 deletions
Download Patch File Download Diff File Expand all files Collapse all files

162
app/ResultHandler_Konfig/frmMain.vb
View File

@@ -1,10 +1,11 @@
Imports System.ServiceProcess
Public Class frmMain
Private _windream As clsWindream_allgemein
Private _windream As ClassWMResulthandler.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
'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBDD_EMAIL_ACCOUNT". Sie können sie bei Bedarf verschieben oder entfernen.
@@ -21,7 +22,7 @@ Public Class frmMain
Load_Constring()
Try
' Windream instanziieren
_windream = New clsWindream_allgemein()
_windream = New ClassWMResulthandler.clsWindream_allgemein()
'Windream initialisieren (Connection, Session, ... aufbauen)
_windream.Init()
Catch ex As Exception
@@ -29,7 +30,7 @@ Public Class frmMain
End Try
Load_Profil()
Load_Uebersicht()
clsLogger.Init(My.Application.Info.DirectoryPath & "\Log", "logResultHandler_")
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()
@@ -92,7 +93,7 @@ Public Class frmMain
Return True
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler inCheckIfRunning")
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler inCheckIfRunning")
End Try
End Function
Sub Load_Constring()
@@ -109,8 +110,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)
LOG_ERRORS_ONLY = MyDataset.TBWMRH_KONFIGURATION.Rows(0).Item("LOG_ERRORS_ONLY")
WDLAUFWERK = MyDataset.TBWMRH_KONFIGURATION.Rows(0).Item("WD_LAUFWERK")
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")
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Load_Konfiguration:")
End Try
@@ -162,22 +163,6 @@ Public Class frmMain
Me.tsstatus.Visible = visible
Me.tsstatus.Text = Text
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
@@ -453,29 +438,44 @@ Public Class frmMain
lblString2.Text = ""
lblString3.Text = ""
lblString4.Text = ""
lblString4.Visible = False
STRING1TextBox.Visible = False
STRING2TextBox.Visible = False
STRING3TextBox.Visible = False
STRING4TextBox.Visible = False
Select Case JOB_TYPComboBox.Text
Case "Export HDD"
STRING3TextBox.Size = New Size(400, 22)
STRING3TextBox.Anchor = AnchorStyles.Left Or AnchorStyles.Top
STRING3TextBox.Multiline = False
Select Case JOB_TYPComboBox.Text.ToUpper
Case "Export HDD".ToUpper
lblString1.Text = "Speicherort für windream-Ergebnisse:"
STRING1TextBox.Visible = True
btnJOB_addSpeicherort.Visible = True
Case "Create Mail Attachment"
Case "Create Mail Attachment".ToUpper
lblString1.Text = "Email-Empfänger:"
STRING1TextBox.Visible = True
Case "BNS json Download" 'json BNS
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
STRING4TextBox.Visible = True
Case "BNS json Download".ToUpper 'json BNS
lblString1.Text = "User Kunde:"
STRING1TextBox.Visible = True
lblString2.Text = "BNS Kundennummer:"
STRING2TextBox.Visible = True
Case "Concat Files to one pdf" ' Concat Files to one pdf
lblString1.Text = "Speicherort der zusammengefügten Datei:"
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
lblString2.Text = "Löschen der exportierten Dateien (Ja/Nein)"
STRING2TextBox.Visible = True
Case "Send concatted file via mail"
Case "Send concatted file via mail".ToUpper
lblString1.Text = "Email-Empfänger:"
STRING1TextBox.Visible = True
lblString2.Text = "Email-Betreff:"
@@ -484,6 +484,9 @@ Public Class frmMain
STRING3TextBox.Visible = True
lblString4.Text = "Email-Profil:"
STRING4TextBox.Visible = True
Case "Send to printer".ToUpper
lblString1.Text = "Netzwerkpfad/Name des Druckers:"
STRING1TextBox.Visible = True
End Select
End Sub
Private Sub btnJOB_addSpeicherort_Click(sender As Object, e As EventArgs) Handles btnJOB_addSpeicherort.Click
@@ -519,6 +522,10 @@ Public Class frmMain
lblString2FileJobs.Visible = False
btnTestCon.Visible = False
lblndexname.Visible = False
STRING1TextBoxFile_Job.Size = New Size(299, 22)
STRING1TextBoxFile_Job.Anchor = AnchorStyles.Left Or AnchorStyles.Top
STRING2TextBoxProfil_FileJob.Size = New Size(455, 22)
STRING2TextBoxProfil_FileJob.Anchor = AnchorStyles.Left Or AnchorStyles.Top
If STEP_TYPComboBox.SelectedIndex <> -1 Then
Select Case STEP_TYPComboBox.SelectedIndex
Case 0
@@ -540,6 +547,10 @@ Public Class frmMain
STRING1TextBoxFile_Job.Visible = True
STRING2TextBoxProfil_FileJob.Visible = True
lblString2FileJobs.Visible = True
STRING1TextBoxFile_Job.Size = New Size(462, 22)
STRING1TextBoxFile_Job.Anchor = AnchorStyles.Left Or AnchorStyles.Top Or AnchorStyles.Right
STRING2TextBoxProfil_FileJob.Size = New Size(543, 22)
STRING2TextBoxProfil_FileJob.Anchor = AnchorStyles.Left Or AnchorStyles.Top Or AnchorStyles.Right
Case 4 'MSSQL
btnTestCon.Visible = True
lblString1FileJobs.Text = "Connection String MSSQL"
@@ -582,8 +593,17 @@ Public Class frmMain
'Catch ex As Exception
' MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Run Job manually:")
'End Try
Me.TBWMRH_PROFILTableAdapter.cmdUpdateRunningnow(Me.GUIDTextBox.Text)
Manual()
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
@@ -617,54 +637,54 @@ Public Class frmMain
STRING1TextBoxFile_Job.Text = STRING1TextBoxFile_Job.Text & "[%" & cmbFileJob_WHIndexe.Text & "]"
End If
End Sub
Sub Manual()
Sub Manual(ID As Integer)
'Try
Dim notcompleted As Boolean = False
clsLogger.Add("", False)
clsLogger.Add("## Start Durchlauf WindreamResultHandler - " & Now & " ## ", False)
clsLogger.Add("", False)
ClassWMResulthandler.clsLogger.Add("", False)
ClassWMResulthandler.clsLogger.Add("## Start Durchlauf WindreamResultHandler - " & Now & " ## ", False)
ClassWMResulthandler.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 ClassWMResulthandler.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)
If DT.Rows.Count > 0 Then
clsLogger.AddDetailLog("Anzahl der aktiven Profile: " & DT.Rows.Count.ToString)
ClassWMResulthandler.clsLogger.AddDetailLog("Anzahl der aktiven Profile: " & DT.Rows.Count.ToString)
For Each DR As DataRow In DT.Rows
_PROFIL_ID = CInt(DR.Item("GUID"))
ClassWMResulthandler.clsCURRENT._PROFIL_ID = CInt(DR.Item("GUID"))
'Und nun das Profil durchlaufen
Dim initresult = clsProfil.Init(_PROFIL_ID)
Dim initresult = ClassWMResulthandler.clsProfil.Init(ClassWMResulthandler.clsCURRENT._PROFIL_ID)
If initresult = True Then
clsLogger.WriteLog()
clsProfil.Profil_Durchlauf()
ClassWMResulthandler.clsLogger.WriteLog()
ClassWMResulthandler.clsProfil.Profil_Durchlauf()
ElseIf initresult = False Then
clsLogger.Add("clsProfil konnte nicht initialisiert werden", True, "RUN_THREAD")
ClassWMResulthandler.clsLogger.Add("clsProfil konnte nicht initialisiert werden", True, "RUN_THREAD")
notcompleted = True
ElseIf initresult = 0 Then
clsLogger.AddDetailLog("initresult: 0")
ClassWMResulthandler.clsLogger.AddDetailLog("initresult: 0")
notcompleted = True
ElseIf initresult = 1 Then
clsLogger.AddDetailLog("initresult: 1")
ClassWMResulthandler.clsLogger.AddDetailLog("initresult: 1")
notcompleted = True
End If
Next
Else
clsLogger.Add("- Keine aktiven Profile vorhanden", False)
ClassWMResulthandler.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)
ClassWMResulthandler.clsLogger.Add("# Achtung: Windream-Init mit Fehlern beendet", False)
notcompleted = True
End If
ClassWMResulthandler.clsDatatabase.Execute_non_Query("UPDATE TBWMRH_KONFIGURATION SET LAST_TICK = GETDATE() WHERE GUID = 1")
Else
clsLogger.Add("# Achtung: Windream-Init mit Fehlern beendet", False)
ClassWMResulthandler.clsLogger.Add("- clsDatatabase konnte nicht initialisiert werden!", False)
notcompleted = True
End If
If notcompleted = True Then
clsLogger.WriteLog()
End If
If notcompleted = True Then
ClassWMResulthandler.clsLogger.WriteLog()
End If
MsgBox("Run completed!", MsgBoxStyle.Information)
'Catch ex As Exception
@@ -684,7 +704,7 @@ Public Class frmMain
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Process.Start(clsLogger.LogFilename)
Process.Start(ClassWMResulthandler.clsLogger.LogFilename)
End Sub
Private Sub btnTestCon_Click(sender As Object, e As EventArgs) Handles btnTestCon.Click
@@ -692,17 +712,17 @@ Public Class frmMain
Exit Sub
End If
If STEP_TYPComboBox.Text = "Execute Oracle Command" Then
If clsDatatabase.Oracle_CS_Test(STRING1TextBoxFile_Job.Text) = True Then
If ClassWMResulthandler.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
If ClassWMResulthandler.clsDatatabase.MSSQL_CS_Test(STRING1TextBoxFile_Job.Text) = True Then
MsgBox("MSSQL Connection successfull!", MsgBoxStyle.Information)
Exit Sub
End If
End If
clsLogger.WriteLog()
ClassWMResulthandler.clsLogger.WriteLog()
MsgBox("Connection could not be created - Check the log", MsgBoxStyle.Critical)
@@ -728,7 +748,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(clsLogger.LogFilename))
Process.Start(System.IO.Path.GetDirectoryName(ClassWMResulthandler.clsLogger.LogFilename))
End Sub
Private Sub TBDD_EMAIL_ACCOUNTBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_EMAIL_ACCOUNTBindingSource.AddingNew
@@ -758,18 +778,18 @@ 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 clsEncryption("!35452didalog=")
Dim wrapper As New ClassWMResulthandler.clsEncryption("!35452didalog=")
Dim PWPlain = wrapper.DecryptData(EMAIL_PWTextBox.Text)
clsEmail.Send_EMail("Testmail DD Windream-ResultHandler", "This is the body (text will be replaced within profile)", txtTestmail.Text,
EMAIL_FROMTextBox.Text, EMAIL_SMTPTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, "", True)
ClassWMResulthandler.clsEmail.Send_EMail("Testmail DD Windream-ResultHandler", "This is the body (text will be replaced within profile)", txtTestmail.Text,
EMAIL_FROMTextBox.Text, EMAIL_SMTPTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, CheckBoxSSL.CheckState, "", True)
End If
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim wrapper As New clsEncryption("!35452didalog=")
Dim wrapper As New ClassWMResulthandler.clsEncryption("!35452didalog=")
Dim pwencrypted = wrapper.EncryptData(txtnewpasswort.Text)
EMAIL_PWTextBox.Text = pwencrypted
SaveEmail()
@@ -779,4 +799,18 @@ Public Class frmMain
Private Sub ToolStripButton22_Click(sender As Object, e As EventArgs) Handles ToolStripButton22.Click
load_Emails()
End Sub
Private Sub btnlookupPDFTK_Click(sender As Object, e As EventArgs) Handles btnlookupPDFTK.Click
If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
PDF_TK_LOCATIONTextBox.Text = OpenFileDialog1.FileName
End If
End Sub
Private Sub btnlookupPDFXCHANGE_Click(sender As Object, e As EventArgs) Handles btnlookupPDFXCHANGE.Click
If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
PDF_XCHANGE_LOCATIONTextBox.Text = OpenFileDialog1.FileName
End If
End Sub
End Class