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) 'Ü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ü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ü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ä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ä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ä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ü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, 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üfung len_partnerNAT() End If If Me.HasPartnerJur Then 'MAPPING ================================= PARTNER JUR ====================================== Transform_partnerJUR() 'Längenprü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üfung len_versandAdresse() End If If Me.HasMitarbeiter Then 'MAPPING ================================= MITARBEITER ====================================== End If If Me.HasVV Then 'MAPPING ================================= VV ====================================== Transform_VV() 'Längenprü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ä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ä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 ä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