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)

34
app/ResultHandler_Konfig/clsProfil.vb
View File

@ -125,7 +125,14 @@ Public Class clsProfil
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
Select Case DR_PR_JB.Item("JOB_TYP").ToString.ToUpper
Case "BNS json Download".ToLower
'ARRAY oder Äqivalent bilden
End Select
Next
For Each WMdok 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 "Create Mail Attachment".ToUpper Case "Create Mail Attachment".ToUpper
@ -135,7 +142,7 @@ Public Class clsProfil
'For Each dok As WMObject In windreamSucheErgebnisse 'For Each dok As WMObject In windreamSucheErgebnisse
' aktuelles Dokument zum Export bereitstellen ' aktuelles Dokument zum Export bereitstellen
EXPORTED_FILENAME = "" EXPORTED_FILENAME = ""
If clsDateiverarbeitung.Export_File(dok, DR_PR_JB.Item("STRING1")) = True Then If clsDateiverarbeitung.Export_File(WMdok, DR_PR_JB.Item("STRING1")) = True Then
If DT_PROFIL_FILE_JOB.Rows.Count > 0 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
@ -164,7 +171,7 @@ Public Class clsProfil
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
@ -178,7 +185,7 @@ Public Class clsProfil
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 If VektorArray Is Nothing = False Then
ReDim arrValue(VektorArray.Length - 1) ReDim arrValue(VektorArray.Length - 1)
@ -188,7 +195,7 @@ Public Class clsProfil
End If End If
If arrValue Is Nothing = False Then If arrValue Is Nothing = False Then
clsWindream_Index.RunIndexing(dok, arrIndex, arrValue, _profObjekttyp) clsWindream_Index.RunIndexing(WMdok, arrIndex, arrValue, _profObjekttyp)
Else Else
clsLogger.Add(">> arrValue is nothing - keine Indexierung", False, "clsProfil.Profil_Durchlauf") clsLogger.Add(">> arrValue is nothing - keine Indexierung", False, "clsProfil.Profil_Durchlauf")
End If End If
@ -198,16 +205,16 @@ Public Class clsProfil
End Try 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
@ -216,7 +223,7 @@ Public Class clsProfil
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
@ -232,6 +239,8 @@ Public Class clsProfil
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
@ -239,7 +248,14 @@ Public Class clsProfil
Next Next
Next 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 Else
clsLogger.Add(">> Initialisierung Profil nicht erfolgreich", True) clsLogger.Add(">> Initialisierung Profil nicht erfolgreich", True)
clsLogger.WriteLog() clsLogger.WriteLog()

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