Imports System.Xml

Namespace LsvBe
    Public Class CanceledDocuments
        Inherits DocumentsDetermination

        ''' <summary>
        ''' Hebt die LSV BEs gemäss Contract auf.
        ''' Dazu wird der ConnectionString benötigt
        ''' </summary>
        ''' <returns>True, wenn ein einziges Dokument identifiziert und aufgehoben werden konnte. Sonst False</returns>
        Public Overrides Function Render() As Boolean
            Dim ret As Boolean = False

            Dim existingDocuments As ExistingDocuments = New ExistingDocuments()
            existingDocuments.ConnectionString = Me.ConnectionString
            existingDocuments.Contract = Me.Contract
            existingDocuments.Render()
            Me.Results.AddRange(existingDocuments.Results)

            If existingDocuments.Items.Count = 1 Then
                For Each dokument As EdokaDokument In existingDocuments.Items
                    ret = dokument.Cancel("EDKB04 hat eine LSV Stammdaten Message von Avaloq erhalten und deshalb das Dokument aufgehoben")
                    If ret Then Me.Items.Add(dokument)
                Next
            End If

            Return ret
        End Function
    End Class

End Namespace