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.
49 lines
2.5 KiB
49 lines
2.5 KiB
Namespace LsvBe
|
|
Public Class ExistingDocuments
|
|
Inherits DocumentsDetermination
|
|
|
|
''' <summary>
|
|
''' Füllt Items mit passenden Dokumenten. Zuerst wird nur mit Partner- und Paginatornummer gesucht.
|
|
''' Die restlichen Suchkriterien werden erst angewendet, wenn mit Partner- und Paginatornummer
|
|
''' keine passenden Dokumente gefunden werden können.
|
|
''' </summary>
|
|
''' <returns>Always true</returns>
|
|
Public Overrides Function Render() As Boolean
|
|
Dim ret As Boolean = True
|
|
Dim partnerNummer As String = XmlHelper.GetItemValueByTagName(Me.Contract, "partnerNummer")
|
|
If Not String.IsNullOrEmpty(partnerNummer) Then
|
|
Dim dokumentList As DokumentList = New DokumentList(Me.Contract, partnerNummer)
|
|
dokumentList.AddSelektor("pagi_nr", "Paginatornummer", True)
|
|
dokumentList.Fill()
|
|
For Each dokumentId As String In dokumentList.DokumentIds
|
|
Dim edokaDokument As EdokaDokument = New EdokaDokument()
|
|
edokaDokument.Id = dokumentId
|
|
Me.Items.Add(edokaDokument)
|
|
Next
|
|
If Me.Items.Count = 0 Then
|
|
Dim lsvIds As String = XmlHelper.GetItemValueByTagName(Me.Contract, "lsvId")
|
|
Dim numberOfLists As Integer = lsvIds.Split(";").Length
|
|
If numberOfLists = 0 Then numberOfLists = 1
|
|
|
|
For counter As Integer = 0 To numberOfLists - 1
|
|
dokumentList = New DokumentList(Me.Contract, partnerNummer)
|
|
dokumentList.AddSelektor("iban", "IBAN")
|
|
dokumentList.AddSelektor("lsvId", "LSV-ID", False, counter)
|
|
dokumentList.AddSelektor("openDate", "BE_LSV-ID_gueltig_ab", False, -1, True)
|
|
dokumentList.AddSelektor("ref1", "Referenz1")
|
|
dokumentList.AddSelektor("ref2", "Referenz2")
|
|
dokumentList.Fill()
|
|
For Each dokumentId As String In dokumentList.DokumentIds
|
|
Dim edokaDokument As EdokaDokument = New EdokaDokument()
|
|
edokaDokument.Id = dokumentId
|
|
Me.Items.Add(edokaDokument)
|
|
Next
|
|
Next
|
|
End If
|
|
End If
|
|
Return ret
|
|
End Function
|
|
End Class
|
|
End Namespace
|
|
|