|
|
Imports System.Xml
|
|
|
Imports System.Data.SqlClient
|
|
|
|
|
|
Public Class Stammdaten
|
|
|
|
|
|
Public _ResultName As String
|
|
|
Public _ResultHeader As resultHeader = New resultHeader
|
|
|
Public _ResultContent As resultContent = New resultContent
|
|
|
Public _ResultState As resultState = New resultState
|
|
|
|
|
|
Public HasResultHeader As Boolean = False
|
|
|
Public HasResultContent As Boolean = False
|
|
|
Public HasPartnerNat As Boolean = False
|
|
|
Public HasPartnerJur As Boolean = False
|
|
|
Public HasHauptadresse As Boolean = False
|
|
|
Public HasVersandadresse As Boolean = False
|
|
|
Public HasMitarbeiter As Boolean = False
|
|
|
Public HasVV As Boolean = False
|
|
|
Public HasResultState As Boolean = False
|
|
|
Public XmlOk As Boolean = False
|
|
|
|
|
|
Private _doc As XmlDocument
|
|
|
Private Const ROOTNODE As String = "result"
|
|
|
|
|
|
#Region "Servicefunktionen"
|
|
|
|
|
|
Public Function fill(ByRef doc As XmlDocument) As Boolean
|
|
|
Dim success As Boolean = True
|
|
|
Me._doc = doc
|
|
|
'Einlesen einzeln
|
|
|
Me._ResultName = ReadSingleNode(ROOTNODE & "/resultName")
|
|
|
If ExistsNode(ROOTNODE & "/resultHeader") Then
|
|
|
HasResultHeader = True
|
|
|
Me._ResultHeader._mandant = ReadSingleNode(ROOTNODE & "/resultHeader/mandant")
|
|
|
Me._ResultHeader._Sprache = ReadSingleNode(ROOTNODE & "/resultHeader/sprache")
|
|
|
Me._ResultHeader._userID = ReadSingleNode(ROOTNODE & "/resultHeader/userId")
|
|
|
End If
|
|
|
If ExistsNode(ROOTNODE & "/resultState") Then
|
|
|
HasResultState = True
|
|
|
Me._ResultState._status = ReadSingleNode(ROOTNODE & "/resultState/state")
|
|
|
Me._ResultState._error = ReadSingleNode(ROOTNODE & "/resultState/error")
|
|
|
End If
|
|
|
If ExistsNode(ROOTNODE & "/resultContent") Then
|
|
|
HasResultContent = True
|
|
|
Dim done As Boolean = False
|
|
|
If ExistsNode(ROOTNODE & "/resultContent/partnerNat") Then
|
|
|
HasPartnerNat = True
|
|
|
done = True
|
|
|
Me._ResultContent._partnerNat._ablaufDatum = ReadSingleNode(ROOTNODE & "/resultContent/partnerNat/ablaufDatum")
|
|
|
Me._ResultContent._partnerNat._auslaenderstatus = ReadSingleNode(ROOTNODE & "/resultContent/partnerNat/auslaenderstatus")
|
|
|
Me._ResultContent._partnerNat._beruf = ReadSingleNode(ROOTNODE & "/resultContent/partnerNat/beruf")
|
|
|
Me._ResultContent._partnerNat._betreuerId = ReadSingleNode(ROOTNODE & "/resultContent/partnerNat/betreuerId")
|
|
|
Me._ResultContent._partnerNat._domizilCode = ReadSingleNode(ROOTNODE & "/resultContent/partnerNat/domizilCode")
|
|
|
Me._ResultContent._partnerNat._geburtsDatum = ReadSingleNode(ROOTNODE & "/resultContent/partnerNat/geburtsDatum")
|
|
|
Me._ResultContent._partnerNat._kundenSegment = ReadSingleNode(ROOTNODE & "/resultContent/partnerNat/kundenSegment")
|
|
|
Me._ResultContent._partnerNat._kurzname = ReadSingleNode(ROOTNODE & "/resultContent/partnerNat/kurzname")
|
|
|
Me._ResultContent._partnerNat._name = ReadSingleNode(ROOTNODE & "/resultContent/partnerNat/name")
|
|
|
Me._ResultContent._partnerNat._nationalitaet = ReadSingleNode(ROOTNODE & "/resultContent/partnerNat/nationalitaet")
|
|
|
Me._ResultContent._partnerNat._partnerAbwicklungsformCode = ReadSingleNode(ROOTNODE & "/resultContent/partnerNat/partnerAbwicklungsformCode")
|
|
|
Me._ResultContent._partnerNat._partnerNummer = ReadSingleNode(ROOTNODE & "/resultContent/partnerNat/partnerNummer")
|
|
|
Me._ResultContent._partnerNat._sex = ReadSingleNode(ROOTNODE & "/resultContent/partnerNat/sex")
|
|
|
Me._ResultContent._partnerNat._sprache = ReadSingleNode(ROOTNODE & "/resultContent/partnerNat/sprache")
|
|
|
Me._ResultContent._partnerNat._status = ReadSingleNode(ROOTNODE & "/resultContent/partnerNat/status")
|
|
|
Me._ResultContent._partnerNat._versandInstruktion = ReadSingleNode(ROOTNODE & "/resultContent/partnerNat/versandInstruktion")
|
|
|
Me._ResultContent._partnerNat._vipCode = ReadSingleNode(ROOTNODE & "/resultContent/partnerNat/vipCode")
|
|
|
Me._ResultContent._partnerNat._vorname = ReadSingleNode(ROOTNODE & "/resultContent/partnerNat/vorname")
|
|
|
Me._ResultContent._partnerNat._AngestelltenArt = ReadSingleNode(ROOTNODE & "/resultContent/partnerNat/angestelltenArt")
|
|
|
If ExistsNode(ROOTNODE & "/resultContent/partnerNat/uid") Then
|
|
|
Me._ResultContent._partnerNat._uid = ReadSingleNode(ROOTNODE & "/resultContent/partnerNat/uid")
|
|
|
End If
|
|
|
End If
|
|
|
If Not (done) And ExistsNode(ROOTNODE & "/resultContent/partnerJur") Then
|
|
|
HasPartnerJur = True
|
|
|
done = True
|
|
|
Me._ResultContent._partnerJur._ablaufDatum = ReadSingleNode(ROOTNODE & "/resultContent/partnerJur/ablaufDatum")
|
|
|
Me._ResultContent._partnerJur._betreuerId = ReadSingleNode(ROOTNODE & "/resultContent/partnerJur/betreuerId")
|
|
|
Me._ResultContent._partnerJur._branche = ReadSingleNode(ROOTNODE & "/resultContent/partnerJur/branche")
|
|
|
Me._ResultContent._partnerJur._domizilCode = ReadSingleNode(ROOTNODE & "/resultContent/partnerJur/domizilCode")
|
|
|
Me._ResultContent._partnerJur._handelRegDatum = ReadSingleNode(ROOTNODE & "/resultContent/partnerJur/handelRegDatum")
|
|
|
Me._ResultContent._partnerJur._handelRegOrt = ReadSingleNode(ROOTNODE & "/resultContent/partnerJur/handelRegOrt")
|
|
|
Me._ResultContent._partnerJur._kundenSegment = ReadSingleNode(ROOTNODE & "/resultContent/partnerJur/kundenSegment")
|
|
|
Me._ResultContent._partnerJur._kurzname = ReadSingleNode(ROOTNODE & "/resultContent/partnerJur/kurzname")
|
|
|
Me._ResultContent._partnerJur._name = ReadSingleNode(ROOTNODE & "/resultContent/partnerJur/name")
|
|
|
Me._ResultContent._partnerJur._nationalitaet = ReadSingleNode(ROOTNODE & "/resultContent/partnerJur/nationalitaet")
|
|
|
Me._ResultContent._partnerJur._partnerAbwicklungsformCode = ReadSingleNode(ROOTNODE & "/resultContent/partnerJur/partnerAbwicklungsformCode")
|
|
|
Me._ResultContent._partnerJur._partnerNummer = ReadSingleNode(ROOTNODE & "/resultContent/partnerJur/partnerNummer")
|
|
|
Me._ResultContent._partnerJur._sprache = ReadSingleNode(ROOTNODE & "/resultContent/partnerJur/sprache")
|
|
|
Me._ResultContent._partnerJur._status = ReadSingleNode(ROOTNODE & "/resultContent/partnerJur/status")
|
|
|
Me._ResultContent._partnerJur._versandInstruktion = ReadSingleNode(ROOTNODE & "/resultContent/partnerJur/versandInstruktion")
|
|
|
Me._ResultContent._partnerJur._vipCode = ReadSingleNode(ROOTNODE & "/resultContent/partnerJur/vipCode")
|
|
|
if ExistsNode(ROOTNODE & "/resultContent/partnerJur/uid") then
|
|
|
Me._ResultContent._partnerJur._uid = ReadSingleNode(ROOTNODE & "/resultContent/partnerJur/uid")
|
|
|
End If
|
|
|
End If
|
|
|
If Not (done) And ExistsNode(ROOTNODE & "/resultContent/hauptAdresse") Then
|
|
|
HasHauptadresse = True
|
|
|
done = True
|
|
|
Me._ResultContent._hauptAdresse._ablaufDatumAdresse = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/ablaufDatumAdresse")
|
|
|
Me._ResultContent._hauptAdresse._banklagernd = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/banklagernd")
|
|
|
Me._ResultContent._hauptAdresse._briefanrede1 = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/briefanrede1")
|
|
|
Me._ResultContent._hauptAdresse._briefanrede1Code = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/briefanrede1Code")
|
|
|
Me._ResultContent._hauptAdresse._briefanrede2Zeile1 = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/briefanrede2Zeile1")
|
|
|
Me._ResultContent._hauptAdresse._briefanrede2Zeile2 = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/briefanrede2Zeile2")
|
|
|
Me._ResultContent._hauptAdresse._firma = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/firma")
|
|
|
Me._ResultContent._hauptAdresse._hausNr = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/hausNr")
|
|
|
Me._ResultContent._hauptAdresse._kopien = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/kopien")
|
|
|
Me._ResultContent._hauptAdresse._laenderCode = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/laenderCode")
|
|
|
Me._ResultContent._hauptAdresse._land = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/land")
|
|
|
Me._ResultContent._hauptAdresse._nachname = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/nachname")
|
|
|
Me._ResultContent._hauptAdresse._namenZusatz = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/namenZusatz")
|
|
|
Me._ResultContent._hauptAdresse._objektNr = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/objektNr")
|
|
|
Me._ResultContent._hauptAdresse._objektRefNr = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/objektRefNr")
|
|
|
Me._ResultContent._hauptAdresse._ort = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/ort")
|
|
|
Me._ResultContent._hauptAdresse._ortZusatz = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/ortZusatz")
|
|
|
Me._ResultContent._hauptAdresse._plz = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/plz")
|
|
|
Me._ResultContent._hauptAdresse._status = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/status")
|
|
|
Me._ResultContent._hauptAdresse._strasse = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/strasse")
|
|
|
Me._ResultContent._hauptAdresse._titelNachgestellt = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/titelNachgestellt")
|
|
|
Me._ResultContent._hauptAdresse._titelVorgestellt = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/titelVorgestellt")
|
|
|
Me._ResultContent._hauptAdresse._titelZwischengestellt = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/titelZwischengestellt")
|
|
|
Me._ResultContent._hauptAdresse._versandfaehig = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/versandfaehig")
|
|
|
Me._ResultContent._hauptAdresse._vorname1 = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/vorname1")
|
|
|
Me._ResultContent._hauptAdresse._vorname2 = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/vorname2")
|
|
|
Me._ResultContent._hauptAdresse._vorname3 = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/vorname3")
|
|
|
Me._ResultContent._hauptAdresse._vorname4 = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/vorname4")
|
|
|
Me._ResultContent._hauptAdresse._weiler = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/weiler")
|
|
|
Me._ResultContent._hauptAdresse._zeile_1 = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/zeile1")
|
|
|
Me._ResultContent._hauptAdresse._zeile_2 = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/zeile2")
|
|
|
Me._ResultContent._hauptAdresse._zeile_3 = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/zeile3")
|
|
|
Me._ResultContent._hauptAdresse._zeile_4 = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/zeile4")
|
|
|
Me._ResultContent._hauptAdresse._zeile_5 = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/zeile5")
|
|
|
Me._ResultContent._hauptAdresse._zeile_6 = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/zeile6")
|
|
|
Me._ResultContent._hauptAdresse._zeile_7 = ReadSingleNode(ROOTNODE & "/resultContent/hauptAdresse/zeile7")
|
|
|
End If
|
|
|
If Not (done) And ExistsNode(ROOTNODE & "/resultContent/versandAdresse") Then
|
|
|
HasVersandadresse = True
|
|
|
done = True
|
|
|
Me._ResultContent._versandAdresse._ablaufDatumAdresse = ReadSingleNode(ROOTNODE & "/resultContent/versandAdresse/ablaufDatumAdresse")
|
|
|
Me._ResultContent._versandAdresse._adressatzeile1 = ReadSingleNode(ROOTNODE & "/resultContent/versandAdresse/adressatZeile1")
|
|
|
Me._ResultContent._versandAdresse._adressatzeile2 = ReadSingleNode(ROOTNODE & "/resultContent/versandAdresse/adressatZeile2")
|
|
|
Me._ResultContent._versandAdresse._adressatzeile3 = ReadSingleNode(ROOTNODE & "/resultContent/versandAdresse/adressatZeile3")
|
|
|
Me._ResultContent._versandAdresse._banklagernd = ReadSingleNode(ROOTNODE & "/resultContent/versandAdresse/banklagernd")
|
|
|
Me._ResultContent._versandAdresse._kopien = ReadSingleNode(ROOTNODE & "/resultContent/versandAdresse/kopien")
|
|
|
Me._ResultContent._versandAdresse._land = ReadSingleNode(ROOTNODE & "/resultContent/versandAdresse/land")
|
|
|
Me._ResultContent._versandAdresse._objektNr = ReadSingleNode(ROOTNODE & "/resultContent/versandAdresse/objektNr")
|
|
|
Me._ResultContent._versandAdresse._objektRefNr = ReadSingleNode(ROOTNODE & "/resultContent/versandAdresse/objektRefNr")
|
|
|
Me._ResultContent._versandAdresse._objektRefTyp = ReadSingleNode(ROOTNODE & "/resultContent/versandAdresse/objektRefTyp")
|
|
|
Me._ResultContent._versandAdresse._ort = ReadSingleNode(ROOTNODE & "/resultContent/versandAdresse/ort")
|
|
|
Me._ResultContent._versandAdresse._plz = ReadSingleNode(ROOTNODE & "/resultContent/versandAdresse/plz")
|
|
|
Me._ResultContent._versandAdresse._status = ReadSingleNode(ROOTNODE & "/resultContent/versandAdresse/status")
|
|
|
Me._ResultContent._versandAdresse._versandfaehig = ReadSingleNode(ROOTNODE & "/resultContent/versandAdresse/versandfaehig")
|
|
|
Me._ResultContent._versandAdresse._zeile1 = ReadSingleNode(ROOTNODE & "/resultContent/versandAdresse/zeile1")
|
|
|
Me._ResultContent._versandAdresse._zeile2 = ReadSingleNode(ROOTNODE & "/resultContent/versandAdresse/zeile2")
|
|
|
Me._ResultContent._versandAdresse._zeile3 = ReadSingleNode(ROOTNODE & "/resultContent/versandAdresse/zeile3")
|
|
|
Me._ResultContent._versandAdresse._zeile4 = ReadSingleNode(ROOTNODE & "/resultContent/versandAdresse/zeile4")
|
|
|
'20080909 - B
|
|
|
'Anpassung(SHU)
|
|
|
'<27>bernahme Zeile 5 der Versandinstruktion
|
|
|
' Me._ResultContent._versandAdresse._zeile5 = ReadSingleNode(ROOTNODE & "/resultContent/versandAdresse/zeile")
|
|
|
Me._ResultContent._versandAdresse._zeile5 = ReadSingleNode(ROOTNODE & "/resultContent/versandAdresse/zeile5")
|
|
|
Me._ResultContent._versandAdresse._zeile6 = ReadSingleNode(ROOTNODE & "/resultContent/versandAdresse/zeile6")
|
|
|
Me._ResultContent._versandAdresse._zeile7 = ReadSingleNode(ROOTNODE & "/resultContent/versandAdresse/zeile7")
|
|
|
Me._ResultContent._versandAdresse._briefanrede2Zeile1 = ReadSingleNode(ROOTNODE & "/resultContent/versandAdresse/briefanrede2Zeile1")
|
|
|
Me._ResultContent._versandAdresse._briefanrede2Zeile2 = ReadSingleNode(ROOTNODE & "/resultContent/versandAdresse/briefanrede2Zeile2")
|
|
|
End If
|
|
|
'If Not (done) And ExistsNode(ROOTNODE & "/resultContent/mitarbeiter") Then
|
|
|
' HasMitarbeiter = True
|
|
|
' done = True
|
|
|
' Me._ResultContent._mitarbeiter._ablaufDatumMitarbeiter = ReadSingleNode(ROOTNODE & "/resultContent/Mitarbeiter/ablaufDatumMitarbeiter")
|
|
|
' Me._ResultContent._mitarbeiter._emailMitarbeiter = ReadSingleNode(ROOTNODE & "/resultContent/Mitarbeiter/emailMitarbeiter")
|
|
|
' Me._ResultContent._mitarbeiter._faxMitarbeiter = ReadSingleNode(ROOTNODE & "/resultContent/Mitarbeiter/faxMitarbeiter")
|
|
|
' Me._ResultContent._mitarbeiter._idMitarbeiter = ReadSingleNode(ROOTNODE & "/resultContent/Mitarbeiter/idMitarbeiter")
|
|
|
' Me._ResultContent._mitarbeiter._nameMitarbeiter = ReadSingleNode(ROOTNODE & "/resultContent/Mitarbeiter/nameMitarbeiter")
|
|
|
' Me._ResultContent._mitarbeiter._partnerNummerBankEinheit = ReadSingleNode(ROOTNODE & "/resultContent/Mitarbeiter/partnerNummerBankEinheit")
|
|
|
' Me._ResultContent._mitarbeiter._partnerNummerMitarbeiter = ReadSingleNode(ROOTNODE & "/resultContent/Mitarbeiter/partnerNummerMitarbeiter")
|
|
|
' Me._ResultContent._mitarbeiter._status = ReadSingleNode(ROOTNODE & "/resultContent/Mitarbeiter/status")
|
|
|
' Me._ResultContent._mitarbeiter._telMitarbeiter = ReadSingleNode(ROOTNODE & "/resultContent/Mitarbeiter/telMitarbeiter")
|
|
|
' Me._ResultContent._mitarbeiter._vornameMitarbeiter = ReadSingleNode(ROOTNODE & "/resultContent/Mitarbeiter/vornameMitarbeiter")
|
|
|
'End If
|
|
|
If Not (done) And ExistsNode(ROOTNODE & "/resultContent/vv") Then
|
|
|
HasVV = True
|
|
|
done = True
|
|
|
Me._ResultContent._vv._ablaufDatum = ReadSingleNode(ROOTNODE & "/resultContent/vv/ablaufDatum")
|
|
|
Me._ResultContent._vv._ausnahmeVI = ReadSingleNode(ROOTNODE & "/resultContent/vv/ausnahmeVI")
|
|
|
Me._ResultContent._vv._bankEinheitId = ReadSingleNode(ROOTNODE & "/resultContent/vv/bankEinheitId")
|
|
|
Me._ResultContent._vv._externeNr = ReadSingleNode(ROOTNODE & "/resultContent/vv/externeNr")
|
|
|
Me._ResultContent._vv._formatierteNr = ReadSingleNode(ROOTNODE & "/resultContent/vv/formatierteNr")
|
|
|
Me._ResultContent._vv._kontoGruppe = ReadSingleNode(ROOTNODE & "/resultContent/vv/kontoGruppe")
|
|
|
Me._ResultContent._vv._kontoTyp = ReadSingleNode(ROOTNODE & "/resultContent/vv/kontoTyp")
|
|
|
Me._ResultContent._vv._nummer = ReadSingleNode(ROOTNODE & "/resultContent/vv/nummer")
|
|
|
Me._ResultContent._vv._objektRef = ReadSingleNode(ROOTNODE & "/resultContent/vv/objektRef")
|
|
|
Me._ResultContent._vv._produkt = ReadSingleNode(ROOTNODE & "/resultContent/vv/produkt")
|
|
|
Me._ResultContent._vv._produktBezeichnung = ReadSingleNode(ROOTNODE & "/resultContent/vv/produktBezeichnung")
|
|
|
Me._ResultContent._vv._rubrik = ReadSingleNode(ROOTNODE & "/resultContent/vv/rubrik")
|
|
|
Me._ResultContent._vv._status = ReadSingleNode(ROOTNODE & "/resultContent/vv/status")
|
|
|
Me._ResultContent._vv._text = ReadSingleNode(ROOTNODE & "/resultContent/vv/text")
|
|
|
Me._ResultContent._vv._waehrung = ReadSingleNode(ROOTNODE & "/resultContent/vv/waehrung")
|
|
|
Me._ResultContent._vv._PartnerNummer = ReadSingleNode(ROOTNODE & "/resultContent/vv/partnerNummer")
|
|
|
Me._ResultContent._vv._kopien = ReadSingleNode(ROOTNODE & "/resultContent/vv/kopien")
|
|
|
End If
|
|
|
If Not (done) And ExistsNode(ROOTNODE & "/resultContent/document") Then
|
|
|
'SPEZIAL Zuerst Testen ob EBanking, sonst wird die Message ignoriert, Dank an Comit f<>r den Murks
|
|
|
If InStr(ReadSingleNode(ROOTNODE & "/resultContent/document/formatierteNr"), "EBANKING", CompareMethod.Text) Then
|
|
|
HasVV = True
|
|
|
done = True
|
|
|
'Me._ResultContent._vv._ablaufDatum = ReadSingleNode(ROOTNODE & "/resultContent/document/ablaufDatum")
|
|
|
'Me._ResultContent._vv._ausnahmeVI = ReadSingleNode(ROOTNODE & "/resultContent/document/ausnahmeVI")
|
|
|
'Me._ResultContent._vv._bankEinheitId = ReadSingleNode(ROOTNODE & "/resultContent/document/bankEinheitId")
|
|
|
Me._ResultContent._vv._externeNr = ReadSingleNode(ROOTNODE & "/resultContent/document/externeNr")
|
|
|
Me._ResultContent._vv._formatierteNr = ReadSingleNode(ROOTNODE & "/resultContent/document/formatierteNr")
|
|
|
'Me._ResultContent._vv._kontoGruppe = ReadSingleNode(ROOTNODE & "/resultContent/document/kontoGruppe")
|
|
|
'Me._ResultContent._vv._kontoTyp = ReadSingleNode(ROOTNODE & "/resultContent/document/kontoTyp")
|
|
|
Me._ResultContent._vv._kontoTyp = "EBanking"
|
|
|
'Me._ResultContent._vv._nummer = ReadSingleNode(ROOTNODE & "/resultContent/document/nummer")
|
|
|
'Me._ResultContent._vv._objektRef = ReadSingleNode(ROOTNODE & "/resultContent/document/objektRef")
|
|
|
'Me._ResultContent._vv._produkt = ReadSingleNode(ROOTNODE & "/resultContent/document/produkt")
|
|
|
Me._ResultContent._vv._produktBezeichnung = ReadSingleNode(ROOTNODE & "/resultContent/document/produktBezeichnung")
|
|
|
Me._ResultContent._vv._rubrik = ReadSingleNode(ROOTNODE & "/resultContent/document/rubrik")
|
|
|
Me._ResultContent._vv._status = ReadSingleNode(ROOTNODE & "/resultContent/document/status")
|
|
|
'Me._ResultContent._vv._text = ReadSingleNode(ROOTNODE & "/resultContent/document/text")
|
|
|
'Me._ResultContent._vv._waehrung = ReadSingleNode(ROOTNODE & "/resultContent/document/waehrung")
|
|
|
Me._ResultContent._vv._PartnerNummer = ReadSingleNode(ROOTNODE & "/resultContent/document/partnerNummer")
|
|
|
'Me._ResultContent._vv._kopien = ReadSingleNode(ROOTNODE & "/resultContent/document/kopien")
|
|
|
End If
|
|
|
End If
|
|
|
If Not (done) Then
|
|
|
m_log.Log("EDKB04: Es wurde kein g<>ltiges Element gefunden, keine Verarbeitung", Common.Common.JournalEntryType.Information)
|
|
|
End If
|
|
|
End If
|
|
|
Return success
|
|
|
End Function
|
|
|
|
|
|
Private Function ReadSingleNode(ByVal NodeNameXML As String) As String
|
|
|
Dim result As String = ""
|
|
|
Try
|
|
|
result = _doc.SelectSingleNode(NodeNameXML).InnerText
|
|
|
Catch ex As Exception
|
|
|
'Absichtliches leeres Catch!
|
|
|
'Form1.Log("Read: Node nicht gefunden:" & NodeNameXML)
|
|
|
End Try
|
|
|
Return result
|
|
|
End Function
|
|
|
|
|
|
Private Function ExistsNode(ByVal NodeNameXML As String) As Boolean
|
|
|
Dim result As Boolean
|
|
|
Try
|
|
|
Dim test As XmlNode
|
|
|
test = _doc.SelectSingleNode(NodeNameXML)
|
|
|
If test Is Nothing Then
|
|
|
'Form1.Log("Exists: Node nicht gefunden:" & NodeNameXML)
|
|
|
result = False
|
|
|
Else
|
|
|
'm_log.Log("EDKB04: Exists: " & NodeNameXML, Common.Common.JournalEntryType.Information)
|
|
|
result = True
|
|
|
End If
|
|
|
Catch ex As Exception
|
|
|
m_log.Log(ex.Message, Common.Common.JournalEntryType.Error)
|
|
|
End Try
|
|
|
Return result
|
|
|
End Function
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
#Region "Transformationen Hilfsfunktionen"
|
|
|
|
|
|
Private Function Transform_title(ByVal s_av_code As String, ByVal TitelArt As String) As String
|
|
|
Dim result As String = ""
|
|
|
Dim ex As SqlDataAdapter = New SqlDataAdapter
|
|
|
Dim exdata As New DataSet
|
|
|
Select Case TitelArt
|
|
|
Case "Vorgestellt"
|
|
|
ex = New SqlDataAdapter("Select NRTTV00 AS titleCode from etxttv where BETTV00 = '" & s_av_code & "' AND SAREC00 = 2", Globals.sConnectionString_edoka)
|
|
|
ex.Fill(exdata, "etxttv")
|
|
|
Case "Zwischengestellt"
|
|
|
ex = New SqlDataAdapter("Select NRTTZ00 AS titleCode from etxttz where BETTZ00 = '" & s_av_code & "' AND SAREC00 = 2", Globals.sConnectionString_edoka)
|
|
|
ex.Fill(exdata, "etxtt")
|
|
|
Case "Nachgestellt"
|
|
|
ex = New SqlDataAdapter("Select NRTTN00 AS titleCode from etxttn where BETTN00 = '" & s_av_code & "' AND SAREC00 = 2", Globals.sConnectionString_edoka)
|
|
|
ex.Fill(exdata, "etxtt")
|
|
|
|
|
|
End Select
|
|
|
Dim i As Integer
|
|
|
Try
|
|
|
For i = 0 To exdata.Tables(0).Rows.Count - 1
|
|
|
If Not exdata.Tables(0).Rows(i).Item("titleCode") Is System.DBNull.Value Then
|
|
|
result = exdata.Tables(0).Rows(i).Item("titleCode")
|
|
|
End If
|
|
|
Next
|
|
|
Return result
|
|
|
Catch exi As Exception
|
|
|
m_log.Log("EDKB04: Fehler Transform_title " & exi.Message & " - Code: " & s_av_code & " Titel Art: " & TitelArt, Common.Common.JournalEntryType.Error)
|
|
|
Return "9"
|
|
|
Finally
|
|
|
exdata.Dispose()
|
|
|
ex.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
Private Function Transform_sex(ByVal s_av_code As String) As String
|
|
|
Dim result As String = "9"
|
|
|
Dim ex As New SqlDataAdapter("Select * from etxsex where avcode = '" & s_av_code & "'", Globals.sConnectionString_edoka)
|
|
|
Dim exdata As New DataSet
|
|
|
Dim i As Integer
|
|
|
Try
|
|
|
ex.Fill(exdata, "etxsex")
|
|
|
For i = 0 To exdata.Tables(0).Rows.Count - 1
|
|
|
If Not exdata.Tables(0).Rows(i).Item("nrsex00") Is System.DBNull.Value Then
|
|
|
result = exdata.Tables(0).Rows(i).Item("nrsex00")
|
|
|
End If
|
|
|
Next
|
|
|
Return result
|
|
|
Catch exi As Exception
|
|
|
m_log.Log("EDKB04: Fehler Transform_sex " & exi.Message & " - Code: " & s_av_code, Common.Common.JournalEntryType.Error)
|
|
|
Return "9"
|
|
|
Finally
|
|
|
exdata.Dispose()
|
|
|
ex.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
Private Function Transform_generic(ByVal field As String, ByVal s_av_code As String) As String
|
|
|
Dim result As String = ""
|
|
|
Dim ex As New SqlDataAdapter("Select Wert2 from av_Partner_Mapping where Element = '" & field & "' and Wert1 = '" & s_av_code & "'", Globals.sConnectionString_edoka)
|
|
|
Dim exdata As New DataSet
|
|
|
Dim i As Integer
|
|
|
Try
|
|
|
ex.Fill(exdata, "av_Partner_Mapping")
|
|
|
For i = 0 To exdata.Tables(0).Rows.Count - 1
|
|
|
If Not exdata.Tables(0).Rows(i).Item("wert2") Is System.DBNull.Value Then
|
|
|
result = exdata.Tables(0).Rows(i).Item("wert2")
|
|
|
Exit For
|
|
|
End If
|
|
|
Next
|
|
|
Return result
|
|
|
Catch exi As Exception
|
|
|
m_log.Log("EDKB04: Fehler Transform_Generic " & exi.Message & " - Code: " & s_av_code & " - Field: " & field, Common.Common.JournalEntryType.Error)
|
|
|
Return ""
|
|
|
Finally
|
|
|
exdata.Dispose()
|
|
|
ex.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
Private Function TransformDate(ByVal indate As String, ByVal DefaultValue As String) As String
|
|
|
Dim result As String = ""
|
|
|
If indate = "00000000" Or indate = "" Then
|
|
|
indate = DefaultValue
|
|
|
End If
|
|
|
Try
|
|
|
If indate <> "" Then
|
|
|
result = Microsoft.VisualBasic.Right(indate, 2) & "." & Microsoft.VisualBasic.Mid(indate, 5, 2) & "." & Microsoft.VisualBasic.Left(indate, 4)
|
|
|
End If
|
|
|
Catch ex As Exception
|
|
|
result = ""
|
|
|
End Try
|
|
|
Return result
|
|
|
End Function
|
|
|
|
|
|
Function TransformDatetoYear(ByVal indate As String) As String
|
|
|
Dim result As String
|
|
|
Try
|
|
|
If InStr(indate, ".", CompareMethod.Text) Then
|
|
|
'Edoka Format
|
|
|
result = Year(indate)
|
|
|
Else
|
|
|
'Avaloq Format
|
|
|
result = Left(indate, 4)
|
|
|
If result = "" Then result = "0000"
|
|
|
End If
|
|
|
Catch ex As Exception
|
|
|
result = ""
|
|
|
End Try
|
|
|
Return result
|
|
|
End Function
|
|
|
|
|
|
Function TransformLand(ByVal inland As String) As String
|
|
|
Dim result As String = "756"
|
|
|
'MNK 24.08.2009 Version 1.7 - Anpassung Landaufbereitung
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_edkb04_get_nationalitaet"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn_edoka.scoDBConnection
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@code", SqlDbType.VarChar, 16, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, inland))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@land", SqlDbType.VarChar, 16, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
|
|
|
|
'Dim ex As New SqlDataAdapter("Select nrlnd00 from Land where (cdlnd02 = '" & inland & "' or cdlndab = '" & inland & "') and sarec00 = 2", Globals.sConnectionString_edoka)
|
|
|
'Dim exdata As New DataSet
|
|
|
'Dim i As Integer
|
|
|
Try
|
|
|
conn_edoka.OpenConnection()
|
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
|
result = scmCmdToExecute.Parameters("@land").Value
|
|
|
|
|
|
'ex.Fill(exdata, "land")
|
|
|
'For i = 0 To exdata.Tables(0).Rows.Count - 1
|
|
|
'If Not exdata.Tables(0).Rows(i).Item("nrlnd00") Is System.DBNull.Value Then
|
|
|
'result = exdata.Tables(0).Rows(i).Item("nrlnd00")
|
|
|
'Exit For
|
|
|
'End If
|
|
|
'Next
|
|
|
Return result
|
|
|
Catch exi As Exception
|
|
|
m_log.Log("EDKB04: Fehler TransformLand " & exi.Message & " - Code: " & inland, Common.Common.JournalEntryType.Error)
|
|
|
Return "756"
|
|
|
Finally
|
|
|
'exdata.Dispose()
|
|
|
'ex.Dispose()
|
|
|
conn_edoka.CloseConnection(True)
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
Private Function Transform_PnrMapping(ByVal adressid As String) As String
|
|
|
Dim result As String = ""
|
|
|
Dim ssql As String
|
|
|
ssql = "SELECT TOP 1 nrpar00 FROM AVQ_PnrMapping WHERE adressid = '" & adressid & "'"
|
|
|
|
|
|
Dim connection As New SqlConnection()
|
|
|
Dim daTemp As New SqlDataAdapter(ssql, connection)
|
|
|
Dim dsTemp As New DataSet()
|
|
|
Try
|
|
|
connection.ConnectionString = Globals.sConnectionString_edoka
|
|
|
connection.Open()
|
|
|
daTemp.Fill(dsTemp)
|
|
|
If dsTemp.Tables(0).Rows.Count > 0 Then
|
|
|
result = dsTemp.Tables(0).Rows(0).Item(0)
|
|
|
Else
|
|
|
m_log.Log("EDKB04: Stammdaten.Transform_PnrMapping() : Partnermapping nicht m<>glich, keine Angaben gefunden, AdressID = " & adressid, Common.Common.JournalEntryType.Warning)
|
|
|
result = "0"
|
|
|
End If
|
|
|
Catch ex As Exception
|
|
|
result = "0"
|
|
|
m_log.Log("EDKB04: Stammdaten.Transform_PnrMapping() : " & ex.Message, Common.Common.JournalEntryType.Error)
|
|
|
Finally
|
|
|
dsTemp = Nothing
|
|
|
daTemp = Nothing
|
|
|
connection.Close()
|
|
|
connection = Nothing
|
|
|
End Try
|
|
|
Return result
|
|
|
End Function
|
|
|
|
|
|
Private Function Transform_Briefanrede(ByVal AnrAVQ As String) As String
|
|
|
Dim result As String = ""
|
|
|
result = Replace(AnrAVQ, "Sehr geehrte ", "", , , CompareMethod.Text)
|
|
|
result = Replace(result, "Sehr geehrter ", "", , , CompareMethod.Text)
|
|
|
Return result
|
|
|
End Function
|
|
|
|
|
|
Private Function Get_BL_Adresse(ByVal nrpar00 As String) As String
|
|
|
Dim result As String = ""
|
|
|
Dim ssql As String
|
|
|
ssql = "SELECT TOP 1 nradr00 FROM edex_bl_blpartner WHERE nrpar00 = '" & nrpar00 & "'"
|
|
|
|
|
|
Dim connection As New SqlConnection()
|
|
|
Dim daTemp As New SqlDataAdapter(ssql, connection)
|
|
|
Dim dsTemp As New DataSet()
|
|
|
Try
|
|
|
connection.ConnectionString = Globals.sConnectionString_edoka
|
|
|
connection.Open()
|
|
|
daTemp.Fill(dsTemp)
|
|
|
If dsTemp.Tables(0).Rows.Count > 0 Then
|
|
|
result = dsTemp.Tables(0).Rows(0).Item(0)
|
|
|
Else
|
|
|
m_log.Log("EDKB04: Stammdaten.Get_BL_Adresse() : Banklagernd nicht m<>glich, keine Angaben zu Niederlassung gefunden, PartnerNr der Niederlassung = " & nrpar00, Common.Common.JournalEntryType.Warning)
|
|
|
result = "0"
|
|
|
End If
|
|
|
Catch ex As Exception
|
|
|
result = "0"
|
|
|
m_log.Log("EDKB04: Stammdaten.Get_BL_Adresse() : " & ex.Message, Common.Common.JournalEntryType.Error)
|
|
|
Finally
|
|
|
dsTemp = Nothing
|
|
|
daTemp = Nothing
|
|
|
connection.Close()
|
|
|
connection = Nothing
|
|
|
End Try
|
|
|
Return result
|
|
|
End Function
|
|
|
|
|
|
Private Function TransformVVExtern(ByVal instr As String) As String
|
|
|
Dim result As String = ""
|
|
|
Dim i As Integer = 1
|
|
|
Do While i <= Len(instr)
|
|
|
If Char.IsDigit(Mid(instr, i, 1).Chars(0)) Then
|
|
|
result = result + Mid(instr, i, 1)
|
|
|
End If
|
|
|
i = i + 1
|
|
|
Loop
|
|
|
Return result
|
|
|
End Function
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
#Region "Transformationen"
|
|
|
|
|
|
Private Sub Transform_partnerNAT()
|
|
|
'Auff<66>llen Kurzname, falls leer
|
|
|
If Me._ResultContent._partnerNat._kurzname = "" Then
|
|
|
Me._ResultContent._partnerNat._kurzname = Me._ResultContent._partnerNat._vorname & " " & Me._ResultContent._partnerNat._name 'TODO: Ort anf<6E>gen
|
|
|
End If
|
|
|
'Ablaufdatum Format
|
|
|
Me._ResultContent._partnerNat._ablaufDatum = TransformDate(Me._ResultContent._partnerNat._ablaufDatum, "")
|
|
|
'_versandInstruktion -> partner __CDVIG00 (Y/N)
|
|
|
Me._ResultContent._partnerNat.__CDVIG00 = Transform_generic("cardone2CDVIG00", Me._ResultContent._partnerNat._versandInstruktion)
|
|
|
'_auslaenderstatus -> etparn NRABE00 (immer 0)
|
|
|
Me._ResultContent._partnerNat._auslaenderstatus = "0"
|
|
|
'_sex -> etparn NRSEX00
|
|
|
Me._ResultContent._partnerNat._sex = Transform_sex(Me._ResultContent._partnerNat._sex)
|
|
|
'_status -> etparn __SAREC00
|
|
|
Me._ResultContent._partnerNat.__SAREC00 = Transform_generic("cardone2SAREC00", Me._ResultContent._partnerNat._status)
|
|
|
'_status -> partner saldiert
|
|
|
Me._ResultContent._partnerNat.__saldiert = Transform_generic("cardone2saldiert", Me._ResultContent._partnerNat._status)
|
|
|
'_geburtsDatum -> __DMGEBJJ
|
|
|
Me._ResultContent._partnerNat.__DMGEBJJ = TransformDatetoYear(Me._ResultContent._partnerNat._geburtsDatum)
|
|
|
'_geburtsdatum -> erparn DMGEB00
|
|
|
Me._ResultContent._partnerNat.__DMGEB00 = TransformDate(Me._ResultContent._partnerNat._geburtsDatum, "")
|
|
|
'_domizilCode -> NRDOM00
|
|
|
If Me._ResultContent._partnerNat._domizilCode = "" Then
|
|
|
Me._ResultContent._partnerNat._domizilCode = "0"
|
|
|
Else
|
|
|
Me._ResultContent._partnerNat._domizilCode = TransformLand(Me._ResultContent._partnerNat._domizilCode)
|
|
|
End If
|
|
|
'_nationalit<69>t -> NRNAT01
|
|
|
If Me._ResultContent._partnerNat._nationalitaet = "" Then
|
|
|
Me._ResultContent._partnerNat.__NRNAT01 = "0"
|
|
|
Else
|
|
|
Me._ResultContent._partnerNat.__NRNAT01 = TransformLand(Me._ResultContent._partnerNat._nationalitaet)
|
|
|
End If
|
|
|
'_sprache -> NRSPA00
|
|
|
Me._ResultContent._partnerNat._sprache = "1"
|
|
|
'NOT NULL
|
|
|
End Sub
|
|
|
|
|
|
Private Sub Transform_partnerJUR()
|
|
|
'Ablaufdatum Format
|
|
|
Me._ResultContent._partnerJur._ablaufDatum = TransformDate(Me._ResultContent._partnerJur._ablaufDatum, "")
|
|
|
'_versandInstruktion -> partner __CDVIG00 (Y/N)
|
|
|
Me._ResultContent._partnerJur.__CDVIG00 = Transform_generic("cardone2CDVIG00", Me._ResultContent._partnerJur._versandInstruktion)
|
|
|
'handelRegDatum
|
|
|
Me._ResultContent._partnerJur.__DMGRD00 = Me.TransformDate(Me._ResultContent._partnerJur._handelRegDatum, "")
|
|
|
'handelRegJahr
|
|
|
Me._ResultContent._partnerJur.__DMGRDJJ = Me.TransformDatetoYear(Me._ResultContent._partnerJur._handelRegDatum)
|
|
|
'SAREC00
|
|
|
Me._ResultContent._partnerJur.__SAREC00 = Me.Transform_generic("cardone2SAREC00", Me._ResultContent._partnerJur._status)
|
|
|
'_domizilCode -> NRDOM00
|
|
|
If Me._ResultContent._partnerJur._domizilCode = "" Then
|
|
|
Me._ResultContent._partnerJur._domizilCode = "0"
|
|
|
Else
|
|
|
Me._ResultContent._partnerJur._domizilCode = TransformLand(Me._ResultContent._partnerJur._domizilCode)
|
|
|
End If
|
|
|
'_Nationalit<69>t -> __NRNAT01
|
|
|
If Me._ResultContent._partnerJur._nationalitaet = "" Then
|
|
|
Me._ResultContent._partnerJur.__NRNAT01 = "0"
|
|
|
Else
|
|
|
Me._ResultContent._partnerJur.__NRNAT01 = TransformLand(Me._ResultContent._partnerJur._nationalitaet)
|
|
|
End If
|
|
|
'_sprache -> NRSPA00
|
|
|
Me._ResultContent._partnerJur._sprache = "1"
|
|
|
'_status -> etpar0 __SAREC00
|
|
|
Me._ResultContent._partnerJur.__SAREC00 = Transform_generic("cardone2SAREC00", Me._ResultContent._partnerJur._status)
|
|
|
'_status -> partner saldiert
|
|
|
Me._ResultContent._partnerJur.__saldiert = Transform_generic("cardone2saldiert", Me._ResultContent._partnerJur._status)
|
|
|
End Sub
|
|
|
|
|
|
Private Sub Transform_Hauptadresse()
|
|
|
'Status -> SAREC00
|
|
|
Me._ResultContent._hauptAdresse.__SAREC00 = Transform_generic("cardone2sarec00", Me._ResultContent._hauptAdresse._status)
|
|
|
'Versandf<64>hig -> cardone2SAVRS00
|
|
|
Me._ResultContent._hauptAdresse._versandfaehig = Transform_generic("cardone2SAVRS00", Me._ResultContent._hauptAdresse._versandfaehig)
|
|
|
If Me._ResultContent._hauptAdresse._versandfaehig = "" Then
|
|
|
Me._ResultContent._hauptAdresse._versandfaehig = "Y"
|
|
|
End If
|
|
|
'L<>ndercode
|
|
|
Me._ResultContent._hauptAdresse._laenderCode = TransformLand(Me._ResultContent._hauptAdresse._laenderCode)
|
|
|
' Titel vorgestellt
|
|
|
Me._ResultContent._hauptAdresse._titelVorgestellt = Transform_title(Me._ResultContent._hauptAdresse._titelVorgestellt, "Vorgestellt")
|
|
|
' Titel Zwischengestellt
|
|
|
Me._ResultContent._hauptAdresse._titelZwischengestellt = Transform_title(Me._ResultContent._hauptAdresse._titelZwischengestellt, "Zwischengestellt")
|
|
|
'Land
|
|
|
If Me._ResultContent._hauptAdresse._laenderCode = "" Then
|
|
|
Me._ResultContent._hauptAdresse._laenderCode = 756
|
|
|
End If
|
|
|
'PNR kommt mit ObjRefNr
|
|
|
Me._ResultContent._hauptAdresse.__nrpar00 = Me._ResultContent._hauptAdresse._objektRefNr
|
|
|
'Transformation Briefanrede
|
|
|
Me._ResultContent._hauptAdresse._briefanrede2Zeile1 = Transform_Briefanrede(Me._ResultContent._hauptAdresse._briefanrede2Zeile1)
|
|
|
Me._ResultContent._hauptAdresse._briefanrede2Zeile2 = Transform_Briefanrede(Me._ResultContent._hauptAdresse._briefanrede2Zeile2)
|
|
|
'NOT NULL
|
|
|
If Me._ResultContent._hauptAdresse._kopien = "" Then Me._ResultContent._hauptAdresse._kopien = "1"
|
|
|
End Sub
|
|
|
|
|
|
Private Sub Transform_Versandadresse()
|
|
|
'Spezial, Partnernummer der Versandadresse suchen f<>r Feld NRPARAD
|
|
|
Me._ResultContent._versandAdresse.__NRPARAD = Transform_PnrMapping(Me._ResultContent._versandAdresse._objektNr)
|
|
|
'Ablaufdatum Format
|
|
|
Me._ResultContent._versandAdresse._ablaufDatumAdresse = TransformDate(Me._ResultContent._versandAdresse._ablaufDatumAdresse, "")
|
|
|
'Banklagernd J -> Y
|
|
|
Me._ResultContent._versandAdresse._banklagernd = Transform_generic("cardone2CDBAL00", Me._ResultContent._versandAdresse._banklagernd)
|
|
|
'Status
|
|
|
Me._ResultContent._versandAdresse.__saldiert = Transform_generic("cardone2saldiert", Me._ResultContent._versandAdresse._status)
|
|
|
'_versandInstruktion -> partner __SAVRS00 (Y/N)
|
|
|
Me._ResultContent._versandAdresse.__SAVRS00 = Transform_generic("cardone2SAVRS00", Me._ResultContent._versandAdresse._versandfaehig)
|
|
|
'Transformation Briefanrede
|
|
|
Me._ResultContent._versandAdresse._briefanrede2Zeile1 = Transform_Briefanrede(Me._ResultContent._versandAdresse._briefanrede2Zeile1)
|
|
|
Me._ResultContent._versandAdresse._briefanrede2Zeile2 = Transform_Briefanrede(Me._ResultContent._versandAdresse._briefanrede2Zeile2)
|
|
|
'Spezial, Adressnummer f<>r BL Adresse, Lookup
|
|
|
If Me._ResultContent._versandAdresse._banklagernd = "Y" Then
|
|
|
Me._ResultContent._versandAdresse.__NRADR00 = Get_BL_Adresse(Me._ResultContent._versandAdresse.__NRPARAD)
|
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub Transform_VV()
|
|
|
'Ablaufdatum Format
|
|
|
Me._ResultContent._vv._ablaufDatum = TransformDate(Me._ResultContent._vv._ablaufDatum, "")
|
|
|
'Status -> SAREC00
|
|
|
Me._ResultContent._vv.__SAREC00 = Transform_generic("cardone2sarec00", Me._ResultContent._vv._status)
|
|
|
'Versandinstruktion f<>r Partner
|
|
|
Me._ResultContent._vv.__CDVIG00 = Transform_generic("cardone2CDVIG00", Me._ResultContent._vv._ausnahmeVI)
|
|
|
'VV extern abf<62>llen, falls leer
|
|
|
If Me._ResultContent._vv._externeNr = "" Then
|
|
|
Me._ResultContent._vv._externeNr = TransformVVExtern(Me._ResultContent._vv._formatierteNr)
|
|
|
End If
|
|
|
'20080722 RGL, Falls KontoTyp leer wird KontoBezeichnung verwendet (wegen LOAN Stammdaten)
|
|
|
If Me._ResultContent._vv._kontoTyp = "" And Me._ResultContent._vv._produktBezeichnung <> "" Then
|
|
|
Me._ResultContent._vv._kontoTyp = Me._ResultContent._vv._produktBezeichnung
|
|
|
End If
|
|
|
'Produkt TEST ob numerisch
|
|
|
Dim testint As Integer
|
|
|
Try
|
|
|
testint = CInt(Me._ResultContent._vv._produkt)
|
|
|
Catch ex As Exception
|
|
|
Me._ResultContent._vv._produkt = 0
|
|
|
m_log.Log("EDKB04: Warnung: VV, <Produkt> ist nicht numerisch order leer, es wurde 0 verwendet", Common.Common.JournalEntryType.Warning)
|
|
|
End Try
|
|
|
End Sub
|
|
|
|
|
|
Public Function Transform()
|
|
|
Dim result As Boolean = True
|
|
|
Try
|
|
|
If Me.HasResultContent Then
|
|
|
If Me.HasPartnerNat Then
|
|
|
'MAPPING ================================= PARTNER NAT ======================================
|
|
|
Transform_partnerNAT()
|
|
|
'L<>ngenpr<70>fung
|
|
|
len_partnerNAT()
|
|
|
End If
|
|
|
If Me.HasPartnerJur Then
|
|
|
'MAPPING ================================= PARTNER JUR ======================================
|
|
|
Transform_partnerJUR()
|
|
|
'L<>ngenpr<70>fung
|
|
|
len_partnerJUR()
|
|
|
End If
|
|
|
If Me.HasHauptadresse Then
|
|
|
'MAPPING ================================= HAUPTADRESSE ======================================
|
|
|
Transform_Hauptadresse()
|
|
|
len_Hauptadresse()
|
|
|
End If
|
|
|
If Me.HasVersandadresse Then
|
|
|
'MAPPING ================================= VERSANDADRESSE ======================================
|
|
|
Transform_Versandadresse()
|
|
|
'L<>ngenpr<70>fung
|
|
|
len_versandAdresse()
|
|
|
End If
|
|
|
If Me.HasMitarbeiter Then
|
|
|
'MAPPING ================================= MITARBEITER ======================================
|
|
|
End If
|
|
|
If Me.HasVV Then
|
|
|
'MAPPING ================================= VV ======================================
|
|
|
Transform_VV()
|
|
|
'L<>ngenpr<70>fung
|
|
|
len_vv()
|
|
|
End If
|
|
|
End If
|
|
|
Catch ex As Exception
|
|
|
m_log.Log("EDKB04: Fehler bei Transformation: " & ex.Message, Common.Common.JournalEntryType.Error)
|
|
|
result = False
|
|
|
End Try
|
|
|
Return result
|
|
|
End Function
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
#Region "L<>nge aufbereiten"
|
|
|
|
|
|
Function len_partnerNAT() As Boolean
|
|
|
Dim result As Boolean
|
|
|
Try
|
|
|
'Rel. 4.1 Verl<72>ngerung auf 255
|
|
|
Me._ResultContent._partnerNat._beruf = Left(Me._ResultContent._partnerNat._beruf, 255)
|
|
|
Me._ResultContent._partnerNat._name = Left(Me._ResultContent._partnerNat._name, 255)
|
|
|
Me._ResultContent._partnerNat._partnerAbwicklungsformCode = Left(Me._ResultContent._partnerNat._partnerAbwicklungsformCode, 1)
|
|
|
Me._ResultContent._partnerNat._vorname = Left(Me._ResultContent._partnerNat._vorname, 255)
|
|
|
'Me._ResultContent._partnerNat._beruf = Left(Me._ResultContent._partnerNat._beruf, 35)
|
|
|
'Me._ResultContent._partnerNat._name = Left(Me._ResultContent._partnerNat._name, 35)
|
|
|
'Me._ResultContent._partnerNat._partnerAbwicklungsformCode = Left(Me._ResultContent._partnerNat._partnerAbwicklungsformCode, 1)
|
|
|
'Me._ResultContent._partnerNat._vorname = Left(Me._ResultContent._partnerNat._vorname, 20)
|
|
|
Catch ex As Exception
|
|
|
m_log.log("EDKB04: Warning partnerNat, L<>nge aufbereiten: " & ex.Message, Common.Common.JournalEntryType.Warning)
|
|
|
End Try
|
|
|
Return result
|
|
|
End Function
|
|
|
|
|
|
Function len_partnerJUR() As Boolean
|
|
|
Dim result As Boolean
|
|
|
Try
|
|
|
'Rel. 4.1 Verl<72>ngerung auf 255
|
|
|
Me._ResultContent._partnerJur._name = Left(Me._ResultContent._partnerJur._name, 255)
|
|
|
'Me._ResultContent._partnerJur._name = Left(Me._ResultContent._partnerJur._name, 35)
|
|
|
Me._ResultContent._partnerJur._partnerAbwicklungsformCode = Left(Me._ResultContent._partnerJur._partnerAbwicklungsformCode, 1)
|
|
|
Me._ResultContent._partnerJur._branche = Left(Me._ResultContent._partnerJur._branche, 6)
|
|
|
Catch ex As Exception
|
|
|
m_log.Log("EDKB04: Warning partnerJur, L<>nge aufbereiten: " & ex.Message, Common.Common.JournalEntryType.Warning)
|
|
|
End Try
|
|
|
Return result
|
|
|
End Function
|
|
|
|
|
|
Function len_Hauptadresse() As Boolean
|
|
|
Dim result As Boolean = True
|
|
|
Try
|
|
|
'Rel 4.1 - L<>ngen auf 150 bzw. 255 <20>ndern
|
|
|
Me._ResultContent._hauptAdresse._briefanrede1 = Left(Me._ResultContent._hauptAdresse._briefanrede1, 150)
|
|
|
Me._ResultContent._hauptAdresse._briefanrede2Zeile1 = Left(Me._ResultContent._hauptAdresse._briefanrede2Zeile1, 150)
|
|
|
Me._ResultContent._hauptAdresse._briefanrede2Zeile2 = Left(Me._ResultContent._hauptAdresse._briefanrede2Zeile2, 150)
|
|
|
Me._ResultContent._hauptAdresse._hausNr = Left(Me._ResultContent._hauptAdresse._hausNr, 6)
|
|
|
Me._ResultContent._hauptAdresse.__NachnameUngekuerzt = Me._ResultContent._hauptAdresse._nachname
|
|
|
Me._ResultContent._hauptAdresse._namenZusatz = Left(Me._ResultContent._hauptAdresse._namenZusatz, 255)
|
|
|
Me._ResultContent._hauptAdresse._objektNr = Left(Me._ResultContent._hauptAdresse._objektNr, 255)
|
|
|
Me._ResultContent._hauptAdresse._ort = Left(Me._ResultContent._hauptAdresse._ort, 255)
|
|
|
Me._ResultContent._hauptAdresse._ortZusatz = Left(Me._ResultContent._hauptAdresse._ortZusatz, 255)
|
|
|
Me._ResultContent._hauptAdresse._plz = Left(Me._ResultContent._hauptAdresse._plz, 10)
|
|
|
Me._ResultContent._hauptAdresse._strasse = Left(Me._ResultContent._hauptAdresse._strasse, 255)
|
|
|
Me._ResultContent._hauptAdresse._vorname1 = Left(Me._ResultContent._hauptAdresse._vorname1, 255)
|
|
|
Me._ResultContent._hauptAdresse._vorname2 = Left(Me._ResultContent._hauptAdresse._vorname2, 255)
|
|
|
Me._ResultContent._hauptAdresse._vorname3 = Left(Me._ResultContent._hauptAdresse._vorname3, 255)
|
|
|
Me._ResultContent._hauptAdresse._vorname4 = Left(Me._ResultContent._hauptAdresse._vorname4, 255)
|
|
|
Me._ResultContent._hauptAdresse._weiler = Left(Me._ResultContent._hauptAdresse._weiler, 255)
|
|
|
Me._ResultContent._hauptAdresse._zeile_1 = Left(Me._ResultContent._hauptAdresse._zeile_1, Params.len_TXADZ)
|
|
|
Me._ResultContent._hauptAdresse._zeile_2 = Left(Me._ResultContent._hauptAdresse._zeile_2, Params.len_TXADZ)
|
|
|
Me._ResultContent._hauptAdresse._zeile_3 = Left(Me._ResultContent._hauptAdresse._zeile_3, Params.len_TXADZ)
|
|
|
Me._ResultContent._hauptAdresse._zeile_4 = Left(Me._ResultContent._hauptAdresse._zeile_4, Params.len_TXADZ)
|
|
|
Me._ResultContent._hauptAdresse._zeile_5 = Left(Me._ResultContent._hauptAdresse._zeile_5, Params.len_TXADZ)
|
|
|
Me._ResultContent._hauptAdresse._zeile_6 = Left(Me._ResultContent._hauptAdresse._zeile_6, Params.len_TXADZ)
|
|
|
Me._ResultContent._hauptAdresse._zeile_7 = Left(Me._ResultContent._hauptAdresse._zeile_7, Params.len_TXADZ)
|
|
|
|
|
|
|
|
|
'Me._ResultContent._hauptAdresse._briefanrede1 = Left(Me._ResultContent._hauptAdresse._briefanrede1, 150)
|
|
|
'Me._ResultContent._hauptAdresse._briefanrede2Zeile1 = Left(Me._ResultContent._hauptAdresse._briefanrede2Zeile1, 150)
|
|
|
'Me._ResultContent._hauptAdresse._briefanrede2Zeile2 = Left(Me._ResultContent._hauptAdresse._briefanrede2Zeile2, 150)
|
|
|
'Me._ResultContent._hauptAdresse._hausNr = Left(Me._ResultContent._hauptAdresse._hausNr, 6)
|
|
|
'Me._ResultContent._hauptAdresse.__NachnameUngekuerzt = Me._ResultContent._hauptAdresse._nachname
|
|
|
'Me._ResultContent._hauptAdresse._namenZusatz = Left(Me._ResultContent._hauptAdresse._namenZusatz, 35)
|
|
|
'Me._ResultContent._hauptAdresse._objektNr = Left(Me._ResultContent._hauptAdresse._objektNr, 50)
|
|
|
'Me._ResultContent._hauptAdresse._ort = Left(Me._ResultContent._hauptAdresse._ort, 35)
|
|
|
'Me._ResultContent._hauptAdresse._ortZusatz = Left(Me._ResultContent._hauptAdresse._ortZusatz, 35)
|
|
|
'Me._ResultContent._hauptAdresse._plz = Left(Me._ResultContent._hauptAdresse._plz, 10)
|
|
|
'Me._ResultContent._hauptAdresse._strasse = Left(Me._ResultContent._hauptAdresse._strasse, 35)
|
|
|
'Me._ResultContent._hauptAdresse._vorname1 = Left(Me._ResultContent._hauptAdresse._vorname1, 20)
|
|
|
'Me._ResultContent._hauptAdresse._vorname2 = Left(Me._ResultContent._hauptAdresse._vorname2, 20)
|
|
|
'Me._ResultContent._hauptAdresse._vorname3 = Left(Me._ResultContent._hauptAdresse._vorname3, 20)
|
|
|
'Me._ResultContent._hauptAdresse._vorname4 = Left(Me._ResultContent._hauptAdresse._vorname4, 20)
|
|
|
'Me._ResultContent._hauptAdresse._weiler = Left(Me._ResultContent._hauptAdresse._weiler, 35)
|
|
|
'Me._ResultContent._hauptAdresse._zeile_1 = Left(Me._ResultContent._hauptAdresse._zeile_1, Params.len_TXADZ)
|
|
|
'Me._ResultContent._hauptAdresse._zeile_2 = Left(Me._ResultContent._hauptAdresse._zeile_2, Params.len_TXADZ)
|
|
|
'Me._ResultContent._hauptAdresse._zeile_3 = Left(Me._ResultContent._hauptAdresse._zeile_3, Params.len_TXADZ)
|
|
|
'Me._ResultContent._hauptAdresse._zeile_4 = Left(Me._ResultContent._hauptAdresse._zeile_4, Params.len_TXADZ)
|
|
|
'Me._ResultContent._hauptAdresse._zeile_5 = Left(Me._ResultContent._hauptAdresse._zeile_5, Params.len_TXADZ)
|
|
|
'Me._ResultContent._hauptAdresse._zeile_6 = Left(Me._ResultContent._hauptAdresse._zeile_6, Params.len_TXADZ)
|
|
|
'Me._ResultContent._hauptAdresse._zeile_7 = Left(Me._ResultContent._hauptAdresse._zeile_7, Params.len_TXADZ)
|
|
|
|
|
|
Catch ex As Exception
|
|
|
m_log.log("EDKB04: Warning Hauptadresse, L<>nge aufbereiten: " & ex.Message, Common.Common.JournalEntryType.Warning)
|
|
|
End Try
|
|
|
Return (result)
|
|
|
End Function
|
|
|
|
|
|
Function len_versandAdresse() As Boolean
|
|
|
Dim result As Boolean
|
|
|
Try
|
|
|
Me._ResultContent._versandAdresse._briefanrede2Zeile1 = Left(Me._ResultContent._versandAdresse._briefanrede2Zeile1, 150)
|
|
|
Me._ResultContent._versandAdresse._briefanrede2Zeile2 = Left(Me._ResultContent._versandAdresse._briefanrede2Zeile2, 150)
|
|
|
Me._ResultContent._versandAdresse._zeile1 = Left(Me._ResultContent._versandAdresse._zeile1, Params.len_TXADZ)
|
|
|
Me._ResultContent._versandAdresse._zeile2 = Left(Me._ResultContent._versandAdresse._zeile2, Params.len_TXADZ)
|
|
|
Me._ResultContent._versandAdresse._zeile3 = Left(Me._ResultContent._versandAdresse._zeile3, Params.len_TXADZ)
|
|
|
Me._ResultContent._versandAdresse._zeile4 = Left(Me._ResultContent._versandAdresse._zeile4, Params.len_TXADZ)
|
|
|
Me._ResultContent._versandAdresse._zeile5 = Left(Me._ResultContent._versandAdresse._zeile5, Params.len_TXADZ)
|
|
|
Me._ResultContent._versandAdresse._zeile6 = Left(Me._ResultContent._versandAdresse._zeile6, Params.len_TXADZ)
|
|
|
Me._ResultContent._versandAdresse._zeile7 = Left(Me._ResultContent._versandAdresse._zeile7, Params.len_TXADZ)
|
|
|
Catch ex As Exception
|
|
|
m_log.Log("EDKB04: Warning Versandadresse, L<>nge aufbereiten: " & ex.Message, Common.Common.JournalEntryType.Warning)
|
|
|
End Try
|
|
|
Return result
|
|
|
End Function
|
|
|
|
|
|
Function len_vv() As Boolean
|
|
|
Dim result As Boolean = True
|
|
|
Try
|
|
|
Me._ResultContent._vv._externeNr = Left(Me._ResultContent._vv._externeNr, 16)
|
|
|
Me._ResultContent._vv._formatierteNr = Left(Me._ResultContent._vv._formatierteNr, 16)
|
|
|
Me._ResultContent._vv._kontoTyp = Left(Me._ResultContent._vv._kontoTyp, 35)
|
|
|
Me._ResultContent._vv._text = Left(Me._ResultContent._vv._text, 35)
|
|
|
'Spezial, Nr Extern Fix 12 Stellen, wenn kein EBANK
|
|
|
If Not (InStr(Me._ResultContent._vv._externeNr, "EBANK.", CompareMethod.Text)) Then
|
|
|
Do While Len(Me._ResultContent._vv._externeNr) < 12
|
|
|
Me._ResultContent._vv._externeNr = "0" & Me._ResultContent._vv._externeNr
|
|
|
Loop
|
|
|
End If
|
|
|
Catch ex As Exception
|
|
|
m_log.Log("EDKB04: Warning VV, L<>nge aufbereiten: " & ex.Message, Common.Common.JournalEntryType.Warning)
|
|
|
End Try
|
|
|
Return result
|
|
|
End Function
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
#Region "Datenspeicher"
|
|
|
|
|
|
Class resultHeader
|
|
|
Public _mandant As String
|
|
|
Public _userID As String
|
|
|
Public _Sprache As String
|
|
|
End Class
|
|
|
|
|
|
Class resultContent
|
|
|
Public _partnerNat As partnerNat = New partnerNat
|
|
|
Public _partnerJur As partnerJur = New partnerJur
|
|
|
Public _hauptAdresse As hauptAdresse = New hauptAdresse
|
|
|
Public _versandAdresse As versandAdresse = New versandAdresse
|
|
|
Public _vv As vv = New vv
|
|
|
Public _mitarbeiter As mitarbeiter = New mitarbeiter
|
|
|
End Class
|
|
|
|
|
|
Class partnerNat
|
|
|
Public _status As String = ""
|
|
|
Public _partnerNummer As String = ""
|
|
|
Public _name As String = ""
|
|
|
Public _vorname As String = ""
|
|
|
Public _kurzname As String = ""
|
|
|
Public _geburtsDatum As String = ""
|
|
|
Public _nationalitaet As String = ""
|
|
|
Public _auslaenderstatus As String = ""
|
|
|
Public _sprache As String = ""
|
|
|
Public _sex As String = ""
|
|
|
Public _betreuerId As String = ""
|
|
|
Public _beruf As String = ""
|
|
|
Public _kundenSegment As String = ""
|
|
|
Public _versandInstruktion As String = ""
|
|
|
Public _partnerAbwicklungsformCode As String = ""
|
|
|
Public _domizilCode As String = ""
|
|
|
Public _vipCode As String = ""
|
|
|
Public _ablaufDatum As String = ""
|
|
|
Public _AngestelltenArt As String = ""
|
|
|
'Speziel f<>r DB Edoka
|
|
|
Public __CDVIG00 As String = ""
|
|
|
Public __SAREC00 As String = ""
|
|
|
Public __DMGEBJJ As String = ""
|
|
|
Public __DMGEB00 As String = ""
|
|
|
Public __NRNAT01 As String = ""
|
|
|
Public __saldiert As String = ""
|
|
|
'20121129 - UID
|
|
|
Public _uid As String = ""
|
|
|
End Class
|
|
|
|
|
|
Class partnerJur
|
|
|
Public _status As String = ""
|
|
|
Public _partnerNummer As String = ""
|
|
|
Public _name As String = ""
|
|
|
Public _kurzname As String = ""
|
|
|
Public _nationalitaet As String = ""
|
|
|
Public _sprache As String = ""
|
|
|
Public _handelRegOrt As String = ""
|
|
|
Public _handelRegDatum As String = ""
|
|
|
Public _betreuerId As String = ""
|
|
|
Public _branche As String = ""
|
|
|
Public _kundenSegment As String = ""
|
|
|
Public _versandInstruktion As String = ""
|
|
|
Public _partnerAbwicklungsformCode As String = ""
|
|
|
Public _domizilCode As String = ""
|
|
|
Public _ablaufDatum As String = ""
|
|
|
Public _vipCode As String = ""
|
|
|
'Speziel f<>r DB Edoka
|
|
|
Public __DMGRD00 As String = ""
|
|
|
Public __DMGRDJJ As String = ""
|
|
|
Public __CDVIG00 As String = ""
|
|
|
Public __SAREC00 As String = ""
|
|
|
Public __NRNAT01 As String = ""
|
|
|
Public __saldiert As String = ""
|
|
|
'20121129 - UID
|
|
|
Public _uid As String = ""
|
|
|
End Class
|
|
|
|
|
|
Class hauptAdresse
|
|
|
Public _status As String = ""
|
|
|
Public _objektRefNr As String = ""
|
|
|
Public _zeile_1 As String = ""
|
|
|
Public _zeile_2 As String = ""
|
|
|
Public _zeile_3 As String = ""
|
|
|
Public _zeile_4 As String = ""
|
|
|
Public _zeile_5 As String = ""
|
|
|
Public _zeile_6 As String = ""
|
|
|
Public _zeile_7 As String = ""
|
|
|
Public _titelVorgestellt As String = ""
|
|
|
Public _vorname1 As String = ""
|
|
|
Public _vorname2 As String = ""
|
|
|
Public _vorname3 As String = ""
|
|
|
Public _vorname4 As String = ""
|
|
|
Public _titelZwischengestellt As String = ""
|
|
|
Public _nachname As String = ""
|
|
|
Public _namenZusatz As String = ""
|
|
|
Public _titelNachgestellt As String = ""
|
|
|
Public _firma As String = ""
|
|
|
Public _ortZusatz As String = ""
|
|
|
Public _weiler As String = ""
|
|
|
Public _strasse As String = ""
|
|
|
Public _hausNr As String = ""
|
|
|
Public _briefanrede1Code As String = ""
|
|
|
Public _briefanrede1 As String = ""
|
|
|
Public _briefanrede2Zeile1 As String = ""
|
|
|
Public _briefanrede2Zeile2 As String = ""
|
|
|
Public _plz As String = ""
|
|
|
Public _ort As String = ""
|
|
|
Public _land As String = ""
|
|
|
Public _laenderCode As String = ""
|
|
|
Public _kopien As String = ""
|
|
|
Public _banklagernd As String = ""
|
|
|
Public _versandfaehig As String = ""
|
|
|
Public _ablaufDatumAdresse As String = ""
|
|
|
'Speziel f<>r DB Edoka
|
|
|
Public __nrpar00 As String = ""
|
|
|
Public __SAREC00 As String = ""
|
|
|
Public __NachnameUngekuerzt = ""
|
|
|
Public _objektNr As String = ""
|
|
|
Public _BENAM01 As String = ""
|
|
|
Public _BENAM02 As String = ""
|
|
|
Public _BENAM03 As String = ""
|
|
|
Public _BENNM01 As String = ""
|
|
|
Public _BENNM02 As String = ""
|
|
|
End Class
|
|
|
|
|
|
Class versandAdresse
|
|
|
Public _status As String = ""
|
|
|
Public _objektRefTyp As String = ""
|
|
|
Public _objektRefNr As String = ""
|
|
|
Public _objektNr As String = ""
|
|
|
Public _zeile1 As String = ""
|
|
|
Public _zeile2 As String = ""
|
|
|
Public _zeile3 As String = ""
|
|
|
Public _zeile4 As String = ""
|
|
|
Public _zeile5 As String = ""
|
|
|
Public _zeile6 As String = ""
|
|
|
Public _zeile7 As String = ""
|
|
|
Public _adressatzeile1 As String = ""
|
|
|
Public _adressatzeile2 As String = ""
|
|
|
Public _adressatzeile3 As String = ""
|
|
|
Public _plz As String = ""
|
|
|
Public _ort As String = ""
|
|
|
Public _land As String = ""
|
|
|
Public _kopien As String = ""
|
|
|
Public _banklagernd As String = ""
|
|
|
Public _versandfaehig As String = ""
|
|
|
Public _ablaufDatumAdresse As String = ""
|
|
|
'Noch nicht offiziell
|
|
|
Public _briefanrede2Zeile1 As String = ""
|
|
|
Public _briefanrede2Zeile2 As String = ""
|
|
|
'Speziell f<>r EDOKA
|
|
|
Public __SAVRS00 As String = ""
|
|
|
Public __saldiert As String = ""
|
|
|
Public __NRPARAD As String = ""
|
|
|
Public __NRADR00 As String = ""
|
|
|
End Class
|
|
|
|
|
|
Class mitarbeiter
|
|
|
Public _status As String = ""
|
|
|
Public _nameMitarbeiter As String = ""
|
|
|
Public _vornameMitarbeiter As String = ""
|
|
|
Public _idMitarbeiter As String = ""
|
|
|
Public _telMitarbeiter As String = ""
|
|
|
Public _faxMitarbeiter As String = ""
|
|
|
Public _emailMitarbeiter As String = ""
|
|
|
Public _partnerNummerMitarbeiter As String = ""
|
|
|
Public _partnerNummerBankEinheit As String = ""
|
|
|
Public _ablaufDatumMitarbeiter As String = ""
|
|
|
End Class
|
|
|
|
|
|
Class vv
|
|
|
Public _status As String = ""
|
|
|
Public _objektRef As String = ""
|
|
|
Public _nummer As String = ""
|
|
|
Public _text As String = ""
|
|
|
Public _bankEinheitId As String = ""
|
|
|
Public _waehrung As String = ""
|
|
|
Public _produkt As String = ""
|
|
|
Public _kontoGruppe As String = ""
|
|
|
Public _kontoTyp As String = ""
|
|
|
Public _externeNr As String = ""
|
|
|
Public _formatierteNr As String = ""
|
|
|
Public _rubrik As String = ""
|
|
|
Public _produktBezeichnung As String = ""
|
|
|
Public _ausnahmeVI As String = ""
|
|
|
Public _ablaufDatum As String = ""
|
|
|
Public _PartnerNummer As String = ""
|
|
|
Public _kopien As String = ""
|
|
|
'Speziel f<>r DB Edoka
|
|
|
Public __SAREC00 As String = ""
|
|
|
Public __CDVIG00 As String = ""
|
|
|
End Class
|
|
|
|
|
|
Class resultState
|
|
|
Public _status As String
|
|
|
Public _error As String
|
|
|
End Class
|
|
|
#End Region
|
|
|
|
|
|
End Class
|
