You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
74 lines
2.5 KiB
74 lines
2.5 KiB
Imports System.IO
|
|
Imports System.Xml
|
|
Imports System.Xml.Schema
|
|
|
|
Public Class AvaloqDokumentWerte
|
|
|
|
#Region "Members"
|
|
Private arrDoukmentWerte As New ArrayList()
|
|
Private objDokumentWert As AvaloqDokumentWert
|
|
#End Region
|
|
|
|
#Region "Public methods"
|
|
|
|
'''<summary>Lädt externes Xml file für automatisierte Aktionen</summary>
|
|
'''<param name="xmlImportFile">Das Xml File mit den entsprechenden Parametern</param>
|
|
Public Function init(ByVal xmlImportFile As FileInfo)
|
|
Try
|
|
|
|
Dim doc As New XmlDocument()
|
|
|
|
doc.Load(xmlImportFile.FullName)
|
|
|
|
'read all parameter nodes
|
|
Dim parameterNodes As XmlNodeList
|
|
parameterNodes = doc.SelectNodes("action/dokwerte/parameter")
|
|
|
|
If parameterNodes.Count > 0 Then
|
|
Dim node As XmlNode
|
|
Dim name, value, dataType As String
|
|
|
|
Dim parameterCounter As Integer = 0
|
|
|
|
For Each node In parameterNodes
|
|
'Read all Document specified Values
|
|
'20080401 RGL zusätzliches TRY wenn node <parameter> leer geliefert wird kein Absturz
|
|
Try
|
|
name = node.SelectSingleNode("name").InnerText
|
|
value = node.SelectSingleNode("value").InnerText
|
|
objDokumentWert = New AvaloqDokumentWert(name, value)
|
|
arrDoukmentWerte.Add(objDokumentWert)
|
|
Catch ex As Exception
|
|
TKBLib.Errorhandling.TraceHelper.Msg("EdokaLib.Common.Action.Load", ex.Message & ex.StackTrace, TraceLevel.Error)
|
|
End Try
|
|
parameterCounter = parameterCounter + 1
|
|
|
|
Next
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
|
|
TKBLib.Errorhandling.TraceHelper.Msg("EdokaLib.Common.Action.Load", ex.Message & ex.StackTrace, TraceLevel.Error)
|
|
Throw ex
|
|
End Try
|
|
End Function
|
|
|
|
Public Function getAvaloqDokumentWertByName(ByVal name As String) As AvaloqDokumentWert
|
|
Dim objRet As AvaloqDokumentWert = Nothing
|
|
Dim i As Integer
|
|
|
|
For i = 0 To arrDoukmentWerte.Count - 1
|
|
If arrDoukmentWerte(i).name = name Then
|
|
objRet = arrDoukmentWerte(i)
|
|
End If
|
|
Next
|
|
Return objRet
|
|
End Function
|
|
|
|
'20080401 RGL Funktion zum Löschen der Werte, damit nicht 2x abgefüllt (auch bei manuellem Erstellen)
|
|
Public Sub clearAvaloqDokumentWerte()
|
|
arrDoukmentWerte.Clear()
|
|
End Sub
|
|
#End Region
|
|
|
|
End Class |