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

MS-Json

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2017-11-27 15:10:09 +01:00
parent f2e7c6fc6b
commit 03f9c33a49
5 changed files with 177 additions and 152 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
app/ResultHandler_Konfig/clsDateiverarbeitung.vb
View File

@ -200,6 +200,19 @@ Public Class clsDateiverarbeitung
clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsDateiverarbeitung.Rename_File_Vektor") clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsDateiverarbeitung.Rename_File_Vektor")
End Try End Try
End Function End Function
Public Shared Function BNSjsonDownload(WMFile As WMObject)
Try
'den Wert des Indexes für das aktuelle Dokument auslesen
Dim SENDUNGNR = WMFile.GetVariableValue("SendungNr")
Dim DOKID = WMFile.GetVariableValue("DokumentID")
'Add Info to JsonArray
'......
Catch ex As Exception
clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "BNSjsonDownload")
Return False
End Try
End Function
Public Shared Function RUN_ORACLE_COMMAND(WMFile As WMObject, OracleCS As String, OracleCommandRAW As String) Public Shared Function RUN_ORACLE_COMMAND(WMFile As WMObject, OracleCS As String, OracleCommandRAW As String)
Try Try
Dim result = REGEX_REPLACE(WMFile, OracleCommandRAW) Dim result = REGEX_REPLACE(WMFile, OracleCommandRAW)

162
app/ResultHandler_Konfig/clsProfil.vb
View File

@ -124,19 +124,26 @@ Public Class clsProfil
If DT_PROFIL_JOB.Rows.Count > 0 Then If DT_PROFIL_JOB.Rows.Count > 0 Then
clsLogger.AddDetailLog("DT_PROFIL_JOB.Rows.Count > 0") clsLogger.AddDetailLog("DT_PROFIL_JOB.Rows.Count > 0")
If clsDateiverarbeitung.InitProfilData = True Then If clsDateiverarbeitung.InitProfilData = True Then
clsLogger.AddDetailLog("clsDateiverarbeitung.InitProfilData = True") clsLogger.AddDetailLog("clsDateiverarbeitung.InitProfilData = True")
For Each dok As WMObject In windreamSucheErgebnisse For Each DR_PR_JB As DataRow In DT_PROFIL_JOB.Rows
For Each DR_PR_JB As DataRow In DT_PROFIL_JOB.Rows Select Case DR_PR_JB.Item("JOB_TYP").ToString.ToUpper
Select Case DR_PR_JB.Item("JOB_TYP").ToString.ToUpper Case "BNS json Download".ToLower
Case "Create Mail Attachment".ToUpper 'ARRAY oder Äqivalent bilden
Case "Export HDD".ToUpper End Select
clsLogger.AddDetailLog("Case Export HDD") Next
'Für jedes Dokument in der Windream-Ergebnisliste
'For Each dok As WMObject In windreamSucheErgebnisse For Each WMdok As WMObject In windreamSucheErgebnisse
' aktuelles Dokument zum Export bereitstellen For Each DR_PR_JB As DataRow In DT_PROFIL_JOB.Rows
EXPORTED_FILENAME = "" Select Case DR_PR_JB.Item("JOB_TYP").ToString.ToUpper
If clsDateiverarbeitung.Export_File(dok, DR_PR_JB.Item("STRING1")) = True Then Case "Create Mail Attachment".ToUpper
If DT_PROFIL_FILE_JOB.Rows.Count > 0 Then Case "Export HDD".ToUpper
clsLogger.AddDetailLog("Case Export HDD")
'Für jedes Dokument in der Windream-Ergebnisliste
'For Each dok As WMObject In windreamSucheErgebnisse
' aktuelles Dokument zum Export bereitstellen
EXPORTED_FILENAME = ""
If clsDateiverarbeitung.Export_File(WMdok, DR_PR_JB.Item("STRING1")) = True Then
If DT_PROFIL_FILE_JOB.Rows.Count > 0 Then
clsLogger.AddDetailLog("Anzahl DT_PROFIL_FILE_JOB.Rows.Count:" & DT_PROFIL_FILE_JOB.Rows.Count) clsLogger.AddDetailLog("Anzahl DT_PROFIL_FILE_JOB.Rows.Count:" & DT_PROFIL_FILE_JOB.Rows.Count)
'Für jeden File-Job 'Für jeden File-Job
Dim FileJobSuccessful As Boolean = True Dim FileJobSuccessful As Boolean = True
@ -147,100 +154,109 @@ Public Class clsProfil
Exit For Exit For
End If End If
Select Case DR_PR_FILE_JOB.Item("TYP").ToString.ToLower Select Case DR_PR_FILE_JOB.Item("TYP").ToString.ToLower
Case "Set Index".ToLower Case "Set Index".ToLower
Try Try
'Überprüfen ob Value bereits gesetzt wurde? 'Überprüfen ob Value bereits gesetzt wurde?
Dim idxName As String = DR_PR_FILE_JOB.Item("STRING1").ToString Dim idxName As String = DR_PR_FILE_JOB.Item("STRING1").ToString
Dim idxvalue As String = DR_PR_FILE_JOB.Item("STRING2").ToString Dim idxvalue As String = DR_PR_FILE_JOB.Item("STRING2").ToString
If idxvalue.Contains("[%DATETIME]") Then If idxvalue.Contains("[%DATETIME]") Then
idxvalue = idxvalue.Replace("[%DATETIME]", Now.ToString) idxvalue = idxvalue.Replace("[%DATETIME]", Now.ToString)
End If End If
clsLogger.AddDetailLog("Datei soll mit Index '" & idxName & "'indexiert werden...") clsLogger.AddDetailLog("Datei soll mit Index '" & idxName & "'indexiert werden...")
Dim arrIndex() As String Dim arrIndex() As String
ReDim Preserve arrIndex(0) ReDim Preserve arrIndex(0)
arrIndex(0) = idxName arrIndex(0) = idxName
clsLogger.AddDetailLog("...nach arrIndex") clsLogger.AddDetailLog("...nach arrIndex")
Dim arrValue() As String Dim arrValue() As String
Dim aktvalue As Object Dim aktvalue As Object
aktvalue = dok.GetVariableValue(idxName) aktvalue = WMdok.GetVariableValue(idxName)
clsLogger.AddDetailLog("...nach aktValue zuweisen..") clsLogger.AddDetailLog("...nach aktValue zuweisen..")
If aktvalue Is Nothing Then If aktvalue Is Nothing Then
clsLogger.AddDetailLog("Index '" & idxName & "' ist noch leer.") clsLogger.AddDetailLog("Index '" & idxName & "' ist noch leer.")
ReDim Preserve arrValue(0) ReDim Preserve arrValue(0)
arrValue(0) = idxvalue arrValue(0) = idxvalue
Else Else
clsLogger.AddDetailLog("Index '" & idxName & "' ist bereits gefüllt.") clsLogger.AddDetailLog("Index '" & idxName & "' ist bereits gefüllt.")
Dim myArray() Dim myArray()
ReDim myArray(0) ReDim myArray(0)
myArray(0) = idxvalue myArray(0) = idxvalue
Dim VektorArray() Dim VektorArray()
VektorArray = Return_VektorArray(dok, idxName, myArray, True) VektorArray = Return_VektorArray(WMdok, idxName, myArray, True)
If VektorArray Is Nothing = False Then
ReDim arrValue(VektorArray.Length - 1)
Array.Copy(VektorArray, arrValue, VektorArray.Length)
End If
If VektorArray Is Nothing = False Then
ReDim arrValue(VektorArray.Length - 1)
Array.Copy(VektorArray, arrValue, VektorArray.Length)
End If End If
If arrValue Is Nothing = False Then End If
clsWindream_Index.RunIndexing(dok, arrIndex, arrValue, _profObjekttyp)
Else
clsLogger.Add(">> arrValue is nothing - keine Indexierung", False, "clsProfil.Profil_Durchlauf")
End If
Catch ex As Exception If arrValue Is Nothing = False Then
clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf(SetIndex)") clsWindream_Index.RunIndexing(WMdok, arrIndex, arrValue, _profObjekttyp)
End Try Else
clsLogger.Add(">> arrValue is nothing - keine Indexierung", False, "clsProfil.Profil_Durchlauf")
End If
Catch ex As Exception
clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf(SetIndex)")
End Try
Case "Rename File with windream Index".ToLower Case "Rename File with windream Index".ToLower
clsLogger.AddDetailLog("Exportierte Datei soll nach Indexvorgaben umbenannt werden...") clsLogger.AddDetailLog("Exportierte Datei soll nach Indexvorgaben umbenannt werden...")
clsDateiverarbeitung.Rename_File(dok, DR_PR_FILE_JOB.Item("STRING1").ToString) clsDateiverarbeitung.Rename_File(WMdok, DR_PR_FILE_JOB.Item("STRING1").ToString)
Case "Rename File with WMVector (only one)".ToLower Case "Rename File with WMVector (only one)".ToLower
clsLogger.AddDetailLog("Exportierte Datei soll nach VektorIndexvorgaben umbenannt werden...") clsLogger.AddDetailLog("Exportierte Datei soll nach VektorIndexvorgaben umbenannt werden...")
clsDateiverarbeitung.Rename_File_Vektor(dok, DR_PR_FILE_JOB.Item("STRING1").ToString) clsDateiverarbeitung.Rename_File_Vektor(WMdok, DR_PR_FILE_JOB.Item("STRING1").ToString)
Case "Execute Oracle Command".ToLower Case "Execute Oracle Command".ToLower
Try Try
clsLogger.AddDetailLog("Execute Oracle Comman.......") clsLogger.AddDetailLog("Execute Oracle Comman.......")
Dim oracleconnectionstring = DR_PR_FILE_JOB.Item("STRING1").ToString Dim oracleconnectionstring = DR_PR_FILE_JOB.Item("STRING1").ToString
Dim oracleCommandRAW = DR_PR_FILE_JOB.Item("STRING2").ToString Dim oracleCommandRAW = DR_PR_FILE_JOB.Item("STRING2").ToString
FileJobSuccessful = clsDateiverarbeitung.RUN_ORACLE_COMMAND(dok, oracleconnectionstring, oracleCommandRAW) FileJobSuccessful = clsDateiverarbeitung.RUN_ORACLE_COMMAND(WMdok, oracleconnectionstring, oracleCommandRAW)
Catch ex As Exception Catch ex As Exception
clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf(ExecuteOracleCommand)") clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf(ExecuteOracleCommand)")
End Try End Try
Case "Execute MSSQL Command".ToLower Case "Execute MSSQL Command".ToLower
Try Try
Dim MSSQLconnectionstring = DR_PR_FILE_JOB.Item("STRING1").ToString Dim MSSQLconnectionstring = DR_PR_FILE_JOB.Item("STRING1").ToString
Dim MSSQLCommandRAW = DR_PR_FILE_JOB.Item("STRING2").ToString Dim MSSQLCommandRAW = DR_PR_FILE_JOB.Item("STRING2").ToString
clsLogger.AddDetailLog("Execute MSSQL Command.......") clsLogger.AddDetailLog("Execute MSSQL Command.......")
FileJobSuccessful = clsDateiverarbeitung.RUN_MSSQL_COMMAND(dok, MSSQLconnectionstring, MSSQLCommandRAW) FileJobSuccessful = clsDateiverarbeitung.RUN_MSSQL_COMMAND(WMdok, MSSQLconnectionstring, MSSQLCommandRAW)
Catch ex As Exception Catch ex As Exception
clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf(ExecuteMSSQLCommand)") clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf(ExecuteMSSQLCommand)")
End Try End Try
End Select End Select
'Abschluss Bearbeitung File Job 'Abschluss Bearbeitung File Job
clsLogger.WriteLog()
Next
Else
clsLogger.Add(">> KEINE File-JOBS für Profil '" & _Profilname & "' angelegt!", False, "clsProfil.Profil_Durchlauf")
clsLogger.WriteLog() clsLogger.WriteLog()
End If Next
Else Else
clsLogger.Add(">> KEINE File-JOBS für Profil '" & _Profilname & "' angelegt!", False, "clsProfil.Profil_Durchlauf")
clsLogger.WriteLog()
End If
Else
clsDatatabase.Execute_non_Query("UPDATE TBWMRH_PROFIL SET Running = 0, LETZTER_DURCHLAUF = Getdate() WHERE GUID = " & _profGUID) clsDatatabase.Execute_non_Query("UPDATE TBWMRH_PROFIL SET Running = 0, LETZTER_DURCHLAUF = Getdate() WHERE GUID = " & _profGUID)
End If End If
'Next 'Next
Case "BNS json Download".ToLower
clsDateiverarbeitung.BNSjsonDownload(WMdok)
End Select End Select
'Abschluss Bearbeitung Job 'Abschluss Bearbeitung Job
clsLogger.WriteLog() clsLogger.WriteLog()
Next
Next Next
Else Next
For Each DR_PR_JB As DataRow In DT_PROFIL_JOB.Rows
Select Case DR_PR_JB.Item("JOB_TYP").ToString.ToUpper
Case "BNS json Download".ToLower
'ARRAY Exportieren
Dim Export_Path = DR_PR_JB.Item("STRING1")
End Select
Next
Else
clsLogger.Add(">> Initialisierung Profil nicht erfolgreich", True) clsLogger.Add(">> Initialisierung Profil nicht erfolgreich", True)
clsLogger.WriteLog() clsLogger.WriteLog()
End If End If

144
app/ResultHandler_Konfig/frmMain.Designer.vb generated
View File

@ -68,6 +68,8 @@ Partial Class frmMain
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.lblString2 = New System.Windows.Forms.Label() Me.lblString2 = New System.Windows.Forms.Label()
Me.AKTIVCheckBox2 = New System.Windows.Forms.CheckBox() Me.AKTIVCheckBox2 = New System.Windows.Forms.CheckBox()
Me.TBWMRH_PROFIL_JOBBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.MyDataset = New ResultHandler_Konfig.MyDataset()
Me.Label4 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label()
Me.lblString1 = New System.Windows.Forms.Label() Me.lblString1 = New System.Windows.Forms.Label()
Me.btnJOB_addSpeicherort = New System.Windows.Forms.Button() Me.btnJOB_addSpeicherort = New System.Windows.Forms.Button()
@ -94,12 +96,14 @@ Partial Class frmMain
Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton()
Me.lblndexname = New System.Windows.Forms.Label()
Me.btnTestCon = New System.Windows.Forms.Button() Me.btnTestCon = New System.Windows.Forms.Button()
Me.btnFileJob_addIndex = New System.Windows.Forms.Button() Me.btnFileJob_addIndex = New System.Windows.Forms.Button()
Me.cmbFileJob_WHIndexe = New System.Windows.Forms.ComboBox() Me.cmbFileJob_WHIndexe = New System.Windows.Forms.ComboBox()
Me.btnaddDatetime = New System.Windows.Forms.Button() Me.btnaddDatetime = New System.Windows.Forms.Button()
Me.lblString2FileJobs = New System.Windows.Forms.Label() Me.lblString2FileJobs = New System.Windows.Forms.Label()
Me.STRING1TextBoxFile_Job = New System.Windows.Forms.TextBox() Me.STRING1TextBoxFile_Job = New System.Windows.Forms.TextBox()
Me.TBWMRH_PROFIL_FILE_JOBBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.lblString1FileJobs = New System.Windows.Forms.Label() Me.lblString1FileJobs = New System.Windows.Forms.Label()
Me.GEAENDERTWANNTextBox2 = New System.Windows.Forms.TextBox() Me.GEAENDERTWANNTextBox2 = New System.Windows.Forms.TextBox()
Me.STRING1ComboBox = New System.Windows.Forms.ComboBox() Me.STRING1ComboBox = New System.Windows.Forms.ComboBox()
@ -126,8 +130,10 @@ Partial Class frmMain
Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton14 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton14 = New System.Windows.Forms.ToolStripButton()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button2 = New System.Windows.Forms.Button()
Me.btn_runProfileManual = New System.Windows.Forms.Button() Me.btn_runProfileManual = New System.Windows.Forms.Button()
Me.GEAENDERTWANNTextBox = New System.Windows.Forms.TextBox() Me.GEAENDERTWANNTextBox = New System.Windows.Forms.TextBox()
Me.TBWMRH_PROFILBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.NumericUpDown = New System.Windows.Forms.NumericUpDown() Me.NumericUpDown = New System.Windows.Forms.NumericUpDown()
Me.lblTimeIntervall = New System.Windows.Forms.Label() Me.lblTimeIntervall = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
@ -173,6 +179,7 @@ Partial Class frmMain
Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.WD_LAUFWERKTextBox = New System.Windows.Forms.TextBox() Me.WD_LAUFWERKTextBox = New System.Windows.Forms.TextBox()
Me.TBWMRH_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.GEAENDERTWANNTextBox3 = New System.Windows.Forms.TextBox() Me.GEAENDERTWANNTextBox3 = New System.Windows.Forms.TextBox()
Me.GEAENDERT_WERTextBox = New System.Windows.Forms.TextBox() Me.GEAENDERT_WERTextBox = New System.Windows.Forms.TextBox()
Me.btnsave_Grundkonfig = New System.Windows.Forms.Button() Me.btnsave_Grundkonfig = New System.Windows.Forms.Button()
@ -180,22 +187,15 @@ Partial Class frmMain
Me.LAST_TICKTextBox = New System.Windows.Forms.TextBox() Me.LAST_TICKTextBox = New System.Windows.Forms.TextBox()
Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.btnDatenbankConnect = New System.Windows.Forms.Button() Me.btnDatenbankConnect = New System.Windows.Forms.Button()
Me.txtDatenbank = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog() Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
Me.lblndexname = New System.Windows.Forms.Label()
Me.txtDatenbank = New System.Windows.Forms.TextBox()
Me.TBWMRH_PROFIL_JOBBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.MyDataset = New ResultHandler_Konfig.MyDataset()
Me.TBWMRH_PROFIL_FILE_JOBBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBWMRH_PROFILBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBWMRH_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBWMRH_KONFIGURATIONTableAdapter = New ResultHandler_Konfig.MyDatasetTableAdapters.TBWMRH_KONFIGURATIONTableAdapter() Me.TBWMRH_KONFIGURATIONTableAdapter = New ResultHandler_Konfig.MyDatasetTableAdapters.TBWMRH_KONFIGURATIONTableAdapter()
Me.TableAdapterManager = New ResultHandler_Konfig.MyDatasetTableAdapters.TableAdapterManager() Me.TableAdapterManager = New ResultHandler_Konfig.MyDatasetTableAdapters.TableAdapterManager()
Me.TBWMRH_PROFIL_FILE_JOBTableAdapter = New ResultHandler_Konfig.MyDatasetTableAdapters.TBWMRH_PROFIL_FILE_JOBTableAdapter() Me.TBWMRH_PROFIL_FILE_JOBTableAdapter = New ResultHandler_Konfig.MyDatasetTableAdapters.TBWMRH_PROFIL_FILE_JOBTableAdapter()
Me.TBWMRH_PROFIL_JOBTableAdapter = New ResultHandler_Konfig.MyDatasetTableAdapters.TBWMRH_PROFIL_JOBTableAdapter() Me.TBWMRH_PROFIL_JOBTableAdapter = New ResultHandler_Konfig.MyDatasetTableAdapters.TBWMRH_PROFIL_JOBTableAdapter()
Me.TBWMRH_PROFILTableAdapter = New ResultHandler_Konfig.MyDatasetTableAdapters.TBWMRH_PROFILTableAdapter() Me.TBWMRH_PROFILTableAdapter = New ResultHandler_Konfig.MyDatasetTableAdapters.TBWMRH_PROFILTableAdapter()
Me.Button2 = New System.Windows.Forms.Button()
GUIDLabel = New System.Windows.Forms.Label() GUIDLabel = New System.Windows.Forms.Label()
ProfilnameLabel = New System.Windows.Forms.Label() ProfilnameLabel = New System.Windows.Forms.Label()
ObjekttypLabel = New System.Windows.Forms.Label() ObjekttypLabel = New System.Windows.Forms.Label()
@ -233,23 +233,23 @@ Partial Class frmMain
Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout() Me.SplitContainer1.SuspendLayout()
CType(Me.TBWMRH_PROFIL_JOBBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBWMRH_PROFIL_JOBBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBWMRH_PROFIL_JOBBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TBWMRH_PROFIL_JOBBindingNavigator.SuspendLayout() Me.TBWMRH_PROFIL_JOBBindingNavigator.SuspendLayout()
CType(Me.TBWMRH_PROFIL_FILE_JOBBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPROFIL_FILE_JOBBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPROFIL_FILE_JOBBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TBPROFIL_FILE_JOBBindingNavigator.SuspendLayout() Me.TBPROFIL_FILE_JOBBindingNavigator.SuspendLayout()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
CType(Me.TBWMRH_PROFILBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.NumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.NumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox4.SuspendLayout() Me.GroupBox4.SuspendLayout()
CType(Me.TBWMRH_PROFILBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBWMRH_PROFILBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TBWMRH_PROFILBindingNavigator.SuspendLayout() Me.TBWMRH_PROFILBindingNavigator.SuspendLayout()
Me.TabPage3.SuspendLayout() Me.TabPage3.SuspendLayout()
Me.GroupBox2.SuspendLayout() Me.GroupBox2.SuspendLayout()
Me.GroupBox1.SuspendLayout()
CType(Me.TBWMRH_PROFIL_JOBBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBWMRH_PROFIL_FILE_JOBBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBWMRH_PROFILBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBWMRH_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBWMRH_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'GUIDLabel 'GUIDLabel
@ -710,6 +710,16 @@ Partial Class frmMain
Me.AKTIVCheckBox2.Text = "Aktiv" Me.AKTIVCheckBox2.Text = "Aktiv"
Me.AKTIVCheckBox2.UseVisualStyleBackColor = True Me.AKTIVCheckBox2.UseVisualStyleBackColor = True
' '
'TBWMRH_PROFIL_JOBBindingSource
'
Me.TBWMRH_PROFIL_JOBBindingSource.DataMember = "TBWMRH_PROFIL_JOB"
Me.TBWMRH_PROFIL_JOBBindingSource.DataSource = Me.MyDataset
'
'MyDataset
'
Me.MyDataset.DataSetName = "MyDataset"
Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'Label4 'Label4
' '
Me.Label4.AutoSize = True Me.Label4.AutoSize = True
@ -753,7 +763,7 @@ Partial Class frmMain
' '
Me.JOB_TYPComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFIL_JOBBindingSource, "JOB_TYP", True)) Me.JOB_TYPComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFIL_JOBBindingSource, "JOB_TYP", True))
Me.JOB_TYPComboBox.FormattingEnabled = True Me.JOB_TYPComboBox.FormattingEnabled = True
Me.JOB_TYPComboBox.Items.AddRange(New Object() {"Export HDD", "Create Mail Attachment"}) Me.JOB_TYPComboBox.Items.AddRange(New Object() {"Export HDD", "Create Mail Attachment", "BNS json Download"})
Me.JOB_TYPComboBox.Location = New System.Drawing.Point(78, 77) Me.JOB_TYPComboBox.Location = New System.Drawing.Point(78, 77)
Me.JOB_TYPComboBox.Name = "JOB_TYPComboBox" Me.JOB_TYPComboBox.Name = "JOB_TYPComboBox"
Me.JOB_TYPComboBox.Size = New System.Drawing.Size(239, 21) Me.JOB_TYPComboBox.Size = New System.Drawing.Size(239, 21)
@ -946,6 +956,16 @@ Partial Class frmMain
Me.ToolStripButton7.Size = New System.Drawing.Size(23, 22) Me.ToolStripButton7.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton7.Text = "Daten speichern" Me.ToolStripButton7.Text = "Daten speichern"
' '
'lblndexname
'
Me.lblndexname.AutoSize = True
Me.lblndexname.Location = New System.Drawing.Point(335, 102)
Me.lblndexname.Name = "lblndexname"
Me.lblndexname.Size = New System.Drawing.Size(66, 13)
Me.lblndexname.TabIndex = 47
Me.lblndexname.Text = "Indexname:"
Me.lblndexname.Visible = False
'
'btnTestCon 'btnTestCon
' '
Me.btnTestCon.Location = New System.Drawing.Point(336, 117) Me.btnTestCon.Location = New System.Drawing.Point(336, 117)
@ -1007,6 +1027,11 @@ Partial Class frmMain
Me.STRING1TextBoxFile_Job.TabIndex = 41 Me.STRING1TextBoxFile_Job.TabIndex = 41
Me.STRING1TextBoxFile_Job.Visible = False Me.STRING1TextBoxFile_Job.Visible = False
' '
'TBWMRH_PROFIL_FILE_JOBBindingSource
'
Me.TBWMRH_PROFIL_FILE_JOBBindingSource.DataMember = "TBWMRH_PROFIL_FILE_JOB"
Me.TBWMRH_PROFIL_FILE_JOBBindingSource.DataSource = Me.MyDataset
'
'lblString1FileJobs 'lblString1FileJobs
' '
Me.lblString1FileJobs.AutoSize = True Me.lblString1FileJobs.AutoSize = True
@ -1280,6 +1305,15 @@ Partial Class frmMain
Me.Panel1.Size = New System.Drawing.Size(1071, 224) Me.Panel1.Size = New System.Drawing.Size(1071, 224)
Me.Panel1.TabIndex = 0 Me.Panel1.TabIndex = 0
' '
'Button2
'
Me.Button2.Location = New System.Drawing.Point(490, 89)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 104
Me.Button2.Text = "Teste Suche"
Me.Button2.UseVisualStyleBackColor = True
'
'btn_runProfileManual 'btn_runProfileManual
' '
Me.btn_runProfileManual.Image = Global.ResultHandler_Konfig.My.Resources.Resources.arrow_switch Me.btn_runProfileManual.Image = Global.ResultHandler_Konfig.My.Resources.Resources.arrow_switch
@ -1302,6 +1336,11 @@ Partial Class frmMain
Me.GEAENDERTWANNTextBox.Size = New System.Drawing.Size(200, 22) Me.GEAENDERTWANNTextBox.Size = New System.Drawing.Size(200, 22)
Me.GEAENDERTWANNTextBox.TabIndex = 102 Me.GEAENDERTWANNTextBox.TabIndex = 102
' '
'TBWMRH_PROFILBindingSource
'
Me.TBWMRH_PROFILBindingSource.DataMember = "TBWMRH_PROFIL"
Me.TBWMRH_PROFILBindingSource.DataSource = Me.MyDataset
'
'NumericUpDown 'NumericUpDown
' '
Me.NumericUpDown.Increment = New Decimal(New Integer() {5, 0, 0, 0}) Me.NumericUpDown.Increment = New Decimal(New Integer() {5, 0, 0, 0})
@ -1736,6 +1775,11 @@ Partial Class frmMain
Me.WD_LAUFWERKTextBox.Size = New System.Drawing.Size(100, 22) Me.WD_LAUFWERKTextBox.Size = New System.Drawing.Size(100, 22)
Me.WD_LAUFWERKTextBox.TabIndex = 9 Me.WD_LAUFWERKTextBox.TabIndex = 9
' '
'TBWMRH_KONFIGURATIONBindingSource
'
Me.TBWMRH_KONFIGURATIONBindingSource.DataMember = "TBWMRH_KONFIGURATION"
Me.TBWMRH_KONFIGURATIONBindingSource.DataSource = Me.MyDataset
'
'GEAENDERTWANNTextBox3 'GEAENDERTWANNTextBox3
' '
Me.GEAENDERTWANNTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_KONFIGURATIONBindingSource, "GEAENDERTWANN", True)) Me.GEAENDERTWANNTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_KONFIGURATIONBindingSource, "GEAENDERTWANN", True))
@ -1806,6 +1850,15 @@ Partial Class frmMain
Me.btnDatenbankConnect.Text = "..." Me.btnDatenbankConnect.Text = "..."
Me.btnDatenbankConnect.UseVisualStyleBackColor = True Me.btnDatenbankConnect.UseVisualStyleBackColor = True
' '
'txtDatenbank
'
Me.txtDatenbank.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ResultHandler_Konfig.My.MySettings.Default, "myConnString", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.txtDatenbank.Location = New System.Drawing.Point(9, 34)
Me.txtDatenbank.Name = "txtDatenbank"
Me.txtDatenbank.Size = New System.Drawing.Size(564, 22)
Me.txtDatenbank.TabIndex = 1
Me.txtDatenbank.Text = Global.ResultHandler_Konfig.My.MySettings.Default.myConnString
'
'Label1 'Label1
' '
Me.Label1.AutoSize = True Me.Label1.AutoSize = True
@ -1819,50 +1872,6 @@ Partial Class frmMain
' '
Me.OpenFileDialog1.FileName = "OpenFileDialog1" Me.OpenFileDialog1.FileName = "OpenFileDialog1"
' '
'lblndexname
'
Me.lblndexname.AutoSize = True
Me.lblndexname.Location = New System.Drawing.Point(335, 102)
Me.lblndexname.Name = "lblndexname"
Me.lblndexname.Size = New System.Drawing.Size(66, 13)
Me.lblndexname.TabIndex = 47
Me.lblndexname.Text = "Indexname:"
Me.lblndexname.Visible = False
'
'txtDatenbank
'
Me.txtDatenbank.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ResultHandler_Konfig.My.MySettings.Default, "myConnString", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.txtDatenbank.Location = New System.Drawing.Point(9, 34)
Me.txtDatenbank.Name = "txtDatenbank"
Me.txtDatenbank.Size = New System.Drawing.Size(564, 22)
Me.txtDatenbank.TabIndex = 1
Me.txtDatenbank.Text = Global.ResultHandler_Konfig.My.MySettings.Default.myConnString
'
'TBWMRH_PROFIL_JOBBindingSource
'
Me.TBWMRH_PROFIL_JOBBindingSource.DataMember = "TBWMRH_PROFIL_JOB"
Me.TBWMRH_PROFIL_JOBBindingSource.DataSource = Me.MyDataset
'
'MyDataset
'
Me.MyDataset.DataSetName = "MyDataset"
Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'TBWMRH_PROFIL_FILE_JOBBindingSource
'
Me.TBWMRH_PROFIL_FILE_JOBBindingSource.DataMember = "TBWMRH_PROFIL_FILE_JOB"
Me.TBWMRH_PROFIL_FILE_JOBBindingSource.DataSource = Me.MyDataset
'
'TBWMRH_PROFILBindingSource
'
Me.TBWMRH_PROFILBindingSource.DataMember = "TBWMRH_PROFIL"
Me.TBWMRH_PROFILBindingSource.DataSource = Me.MyDataset
'
'TBWMRH_KONFIGURATIONBindingSource
'
Me.TBWMRH_KONFIGURATIONBindingSource.DataMember = "TBWMRH_KONFIGURATION"
Me.TBWMRH_KONFIGURATIONBindingSource.DataSource = Me.MyDataset
'
'TBWMRH_KONFIGURATIONTableAdapter 'TBWMRH_KONFIGURATIONTableAdapter
' '
Me.TBWMRH_KONFIGURATIONTableAdapter.ClearBeforeFill = True Me.TBWMRH_KONFIGURATIONTableAdapter.ClearBeforeFill = True
@ -1888,15 +1897,6 @@ Partial Class frmMain
' '
Me.TBWMRH_PROFILTableAdapter.ClearBeforeFill = True Me.TBWMRH_PROFILTableAdapter.ClearBeforeFill = True
' '
'Button2
'
Me.Button2.Location = New System.Drawing.Point(490, 89)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 104
Me.Button2.Text = "Teste Suche"
Me.Button2.UseVisualStyleBackColor = True
'
'frmMain 'frmMain
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -1922,14 +1922,18 @@ Partial Class frmMain
Me.SplitContainer1.Panel2.PerformLayout() Me.SplitContainer1.Panel2.PerformLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.ResumeLayout(False) Me.SplitContainer1.ResumeLayout(False)
CType(Me.TBWMRH_PROFIL_JOBBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBWMRH_PROFIL_JOBBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBWMRH_PROFIL_JOBBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
Me.TBWMRH_PROFIL_JOBBindingNavigator.ResumeLayout(False) Me.TBWMRH_PROFIL_JOBBindingNavigator.ResumeLayout(False)
Me.TBWMRH_PROFIL_JOBBindingNavigator.PerformLayout() Me.TBWMRH_PROFIL_JOBBindingNavigator.PerformLayout()
CType(Me.TBWMRH_PROFIL_FILE_JOBBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPROFIL_FILE_JOBBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPROFIL_FILE_JOBBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
Me.TBPROFIL_FILE_JOBBindingNavigator.ResumeLayout(False) Me.TBPROFIL_FILE_JOBBindingNavigator.ResumeLayout(False)
Me.TBPROFIL_FILE_JOBBindingNavigator.PerformLayout() Me.TBPROFIL_FILE_JOBBindingNavigator.PerformLayout()
Me.Panel1.ResumeLayout(False) Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout() Me.Panel1.PerformLayout()
CType(Me.TBWMRH_PROFILBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.NumericUpDown, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.NumericUpDown, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox4.ResumeLayout(False) Me.GroupBox4.ResumeLayout(False)
Me.GroupBox4.PerformLayout() Me.GroupBox4.PerformLayout()
@ -1939,13 +1943,9 @@ Partial Class frmMain
Me.TabPage3.ResumeLayout(False) Me.TabPage3.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False) Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout() Me.GroupBox2.PerformLayout()
CType(Me.TBWMRH_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout() Me.GroupBox1.PerformLayout()
CType(Me.TBWMRH_PROFIL_JOBBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBWMRH_PROFIL_FILE_JOBBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBWMRH_PROFILBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBWMRH_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()

2
app/ResultHandler_Konfig/frmMain.resx
View File

@ -215,7 +215,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAI ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAI
DAAAAk1TRnQBSQFMAgEBAwEAATABAQEwAQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo DAAAAk1TRnQBSQFMAgEBAwEAATgBAQE4AQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

8
app/ResultHandler_Konfig/frmMain.vb
View File

@ -442,12 +442,8 @@ Public Class frmMain
btnJOB_addSpeicherort.Visible = True btnJOB_addSpeicherort.Visible = True
Case 1 Case 1
lblString1.Text = "Email-Empfänger:" lblString1.Text = "Email-Empfänger:"
Case 2 'Oracle Case 2 'json BNS
lblString1.Text = "Connection String Oracle" lblString1.Text = "Speicherort json File:"
lblString2.Text = "Command Oracle"
Case 3 'MSSQL
lblString1.Text = "Connection String MSSQL"
lblString2.Text = "Command MSSQL"
End Select End Select
End Sub End Sub