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.
33 lines
1.2 KiB
33 lines
1.2 KiB
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
|