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