KontoauszugImport

Einführung

Dieses Skript wird für den Import von Kontoauszügen verwendet.

Beispiel

Option Infer On Option Explicit Off Option Strict Off Imports Styletronix.AuftragsverwaltungV2.Common Imports Styletronix.AuftragsverwaltungV2 Imports Styletronix.AuftragsverwaltungV2.Banking Imports System.Linq Imports System Imports System.Data Imports System.Collections.Generic Imports Microsoft.VisualBasic Imports Styletronix.AuftragsverwaltungV2.Common.Konsilager Public Class DynamicCode Public Shared Sub Import(e As Styletronix.AuftragsverwaltungV2.Banking.ImportParameter) e.prg.Report(New Styletronix.Threading.TaskProgress(0, "Lade Datei...")) Dim doc = Subsembly.Sepa.SepaDocument.NewDocument("c:\temp\...myFile.xml") Select Case doc.MessageType Case Subsembly.Sepa.SepaMessageType.BankToCustomerAccountReport Dim msg As Subsembly.Sepa.SepaBankToCustomerAccountReport = doc.Message e.Handler.SetKonto(msg.Statement.Account.IBAN.IBAN, msg.Statement.Account.Name) e.Handler.ProcessSepaMessage(msg, "") Case Else Throw New Exception(String.Format("Der Dateityp {0} wird nicht unterstützt", doc.MessageType.ToString)) End Select End Sub End Class

Parameter

Styletronix.AuftragsverwaltungV2.Banking

Public Class ImportParameter Public Property Handler As KontoauszügeAbrufen Public Property SyncContext As System.Threading.SynchronizationContext Public Property prg As IProgress(Of Styletronix.Threading.TaskProgress) Public Property ctx As System.Threading.CancellationToken End Class Public Class KontoauszügeAbrufen Public Sub SetKonto(Iban As String, Bezeichnung As String) Public Sub KontostandSpeichern(ByVal aMT940 As Subsembly.Swift.SwiftStatement) Public Sub KontostandSpeichern(ByVal aMessage As Subsembly.Sepa.SepaBankToCustomerStatement) Public Function ExtractXMLFromZipData(ZipData As Byte()) As List(Of String) Public Sub ProcessSepaMessage(aMessage As Subsembly.Sepa.SepaBankToCustomerDebitCreditNotification, OriginalXML As String) Public Sub ProcessSepaMessage(aMessage As Subsembly.Sepa.SepaBankToCustomerAccountReport, OriginalXML As String) Public Function ProcessSepaMessage(aMessage As Subsembly.Sepa.SepaBankToCustomerStatement, OriginalXML As String) As ProcessSepaMessageResult Public Function KontoauszügeZuordnen(XML As String) As ProcessSepaMessageResult Public Sub KontoauszügeZuordnen(ByVal MT940 As Subsembly.Swift.SwiftStatement) Public Shared Function SepaTriStateFromBoolean(bool As Boolean?) As Subsembly.Sepa.SepaTriState Public Class ProcessSepaMessageResult Public Property CAMT54_Required As Boolean End Class

Public Class KontoauszügeAbrufenResult Public Property CAMT54_Required As Boolean End Class

Public Structure KontoauszügeAbrufen_Result Dim Fehler As Exception Dim Protokoll As String End Structure

End Class

Quelle

• Ursprungsdatei: kontoauszugimport.htm