EDOKA_Client/EDOKA/Utils/AvaloqDokumentWerte.vb

Imports System.IO
Imports System.Xml
Imports System.Xml.Schema
<Serializable()> _
Public Class AvaloqDokumentWerte

    Dim m_Partnernr As Integer
    Property Partnernr As Integer
        Get
            Return m_Partnernr
        End Get
        Set(value As Integer)
            m_Partnernr = value
        End Set
    End Property

    Dim m_Personnr As Integer
    Property PersonNr As Integer
        Get
            Return m_Personnr
        End Get
        Set(value As Integer)
            m_Personnr = value
        End Set
    End Property

    Dim m_fanummer3 As String
    Property FANummer3 As String
        Get
            Return m_fanummer3
        End Get
        Set(value As String)
            m_fanummer3 = value
        End Set
    End Property

    Dim m_ordernr As String
    Property Ordernr As String
        Get
            Return m_ordernr
        End Get
        Set(value As String)
            m_ordernr = value
        End Set
    End Property

    Dim m_dokumenttypnr As String
    Property Dokumenttypnr As String
        Get
            Return m_dokumenttypnr
        End Get
        Set(value As String)
            m_dokumenttypnr = value
        End Set
    End Property

    Dim m_direkteErstellung As String
    Property Direkteerstellung As String
        Get
            Return m_direkteErstellung
        End Get
        Set(value As String)
            m_direkteErstellung = value
        End Set
    End Property

    Dim m_dokumentpaket As String
    Property Dokumentpaket As String
        Get
            Return m_dokumentpaket
        End Get
        Set(value As String)
            m_dokumentpaket = value
        End Set
    End Property

    Dim m_Postzustellung As String
    Property Postzustellung As String
        Get
            Return m_Postzustellung
        End Get
        Set(value As String)
            m_Postzustellung = value
        End Set
    End Property

    Dim m_Zustaendig As String
    Property Zustaendig As String
        Get
            Return m_Zustaendig
        End Get
        Set(value As String)
            m_Zustaendig = value
        End Set
    End Property

    Dim m_uslinks As String
    Property USLinks As String
        Get
            Return m_uslinks
        End Get
        Set(value As String)
            m_uslinks = value
        End Set
    End Property

    Dim m_usrechts As String
    Property USRechts As String
        Get
            Return m_usrechts
        End Get
        Set(value As String)
            m_usrechts = value
        End Set
    End Property

    Dim m_BCFrage As String
    Property BCFrage As String
        Get
            Return m_BCFrage
        End Get
        Set(value As String)
            m_BCFrage = value
        End Set
    End Property
    Dim m_statuswechsel As String
    Property Statuswechsel As String
        Get
            Return m_statuswechsel
        End Get
        Set(value As String)
            m_statuswechsel = value
        End Set
    End Property
    Dim m_dokumentdatum As String
    Property Dokumentdatum As String
        Get
            Return m_dokumentdatum
        End Get
        Set(value As String)
            m_dokumentdatum = value
        End Set
    End Property

    Dim m_Verantwortlich As String
    Property Verantwortlich As String
        Get
            Return m_Verantwortlich
        End Get
        Set(value As String)
            m_Verantwortlich = value
        End Set
    End Property
    Dim m_adokumentwerte As ArrayList
    Property ADokumentwerte As ArrayList
        Get
            Return m_adokumentwerte
        End Get
        Set(value As ArrayList)
            m_adokumentwerte = value
        End Set
    End Property

    Dim m_Dokumentid As String
    Property Dokumentid As String
        Get
            Return m_Dokumentid
        End Get
        Set(value As String)
            m_Dokumentid = value
        End Set
    End Property

    Dim m_Avq_auth_extl_ref1 As String
    Property Avq_auth_extl_ref1 As String
        Get
            Return m_Avq_auth_extl_ref1
        End Get
        Set(value As String)
            m_Avq_auth_extl_ref1 = value
        End Set
    End Property

    Dim m_Avq_auth_extl_ref2 As String
    Property Avq_auth_extl_ref2 As String
        Get
            Return m_Avq_auth_extl_ref2
        End Get
        Set(value As String)
            m_Avq_auth_extl_ref2 = value
        End Set
    End Property

    Dim m_avq_auth_extl_ref_dt As New DataTable
    Property Avq_extl_ref_dt As DataTable
        Get
            Return m_avq_auth_extl_ref_dt
        End Get
        Set(value As DataTable)
            m_avq_auth_extl_ref_dt = value
        End Set
    End Property
    'Dim m_dsdokumentwerte As New DataSet
    'Property DS_Dokumentwerte As DataSet
    '    Get
    '        Return m_dsdokumentwerte
    '    End Get
    '    Set(value As DataSet)
    '        m_dsdokumentwerte = value
    '    End Set
    'End Property
#Region "Members"
    Private arrDoukmentWerte As New ArrayList()
    Private objDokumentWert As AvaloqDokumentWert
#End Region

#Region "Public methods"
    Public Function HeaderInfo(ByRef doc As XmlDocument, ByVal xmlfile As String)

        For Each n As XmlNode In doc.ChildNodes
            ' MsgBox(n.Name)
            For Each N1 As XmlNode In n.ChildNodes
                Select Case UCase(N1.Name)
                    Case "ACTIONID"
                    Case "CREATORTG"
                    Case "PARTNERNR"
                        Me.Partnernr = N1.InnerText
                    Case "PERSONNR"
                        Me.PersonNr = N1.InnerText
                    Case "FANUMMER3"
                        Me.FANummer3 = N1.InnerText
                    Case "ORDERNR"
                        Me.Ordernr = N1.InnerText.ToString
                    Case "DOKUMENTTYPNR"
                        Me.Dokumenttypnr = N1.InnerText
                    Case "DIREKTEERSTELLUNG"
                        Me.Direkteerstellung = N1.InnerText
                    Case "DOKUMENTPAKET"
                        Me.Dokumentpaket = N1.InnerText
                    Case "POSTZUSTELLUNG"
                        Me.Postzustellung = N1.InnerText
                    Case "USLINKS"
                        Me.USLinks = N1.InnerText
                    Case "USRECHTS"
                        Me.USRechts = N1.InnerText
                    Case "ZUSTAENDIG"
                        Me.Zustaendig = N1.InnerText
                    Case "VERANTWORTLICH"
                        Me.Verantwortlich = N1.InnerText

                    Case "DOKUMENTDATUM"
                        Me.Dokumentdatum = N1.InnerText
                    Case "BC"
                        Me.BCFrage = N1.InnerText
                    Case "STATUSWECHSEL"
                        Me.Statuswechsel = N1.InnerText
                    Case "DOKUMENTID"
                        Me.Statuswechsel = N1.InnerText
                End Select
            Next
        Next

    End Function
    '''<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)
            HeaderInfo(doc, xmlImportFile.FullName)
            'read all parameter nodes
            Dim parameterNodes As XmlNodeList
            parameterNodes = doc.SelectNodes("action/dokwerte/parameter")

            Me.Avq_extl_ref_dt.Rows.Clear()
            Me.Avq_extl_ref_dt.Columns.Clear()
            Me.Avq_extl_ref_dt.Columns.Add("Doktype")
            Me.Avq_extl_ref_dt.Columns.Add("RefNr")
            Me.Avq_extl_ref_dt.Columns.Add("avq_auth_extl_ref")

            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<75>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)

                        Dim xname As String
                        Dim doktyp As String
                        xname = name
                        doktyp = ""

                        If UCase(name).IndexOf("AVQ_AUTH_EXTL_REF_") > -1 Or UCase(name).IndexOf("AVQ_AUTH_EXTL_REF1_") > -1 Or UCase(name).IndexOf("AVQ_AUTH_EXTL_REF2_") > -1 Then
                            If UCase(name).IndexOf("AVQ_AUTH_EXTL_REF_") > -1 Then
                                xname = "AVQ_AUTH_EXTL_REF"
                                doktyp = UCase(name).Substring(18, Len(name) - 18)
                            End If
                            If UCase(name).IndexOf("AVQ_AUTH_EXTL_REF1_") > -1 Then
                                xname = "AVQ_AUTH_EXTL_REF1"
                                doktyp = UCase(name).Substring(19, Len(name) - 19)
                            End If
                            If UCase(name).IndexOf("AVQ_AUTH_EXTL_REF2_") > -1 Then
                                xname = "AVQ_AUTH_EXTL_REF2"
                                doktyp = UCase(name).Substring(19, Len(name) - 19)
                            End If

                        End If

                        Select Case UCase(xname)
                            Case "AVQ_AUTH_EXTL_REF", "AVQ_AUTH_EXTL_REF1"
                                Dim r As DataRow = Me.Avq_extl_ref_dt.NewRow
                                r.Item(0) = doktyp
                                r.Item(1) = 1
                                r.Item(2) = value
                                'Me.Avq_auth_extl_ref1 = value
                                Me.Avq_extl_ref_dt.Rows.Add(r)
                            Case "AVQ_AUTH_EXTL_REF2"
                                Dim r As DataRow = Me.Avq_extl_ref_dt.NewRow
                                r.Item(0) = doktyp
                                r.Item(1) = 2
                                r.Item(2) = value
                                'Me.Avq_auth_extl_ref1 = value
                                Me.Avq_extl_ref_dt.Rows.Add(r)
                        End Select

                        'If UCase(name) = "AVQ_AUTH_EXTL_REF" Then
                        '    Dim r As DataRow = Me.Avq_extl_ref_dt.NewRow
                        '    r.Item(0) = ""
                        '    r.Item(1) = 1
                        '    r.Item(2) = value
                        '    Me.Avq_auth_extl_ref1 = value
                        '    Me.Avq_extl_ref_dt.Rows.Add(r)
                        'End If


                        'If UCase(name) = "AVQ_AUTH_EXTL_REF1" Then
                        '    Dim r As DataRow = Me.Avq_extl_ref_dt.NewRow
                        '    r.Item(0) = ""
                        '    r.Item(1) = 1
                        '    r.Item(2) = value
                        '    Me.Avq_auth_extl_ref1 = value
                        '    Me.Avq_extl_ref_dt.Rows.Add(r)
                        'End If
                        'If UCase(name) = "AVQ_AUTH_EXTL_REF2" Then
                        '    Dim r As DataRow = Me.Avq_extl_ref_dt.NewRow
                        '    r.Item(0) = ""
                        '    r.Item(1) = 2
                        '    r.Item(2) = value
                        '    Me.Avq_auth_extl_ref1 = value
                        '    Me.Avq_extl_ref_dt.Rows.Add(r)
                        'End If



                    Catch ex As Exception
                        TKBLib.Errorhandling.TraceHelper.Msg("EdokaLib.Common.Action.Load", ex.Message & ex.StackTrace, TraceLevel.Error)
                    End Try
                    parameterCounter = parameterCounter + 1

                Next
                Me.ADokumentwerte = arrDoukmentWerte
            End If

            'Dim ds As New DataSet
            'ds.ReadXml(xmlImportFile.FullName)
            'For Each dt As DataTable In ds.Tables
            '    If UCase(dt.TableName) = "DOKUMENT" Then
            '        Me.DS_Dokumentwerte.Tables.Add(dt.Copy)
            '    End If
            '    If UCase(dt.TableName) = "PARAMETER" Then
            '        Me.DS_Dokumentwerte.Tables.Add(dt.Copy)
            '    End If

            'Next
            'ds.Dispose()
        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

    Public Function getAvaloqDokumentWertByName(ByVal aDokumentwerte As ArrayList, ByVal name As String, ByVal Techname As String) As AvaloqDokumentWert
        Dim objRet As AvaloqDokumentWert = Nothing
        Dim x As AvaloqDokumentWert
        Dim i As Integer
        Try
            For i = 0 To aDokumentwerte.Count - 1
                x = aDokumentwerte(i)
                If aDokumentwerte(i).name = name Or aDokumentwerte(i).name = Techname Then
                    Return x
                    objRet.name = x.name
                    objRet.value = x.value
                End If
            Next
            Return objRet
        Catch
        End Try

    End Function


    '20080401 RGL Funktion zum L<>schen der Werte, damit nicht 2x abgef<65>llt (auch bei manuellem Erstellen)
    Public Sub clearAvaloqDokumentWerte()
        arrDoukmentWerte.Clear()
    End Sub
#End Region

End Class