Navigation:  Skripts > Diverse Skripte > 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