From acc94a29e47d92ed2a7572bd0ed637356438b2d8 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Wed, 11 Apr 2018 08:56:35 +0200 Subject: [PATCH] MS changes --- .gitignore | 1 + ToolCollection/ClassLoggerDI.vb | 5 +- ToolCollection/ClassLoggerNI.vb | 12 +- ToolCollection/ClassWindream_allgemein.vb | 23 +- ToolCollection/ClassxmlZugriff.vb | 46 +++ ToolCollection/ModuleCURRENT.vb | 2 + ToolCollection/My Project/AssemblyInfo.vb | 2 +- ToolCollection/ToolCollection.vbproj | 10 +- ToolCollection/clsHelper.vb | 12 + ToolCollection/clsNI_WorkFile.vb | 20 ++ ToolCollection/frmApplicationLog.Designer.vb | 102 ++++++ .../{frmError.resx => frmApplicationLog.resx} | 6 + ToolCollection/frmApplicationLog.vb | 34 ++ ToolCollection/frmDIHauptseite.vb | 4 + ToolCollection/frmError.Designer.vb | 81 ----- ToolCollection/frmError.vb | 6 - ToolCollection/frmNIHauptseite.Designer.vb | 19 +- ToolCollection/frmNIHauptseite.vb | 156 ++++++++- .../frmNIProfileigenschaften.Designer.vb | 24 +- ToolCollection/frmNIProfileigenschaften.resx | 2 +- .../frmNIProfilhinzufuegen.Designer.vb | 12 +- .../frmNIVerknuepfungen.Designer.vb | 138 +++++--- ToolCollection/frmNIVerknuepfungen.vb | 327 +++++++++++++----- ToolCollection/frmStart.Designer.vb | 33 +- ToolCollection/frmStart.resx | 5 +- ToolCollection/frmStart.vb | 12 + 26 files changed, 800 insertions(+), 294 deletions(-) create mode 100644 ToolCollection/frmApplicationLog.Designer.vb rename ToolCollection/{frmError.resx => frmApplicationLog.resx} (93%) create mode 100644 ToolCollection/frmApplicationLog.vb delete mode 100644 ToolCollection/frmError.Designer.vb delete mode 100644 ToolCollection/frmError.vb diff --git a/.gitignore b/.gitignore index 1bc915c..4950b9d 100644 --- a/.gitignore +++ b/.gitignore @@ -154,3 +154,4 @@ $RECYCLE.BIN/ # Mac desktop service store files .DS_Store +/.vs/ToolCollection/v15/Server/sqlite3 diff --git a/ToolCollection/ClassLoggerDI.vb b/ToolCollection/ClassLoggerDI.vb index 67ea5f1..d5ff317 100644 --- a/ToolCollection/ClassLoggerDI.vb +++ b/ToolCollection/ClassLoggerDI.vb @@ -267,10 +267,11 @@ Public Class ClassLoggerDI Private Shared Sub ShowErrorMessage() If Not ClassLoggerDI.HasInformedAboutError Then - My.Settings.errortext = "Beim Öffnen der Logdatei ist ein Fehler aufgetreten. Bitte stellen Sie sicher das Sie sowohl über entsprechende Schreibrechte im Verzeichnis, als auch über ausreichend Speicherplatz zum Speichern der Logdatei verfügen." & vbNewLine & vbNewLine & _ + My.Settings.errortext = "Beim Öffnen der Logdatei ist ein Fehler aufgetreten. Bitte stellen Sie sicher das Sie sowohl über entsprechende Schreibrechte im Verzeichnis, als auch über ausreichend Speicherplatz zum Speichern der Logdatei verfügen." & vbNewLine & "Es wird keine Logdatei angelegt oder beschrieben." & vbNewLine & "Im Folgenden werden Sie über Fehler, den Log betreffend nicht weiter informiert, um den Ablauf der Nachindexierung nicht zu stören." My.Settings.Save() - frmError.Show() + clsHelper.Add_Application_log(My.Settings.errortext) + 'MsgBox("Beim Öffnen der Logdatei ist ein Fehler aufgetreten. Bitte stellen Sie sicher das Sie sowohl über entsprechende Schreibrechte im Verzeichnis, als auch über ausreichend Speicherplatz zum Speichern der Logdatei verfügen." & _ ' vbNewLine & vbNewLine & "Es wird keine Logdatei angelegt oder beschrieben." & vbNewLine & vbNewLine & "Im folgenden werden Sie über Fehler, den Log betreffend nicht weiter informiert, um den Ablauf des Dateiimporters nicht zu stören.", _ ' MsgBoxStyle.Information, "DI: Fehler beim Öffnen der Logdatei") diff --git a/ToolCollection/ClassLoggerNI.vb b/ToolCollection/ClassLoggerNI.vb index 0f0c65f..ecd7ab7 100644 --- a/ToolCollection/ClassLoggerNI.vb +++ b/ToolCollection/ClassLoggerNI.vb @@ -68,10 +68,11 @@ Public Class ClassLoggerNI Public Shared Sub SetSpeicherort(ByVal speicherort As String) Dim log_folder As String = My.Application.Info.DirectoryPath & "\Log" Dim folder As New IO.DirectoryInfo(log_folder) + If folder.Exists = False Then + IO.Directory.CreateDirectory(log_folder) + End If If speicherort = "" Then - If folder.Exists = False Then - IO.Directory.CreateDirectory(log_folder) - End If + ClassLoggerNI.DateiSpeicherort = log_folder Else ClassLoggerNI.DateiSpeicherort = speicherort @@ -285,10 +286,11 @@ Public Class ClassLoggerNI Private Shared Sub ShowErrorMessage() If Not ClassLoggerNI.HasInformedAboutError Then - My.Settings.errortext = "Beim Öffnen der Logdatei ist ein Fehler aufgetreten. Bitte stellen Sie sicher das Sie sowohl über entsprechende Schreibrechte im Verzeichnis, als auch über ausreichend Speicherplatz zum Speichern der Logdatei verfügen." & vbNewLine & vbNewLine & _ + My.Settings.errortext = "Beim Öffnen der Logdatei ist ein Fehler aufgetreten. Bitte stellen Sie sicher das Sie sowohl über entsprechende Schreibrechte im Verzeichnis, als auch über ausreichend Speicherplatz zum Speichern der Logdatei verfügen." & vbNewLine & "Es wird keine Logdatei angelegt oder beschrieben." & vbNewLine & "Im Folgenden werden Sie über Fehler, den Log betreffend nicht weiter informiert, um den Ablauf der Nachindexierung nicht zu stören." My.Settings.Save() - frmError.Show() + clsHelper.Add_Application_log(My.Settings.errortext) + 'MsgBox("Beim Öffnen der Logdatei ist ein Fehler aufgetreten. Bitte stellen Sie sicher das Sie sowohl über entsprechende Schreibrechte im Verzeichnis, als auch über ausreichend Speicherplatz zum Speichern der Logdatei verfügen." & vbNewLine & vbNewLine & _ ' "Es wird keine Logdatei angelegt oder beschrieben." & vbNewLine & vbNewLine & "Im folgenden werden Sie über Fehler, den Log betreffend nicht weiter informiert, um den Ablauf der Nachindexierung nicht zu stören.", _ ' MsgBoxStyle.Information, "NI: Fehler beim Öffnen der Logdatei") diff --git a/ToolCollection/ClassWindream_allgemein.vb b/ToolCollection/ClassWindream_allgemein.vb index ae13d1e..33db032 100644 --- a/ToolCollection/ClassWindream_allgemein.vb +++ b/ToolCollection/ClassWindream_allgemein.vb @@ -41,10 +41,9 @@ Public Class ClassWindream_allgemein ' wenn ein Fehler bei der Initialisierung auftrat If Not Me.Init() Then ' Nachricht ausgeben - MsgBox("Es trat ein Fehler bei der Initialisierung der Klasse windream auf. Bitte prüfen Sie ob der windream-Server aktiv ist und alle Dienste gestartet sind.", MsgBoxStyle.Exclamation, "Fehler bei Initialisierung") ' das Programm "abschießen" - Process.GetCurrentProcess.Kill() + ' Process.GetCurrentProcess.Kill() End If End Sub @@ -65,6 +64,7 @@ Public Class ClassWindream_allgemein Me.oConnect = CreateObject("Windream.WMConnect") 'MsgBox("windrem init 'ed") Catch ex As Exception + clsHelper.Add_Application_log("Unexpected error in Windream.Init(CreateObjects): " & ex.Message) Return False End Try @@ -87,9 +87,10 @@ Public Class ClassWindream_allgemein ' Verbindung mit Session-Objekt (und dem ausgewählten Server) aufbauen Me.oConnect.LoginSession(Me.oSession) - + If Me.oSession.aLoggedin = False Then - MsgBox("Es konnte keine Verbindung mit dem windream-Server hergestellt werden", MsgBoxStyle.Exclamation, "Verbindung konnte nicht hergestellt werden") + clsHelper.Add_Application_log("Unexpected error in Windream.Init(oSession.aloggedIn): Could not check session-state") + Return False End If @@ -127,11 +128,12 @@ Public Class ClassWindream_allgemein Catch ex As Exception If Err.Number = -2147220985 Then - MsgBox("Die installierte windream-Version ist nicht ausreichend für den Betrieb der Tool Collection für windream." & vbNewLine & _ - "Bitte kontaktieren Sie Digital Data." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & Err.Description, MsgBoxStyle.Exclamation, "Unzureichende windream-Version") + clsHelper.Add_Application_log("Unexpected error in Windream.Init(2147220985): " & ex.Message) + Else If Not ex.Message.Contains("Already logged in") Then - MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Login an windream") + clsHelper.Add_Application_log("Unexpected error in Windream.Init(Already logged in): " & ex.Message) + Else Return True End If @@ -456,7 +458,8 @@ Public Class ClassWindream_allgemein Try Return Me.oSession.aLoggedin Catch ex As Exception - MsgBox("Es konnte nicht erfolgreich geprüft werden, ob das Programm am windream-Server angemeldet ist." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Loggedin-Prüfung") + clsHelper.Add_Application_log("Unexpected error in Windream.IsLoggedIn: " & ex.Message) + 'MsgBox("Es konnte nicht erfolgreich geprüft werden, ob das Programm am windream-Server angemeldet ist." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Loggedin-Prüfung") End Try Return False @@ -471,7 +474,8 @@ Public Class ClassWindream_allgemein Try Return Me.oBrowser.GetCurrentServer 'ClassWindream.oBrowser.GetCurrentServer Catch ex As Exception - MsgBox("Der aktuell gewählte windream-Server konnte nicht ausgelesen werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Servers") + clsHelper.Add_Application_log("Unexpected error in Windream.GetCurrentServer: " & ex.Message) + 'MsgBox("Der aktuell gewählte windream-Server konnte nicht ausgelesen werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Servers") End Try Return "" @@ -558,6 +562,7 @@ Public Class ClassWindream_allgemein End If Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in GetValuesfromAuswahlliste:") Return Nothing End Try diff --git a/ToolCollection/ClassxmlZugriff.vb b/ToolCollection/ClassxmlZugriff.vb index eee3165..f975750 100644 --- a/ToolCollection/ClassxmlZugriff.vb +++ b/ToolCollection/ClassxmlZugriff.vb @@ -73,4 +73,50 @@ Public Class ClassxmlZugriff Return Nothing End Try End Function + Public Function GetValueFromZugFerdxml(ByVal vfilename As String, ByVal vfullfilepath As String, ByVal KnotenString As String, ByVal Profil As String) + Dim returnvalue + Try + If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Auslesen des Indexwertes aus Indexfile: " & vfilename, False) + Dim _xmlDoc As New XmlDocument + _xmlDoc.Load(vfullfilepath) + + Dim xml As New Xml.XmlTextReader(vfilename) + + Dim TreeNode As TreeNode + Dim elemList As XmlNodeList = _xmlDoc.GetElementsByTagName("ram:SellerTradeParty") + Dim i As Integer + For i = 0 To elemList.Count - 1 + ' Console.WriteLine(elemList(i).InnerXml) + For Each Xml_Node As XmlNode In elemList + Dim z As Integer + For z = 0 To Xml_Node.ChildNodes.Count - 1 + If Xml_Node.ChildNodes(z).Name = "ram:Name" And KnotenString = "SellerTradeParty:Name" Then + Dim xmlvalue = Xml_Node.ChildNodes(z).InnerText + If xmlvalue.Contains(vbLf&) Then + xmlvalue = xmlvalue.Replace(vbLf&, "") + End If + If xmlvalue.Contains(Chr(13)) Then + Dim arr As String() = xmlvalue.Split(Chr(13)) + End If + returnvalue = xmlvalue + ElseIf Xml_Node.ChildNodes(z).Name = "ram:SpecifiedTaxRegistration" And KnotenString = "SpecifiedTaxRegistration" Then + returnvalue = Xml_Node.ChildNodes(z).InnerText + + + End If + Next z + + Next + Next i + Return returnvalue + Catch ex As Exception + ' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden + ClassLoggerNI.Add("ClassNIDatenbankzClassxmlZugriff", "Ein unbekannter Fehler in GetValueFromZugFerdxml.", ex) + If My.Settings.vNIMailsenden = True Then + email.Send_EMail("ClassxmlZugriff.GetValueFromZugFerdxml " & "
Profil: " & Profil & "
Datei: " & vfullfilepath & "
Ein unbekannter Fehler: " & ex.Message) + End If + Return Nothing + End Try + End Function End Class + diff --git a/ToolCollection/ModuleCURRENT.vb b/ToolCollection/ModuleCURRENT.vb index 8506b66..52c5f45 100644 --- a/ToolCollection/ModuleCURRENT.vb +++ b/ToolCollection/ModuleCURRENT.vb @@ -11,4 +11,6 @@ Public DI_STREAMRESULTFILE As String Public CURRENT_MOVE_FILEPATH As String + Public CURRENT_APPLICATION_LOG As String = "" + End Module diff --git a/ToolCollection/My Project/AssemblyInfo.vb b/ToolCollection/My Project/AssemblyInfo.vb index 72d1d47..413a20f 100644 --- a/ToolCollection/My Project/AssemblyInfo.vb +++ b/ToolCollection/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/ToolCollection/ToolCollection.vbproj b/ToolCollection/ToolCollection.vbproj index 4cf3c57..1f7908d 100644 --- a/ToolCollection/ToolCollection.vbproj +++ b/ToolCollection/ToolCollection.vbproj @@ -211,10 +211,10 @@ True DS_More.xsd - - frmError.vb + + frmApplicationLog.vb - + Form @@ -420,8 +420,8 @@ - - frmError.vb + + frmApplicationLog.vb frmGrundeinstellungen.vb diff --git a/ToolCollection/clsHelper.vb b/ToolCollection/clsHelper.vb index b6d63da..dcb9ff4 100644 --- a/ToolCollection/clsHelper.vb +++ b/ToolCollection/clsHelper.vb @@ -54,4 +54,16 @@ Public Class clsHelper End Function + Public Shared Sub Add_Application_log(msg As String) + Try + If CURRENT_APPLICATION_LOG <> String.Empty Then + CURRENT_APPLICATION_LOG = CURRENT_APPLICATION_LOG & vbNewLine & Now.ToString & " >> " & msg + Else + CURRENT_APPLICATION_LOG = Now.ToString & " >> " & msg + End If + Catch ex As Exception + + End Try + + End Sub End Class diff --git a/ToolCollection/clsNI_WorkFile.vb b/ToolCollection/clsNI_WorkFile.vb index 31c8fa8..6f558e6 100644 --- a/ToolCollection/clsNI_WorkFile.vb +++ b/ToolCollection/clsNI_WorkFile.vb @@ -507,6 +507,26 @@ Public Class clsNI_WorkFile ClassLoggerNI.LogEntry(" >> ACHTUNG 2: Nachindexdatei: " & _pathxmlfile & " existiert nicht!", False, True) Return True End If + ElseIf aktivesProfil.xmlEnd = "xml (ZugFerd)" Then + ClassLoggerNI.LogEntry(" - Indexierung über XML-Dokument ZugFerd") + 'Pfad für xml-File verketten + _pathxmlfile = _WDOrdnerpfad & "\" & Path.GetFileNameWithoutExtension(_WDFileINWORK.aPath) & ".xml" + + 'Dateipfad für xml-Datei zusammenbauen + If File.Exists(_pathxmlfile) Then + 'Übergabe der Dateiparameter und des xml-Knotens + _NidxWert = Trim(_XML.GetValueFromZugFerdxml(System.IO.Path.GetFileNameWithoutExtension(_WDFileINWORK.aPath) & ".xml", _pathxmlfile, _Spalte, aktivesProfil.Profilname)) + 'wert aus Luratech darf nicht leer sein + If _NidxWert Is Nothing Then + File_SetBooleanIndex(True, _WDFileINWORK, aktivesProfil.IndexValidation) + ClassLoggerNI.LogEntry(">> ACHTUNG: Wert aus ZugFerd-Datei ist nothing", False, True) + Return True + End If + Else + ClassLoggerNI.LogEntry(" >> ACHTUNG 2: Nachindexdatei ZugFerd: " & _pathxmlfile & " existiert nicht!", False, True) + Return True + End If + End If 'wenn Wert geliefert und Index ist deskriptiver Index If aktivesProfil.Desk_windreamIndex = _Index And aktivesProfil.checkIndexsql <> "" Then diff --git a/ToolCollection/frmApplicationLog.Designer.vb b/ToolCollection/frmApplicationLog.Designer.vb new file mode 100644 index 0000000..08f3412 --- /dev/null +++ b/ToolCollection/frmApplicationLog.Designer.vb @@ -0,0 +1,102 @@ + _ +Partial Class frmApplicationLog + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.Timer1 = New System.Windows.Forms.Timer(Me.components) + Me.txtlog = New System.Windows.Forms.TextBox() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel() + Me.Button1 = New System.Windows.Forms.Button() + Me.StatusStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'Timer1 + ' + Me.Timer1.Interval = 30000 + ' + 'txtlog + ' + Me.txtlog.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtlog.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtlog.Location = New System.Drawing.Point(15, 73) + Me.txtlog.Multiline = True + Me.txtlog.Name = "txtlog" + Me.txtlog.ScrollBars = System.Windows.Forms.ScrollBars.Both + Me.txtlog.Size = New System.Drawing.Size(1001, 432) + Me.txtlog.TabIndex = 1 + Me.txtlog.TabStop = False + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 520) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(1028, 22) + Me.StatusStrip1.TabIndex = 2 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'ToolStripStatusLabel1 + ' + Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1" + Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(0, 17) + ' + 'Button1 + ' + Me.Button1.Image = Global.ToolCollection.My.Resources.Resources.book_delete + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(15, 23) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(194, 44) + Me.Button1.TabIndex = 3 + Me.Button1.Text = "Application Log leeren" + Me.Button1.UseVisualStyleBackColor = True + ' + 'frmApplicationLog + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1028, 542) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.txtlog) + Me.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.Name = "frmApplicationLog" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "ApplicationLog" + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents Timer1 As Timer + Friend WithEvents txtlog As TextBox + Friend WithEvents StatusStrip1 As StatusStrip + Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel + Friend WithEvents Button1 As Button +End Class diff --git a/ToolCollection/frmError.resx b/ToolCollection/frmApplicationLog.resx similarity index 93% rename from ToolCollection/frmError.resx rename to ToolCollection/frmApplicationLog.resx index 1af7de1..4920bbc 100644 --- a/ToolCollection/frmError.resx +++ b/ToolCollection/frmApplicationLog.resx @@ -117,4 +117,10 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 17, 17 + + + 106, 17 + \ No newline at end of file diff --git a/ToolCollection/frmApplicationLog.vb b/ToolCollection/frmApplicationLog.vb new file mode 100644 index 0000000..ddad2d6 --- /dev/null +++ b/ToolCollection/frmApplicationLog.vb @@ -0,0 +1,34 @@ +Public Class frmApplicationLog + Private Shared _Instance As frmApplicationLog = Nothing + + Public Shared Function Instance() As frmApplicationLog + If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then + _Instance = New frmApplicationLog + End If + _Instance.BringToFront() + Return _Instance + End Function + Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick + Refresh_log + End Sub + + Private Sub frmApplicationLog_Load(sender As Object, e As EventArgs) Handles Me.Load + Refresh_log() + Timer1.Start() + End Sub + Sub Refresh_log() + If CURRENT_APPLICATION_LOG <> String.Empty Then + txtlog.Text = "" + txtlog.Text = CURRENT_APPLICATION_LOG + ToolStripStatusLabel1.Text = Now.ToString & " - Log refreshed" + ToolStripStatusLabel1.BackColor = Color.LimeGreen + End If + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + CURRENT_APPLICATION_LOG = "" + txtlog.Text = "" + ToolStripStatusLabel1.Text = Now.ToString & " - Log was emptied manually!" + ToolStripStatusLabel1.BackColor = Color.Yellow + End Sub +End Class \ No newline at end of file diff --git a/ToolCollection/frmDIHauptseite.vb b/ToolCollection/frmDIHauptseite.vb index 5ab7a79..bcfd4f0 100644 --- a/ToolCollection/frmDIHauptseite.vb +++ b/ToolCollection/frmDIHauptseite.vb @@ -512,6 +512,10 @@ Public Class frmDIHauptseite If fileAusschliessen = False Then 'Überprüfen ob Datei geöffnet ist?? In_Use = func_check_file_use(filenameQuelle) + If In_Use = True And filenameQuelle.EndsWith(".pdf") Then + ClassLoggerDI.Add(" >> File might be an PDF/A ", False) + In_Use = False + End If 'Achtung Datei in Benutzung If In_Use = True Then If My.Settings.vLogErrorsonly = False Then diff --git a/ToolCollection/frmError.Designer.vb b/ToolCollection/frmError.Designer.vb deleted file mode 100644 index 8471e37..0000000 --- a/ToolCollection/frmError.Designer.vb +++ /dev/null @@ -1,81 +0,0 @@ - _ -Partial Class frmError - Inherits System.Windows.Forms.Form - - 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Wird vom Windows Form-Designer benötigt. - Private components As System.ComponentModel.IContainer - - 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. - 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. - 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ - Private Sub InitializeComponent() - Me.txtError = New System.Windows.Forms.TextBox() - Me.Label1 = New System.Windows.Forms.Label() - Me.Button1 = New System.Windows.Forms.Button() - Me.SuspendLayout() - ' - 'txtError - ' - Me.txtError.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "errortext", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.txtError.ForeColor = System.Drawing.Color.Red - Me.txtError.Location = New System.Drawing.Point(12, 33) - Me.txtError.Multiline = True - Me.txtError.Name = "txtError" - Me.txtError.ReadOnly = True - Me.txtError.Size = New System.Drawing.Size(469, 94) - Me.txtError.TabIndex = 1 - Me.txtError.Text = Global.ToolCollection.My.MySettings.Default.errortext - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Location = New System.Drawing.Point(12, 13) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(97, 17) - Me.Label1.TabIndex = 2 - Me.Label1.Text = "Fehlermeldung:" - ' - 'Button1 - ' - Me.Button1.Location = New System.Drawing.Point(155, 133) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(184, 29) - Me.Button1.TabIndex = 3 - Me.Button1.Text = "OK - Fenster schliessen" - Me.Button1.UseVisualStyleBackColor = True - ' - 'frmError - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(493, 174) - Me.Controls.Add(Me.Button1) - Me.Controls.Add(Me.Label1) - Me.Controls.Add(Me.txtError) - Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow - Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) - Me.Name = "frmError" - Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen - Me.Text = "Unvorhergesehener Fehler in ToolCollection" - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - Friend WithEvents txtError As System.Windows.Forms.TextBox - Friend WithEvents Label1 As System.Windows.Forms.Label - Friend WithEvents Button1 As System.Windows.Forms.Button -End Class diff --git a/ToolCollection/frmError.vb b/ToolCollection/frmError.vb deleted file mode 100644 index 2a40db1..0000000 --- a/ToolCollection/frmError.vb +++ /dev/null @@ -1,6 +0,0 @@ -Public Class frmError - - Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click - Me.Close() - End Sub -End Class \ No newline at end of file diff --git a/ToolCollection/frmNIHauptseite.Designer.vb b/ToolCollection/frmNIHauptseite.Designer.vb index 4d6a85f..c4d6436 100644 --- a/ToolCollection/frmNIHauptseite.Designer.vb +++ b/ToolCollection/frmNIHauptseite.Designer.vb @@ -78,6 +78,7 @@ Partial Class frmNIHauptseite Me.TBMO_RE_HISTORYBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBMO_RE_HISTORYTableAdapter = New ToolCollection.DS_MoreTableAdapters.TBMO_RE_HISTORYTableAdapter() Me.TimerRefresh = New System.Windows.Forms.Timer(Me.components) + Me.lblNotWorking = New System.Windows.Forms.Label() Me.tcmain.SuspendLayout() Me.tpMain.SuspendLayout() Me.StatusStrip1.SuspendLayout() @@ -107,6 +108,7 @@ Partial Class frmNIHauptseite 'tpMain ' Me.tpMain.AutoScroll = True + Me.tpMain.Controls.Add(Me.lblNotWorking) Me.tpMain.Controls.Add(Me.StatusStrip1) Me.tpMain.Controls.Add(Me.Label1) Me.tpMain.Controls.Add(Me.Label9) @@ -398,7 +400,7 @@ Partial Class frmNIHauptseite Me.Label16.Name = "Label16" Me.Label16.Size = New System.Drawing.Size(503, 13) Me.Label16.TabIndex = 14 - Me.Label16.Text = "Standard Einleitungstext: (HTML fähig:
= Zeilenwechsel;= Fett Formatiert;" & _ + Me.Label16.Text = "Standard Einleitungstext: (HTML fähig:
= Zeilenwechsel;= Fett Formatiert;" & "= Ende)" ' 'txtBody @@ -455,7 +457,7 @@ Partial Class frmNIHauptseite Me.Label12.AutoSize = True Me.Label12.Location = New System.Drawing.Point(6, 150) Me.Label12.Name = "Label12" - Me.Label12.Size = New System.Drawing.Size(239, 13) + Me.Label12.Size = New System.Drawing.Size(238, 13) Me.Label12.TabIndex = 8 Me.Label12.Text = "Betreff: (Text für den Betreff der Fehler-Email)" ' @@ -611,6 +613,18 @@ Partial Class frmNIHauptseite ' Me.TimerRefresh.Interval = 10000 ' + 'lblNotWorking + ' + Me.lblNotWorking.AutoSize = True + Me.lblNotWorking.BackColor = System.Drawing.Color.Yellow + Me.lblNotWorking.Font = New System.Drawing.Font("Segoe UI", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblNotWorking.Location = New System.Drawing.Point(108, 192) + Me.lblNotWorking.Name = "lblNotWorking" + Me.lblNotWorking.Size = New System.Drawing.Size(67, 21) + Me.lblNotWorking.TabIndex = 46 + Me.lblNotWorking.Text = "Label18" + Me.lblNotWorking.Visible = False + ' 'frmNIHauptseite ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -700,4 +714,5 @@ Partial Class frmNIHauptseite Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip Friend WithEvents tslblStatus As System.Windows.Forms.ToolStripStatusLabel Friend WithEvents TimerRefresh As System.Windows.Forms.Timer + Friend WithEvents lblNotWorking As Label End Class diff --git a/ToolCollection/frmNIHauptseite.vb b/ToolCollection/frmNIHauptseite.vb index 3dd31f6..a56644c 100644 --- a/ToolCollection/frmNIHauptseite.vb +++ b/ToolCollection/frmNIHauptseite.vb @@ -321,7 +321,8 @@ Public Class frmNIHauptseite "
>> Mögliche Fehlerursache: Das W-Laufwerk ist nicht verfügbar!") End If Abbruch_NI("Windream-Suche konnte nicht gefunden werden!", True, False) - MsgBox("Nachindexierung wurde abgebrochen, da eine Windream-Suche nicht gefunden werden konnte!" & vbNewLine & Now, MsgBoxStyle.Critical, "Hinweis") + clsHelper.Add_Application_log("Nachindexierung wurde abgebrochen, da eine Windream-Suche (" & Me.aktivesProfil.WindreamSuche & ") nicht gefunden werden konnte") + Else ' wenn im aktuellen Suchergebnis Verknüpfungen vorhanden sind If Me.aktivesProfil.Verknüpfungen IsNot Nothing Then @@ -522,17 +523,21 @@ Public Class frmNIHauptseite End Sub Public aktivesProfil As ClassNIProfil - Private aktivesDokument As WMObject + Private Shared aktivesDokument As WMObject Public Sub Profile_Durchlaufen() Try + lblNotWorking.Visible = False + pnlInfos.Visible = True ClassLoggerNI.Init(My.Application.Info.DirectoryPath & "\Log", My.Settings.vLogNI & "_", True) ClassLoggerNI.Add(" ", False) ClassLoggerNI.Add(" ", False) If My.Settings.Sleep_Begin > 0 And My.Settings.Sleep_End > 0 Then If Now.Hour >= CInt(My.Settings.Sleep_Begin) And Now.Hour <= CInt(My.Settings.Sleep_End) Then ClassLoggerNI.Add(String.Format(">> ToolCollection is in SleepMode - {0}-{1}-{2}", Now.Hour.ToString, My.Settings.Sleep_Begin.ToString, My.Settings.Sleep_End.ToString), False) - lblStatus.Text = "In SleepMode" + lblNotWorking.Text = "In SleepMode" + lblNotWorking.Visible = True + pnlInfos.Visible = False Exit Sub End If End If @@ -545,8 +550,10 @@ Public Class frmNIHauptseite End If Next If IsWorking_Hour = False Then + lblNotWorking.Text = "No working-slot - working hours are: " & My.Settings.NI_WORKING_HOURS & " - " & Now.ToString + lblNotWorking.Visible = True + pnlInfos.Visible = False ClassLoggerNI.Add(String.Format(">> ToolCollection is not in WorkingMode - NowHour: {0} - Working hours are: {1}", Now.Hour.ToString, My.Settings.NI_WORKING_HOURS), False) - lblStatus.Text = "No Working-Hour - Working hours are: " & My.Settings.NI_WORKING_HOURS Exit Sub End If Else @@ -554,7 +561,8 @@ Public Class frmNIHauptseite End If If _windreamNI.Init() = False Then email.Send_EMail("Die Windream-Klasse konnte nicht initialisiert werden. Windream-Client unvollständig gestartert.") - MsgBox("Die Windream-Klasse konnte nicht initialisiert werden. Windream-Client unvollständig gestartert.", MsgBoxStyle.Critical) + clsHelper.Add_Application_log("Die Windream-Klasse konnte nicht initialisiert werden. Windream-Client unvollständig gestartert?") + Exit Sub End If 'nur weiter machen wenn kein BackgroundWorker mehr läuft @@ -763,7 +771,13 @@ Public Class frmNIHauptseite End Try End If Case "xml" '#### Indexierung über xml-Dokument - _pathxmlfile = ordnerpfad & "\" & System.IO.Path.GetFileNameWithoutExtension(dokument.aPath) & "." & aktivesProfil.xmlEnd 'aktivesProfil.xmlFolder + _pathxmlfile = ordnerpfad & "\" & System.IO.Path.GetFileNameWithoutExtension(dokument.aPath) & "." + If aktivesProfil.xmlEnd = "xml (ZugFerd)" Then + _pathxmlfile &= "xml" + Else + _pathxmlfile &= aktivesProfil.xmlEnd + End If + If clsHelper.file_exists(_pathxmlfile, "NI") = False Then _pathxmlfile = ordnerpfad & "\" & System.IO.Path.GetFileNameWithoutExtension(dokument.aPath) & "." & "xfres" If clsHelper.file_exists(_pathxmlfile, "NI") = False Then @@ -981,6 +995,22 @@ Public Class frmNIHauptseite error_in_Indexierung = True fehlermsg &= vbNewLine & " >> ACHTUNG 2: Datei: " & _pathxmlfile & " existiert nicht!" End If + ElseIf aktivesProfil.xmlEnd = "xml (ZugFerd)" Then + Logger("Indexierung über XML-Dokument ZugFerd") + 'Dateipfad für xffres/xml-Datei zusammenbauen + If File.Exists(_pathxmlfile) Then + 'Übergabe der Dateiparameter und des xml-Knotens + _NidxWert = Trim(xml.GetValueFromZugFerdxml(System.IO.Path.GetFileNameWithoutExtension(_pathxmlfile), _pathxmlfile, INDEX_SQL_BEFEHL.Spalte, aktivesProfil.Profilname)) + 'wert aus Luratech darf nicht leer sein + If _NidxWert Is Nothing Then + File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) + SetErrorMeldung("Wert aus Formrec. ist nothing", aktivesDokument, My.Settings.ERROR_INDEX) + End If + Else + Logger("ACHTUNG 2: Nachindexdatei: " & _pathxmlfile & " existiert nicht!", False, True) + error_in_Indexierung = True + fehlermsg &= vbNewLine & " >> ACHTUNG 2: Datei: " & _pathxmlfile & " existiert nicht!" + End If End If 'wenn kein error_in_Indexierung und wert geliefert und Index ist deskriptiver Index If Not error_in_Indexierung And aktivesProfil.Desk_windreamIndex = INDEX_SQL_BEFEHL.Index And aktivesProfil.checkIndexsql <> "" Then @@ -1122,7 +1152,7 @@ Public Class frmNIHauptseite 'Logger("SQL-Abfrage ergab kein Ergebnis", False, True) If aktivesProfil.Ni_Art.ToLower = "xml" Then If clsHelper.file_exists(_pathxmlfile, "NI") Then - ' MsgBox(_pathxmlfile & vbNewLine & _path2xml) + If INDEX_SQL_BEFEHL.Index = aktivesProfil.Desk_windreamIndex Then Logger("# Achtung: Der Deskriptive Index: " & aktivesProfil.Desk_windreamIndex & " sollte gesetzt werden! Wert konnte aber nicht gelesen werden bzw ist leer - Markierung des Doks", False, True) 'Kein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet @@ -1168,13 +1198,62 @@ Public Class frmNIHauptseite Logger("VB-Skript nach Indexierung", False, True) Dim anweisung As String = Me.aktivesProfil.SQL_Anweisung.Replace("EXECUTEVB ", "") Dim arrAnweisung As String() = Split(anweisung, "#") - Logger("> " & anweisung, False, True) + + ' Regulären Ausdruck zum Auslesen der windream-Indexe definieren + Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" + + ' SQL-String für aktuelles Profil laden + Dim VBSCRIPTCOMMAND As String = anweisung + ' einen Regulären Ausdruck laden + Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg) + ' die Vorkommen im SQL-String auslesen + Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(VBSCRIPTCOMMAND) + ' alle Vorkommen der windream-Indexe im SQL-String durchlaufen + For Each element As System.Text.RegularExpressions.Match In elemente + + ' die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index) + Dim elementOhneSonderzeichen As String = element.Value.Replace("[%", "") + elementOhneSonderzeichen = elementOhneSonderzeichen.Replace("]", "") + If elementOhneSonderzeichen.StartsWith("ddv") Then + Dim ddvariable As String = "" + elementOhneSonderzeichen = elementOhneSonderzeichen.Replace("ddv", "") + Dim filepath = My.Settings.vWLaufwerk & ":" & dokument.aPath + Select Case elementOhneSonderzeichen + Case "FULLFILENAME" + ddvariable = filepath + Case "FOLDERNAME" + ddvariable = Path.GetDirectoryName(filepath) + End Select + + VBSCRIPTCOMMAND = VBSCRIPTCOMMAND.Replace(element.Value, ddvariable) + Else + Try + ' den Wert des deskriptiven Indexes für das aktuelle Dokument auslesen + IndexwertAusWindream = dokument.GetVariableValue(elementOhneSonderzeichen) + Catch ex As Exception + ' wenn ein Fehler aufgetreten ist, muss das Flag gesetzt werden + error_in_Indexierung = True + Logger("Indexname/elementOhneSonderzeichen aus Regex: " & elementOhneSonderzeichen) + Logger("Indexwert aus Windream: " & IndexwertAusWindream.ToString) + Logger("Fehler in Get Indexwert aus windream bei Spezifischem SQL: ", True, True) + Logger(ex.Message, True, True) + End Try + VBSCRIPTCOMMAND = VBSCRIPTCOMMAND.Replace(element.Value, IndexwertAusWindream.ToString) + End If + + + 'database.ExecuteonOracleDb(Sqlcommand, aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password) + 'MsgBox(Me.aktivesDokument.aPath & vbNewLine & vbNewLine & Me.aktivesDokument.aName) + Next + + Logger("VBSCRIPTCOMMAND: " & VBSCRIPTCOMMAND) + Try Dim process As New System.Diagnostics.Process - Dim psi As New ProcessStartInfo(anweisung.Trim) + Dim psi As New ProcessStartInfo(VBSCRIPTCOMMAND.Trim) + psi.CreateNoWindow = True Logger("VB-Skript nach Indexierung") - process.EnableRaisingEvents = True process.StartInfo = psi process.Start() @@ -1814,19 +1893,66 @@ Public Class frmNIHauptseite Return False End If + + End Function + Private Shared Function REGEX_REPLACE(_STRING As String) + Try + ' Regulären Ausdruck zum Auslesen der windream-Indexe definieren + Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" + ' einen Regulären Ausdruck laden + Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg) + ' die Vorkommen im SQL-String auslesen + Dim reg_elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(_STRING) + Dim i As Integer = 0 + ' alle Vorkommen der windream-Indexe im SQL-String durchlaufen + For Each reg_element As System.Text.RegularExpressions.Match In reg_elemente + ' die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index) + Dim reg_element_Ohne_SZ As String = reg_element.Value.Replace("[%", "") + reg_element_Ohne_SZ = reg_element_Ohne_SZ.Replace("]", "") + Logger("Indexwert aus Index/Variable '" & reg_element_Ohne_SZ & "' auslesen....", False) + Dim wdIndexwert + ' den Wert des Indexes für das aktuelle Dokument auslesen + wdIndexwert = aktivesDokument.GetVariableValue(reg_element_Ohne_SZ) + If wdIndexwert Is Nothing = False Then + If Not wdIndexwert.GetType.ToString.Contains("System.Object") Then + Logger("Namenkonvention (" & i & ") " & _STRING, False) + wdIndexwert = wdIndexwert.ToString.TrimEnd + wdIndexwert = wdIndexwert.ToString.TrimStart + Logger("Ausgelesener Indexwert = '" & wdIndexwert & "'", False) + + _STRING = _STRING.Replace(reg_element.Value, wdIndexwert.ToString) + i += 1 + Else + ClassLoggerNI.Add(">> Achtung gelesener Wert ist ein Vektorfeld - keine Umbenennung möglich ", False) + Return Nothing + End If + End If + + + + Next + Return _STRING + Catch ex As Exception + ClassLoggerNI.Add("REGEX_REPLACE", ex.Message) + Return Nothing + End Try End Function Private Function Check_DeskIndexValue(ByVal _indexvalue As String, ByVal _sql As String) Try Dim sql As String = _sql - Dim _vsql As String + Dim _vsql Dim _replace As String + 'LIKE UPPER('%[%String 01]')' If IsNumeric(_indexvalue) Then _replace = _indexvalue - Else - _replace = "'" & _indexvalue & "'" + ' Else + ' _replace = "'" & _indexvalue & "'" + End If + _vsql = REGEX_REPLACE(sql) + If _vsql = Nothing Then + Return 0 End If - _vsql = sql.Replace("[%" & aktivesProfil.Desk_windreamIndex & "]", _replace) - Logger("Check Deskriptiven Index-Value - Select Scalar: " & _vsql, False) + Logger("Check_DeskIndexValue - Select Scalar: " & _vsql, False) If aktivesProfil.DbArt = "Oracle" Then Dim ergebnis As Integer = database.CheckIndex_oracle(_vsql, aktivesProfil.DataSource, aktivesProfil.InitialCatalog, aktivesProfil.UserId, aktivesProfil.Password) diff --git a/ToolCollection/frmNIProfileigenschaften.Designer.vb b/ToolCollection/frmNIProfileigenschaften.Designer.vb index 34c2234..a5b5192 100644 --- a/ToolCollection/frmNIProfileigenschaften.Designer.vb +++ b/ToolCollection/frmNIProfileigenschaften.Designer.vb @@ -516,7 +516,7 @@ Partial Class frmNIProfileigenschaften ' Me.cmbEndung_xml.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cmbEndung_xml.FormattingEnabled = True - Me.cmbEndung_xml.Items.AddRange(New Object() {"xml", "xffres"}) + Me.cmbEndung_xml.Items.AddRange(New Object() {"xml", "xml (ZugFerd)", "xffres"}) Me.cmbEndung_xml.Location = New System.Drawing.Point(133, 41) Me.cmbEndung_xml.Name = "cmbEndung_xml" Me.cmbEndung_xml.Size = New System.Drawing.Size(121, 21) @@ -528,9 +528,9 @@ Partial Class frmNIProfileigenschaften Me.lblDateiendung.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblDateiendung.Location = New System.Drawing.Point(130, 25) Me.lblDateiendung.Name = "lblDateiendung" - Me.lblDateiendung.Size = New System.Drawing.Size(93, 13) + Me.lblDateiendung.Size = New System.Drawing.Size(113, 13) Me.lblDateiendung.TabIndex = 3 - Me.lblDateiendung.Text = "Dateiendungen*" + Me.lblDateiendung.Text = "Dateiendungen/Typ*" ' 'rbxls ' @@ -680,8 +680,8 @@ Partial Class frmNIProfileigenschaften Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(516, 26) Me.Label3.TabIndex = 68 - Me.Label3.Text = "Wählen Sie hier den Index aus, der gesetzt wird, sobald ein Dokument nicht nachin" & _ - "dexiert werden kann bzw. " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "einen Startindex erhält, der nicht in der Datenbank e" & _ + Me.Label3.Text = "Wählen Sie hier den Index aus, der gesetzt wird, sobald ein Dokument nicht nachin" & + "dexiert werden kann bzw. " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "einen Startindex erhält, der nicht in der Datenbank e" & "xistiert." ' 'FolderBrowserDialog1 @@ -1060,8 +1060,8 @@ Partial Class frmNIProfileigenschaften Me.Label21.Name = "Label21" Me.Label21.Size = New System.Drawing.Size(261, 65) Me.Label21.TabIndex = 0 - Me.Label21.Text = "Bei Aktivierung dieser Funktion wird nach " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Indexierung das Modul 'Move and Renam" & _ - "e' " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ausgeführt. " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Die Datei wird anhand der Dokumentartspezifikation " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "umbenann" & _ + Me.Label21.Text = "Bei Aktivierung dieser Funktion wird nach " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Indexierung das Modul 'Move and Renam" & + "e' " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ausgeführt. " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Die Datei wird anhand der Dokumentartspezifikation " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "umbenann" & "t und in den Ordnerbaum verschoben" ' 'lblHinweisKundenindex @@ -1074,7 +1074,7 @@ Partial Class frmNIProfileigenschaften Me.lblHinweisKundenindex.RightToLeft = System.Windows.Forms.RightToLeft.No Me.lblHinweisKundenindex.Size = New System.Drawing.Size(359, 30) Me.lblHinweisKundenindex.TabIndex = 44 - Me.lblHinweisKundenindex.Text = "Dieser Index klassifiziert zu welchem Kunden ein Dokument gehört." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Eindeutige Ku" & _ + Me.lblHinweisKundenindex.Text = "Dieser Index klassifiziert zu welchem Kunden ein Dokument gehört." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Eindeutige Ku" & "ndennummer, Matchcode)" Me.lblHinweisKundenindex.TextAlign = System.Drawing.ContentAlignment.MiddleRight ' @@ -1264,7 +1264,7 @@ Partial Class frmNIProfileigenschaften Me.Label14.Name = "Label14" Me.Label14.Size = New System.Drawing.Size(407, 26) Me.Label14.TabIndex = 4 - Me.Label14.Text = "Optional können Sie hier einen dedizierten Ordnerpfad angeben in welchem " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "anhand" & _ + Me.Label14.Text = "Optional können Sie hier einen dedizierten Ordnerpfad angeben in welchem " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "anhand" & " des gewählten Index ein Unterordner angelegt wird." ' 'btbNBaddCrFolder @@ -1325,7 +1325,7 @@ Partial Class frmNIProfileigenschaften Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(638, 15) Me.Label4.TabIndex = 71 - Me.Label4.Text = "Wählen Sie hier einen Ordner in windream, in welchen die Datei, nach erfolgreiche" & _ + Me.Label4.Text = "Wählen Sie hier einen Ordner in windream, in welchen die Datei, nach erfolgreiche" & "r Indexierung verschoben werden soll." ' 'Label13 @@ -1336,7 +1336,7 @@ Partial Class frmNIProfileigenschaften Me.Label13.Name = "Label13" Me.Label13.Size = New System.Drawing.Size(619, 15) Me.Label13.TabIndex = 78 - Me.Label13.Text = "Nachbearbeitungsfunktionen werden NACH erfolgreicher Nachindexierung für die ents" & _ + Me.Label13.Text = "Nachbearbeitungsfunktionen werden NACH erfolgreicher Nachindexierung für die ents" & "pr. Datei durchlaufen." ' 'TabPage4 @@ -1456,7 +1456,7 @@ Partial Class frmNIProfileigenschaften Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(553, 13) Me.Label5.TabIndex = 58 - Me.Label5.Text = "Liest die Indexwerte des Ordners aus und überträgt Sie an den Index mit dem IDENT" & _ + Me.Label5.Text = "Liest die Indexwerte des Ordners aus und überträgt Sie an den Index mit dem IDENT" & "ISCHEN Indexnamen." ' 'chkbxGetOrdnerRechte diff --git a/ToolCollection/frmNIProfileigenschaften.resx b/ToolCollection/frmNIProfileigenschaften.resx index 4f23ae3..7b874da 100644 --- a/ToolCollection/frmNIProfileigenschaften.resx +++ b/ToolCollection/frmNIProfileigenschaften.resx @@ -161,7 +161,7 @@ einen Startindex erhält, der nicht in der Datenbank existiert. Diese Kennzeichn AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAK - CQAAAk1TRnQBSQFMAgEBAgEAAVgBAAFYAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CQAAAk1TRnQBSQFMAgEBAgEAAWABAAFgAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA diff --git a/ToolCollection/frmNIProfilhinzufuegen.Designer.vb b/ToolCollection/frmNIProfilhinzufuegen.Designer.vb index eb76451..e349d14 100644 --- a/ToolCollection/frmNIProfilhinzufuegen.Designer.vb +++ b/ToolCollection/frmNIProfilhinzufuegen.Designer.vb @@ -440,7 +440,7 @@ Partial Class frmNIProfilhinzufuegen 'cmbEndung_xml ' Me.cmbEndung_xml.FormattingEnabled = True - Me.cmbEndung_xml.Items.AddRange(New Object() {"xml", "xffres"}) + Me.cmbEndung_xml.Items.AddRange(New Object() {"xml", "xml (ZugFerd)", "xffres"}) Me.cmbEndung_xml.Location = New System.Drawing.Point(133, 41) Me.cmbEndung_xml.Name = "cmbEndung_xml" Me.cmbEndung_xml.Size = New System.Drawing.Size(121, 21) @@ -494,8 +494,8 @@ Partial Class frmNIProfilhinzufuegen Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(516, 26) Me.Label3.TabIndex = 68 - Me.Label3.Text = "Wählen Sie hier den Index aus, der gesetzt wird, sobald ein Dokument nicht nachin" & _ - "dexiert werden kann bzw. " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "einen Startindex erhält, der nicht in der Datenbank e" & _ + Me.Label3.Text = "Wählen Sie hier den Index aus, der gesetzt wird, sobald ein Dokument nicht nachin" & + "dexiert werden kann bzw. " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "einen Startindex erhält, der nicht in der Datenbank e" & "xistiert." ' 'GroupBox2 @@ -575,7 +575,7 @@ Partial Class frmNIProfilhinzufuegen Me.Label10.AutoSize = True Me.Label10.Location = New System.Drawing.Point(6, 56) Me.Label10.Name = "Label10" - Me.Label10.Size = New System.Drawing.Size(293, 13) + Me.Label10.Size = New System.Drawing.Size(292, 13) Me.Label10.TabIndex = 0 Me.Label10.Text = "Bitte geben Sie hier den Indexnamen des Volltextes ein:" ' @@ -694,7 +694,7 @@ Partial Class frmNIProfilhinzufuegen Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(621, 13) Me.Label8.TabIndex = 58 - Me.Label8.Text = "Liest die Indexwerte des Ordners aus und überträgt Sie an Indizes des windream-Ob" & _ + Me.Label8.Text = "Liest die Indexwerte des Ordners aus und überträgt Sie an Indizes des windream-Ob" & "jektes mit identischen Indexnamen." ' 'Label7 @@ -731,7 +731,7 @@ Partial Class frmNIProfilhinzufuegen Me.rbVolltext.AutoSize = True Me.rbVolltext.Location = New System.Drawing.Point(366, 113) Me.rbVolltext.Name = "rbVolltext" - Me.rbVolltext.Size = New System.Drawing.Size(84, 17) + Me.rbVolltext.Size = New System.Drawing.Size(83, 17) Me.rbVolltext.TabIndex = 74 Me.rbVolltext.TabStop = True Me.rbVolltext.Text = "per Volltext" diff --git a/ToolCollection/frmNIVerknuepfungen.Designer.vb b/ToolCollection/frmNIVerknuepfungen.Designer.vb index b06b67f..5bc78bb 100644 --- a/ToolCollection/frmNIVerknuepfungen.Designer.vb +++ b/ToolCollection/frmNIVerknuepfungen.Designer.vb @@ -24,7 +24,7 @@ Partial Class frmNIVerknuepfungen Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNIVerknuepfungen)) - Me.txtUpdateAnweisung = New System.Windows.Forms.TextBox() + Me.txtfinalSkriptUpdate = New System.Windows.Forms.TextBox() Me.cmbDatenbankSpalten = New System.Windows.Forms.ComboBox() Me.Label8 = New System.Windows.Forms.Label() Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() @@ -45,7 +45,8 @@ Partial Class frmNIVerknuepfungen Me.clmIndex = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) Me.cmbWindreamIndexe = New System.Windows.Forms.ComboBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox() - Me.chkbSpeicherort = New System.Windows.Forms.CheckBox() + Me.Button3 = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() Me.lvwVerknuepfungen = New System.Windows.Forms.ListView() Me.btnStandardSQL = New System.Windows.Forms.Button() Me.btnWindreamIndexEinfügenSQL = New System.Windows.Forms.Button() @@ -57,7 +58,6 @@ Partial Class frmNIVerknuepfungen Me.btnTestSQL = New System.Windows.Forms.Button() Me.Label9 = New System.Windows.Forms.Label() Me.gbUpdate = New System.Windows.Forms.GroupBox() - Me.btnSQL_Updatespeichern = New System.Windows.Forms.Button() Me.cmbWindreamIndexeSQL = New System.Windows.Forms.ComboBox() Me.lblDescr_Verknüpfungen = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() @@ -165,6 +165,8 @@ Partial Class frmNIVerknuepfungen Me.rbvkt_add = New System.Windows.Forms.RadioButton() Me.rbvkt_overwrite = New System.Windows.Forms.RadioButton() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.lblsaveSQLAnweisung = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() Me.StatusStrip1.SuspendLayout() Me.GroupBox1.SuspendLayout() Me.Panel1.SuspendLayout() @@ -190,20 +192,20 @@ Partial Class frmNIVerknuepfungen Me.SplitContainer1.SuspendLayout() Me.SuspendLayout() ' - 'txtUpdateAnweisung + 'txtfinalSkriptUpdate ' - Me.txtUpdateAnweisung.AcceptsReturn = True - Me.txtUpdateAnweisung.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Me.txtfinalSkriptUpdate.AcceptsReturn = True + Me.txtfinalSkriptUpdate.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.txtUpdateAnweisung.BackColor = System.Drawing.Color.LemonChiffon - Me.txtUpdateAnweisung.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtUpdateAnweisung.Location = New System.Drawing.Point(6, 19) - Me.txtUpdateAnweisung.Multiline = True - Me.txtUpdateAnweisung.Name = "txtUpdateAnweisung" - Me.txtUpdateAnweisung.RightToLeft = System.Windows.Forms.RightToLeft.No - Me.txtUpdateAnweisung.Size = New System.Drawing.Size(925, 166) - Me.txtUpdateAnweisung.TabIndex = 29 + Me.txtfinalSkriptUpdate.BackColor = System.Drawing.Color.LemonChiffon + Me.txtfinalSkriptUpdate.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtfinalSkriptUpdate.Location = New System.Drawing.Point(6, 40) + Me.txtfinalSkriptUpdate.Multiline = True + Me.txtfinalSkriptUpdate.Name = "txtfinalSkriptUpdate" + Me.txtfinalSkriptUpdate.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.txtfinalSkriptUpdate.Size = New System.Drawing.Size(925, 145) + Me.txtfinalSkriptUpdate.TabIndex = 29 ' 'cmbDatenbankSpalten ' @@ -406,26 +408,39 @@ Partial Class frmNIVerknuepfungen 'GroupBox1 ' Me.GroupBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.GroupBox1.Controls.Add(Me.chkbSpeicherort) + Me.GroupBox1.Controls.Add(Me.Button3) + Me.GroupBox1.Controls.Add(Me.Button1) Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GroupBox1.Location = New System.Drawing.Point(940, 22) + Me.GroupBox1.Location = New System.Drawing.Point(942, 19) Me.GroupBox1.Name = "GroupBox1" - Me.GroupBox1.Size = New System.Drawing.Size(205, 51) + Me.GroupBox1.Size = New System.Drawing.Size(205, 83) Me.GroupBox1.TabIndex = 50 Me.GroupBox1.TabStop = False - Me.GroupBox1.Text = "windream Update-Variablen" - ' - 'chkbSpeicherort - ' - Me.chkbSpeicherort.AutoSize = True - Me.chkbSpeicherort.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.chkbSpeicherort.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.chkbSpeicherort.Location = New System.Drawing.Point(6, 16) - Me.chkbSpeicherort.Name = "chkbSpeicherort" - Me.chkbSpeicherort.Size = New System.Drawing.Size(115, 17) - Me.chkbSpeicherort.TabIndex = 0 - Me.chkbSpeicherort.Text = "Speicherort Datei" - Me.chkbSpeicherort.UseVisualStyleBackColor = True + Me.GroupBox1.Text = "Laufzeit-Variablen" + ' + 'Button3 + ' + Me.Button3.Image = Global.ToolCollection.My.Resources.Resources.add + Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button3.Location = New System.Drawing.Point(3, 50) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(132, 23) + Me.Button3.TabIndex = 2 + Me.Button3.Text = "Folderpath File" + Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button3.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.Image = Global.ToolCollection.My.Resources.Resources.add + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(3, 21) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(132, 23) + Me.Button1.TabIndex = 1 + Me.Button1.Text = "Fullpath File" + Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button1.UseVisualStyleBackColor = True ' 'lvwVerknuepfungen ' @@ -461,7 +476,7 @@ Partial Class frmNIVerknuepfungen Me.btnWindreamIndexEinfügenSQL.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnWindreamIndexEinfügenSQL.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnWindreamIndexEinfügenSQL.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.btnWindreamIndexEinfügenSQL.Location = New System.Drawing.Point(1123, 98) + Me.btnWindreamIndexEinfügenSQL.Location = New System.Drawing.Point(1119, 134) Me.btnWindreamIndexEinfügenSQL.Name = "btnWindreamIndexEinfügenSQL" Me.btnWindreamIndexEinfügenSQL.RightToLeft = System.Windows.Forms.RightToLeft.No Me.btnWindreamIndexEinfügenSQL.Size = New System.Drawing.Size(105, 21) @@ -544,20 +559,21 @@ Partial Class frmNIVerknuepfungen Me.Label9.AutoSize = True Me.Label9.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.Label9.Location = New System.Drawing.Point(943, 80) + Me.Label9.Location = New System.Drawing.Point(939, 116) Me.Label9.Name = "Label9" Me.Label9.RightToLeft = System.Windows.Forms.RightToLeft.No - Me.Label9.Size = New System.Drawing.Size(155, 13) + Me.Label9.Size = New System.Drawing.Size(92, 13) Me.Label9.TabIndex = 46 - Me.Label9.Text = "Eindeutiger windream Index:" + Me.Label9.Text = "windream Index:" Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'gbUpdate ' + Me.gbUpdate.Controls.Add(Me.Label1) + Me.gbUpdate.Controls.Add(Me.lblsaveSQLAnweisung) Me.gbUpdate.Controls.Add(Me.GroupBox1) - Me.gbUpdate.Controls.Add(Me.txtUpdateAnweisung) + Me.gbUpdate.Controls.Add(Me.txtfinalSkriptUpdate) Me.gbUpdate.Controls.Add(Me.btnWindreamIndexEinfügenSQL) - Me.gbUpdate.Controls.Add(Me.btnSQL_Updatespeichern) Me.gbUpdate.Controls.Add(Me.Label9) Me.gbUpdate.Controls.Add(Me.cmbWindreamIndexeSQL) Me.gbUpdate.Dock = System.Windows.Forms.DockStyle.Fill @@ -569,28 +585,13 @@ Partial Class frmNIVerknuepfungen Me.gbUpdate.TabStop = False Me.gbUpdate.Text = "SQL-Befehl oder Skript (ausgeführt nach jedem Dateidurchlauf)" ' - 'btnSQL_Updatespeichern - ' - Me.btnSQL_Updatespeichern.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnSQL_Updatespeichern.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnSQL_Updatespeichern.Image = Global.ToolCollection.My.Resources.Resources.save - Me.btnSQL_Updatespeichern.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnSQL_Updatespeichern.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.btnSQL_Updatespeichern.Location = New System.Drawing.Point(946, 129) - Me.btnSQL_Updatespeichern.Name = "btnSQL_Updatespeichern" - Me.btnSQL_Updatespeichern.Size = New System.Drawing.Size(89, 23) - Me.btnSQL_Updatespeichern.TabIndex = 44 - Me.btnSQL_Updatespeichern.Text = "Speichern" - Me.btnSQL_Updatespeichern.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnSQL_Updatespeichern.UseVisualStyleBackColor = True - ' 'cmbWindreamIndexeSQL ' Me.cmbWindreamIndexeSQL.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cmbWindreamIndexeSQL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmbWindreamIndexeSQL.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cmbWindreamIndexeSQL.FormattingEnabled = True - Me.cmbWindreamIndexeSQL.Location = New System.Drawing.Point(946, 98) + Me.cmbWindreamIndexeSQL.Location = New System.Drawing.Point(942, 134) Me.cmbWindreamIndexeSQL.Name = "cmbWindreamIndexeSQL" Me.cmbWindreamIndexeSQL.RightToLeft = System.Windows.Forms.RightToLeft.No Me.cmbWindreamIndexeSQL.Size = New System.Drawing.Size(164, 21) @@ -1861,6 +1862,30 @@ Partial Class frmNIVerknuepfungen Me.SplitContainer1.Size = New System.Drawing.Size(1265, 747) Me.SplitContainer1.SplitterDistance = 521 Me.SplitContainer1.TabIndex = 51 + ' + 'lblsaveSQLAnweisung + ' + Me.lblsaveSQLAnweisung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblsaveSQLAnweisung.AutoSize = True + Me.lblsaveSQLAnweisung.BackColor = System.Drawing.Color.Yellow + Me.lblsaveSQLAnweisung.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblsaveSQLAnweisung.Location = New System.Drawing.Point(942, 172) + Me.lblsaveSQLAnweisung.Name = "lblsaveSQLAnweisung" + Me.lblsaveSQLAnweisung.Size = New System.Drawing.Size(38, 13) + Me.lblsaveSQLAnweisung.TabIndex = 51 + Me.lblsaveSQLAnweisung.Text = "Label1" + Me.lblsaveSQLAnweisung.Visible = False + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(8, 18) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(457, 13) + Me.Label1.TabIndex = 52 + Me.Label1.Text = "VB-Skript Command must start with prefix 'EXECUTEVB '. SQL-Command can be written" & + " like sql." ' 'frmNIVerknuepfungen ' @@ -1876,7 +1901,6 @@ Partial Class frmNIVerknuepfungen Me.StatusStrip1.ResumeLayout(False) Me.StatusStrip1.PerformLayout() Me.GroupBox1.ResumeLayout(False) - Me.GroupBox1.PerformLayout() Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() Me.gbUpdate.ResumeLayout(False) @@ -1914,7 +1938,7 @@ Partial Class frmNIVerknuepfungen Me.PerformLayout() End Sub - Friend WithEvents txtUpdateAnweisung As System.Windows.Forms.TextBox + Friend WithEvents txtfinalSkriptUpdate As System.Windows.Forms.TextBox Friend WithEvents btnSpalteEinfügen As System.Windows.Forms.Button Friend WithEvents cmbDatenbankSpalten As System.Windows.Forms.ComboBox Friend WithEvents Label8 As System.Windows.Forms.Label @@ -1932,7 +1956,6 @@ Partial Class frmNIVerknuepfungen Friend WithEvents clmIndex As System.Windows.Forms.ColumnHeader Friend WithEvents cmbWindreamIndexe As System.Windows.Forms.ComboBox Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox - Friend WithEvents chkbSpeicherort As System.Windows.Forms.CheckBox Friend WithEvents lvwVerknuepfungen As System.Windows.Forms.ListView Friend WithEvents btnStandardSQL As System.Windows.Forms.Button Friend WithEvents btnTestSQL As System.Windows.Forms.Button @@ -1942,7 +1965,6 @@ Partial Class frmNIVerknuepfungen Friend WithEvents btnWindreamIndexEinfügenSQL As System.Windows.Forms.Button Friend WithEvents btnaddUniqueIndex As System.Windows.Forms.Button Friend WithEvents lbxQuelle1 As System.Windows.Forms.ListBox - Friend WithEvents btnSQL_Updatespeichern As System.Windows.Forms.Button Friend WithEvents btnEindIndex As System.Windows.Forms.Button Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents lblSQLTest As System.Windows.Forms.Label @@ -2055,4 +2077,8 @@ Partial Class frmNIVerknuepfungen Friend WithEvents rbvkt_overwrite As System.Windows.Forms.RadioButton Friend WithEvents lblsave As System.Windows.Forms.Label Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents Button3 As Button + Friend WithEvents Button1 As Button + Friend WithEvents lblsaveSQLAnweisung As Label + Friend WithEvents Label1 As Label End Class diff --git a/ToolCollection/frmNIVerknuepfungen.vb b/ToolCollection/frmNIVerknuepfungen.vb index bd3ef63..1af2665 100644 --- a/ToolCollection/frmNIVerknuepfungen.vb +++ b/ToolCollection/frmNIVerknuepfungen.vb @@ -5,6 +5,7 @@ Imports System.Windows.Forms Imports System.Xml Imports System.DirectoryServices Imports Oracle.ManagedDataAccess.Client +Imports System.IO Public Class frmNIVerknuepfungen Private _selectedProfil As ClassNIProfil @@ -206,7 +207,7 @@ Public Class frmNIVerknuepfungen Me.txtCheckIndexSQL.Text = Me._selectedProfil.checkIndexsql 'Move and Rename aktiv? If Me._selectedProfil.SQL_Anweisung <> "" Then - Me.txtUpdateAnweisung.Text = Me._selectedProfil.SQL_Anweisung + Me.txtfinalSkriptUpdate.Text = Me._selectedProfil.SQL_Anweisung End If '################################################## @@ -233,8 +234,13 @@ Public Class frmNIVerknuepfungen Me.lvwVerknuepfungen.Items.Add(New Windows.Forms.ListViewItem(New String() {link.Index, link.Spalte, link.From})) ' wenn es den aktuellen Index noch in der Indexliste gibt If Me.lbxIndex.Items.Contains(link.Index) Then - ' dann diesen Eintrag löschen - Me.lbxIndex.Items.Remove(link.Index) + Dim indextype As String = ClassNIWindream.GetIndex_Type(link.Index) + If Not indextype.StartsWith("Vektor") Then + ' dann diesen Eintrag löschen + Me.lbxIndex.Items.Remove(link.Index) + End If + + End If Next Else @@ -526,17 +532,17 @@ Public Class frmNIVerknuepfungen ' Add the root node's children to the TreeView. trv.Nodes.Clear() - AddTreeViewChildNodes(trv.Nodes, _ + AddTreeViewChildNodes(trv.Nodes, xml_doc.DocumentElement) End Sub - Private Sub AddTreeViewChildNodes(ByVal parent_nodes As _ + Private Sub AddTreeViewChildNodes(ByVal parent_nodes As _ TreeNodeCollection, ByVal xml_node As XmlNode) For Each child_node As XmlNode In xml_node.ChildNodes Select Case child_node.NodeType 'Case End Select ' Make the new TreeView node. - Dim new_node As TreeNode = _ + Dim new_node As TreeNode = parent_nodes.Add(child_node.Name) ' Recursively make this node's descendants. @@ -804,7 +810,7 @@ Public Class frmNIVerknuepfungen Dim conn As New OracleConnectionStringBuilder Dim connstr As String If Me._selectedProfil.DataSource <> "" And Me._selectedProfil.InitialCatalog <> "" Then - connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & _selectedProfil.DataSource & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _ + connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & _selectedProfil.DataSource & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _selectedProfil.InitialCatalog & ")));User Id=" & Me._selectedProfil.UserId & ";Password=" & Me._selectedProfil.Password & ";" Else conn.DataSource = Me._selectedProfil.DataSource @@ -879,7 +885,7 @@ Public Class frmNIVerknuepfungen Dim conn As New OracleConnectionStringBuilder Dim connstr As String If Me._selectedProfil.DataSource <> "" And Me._selectedProfil.InitialCatalog <> "" Then - connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & _selectedProfil.DataSource & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _ + connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & _selectedProfil.DataSource & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _selectedProfil.InitialCatalog & ")));User Id=" & Me._selectedProfil.UserId & ";Password=" & Me._selectedProfil.Password & ";" Else conn.DataSource = Me._selectedProfil.DataSource @@ -1154,11 +1160,11 @@ Public Class frmNIVerknuepfungen If return_views Then ' die Schema-Tabelle mit Informationen über Views auslesen - schemaTable = Connection.GetOleDbSchemaTable(OleDbSchemaGuid.Views, _ + schemaTable = Connection.GetOleDbSchemaTable(OleDbSchemaGuid.Views, New Object() {Nothing, Nothing, Nothing}) Else ' die Schema-Tabelle mit Informationen über Tabellen auslesen - schemaTable = Connection.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, _ + schemaTable = Connection.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing}) End If @@ -1229,7 +1235,7 @@ Public Class frmNIVerknuepfungen Connection = New OleDbConnection(ConnectionString.ConnectionString) Connection.Open() - Dim schemaTable = Connection.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, _ + Dim schemaTable = Connection.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, table, Nothing}) If schemaTable.Rows.Count > 0 Then @@ -1272,7 +1278,7 @@ Public Class frmNIVerknuepfungen Me.lvwVerknuepfungen.SelectedItems.Item(0).Selected = False End If Dim vktState = Getvktinsert_State() - + Select Case Me._selectedProfil.Ni_Art Case "db" Try @@ -1322,18 +1328,24 @@ Public Class frmNIVerknuepfungen _value = "%" & Me.txtManIndexwert.Text & "%" Me.txtManIndexwert.Text = "" Else - If trvwxml.SelectedNode.Index = 0 Then - 'Typ soll indexiert werden - _value = Me.trvwxml.Nodes(0).Nodes(0).Text - ElseIf trvwxml.SelectedNode.Index >= 1 Then - 'Wert soll indexiert werden - ' MsgBox(trvwxml.SelectedNode.ToString & vbNewLine & trvwxml.SelectedNode.Index) - _value = "FreeFormField|" & trvwxml.SelectedNode.ToString.Replace("TreeNode: ", "") + If _selectedProfil.xmlEnd = "xml (ZugFerd)" Then + If trvwxml.SelectedNode.Tag = "SellerTradeParty:Name" Then + _value = "SellerTradeParty:Name" + ElseIf trvwxml.SelectedNode.Tag = "SpecifiedTaxRegistration" Then + _value = "SpecifiedTaxRegistration" + End If + Else + If trvwxml.SelectedNode.Index = 0 Then + 'Typ soll indexiert werden + _value = Me.trvwxml.Nodes(0).Nodes(0).Text + ElseIf trvwxml.SelectedNode.Index >= 1 Then + 'Wert soll indexiert werden + ' MsgBox(trvwxml.SelectedNode.ToString & vbNewLine & trvwxml.SelectedNode.Index) + _value = "FreeFormField|" & trvwxml.SelectedNode.ToString.Replace("TreeNode: ", "") + End If End If End If - - ' Eintrag in ListView machen Me.lvwVerknuepfungen.Items.Add(New Windows.Forms.ListViewItem(New String() {Me.lbxIndex.SelectedItem, _value})) @@ -1746,7 +1758,7 @@ Public Class frmNIVerknuepfungen Catch ex As Exception Me.chkbxFT_Position.Checked = False End Try - + Try Me.chkboxWhitespace.Checked = CBool(area(2)) Catch ex As Exception @@ -1867,9 +1879,9 @@ Public Class frmNIVerknuepfungen Me.Changeinaction = False End If End If - + End If - + End Sub @@ -1907,7 +1919,7 @@ Public Class frmNIVerknuepfungen ' wenn im ListView eine Zeile selektiert wurde If Me.lvwVerknuepfungen.SelectedItems.Count > 0 Then ' Überprüfen ob eingegebener Wert gepeichert werden muß? - Dim SQL_ORIGIN As String = Me._selectedProfil._links.getLinkByValues(Me.lvwVerknuepfungen.SelectedItems(0).SubItems(0).Text, Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text, _ + Dim SQL_ORIGIN As String = Me._selectedProfil._links.getLinkByValues(Me.lvwVerknuepfungen.SelectedItems(0).SubItems(0).Text, Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text, Me.lvwVerknuepfungen.SelectedItems(0).SubItems(2).Text).getSelectAnweisung().ToString If SQL_ORIGIN <> Me.txtSelectAnweisung.Text Then With btnsave_select @@ -1916,7 +1928,7 @@ Public Class frmNIVerknuepfungen End With End If ' die Informationen der selektierten Verknüpfung auslesen - Me._selectedProfil._links.getLinkByValues(Me.lvwVerknuepfungen.SelectedItems(0).SubItems(0).Text, Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text, _ + Me._selectedProfil._links.getLinkByValues(Me.lvwVerknuepfungen.SelectedItems(0).SubItems(0).Text, Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text, Me.lvwVerknuepfungen.SelectedItems(0).SubItems(2).Text).setSelectAnweisung(Me.txtSelectAnweisung.Text) ' das Profil auf den Status 'geändert' setzen Me._selectedProfil.setChanged() @@ -2016,60 +2028,56 @@ Public Class frmNIVerknuepfungen Me._selectedProfil._links.RenewLinks(Me.lvwVerknuepfungen, vktState) End If End Sub - Private Sub btnSQL_Updatespeichern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSQL_Updatespeichern.Click - Try - ' die Änderungen speichern - If Me._selectedProfil.Save(True) = True Then ' wenn das Speichern erfolgreich war - ' den Speichern-Button deaktivieren - Me.btnSQL_Updatespeichern.Enabled = False - Else - MsgBox("Das Profil konnte nicht erfolgreich gespeichert werden.", MsgBoxStyle.Exclamation, "Fehler beim Speichern eines Profils") - End If - Catch ex As Exception - MsgBox("Fehler beim Speichern des SQL-Befehles." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Speichern eines SQL-Befehls.") - End Try - End Sub - - Private Sub txtUpdateAnweisung_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtUpdateAnweisung.LostFocus - If Me.txtUpdateAnweisung.Text <> "" Then - Try - ' die Änderungen speichern - If Me._selectedProfil.Save(True) = True Then ' wenn das Speichern erfolgreich war - ' den Speichern-Button deaktivieren - Me.btnSQL_Updatespeichern.Enabled = False - Else - MsgBox("Das Profil konnte nicht erfolgreich gespeichert werden.", MsgBoxStyle.Exclamation, "Fehler beim Speichern eines Profils") - End If - Catch ex As Exception - MsgBox("Fehler beim Speichern des SQL-Befehles." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Speichern eines SQL-Befehls.") - End Try - End If + 'Private Sub btnSQL_Updatespeichern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSQL_Updatespeichern.Click + ' Try + ' ' die Änderungen speichern + ' If Me._selectedProfil.Save(True) = True Then ' wenn das Speichern erfolgreich war + ' ' den Speichern-Button deaktivieren + ' Me.btnSQL_Updatespeichern.Enabled = False + ' Else + ' MsgBox("Das Profil konnte nicht erfolgreich gespeichert werden.", MsgBoxStyle.Exclamation, "Fehler beim Speichern eines Profils") + ' End If + ' Catch ex As Exception + ' MsgBox("Fehler beim Speichern des SQL-Befehles." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Speichern eines SQL-Befehls.") + ' End Try + 'End Sub + + Private Sub txtUpdateAnweisung_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtfinalSkriptUpdate.LostFocus + 'If Me.txtfinalSkriptUpdate.Text <> "" Then + ' Try + ' ' die Änderungen speichern + ' If Me._selectedProfil.Save(True) = True Then ' wenn das Speichern erfolgreich war + ' Me._selectedProfil.setChanged() + ' Else + ' MsgBox("Das Profil konnte nicht erfolgreich gespeichert werden.", MsgBoxStyle.Exclamation, "Fehler beim Speichern eines Profils") + ' End If + ' Catch ex As Exception + ' MsgBox("Fehler beim Speichern des SQL-Befehles." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Speichern eines SQL-Befehls.") + ' End Try + 'End If End Sub - Private Sub txtUpdateAnweisung_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtUpdateAnweisung.TextChanged + Private Sub txtUpdateAnweisung_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtfinalSkriptUpdate.TextChanged If Me._selectedProfil IsNot Nothing Then - Me._selectedProfil.SQL_Anweisung = Me.txtUpdateAnweisung.Text - If Not Me.txtUpdateAnweisung.Text = Me._selectedProfil.OriginalSQL_Anweisung Then - Me.btnSQL_Updatespeichern.Enabled = True - Else - Me.btnSQL_Updatespeichern.Enabled = False + Me._selectedProfil.SQL_Anweisung = Me.txtfinalSkriptUpdate.Text + If Not Me.txtfinalSkriptUpdate.Text = Me._selectedProfil.OriginalSQL_Anweisung Then + Me._selectedProfil.setChanged() End If End If End Sub Private Sub btnWindreamIndexEinfügenSQL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWindreamIndexEinfügenSQL.Click If Not Me.cmbWindreamIndexeSQL.SelectedItem = "" Then Dim text As String = "[%" & Me.cmbWindreamIndexeSQL.SelectedItem & "]" - Dim altePosition As Integer = Me.txtUpdateAnweisung.SelectionStart() - Me.txtUpdateAnweisung.Text = Me.txtUpdateAnweisung.Text.Insert(altePosition, text) - Me.txtUpdateAnweisung.SelectionStart = altePosition + text.Length + Dim altePosition As Integer = Me.txtfinalSkriptUpdate.SelectionStart() + Me.txtfinalSkriptUpdate.Text = Me.txtfinalSkriptUpdate.Text.Insert(altePosition, text) + Me.txtfinalSkriptUpdate.SelectionStart = altePosition + text.Length If Me._selectedProfil IsNot Nothing Then - Me._selectedProfil.Desk_windreamIndex = "[%" & Me.cmbWindreamIndexeSQL.SelectedItem & "]" - If Not "[%" & Me.cmbWindreamIndexeSQL.SelectedItem & "]" = Me._selectedProfil.OriginalwindreamIndex Then - Me.btnSQL_Updatespeichern.Enabled = True - Else - Me.btnSQL_Updatespeichern.Enabled = False + Me._selectedProfil.SQL_Anweisung = Me.txtfinalSkriptUpdate.Text + If Not Me._selectedProfil.SQL_Anweisung = Me._selectedProfil.OriginalSQL_Anweisung Then + Me._selectedProfil.setChanged() End If + End If @@ -2077,15 +2085,6 @@ Public Class frmNIVerknuepfungen End Sub - Private Sub chkbSpeicherort_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkbSpeicherort.CheckedChanged - If Me.chkbSpeicherort.Checked Then - Dim text As String = "= vSpeicherort" - Dim altePosition As Integer = Me.txtUpdateAnweisung.SelectionStart() - Me.txtUpdateAnweisung.Text = Me.txtUpdateAnweisung.Text.Insert(altePosition, text) - Me.txtUpdateAnweisung.SelectionStart = altePosition + text.Length - - End If - End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaddUniqueIndex.Click If (Me.lbxIndex.SelectedItems.Count > 0) Then @@ -2197,6 +2196,11 @@ Public Class frmNIVerknuepfungen Me.cmbIndex_Statusfertig.Items.Add(index) Next End If + If Not IsNothing(Me._selectedProfil.finalerIndex) Then + cmbIndex_Statusfertig.SelectedIndex = cmbIndex_Statusfertig.FindStringExact(Me._selectedProfil.finalerIndex) + End If + + Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der windream-Indexe in die Auswahlliste 'cmbIndex_Statusfertig'") End Try @@ -2242,7 +2246,11 @@ Public Class frmNIVerknuepfungen If IO.File.Exists(txtxml_Beispieldatei.Text) Then If txtxml_Beispieldatei.Text.EndsWith(".xffres") Or txtxml_Beispieldatei.Text.EndsWith(".xfres") Then XML_getTagsxffres(txtxml_Beispieldatei.Text) + ElseIf txtxml_Beispieldatei.Text.EndsWith(".xml") And _selectedProfil.xmlEnd = "xml" Then + XML_Regular(txtxml_Beispieldatei.Text) + ElseIf txtxml_Beispieldatei.Text.EndsWith(".xml") And _selectedProfil.xmlEnd = "xml (ZugFerd)" Then + XML_ZugFerd(txtxml_Beispieldatei.Text) End If End If @@ -2336,7 +2344,116 @@ Public Class frmNIVerknuepfungen 'End If End Sub + Sub XML_Regular(ByVal filename As String) + Dim xmldoc As New XmlDataDocument() + Dim xmlnode As XmlNode + Dim fs As New FileStream(filename, FileMode.Open, FileAccess.Read) + xmldoc.Load(fs) + xmlnode = xmldoc.ChildNodes(1) + trvwxml.Nodes.Clear() + trvwxml.Nodes.Add(New TreeNode(xmldoc.DocumentElement.Name)) + Dim tNode As TreeNode + tNode = trvwxml.Nodes(0) + AddNode(xmlnode, tNode) + End Sub + Private Sub AddNode(ByVal inXmlNode As XmlNode, ByVal inTreeNode As TreeNode) + Dim xNode As XmlNode + Dim tNode As TreeNode + Dim nodeList As XmlNodeList + Dim i As Integer + If inXmlNode.HasChildNodes Then + nodeList = inXmlNode.ChildNodes + For i = 0 To nodeList.Count - 1 + xNode = inXmlNode.ChildNodes(i) + inTreeNode.Nodes.Add(New TreeNode(xNode.Name)) + tNode = inTreeNode.Nodes(i) + AddNode(xNode, tNode) + Next + Else + inTreeNode.Text = inXmlNode.InnerText.ToString + End If + End Sub + Sub XML_ZugFerd(ByVal filename As String) + Dim _xmlDoc As New XmlDocument + _xmlDoc.Load(filename) + Dim xml As New Xml.XmlTextReader(filename) + + While xml.Read + If xml.NodeType = XmlNodeType.Element Then + Console.WriteLine(xml.Name) + End If + End While + trvwxml.Nodes.Clear() ' Clear any existing items + trvwxml.BeginUpdate() ' Begin updating the treeview + Dim TreeNode As TreeNode + TreeNode = trvwxml.Nodes.Add("SellerTradeParty") + + Dim elemList As XmlNodeList = _xmlDoc.GetElementsByTagName("ram:SellerTradeParty") + Dim i As Integer + For i = 0 To elemList.Count - 1 + ' Console.WriteLine(elemList(i).InnerXml) + For Each Xml_Node As XmlNode In elemList + Dim z As Integer + For z = 0 To Xml_Node.ChildNodes.Count - 1 + If Xml_Node.ChildNodes(z).Name = "ram:Name" Then + Dim xmlvalue = Xml_Node.ChildNodes(z).InnerText + If xmlvalue.Contains(vbLf&) Then + xmlvalue = xmlvalue.Replace(vbLf&, "") + End If + If xmlvalue.Contains(Chr(13)) Then + Dim arr As String() = xmlvalue.Split(Chr(13)) + + End If + Dim newNode As TreeNode = New TreeNode(xmlvalue) + newNode.Tag = "SellerTradeParty:Name" + TreeNode.Nodes.Add(newNode) + ElseIf Xml_Node.ChildNodes(z).Name = "ram:SpecifiedTaxRegistration" Then + Dim newNode As TreeNode = New TreeNode(Xml_Node.ChildNodes(z).InnerText) + newNode.Tag = "SpecifiedTaxRegistration" + TreeNode.Nodes.Add(newNode) + + End If + Next z + Next + Next i + Dim TreeNode1 As TreeNode + TreeNode1 = trvwxml.Nodes.Add("MonetarySummation") + Dim elemList1 As XmlNodeList = _xmlDoc.GetElementsByTagName("ram:SpecifiedTradeSettlementMonetarySummation") + For i = 0 To elemList1.Count - 1 + ' Console.WriteLine(elemList(i).InnerXml) + For Each Xml_Node As XmlNode In elemList1 + Dim z As Integer + For z = 0 To Xml_Node.ChildNodes.Count - 1 + If Xml_Node.ChildNodes(z).Name = "ram:GrandTotalAmount" Then + Dim xmlvalue = Xml_Node.ChildNodes(z).InnerText + Dim newNode As TreeNode = New TreeNode(xmlvalue) + newNode.Tag = "GrandTotalAmount" + TreeNode1.Nodes.Add(newNode) + End If + Next z + Next + Next i + + trvwxml.EndUpdate() + trvwxml.Refresh() + + + + ' foreach(XmlNode xmlnode In baseNodeList) + '// loop through all base nodes + '{ + ' String title = XmlNode.Attributes["title"].Value; + + ' TreeNode = treeViewMenu.Nodes.Add(title); // add it To the tree + + ' populateChildNodes(XmlNode, TreeNode); // Get the children + '} + + 'treeViewMenu.EndUpdate(); // Stop updating the tree + 'treeViewMenu.Refresh(); // refresh the treeview display + + End Sub Private Sub frmNIVerknuepfungen_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown _formloaded = True End Sub @@ -3227,5 +3344,59 @@ Public Class frmNIVerknuepfungen End Sub - + Private Sub trvwxml_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles trvwxml.AfterSelect + + + End Sub + + Private Sub tabctrlbottom_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tabctrlbottom.SelectedIndexChanged + Select Case tabctrlbottom.SelectedIndex + Case 1 + lblsaveSQLAnweisung.Text = "" + Case 2 + If Me._selectedProfil IsNot Nothing Then + chbxStatusfertig.Checked = True + + End If + End Select + End Sub + + Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click + Dim text As String = "[%ddvFULLFILENAME]" + Dim altePosition As Integer = Me.txtfinalSkriptUpdate.SelectionStart() + Me.txtfinalSkriptUpdate.Text = Me.txtfinalSkriptUpdate.Text.Insert(altePosition, text) + Me.txtfinalSkriptUpdate.SelectionStart = altePosition + text.Length + + Me._selectedProfil.SQL_Anweisung = Me.txtfinalSkriptUpdate.Text + If Not Me._selectedProfil.SQL_Anweisung = Me._selectedProfil.OriginalSQL_Anweisung Then + Me._selectedProfil.setChanged() + If Me._selectedProfil.Save(True) = True Then + Me.lblsaveSQLAnweisung.Text = "Data saved - " & Now.ToString + + End If + End If + + End Sub + + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click + Dim text As String = "[%ddvFOLDERNAME]" + Dim altePosition As Integer = Me.txtfinalSkriptUpdate.SelectionStart() + Me.txtfinalSkriptUpdate.Text = Me.txtfinalSkriptUpdate.Text.Insert(altePosition, text) + Me.txtfinalSkriptUpdate.SelectionStart = altePosition + text.Length + Me._selectedProfil.SQL_Anweisung = Me.txtfinalSkriptUpdate.Text + If Not Me._selectedProfil.SQL_Anweisung = Me._selectedProfil.OriginalSQL_Anweisung Then + Me._selectedProfil.setChanged() + If Me._selectedProfil.Save(True) = True Then + Me.lblsaveSQLAnweisung.Text = "Data saved - " & Now.ToString + End If + End If + End Sub + + Private Sub lblsaveSQLAnweisung_TextChanged(sender As Object, e As EventArgs) Handles lblsaveSQLAnweisung.TextChanged + If lblsaveSQLAnweisung.Text <> String.Empty Then + lblsaveSQLAnweisung.Visible = True + Else + lblsaveSQLAnweisung.Visible = False + End If + End Sub End Class \ No newline at end of file diff --git a/ToolCollection/frmStart.Designer.vb b/ToolCollection/frmStart.Designer.vb index 79a8651..55b46c0 100644 --- a/ToolCollection/frmStart.Designer.vb +++ b/ToolCollection/frmStart.Designer.vb @@ -26,6 +26,7 @@ Partial Class frmStart Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStart)) Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.Status_Machine = New System.Windows.Forms.ToolStripStatusLabel() + Me.ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel() Me.tslblVersion = New System.Windows.Forms.ToolStripStatusLabel() Me.Status_Clock = New System.Windows.Forms.ToolStripStatusLabel() Me.timUhrzeit = New System.Windows.Forms.Timer(Me.components) @@ -61,7 +62,7 @@ Partial Class frmStart Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.EinblendenAusblendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.TimerNIRestart = New System.Windows.Forms.Timer(Me.components) - Me.ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel() + Me.TimerErrorLog = New System.Windows.Forms.Timer(Me.components) Me.StatusStrip1.SuspendLayout() Me.menHauptmenü.SuspendLayout() Me.Panel1.SuspendLayout() @@ -92,17 +93,28 @@ Partial Class frmStart Me.Status_Machine.Image = CType(resources.GetObject("Status_Machine.Image"), System.Drawing.Image) Me.Status_Machine.Margin = New System.Windows.Forms.Padding(10, 3, 0, 2) Me.Status_Machine.Name = "Status_Machine" - Me.Status_Machine.Size = New System.Drawing.Size(141, 20) + Me.Status_Machine.Size = New System.Drawing.Size(140, 20) Me.Status_Machine.Text = "ToolStripStatusLabel1" Me.Status_Machine.ToolTipText = "Client-Name" ' + 'ToolStripStatusLabel2 + ' + Me.ToolStripStatusLabel2.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _ + Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _ + Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides) + Me.ToolStripStatusLabel2.Image = CType(resources.GetObject("ToolStripStatusLabel2.Image"), System.Drawing.Image) + Me.ToolStripStatusLabel2.Name = "ToolStripStatusLabel2" + Me.ToolStripStatusLabel2.Size = New System.Drawing.Size(140, 20) + Me.ToolStripStatusLabel2.Text = "ToolStripStatusLabel1" + Me.ToolStripStatusLabel2.ToolTipText = "Aktueller Benutzer" + ' 'tslblVersion ' Me.tslblVersion.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _ Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _ Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides) Me.tslblVersion.Name = "tslblVersion" - Me.tslblVersion.Size = New System.Drawing.Size(125, 20) + Me.tslblVersion.Size = New System.Drawing.Size(124, 20) Me.tslblVersion.Text = "ToolStripStatusLabel1" Me.tslblVersion.ToolTipText = "Aktueller Benutzer" ' @@ -111,7 +123,7 @@ Partial Class frmStart Me.Status_Clock.Image = CType(resources.GetObject("Status_Clock.Image"), System.Drawing.Image) Me.Status_Clock.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.Status_Clock.Name = "Status_Clock" - Me.Status_Clock.Size = New System.Drawing.Size(805, 20) + Me.Status_Clock.Size = New System.Drawing.Size(808, 20) Me.Status_Clock.Spring = True Me.Status_Clock.Text = "ToolStripStatusLabel1" Me.Status_Clock.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -438,16 +450,9 @@ Partial Class frmStart ' Me.TimerNIRestart.Interval = 60000 ' - 'ToolStripStatusLabel2 + 'TimerErrorLog ' - Me.ToolStripStatusLabel2.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _ - Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _ - Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides) - Me.ToolStripStatusLabel2.Image = CType(resources.GetObject("ToolStripStatusLabel2.Image"), System.Drawing.Image) - Me.ToolStripStatusLabel2.Name = "ToolStripStatusLabel2" - Me.ToolStripStatusLabel2.Size = New System.Drawing.Size(141, 20) - Me.ToolStripStatusLabel2.Text = "ToolStripStatusLabel1" - Me.ToolStripStatusLabel2.ToolTipText = "Aktueller Benutzer" + Me.TimerErrorLog.Interval = 60000 ' 'frmStart ' @@ -515,5 +520,5 @@ Partial Class frmStart Public WithEvents TimerNIRestart As System.Windows.Forms.Timer Friend WithEvents CriticalEmailTestToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripStatusLabel2 As System.Windows.Forms.ToolStripStatusLabel - + Friend WithEvents TimerErrorLog As Timer End Class diff --git a/ToolCollection/frmStart.resx b/ToolCollection/frmStart.resx index 77df859..a3b5725 100644 --- a/ToolCollection/frmStart.resx +++ b/ToolCollection/frmStart.resx @@ -172,7 +172,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAO - FAAAAk1TRnQBSQFMAgEBCQEAARgBAwEYAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + FAAAAk1TRnQBSQFMAgEBCQEAASABAwEgAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -653,6 +653,9 @@ 787, 17 + + 920, 17 + 102 diff --git a/ToolCollection/frmStart.vb b/ToolCollection/frmStart.vb index 7243fec..ea907cb 100644 --- a/ToolCollection/frmStart.vb +++ b/ToolCollection/frmStart.vb @@ -48,6 +48,8 @@ Public Class frmStart 'Aktuelle Machine Me.Status_Machine.Text = My.Computer.Name timUhrzeit.Start() + TimerErrorLog.Start() + If Not My.Settings.licensekey = "" Then ' Lizenz-Manager initialisieren Me.licenseManager = New ClassLicenseManager("#DigitalData9731258!#", My.Settings.licensekey) @@ -353,4 +355,14 @@ Public Class frmStart ClassNIEmail.Send_Urgent("Dies ist eine Test-Email!", True) Cursor = Cursors.Default End Sub + + Private Sub TimerErrorLog_Tick(sender As Object, e As EventArgs) Handles TimerErrorLog.Tick + If CURRENT_APPLICATION_LOG <> String.Empty Then + Dim frm As New frmApplicationLog + frm = frmApplicationLog.Instance + + frm.Show() + End If + + End Sub End Class