From 1cb402872332cc3dba88f71845247d9a441819d7 Mon Sep 17 00:00:00 2001 From: "m.ilhan" Date: Wed, 13 Nov 2024 13:01:50 +0100 Subject: [PATCH 1/6] =?UTF-8?q?AKT=20wieder=20=C3=B6ffnen=20->=20LKW=20Cha?= =?UTF-8?q?t=20aktivieren?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb index 6e9a1c2f..edb49459 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb @@ -53,7 +53,9 @@ Public Class cMessenger Public Shared Function SET_LKWCHAT_INAKTIV(AvisoId) As Integer Return SQL.doSQL("UPDATE tblMessenger_Chat SET chat_aktiv=0 WHERE chat_AvisoId='" & AvisoId & "' AND chat_art='LKW_CHAT' ", "ADMIN") End Function - + Public Shared Function SET_LKWCHAT_AKTIV(AvisoId) As Integer + Return SQL.doSQL("UPDATE tblMessenger_Chat SET chat_aktiv=1 WHERE chat_AvisoId='" & AvisoId & "' AND chat_art='LKW_CHAT' ", "ADMIN") + End Function Public Shared Function GET_NewMSG_COUNT_ART(maId, chat_art) As Integer If maId < 0 Then maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID 'Return SQL.getValueTxtBySql("SELECT isnull(COUNT(*),0) FROM tblMessenger_ChatMessages INNER JOIN tblMessenger_Chat on chat_id=chatMg_chatId INNER JOIN tblMessenger_ChatMessageStatus ON chatMgSt_chatMsgId=chatMg_id WHERE chatMgSt_MaId=" & maId & " AND chatMgSt_gelesen=0 AND chat_art='" & chat_art & "' AND (SELECT COUNT(*) FROM tblMessenger_ChatMembers WHERE chatMB_chatId=chat_id AND chatMB_maId=" & maId & ")>0", "ADMIN",,, 0) From e7639f9ccbfd55a3d0af9ca8d01796edf0ce7223 Mon Sep 17 00:00:00 2001 From: "m.ilhan" Date: Fri, 22 Nov 2024 09:45:47 +0100 Subject: [PATCH 2/6] Verag TV App --- VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb | 563 ++++++++++++++++++ 1 file changed, 563 insertions(+) diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb index 02821350..497f09a9 100644 --- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb +++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb @@ -6,6 +6,7 @@ Imports System.Data.SqlClient Imports System.Globalization Imports System.Reflection Imports System.Web.UI.WebControls.WebParts +Imports System.Windows.Forms Public Class cSqlDb @@ -2437,6 +2438,568 @@ Public Class cVermerkeDAL End Class +Public Class cAvisoTvNew + Public Property TVID As Integer + Public Property TvTextBezeichnungID As Integer + Public Property TvTextBezeichnung As String + Public Property FixeZeile1RTF As String + Public Property FixeZeile1HTML As String + Public Property FixeZeile2 As String + Public Property FixeZeile3 As String + Public Property StandortID As Integer + Public Property Standort As String + Public Property Art As String + Public Property StartDate As Date? + Public Property EndDate As Date? + Public Property StartTime As TimeSpan? + Public Property EndTime As TimeSpan? + Public Property IsRecurring As Boolean? + Public Property IsMonday As Boolean? + Public Property IsTuesday As Boolean? + Public Property IsWednesday As Boolean? + Public Property IsThursday As Boolean? + Public Property IsFriday As Boolean? + Public Property IsSaturday As Boolean? + Public Property IsSunday As Boolean? + Public Property IsActive As Boolean + Public Property Position As String + + Public Property FontFamily As String = "Microsoft Sans Serif" + Public Property FontSize As Single = 12.0F + Public Property FontStyle As String = "Regular" + Public Property TextColor As String = "Black" + Public Property BackColor As String = "White" + Public Property TextAlignment As String = "Left" + +End Class + +Public Class cTvTextBezeichnung + Public Property TvTextBezeichnungID As Integer + Public Property TvTextBezeichnung As String +End Class + + +Public Class cAvisoTvNewDAL + + ' Methode zum Abrufen der StandortID basierend auf dem Standortnamen + Public Function GetStandortID(standort As String) As Integer + Dim standortID As Integer = 0 + Dim sql As String = "SELECT StandortID FROM Standorte WHERE Standort = @Standort" + + Try + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError() + If conn Is Nothing Then + Throw New Exception("Die Datenbankverbindung konnte nicht hergestellt werden.") + End If + + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@Standort", standort) + Dim result As Object = cmd.ExecuteScalar() + If result IsNot Nothing AndAlso Not IsDBNull(result) Then + standortID = Convert.ToInt32(result) + End If + End Using + Catch ex As SqlException + ' Ausnahme weiterwerfen mit spezifischer Fehlermeldung + Throw New Exception("SQL Fehler beim Abrufen der StandortID: " & ex.Message) + Catch ex As Exception + ' Allgemeine Ausnahme weiterwerfen + Throw New Exception("Allgemeiner Fehler beim Abrufen der StandortID: " & ex.Message) + End Try + + Return standortID + End Function + + Public Function LadenAlleTvTextBezeichnungen() As List(Of cTvTextBezeichnung) + Dim bezeichnungen As New List(Of cTvTextBezeichnung)() + + Try + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError() + If conn Is Nothing Then + Throw New Exception("Die Datenbankverbindung konnte nicht hergestellt werden.") + End If + + Dim sql As String = " + SELECT TvTextBezeichnungID, TvTextBezeichnung + FROM AvisoTvNew + ORDER BY TvTextBezeichnung + " + + Using cmd As New SqlCommand(sql, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + While dr.Read() + Dim bezeichnung As New cTvTextBezeichnung() With { + .TvTextBezeichnungID = Convert.ToInt32(dr("TvTextBezeichnungID")), + .TvTextBezeichnung = Convert.ToString(dr("TvTextBezeichnung")) + } + bezeichnungen.Add(bezeichnung) + End While + End Using + End Using + Catch ex As SqlException + Throw New Exception("SQL Fehler beim Laden der TvTextBezeichnungen: " & ex.Message) + Catch ex As Exception + Throw New Exception("Allgemeiner Fehler beim Laden der TvTextBezeichnungen: " & ex.Message) + End Try + + Return bezeichnungen + End Function + + + + + + ' Methode zum Ãœberprüfen, ob eine TvTextBezeichnung bereits für einen Standort existiert + Public Function IstTvTextBezeichnungVorhanden(tvTextBezeichnung As String) As Boolean + Dim vorhanden As Boolean = False + Dim sql As String = "SELECT COUNT(*) + FROM AvisoTvNew + WHERE TvTextBezeichnung = @TvTextBezeichnung" + + Try + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError() + If conn Is Nothing Then + Throw New Exception("Die Datenbankverbindung konnte nicht hergestellt werden.") + End If + + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@TvTextBezeichnung", tvTextBezeichnung) + Dim count As Integer = Convert.ToInt32(cmd.ExecuteScalar()) + If count > 0 Then + vorhanden = True + End If + End Using + Catch ex As SqlException + ' Ausnahme weiterwerfen mit spezifischer Fehlermeldung + Throw New Exception("SQL Fehler beim Ãœberprüfen der TvTextBezeichnung: " & ex.Message) + Catch ex As Exception + ' Allgemeine Ausnahme weiterwerfen + Throw New Exception("Allgemeiner Fehler beim Ãœberprüfen der TvTextBezeichnung: " & ex.Message) + End Try + + Return vorhanden + End Function + + ' Methode zum Lesen von AvisoTvNew-Einträgen + + Public Sub LesenAvisoTvNew(tvid As Integer, bezeichnung As String, standort As String, ByRef liste As List(Of cAvisoTvNew)) + Dim sql As String = "SELECT + stv.TvTextBezeichnungID, + stv.StandortID, + a.TvTextBezeichnung, + s.Standort, + stv.Position, + a.FixeZeile1RTF, + a.FixeZeile2, + a.FixeZeile3, + a.Art, + a.StartDate, + a.EndDate, + a.StartTime, + a.EndTime, + a.IsRecurring, + a.IsMonday, + a.IsTuesday, + a.IsWednesday, + a.IsThursday, + a.IsFriday, + a.IsSaturday, + a.IsSunday, + a.IsActive + FROM AvisoTvNew a + JOIN StandortTvBezeichnung stv ON a.TvTextBezeichnungID = stv.TvTextBezeichnungID + JOIN StandorteTV s ON stv.StandortID = s.StandortID + WHERE 1=1" + + If tvid <> 0 Then + sql &= " AND a.TvTextBezeichnungID = @TvTextBezeichnungID" + End If + + If Not String.IsNullOrWhiteSpace(bezeichnung) Then + sql &= " AND a.TVTextBezeichnung LIKE @TVTextBezeichnung" + End If + + If Not String.IsNullOrWhiteSpace(standort) Then + sql &= " AND s.Standort = @Standort" + End If + + Try + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError() + If conn Is Nothing Then + Throw New Exception("Die Datenbankverbindung konnte nicht hergestellt werden.") + End If + + Dim cmd As New SqlCommand(sql, conn) + If tvid <> 0 Then + cmd.Parameters.AddWithValue("@TvTextBezeichnungID", tvid) + End If + + If Not String.IsNullOrWhiteSpace(bezeichnung) Then + cmd.Parameters.AddWithValue("@TVTextBezeichnung", "%" & bezeichnung & "%") + End If + + If Not String.IsNullOrWhiteSpace(standort) Then + cmd.Parameters.AddWithValue("@Standort", standort) + End If + + Dim dr As SqlDataReader = cmd.ExecuteReader() + While dr.Read() + Dim aviso As New cAvisoTvNew() With { + .TvTextBezeichnungID = Convert.ToInt32(dr("TvTextBezeichnungID")), + .StandortID = Convert.ToInt32(dr("StandortID")), + .TvTextBezeichnung = Convert.ToString(dr("TVTextBezeichnung")), + .Standort = Convert.ToString(dr("Standort")), + .Position = If(IsDBNull(dr("Position")), Nothing, Convert.ToString(dr("Position"))), + .FixeZeile1RTF = If(IsDBNull(dr("FixeZeile1RTF")), Nothing, Convert.ToString(dr("FixeZeile1RTF"))), + .FixeZeile2 = If(IsDBNull(dr("FixeZeile2")), Nothing, Convert.ToString(dr("FixeZeile2"))), + .FixeZeile3 = If(IsDBNull(dr("FixeZeile3")), Nothing, Convert.ToString(dr("FixeZeile3"))), + .Art = If(IsDBNull(dr("Art")), Nothing, Convert.ToString(dr("Art"))), + .StartDate = If(IsDBNull(dr("StartDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("StartDate"))), + .EndDate = If(IsDBNull(dr("EndDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("EndDate"))), + .StartTime = If(IsDBNull(dr("StartTime")), CType(Nothing, TimeSpan?), Convert.ToDateTime(dr("StartTime")).TimeOfDay), + .EndTime = If(IsDBNull(dr("EndTime")), CType(Nothing, TimeSpan?), Convert.ToDateTime(dr("EndTime")).TimeOfDay), + .IsRecurring = If(IsDBNull(dr("IsRecurring")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsRecurring"))), + .IsMonday = If(IsDBNull(dr("IsMonday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsMonday"))), + .IsTuesday = If(IsDBNull(dr("IsTuesday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsTuesday"))), + .IsWednesday = If(IsDBNull(dr("IsWednesday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsWednesday"))), + .IsThursday = If(IsDBNull(dr("IsThursday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsThursday"))), + .IsFriday = If(IsDBNull(dr("IsFriday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsFriday"))), + .IsSaturday = If(IsDBNull(dr("IsSaturday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsSaturday"))), + .IsSunday = If(IsDBNull(dr("IsSunday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsSunday"))), + .IsActive = Convert.ToBoolean(dr("IsActive")) + } + liste.Add(aviso) + End While + dr.Close() + cmd.Dispose() + conn.Close() + Catch ex As SqlException + ' Ausnahme weiterwerfen mit spezifischer Fehlermeldung + Throw New Exception("SQL Fehler beim Lesen der Daten: " & ex.Message) + Catch ex As Exception + ' Allgemeine Ausnahme weiterwerfen + Throw New Exception("Allgemeiner Fehler beim Lesen der Daten: " & ex.Message) + End Try + End Sub + + Public Sub LesenAlleAvisoTvNew(ByRef liste As List(Of cAvisoTvNew)) + ' Basis-SQL-Abfrage ohne Filter + Dim sql As String = "SELECT + a.TvTextBezeichnungID, + a.TvTextBezeichnung, + a.FixeZeile1RTF, + a.FixeZeile2, + a.FixeZeile3, + a.Art, + a.StartDate, + a.EndDate, + a.StartTime, + a.EndTime, + a.IsRecurring, + a.IsMonday, + a.IsTuesday, + a.IsWednesday, + a.IsThursday, + a.IsFriday, + a.IsSaturday, + a.IsSunday, + a.IsActive + FROM AvisoTvNew a" + + Dim conn As SqlConnection = Nothing + Dim cmd As SqlCommand = Nothing + Dim dr As SqlDataReader = Nothing + + Try + conn = cDatenbankAVISO.GetNewOpenConnectionWithoutError() + If conn Is Nothing Then + Throw New Exception("Die Datenbankverbindung konnte nicht hergestellt werden.") + End If + + cmd = New SqlCommand(sql, conn) + + ' Keine Parameter erforderlich, da keine Filter + + ' Daten lesen und Objekte erstellen + dr = cmd.ExecuteReader() + While dr.Read() + Dim aviso As New cAvisoTvNew() With { + .TvTextBezeichnungID = If(IsDBNull(dr("TvTextBezeichnungID")), 0, Convert.ToInt32(dr("TvTextBezeichnungID"))), + .TvTextBezeichnung = If(IsDBNull(dr("TvTextBezeichnung")), String.Empty, dr("TvTextBezeichnung").ToString()), + .FixeZeile1RTF = If(IsDBNull(dr("FixeZeile1RTF")), Nothing, dr("FixeZeile1RTF").ToString()), + .FixeZeile2 = If(IsDBNull(dr("FixeZeile2")), Nothing, dr("FixeZeile2").ToString()), + .FixeZeile3 = If(IsDBNull(dr("FixeZeile3")), Nothing, dr("FixeZeile3").ToString()), + .Art = If(IsDBNull(dr("Art")), Nothing, dr("Art").ToString()), + .StartDate = If(IsDBNull(dr("StartDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("StartDate"))), + .EndDate = If(IsDBNull(dr("EndDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("EndDate"))), + .StartTime = If(IsDBNull(dr("StartTime")), CType(Nothing, TimeSpan?), Convert.ToDateTime(dr("StartTime")).TimeOfDay), + .EndTime = If(IsDBNull(dr("EndTime")), CType(Nothing, TimeSpan?), Convert.ToDateTime(dr("EndTime")).TimeOfDay), + .IsRecurring = If(IsDBNull(dr("IsRecurring")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsRecurring"))), + .IsMonday = If(IsDBNull(dr("IsMonday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsMonday"))), + .IsTuesday = If(IsDBNull(dr("IsTuesday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsTuesday"))), + .IsWednesday = If(IsDBNull(dr("IsWednesday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsWednesday"))), + .IsThursday = If(IsDBNull(dr("IsThursday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsThursday"))), + .IsFriday = If(IsDBNull(dr("IsFriday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsFriday"))), + .IsSaturday = If(IsDBNull(dr("IsSaturday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsSaturday"))), + .IsSunday = If(IsDBNull(dr("IsSunday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsSunday"))), + .IsActive = If(IsDBNull(dr("IsActive")), False, Convert.ToBoolean(dr("IsActive"))) + } + + liste.Add(aviso) + End While + dr.Close() + cmd.Dispose() + conn.Close() + Catch ex As SqlException + ' Ausnahme weiterwerfen mit spezifischer Fehlermeldung + Throw New Exception($"SQL Fehler beim Lesen der Daten: {ex.Message}") + Catch ex As Exception + ' Allgemeine Ausnahme weiterwerfen + Throw New Exception($"Allgemeiner Fehler beim Lesen der Daten: {ex.Message}") + End Try + End Sub + + + + + ' Methode zum Speichern von AvisoTvNew-Einträgen + Public Sub SpeichernAvisoTvNew(aviso As cAvisoTvNew) + Dim conn As SqlConnection = Nothing + Dim cmd As SqlCommand = Nothing + Dim cmdLink As SqlCommand = Nothing + Dim transaction As SqlTransaction = Nothing + + Try + conn = cDatenbankAVISO.GetNewOpenConnectionWithoutError() + If conn Is Nothing Then + Throw New Exception("Die Datenbankverbindung konnte nicht hergestellt werden.") + End If + + ' Beginnen einer Transaktion, um Konsistenz zu gewährleisten + transaction = conn.BeginTransaction() + + Dim sql As String + + If aviso.TvTextBezeichnungID = 0 Then + ' Neuanlage + sql = "INSERT INTO AvisoTvNew ( + TvTextBezeichnung, + FixeZeile1RTF, + FixeZeile1HTML, + FixeZeile2, + FixeZeile3, + StartDate, + EndDate, + StartTime, + EndTime, + IsRecurring, + IsMonday, + IsTuesday, + IsWednesday, + IsThursday, + IsFriday, + IsSaturday, + IsSunday, + IsActive + ) VALUES ( + @TvTextBezeichnung, + @FixeZeile1RTF, + @FixeZeile1HTML, + @FixeZeile2, + @FixeZeile3, + @StartDate, + @EndDate, + @StartTime, + @EndTime, + @IsRecurring, + @IsMonday, + @IsTuesday, + @IsWednesday, + @IsThursday, + @IsFriday, + @IsSaturday, + @IsSunday, + @IsActive + ); + SELECT CAST(scope_identity() AS int);" + Else + ' Aktualisierung + sql = "UPDATE AvisoTvNew SET + FixeZeile1RTF = @FixeZeile1RTF, + FixeZeile1HTML = @FixeZeile1HTML, + FixeZeile2 = @FixeZeile2, + FixeZeile3 = @FixeZeile3, + StartDate = @StartDate, + EndDate = @EndDate, + StartTime = @StartTime, + EndTime = @EndTime, + IsRecurring = @IsRecurring, + IsMonday = @IsMonday, + IsTuesday = @IsTuesday, + IsWednesday = @IsWednesday, + IsThursday = @IsThursday, + IsFriday = @IsFriday, + IsSaturday = @IsSaturday, + IsSunday = @IsSunday, + IsActive = @IsActive + WHERE TvTextBezeichnungID = @TvTextBezeichnungID" + End If + + cmd = New SqlCommand(sql, conn, transaction) + + cmd.Parameters.AddWithValue("@FixeZeile1RTF", If(String.IsNullOrWhiteSpace(aviso.FixeZeile1RTF), CType(Nothing, String), aviso.FixeZeile1RTF)) + cmd.Parameters.AddWithValue("@FixeZeile1HTML", If(String.IsNullOrWhiteSpace(aviso.FixeZeile1HTML), CType(Nothing, String), aviso.FixeZeile1HTML)) + cmd.Parameters.AddWithValue("@FixeZeile2", If(String.IsNullOrWhiteSpace(aviso.FixeZeile2), CType(Nothing, String), aviso.FixeZeile2)) + cmd.Parameters.AddWithValue("@FixeZeile3", If(String.IsNullOrWhiteSpace(aviso.FixeZeile3), CType(Nothing, String), aviso.FixeZeile3)) + cmd.Parameters.AddWithValue("@StartDate", If(aviso.StartDate.HasValue, CType(aviso.StartDate.Value, Object), DBNull.Value)) + cmd.Parameters.AddWithValue("@EndDate", If(aviso.EndDate.HasValue, CType(aviso.EndDate.Value, Object), DBNull.Value)) + cmd.Parameters.AddWithValue("@StartTime", If(aviso.StartTime.HasValue, CType(aviso.StartTime.Value, Object), DBNull.Value)) + cmd.Parameters.AddWithValue("@EndTime", If(aviso.EndTime.HasValue, CType(aviso.EndTime.Value, Object), DBNull.Value)) + cmd.Parameters.AddWithValue("@IsRecurring", aviso.IsRecurring) + cmd.Parameters.AddWithValue("@IsMonday", aviso.IsMonday) + cmd.Parameters.AddWithValue("@IsTuesday", aviso.IsTuesday) + cmd.Parameters.AddWithValue("@IsWednesday", aviso.IsWednesday) + cmd.Parameters.AddWithValue("@IsThursday", aviso.IsThursday) + cmd.Parameters.AddWithValue("@IsFriday", aviso.IsFriday) + cmd.Parameters.AddWithValue("@IsSaturday", aviso.IsSaturday) + cmd.Parameters.AddWithValue("@IsSunday", aviso.IsSunday) + cmd.Parameters.AddWithValue("@IsActive", aviso.IsActive) + + If aviso.TvTextBezeichnungID <> 0 Then + cmd.Parameters.AddWithValue("@TvTextBezeichnungID", aviso.TvTextBezeichnungID) + End If + + If aviso.TvTextBezeichnungID = 0 Then + cmd.Parameters.AddWithValue("@TvTextBezeichnung", aviso.TvTextBezeichnung) + + ' Neuanlage: Führen Sie das INSERT aus und holen Sie die generierte ID + Dim result As Object = cmd.ExecuteScalar() + If result Is Nothing OrElse IsDBNull(result) Then + Throw New Exception("Das INSERT hat keine ID zurückgegeben.") + End If + aviso.TvTextBezeichnungID = Convert.ToInt32(result) + Else + ' Aktualisierung: Führen Sie das UPDATE aus + cmd.ExecuteNonQuery() + End If + + ' Einfügen oder Aktualisieren in die StandortTvBezeichnung-Tabelle + Dim sqlLink As String = " + IF EXISTS ( + SELECT 1 FROM StandortTvBezeichnung + WHERE StandortID = @StandortID AND TvTextBezeichnungID = @TvTextBezeichnungID + ) + BEGIN + UPDATE StandortTvBezeichnung + SET Position = @Position, + FontFamily = @FontFamily, + FontSize = @FontSize, + FontStyle = @FontStyle, + TextColor = @TextColor, + BackColor = @BackColor, + TextAlignment = @TextAlignment + WHERE StandortID = @StandortID AND TvTextBezeichnungID = @TvTextBezeichnungID + END + ELSE + BEGIN + INSERT INTO StandortTvBezeichnung (StandortID, TvTextBezeichnungID, Position, FontFamily, FontSize, FontStyle, TextColor, BackColor, TextAlignment) + VALUES (@StandortID, @TvTextBezeichnungID, @Position, @FontFamily, @FontSize, @FontStyle, @TextColor, @BackColor, @TextAlignment) + END + " + + cmdLink = New SqlCommand(sqlLink, conn, transaction) + cmdLink.Parameters.AddWithValue("@StandortID", aviso.StandortID) + cmdLink.Parameters.AddWithValue("@TvTextBezeichnungID", aviso.TvTextBezeichnungID) + cmdLink.Parameters.AddWithValue("@Position", If(String.IsNullOrEmpty(aviso.Position), DBNull.Value, aviso.Position)) + cmdLink.Parameters.AddWithValue("@FontFamily", aviso.FontFamily) + cmdLink.Parameters.AddWithValue("@FontSize", aviso.FontSize) + cmdLink.Parameters.AddWithValue("@FontStyle", aviso.FontStyle) + cmdLink.Parameters.AddWithValue("@TextColor", aviso.TextColor) + cmdLink.Parameters.AddWithValue("@BackColor", aviso.BackColor) + cmdLink.Parameters.AddWithValue("@TextAlignment", aviso.TextAlignment) + + cmdLink.ExecuteNonQuery() + + ' Transaktion committen, wenn alle Operationen erfolgreich waren + transaction.Commit() + + Catch ex As SqlException + ' Fehlerbehandlung: Transaktion zurückrollen und Fehler weiterwerfen + If transaction IsNot Nothing Then + Try + transaction.Rollback() + Catch rollbackEx As Exception + Throw New Exception("Fehler beim Zurückrollen der Transaktion: " & rollbackEx.Message) + End Try + End If + Throw New Exception("SQL Fehler beim Speichern des Eintrags: " & ex.Message) + Catch ex As Exception + ' Allgemeine Fehlerbehandlung: Transaktion zurückrollen und Fehler weiterwerfen + If transaction IsNot Nothing Then + Try + transaction.Rollback() + Catch rollbackEx As Exception + Throw New Exception("Fehler beim Zurückrollen der Transaktion: " & rollbackEx.Message) + End Try + End If + Throw New Exception("Allgemeiner Fehler beim Speichern des Eintrags: " & ex.Message) + Finally + ' Ressourcen manuell freigeben + If cmdLink IsNot Nothing Then + cmdLink.Dispose() + cmdLink = Nothing + End If + + If cmd IsNot Nothing Then + cmd.Dispose() + cmd = Nothing + End If + + If transaction IsNot Nothing Then + transaction.Dispose() + transaction = Nothing + End If + + If conn IsNot Nothing Then + conn.Close() + conn = Nothing + End If + End Try + End Sub + + + + ' Methode zum Setzen eines Eintrags auf inaktiv + Public Sub SetzeAufInaktiv(ByVal hID As Integer) + Dim sql As String = "UPDATE AvisoTvNew SET IsActive = 0 WHERE TVID = @TVID" + + Try + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError() + If conn Is Nothing Then + Throw New Exception("Die Datenbankverbindung konnte nicht hergestellt werden.") + End If + + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@TVID", hID) + Dim rowsAffected As Integer = cmd.ExecuteNonQuery() + If rowsAffected = 0 Then + Throw New Exception("Der Datensatz konnte nicht auf inaktiv gesetzt werden. Möglicherweise existiert er nicht mehr.") + End If + End Using + Catch ex As SqlException + ' Ausnahme weiterwerfen mit spezifischer Fehlermeldung + Throw New Exception("AvisoTvNew-Eintrag kann nicht auf inaktiv gesetzt werden! " & vbCrLf & ex.Message) + Catch ex As Exception + ' Allgemeine Ausnahme weiterwerfen + Throw New Exception("Fehler beim Setzen auf inaktiv: " & ex.Message) + End Try + End Sub + +End Class + + + + Public Class cAvisoTV Property TVID As Long = 0 Property FixeZeile1 As String From 69fb7008a14fe124e64ad403482ef99dd51b68b0 Mon Sep 17 00:00:00 2001 From: "m.ilhan" Date: Fri, 22 Nov 2024 16:41:28 +0100 Subject: [PATCH 3/6] TVAPP --- VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb | 74 ++++++++----------- 1 file changed, 32 insertions(+), 42 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb index 497f09a9..5dd8a52e 100644 --- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb +++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb @@ -2439,13 +2439,14 @@ End Class Public Class cAvisoTvNew - Public Property TVID As Integer Public Property TvTextBezeichnungID As Integer Public Property TvTextBezeichnung As String Public Property FixeZeile1RTF As String Public Property FixeZeile1HTML As String - Public Property FixeZeile2 As String - Public Property FixeZeile3 As String + Public Property FixeZeile2RTF As String + Public Property FixeZeile2HTML As String + Public Property FixeZeile3HTML As String + Public Property FixeZeile3RTF As String Public Property StandortID As Integer Public Property Standort As String Public Property Art As String @@ -2464,12 +2465,6 @@ Public Class cAvisoTvNew Public Property IsActive As Boolean Public Property Position As String - Public Property FontFamily As String = "Microsoft Sans Serif" - Public Property FontSize As Single = 12.0F - Public Property FontStyle As String = "Regular" - Public Property TextColor As String = "Black" - Public Property BackColor As String = "White" - Public Property TextAlignment As String = "Left" End Class @@ -2481,10 +2476,9 @@ End Class Public Class cAvisoTvNewDAL - ' Methode zum Abrufen der StandortID basierend auf dem Standortnamen Public Function GetStandortID(standort As String) As Integer Dim standortID As Integer = 0 - Dim sql As String = "SELECT StandortID FROM Standorte WHERE Standort = @Standort" + Dim sql As String = "SELECT StandortID FROM StandorteTV WHERE Standort = @Standort" Try Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError() @@ -2590,8 +2584,8 @@ Public Class cAvisoTvNewDAL s.Standort, stv.Position, a.FixeZeile1RTF, - a.FixeZeile2, - a.FixeZeile3, + a.FixeZeile2RTF, + a.FixeZeile3RTF, a.Art, a.StartDate, a.EndDate, @@ -2651,8 +2645,8 @@ Public Class cAvisoTvNewDAL .Standort = Convert.ToString(dr("Standort")), .Position = If(IsDBNull(dr("Position")), Nothing, Convert.ToString(dr("Position"))), .FixeZeile1RTF = If(IsDBNull(dr("FixeZeile1RTF")), Nothing, Convert.ToString(dr("FixeZeile1RTF"))), - .FixeZeile2 = If(IsDBNull(dr("FixeZeile2")), Nothing, Convert.ToString(dr("FixeZeile2"))), - .FixeZeile3 = If(IsDBNull(dr("FixeZeile3")), Nothing, Convert.ToString(dr("FixeZeile3"))), + .FixeZeile2RTF = If(IsDBNull(dr("FixeZeile2RTF")), Nothing, Convert.ToString(dr("FixeZeile2RTF"))), + .FixeZeile3RTF = If(IsDBNull(dr("FixeZeile3RTF")), Nothing, Convert.ToString(dr("FixeZeile3RTF"))), .Art = If(IsDBNull(dr("Art")), Nothing, Convert.ToString(dr("Art"))), .StartDate = If(IsDBNull(dr("StartDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("StartDate"))), .EndDate = If(IsDBNull(dr("EndDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("EndDate"))), @@ -2688,8 +2682,8 @@ Public Class cAvisoTvNewDAL a.TvTextBezeichnungID, a.TvTextBezeichnung, a.FixeZeile1RTF, - a.FixeZeile2, - a.FixeZeile3, + a.FixeZeile2RTF, + a.FixeZeile3RTF, a.Art, a.StartDate, a.EndDate, @@ -2727,8 +2721,8 @@ Public Class cAvisoTvNewDAL .TvTextBezeichnungID = If(IsDBNull(dr("TvTextBezeichnungID")), 0, Convert.ToInt32(dr("TvTextBezeichnungID"))), .TvTextBezeichnung = If(IsDBNull(dr("TvTextBezeichnung")), String.Empty, dr("TvTextBezeichnung").ToString()), .FixeZeile1RTF = If(IsDBNull(dr("FixeZeile1RTF")), Nothing, dr("FixeZeile1RTF").ToString()), - .FixeZeile2 = If(IsDBNull(dr("FixeZeile2")), Nothing, dr("FixeZeile2").ToString()), - .FixeZeile3 = If(IsDBNull(dr("FixeZeile3")), Nothing, dr("FixeZeile3").ToString()), + .FixeZeile2RTF = If(IsDBNull(dr("FixeZeile2RTF")), Nothing, dr("FixeZeile2RTF").ToString()), + .FixeZeile3RTF = If(IsDBNull(dr("FixeZeile3RTF")), Nothing, dr("FixeZeile3RTF").ToString()), .Art = If(IsDBNull(dr("Art")), Nothing, dr("Art").ToString()), .StartDate = If(IsDBNull(dr("StartDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("StartDate"))), .EndDate = If(IsDBNull(dr("EndDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("EndDate"))), @@ -2786,8 +2780,10 @@ Public Class cAvisoTvNewDAL TvTextBezeichnung, FixeZeile1RTF, FixeZeile1HTML, - FixeZeile2, - FixeZeile3, + FixeZeile2RTF, + FixeZeile2HTML, + FixeZeile3RTF, + FixeZeile3HTML, StartDate, EndDate, StartTime, @@ -2805,8 +2801,10 @@ Public Class cAvisoTvNewDAL @TvTextBezeichnung, @FixeZeile1RTF, @FixeZeile1HTML, - @FixeZeile2, - @FixeZeile3, + @FixeZeile2RTF, + @FixeZeile2HTML, + @FixeZeile3RTF, + @FixeZeile3HTML, @StartDate, @EndDate, @StartTime, @@ -2827,8 +2825,10 @@ Public Class cAvisoTvNewDAL sql = "UPDATE AvisoTvNew SET FixeZeile1RTF = @FixeZeile1RTF, FixeZeile1HTML = @FixeZeile1HTML, - FixeZeile2 = @FixeZeile2, - FixeZeile3 = @FixeZeile3, + FixeZeile2RTF = @FixeZeile2RTF, + FixeZeile2HTML = @FixeZeile2HTML, + FixeZeile3RTF = @FixeZeile3RTF, + FixeZeile3HTML = @FixeZeile3HTML, StartDate = @StartDate, EndDate = @EndDate, StartTime = @StartTime, @@ -2849,8 +2849,10 @@ Public Class cAvisoTvNewDAL cmd.Parameters.AddWithValue("@FixeZeile1RTF", If(String.IsNullOrWhiteSpace(aviso.FixeZeile1RTF), CType(Nothing, String), aviso.FixeZeile1RTF)) cmd.Parameters.AddWithValue("@FixeZeile1HTML", If(String.IsNullOrWhiteSpace(aviso.FixeZeile1HTML), CType(Nothing, String), aviso.FixeZeile1HTML)) - cmd.Parameters.AddWithValue("@FixeZeile2", If(String.IsNullOrWhiteSpace(aviso.FixeZeile2), CType(Nothing, String), aviso.FixeZeile2)) - cmd.Parameters.AddWithValue("@FixeZeile3", If(String.IsNullOrWhiteSpace(aviso.FixeZeile3), CType(Nothing, String), aviso.FixeZeile3)) + cmd.Parameters.AddWithValue("@FixeZeile2RTF", If(String.IsNullOrWhiteSpace(aviso.FixeZeile2RTF), DBNull.Value, aviso.FixeZeile2RTF)) + cmd.Parameters.AddWithValue("@FixeZeile2HTML", If(String.IsNullOrWhiteSpace(aviso.FixeZeile2HTML), DBNull.Value, aviso.FixeZeile2HTML)) + cmd.Parameters.AddWithValue("@FixeZeile3RTF", If(String.IsNullOrWhiteSpace(aviso.FixeZeile3RTF), DBNull.Value, aviso.FixeZeile3RTF)) + cmd.Parameters.AddWithValue("@FixeZeile3HTML", If(String.IsNullOrWhiteSpace(aviso.FixeZeile3HTML), DBNull.Value, aviso.FixeZeile3HTML)) cmd.Parameters.AddWithValue("@StartDate", If(aviso.StartDate.HasValue, CType(aviso.StartDate.Value, Object), DBNull.Value)) cmd.Parameters.AddWithValue("@EndDate", If(aviso.EndDate.HasValue, CType(aviso.EndDate.Value, Object), DBNull.Value)) cmd.Parameters.AddWithValue("@StartTime", If(aviso.StartTime.HasValue, CType(aviso.StartTime.Value, Object), DBNull.Value)) @@ -2891,19 +2893,13 @@ Public Class cAvisoTvNewDAL ) BEGIN UPDATE StandortTvBezeichnung - SET Position = @Position, - FontFamily = @FontFamily, - FontSize = @FontSize, - FontStyle = @FontStyle, - TextColor = @TextColor, - BackColor = @BackColor, - TextAlignment = @TextAlignment + SET Position = @Position WHERE StandortID = @StandortID AND TvTextBezeichnungID = @TvTextBezeichnungID END ELSE BEGIN - INSERT INTO StandortTvBezeichnung (StandortID, TvTextBezeichnungID, Position, FontFamily, FontSize, FontStyle, TextColor, BackColor, TextAlignment) - VALUES (@StandortID, @TvTextBezeichnungID, @Position, @FontFamily, @FontSize, @FontStyle, @TextColor, @BackColor, @TextAlignment) + INSERT INTO StandortTvBezeichnung (StandortID, TvTextBezeichnungID, Position) + VALUES (@StandortID, @TvTextBezeichnungID, @Position) END " @@ -2911,12 +2907,6 @@ Public Class cAvisoTvNewDAL cmdLink.Parameters.AddWithValue("@StandortID", aviso.StandortID) cmdLink.Parameters.AddWithValue("@TvTextBezeichnungID", aviso.TvTextBezeichnungID) cmdLink.Parameters.AddWithValue("@Position", If(String.IsNullOrEmpty(aviso.Position), DBNull.Value, aviso.Position)) - cmdLink.Parameters.AddWithValue("@FontFamily", aviso.FontFamily) - cmdLink.Parameters.AddWithValue("@FontSize", aviso.FontSize) - cmdLink.Parameters.AddWithValue("@FontStyle", aviso.FontStyle) - cmdLink.Parameters.AddWithValue("@TextColor", aviso.TextColor) - cmdLink.Parameters.AddWithValue("@BackColor", aviso.BackColor) - cmdLink.Parameters.AddWithValue("@TextAlignment", aviso.TextAlignment) cmdLink.ExecuteNonQuery() From 68fe0128b746b1a8fa6b82ce2d9bdb1671b09fbf Mon Sep 17 00:00:00 2001 From: "m.ilhan" Date: Mon, 9 Dec 2024 17:43:40 +0100 Subject: [PATCH 4/6] TvSettingsNew --- SDL/My Project/Resources.resx | 2 +- SDL/SDL.vbproj | 1 - VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb | 807 ++++++++++-------- 3 files changed, 445 insertions(+), 365 deletions(-) diff --git a/SDL/My Project/Resources.resx b/SDL/My Project/Resources.resx index ab0e54b5..86916e07 100644 --- a/SDL/My Project/Resources.resx +++ b/SDL/My Project/Resources.resx @@ -382,7 +382,7 @@ ..\Resources\passpic.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - + ..\Resources\house.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 9826cf2d..281e06fe 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -3364,7 +3364,6 @@ usrCntlMDMDatenverarbeitungAuswertungen_divers.vb - frmATR.vb diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb index 5dd8a52e..40dbad39 100644 --- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb +++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb @@ -196,6 +196,12 @@ Public Class cDatenbankAVISO Return Nothing End Function + Public Shared Function CreateNewOpenConnection() As SqlConnection + Dim conn As New SqlConnection(cSqlDb.GetAVISOConnectionString()) + conn.Open() + Return conn + End Function + Public Shared Function GetNewOpenConnectionWithoutError(Optional newConn As Boolean = False) As SqlConnection Try @@ -2473,110 +2479,223 @@ Public Class cTvTextBezeichnung Public Property TvTextBezeichnung As String End Class +Public Class cTvSettings + Public Property TVSettingID As Integer + Public Property StandortID As Integer + Public Property KachelWidthInPercent As Double? + Public Property KachelHeightInPercent As Double? + Public Property KachelFontSizeLkwNummer As Double? + Public Property KachelFontSizeDateTime As Double? + Public Property KachelRowGapInPercent As Double? + Public Property SeitenwechselInSek As Integer? + Public Property TextBalkenHeightInPercent As Double? + Public Property SelectedLogoValue As String + + +End Class + Public Class cAvisoTvNewDAL + ''' + ''' Holt die StandortID basierend auf dem Standortnamen. + ''' + ''' Der Name des Standorts. + ''' Die zugehörige StandortID oder 0, wenn nicht gefunden. Public Function GetStandortID(standort As String) As Integer Dim standortID As Integer = 0 - Dim sql As String = "SELECT StandortID FROM StandorteTV WHERE Standort = @Standort" + Dim sql As String = "SELECT StandortID FROM StandorteTV WHERE StandortBezeichnung = @StandortBezeichnung" Try - Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError() - If conn Is Nothing Then - Throw New Exception("Die Datenbankverbindung konnte nicht hergestellt werden.") - End If - - Using cmd As New SqlCommand(sql, conn) - cmd.Parameters.AddWithValue("@Standort", standort) - Dim result As Object = cmd.ExecuteScalar() - If result IsNot Nothing AndAlso Not IsDBNull(result) Then - standortID = Convert.ToInt32(result) - End If + Using conn As SqlConnection = cDatenbankAVISO.CreateNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@StandortBezeichnung", standort) + Dim result As Object = cmd.ExecuteScalar() + If result IsNot Nothing AndAlso Not IsDBNull(result) Then + standortID = Convert.ToInt32(result) + End If + End Using End Using Catch ex As SqlException - ' Ausnahme weiterwerfen mit spezifischer Fehlermeldung - Throw New Exception("SQL Fehler beim Abrufen der StandortID: " & ex.Message) + Throw New Exception("SQL Fehler beim Abrufen der StandortID: " & ex.Message, ex) Catch ex As Exception - ' Allgemeine Ausnahme weiterwerfen - Throw New Exception("Allgemeiner Fehler beim Abrufen der StandortID: " & ex.Message) + Throw New Exception("Allgemeiner Fehler beim Abrufen der StandortID: " & ex.Message, ex) End Try Return standortID End Function - Public Function LadenAlleTvTextBezeichnungen() As List(Of cTvTextBezeichnung) - Dim bezeichnungen As New List(Of cTvTextBezeichnung)() + ''' + ''' Speichert die TV-Einstellungen in der Datenbank. + ''' + ''' Die TV-Einstellungen, die gespeichert werden sollen. + Public Sub SaveTvSettings(settings As cTvSettings) + Dim sqlCheck As String = "SELECT COUNT(*) FROM AvisoTvSettings WHERE StandortID = @StandortID" + Dim sqlUpdate As String = "UPDATE AvisoTvSettings SET + KachelWidthInPercent = @KachelWidthInPercent, + KachelHeightInPercent = @KachelHeightInPercent, + KachelFontSizeLkwNummer = @KachelFontSizeLkwNummer, + KachelFontSizeDateTime = @KachelFontSizeDateTime, + KachelRowGapInPercent = @KachelRowGapInPercent, + SeitenwechselInSek = @SeitenwechselInSek, + TextBalkenHeightInPercent = @TextBalkenHeightInPercent, + Logo = @Logo + WHERE StandortID = @StandortID" + Dim sqlInsert As String = "INSERT INTO AvisoTvSettings + (StandortID, KachelWidthInPercent, KachelHeightInPercent,KachelRowGapInPercent, + KachelFontSizeLkwNummer, KachelFontSizeDateTime, + SeitenwechselInSek, TextBalkenHeightInPercent,Logo) + VALUES + (@StandortID, @KachelWidthInPercent, @KachelHeightInPercent,@KachelRowGapInPercent, + @KachelFontSizeLkwNummer, @KachelFontSizeDateTime, + @SeitenwechselInSek, @TextBalkenHeightInPercent,@Logo)" Try - Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError() - If conn Is Nothing Then - Throw New Exception("Die Datenbankverbindung konnte nicht hergestellt werden.") - End If + Using conn As SqlConnection = cDatenbankAVISO.CreateNewOpenConnection() + ' Ãœberprüfen, ob bereits Einstellungen für den Standort existieren + Dim recordExists As Boolean + Using cmdCheck As New SqlCommand(sqlCheck, conn) + cmdCheck.Parameters.AddWithValue("@StandortID", settings.StandortID) + recordExists = Convert.ToInt32(cmdCheck.ExecuteScalar()) > 0 + End Using - Dim sql As String = " + ' Wähle Update oder Insert basierend auf der Existenz + Dim sql As String = If(recordExists, sqlUpdate, sqlInsert) + + Using cmdSave As New SqlCommand(sql, conn) + cmdSave.Parameters.AddWithValue("@StandortID", settings.StandortID) + cmdSave.Parameters.AddWithValue("@KachelWidthInPercent", settings.KachelWidthInPercent) + cmdSave.Parameters.AddWithValue("@KachelHeightInPercent", settings.KachelHeightInPercent) + cmdSave.Parameters.AddWithValue("@KachelRowGapInPercent", settings.KachelRowGapInPercent) + cmdSave.Parameters.AddWithValue("@KachelFontSizeLkwNummer", settings.KachelFontSizeLkwNummer) + cmdSave.Parameters.AddWithValue("@KachelFontSizeDateTime", settings.KachelFontSizeDateTime) + cmdSave.Parameters.AddWithValue("@SeitenwechselInSek", settings.SeitenwechselInSek) + cmdSave.Parameters.AddWithValue("@TextBalkenHeightInPercent", settings.TextBalkenHeightInPercent) + cmdSave.Parameters.AddWithValue("@Logo", settings.SelectedLogoValue) + cmdSave.ExecuteNonQuery() + End Using + End Using + Catch ex As SqlException + Throw New Exception("SQL Fehler beim Speichern der TV-Einstellungen: " & ex.Message, ex) + Catch ex As Exception + Throw New Exception("Allgemeiner Fehler beim Speichern der TV-Einstellungen: " & ex.Message, ex) + End Try + End Sub + + ''' + ''' Lädt die TV-Einstellungen basierend auf der StandortID. + ''' + ''' Die StandortID, für die die Einstellungen geladen werden sollen. + ''' Eine Liste der entsprechenden TV-Einstellungen. + Public Function GetTvSettingsByStandort(standortID As Integer) As List(Of cTvSettings) + Dim SettingsList As New List(Of cTvSettings)() + Dim sql As String = "SELECT * FROM AvisoTvSettings WHERE StandortID = @StandortID" + + Try + Using conn As SqlConnection = cDatenbankAVISO.CreateNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@StandortID", standortID) + + Using dr As SqlDataReader = cmd.ExecuteReader() + While dr.Read() + Dim settings As New cTvSettings() With { + .TVSettingID = Convert.ToInt32(dr("TvSettingID")), + .StandortID = Convert.ToInt32(dr("StandortID")), + .KachelWidthInPercent = If(IsDBNull(dr("KachelWidthInPercent")), 0, Convert.ToDouble(dr("KachelWidthInPercent"))), + .KachelHeightInPercent = If(IsDBNull(dr("KachelHeightInPercent")), 0, Convert.ToDouble(dr("KachelHeightInPercent"))), + .KachelRowGapInPercent = If(IsDBNull(dr("KachelRowGapInPercent")), 0, Convert.ToDouble(dr("KachelRowGapInPercent"))), + .KachelFontSizeLkwNummer = If(IsDBNull(dr("KachelFontSizeLkwNummer")), 0, Convert.ToDouble(dr("KachelFontSizeLkwNummer"))), + .KachelFontSizeDateTime = If(IsDBNull(dr("KachelFontSizeDateTime")), 0, Convert.ToDouble(dr("KachelFontSizeDateTime"))), + .SeitenwechselInSek = If(IsDBNull(dr("SeitenwechselInSek")), 0, Convert.ToInt32(dr("SeitenwechselInSek"))), + .TextBalkenHeightInPercent = If(IsDBNull(dr("TextBalkenHeightInPercent")), 0, Convert.ToDouble(dr("TextBalkenHeightInPercent"))), + .SelectedLogoValue = If(IsDBNull(dr("Logo")), "", Convert.ToString(dr("Logo"))) + } + + SettingsList.Add(settings) + End While + End Using + End Using + End Using + Catch ex As SqlException + Throw New Exception("SQL Fehler beim Laden der TV-Einstellungen: " & ex.Message, ex) + Catch ex As Exception + Throw New Exception("Allgemeiner Fehler beim Laden der TV-Einstellungen: " & ex.Message, ex) + End Try + + Return SettingsList + End Function + + ''' + ''' Lädt alle TV-Textbezeichnungen aus der Datenbank. + ''' + ''' Eine Liste aller TV-Textbezeichnungen. + Public Function LadenAlleTvTextBezeichnungen() As List(Of cTvTextBezeichnung) + Dim bezeichnungen As New List(Of cTvTextBezeichnung)() + Dim sql As String = " SELECT TvTextBezeichnungID, TvTextBezeichnung FROM AvisoTvNew ORDER BY TvTextBezeichnung " - Using cmd As New SqlCommand(sql, conn) - Using dr As SqlDataReader = cmd.ExecuteReader() - While dr.Read() - Dim bezeichnung As New cTvTextBezeichnung() With { - .TvTextBezeichnungID = Convert.ToInt32(dr("TvTextBezeichnungID")), - .TvTextBezeichnung = Convert.ToString(dr("TvTextBezeichnung")) - } - bezeichnungen.Add(bezeichnung) - End While + Try + Using conn As SqlConnection = cDatenbankAVISO.CreateNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + While dr.Read() + Dim bezeichnung As New cTvTextBezeichnung() With { + .TvTextBezeichnungID = Convert.ToInt32(dr("TvTextBezeichnungID")), + .TvTextBezeichnung = Convert.ToString(dr("TvTextBezeichnung")) + } + bezeichnungen.Add(bezeichnung) + End While + End Using End Using End Using Catch ex As SqlException - Throw New Exception("SQL Fehler beim Laden der TvTextBezeichnungen: " & ex.Message) + Throw New Exception("SQL Fehler beim Laden der TvTextBezeichnungen: " & ex.Message, ex) Catch ex As Exception - Throw New Exception("Allgemeiner Fehler beim Laden der TvTextBezeichnungen: " & ex.Message) + Throw New Exception("Allgemeiner Fehler beim Laden der TvTextBezeichnungen: " & ex.Message, ex) End Try Return bezeichnungen End Function - - - - - ' Methode zum Ãœberprüfen, ob eine TvTextBezeichnung bereits für einen Standort existiert + ''' + ''' Ãœberprüft, ob eine TV-Textbezeichnung bereits vorhanden ist. + ''' + ''' Die TV-Textbezeichnung, die überprüft werden soll. + ''' True, wenn die Bezeichnung vorhanden ist; andernfalls False. Public Function IstTvTextBezeichnungVorhanden(tvTextBezeichnung As String) As Boolean Dim vorhanden As Boolean = False - Dim sql As String = "SELECT COUNT(*) - FROM AvisoTvNew - WHERE TvTextBezeichnung = @TvTextBezeichnung" + Dim sql As String = "SELECT COUNT(*) FROM AvisoTvNew WHERE TvTextBezeichnung = @TvTextBezeichnung" Try - Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError() - If conn Is Nothing Then - Throw New Exception("Die Datenbankverbindung konnte nicht hergestellt werden.") - End If - - Using cmd As New SqlCommand(sql, conn) - cmd.Parameters.AddWithValue("@TvTextBezeichnung", tvTextBezeichnung) - Dim count As Integer = Convert.ToInt32(cmd.ExecuteScalar()) - If count > 0 Then - vorhanden = True - End If + Using conn As SqlConnection = cDatenbankAVISO.CreateNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@TvTextBezeichnung", tvTextBezeichnung) + Dim count As Integer = Convert.ToInt32(cmd.ExecuteScalar()) + If count > 0 Then + vorhanden = True + End If + End Using End Using Catch ex As SqlException - ' Ausnahme weiterwerfen mit spezifischer Fehlermeldung - Throw New Exception("SQL Fehler beim Ãœberprüfen der TvTextBezeichnung: " & ex.Message) + Throw New Exception("SQL Fehler beim Ãœberprüfen der TvTextBezeichnung: " & ex.Message, ex) Catch ex As Exception - ' Allgemeine Ausnahme weiterwerfen - Throw New Exception("Allgemeiner Fehler beim Ãœberprüfen der TvTextBezeichnung: " & ex.Message) + Throw New Exception("Allgemeiner Fehler beim Ãœberprüfen der TvTextBezeichnung: " & ex.Message, ex) End Try Return vorhanden End Function - ' Methode zum Lesen von AvisoTvNew-Einträgen - - Public Sub LesenAvisoTvNew(tvid As Integer, bezeichnung As String, standort As String, ByRef liste As List(Of cAvisoTvNew)) + ''' + ''' Liest AvisoTvNew-Einträge basierend auf den angegebenen Kriterien. + ''' + ''' Die TV-TextbezeichnungID. + ''' Die Bezeichnung. + ''' Der Standort. + ''' Die Liste, in die die Ergebnisse eingefügt werden. + Public Sub LesenAvisoTvNew(tvid As Integer, bezeichnung As String, StandortBezeichnung As String, ByRef liste As List(Of cAvisoTvNew)) Dim sql As String = "SELECT stv.TvTextBezeichnungID, stv.StandortID, @@ -2613,69 +2732,67 @@ Public Class cAvisoTvNewDAL sql &= " AND a.TVTextBezeichnung LIKE @TVTextBezeichnung" End If - If Not String.IsNullOrWhiteSpace(standort) Then - sql &= " AND s.Standort = @Standort" + If Not String.IsNullOrWhiteSpace(StandortBezeichnung) Then + sql &= " AND s.Standortbezeichnung = @StandortBezeichnung" End If Try - Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError() - If conn Is Nothing Then - Throw New Exception("Die Datenbankverbindung konnte nicht hergestellt werden.") - End If + Using conn As SqlConnection = cDatenbankAVISO.CreateNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + If tvid <> 0 Then + cmd.Parameters.AddWithValue("@TvTextBezeichnungID", tvid) + End If - Dim cmd As New SqlCommand(sql, conn) - If tvid <> 0 Then - cmd.Parameters.AddWithValue("@TvTextBezeichnungID", tvid) - End If + If Not String.IsNullOrWhiteSpace(bezeichnung) Then + cmd.Parameters.AddWithValue("@TVTextBezeichnung", "%" & bezeichnung & "%") + End If - If Not String.IsNullOrWhiteSpace(bezeichnung) Then - cmd.Parameters.AddWithValue("@TVTextBezeichnung", "%" & bezeichnung & "%") - End If + If Not String.IsNullOrWhiteSpace(StandortBezeichnung) Then + cmd.Parameters.AddWithValue("@StandortBezeichnung", StandortBezeichnung) + End If - If Not String.IsNullOrWhiteSpace(standort) Then - cmd.Parameters.AddWithValue("@Standort", standort) - End If - - Dim dr As SqlDataReader = cmd.ExecuteReader() - While dr.Read() - Dim aviso As New cAvisoTvNew() With { - .TvTextBezeichnungID = Convert.ToInt32(dr("TvTextBezeichnungID")), - .StandortID = Convert.ToInt32(dr("StandortID")), - .TvTextBezeichnung = Convert.ToString(dr("TVTextBezeichnung")), - .Standort = Convert.ToString(dr("Standort")), - .Position = If(IsDBNull(dr("Position")), Nothing, Convert.ToString(dr("Position"))), - .FixeZeile1RTF = If(IsDBNull(dr("FixeZeile1RTF")), Nothing, Convert.ToString(dr("FixeZeile1RTF"))), - .FixeZeile2RTF = If(IsDBNull(dr("FixeZeile2RTF")), Nothing, Convert.ToString(dr("FixeZeile2RTF"))), - .FixeZeile3RTF = If(IsDBNull(dr("FixeZeile3RTF")), Nothing, Convert.ToString(dr("FixeZeile3RTF"))), - .Art = If(IsDBNull(dr("Art")), Nothing, Convert.ToString(dr("Art"))), - .StartDate = If(IsDBNull(dr("StartDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("StartDate"))), - .EndDate = If(IsDBNull(dr("EndDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("EndDate"))), - .StartTime = If(IsDBNull(dr("StartTime")), CType(Nothing, TimeSpan?), Convert.ToDateTime(dr("StartTime")).TimeOfDay), - .EndTime = If(IsDBNull(dr("EndTime")), CType(Nothing, TimeSpan?), Convert.ToDateTime(dr("EndTime")).TimeOfDay), - .IsRecurring = If(IsDBNull(dr("IsRecurring")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsRecurring"))), - .IsMonday = If(IsDBNull(dr("IsMonday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsMonday"))), - .IsTuesday = If(IsDBNull(dr("IsTuesday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsTuesday"))), - .IsWednesday = If(IsDBNull(dr("IsWednesday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsWednesday"))), - .IsThursday = If(IsDBNull(dr("IsThursday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsThursday"))), - .IsFriday = If(IsDBNull(dr("IsFriday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsFriday"))), - .IsSaturday = If(IsDBNull(dr("IsSaturday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsSaturday"))), - .IsSunday = If(IsDBNull(dr("IsSunday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsSunday"))), - .IsActive = Convert.ToBoolean(dr("IsActive")) - } - liste.Add(aviso) - End While - dr.Close() - cmd.Dispose() - conn.Close() + Using dr As SqlDataReader = cmd.ExecuteReader() + While dr.Read() + Dim aviso As New cAvisoTvNew() With { + .TvTextBezeichnungID = Convert.ToInt32(dr("TvTextBezeichnungID")), + .StandortID = Convert.ToInt32(dr("StandortID")), + .TvTextBezeichnung = Convert.ToString(dr("TVTextBezeichnung")), + .Standort = Convert.ToString(dr("Standort")), + .Position = If(IsDBNull(dr("Position")), Nothing, Convert.ToString(dr("Position"))), + .FixeZeile1RTF = If(IsDBNull(dr("FixeZeile1RTF")), Nothing, Convert.ToString(dr("FixeZeile1RTF"))), + .FixeZeile2RTF = If(IsDBNull(dr("FixeZeile2RTF")), Nothing, Convert.ToString(dr("FixeZeile2RTF"))), + .FixeZeile3RTF = If(IsDBNull(dr("FixeZeile3RTF")), Nothing, Convert.ToString(dr("FixeZeile3RTF"))), + .Art = If(IsDBNull(dr("Art")), Nothing, Convert.ToString(dr("Art"))), + .StartDate = If(IsDBNull(dr("StartDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("StartDate"))), + .EndDate = If(IsDBNull(dr("EndDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("EndDate"))), + .StartTime = If(IsDBNull(dr("StartTime")), CType(Nothing, TimeSpan?), Convert.ToDateTime(dr("StartTime")).TimeOfDay), + .EndTime = If(IsDBNull(dr("EndTime")), CType(Nothing, TimeSpan?), Convert.ToDateTime(dr("EndTime")).TimeOfDay), + .IsRecurring = If(IsDBNull(dr("IsRecurring")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsRecurring"))), + .IsMonday = If(IsDBNull(dr("IsMonday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsMonday"))), + .IsTuesday = If(IsDBNull(dr("IsTuesday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsTuesday"))), + .IsWednesday = If(IsDBNull(dr("IsWednesday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsWednesday"))), + .IsThursday = If(IsDBNull(dr("IsThursday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsThursday"))), + .IsFriday = If(IsDBNull(dr("IsFriday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsFriday"))), + .IsSaturday = If(IsDBNull(dr("IsSaturday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsSaturday"))), + .IsSunday = If(IsDBNull(dr("IsSunday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsSunday"))), + .IsActive = Convert.ToBoolean(dr("IsActive")) + } + liste.Add(aviso) + End While + End Using + End Using + End Using Catch ex As SqlException - ' Ausnahme weiterwerfen mit spezifischer Fehlermeldung - Throw New Exception("SQL Fehler beim Lesen der Daten: " & ex.Message) + Throw New Exception("SQL Fehler beim Lesen der Daten: " & ex.Message, ex) Catch ex As Exception - ' Allgemeine Ausnahme weiterwerfen - Throw New Exception("Allgemeiner Fehler beim Lesen der Daten: " & ex.Message) + Throw New Exception("Allgemeiner Fehler beim Lesen der Daten: " & ex.Message, ex) End Try End Sub + ''' + ''' Liest alle AvisoTvNew-Einträge aus der Datenbank. + ''' + ''' Die Liste, in die die Ergebnisse eingefügt werden. Public Sub LesenAlleAvisoTvNew(ByRef liste As List(Of cAvisoTvNew)) ' Basis-SQL-Abfrage ohne Filter Dim sql As String = "SELECT @@ -2700,288 +2817,251 @@ Public Class cAvisoTvNewDAL a.IsActive FROM AvisoTvNew a" - Dim conn As SqlConnection = Nothing - Dim cmd As SqlCommand = Nothing - Dim dr As SqlDataReader = Nothing - Try - conn = cDatenbankAVISO.GetNewOpenConnectionWithoutError() - If conn Is Nothing Then - Throw New Exception("Die Datenbankverbindung konnte nicht hergestellt werden.") - End If + Using conn As SqlConnection = cDatenbankAVISO.CreateNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + ' Keine Parameter erforderlich, da keine Filter - cmd = New SqlCommand(sql, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + While dr.Read() + Dim aviso As New cAvisoTvNew() With { + .TvTextBezeichnungID = If(IsDBNull(dr("TvTextBezeichnungID")), 0, Convert.ToInt32(dr("TvTextBezeichnungID"))), + .TvTextBezeichnung = If(IsDBNull(dr("TvTextBezeichnung")), String.Empty, dr("TvTextBezeichnung").ToString()), + .FixeZeile1RTF = If(IsDBNull(dr("FixeZeile1RTF")), Nothing, dr("FixeZeile1RTF").ToString()), + .FixeZeile2RTF = If(IsDBNull(dr("FixeZeile2RTF")), Nothing, dr("FixeZeile2RTF").ToString()), + .FixeZeile3RTF = If(IsDBNull(dr("FixeZeile3RTF")), Nothing, dr("FixeZeile3RTF").ToString()), + .Art = If(IsDBNull(dr("Art")), Nothing, dr("Art").ToString()), + .StartDate = If(IsDBNull(dr("StartDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("StartDate"))), + .EndDate = If(IsDBNull(dr("EndDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("EndDate"))), + .StartTime = If(IsDBNull(dr("StartTime")), CType(Nothing, TimeSpan?), Convert.ToDateTime(dr("StartTime")).TimeOfDay), + .EndTime = If(IsDBNull(dr("EndTime")), CType(Nothing, TimeSpan?), Convert.ToDateTime(dr("EndTime")).TimeOfDay), + .IsRecurring = If(IsDBNull(dr("IsRecurring")), False, Convert.ToBoolean(dr("IsRecurring"))), + .IsMonday = If(IsDBNull(dr("IsMonday")), False, Convert.ToBoolean(dr("IsMonday"))), + .IsTuesday = If(IsDBNull(dr("IsTuesday")), False, Convert.ToBoolean(dr("IsTuesday"))), + .IsWednesday = If(IsDBNull(dr("IsWednesday")), False, Convert.ToBoolean(dr("IsWednesday"))), + .IsThursday = If(IsDBNull(dr("IsThursday")), False, Convert.ToBoolean(dr("IsThursday"))), + .IsFriday = If(IsDBNull(dr("IsFriday")), False, Convert.ToBoolean(dr("IsFriday"))), + .IsSaturday = If(IsDBNull(dr("IsSaturday")), False, Convert.ToBoolean(dr("IsSaturday"))), + .IsSunday = If(IsDBNull(dr("IsSunday")), False, Convert.ToBoolean(dr("IsSunday"))), + .IsActive = If(IsDBNull(dr("IsActive")), False, Convert.ToBoolean(dr("IsActive"))) + } - ' Keine Parameter erforderlich, da keine Filter - - ' Daten lesen und Objekte erstellen - dr = cmd.ExecuteReader() - While dr.Read() - Dim aviso As New cAvisoTvNew() With { - .TvTextBezeichnungID = If(IsDBNull(dr("TvTextBezeichnungID")), 0, Convert.ToInt32(dr("TvTextBezeichnungID"))), - .TvTextBezeichnung = If(IsDBNull(dr("TvTextBezeichnung")), String.Empty, dr("TvTextBezeichnung").ToString()), - .FixeZeile1RTF = If(IsDBNull(dr("FixeZeile1RTF")), Nothing, dr("FixeZeile1RTF").ToString()), - .FixeZeile2RTF = If(IsDBNull(dr("FixeZeile2RTF")), Nothing, dr("FixeZeile2RTF").ToString()), - .FixeZeile3RTF = If(IsDBNull(dr("FixeZeile3RTF")), Nothing, dr("FixeZeile3RTF").ToString()), - .Art = If(IsDBNull(dr("Art")), Nothing, dr("Art").ToString()), - .StartDate = If(IsDBNull(dr("StartDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("StartDate"))), - .EndDate = If(IsDBNull(dr("EndDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("EndDate"))), - .StartTime = If(IsDBNull(dr("StartTime")), CType(Nothing, TimeSpan?), Convert.ToDateTime(dr("StartTime")).TimeOfDay), - .EndTime = If(IsDBNull(dr("EndTime")), CType(Nothing, TimeSpan?), Convert.ToDateTime(dr("EndTime")).TimeOfDay), - .IsRecurring = If(IsDBNull(dr("IsRecurring")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsRecurring"))), - .IsMonday = If(IsDBNull(dr("IsMonday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsMonday"))), - .IsTuesday = If(IsDBNull(dr("IsTuesday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsTuesday"))), - .IsWednesday = If(IsDBNull(dr("IsWednesday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsWednesday"))), - .IsThursday = If(IsDBNull(dr("IsThursday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsThursday"))), - .IsFriday = If(IsDBNull(dr("IsFriday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsFriday"))), - .IsSaturday = If(IsDBNull(dr("IsSaturday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsSaturday"))), - .IsSunday = If(IsDBNull(dr("IsSunday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsSunday"))), - .IsActive = If(IsDBNull(dr("IsActive")), False, Convert.ToBoolean(dr("IsActive"))) - } - - liste.Add(aviso) - End While - dr.Close() - cmd.Dispose() - conn.Close() + liste.Add(aviso) + End While + End Using + End Using + End Using Catch ex As SqlException - ' Ausnahme weiterwerfen mit spezifischer Fehlermeldung - Throw New Exception($"SQL Fehler beim Lesen der Daten: {ex.Message}") + Throw New Exception($"SQL Fehler beim Lesen der Daten: {ex.Message}", ex) Catch ex As Exception - ' Allgemeine Ausnahme weiterwerfen - Throw New Exception($"Allgemeiner Fehler beim Lesen der Daten: {ex.Message}") + Throw New Exception($"Allgemeiner Fehler beim Lesen der Daten: {ex.Message}", ex) End Try End Sub - - - - ' Methode zum Speichern von AvisoTvNew-Einträgen + ''' + ''' Speichert einen AvisoTvNew-Eintrag in der Datenbank. + ''' + ''' Der AvisoTvNew-Eintrag, der gespeichert werden soll. Public Sub SpeichernAvisoTvNew(aviso As cAvisoTvNew) - Dim conn As SqlConnection = Nothing - Dim cmd As SqlCommand = Nothing - Dim cmdLink As SqlCommand = Nothing - Dim transaction As SqlTransaction = Nothing + Dim sqlInsert As String + Dim sqlUpdate As String Try - conn = cDatenbankAVISO.GetNewOpenConnectionWithoutError() - If conn Is Nothing Then - Throw New Exception("Die Datenbankverbindung konnte nicht hergestellt werden.") - End If + Using conn As SqlConnection = cDatenbankAVISO.CreateNewOpenConnection() + Using transaction As SqlTransaction = conn.BeginTransaction() + Try + If aviso.TvTextBezeichnungID = 0 Then + ' Neuanlage + sqlInsert = "INSERT INTO AvisoTvNew ( + TvTextBezeichnung, + FixeZeile1RTF, + FixeZeile1HTML, + FixeZeile2RTF, + FixeZeile2HTML, + FixeZeile3RTF, + FixeZeile3HTML, + StartDate, + EndDate, + StartTime, + EndTime, + IsRecurring, + IsMonday, + IsTuesday, + IsWednesday, + IsThursday, + IsFriday, + IsSaturday, + IsSunday, + IsActive + ) VALUES ( + @TvTextBezeichnung, + @FixeZeile1RTF, + @FixeZeile1HTML, + @FixeZeile2RTF, + @FixeZeile2HTML, + @FixeZeile3RTF, + @FixeZeile3HTML, + @StartDate, + @EndDate, + @StartTime, + @EndTime, + @IsRecurring, + @IsMonday, + @IsTuesday, + @IsWednesday, + @IsThursday, + @IsFriday, + @IsSaturday, + @IsSunday, + @IsActive + ); + SELECT CAST(scope_identity() AS int);" - ' Beginnen einer Transaktion, um Konsistenz zu gewährleisten - transaction = conn.BeginTransaction() + Using cmd As New SqlCommand(sqlInsert, conn, transaction) + cmd.Parameters.AddWithValue("@TvTextBezeichnung", aviso.TvTextBezeichnung) + cmd.Parameters.AddWithValue("@FixeZeile1RTF", If(String.IsNullOrWhiteSpace(aviso.FixeZeile1RTF), CType(Nothing, String), aviso.FixeZeile1RTF)) + cmd.Parameters.AddWithValue("@FixeZeile1HTML", If(String.IsNullOrWhiteSpace(aviso.FixeZeile1HTML), CType(Nothing, String), aviso.FixeZeile1HTML)) + cmd.Parameters.AddWithValue("@FixeZeile2RTF", If(String.IsNullOrWhiteSpace(aviso.FixeZeile2RTF), DBNull.Value, aviso.FixeZeile2RTF)) + cmd.Parameters.AddWithValue("@FixeZeile2HTML", If(String.IsNullOrWhiteSpace(aviso.FixeZeile2HTML), DBNull.Value, aviso.FixeZeile2HTML)) + cmd.Parameters.AddWithValue("@FixeZeile3RTF", If(String.IsNullOrWhiteSpace(aviso.FixeZeile3RTF), DBNull.Value, aviso.FixeZeile3RTF)) + cmd.Parameters.AddWithValue("@FixeZeile3HTML", If(String.IsNullOrWhiteSpace(aviso.FixeZeile3HTML), DBNull.Value, aviso.FixeZeile3HTML)) + cmd.Parameters.AddWithValue("@StartDate", If(aviso.StartDate.HasValue, CType(aviso.StartDate.Value, Object), DBNull.Value)) + cmd.Parameters.AddWithValue("@EndDate", If(aviso.EndDate.HasValue, CType(aviso.EndDate.Value, Object), DBNull.Value)) + cmd.Parameters.AddWithValue("@StartTime", If(aviso.StartTime.HasValue, CType(aviso.StartTime.Value, Object), DBNull.Value)) + cmd.Parameters.AddWithValue("@EndTime", If(aviso.EndTime.HasValue, CType(aviso.EndTime.Value, Object), DBNull.Value)) + cmd.Parameters.AddWithValue("@IsRecurring", aviso.IsRecurring) + cmd.Parameters.AddWithValue("@IsMonday", aviso.IsMonday) + cmd.Parameters.AddWithValue("@IsTuesday", aviso.IsTuesday) + cmd.Parameters.AddWithValue("@IsWednesday", aviso.IsWednesday) + cmd.Parameters.AddWithValue("@IsThursday", aviso.IsThursday) + cmd.Parameters.AddWithValue("@IsFriday", aviso.IsFriday) + cmd.Parameters.AddWithValue("@IsSaturday", aviso.IsSaturday) + cmd.Parameters.AddWithValue("@IsSunday", aviso.IsSunday) + cmd.Parameters.AddWithValue("@IsActive", aviso.IsActive) - Dim sql As String + Dim result As Object = cmd.ExecuteScalar() + If result Is Nothing OrElse IsDBNull(result) Then + Throw New Exception("Das INSERT hat keine ID zurückgegeben.") + End If + aviso.TvTextBezeichnungID = Convert.ToInt32(result) + End Using + Else + ' Aktualisierung + sqlUpdate = "UPDATE AvisoTvNew SET + FixeZeile1RTF = @FixeZeile1RTF, + FixeZeile1HTML = @FixeZeile1HTML, + FixeZeile2RTF = @FixeZeile2RTF, + FixeZeile2HTML = @FixeZeile2HTML, + FixeZeile3RTF = @FixeZeile3RTF, + FixeZeile3HTML = @FixeZeile3HTML, + StartDate = @StartDate, + EndDate = @EndDate, + StartTime = @StartTime, + EndTime = @EndTime, + IsRecurring = @IsRecurring, + IsMonday = @IsMonday, + IsTuesday = @IsTuesday, + IsWednesday = @IsWednesday, + IsThursday = @IsThursday, + IsFriday = @IsFriday, + IsSaturday = @IsSaturday, + IsSunday = @IsSunday, + IsActive = @IsActive + WHERE TvTextBezeichnungID = @TvTextBezeichnungID" - If aviso.TvTextBezeichnungID = 0 Then - ' Neuanlage - sql = "INSERT INTO AvisoTvNew ( - TvTextBezeichnung, - FixeZeile1RTF, - FixeZeile1HTML, - FixeZeile2RTF, - FixeZeile2HTML, - FixeZeile3RTF, - FixeZeile3HTML, - StartDate, - EndDate, - StartTime, - EndTime, - IsRecurring, - IsMonday, - IsTuesday, - IsWednesday, - IsThursday, - IsFriday, - IsSaturday, - IsSunday, - IsActive - ) VALUES ( - @TvTextBezeichnung, - @FixeZeile1RTF, - @FixeZeile1HTML, - @FixeZeile2RTF, - @FixeZeile2HTML, - @FixeZeile3RTF, - @FixeZeile3HTML, - @StartDate, - @EndDate, - @StartTime, - @EndTime, - @IsRecurring, - @IsMonday, - @IsTuesday, - @IsWednesday, - @IsThursday, - @IsFriday, - @IsSaturday, - @IsSunday, - @IsActive - ); - SELECT CAST(scope_identity() AS int);" - Else - ' Aktualisierung - sql = "UPDATE AvisoTvNew SET - FixeZeile1RTF = @FixeZeile1RTF, - FixeZeile1HTML = @FixeZeile1HTML, - FixeZeile2RTF = @FixeZeile2RTF, - FixeZeile2HTML = @FixeZeile2HTML, - FixeZeile3RTF = @FixeZeile3RTF, - FixeZeile3HTML = @FixeZeile3HTML, - StartDate = @StartDate, - EndDate = @EndDate, - StartTime = @StartTime, - EndTime = @EndTime, - IsRecurring = @IsRecurring, - IsMonday = @IsMonday, - IsTuesday = @IsTuesday, - IsWednesday = @IsWednesday, - IsThursday = @IsThursday, - IsFriday = @IsFriday, - IsSaturday = @IsSaturday, - IsSunday = @IsSunday, - IsActive = @IsActive - WHERE TvTextBezeichnungID = @TvTextBezeichnungID" - End If + Using cmd As New SqlCommand(sqlUpdate, conn, transaction) + cmd.Parameters.AddWithValue("@FixeZeile1RTF", If(String.IsNullOrWhiteSpace(aviso.FixeZeile1RTF), CType(Nothing, String), aviso.FixeZeile1RTF)) + cmd.Parameters.AddWithValue("@FixeZeile1HTML", If(String.IsNullOrWhiteSpace(aviso.FixeZeile1HTML), CType(Nothing, String), aviso.FixeZeile1HTML)) + cmd.Parameters.AddWithValue("@FixeZeile2RTF", If(String.IsNullOrWhiteSpace(aviso.FixeZeile2RTF), DBNull.Value, aviso.FixeZeile2RTF)) + cmd.Parameters.AddWithValue("@FixeZeile2HTML", If(String.IsNullOrWhiteSpace(aviso.FixeZeile2HTML), DBNull.Value, aviso.FixeZeile2HTML)) + cmd.Parameters.AddWithValue("@FixeZeile3RTF", If(String.IsNullOrWhiteSpace(aviso.FixeZeile3RTF), DBNull.Value, aviso.FixeZeile3RTF)) + cmd.Parameters.AddWithValue("@FixeZeile3HTML", If(String.IsNullOrWhiteSpace(aviso.FixeZeile3HTML), DBNull.Value, aviso.FixeZeile3HTML)) + cmd.Parameters.AddWithValue("@StartDate", If(aviso.StartDate.HasValue, CType(aviso.StartDate.Value, Object), DBNull.Value)) + cmd.Parameters.AddWithValue("@EndDate", If(aviso.EndDate.HasValue, CType(aviso.EndDate.Value, Object), DBNull.Value)) + cmd.Parameters.AddWithValue("@StartTime", If(aviso.StartTime.HasValue, CType(aviso.StartTime.Value, Object), DBNull.Value)) + cmd.Parameters.AddWithValue("@EndTime", If(aviso.EndTime.HasValue, CType(aviso.EndTime.Value, Object), DBNull.Value)) + cmd.Parameters.AddWithValue("@IsRecurring", aviso.IsRecurring) + cmd.Parameters.AddWithValue("@IsMonday", aviso.IsMonday) + cmd.Parameters.AddWithValue("@IsTuesday", aviso.IsTuesday) + cmd.Parameters.AddWithValue("@IsWednesday", aviso.IsWednesday) + cmd.Parameters.AddWithValue("@IsThursday", aviso.IsThursday) + cmd.Parameters.AddWithValue("@IsFriday", aviso.IsFriday) + cmd.Parameters.AddWithValue("@IsSaturday", aviso.IsSaturday) + cmd.Parameters.AddWithValue("@IsSunday", aviso.IsSunday) + cmd.Parameters.AddWithValue("@IsActive", aviso.IsActive) + cmd.Parameters.AddWithValue("@TvTextBezeichnungID", aviso.TvTextBezeichnungID) - cmd = New SqlCommand(sql, conn, transaction) + cmd.ExecuteNonQuery() + End Using + End If - cmd.Parameters.AddWithValue("@FixeZeile1RTF", If(String.IsNullOrWhiteSpace(aviso.FixeZeile1RTF), CType(Nothing, String), aviso.FixeZeile1RTF)) - cmd.Parameters.AddWithValue("@FixeZeile1HTML", If(String.IsNullOrWhiteSpace(aviso.FixeZeile1HTML), CType(Nothing, String), aviso.FixeZeile1HTML)) - cmd.Parameters.AddWithValue("@FixeZeile2RTF", If(String.IsNullOrWhiteSpace(aviso.FixeZeile2RTF), DBNull.Value, aviso.FixeZeile2RTF)) - cmd.Parameters.AddWithValue("@FixeZeile2HTML", If(String.IsNullOrWhiteSpace(aviso.FixeZeile2HTML), DBNull.Value, aviso.FixeZeile2HTML)) - cmd.Parameters.AddWithValue("@FixeZeile3RTF", If(String.IsNullOrWhiteSpace(aviso.FixeZeile3RTF), DBNull.Value, aviso.FixeZeile3RTF)) - cmd.Parameters.AddWithValue("@FixeZeile3HTML", If(String.IsNullOrWhiteSpace(aviso.FixeZeile3HTML), DBNull.Value, aviso.FixeZeile3HTML)) - cmd.Parameters.AddWithValue("@StartDate", If(aviso.StartDate.HasValue, CType(aviso.StartDate.Value, Object), DBNull.Value)) - cmd.Parameters.AddWithValue("@EndDate", If(aviso.EndDate.HasValue, CType(aviso.EndDate.Value, Object), DBNull.Value)) - cmd.Parameters.AddWithValue("@StartTime", If(aviso.StartTime.HasValue, CType(aviso.StartTime.Value, Object), DBNull.Value)) - cmd.Parameters.AddWithValue("@EndTime", If(aviso.EndTime.HasValue, CType(aviso.EndTime.Value, Object), DBNull.Value)) - cmd.Parameters.AddWithValue("@IsRecurring", aviso.IsRecurring) - cmd.Parameters.AddWithValue("@IsMonday", aviso.IsMonday) - cmd.Parameters.AddWithValue("@IsTuesday", aviso.IsTuesday) - cmd.Parameters.AddWithValue("@IsWednesday", aviso.IsWednesday) - cmd.Parameters.AddWithValue("@IsThursday", aviso.IsThursday) - cmd.Parameters.AddWithValue("@IsFriday", aviso.IsFriday) - cmd.Parameters.AddWithValue("@IsSaturday", aviso.IsSaturday) - cmd.Parameters.AddWithValue("@IsSunday", aviso.IsSunday) - cmd.Parameters.AddWithValue("@IsActive", aviso.IsActive) + ' Einfügen oder Aktualisieren in die StandortTvBezeichnung-Tabelle + Dim sqlLink As String = " + IF EXISTS ( + SELECT 1 FROM StandortTvBezeichnung + WHERE StandortID = @StandortID AND TvTextBezeichnungID = @TvTextBezeichnungID + ) + BEGIN + UPDATE StandortTvBezeichnung + SET Position = @Position + WHERE StandortID = @StandortID AND TvTextBezeichnungID = @TvTextBezeichnungID + END + ELSE + BEGIN + INSERT INTO StandortTvBezeichnung (StandortID, TvTextBezeichnungID, Position) + VALUES (@StandortID, @TvTextBezeichnungID, @Position) + END + " - If aviso.TvTextBezeichnungID <> 0 Then - cmd.Parameters.AddWithValue("@TvTextBezeichnungID", aviso.TvTextBezeichnungID) - End If + Using cmdLink As New SqlCommand(sqlLink, conn, transaction) + cmdLink.Parameters.AddWithValue("@StandortID", aviso.StandortID) + cmdLink.Parameters.AddWithValue("@TvTextBezeichnungID", aviso.TvTextBezeichnungID) + cmdLink.Parameters.AddWithValue("@Position", If(String.IsNullOrEmpty(aviso.Position), DBNull.Value, aviso.Position)) - If aviso.TvTextBezeichnungID = 0 Then - cmd.Parameters.AddWithValue("@TvTextBezeichnung", aviso.TvTextBezeichnung) - - ' Neuanlage: Führen Sie das INSERT aus und holen Sie die generierte ID - Dim result As Object = cmd.ExecuteScalar() - If result Is Nothing OrElse IsDBNull(result) Then - Throw New Exception("Das INSERT hat keine ID zurückgegeben.") - End If - aviso.TvTextBezeichnungID = Convert.ToInt32(result) - Else - ' Aktualisierung: Führen Sie das UPDATE aus - cmd.ExecuteNonQuery() - End If - - ' Einfügen oder Aktualisieren in die StandortTvBezeichnung-Tabelle - Dim sqlLink As String = " - IF EXISTS ( - SELECT 1 FROM StandortTvBezeichnung - WHERE StandortID = @StandortID AND TvTextBezeichnungID = @TvTextBezeichnungID - ) - BEGIN - UPDATE StandortTvBezeichnung - SET Position = @Position - WHERE StandortID = @StandortID AND TvTextBezeichnungID = @TvTextBezeichnungID - END - ELSE - BEGIN - INSERT INTO StandortTvBezeichnung (StandortID, TvTextBezeichnungID, Position) - VALUES (@StandortID, @TvTextBezeichnungID, @Position) - END - " - - cmdLink = New SqlCommand(sqlLink, conn, transaction) - cmdLink.Parameters.AddWithValue("@StandortID", aviso.StandortID) - cmdLink.Parameters.AddWithValue("@TvTextBezeichnungID", aviso.TvTextBezeichnungID) - cmdLink.Parameters.AddWithValue("@Position", If(String.IsNullOrEmpty(aviso.Position), DBNull.Value, aviso.Position)) - - cmdLink.ExecuteNonQuery() - - ' Transaktion committen, wenn alle Operationen erfolgreich waren - transaction.Commit() + cmdLink.ExecuteNonQuery() + End Using + ' Transaktion committen, wenn alle Operationen erfolgreich waren + transaction.Commit() + Catch ex As Exception + ' Fehlerbehandlung: Transaktion zurückrollen und Fehler weiterwerfen + Try + transaction.Rollback() + Catch rollbackEx As Exception + Throw New Exception("Fehler beim Zurückrollen der Transaktion: " & rollbackEx.Message, rollbackEx) + End Try + Throw ' Weiterwerfen der ursprünglichen Ausnahme + End Try + End Using + End Using Catch ex As SqlException - ' Fehlerbehandlung: Transaktion zurückrollen und Fehler weiterwerfen - If transaction IsNot Nothing Then - Try - transaction.Rollback() - Catch rollbackEx As Exception - Throw New Exception("Fehler beim Zurückrollen der Transaktion: " & rollbackEx.Message) - End Try - End If - Throw New Exception("SQL Fehler beim Speichern des Eintrags: " & ex.Message) + Throw New Exception("SQL Fehler beim Speichern des Eintrags: " & ex.Message, ex) Catch ex As Exception - ' Allgemeine Fehlerbehandlung: Transaktion zurückrollen und Fehler weiterwerfen - If transaction IsNot Nothing Then - Try - transaction.Rollback() - Catch rollbackEx As Exception - Throw New Exception("Fehler beim Zurückrollen der Transaktion: " & rollbackEx.Message) - End Try - End If - Throw New Exception("Allgemeiner Fehler beim Speichern des Eintrags: " & ex.Message) - Finally - ' Ressourcen manuell freigeben - If cmdLink IsNot Nothing Then - cmdLink.Dispose() - cmdLink = Nothing - End If - - If cmd IsNot Nothing Then - cmd.Dispose() - cmd = Nothing - End If - - If transaction IsNot Nothing Then - transaction.Dispose() - transaction = Nothing - End If - - If conn IsNot Nothing Then - conn.Close() - conn = Nothing - End If + Throw New Exception("Allgemeiner Fehler beim Speichern des Eintrags: " & ex.Message, ex) End Try End Sub - - - ' Methode zum Setzen eines Eintrags auf inaktiv + ''' + ''' Setzt einen AvisoTvNew-Eintrag auf inaktiv. + ''' + ''' Die ID des Eintrags, der inaktiv gesetzt werden soll. Public Sub SetzeAufInaktiv(ByVal hID As Integer) Dim sql As String = "UPDATE AvisoTvNew SET IsActive = 0 WHERE TVID = @TVID" Try - Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError() - If conn Is Nothing Then - Throw New Exception("Die Datenbankverbindung konnte nicht hergestellt werden.") - End If - - Using cmd As New SqlCommand(sql, conn) - cmd.Parameters.AddWithValue("@TVID", hID) - Dim rowsAffected As Integer = cmd.ExecuteNonQuery() - If rowsAffected = 0 Then - Throw New Exception("Der Datensatz konnte nicht auf inaktiv gesetzt werden. Möglicherweise existiert er nicht mehr.") - End If + Using conn As SqlConnection = cDatenbankAVISO.CreateNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@TVID", hID) + Dim rowsAffected As Integer = cmd.ExecuteNonQuery() + If rowsAffected = 0 Then + Throw New Exception("Der Datensatz konnte nicht auf inaktiv gesetzt werden. Möglicherweise existiert er nicht mehr.") + End If + End Using End Using Catch ex As SqlException - ' Ausnahme weiterwerfen mit spezifischer Fehlermeldung - Throw New Exception("AvisoTvNew-Eintrag kann nicht auf inaktiv gesetzt werden! " & vbCrLf & ex.Message) + Throw New Exception("AvisoTvNew-Eintrag kann nicht auf inaktiv gesetzt werden! " & vbCrLf & ex.Message, ex) Catch ex As Exception - ' Allgemeine Ausnahme weiterwerfen - Throw New Exception("Fehler beim Setzen auf inaktiv: " & ex.Message) + Throw New Exception("Fehler beim Setzen auf inaktiv: " & ex.Message, ex) End Try End Sub @@ -2990,6 +3070,7 @@ End Class + Public Class cAvisoTV Property TVID As Long = 0 Property FixeZeile1 As String From 55776c337daf6c081324787885d2eb96a3de6a55 Mon Sep 17 00:00:00 2001 From: "m.ilhan" Date: Thu, 12 Dec 2024 10:43:19 +0100 Subject: [PATCH 5/6] TV APP --- VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb | 89 +++++++++++-------- 1 file changed, 51 insertions(+), 38 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb index 40dbad39..247c02b4 100644 --- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb +++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb @@ -2455,7 +2455,7 @@ Public Class cAvisoTvNew Public Property FixeZeile3RTF As String Public Property StandortID As Integer Public Property Standort As String - Public Property Art As String + Public Property Prio As Integer Public Property StartDate As Date? Public Property EndDate As Date? Public Property StartTime As TimeSpan? @@ -2469,7 +2469,6 @@ Public Class cAvisoTvNew Public Property IsSaturday As Boolean? Public Property IsSunday As Boolean? Public Property IsActive As Boolean - Public Property Position As String End Class @@ -2489,6 +2488,8 @@ Public Class cTvSettings Public Property KachelRowGapInPercent As Double? Public Property SeitenwechselInSek As Integer? Public Property TextBalkenHeightInPercent As Double? + Public Property TextFlaggeLeft As Double? + Public Property TextFlaggeBottom As Double? Public Property SelectedLogoValue As String @@ -2539,16 +2540,18 @@ Public Class cAvisoTvNewDAL KachelRowGapInPercent = @KachelRowGapInPercent, SeitenwechselInSek = @SeitenwechselInSek, TextBalkenHeightInPercent = @TextBalkenHeightInPercent, + FlaggeLeft = @FlaggeLeft, + FlaggeBottom = @FlaggeBottom, Logo = @Logo WHERE StandortID = @StandortID" Dim sqlInsert As String = "INSERT INTO AvisoTvSettings (StandortID, KachelWidthInPercent, KachelHeightInPercent,KachelRowGapInPercent, KachelFontSizeLkwNummer, KachelFontSizeDateTime, - SeitenwechselInSek, TextBalkenHeightInPercent,Logo) + SeitenwechselInSek, TextBalkenHeightInPercent,FlaggeLeft,FlaggeBottom,Logo) VALUES (@StandortID, @KachelWidthInPercent, @KachelHeightInPercent,@KachelRowGapInPercent, @KachelFontSizeLkwNummer, @KachelFontSizeDateTime, - @SeitenwechselInSek, @TextBalkenHeightInPercent,@Logo)" + @SeitenwechselInSek, @TextBalkenHeightInPercent,@FlaggeLeft,@FlaggeBottom,@Logo)" Try Using conn As SqlConnection = cDatenbankAVISO.CreateNewOpenConnection() @@ -2571,6 +2574,8 @@ Public Class cAvisoTvNewDAL cmdSave.Parameters.AddWithValue("@KachelFontSizeDateTime", settings.KachelFontSizeDateTime) cmdSave.Parameters.AddWithValue("@SeitenwechselInSek", settings.SeitenwechselInSek) cmdSave.Parameters.AddWithValue("@TextBalkenHeightInPercent", settings.TextBalkenHeightInPercent) + cmdSave.Parameters.AddWithValue("@FlaggeLeft", settings.TextFlaggeLeft) + cmdSave.Parameters.AddWithValue("@FlaggeBottom", settings.TextFlaggeBottom) cmdSave.Parameters.AddWithValue("@Logo", settings.SelectedLogoValue) cmdSave.ExecuteNonQuery() End Using @@ -2608,6 +2613,8 @@ Public Class cAvisoTvNewDAL .KachelFontSizeDateTime = If(IsDBNull(dr("KachelFontSizeDateTime")), 0, Convert.ToDouble(dr("KachelFontSizeDateTime"))), .SeitenwechselInSek = If(IsDBNull(dr("SeitenwechselInSek")), 0, Convert.ToInt32(dr("SeitenwechselInSek"))), .TextBalkenHeightInPercent = If(IsDBNull(dr("TextBalkenHeightInPercent")), 0, Convert.ToDouble(dr("TextBalkenHeightInPercent"))), + .TextFlaggeBottom = If(IsDBNull(dr("FlaggeBottom")), 0, Convert.ToDouble(dr("FlaggeBottom"))), + .TextFlaggeLeft = If(IsDBNull(dr("FlaggeLeft")), 0, Convert.ToDouble(dr("FlaggeLeft"))), .SelectedLogoValue = If(IsDBNull(dr("Logo")), "", Convert.ToString(dr("Logo"))) } @@ -2693,19 +2700,18 @@ Public Class cAvisoTvNewDAL ''' ''' Die TV-TextbezeichnungID. ''' Die Bezeichnung. - ''' Der Standort. + ''' Der Standort. ''' Die Liste, in die die Ergebnisse eingefügt werden. Public Sub LesenAvisoTvNew(tvid As Integer, bezeichnung As String, StandortBezeichnung As String, ByRef liste As List(Of cAvisoTvNew)) Dim sql As String = "SELECT stv.TvTextBezeichnungID, stv.StandortID, + stv.Prio, a.TvTextBezeichnung, s.Standort, - stv.Position, a.FixeZeile1RTF, a.FixeZeile2RTF, a.FixeZeile3RTF, - a.Art, a.StartDate, a.EndDate, a.StartTime, @@ -2758,15 +2764,14 @@ Public Class cAvisoTvNewDAL .StandortID = Convert.ToInt32(dr("StandortID")), .TvTextBezeichnung = Convert.ToString(dr("TVTextBezeichnung")), .Standort = Convert.ToString(dr("Standort")), - .Position = If(IsDBNull(dr("Position")), Nothing, Convert.ToString(dr("Position"))), .FixeZeile1RTF = If(IsDBNull(dr("FixeZeile1RTF")), Nothing, Convert.ToString(dr("FixeZeile1RTF"))), .FixeZeile2RTF = If(IsDBNull(dr("FixeZeile2RTF")), Nothing, Convert.ToString(dr("FixeZeile2RTF"))), .FixeZeile3RTF = If(IsDBNull(dr("FixeZeile3RTF")), Nothing, Convert.ToString(dr("FixeZeile3RTF"))), - .Art = If(IsDBNull(dr("Art")), Nothing, Convert.ToString(dr("Art"))), + .Prio = If(IsDBNull(dr("Prio")), Nothing, Convert.ToInt32(dr("Prio"))), .StartDate = If(IsDBNull(dr("StartDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("StartDate"))), .EndDate = If(IsDBNull(dr("EndDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("EndDate"))), - .StartTime = If(IsDBNull(dr("StartTime")), CType(Nothing, TimeSpan?), Convert.ToDateTime(dr("StartTime")).TimeOfDay), - .EndTime = If(IsDBNull(dr("EndTime")), CType(Nothing, TimeSpan?), Convert.ToDateTime(dr("EndTime")).TimeOfDay), + .StartTime = If(IsDBNull(dr("StartTime")), CType(Nothing, TimeSpan?), CType(dr("StartTime"), TimeSpan)), + .EndTime = If(IsDBNull(dr("EndTime")), CType(Nothing, TimeSpan?), CType(dr("EndTime"), TimeSpan)), .IsRecurring = If(IsDBNull(dr("IsRecurring")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsRecurring"))), .IsMonday = If(IsDBNull(dr("IsMonday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsMonday"))), .IsTuesday = If(IsDBNull(dr("IsTuesday")), CType(Nothing, Boolean?), Convert.ToBoolean(dr("IsTuesday"))), @@ -2801,7 +2806,7 @@ Public Class cAvisoTvNewDAL a.FixeZeile1RTF, a.FixeZeile2RTF, a.FixeZeile3RTF, - a.Art, + a.Prio, a.StartDate, a.EndDate, a.StartTime, @@ -2820,8 +2825,6 @@ Public Class cAvisoTvNewDAL Try Using conn As SqlConnection = cDatenbankAVISO.CreateNewOpenConnection() Using cmd As New SqlCommand(sql, conn) - ' Keine Parameter erforderlich, da keine Filter - Using dr As SqlDataReader = cmd.ExecuteReader() While dr.Read() Dim aviso As New cAvisoTvNew() With { @@ -2830,11 +2833,11 @@ Public Class cAvisoTvNewDAL .FixeZeile1RTF = If(IsDBNull(dr("FixeZeile1RTF")), Nothing, dr("FixeZeile1RTF").ToString()), .FixeZeile2RTF = If(IsDBNull(dr("FixeZeile2RTF")), Nothing, dr("FixeZeile2RTF").ToString()), .FixeZeile3RTF = If(IsDBNull(dr("FixeZeile3RTF")), Nothing, dr("FixeZeile3RTF").ToString()), - .Art = If(IsDBNull(dr("Art")), Nothing, dr("Art").ToString()), + .Prio = If(IsDBNull(dr("Prio")), 0, Convert.ToInt32(dr("Prio"))), .StartDate = If(IsDBNull(dr("StartDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("StartDate"))), .EndDate = If(IsDBNull(dr("EndDate")), CType(Nothing, Date?), Convert.ToDateTime(dr("EndDate"))), - .StartTime = If(IsDBNull(dr("StartTime")), CType(Nothing, TimeSpan?), Convert.ToDateTime(dr("StartTime")).TimeOfDay), - .EndTime = If(IsDBNull(dr("EndTime")), CType(Nothing, TimeSpan?), Convert.ToDateTime(dr("EndTime")).TimeOfDay), + .StartTime = If(IsDBNull(dr("StartTime")), CType(Nothing, TimeSpan?), CType(dr("StartTime"), TimeSpan)), + .EndTime = If(IsDBNull(dr("EndTime")), CType(Nothing, TimeSpan?), CType(dr("EndTime"), TimeSpan)), .IsRecurring = If(IsDBNull(dr("IsRecurring")), False, Convert.ToBoolean(dr("IsRecurring"))), .IsMonday = If(IsDBNull(dr("IsMonday")), False, Convert.ToBoolean(dr("IsMonday"))), .IsTuesday = If(IsDBNull(dr("IsTuesday")), False, Convert.ToBoolean(dr("IsTuesday"))), @@ -2891,7 +2894,8 @@ Public Class cAvisoTvNewDAL IsThursday, IsFriday, IsSaturday, - IsSunday, + IsSunday, + Prio, IsActive ) VALUES ( @TvTextBezeichnung, @@ -2913,6 +2917,7 @@ Public Class cAvisoTvNewDAL @IsFriday, @IsSaturday, @IsSunday, + @Prio, @IsActive ); SELECT CAST(scope_identity() AS int);" @@ -2929,6 +2934,7 @@ Public Class cAvisoTvNewDAL cmd.Parameters.AddWithValue("@EndDate", If(aviso.EndDate.HasValue, CType(aviso.EndDate.Value, Object), DBNull.Value)) cmd.Parameters.AddWithValue("@StartTime", If(aviso.StartTime.HasValue, CType(aviso.StartTime.Value, Object), DBNull.Value)) cmd.Parameters.AddWithValue("@EndTime", If(aviso.EndTime.HasValue, CType(aviso.EndTime.Value, Object), DBNull.Value)) + cmd.Parameters.AddWithValue("@Prio", aviso.Prio) cmd.Parameters.AddWithValue("@IsRecurring", aviso.IsRecurring) cmd.Parameters.AddWithValue("@IsMonday", aviso.IsMonday) cmd.Parameters.AddWithValue("@IsTuesday", aviso.IsTuesday) @@ -2966,7 +2972,8 @@ Public Class cAvisoTvNewDAL IsFriday = @IsFriday, IsSaturday = @IsSaturday, IsSunday = @IsSunday, - IsActive = @IsActive + IsActive = @IsActive, + Prio = @Prio WHERE TvTextBezeichnungID = @TvTextBezeichnungID" Using cmd As New SqlCommand(sqlUpdate, conn, transaction) @@ -2989,6 +2996,7 @@ Public Class cAvisoTvNewDAL cmd.Parameters.AddWithValue("@IsSaturday", aviso.IsSaturday) cmd.Parameters.AddWithValue("@IsSunday", aviso.IsSunday) cmd.Parameters.AddWithValue("@IsActive", aviso.IsActive) + cmd.Parameters.AddWithValue("@Prio", aviso.Prio) cmd.Parameters.AddWithValue("@TvTextBezeichnungID", aviso.TvTextBezeichnungID) cmd.ExecuteNonQuery() @@ -2997,40 +3005,44 @@ Public Class cAvisoTvNewDAL ' Einfügen oder Aktualisieren in die StandortTvBezeichnung-Tabelle Dim sqlLink As String = " - IF EXISTS ( - SELECT 1 FROM StandortTvBezeichnung - WHERE StandortID = @StandortID AND TvTextBezeichnungID = @TvTextBezeichnungID - ) - BEGIN - UPDATE StandortTvBezeichnung - SET Position = @Position - WHERE StandortID = @StandortID AND TvTextBezeichnungID = @TvTextBezeichnungID - END - ELSE - BEGIN - INSERT INTO StandortTvBezeichnung (StandortID, TvTextBezeichnungID, Position) - VALUES (@StandortID, @TvTextBezeichnungID, @Position) - END - " + IF EXISTS ( + SELECT 1 + FROM StandortTvBezeichnung + WHERE StandortID = @StandortID + AND TvTextBezeichnungID = @TvTextBezeichnungID + ) + BEGIN + UPDATE StandortTvBezeichnung + SET + Prio = @Prio + WHERE StandortID = @StandortID + AND TvTextBezeichnungID = @TvTextBezeichnungID + END + ELSE + BEGIN + INSERT INTO StandortTvBezeichnung (StandortID, TvTextBezeichnungID) + VALUES (@StandortID, @TvTextBezeichnungID) + END + " Using cmdLink As New SqlCommand(sqlLink, conn, transaction) cmdLink.Parameters.AddWithValue("@StandortID", aviso.StandortID) + cmdLink.Parameters.AddWithValue("@Prio", aviso.Prio) cmdLink.Parameters.AddWithValue("@TvTextBezeichnungID", aviso.TvTextBezeichnungID) - cmdLink.Parameters.AddWithValue("@Position", If(String.IsNullOrEmpty(aviso.Position), DBNull.Value, aviso.Position)) cmdLink.ExecuteNonQuery() End Using - ' Transaktion committen, wenn alle Operationen erfolgreich waren + ' Transaktion committen transaction.Commit() Catch ex As Exception - ' Fehlerbehandlung: Transaktion zurückrollen und Fehler weiterwerfen + ' Fehler: Transaktion zurückrollen Try transaction.Rollback() Catch rollbackEx As Exception Throw New Exception("Fehler beim Zurückrollen der Transaktion: " & rollbackEx.Message, rollbackEx) End Try - Throw ' Weiterwerfen der ursprünglichen Ausnahme + Throw End Try End Using End Using @@ -3071,6 +3083,7 @@ End Class + Public Class cAvisoTV Property TVID As Long = 0 Property FixeZeile1 As String From 9945a62385872a3aa2193d9b9c4c256832b3546e Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Thu, 12 Dec 2024 13:29:28 +0100 Subject: [PATCH 6/6] NCTS_FREMD --- SDL/My Project/AssemblyInfo.vb | 4 +- ...sbericht_Gelangensbestaetigung.Designer.vb | 184 +- SDL/USTV/frmMDM_USTVAntrag.vb | 28 +- .../Classes/cEZB_Waehrungskurse.vb | 6 +- .../ATEZ/NCTS_API/NCTS-P5/CC015C.Designer.vb | 12554 +++++++++ .../ATEZ/NCTS_API/NCTS-P5/CC015C.xsd | 107 + .../ATEZ/NCTS_API/NCTS-P5/cNCTS_FREMD.vb | 2416 ++ .../ATEZ/NCTS_API/NCTS-P5/ctypes.xsd | 22887 ++++++++++++++++ .../ATEZ/NCTS_API/NCTS-P5/doc.xsd | 27 + .../ATEZ/NCTS_API/NCTS-P5/htypes.xsd | 99 + .../ATEZ/NCTS_API/NCTS-P5/stypes.xsd | 4351 +++ .../ATEZ/NCTS_API/NCTS-P5/tcl.xsd | 974 + .../ATEZ/NCTS_API/cATEZ_ncts_api.vb | 226 +- .../VERAG_PROG_ALLGEMEIN.vbproj | 20 + 14 files changed, 43735 insertions(+), 148 deletions(-) create mode 100644 VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/CC015C.Designer.vb create mode 100644 VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/CC015C.xsd create mode 100644 VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/cNCTS_FREMD.vb create mode 100644 VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/ctypes.xsd create mode 100644 VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/doc.xsd create mode 100644 VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/htypes.xsd create mode 100644 VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/stypes.xsd create mode 100644 VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/tcl.xsd diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 5bc2494e..d56af7a4 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/Speditionsbuch/Nacherfassung/rptSpeditionsbericht_Gelangensbestaetigung.Designer.vb b/SDL/Speditionsbuch/Nacherfassung/rptSpeditionsbericht_Gelangensbestaetigung.Designer.vb index f3778e42..5273792a 100644 --- a/SDL/Speditionsbuch/Nacherfassung/rptSpeditionsbericht_Gelangensbestaetigung.Designer.vb +++ b/SDL/Speditionsbuch/Nacherfassung/rptSpeditionsbericht_Gelangensbestaetigung.Designer.vb @@ -25,6 +25,11 @@ Partial Public Class rptSpeditionsbericht_Gelangensbestaetigung Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Line12 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() + Me.lblAbsKdNr = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblEmpfKdNr = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblEndEmpfKdNr = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblFrachtfKdNr = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblAuftrKdNr = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblLKWNr = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblAbs = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblBezugsNr = New GrapeCity.ActiveReports.SectionReportModel.Label() @@ -42,10 +47,6 @@ Partial Public Class rptSpeditionsbericht_Gelangensbestaetigung Me.txtPackstücke = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtVermerk = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.lblAnzahl = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.lblAbsKdNr = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.lblEmpfKdNr = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.lblAuftrKdNr = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.lblFrachtfKdNr = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.txtKdOpt = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line11 = New GrapeCity.ActiveReports.SectionReportModel.Line() @@ -58,7 +59,6 @@ Partial Public Class rptSpeditionsbericht_Gelangensbestaetigung Me.Shape2 = New GrapeCity.ActiveReports.SectionReportModel.Shape() Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblEndEmpf = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.lblEndEmpfKdNr = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() Me.Label28 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line() @@ -88,6 +88,11 @@ Partial Public Class rptSpeditionsbericht_Gelangensbestaetigung CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblAbsKdNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblEmpfKdNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblEndEmpfKdNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFrachtfKdNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblAuftrKdNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblLKWNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblAbs, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblBezugsNr, System.ComponentModel.ISupportInitialize).BeginInit() @@ -105,10 +110,6 @@ Partial Public Class rptSpeditionsbericht_Gelangensbestaetigung CType(Me.txtPackstücke, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtVermerk, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.lblAbsKdNr, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.lblEmpfKdNr, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.lblAuftrKdNr, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.lblFrachtfKdNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtKdOpt, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label11, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label12, System.ComponentModel.ISupportInitialize).BeginInit() @@ -116,7 +117,6 @@ Partial Public Class rptSpeditionsbericht_Gelangensbestaetigung CType(Me.Label20, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblEndEmpf, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.lblEndEmpfKdNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label28, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblDat, System.ComponentModel.ISupportInitialize).BeginInit() @@ -162,7 +162,7 @@ Partial Public Class rptSpeditionsbericht_Gelangensbestaetigung Me.Label6.Name = "Label6" Me.Label6.Style = "background-color: #003680; color: White; font-size: 8pt; font-weight: bold; text-" & "align: left; vertical-align: middle; ddo-char-set: 1" - Me.Label6.Text = "Bestätigung/Check" + Me.Label6.Text = "Check/Bestätigung" Me.Label6.Top = 0.03622048! Me.Label6.Width = 1.115747! ' @@ -174,7 +174,7 @@ Partial Public Class rptSpeditionsbericht_Gelangensbestaetigung Me.Label8.Name = "Label8" Me.Label8.Style = "background-color: #003680; color: White; font-size: 8pt; font-weight: bold; text-" & "align: left; text-justify: auto; vertical-align: middle; ddo-char-set: 1" - Me.Label8.Text = "Firmen/Companies" + Me.Label8.Text = "Companies/Firmen" Me.Label8.Top = 0.03622048! Me.Label8.Width = 3.404331! ' @@ -186,7 +186,7 @@ Partial Public Class rptSpeditionsbericht_Gelangensbestaetigung Me.Label4.Name = "Label4" Me.Label4.Style = "background-color: #003680; color: White; font-size: 8pt; font-weight: bold; text-" & "align: left; text-justify: auto; vertical-align: middle; ddo-char-set: 1" - Me.Label4.Text = "LKW/Truck, Ware/Goods" + Me.Label4.Text = "Truck/LKW, Goods/Ware" Me.Label4.Top = 0.03622063! Me.Label4.Width = 1.470473! ' @@ -198,7 +198,7 @@ Partial Public Class rptSpeditionsbericht_Gelangensbestaetigung Me.Label5.Name = "Label5" Me.Label5.Style = "background-color: #003680; color: White; font-size: 8pt; font-weight: bold; text-" & "align: left; vertical-align: middle; ddo-char-set: 1" - Me.Label5.Text = "Abfertigung/Decalaration" + Me.Label5.Text = "Declaration/Abfertigung" Me.Label5.Top = 0.03622048! Me.Label5.Width = 1.479528! ' @@ -222,6 +222,71 @@ Partial Public Class rptSpeditionsbericht_Gelangensbestaetigung Me.Detail.KeepTogether = True Me.Detail.Name = "Detail" ' + 'lblAbsKdNr + ' + Me.lblAbsKdNr.Height = 0.1574803! + Me.lblAbsKdNr.HyperLink = Nothing + Me.lblAbsKdNr.Left = 3.785039! + Me.lblAbsKdNr.Name = "lblAbsKdNr" + Me.lblAbsKdNr.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0) + Me.lblAbsKdNr.Style = "font-size: 7pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & + "ar-set: 1" + Me.lblAbsKdNr.Text = "100000 VERAG" + Me.lblAbsKdNr.Top = 0.03149589! + Me.lblAbsKdNr.Width = 0.4133854! + ' + 'lblEmpfKdNr + ' + Me.lblEmpfKdNr.Height = 0.1574803! + Me.lblEmpfKdNr.HyperLink = Nothing + Me.lblEmpfKdNr.Left = 3.785039! + Me.lblEmpfKdNr.Name = "lblEmpfKdNr" + Me.lblEmpfKdNr.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0) + Me.lblEmpfKdNr.Style = "font-size: 7pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & + "ar-set: 1" + Me.lblEmpfKdNr.Text = "100000 VERAG" + Me.lblEmpfKdNr.Top = 0.1889762! + Me.lblEmpfKdNr.Width = 0.4133847! + ' + 'lblEndEmpfKdNr + ' + Me.lblEndEmpfKdNr.Height = 0.1574803! + Me.lblEndEmpfKdNr.HyperLink = Nothing + Me.lblEndEmpfKdNr.Left = 3.785039! + Me.lblEndEmpfKdNr.Name = "lblEndEmpfKdNr" + Me.lblEndEmpfKdNr.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0) + Me.lblEndEmpfKdNr.Style = "font-size: 7pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & + "ar-set: 1" + Me.lblEndEmpfKdNr.Text = "100000 VERAG" + Me.lblEndEmpfKdNr.Top = 0.3464565! + Me.lblEndEmpfKdNr.Width = 0.4133847! + ' + 'lblFrachtfKdNr + ' + Me.lblFrachtfKdNr.Height = 0.1574803! + Me.lblFrachtfKdNr.HyperLink = Nothing + Me.lblFrachtfKdNr.Left = 3.785039! + Me.lblFrachtfKdNr.Name = "lblFrachtfKdNr" + Me.lblFrachtfKdNr.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0) + Me.lblFrachtfKdNr.Style = "font-size: 7pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & + "ar-set: 1" + Me.lblFrachtfKdNr.Text = "100000 VERAG" + Me.lblFrachtfKdNr.Top = 0.6614174! + Me.lblFrachtfKdNr.Width = 0.4133847! + ' + 'lblAuftrKdNr + ' + Me.lblAuftrKdNr.Height = 0.1574803! + Me.lblAuftrKdNr.HyperLink = Nothing + Me.lblAuftrKdNr.Left = 3.785039! + Me.lblAuftrKdNr.Name = "lblAuftrKdNr" + Me.lblAuftrKdNr.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0) + Me.lblAuftrKdNr.Style = "font-size: 7pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & + "ar-set: 1" + Me.lblAuftrKdNr.Text = "100000 VERAG" + Me.lblAuftrKdNr.Top = 0.5039369! + Me.lblAuftrKdNr.Width = 0.4133847! + ' 'lblLKWNr ' Me.lblLKWNr.Height = 0.1574803! @@ -426,58 +491,6 @@ Partial Public Class rptSpeditionsbericht_Gelangensbestaetigung Me.lblAnzahl.Top = 0.1889764! Me.lblAnzahl.Width = 0.2082677! ' - 'lblAbsKdNr - ' - Me.lblAbsKdNr.Height = 0.1574803! - Me.lblAbsKdNr.HyperLink = Nothing - Me.lblAbsKdNr.Left = 3.785039! - Me.lblAbsKdNr.Name = "lblAbsKdNr" - Me.lblAbsKdNr.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0) - Me.lblAbsKdNr.Style = "font-size: 7pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & - "ar-set: 1" - Me.lblAbsKdNr.Text = "100000 VERAG" - Me.lblAbsKdNr.Top = 0.03149589! - Me.lblAbsKdNr.Width = 0.4133854! - ' - 'lblEmpfKdNr - ' - Me.lblEmpfKdNr.Height = 0.1574803! - Me.lblEmpfKdNr.HyperLink = Nothing - Me.lblEmpfKdNr.Left = 3.785039! - Me.lblEmpfKdNr.Name = "lblEmpfKdNr" - Me.lblEmpfKdNr.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0) - Me.lblEmpfKdNr.Style = "font-size: 7pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & - "ar-set: 1" - Me.lblEmpfKdNr.Text = "100000 VERAG" - Me.lblEmpfKdNr.Top = 0.1889762! - Me.lblEmpfKdNr.Width = 0.4133847! - ' - 'lblAuftrKdNr - ' - Me.lblAuftrKdNr.Height = 0.1574803! - Me.lblAuftrKdNr.HyperLink = Nothing - Me.lblAuftrKdNr.Left = 3.785039! - Me.lblAuftrKdNr.Name = "lblAuftrKdNr" - Me.lblAuftrKdNr.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0) - Me.lblAuftrKdNr.Style = "font-size: 7pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & - "ar-set: 1" - Me.lblAuftrKdNr.Text = "100000 VERAG" - Me.lblAuftrKdNr.Top = 0.5039369! - Me.lblAuftrKdNr.Width = 0.4133847! - ' - 'lblFrachtfKdNr - ' - Me.lblFrachtfKdNr.Height = 0.1574803! - Me.lblFrachtfKdNr.HyperLink = Nothing - Me.lblFrachtfKdNr.Left = 3.785039! - Me.lblFrachtfKdNr.Name = "lblFrachtfKdNr" - Me.lblFrachtfKdNr.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0) - Me.lblFrachtfKdNr.Style = "font-size: 7pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & - "ar-set: 1" - Me.lblFrachtfKdNr.Text = "100000 VERAG" - Me.lblFrachtfKdNr.Top = 0.6614174! - Me.lblFrachtfKdNr.Width = 0.4133847! - ' 'txtKdOpt ' Me.txtKdOpt.CanGrow = False @@ -544,9 +557,9 @@ Partial Public Class rptSpeditionsbericht_Gelangensbestaetigung Me.Label12.HyperLink = Nothing Me.Label12.Left = 6.356693! Me.Label12.Name = "Label12" - Me.Label12.Style = "font-size: 8pt; font-weight: normal; text-align: left; text-decoration: underline" & - "; text-justify: auto; ddo-char-set: 1" - Me.Label12.Text = "Eingelangt bei:" + Me.Label12.Style = "font-size: 6.5pt; font-weight: normal; text-align: left; text-decoration: underli" & + "ne; text-justify: auto; ddo-char-set: 1" + Me.Label12.Text = "Received/Eingelangt bei:" Me.Label12.Top = 0.03307087! Me.Label12.Width = 1.113386! ' @@ -556,10 +569,10 @@ Partial Public Class rptSpeditionsbericht_Gelangensbestaetigung Me.Label18.HyperLink = Nothing Me.Label18.Left = 6.474803! Me.Label18.Name = "Label18" - Me.Label18.Style = "font-size: 8pt; font-weight: normal; text-align: left; text-decoration: none; tex" & - "t-justify: auto; ddo-char-set: 3" + Me.Label18.Style = "font-size: 7pt; font-weight: normal; text-align: left; text-decoration: none; tex" & + "t-justify: auto; ddo-char-set: 1" Me.Label18.Text = "Trader/Abnehmer" - Me.Label18.Top = 0.1889764! + Me.Label18.Top = 0.1968504! Me.Label18.Width = 0.9677165! ' 'Label20 @@ -571,7 +584,7 @@ Partial Public Class rptSpeditionsbericht_Gelangensbestaetigung Me.Label20.Style = "font-size: 7pt; font-weight: normal; text-align: left; text-decoration: none; tex" & "t-justify: auto; ddo-char-set: 1" Me.Label20.Text = "Consignee/Empfänger" - Me.Label20.Top = 0.3464567! + Me.Label20.Top = 0.3543307! Me.Label20.Width = 1.003937! ' 'Shape1 @@ -618,19 +631,6 @@ Partial Public Class rptSpeditionsbericht_Gelangensbestaetigung Me.lblEndEmpf.Top = 0.3464567! Me.lblEndEmpf.Width = 2.122047! ' - 'lblEndEmpfKdNr - ' - Me.lblEndEmpfKdNr.Height = 0.1574803! - Me.lblEndEmpfKdNr.HyperLink = Nothing - Me.lblEndEmpfKdNr.Left = 3.785039! - Me.lblEndEmpfKdNr.Name = "lblEndEmpfKdNr" - Me.lblEndEmpfKdNr.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0) - Me.lblEndEmpfKdNr.Style = "font-size: 7pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & - "ar-set: 1" - Me.lblEndEmpfKdNr.Text = "100000 VERAG" - Me.lblEndEmpfKdNr.Top = 0.3464565! - Me.lblEndEmpfKdNr.Width = 0.4133847! - ' 'PageFooter ' Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label28, Me.Line2, Me.ReportInfo2, Me.lblDat}) @@ -662,7 +662,7 @@ Partial Public Class rptSpeditionsbericht_Gelangensbestaetigung ' 'ReportInfo2 ' - Me.ReportInfo2.FormatString = "Seite {PageNumber} von {PageCount} Seiten " + Me.ReportInfo2.FormatString = "Page/Seite {PageNumber} / {PageCount} Seiten " Me.ReportInfo2.Height = 0.1330709! Me.ReportInfo2.Left = 5.032284! Me.ReportInfo2.Name = "ReportInfo2" @@ -938,6 +938,11 @@ Partial Public Class rptSpeditionsbericht_Gelangensbestaetigung CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblAbsKdNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblEmpfKdNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblEndEmpfKdNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFrachtfKdNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblAuftrKdNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblLKWNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblAbs, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblBezugsNr, System.ComponentModel.ISupportInitialize).EndInit() @@ -955,10 +960,6 @@ Partial Public Class rptSpeditionsbericht_Gelangensbestaetigung CType(Me.txtPackstücke, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtVermerk, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.lblAbsKdNr, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.lblEmpfKdNr, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.lblAuftrKdNr, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.lblFrachtfKdNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtKdOpt, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label11, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label12, System.ComponentModel.ISupportInitialize).EndInit() @@ -966,7 +967,6 @@ Partial Public Class rptSpeditionsbericht_Gelangensbestaetigung CType(Me.Label20, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblEndEmpf, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.lblEndEmpfKdNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label28, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblDat, System.ComponentModel.ISupportInitialize).EndInit() diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index 500e6f37..909e592b 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -417,17 +417,17 @@ Public Class frmMDM_USTVAntrag End If USTV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME - USTV_POS.UStVPo_Zeitstempel = Now() - ' Berechnungen - USTV_POS.UStVPo_USteuerbetragEUR = ANTRAG.plose_MWSTBetragWaehrungAbbuchung 'VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(ANTRAG.plose_MWSTBetragWaehrungAbbuchung, USTV_ANTRAG.UStVAn_Währungscode, "EUR") - 'USTV_POS.UStVPo_Umrechnungskurs = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuroKurs(ANTRAG.plose_WaehrungAbbuchung, ANTRAG.plose_RechnungsDatum) - USTV_POS.UStVPo_Umrechnungskurs = ANTRAG.plose_MWSTBetrag / ANTRAG.plose_MWSTBetragWaehrungAbbuchung - USTV_POS.UStVPo_USteuerbetrag = ANTRAG.plose_MWSTBetrag - ' MsgBox(ANTRAG.plose_Lieferant & " - " & ANTRAG.plose_RechnungsDatum & " - " & ANTRAG.plose_RechnungsNr & " :::::::::: " & CDbl(ANTRAG.plose_MWSTBetrag).ToString("C2")) + USTV_POS.UStVPo_Zeitstempel = Now() + ' Berechnungen + USTV_POS.UStVPo_USteuerbetragEUR = ANTRAG.plose_MWSTBetragWaehrungAbbuchung 'VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(ANTRAG.plose_MWSTBetragWaehrungAbbuchung, USTV_ANTRAG.UStVAn_Währungscode, "EUR") + 'USTV_POS.UStVPo_Umrechnungskurs = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuroKurs(ANTRAG.plose_WaehrungAbbuchung, ANTRAG.plose_RechnungsDatum) + USTV_POS.UStVPo_Umrechnungskurs = ANTRAG.plose_MWSTBetrag / ANTRAG.plose_MWSTBetragWaehrungAbbuchung + USTV_POS.UStVPo_USteuerbetrag = ANTRAG.plose_MWSTBetrag + ' MsgBox(ANTRAG.plose_Lieferant & " - " & ANTRAG.plose_RechnungsDatum & " - " & ANTRAG.plose_RechnungsNr & " :::::::::: " & CDbl(ANTRAG.plose_MWSTBetrag).ToString("C2")) - USTV_POS.INSERT() - End If + USTV_POS.INSERT() + End If Next 'Einträge als archivert setzen ' vormals wichtig @@ -466,10 +466,10 @@ Public Class frmMDM_USTVAntrag If Not alreadyExists(USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_LandNr, USTV_POS) Then - USTV_POS.UStVPo_Schnittstelle = True - USTV_POS.UStVPo_Leistender = "VERAG 360 GmbH; 4975 Suben" - USTV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME - USTV_POS.UStVPo_Zeitstempel = Now() + USTV_POS.UStVPo_Schnittstelle = True + USTV_POS.UStVPo_Leistender = "VERAG 360 GmbH; 4975 Suben" + USTV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + USTV_POS.UStVPo_Zeitstempel = Now() Dim dt_Prod As New DataTable @@ -1186,7 +1186,7 @@ Public Class frmMDM_USTVAntrag TextHTML &= "We are always available to answer more questions.
" TextHTML &= "Mit freundlichen Grüßen
" - TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" + TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" TextHTML &= "
" Mail.HTMLBody = "
" & TextHTML & SDL.cFakturierung.getSignature("DE") & "
" diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cEZB_Waehrungskurse.vb b/VERAG_PROG_ALLGEMEIN/Classes/cEZB_Waehrungskurse.vb index 52436fef..7c55a94b 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cEZB_Waehrungskurse.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cEZB_Waehrungskurse.vb @@ -147,13 +147,13 @@ Public Class cEZB_Waehrungskurse End Function Shared Function GET_KURS(ezb_waehrungscode As String, datum As Date) As Double - Dim sqlstr = " SELECT TOP 1 [ezb_kurs] FROM [tblEZB_Waehrungskurse] where ezb_waehrungscode='" & ezb_waehrungscode & "' and ezb_datum<='" & datum.ToShortTimeString & "' order by ezb_datum desc" + Dim sqlstr = " SELECT TOP 1 [ezb_kurs] FROM [tblEZB_Waehrungskurse] where ezb_waehrungscode='" & ezb_waehrungscode & "' and ezb_datum<='" & datum.ToShortDateString & "' order by ezb_datum desc" Return (New SQL).getValueTxtBySql(sqlstr, "FMZOLL",,, 0) End Function Shared Function EXCHANGE(betrag As Double, waehrungscode As String, datum As Date) As Double - Dim sqlstr = " SELECT TOP 1 [ezb_kurs] FROM [tblEZB_Waehrungskurse] where ezb_waehrungscode='" & waehrungscode & "' and ezb_datum<='" & datum.ToShortTimeString & "' order by ezb_datum desc" - Return (New SQL).getValueTxtBySql(sqlstr, "FMZOLL",,, 0) * betrag + Dim sqlstr = " SELECT TOP 1 [ezb_kurs] FROM [tblEZB_Waehrungskurse] where ezb_waehrungscode='" & waehrungscode & "' and ezb_datum<='" & datum.ToShortDateString & "' order by ezb_datum desc" + Return betrag / (New SQL).getValueTxtBySql(sqlstr, "FMZOLL",,, 0) End Function End Class diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/CC015C.Designer.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/CC015C.Designer.vb new file mode 100644 index 00000000..36cee9cc --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/CC015C.Designer.vb @@ -0,0 +1,12554 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net48","NameSpace":"NCTS_P5_CC015C","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}} +'' +'' ------------------------------------------------------------------------------ +#Disable Warning +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Runtime.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.Xml +Imports System.IO +Imports System.Text +Imports System.Collections.Generic + +Namespace NCTS_P5_CC015C + + + Partial Public Class description + +#Region "Private fields" + Private _value As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(description)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize description object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes description object + ''' + ''' string to deserialize + ''' Output description object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As description, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, description) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As description) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As description + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), description) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As description + Return CType(SerializerXml.Deserialize(s), description) + End Function +#End Region + + ''' + ''' Serializes current description object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an description object + ''' + ''' File to load and deserialize + ''' Output description object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As description, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, description) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As description) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As description + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class rule + +#Region "Private fields" + Private _name As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(rule)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize rule object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes rule object + ''' + ''' string to deserialize + ''' Output rule object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As rule, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, rule) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As rule) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As rule + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), rule) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As rule + Return CType(SerializerXml.Deserialize(s), rule) + End Function +#End Region + + ''' + ''' Serializes current rule object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an rule object + ''' + ''' File to load and deserialize + ''' Output rule object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As rule, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, rule) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As rule) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As rule + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class condition + +#Region "Private fields" + Private _name As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(condition)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize condition object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes condition object + ''' + ''' string to deserialize + ''' Output condition object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As condition, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, condition) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As condition) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As condition + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), condition) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As condition + Return CType(SerializerXml.Deserialize(s), condition) + End Function +#End Region + + ''' + ''' Serializes current condition object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an condition object + ''' + ''' File to load and deserialize + ''' Output condition object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As condition, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, condition) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As condition) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As condition + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class codeList + +#Region "Private fields" + Private _name As String + + Private _type As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._type = "technical" + End Sub + + + Public Property name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(codeList)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize codeList object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes codeList object + ''' + ''' string to deserialize + ''' Output codeList object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As codeList, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, codeList) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As codeList) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As codeList + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), codeList) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As codeList + Return CType(SerializerXml.Deserialize(s), codeList) + End Function +#End Region + + ''' + ''' Serializes current codeList object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an codeList object + ''' + ''' File to load and deserialize + ''' Output codeList object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As codeList, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, codeList) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As codeList) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As codeList + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class CC015CType + +#Region "Private fields" + Private _messageSender As String + + Private _messageRecipient As String + + Private _preparationDateAndTime As Date + + Private _messageIdentification As String + + Private _messageType As MessageTypes + + Private _correlationIdentifier As String + + Private _transitOperation As TransitOperationType06 + + Private _authorisation As List(Of AuthorisationType03) + + Private _customsOfficeOfDeparture As CustomsOfficeOfDepartureType03 + + Private _customsOfficeOfDestinationDeclared As CustomsOfficeOfDestinationDeclaredType01 + + Private _customsOfficeOfTransitDeclared As List(Of CustomsOfficeOfTransitDeclaredType04) + + Private _customsOfficeOfExitForTransitDeclared As List(Of CustomsOfficeOfExitForTransitDeclaredType02) + + Private _holderOfTheTransitProcedure As HolderOfTheTransitProcedureType14 + + Private _representative As RepresentativeType05 + + Private _guarantee As List(Of GuaranteeType02) + + Private _consignment As ConsignmentType20 + + Private _phaseID As phaseIDtype + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._consignment = New ConsignmentType20() + Me._guarantee = New List(Of GuaranteeType02)() + Me._representative = New RepresentativeType05() + Me._holderOfTheTransitProcedure = New HolderOfTheTransitProcedureType14() + Me._customsOfficeOfExitForTransitDeclared = New List(Of CustomsOfficeOfExitForTransitDeclaredType02)() + Me._customsOfficeOfTransitDeclared = New List(Of CustomsOfficeOfTransitDeclaredType04)() + Me._customsOfficeOfDestinationDeclared = New CustomsOfficeOfDestinationDeclaredType01() + Me._customsOfficeOfDeparture = New CustomsOfficeOfDepartureType03() + Me._authorisation = New List(Of AuthorisationType03)() + Me._transitOperation = New TransitOperationType06() + End Sub + + + Public Property messageSender() As String + Get + Return Me._messageSender + End Get + Set + Me._messageSender = Value + End Set + End Property + + + Public Property messageRecipient() As String + Get + Return Me._messageRecipient + End Get + Set + Me._messageRecipient = Value + End Set + End Property + + + Public Property preparationDateAndTime() As Date + Get + Return Me._preparationDateAndTime + End Get + Set + Me._preparationDateAndTime = Value + End Set + End Property + + + Public Property messageIdentification() As String + Get + Return Me._messageIdentification + End Get + Set + Me._messageIdentification = Value + End Set + End Property + + + Public Property messageType() As MessageTypes + Get + Return Me._messageType + End Get + Set + Me._messageType = Value + End Set + End Property + + + Public Property correlationIdentifier() As String + Get + Return Me._correlationIdentifier + End Get + Set + Me._correlationIdentifier = Value + End Set + End Property + + + Public Property TransitOperation() As TransitOperationType06 + Get + Return Me._transitOperation + End Get + Set + Me._transitOperation = Value + End Set + End Property + + + Public Property Authorisation() As List(Of AuthorisationType03) + Get + Return Me._authorisation + End Get + Set + Me._authorisation = Value + End Set + End Property + + + Public Property CustomsOfficeOfDeparture() As CustomsOfficeOfDepartureType03 + Get + Return Me._customsOfficeOfDeparture + End Get + Set + Me._customsOfficeOfDeparture = Value + End Set + End Property + + + Public Property CustomsOfficeOfDestinationDeclared() As CustomsOfficeOfDestinationDeclaredType01 + Get + Return Me._customsOfficeOfDestinationDeclared + End Get + Set + Me._customsOfficeOfDestinationDeclared = Value + End Set + End Property + + + Public Property CustomsOfficeOfTransitDeclared() As List(Of CustomsOfficeOfTransitDeclaredType04) + Get + Return Me._customsOfficeOfTransitDeclared + End Get + Set + Me._customsOfficeOfTransitDeclared = Value + End Set + End Property + + + Public Property CustomsOfficeOfExitForTransitDeclared() As List(Of CustomsOfficeOfExitForTransitDeclaredType02) + Get + Return Me._customsOfficeOfExitForTransitDeclared + End Get + Set + Me._customsOfficeOfExitForTransitDeclared = Value + End Set + End Property + + + Public Property HolderOfTheTransitProcedure() As HolderOfTheTransitProcedureType14 + Get + Return Me._holderOfTheTransitProcedure + End Get + Set + Me._holderOfTheTransitProcedure = Value + End Set + End Property + + + Public Property Representative() As RepresentativeType05 + Get + Return Me._representative + End Get + Set + Me._representative = Value + End Set + End Property + + + Public Property Guarantee() As List(Of GuaranteeType02) + Get + Return Me._guarantee + End Get + Set + Me._guarantee = Value + End Set + End Property + + + Public Property Consignment() As ConsignmentType20 + Get + Return Me._consignment + End Get + Set + Me._consignment = Value + End Set + End Property + + + Public Property PhaseID() As phaseIDtype + Get + Return Me._phaseID + End Get + Set + Me._phaseID = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CC015CType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize CC015CType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes CC015CType object + ''' + ''' string to deserialize + ''' Output CC015CType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CC015CType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CC015CType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CC015CType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As CC015CType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CC015CType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As CC015CType + Return CType(SerializerXml.Deserialize(s), CC015CType) + End Function +#End Region + + ''' + ''' Serializes current CC015CType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CC015CType object + ''' + ''' File to load and deserialize + ''' Output CC015CType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CC015CType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CC015CType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CC015CType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As CC015CType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Public Enum MessageTypes + + CC004C + + CC007C + + CC009C + + CC013C + + CC014C + + CC015C + + CC017C + + CC019C + + CC022C + + CC023C + + CC025C + + CC026C + + CC028C + + CC029C + + CC034C + + CC035C + + CC037C + + CC040C + + CC042C + + CC043C + + CC044C + + CC045C + + CC048C + + CC051C + + CC054C + + CC055C + + CC056C + + CC057C + + CC060C + + CC140C + + CC141C + + CC170C + + CC182C + + CC190C + + CC191C + + CC224C + + CC225C + + CC228C + + CC229C + + CC231C + + CC906C + + CC917C + + CC928C + + CD001C + + CD002C + + CD003C + + CD006C + + CD010C + + CD012C + + CD018C + + CD024C + + CD027C + + CD038C + + CD049C + + CD050C + + CD059C + + CD063C + + CD070C + + CD071C + + CD078C + + CD094C + + CD095C + + CD114C + + CD115C + + CD118C + + CD142C + + CD143C + + CD144C + + CD145C + + CD150C + + CD151C + + CD152C + + CD160C + + CD164C + + CD165C + + CD168C + + CD180C + + CD181C + + CD200C + + CD201C + + CD203C + + CD204C + + CD205C + + CD209C + + CD411D + + CD903D + + CD906C + + CD917C + + CD971C + + CD974C + + CD975C + End Enum + + + Partial Public Class TransitOperationType06 + +#Region "Private fields" + Private _lRN As String + + Private _declarationType As String + + Private _additionalDeclarationType As String + + Private _tIRCarnetNumber As String + + Private _presentationOfTheGoodsDateAndTime As Date + + Private _security As String + + Private _reducedDatasetIndicator As Flag + + Private _specificCircumstanceIndicator As String + + Private _communicationLanguageAtDeparture As String + + Private _bindingItinerary As Flag + + Private _limitDate As Date + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property LRN() As String + Get + Return Me._lRN + End Get + Set + Me._lRN = Value + End Set + End Property + + + Public Property declarationType() As String + Get + Return Me._declarationType + End Get + Set + Me._declarationType = Value + End Set + End Property + + + Public Property additionalDeclarationType() As String + Get + Return Me._additionalDeclarationType + End Get + Set + Me._additionalDeclarationType = Value + End Set + End Property + + + Public Property TIRCarnetNumber() As String + Get + Return Me._tIRCarnetNumber + End Get + Set + Me._tIRCarnetNumber = Value + End Set + End Property + + + Public Property presentationOfTheGoodsDateAndTime() As Date + Get + Return Me._presentationOfTheGoodsDateAndTime + End Get + Set + Me._presentationOfTheGoodsDateAndTime = Value + End Set + End Property + + + Public Property security() As String + Get + Return Me._security + End Get + Set + Me._security = Value + End Set + End Property + + + Public Property reducedDatasetIndicator() As Flag + Get + Return Me._reducedDatasetIndicator + End Get + Set + Me._reducedDatasetIndicator = Value + End Set + End Property + + + Public Property specificCircumstanceIndicator() As String + Get + Return Me._specificCircumstanceIndicator + End Get + Set + Me._specificCircumstanceIndicator = Value + End Set + End Property + + + Public Property communicationLanguageAtDeparture() As String + Get + Return Me._communicationLanguageAtDeparture + End Get + Set + Me._communicationLanguageAtDeparture = Value + End Set + End Property + + + Public Property bindingItinerary() As Flag + Get + Return Me._bindingItinerary + End Get + Set + Me._bindingItinerary = Value + End Set + End Property + + + Public Property limitDate() As Date + Get + Return Me._limitDate + End Get + Set + Me._limitDate = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransitOperationType06)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransitOperationType06 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TransitOperationType06 object + ''' + ''' string to deserialize + ''' Output TransitOperationType06 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransitOperationType06, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransitOperationType06) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransitOperationType06) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransitOperationType06 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransitOperationType06) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransitOperationType06 + Return CType(SerializerXml.Deserialize(s), TransitOperationType06) + End Function +#End Region + + ''' + ''' Serializes current TransitOperationType06 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TransitOperationType06 object + ''' + ''' File to load and deserialize + ''' Output TransitOperationType06 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransitOperationType06, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransitOperationType06) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransitOperationType06) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransitOperationType06 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Public Enum Flag + + + Item0 + + + Item1 + End Enum + + + Partial Public Class AuthorisationType03 + +#Region "Private fields" + Private _sequenceNumber As String + + Private _type As String + + Private _referenceNumber As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property sequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property referenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AuthorisationType03)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AuthorisationType03 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AuthorisationType03 object + ''' + ''' string to deserialize + ''' Output AuthorisationType03 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AuthorisationType03, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AuthorisationType03) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AuthorisationType03) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AuthorisationType03 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AuthorisationType03) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AuthorisationType03 + Return CType(SerializerXml.Deserialize(s), AuthorisationType03) + End Function +#End Region + + ''' + ''' Serializes current AuthorisationType03 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AuthorisationType03 object + ''' + ''' File to load and deserialize + ''' Output AuthorisationType03 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AuthorisationType03, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AuthorisationType03) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AuthorisationType03) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AuthorisationType03 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class CustomsOfficeOfDepartureType03 + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property referenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CustomsOfficeOfDepartureType03)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize CustomsOfficeOfDepartureType03 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes CustomsOfficeOfDepartureType03 object + ''' + ''' string to deserialize + ''' Output CustomsOfficeOfDepartureType03 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CustomsOfficeOfDepartureType03, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CustomsOfficeOfDepartureType03) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CustomsOfficeOfDepartureType03) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As CustomsOfficeOfDepartureType03 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CustomsOfficeOfDepartureType03) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As CustomsOfficeOfDepartureType03 + Return CType(SerializerXml.Deserialize(s), CustomsOfficeOfDepartureType03) + End Function +#End Region + + ''' + ''' Serializes current CustomsOfficeOfDepartureType03 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CustomsOfficeOfDepartureType03 object + ''' + ''' File to load and deserialize + ''' Output CustomsOfficeOfDepartureType03 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CustomsOfficeOfDepartureType03, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CustomsOfficeOfDepartureType03) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CustomsOfficeOfDepartureType03) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As CustomsOfficeOfDepartureType03 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class CustomsOfficeOfDestinationDeclaredType01 + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property referenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CustomsOfficeOfDestinationDeclaredType01)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize CustomsOfficeOfDestinationDeclaredType01 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes CustomsOfficeOfDestinationDeclaredType01 object + ''' + ''' string to deserialize + ''' Output CustomsOfficeOfDestinationDeclaredType01 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CustomsOfficeOfDestinationDeclaredType01, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CustomsOfficeOfDestinationDeclaredType01) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CustomsOfficeOfDestinationDeclaredType01) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As CustomsOfficeOfDestinationDeclaredType01 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CustomsOfficeOfDestinationDeclaredType01) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As CustomsOfficeOfDestinationDeclaredType01 + Return CType(SerializerXml.Deserialize(s), CustomsOfficeOfDestinationDeclaredType01) + End Function +#End Region + + ''' + ''' Serializes current CustomsOfficeOfDestinationDeclaredType01 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CustomsOfficeOfDestinationDeclaredType01 object + ''' + ''' File to load and deserialize + ''' Output CustomsOfficeOfDestinationDeclaredType01 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CustomsOfficeOfDestinationDeclaredType01, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CustomsOfficeOfDestinationDeclaredType01) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CustomsOfficeOfDestinationDeclaredType01) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As CustomsOfficeOfDestinationDeclaredType01 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class CustomsOfficeOfTransitDeclaredType04 + +#Region "Private fields" + Private _sequenceNumber As String + + Private _referenceNumber As String + + Private _arrivalDateAndTimeEstimated As Date + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property sequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property referenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property arrivalDateAndTimeEstimated() As Date + Get + Return Me._arrivalDateAndTimeEstimated + End Get + Set + Me._arrivalDateAndTimeEstimated = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CustomsOfficeOfTransitDeclaredType04)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize CustomsOfficeOfTransitDeclaredType04 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes CustomsOfficeOfTransitDeclaredType04 object + ''' + ''' string to deserialize + ''' Output CustomsOfficeOfTransitDeclaredType04 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CustomsOfficeOfTransitDeclaredType04, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CustomsOfficeOfTransitDeclaredType04) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CustomsOfficeOfTransitDeclaredType04) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As CustomsOfficeOfTransitDeclaredType04 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CustomsOfficeOfTransitDeclaredType04) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As CustomsOfficeOfTransitDeclaredType04 + Return CType(SerializerXml.Deserialize(s), CustomsOfficeOfTransitDeclaredType04) + End Function +#End Region + + ''' + ''' Serializes current CustomsOfficeOfTransitDeclaredType04 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CustomsOfficeOfTransitDeclaredType04 object + ''' + ''' File to load and deserialize + ''' Output CustomsOfficeOfTransitDeclaredType04 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CustomsOfficeOfTransitDeclaredType04, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CustomsOfficeOfTransitDeclaredType04) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CustomsOfficeOfTransitDeclaredType04) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As CustomsOfficeOfTransitDeclaredType04 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class CustomsOfficeOfExitForTransitDeclaredType02 + +#Region "Private fields" + Private _sequenceNumber As String + + Private _referenceNumber As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property sequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property referenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CustomsOfficeOfExitForTransitDeclaredType02)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize CustomsOfficeOfExitForTransitDeclaredType02 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes CustomsOfficeOfExitForTransitDeclaredType02 object + ''' + ''' string to deserialize + ''' Output CustomsOfficeOfExitForTransitDeclaredType02 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CustomsOfficeOfExitForTransitDeclaredType02, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CustomsOfficeOfExitForTransitDeclaredType02) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CustomsOfficeOfExitForTransitDeclaredType02) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As CustomsOfficeOfExitForTransitDeclaredType02 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CustomsOfficeOfExitForTransitDeclaredType02) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As CustomsOfficeOfExitForTransitDeclaredType02 + Return CType(SerializerXml.Deserialize(s), CustomsOfficeOfExitForTransitDeclaredType02) + End Function +#End Region + + ''' + ''' Serializes current CustomsOfficeOfExitForTransitDeclaredType02 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CustomsOfficeOfExitForTransitDeclaredType02 object + ''' + ''' File to load and deserialize + ''' Output CustomsOfficeOfExitForTransitDeclaredType02 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CustomsOfficeOfExitForTransitDeclaredType02, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CustomsOfficeOfExitForTransitDeclaredType02) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CustomsOfficeOfExitForTransitDeclaredType02) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As CustomsOfficeOfExitForTransitDeclaredType02 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class HolderOfTheTransitProcedureType14 + +#Region "Private fields" + Private _identificationNumber As String + + Private _tIRHolderIdentificationNumber As String + + Private _name As String + + Private _address As AddressType17 + + Private _contactPerson As ContactPersonType05 + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contactPerson = New ContactPersonType05() + Me._address = New AddressType17() + End Sub + + + Public Property identificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set + Me._identificationNumber = Value + End Set + End Property + + + Public Property TIRHolderIdentificationNumber() As String + Get + Return Me._tIRHolderIdentificationNumber + End Get + Set + Me._tIRHolderIdentificationNumber = Value + End Set + End Property + + + Public Property name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Address() As AddressType17 + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + + Public Property ContactPerson() As ContactPersonType05 + Get + Return Me._contactPerson + End Get + Set + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(HolderOfTheTransitProcedureType14)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize HolderOfTheTransitProcedureType14 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes HolderOfTheTransitProcedureType14 object + ''' + ''' string to deserialize + ''' Output HolderOfTheTransitProcedureType14 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HolderOfTheTransitProcedureType14, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HolderOfTheTransitProcedureType14) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HolderOfTheTransitProcedureType14) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As HolderOfTheTransitProcedureType14 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), HolderOfTheTransitProcedureType14) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As HolderOfTheTransitProcedureType14 + Return CType(SerializerXml.Deserialize(s), HolderOfTheTransitProcedureType14) + End Function +#End Region + + ''' + ''' Serializes current HolderOfTheTransitProcedureType14 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an HolderOfTheTransitProcedureType14 object + ''' + ''' File to load and deserialize + ''' Output HolderOfTheTransitProcedureType14 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HolderOfTheTransitProcedureType14, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HolderOfTheTransitProcedureType14) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HolderOfTheTransitProcedureType14) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As HolderOfTheTransitProcedureType14 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AddressType17 + +#Region "Private fields" + Private _streetAndNumber As String + + Private _postcode As String + + Private _city As String + + Private _country As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property streetAndNumber() As String + Get + Return Me._streetAndNumber + End Get + Set + Me._streetAndNumber = Value + End Set + End Property + + + Public Property postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property city() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + + Public Property country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AddressType17)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AddressType17 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AddressType17 object + ''' + ''' string to deserialize + ''' Output AddressType17 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AddressType17, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AddressType17) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AddressType17) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AddressType17 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AddressType17) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AddressType17 + Return CType(SerializerXml.Deserialize(s), AddressType17) + End Function +#End Region + + ''' + ''' Serializes current AddressType17 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AddressType17 object + ''' + ''' File to load and deserialize + ''' Output AddressType17 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AddressType17, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AddressType17) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AddressType17) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AddressType17 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ContactPersonType05 + +#Region "Private fields" + Private _name As String + + Private _phoneNumber As String + + Private _eMailAddress As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property phoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set + Me._phoneNumber = Value + End Set + End Property + + + Public Property eMailAddress() As String + Get + Return Me._eMailAddress + End Get + Set + Me._eMailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ContactPersonType05)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ContactPersonType05 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ContactPersonType05 object + ''' + ''' string to deserialize + ''' Output ContactPersonType05 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ContactPersonType05, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ContactPersonType05) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ContactPersonType05) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ContactPersonType05 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ContactPersonType05) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ContactPersonType05 + Return CType(SerializerXml.Deserialize(s), ContactPersonType05) + End Function +#End Region + + ''' + ''' Serializes current ContactPersonType05 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ContactPersonType05 object + ''' + ''' File to load and deserialize + ''' Output ContactPersonType05 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ContactPersonType05, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ContactPersonType05) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ContactPersonType05) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ContactPersonType05 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class RepresentativeType05 + +#Region "Private fields" + Private _identificationNumber As String + + Private _status As String + + Private _contactPerson As ContactPersonType05 + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contactPerson = New ContactPersonType05() + End Sub + + + Public Property identificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set + Me._identificationNumber = Value + End Set + End Property + + + Public Property status() As String + Get + Return Me._status + End Get + Set + Me._status = Value + End Set + End Property + + + Public Property ContactPerson() As ContactPersonType05 + Get + Return Me._contactPerson + End Get + Set + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(RepresentativeType05)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize RepresentativeType05 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes RepresentativeType05 object + ''' + ''' string to deserialize + ''' Output RepresentativeType05 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As RepresentativeType05, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, RepresentativeType05) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As RepresentativeType05) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As RepresentativeType05 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), RepresentativeType05) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As RepresentativeType05 + Return CType(SerializerXml.Deserialize(s), RepresentativeType05) + End Function +#End Region + + ''' + ''' Serializes current RepresentativeType05 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an RepresentativeType05 object + ''' + ''' File to load and deserialize + ''' Output RepresentativeType05 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As RepresentativeType05, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, RepresentativeType05) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As RepresentativeType05) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As RepresentativeType05 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class GuaranteeType02 + +#Region "Private fields" + Private _sequenceNumber As String + + Private _guaranteeType As String + + Private _otherGuaranteeReference As String + + Private _guaranteeReference As List(Of GuaranteeReferenceType03) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._guaranteeReference = New List(Of GuaranteeReferenceType03)() + End Sub + + + Public Property sequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property guaranteeType() As String + Get + Return Me._guaranteeType + End Get + Set + Me._guaranteeType = Value + End Set + End Property + + + Public Property otherGuaranteeReference() As String + Get + Return Me._otherGuaranteeReference + End Get + Set + Me._otherGuaranteeReference = Value + End Set + End Property + + + Public Property GuaranteeReference() As List(Of GuaranteeReferenceType03) + Get + Return Me._guaranteeReference + End Get + Set + Me._guaranteeReference = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(GuaranteeType02)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize GuaranteeType02 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes GuaranteeType02 object + ''' + ''' string to deserialize + ''' Output GuaranteeType02 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GuaranteeType02, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GuaranteeType02) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GuaranteeType02) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As GuaranteeType02 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), GuaranteeType02) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As GuaranteeType02 + Return CType(SerializerXml.Deserialize(s), GuaranteeType02) + End Function +#End Region + + ''' + ''' Serializes current GuaranteeType02 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GuaranteeType02 object + ''' + ''' File to load and deserialize + ''' Output GuaranteeType02 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GuaranteeType02, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GuaranteeType02) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GuaranteeType02) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As GuaranteeType02 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class GuaranteeReferenceType03 + +#Region "Private fields" + Private _sequenceNumber As String + + Private _gRN As String + + Private _accessCode As String + + Private _amountToBeCovered As Decimal + + Private _currency As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property sequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property GRN() As String + Get + Return Me._gRN + End Get + Set + Me._gRN = Value + End Set + End Property + + + Public Property accessCode() As String + Get + Return Me._accessCode + End Get + Set + Me._accessCode = Value + End Set + End Property + + + Public Property amountToBeCovered() As Decimal + Get + Return Me._amountToBeCovered + End Get + Set + Me._amountToBeCovered = Value + End Set + End Property + + + Public Property currency() As String + Get + Return Me._currency + End Get + Set + Me._currency = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(GuaranteeReferenceType03)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize GuaranteeReferenceType03 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes GuaranteeReferenceType03 object + ''' + ''' string to deserialize + ''' Output GuaranteeReferenceType03 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GuaranteeReferenceType03, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GuaranteeReferenceType03) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GuaranteeReferenceType03) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As GuaranteeReferenceType03 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), GuaranteeReferenceType03) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As GuaranteeReferenceType03 + Return CType(SerializerXml.Deserialize(s), GuaranteeReferenceType03) + End Function +#End Region + + ''' + ''' Serializes current GuaranteeReferenceType03 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GuaranteeReferenceType03 object + ''' + ''' File to load and deserialize + ''' Output GuaranteeReferenceType03 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GuaranteeReferenceType03, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GuaranteeReferenceType03) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GuaranteeReferenceType03) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As GuaranteeReferenceType03 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ConsignmentType20 + +#Region "Private fields" + Private _countryOfDispatch As String + + Private _countryOfDestination As String + + Private _containerIndicator As Flag + + Private _inlandModeOfTransport As String + + Private _modeOfTransportAtTheBorder As String + + Private _grossMass As Decimal + + Private _referenceNumberUCR As String + + Private _carrier As CarrierType04 + + Private _consignor As ConsignorType07 + + Private _consignee As ConsigneeType05 + + Private _additionalSupplyChainActor As List(Of AdditionalSupplyChainActorType) + + Private _transportEquipment As List(Of TransportEquipmentType06) + + Private _locationOfGoods As LocationOfGoodsType05 + + Private _departureTransportMeans As List(Of DepartureTransportMeansType03) + + Private _countryOfRoutingOfConsignment As List(Of CountryOfRoutingOfConsignmentType01) + + Private _activeBorderTransportMeans As List(Of ActiveBorderTransportMeansType02) + + Private _placeOfLoading As PlaceOfLoadingType03 + + Private _placeOfUnloading As PlaceOfUnloadingType01 + + Private _previousDocument As List(Of PreviousDocumentType09) + + Private _supportingDocument As List(Of SupportingDocumentType05) + + Private _transportDocument As List(Of TransportDocumentType04) + + Private _additionalReference As List(Of AdditionalReferenceType05) + + Private _additionalInformation As List(Of AdditionalInformationType03) + + Private _transportCharges As TransportChargesType + + Private _houseConsignment As List(Of HouseConsignmentType10) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._houseConsignment = New List(Of HouseConsignmentType10)() + Me._transportCharges = New TransportChargesType() + Me._additionalInformation = New List(Of AdditionalInformationType03)() + Me._additionalReference = New List(Of AdditionalReferenceType05)() + Me._transportDocument = New List(Of TransportDocumentType04)() + Me._supportingDocument = New List(Of SupportingDocumentType05)() + Me._previousDocument = New List(Of PreviousDocumentType09)() + Me._placeOfUnloading = New PlaceOfUnloadingType01() + Me._placeOfLoading = New PlaceOfLoadingType03() + Me._activeBorderTransportMeans = New List(Of ActiveBorderTransportMeansType02)() + Me._countryOfRoutingOfConsignment = New List(Of CountryOfRoutingOfConsignmentType01)() + Me._departureTransportMeans = New List(Of DepartureTransportMeansType03)() + Me._locationOfGoods = New LocationOfGoodsType05() + Me._transportEquipment = New List(Of TransportEquipmentType06)() + Me._additionalSupplyChainActor = New List(Of AdditionalSupplyChainActorType)() + Me._consignee = New ConsigneeType05() + Me._consignor = New ConsignorType07() + Me._carrier = New CarrierType04() + End Sub + + + Public Property countryOfDispatch() As String + Get + Return Me._countryOfDispatch + End Get + Set + Me._countryOfDispatch = Value + End Set + End Property + + + Public Property countryOfDestination() As String + Get + Return Me._countryOfDestination + End Get + Set + Me._countryOfDestination = Value + End Set + End Property + + + Public Property containerIndicator() As Flag + Get + Return Me._containerIndicator + End Get + Set + Me._containerIndicator = Value + End Set + End Property + + + Public Property inlandModeOfTransport() As String + Get + Return Me._inlandModeOfTransport + End Get + Set + Me._inlandModeOfTransport = Value + End Set + End Property + + + Public Property modeOfTransportAtTheBorder() As String + Get + Return Me._modeOfTransportAtTheBorder + End Get + Set + Me._modeOfTransportAtTheBorder = Value + End Set + End Property + + + Public Property grossMass() As Decimal + Get + Return Me._grossMass + End Get + Set + Me._grossMass = Value + End Set + End Property + + + Public Property referenceNumberUCR() As String + Get + Return Me._referenceNumberUCR + End Get + Set + Me._referenceNumberUCR = Value + End Set + End Property + + + Public Property Carrier() As CarrierType04 + Get + Return Me._carrier + End Get + Set + Me._carrier = Value + End Set + End Property + + + Public Property Consignor() As ConsignorType07 + Get + Return Me._consignor + End Get + Set + Me._consignor = Value + End Set + End Property + + + Public Property Consignee() As ConsigneeType05 + Get + Return Me._consignee + End Get + Set + Me._consignee = Value + End Set + End Property + + + Public Property AdditionalSupplyChainActor() As List(Of AdditionalSupplyChainActorType) + Get + Return Me._additionalSupplyChainActor + End Get + Set + Me._additionalSupplyChainActor = Value + End Set + End Property + + + Public Property TransportEquipment() As List(Of TransportEquipmentType06) + Get + Return Me._transportEquipment + End Get + Set + Me._transportEquipment = Value + End Set + End Property + + + Public Property LocationOfGoods() As LocationOfGoodsType05 + Get + Return Me._locationOfGoods + End Get + Set + Me._locationOfGoods = Value + End Set + End Property + + + Public Property DepartureTransportMeans() As List(Of DepartureTransportMeansType03) + Get + Return Me._departureTransportMeans + End Get + Set + Me._departureTransportMeans = Value + End Set + End Property + + + Public Property CountryOfRoutingOfConsignment() As List(Of CountryOfRoutingOfConsignmentType01) + Get + Return Me._countryOfRoutingOfConsignment + End Get + Set + Me._countryOfRoutingOfConsignment = Value + End Set + End Property + + + Public Property ActiveBorderTransportMeans() As List(Of ActiveBorderTransportMeansType02) + Get + Return Me._activeBorderTransportMeans + End Get + Set + Me._activeBorderTransportMeans = Value + End Set + End Property + + + Public Property PlaceOfLoading() As PlaceOfLoadingType03 + Get + Return Me._placeOfLoading + End Get + Set + Me._placeOfLoading = Value + End Set + End Property + + + Public Property PlaceOfUnloading() As PlaceOfUnloadingType01 + Get + Return Me._placeOfUnloading + End Get + Set + Me._placeOfUnloading = Value + End Set + End Property + + + Public Property PreviousDocument() As List(Of PreviousDocumentType09) + Get + Return Me._previousDocument + End Get + Set + Me._previousDocument = Value + End Set + End Property + + + Public Property SupportingDocument() As List(Of SupportingDocumentType05) + Get + Return Me._supportingDocument + End Get + Set + Me._supportingDocument = Value + End Set + End Property + + + Public Property TransportDocument() As List(Of TransportDocumentType04) + Get + Return Me._transportDocument + End Get + Set + Me._transportDocument = Value + End Set + End Property + + + Public Property AdditionalReference() As List(Of AdditionalReferenceType05) + Get + Return Me._additionalReference + End Get + Set + Me._additionalReference = Value + End Set + End Property + + + Public Property AdditionalInformation() As List(Of AdditionalInformationType03) + Get + Return Me._additionalInformation + End Get + Set + Me._additionalInformation = Value + End Set + End Property + + + Public Property TransportCharges() As TransportChargesType + Get + Return Me._transportCharges + End Get + Set + Me._transportCharges = Value + End Set + End Property + + + Public Property HouseConsignment() As List(Of HouseConsignmentType10) + Get + Return Me._houseConsignment + End Get + Set + Me._houseConsignment = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ConsignmentType20)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ConsignmentType20 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ConsignmentType20 object + ''' + ''' string to deserialize + ''' Output ConsignmentType20 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ConsignmentType20, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ConsignmentType20) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ConsignmentType20) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ConsignmentType20 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ConsignmentType20) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ConsignmentType20 + Return CType(SerializerXml.Deserialize(s), ConsignmentType20) + End Function +#End Region + + ''' + ''' Serializes current ConsignmentType20 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ConsignmentType20 object + ''' + ''' File to load and deserialize + ''' Output ConsignmentType20 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ConsignmentType20, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ConsignmentType20) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ConsignmentType20) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ConsignmentType20 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class CarrierType04 + +#Region "Private fields" + Private _identificationNumber As String + + Private _contactPerson As ContactPersonType05 + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contactPerson = New ContactPersonType05() + End Sub + + + Public Property identificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set + Me._identificationNumber = Value + End Set + End Property + + + Public Property ContactPerson() As ContactPersonType05 + Get + Return Me._contactPerson + End Get + Set + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CarrierType04)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize CarrierType04 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes CarrierType04 object + ''' + ''' string to deserialize + ''' Output CarrierType04 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CarrierType04, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CarrierType04) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CarrierType04) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As CarrierType04 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CarrierType04) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As CarrierType04 + Return CType(SerializerXml.Deserialize(s), CarrierType04) + End Function +#End Region + + ''' + ''' Serializes current CarrierType04 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CarrierType04 object + ''' + ''' File to load and deserialize + ''' Output CarrierType04 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CarrierType04, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CarrierType04) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CarrierType04) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As CarrierType04 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ConsignorType07 + +#Region "Private fields" + Private _identificationNumber As String + + Private _name As String + + Private _address As AddressType17 + + Private _contactPerson As ContactPersonType05 + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contactPerson = New ContactPersonType05() + Me._address = New AddressType17() + End Sub + + + Public Property identificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set + Me._identificationNumber = Value + End Set + End Property + + + Public Property name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Address() As AddressType17 + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + + Public Property ContactPerson() As ContactPersonType05 + Get + Return Me._contactPerson + End Get + Set + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ConsignorType07)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ConsignorType07 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ConsignorType07 object + ''' + ''' string to deserialize + ''' Output ConsignorType07 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ConsignorType07, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ConsignorType07) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ConsignorType07) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ConsignorType07 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ConsignorType07) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ConsignorType07 + Return CType(SerializerXml.Deserialize(s), ConsignorType07) + End Function +#End Region + + ''' + ''' Serializes current ConsignorType07 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ConsignorType07 object + ''' + ''' File to load and deserialize + ''' Output ConsignorType07 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ConsignorType07, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ConsignorType07) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ConsignorType07) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ConsignorType07 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ConsigneeType05 + +#Region "Private fields" + Private _identificationNumber As String + + Private _name As String + + Private _address As AddressType17 + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._address = New AddressType17() + End Sub + + + Public Property identificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set + Me._identificationNumber = Value + End Set + End Property + + + Public Property name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Address() As AddressType17 + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ConsigneeType05)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ConsigneeType05 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ConsigneeType05 object + ''' + ''' string to deserialize + ''' Output ConsigneeType05 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ConsigneeType05, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ConsigneeType05) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ConsigneeType05) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ConsigneeType05 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ConsigneeType05) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ConsigneeType05 + Return CType(SerializerXml.Deserialize(s), ConsigneeType05) + End Function +#End Region + + ''' + ''' Serializes current ConsigneeType05 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ConsigneeType05 object + ''' + ''' File to load and deserialize + ''' Output ConsigneeType05 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ConsigneeType05, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ConsigneeType05) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ConsigneeType05) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ConsigneeType05 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AdditionalSupplyChainActorType + +#Region "Private fields" + Private _sequenceNumber As String + + Private _role As String + + Private _identificationNumber As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property sequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property role() As String + Get + Return Me._role + End Get + Set + Me._role = Value + End Set + End Property + + + Public Property identificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set + Me._identificationNumber = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AdditionalSupplyChainActorType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AdditionalSupplyChainActorType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AdditionalSupplyChainActorType object + ''' + ''' string to deserialize + ''' Output AdditionalSupplyChainActorType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdditionalSupplyChainActorType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdditionalSupplyChainActorType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdditionalSupplyChainActorType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AdditionalSupplyChainActorType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AdditionalSupplyChainActorType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AdditionalSupplyChainActorType + Return CType(SerializerXml.Deserialize(s), AdditionalSupplyChainActorType) + End Function +#End Region + + ''' + ''' Serializes current AdditionalSupplyChainActorType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AdditionalSupplyChainActorType object + ''' + ''' File to load and deserialize + ''' Output AdditionalSupplyChainActorType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdditionalSupplyChainActorType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdditionalSupplyChainActorType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdditionalSupplyChainActorType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AdditionalSupplyChainActorType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TransportEquipmentType06 + +#Region "Private fields" + Private _sequenceNumber As String + + Private _containerIdentificationNumber As String + + Private _numberOfSeals As String + + Private _seal As List(Of SealType05) + + Private _goodsReference As List(Of GoodsReferenceType02) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._goodsReference = New List(Of GoodsReferenceType02)() + Me._seal = New List(Of SealType05)() + End Sub + + + Public Property sequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property containerIdentificationNumber() As String + Get + Return Me._containerIdentificationNumber + End Get + Set + Me._containerIdentificationNumber = Value + End Set + End Property + + + Public Property numberOfSeals() As String + Get + Return Me._numberOfSeals + End Get + Set + Me._numberOfSeals = Value + End Set + End Property + + + Public Property Seal() As List(Of SealType05) + Get + Return Me._seal + End Get + Set + Me._seal = Value + End Set + End Property + + + Public Property GoodsReference() As List(Of GoodsReferenceType02) + Get + Return Me._goodsReference + End Get + Set + Me._goodsReference = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransportEquipmentType06)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransportEquipmentType06 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TransportEquipmentType06 object + ''' + ''' string to deserialize + ''' Output TransportEquipmentType06 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransportEquipmentType06, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransportEquipmentType06) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransportEquipmentType06) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransportEquipmentType06 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransportEquipmentType06) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransportEquipmentType06 + Return CType(SerializerXml.Deserialize(s), TransportEquipmentType06) + End Function +#End Region + + ''' + ''' Serializes current TransportEquipmentType06 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TransportEquipmentType06 object + ''' + ''' File to load and deserialize + ''' Output TransportEquipmentType06 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransportEquipmentType06, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransportEquipmentType06) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransportEquipmentType06) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransportEquipmentType06 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class SealType05 + +#Region "Private fields" + Private _sequenceNumber As String + + Private _identifier As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property sequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property identifier() As String + Get + Return Me._identifier + End Get + Set + Me._identifier = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SealType05)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize SealType05 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes SealType05 object + ''' + ''' string to deserialize + ''' Output SealType05 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SealType05, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SealType05) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SealType05) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SealType05 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SealType05) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As SealType05 + Return CType(SerializerXml.Deserialize(s), SealType05) + End Function +#End Region + + ''' + ''' Serializes current SealType05 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an SealType05 object + ''' + ''' File to load and deserialize + ''' Output SealType05 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SealType05, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SealType05) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SealType05) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SealType05 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class GoodsReferenceType02 + +#Region "Private fields" + Private _sequenceNumber As String + + Private _declarationGoodsItemNumber As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property sequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property declarationGoodsItemNumber() As String + Get + Return Me._declarationGoodsItemNumber + End Get + Set + Me._declarationGoodsItemNumber = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(GoodsReferenceType02)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize GoodsReferenceType02 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes GoodsReferenceType02 object + ''' + ''' string to deserialize + ''' Output GoodsReferenceType02 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GoodsReferenceType02, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GoodsReferenceType02) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GoodsReferenceType02) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As GoodsReferenceType02 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), GoodsReferenceType02) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As GoodsReferenceType02 + Return CType(SerializerXml.Deserialize(s), GoodsReferenceType02) + End Function +#End Region + + ''' + ''' Serializes current GoodsReferenceType02 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GoodsReferenceType02 object + ''' + ''' File to load and deserialize + ''' Output GoodsReferenceType02 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GoodsReferenceType02, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GoodsReferenceType02) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GoodsReferenceType02) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As GoodsReferenceType02 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class LocationOfGoodsType05 + +#Region "Private fields" + Private _typeOfLocation As String + + Private _qualifierOfIdentification As String + + Private _authorisationNumber As String + + Private _additionalIdentifier As String + + Private _uNLocode As String + + Private _customsOffice As CustomsOfficeType02 + + Private _gNSS As GNSSType + + Private _economicOperator As EconomicOperatorType03 + + Private _address As AddressType14 + + Private _postcodeAddress As PostcodeAddressType02 + + Private _contactPerson As ContactPersonType06 + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contactPerson = New ContactPersonType06() + Me._postcodeAddress = New PostcodeAddressType02() + Me._address = New AddressType14() + Me._economicOperator = New EconomicOperatorType03() + Me._gNSS = New GNSSType() + Me._customsOffice = New CustomsOfficeType02() + End Sub + + + Public Property typeOfLocation() As String + Get + Return Me._typeOfLocation + End Get + Set + Me._typeOfLocation = Value + End Set + End Property + + + Public Property qualifierOfIdentification() As String + Get + Return Me._qualifierOfIdentification + End Get + Set + Me._qualifierOfIdentification = Value + End Set + End Property + + + Public Property authorisationNumber() As String + Get + Return Me._authorisationNumber + End Get + Set + Me._authorisationNumber = Value + End Set + End Property + + + Public Property additionalIdentifier() As String + Get + Return Me._additionalIdentifier + End Get + Set + Me._additionalIdentifier = Value + End Set + End Property + + + Public Property UNLocode() As String + Get + Return Me._uNLocode + End Get + Set + Me._uNLocode = Value + End Set + End Property + + + Public Property CustomsOffice() As CustomsOfficeType02 + Get + Return Me._customsOffice + End Get + Set + Me._customsOffice = Value + End Set + End Property + + + Public Property GNSS() As GNSSType + Get + Return Me._gNSS + End Get + Set + Me._gNSS = Value + End Set + End Property + + + Public Property EconomicOperator() As EconomicOperatorType03 + Get + Return Me._economicOperator + End Get + Set + Me._economicOperator = Value + End Set + End Property + + + Public Property Address() As AddressType14 + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + + Public Property PostcodeAddress() As PostcodeAddressType02 + Get + Return Me._postcodeAddress + End Get + Set + Me._postcodeAddress = Value + End Set + End Property + + + Public Property ContactPerson() As ContactPersonType06 + Get + Return Me._contactPerson + End Get + Set + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(LocationOfGoodsType05)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize LocationOfGoodsType05 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes LocationOfGoodsType05 object + ''' + ''' string to deserialize + ''' Output LocationOfGoodsType05 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As LocationOfGoodsType05, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, LocationOfGoodsType05) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As LocationOfGoodsType05) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As LocationOfGoodsType05 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), LocationOfGoodsType05) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As LocationOfGoodsType05 + Return CType(SerializerXml.Deserialize(s), LocationOfGoodsType05) + End Function +#End Region + + ''' + ''' Serializes current LocationOfGoodsType05 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an LocationOfGoodsType05 object + ''' + ''' File to load and deserialize + ''' Output LocationOfGoodsType05 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As LocationOfGoodsType05, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, LocationOfGoodsType05) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As LocationOfGoodsType05) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As LocationOfGoodsType05 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class CustomsOfficeType02 + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property referenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CustomsOfficeType02)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize CustomsOfficeType02 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes CustomsOfficeType02 object + ''' + ''' string to deserialize + ''' Output CustomsOfficeType02 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CustomsOfficeType02, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CustomsOfficeType02) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CustomsOfficeType02) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As CustomsOfficeType02 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CustomsOfficeType02) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As CustomsOfficeType02 + Return CType(SerializerXml.Deserialize(s), CustomsOfficeType02) + End Function +#End Region + + ''' + ''' Serializes current CustomsOfficeType02 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CustomsOfficeType02 object + ''' + ''' File to load and deserialize + ''' Output CustomsOfficeType02 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CustomsOfficeType02, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CustomsOfficeType02) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CustomsOfficeType02) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As CustomsOfficeType02 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class GNSSType + +#Region "Private fields" + Private _latitude As String + + Private _longitude As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property latitude() As String + Get + Return Me._latitude + End Get + Set + Me._latitude = Value + End Set + End Property + + + Public Property longitude() As String + Get + Return Me._longitude + End Get + Set + Me._longitude = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(GNSSType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize GNSSType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes GNSSType object + ''' + ''' string to deserialize + ''' Output GNSSType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GNSSType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GNSSType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GNSSType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As GNSSType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), GNSSType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As GNSSType + Return CType(SerializerXml.Deserialize(s), GNSSType) + End Function +#End Region + + ''' + ''' Serializes current GNSSType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GNSSType object + ''' + ''' File to load and deserialize + ''' Output GNSSType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GNSSType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GNSSType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GNSSType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As GNSSType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EconomicOperatorType03 + +#Region "Private fields" + Private _identificationNumber As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property identificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set + Me._identificationNumber = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EconomicOperatorType03)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EconomicOperatorType03 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EconomicOperatorType03 object + ''' + ''' string to deserialize + ''' Output EconomicOperatorType03 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EconomicOperatorType03, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EconomicOperatorType03) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EconomicOperatorType03) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EconomicOperatorType03 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EconomicOperatorType03) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EconomicOperatorType03 + Return CType(SerializerXml.Deserialize(s), EconomicOperatorType03) + End Function +#End Region + + ''' + ''' Serializes current EconomicOperatorType03 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EconomicOperatorType03 object + ''' + ''' File to load and deserialize + ''' Output EconomicOperatorType03 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EconomicOperatorType03, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EconomicOperatorType03) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EconomicOperatorType03) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EconomicOperatorType03 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AddressType14 + +#Region "Private fields" + Private _streetAndNumber As String + + Private _postcode As String + + Private _city As String + + Private _country As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property streetAndNumber() As String + Get + Return Me._streetAndNumber + End Get + Set + Me._streetAndNumber = Value + End Set + End Property + + + Public Property postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property city() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + + Public Property country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AddressType14)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AddressType14 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AddressType14 object + ''' + ''' string to deserialize + ''' Output AddressType14 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AddressType14, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AddressType14) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AddressType14) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AddressType14 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AddressType14) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AddressType14 + Return CType(SerializerXml.Deserialize(s), AddressType14) + End Function +#End Region + + ''' + ''' Serializes current AddressType14 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AddressType14 object + ''' + ''' File to load and deserialize + ''' Output AddressType14 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AddressType14, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AddressType14) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AddressType14) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AddressType14 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PostcodeAddressType02 + +#Region "Private fields" + Private _houseNumber As String + + Private _postcode As String + + Private _country As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property houseNumber() As String + Get + Return Me._houseNumber + End Get + Set + Me._houseNumber = Value + End Set + End Property + + + Public Property postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PostcodeAddressType02)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PostcodeAddressType02 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PostcodeAddressType02 object + ''' + ''' string to deserialize + ''' Output PostcodeAddressType02 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PostcodeAddressType02, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PostcodeAddressType02) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PostcodeAddressType02) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PostcodeAddressType02 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PostcodeAddressType02) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PostcodeAddressType02 + Return CType(SerializerXml.Deserialize(s), PostcodeAddressType02) + End Function +#End Region + + ''' + ''' Serializes current PostcodeAddressType02 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PostcodeAddressType02 object + ''' + ''' File to load and deserialize + ''' Output PostcodeAddressType02 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PostcodeAddressType02, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PostcodeAddressType02) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PostcodeAddressType02) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PostcodeAddressType02 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ContactPersonType06 + +#Region "Private fields" + Private _name As String + + Private _phoneNumber As String + + Private _eMailAddress As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property phoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set + Me._phoneNumber = Value + End Set + End Property + + + Public Property eMailAddress() As String + Get + Return Me._eMailAddress + End Get + Set + Me._eMailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ContactPersonType06)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ContactPersonType06 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ContactPersonType06 object + ''' + ''' string to deserialize + ''' Output ContactPersonType06 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ContactPersonType06, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ContactPersonType06) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ContactPersonType06) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ContactPersonType06 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ContactPersonType06) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ContactPersonType06 + Return CType(SerializerXml.Deserialize(s), ContactPersonType06) + End Function +#End Region + + ''' + ''' Serializes current ContactPersonType06 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ContactPersonType06 object + ''' + ''' File to load and deserialize + ''' Output ContactPersonType06 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ContactPersonType06, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ContactPersonType06) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ContactPersonType06) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ContactPersonType06 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class DepartureTransportMeansType03 + +#Region "Private fields" + Private _sequenceNumber As String + + Private _typeOfIdentification As String + + Private _identificationNumber As String + + Private _nationality As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property sequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property typeOfIdentification() As String + Get + Return Me._typeOfIdentification + End Get + Set + Me._typeOfIdentification = Value + End Set + End Property + + + Public Property identificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set + Me._identificationNumber = Value + End Set + End Property + + + Public Property nationality() As String + Get + Return Me._nationality + End Get + Set + Me._nationality = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DepartureTransportMeansType03)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize DepartureTransportMeansType03 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes DepartureTransportMeansType03 object + ''' + ''' string to deserialize + ''' Output DepartureTransportMeansType03 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DepartureTransportMeansType03, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DepartureTransportMeansType03) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DepartureTransportMeansType03) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DepartureTransportMeansType03 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DepartureTransportMeansType03) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As DepartureTransportMeansType03 + Return CType(SerializerXml.Deserialize(s), DepartureTransportMeansType03) + End Function +#End Region + + ''' + ''' Serializes current DepartureTransportMeansType03 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an DepartureTransportMeansType03 object + ''' + ''' File to load and deserialize + ''' Output DepartureTransportMeansType03 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DepartureTransportMeansType03, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DepartureTransportMeansType03) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DepartureTransportMeansType03) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DepartureTransportMeansType03 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class CountryOfRoutingOfConsignmentType01 + +#Region "Private fields" + Private _sequenceNumber As String + + Private _country As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property sequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CountryOfRoutingOfConsignmentType01)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize CountryOfRoutingOfConsignmentType01 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes CountryOfRoutingOfConsignmentType01 object + ''' + ''' string to deserialize + ''' Output CountryOfRoutingOfConsignmentType01 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CountryOfRoutingOfConsignmentType01, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CountryOfRoutingOfConsignmentType01) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CountryOfRoutingOfConsignmentType01) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As CountryOfRoutingOfConsignmentType01 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CountryOfRoutingOfConsignmentType01) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As CountryOfRoutingOfConsignmentType01 + Return CType(SerializerXml.Deserialize(s), CountryOfRoutingOfConsignmentType01) + End Function +#End Region + + ''' + ''' Serializes current CountryOfRoutingOfConsignmentType01 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CountryOfRoutingOfConsignmentType01 object + ''' + ''' File to load and deserialize + ''' Output CountryOfRoutingOfConsignmentType01 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CountryOfRoutingOfConsignmentType01, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CountryOfRoutingOfConsignmentType01) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CountryOfRoutingOfConsignmentType01) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As CountryOfRoutingOfConsignmentType01 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ActiveBorderTransportMeansType02 + +#Region "Private fields" + Private _sequenceNumber As String + + Private _customsOfficeAtBorderReferenceNumber As String + + Private _typeOfIdentification As String + + Private _identificationNumber As String + + Private _nationality As String + + Private _conveyanceReferenceNumber As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property sequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property customsOfficeAtBorderReferenceNumber() As String + Get + Return Me._customsOfficeAtBorderReferenceNumber + End Get + Set + Me._customsOfficeAtBorderReferenceNumber = Value + End Set + End Property + + + Public Property typeOfIdentification() As String + Get + Return Me._typeOfIdentification + End Get + Set + Me._typeOfIdentification = Value + End Set + End Property + + + Public Property identificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set + Me._identificationNumber = Value + End Set + End Property + + + Public Property nationality() As String + Get + Return Me._nationality + End Get + Set + Me._nationality = Value + End Set + End Property + + + Public Property conveyanceReferenceNumber() As String + Get + Return Me._conveyanceReferenceNumber + End Get + Set + Me._conveyanceReferenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ActiveBorderTransportMeansType02)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ActiveBorderTransportMeansType02 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ActiveBorderTransportMeansType02 object + ''' + ''' string to deserialize + ''' Output ActiveBorderTransportMeansType02 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ActiveBorderTransportMeansType02, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ActiveBorderTransportMeansType02) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ActiveBorderTransportMeansType02) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ActiveBorderTransportMeansType02 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ActiveBorderTransportMeansType02) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ActiveBorderTransportMeansType02 + Return CType(SerializerXml.Deserialize(s), ActiveBorderTransportMeansType02) + End Function +#End Region + + ''' + ''' Serializes current ActiveBorderTransportMeansType02 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ActiveBorderTransportMeansType02 object + ''' + ''' File to load and deserialize + ''' Output ActiveBorderTransportMeansType02 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ActiveBorderTransportMeansType02, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ActiveBorderTransportMeansType02) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ActiveBorderTransportMeansType02) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ActiveBorderTransportMeansType02 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PlaceOfLoadingType03 + +#Region "Private fields" + Private _uNLocode As String + + Private _country As String + + Private _location As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property UNLocode() As String + Get + Return Me._uNLocode + End Get + Set + Me._uNLocode = Value + End Set + End Property + + + Public Property country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property location() As String + Get + Return Me._location + End Get + Set + Me._location = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PlaceOfLoadingType03)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PlaceOfLoadingType03 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PlaceOfLoadingType03 object + ''' + ''' string to deserialize + ''' Output PlaceOfLoadingType03 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PlaceOfLoadingType03, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PlaceOfLoadingType03) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PlaceOfLoadingType03) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PlaceOfLoadingType03 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PlaceOfLoadingType03) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PlaceOfLoadingType03 + Return CType(SerializerXml.Deserialize(s), PlaceOfLoadingType03) + End Function +#End Region + + ''' + ''' Serializes current PlaceOfLoadingType03 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PlaceOfLoadingType03 object + ''' + ''' File to load and deserialize + ''' Output PlaceOfLoadingType03 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PlaceOfLoadingType03, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PlaceOfLoadingType03) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PlaceOfLoadingType03) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PlaceOfLoadingType03 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PlaceOfUnloadingType01 + +#Region "Private fields" + Private _uNLocode As String + + Private _country As String + + Private _location As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property UNLocode() As String + Get + Return Me._uNLocode + End Get + Set + Me._uNLocode = Value + End Set + End Property + + + Public Property country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property location() As String + Get + Return Me._location + End Get + Set + Me._location = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PlaceOfUnloadingType01)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PlaceOfUnloadingType01 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PlaceOfUnloadingType01 object + ''' + ''' string to deserialize + ''' Output PlaceOfUnloadingType01 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PlaceOfUnloadingType01, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PlaceOfUnloadingType01) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PlaceOfUnloadingType01) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PlaceOfUnloadingType01 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PlaceOfUnloadingType01) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PlaceOfUnloadingType01 + Return CType(SerializerXml.Deserialize(s), PlaceOfUnloadingType01) + End Function +#End Region + + ''' + ''' Serializes current PlaceOfUnloadingType01 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PlaceOfUnloadingType01 object + ''' + ''' File to load and deserialize + ''' Output PlaceOfUnloadingType01 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PlaceOfUnloadingType01, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PlaceOfUnloadingType01) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PlaceOfUnloadingType01) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PlaceOfUnloadingType01 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PreviousDocumentType09 + +#Region "Private fields" + Private _sequenceNumber As String + + Private _type As String + + Private _referenceNumber As String + + Private _complementOfInformation As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property sequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property referenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property complementOfInformation() As String + Get + Return Me._complementOfInformation + End Get + Set + Me._complementOfInformation = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PreviousDocumentType09)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PreviousDocumentType09 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PreviousDocumentType09 object + ''' + ''' string to deserialize + ''' Output PreviousDocumentType09 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PreviousDocumentType09, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PreviousDocumentType09) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PreviousDocumentType09) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PreviousDocumentType09 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PreviousDocumentType09) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PreviousDocumentType09 + Return CType(SerializerXml.Deserialize(s), PreviousDocumentType09) + End Function +#End Region + + ''' + ''' Serializes current PreviousDocumentType09 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PreviousDocumentType09 object + ''' + ''' File to load and deserialize + ''' Output PreviousDocumentType09 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PreviousDocumentType09, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PreviousDocumentType09) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PreviousDocumentType09) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PreviousDocumentType09 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class SupportingDocumentType05 + +#Region "Private fields" + Private _sequenceNumber As String + + Private _type As String + + Private _referenceNumber As String + + Private _documentLineItemNumber As String + + Private _complementOfInformation As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property sequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property referenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property documentLineItemNumber() As String + Get + Return Me._documentLineItemNumber + End Get + Set + Me._documentLineItemNumber = Value + End Set + End Property + + + Public Property complementOfInformation() As String + Get + Return Me._complementOfInformation + End Get + Set + Me._complementOfInformation = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SupportingDocumentType05)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize SupportingDocumentType05 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes SupportingDocumentType05 object + ''' + ''' string to deserialize + ''' Output SupportingDocumentType05 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SupportingDocumentType05, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SupportingDocumentType05) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SupportingDocumentType05) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SupportingDocumentType05 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SupportingDocumentType05) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As SupportingDocumentType05 + Return CType(SerializerXml.Deserialize(s), SupportingDocumentType05) + End Function +#End Region + + ''' + ''' Serializes current SupportingDocumentType05 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an SupportingDocumentType05 object + ''' + ''' File to load and deserialize + ''' Output SupportingDocumentType05 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SupportingDocumentType05, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SupportingDocumentType05) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SupportingDocumentType05) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SupportingDocumentType05 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TransportDocumentType04 + +#Region "Private fields" + Private _sequenceNumber As String + + Private _type As String + + Private _referenceNumber As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property sequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property referenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransportDocumentType04)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransportDocumentType04 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TransportDocumentType04 object + ''' + ''' string to deserialize + ''' Output TransportDocumentType04 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransportDocumentType04, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransportDocumentType04) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransportDocumentType04) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransportDocumentType04 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransportDocumentType04) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransportDocumentType04 + Return CType(SerializerXml.Deserialize(s), TransportDocumentType04) + End Function +#End Region + + ''' + ''' Serializes current TransportDocumentType04 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TransportDocumentType04 object + ''' + ''' File to load and deserialize + ''' Output TransportDocumentType04 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransportDocumentType04, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransportDocumentType04) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransportDocumentType04) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransportDocumentType04 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AdditionalReferenceType05 + +#Region "Private fields" + Private _sequenceNumber As String + + Private _type As String + + Private _referenceNumber As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property sequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property referenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AdditionalReferenceType05)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AdditionalReferenceType05 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AdditionalReferenceType05 object + ''' + ''' string to deserialize + ''' Output AdditionalReferenceType05 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdditionalReferenceType05, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdditionalReferenceType05) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdditionalReferenceType05) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AdditionalReferenceType05 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AdditionalReferenceType05) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AdditionalReferenceType05 + Return CType(SerializerXml.Deserialize(s), AdditionalReferenceType05) + End Function +#End Region + + ''' + ''' Serializes current AdditionalReferenceType05 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AdditionalReferenceType05 object + ''' + ''' File to load and deserialize + ''' Output AdditionalReferenceType05 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdditionalReferenceType05, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdditionalReferenceType05) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdditionalReferenceType05) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AdditionalReferenceType05 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AdditionalInformationType03 + +#Region "Private fields" + Private _sequenceNumber As String + + Private _code As String + + Private _text As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property sequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property code() As String + Get + Return Me._code + End Get + Set + Me._code = Value + End Set + End Property + + + Public Property text() As String + Get + Return Me._text + End Get + Set + Me._text = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AdditionalInformationType03)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AdditionalInformationType03 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AdditionalInformationType03 object + ''' + ''' string to deserialize + ''' Output AdditionalInformationType03 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdditionalInformationType03, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdditionalInformationType03) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdditionalInformationType03) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AdditionalInformationType03 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AdditionalInformationType03) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AdditionalInformationType03 + Return CType(SerializerXml.Deserialize(s), AdditionalInformationType03) + End Function +#End Region + + ''' + ''' Serializes current AdditionalInformationType03 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AdditionalInformationType03 object + ''' + ''' File to load and deserialize + ''' Output AdditionalInformationType03 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdditionalInformationType03, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdditionalInformationType03) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdditionalInformationType03) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AdditionalInformationType03 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TransportChargesType + +#Region "Private fields" + Private _methodOfPayment As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property methodOfPayment() As String + Get + Return Me._methodOfPayment + End Get + Set + Me._methodOfPayment = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransportChargesType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransportChargesType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TransportChargesType object + ''' + ''' string to deserialize + ''' Output TransportChargesType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransportChargesType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransportChargesType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransportChargesType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransportChargesType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransportChargesType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransportChargesType + Return CType(SerializerXml.Deserialize(s), TransportChargesType) + End Function +#End Region + + ''' + ''' Serializes current TransportChargesType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TransportChargesType object + ''' + ''' File to load and deserialize + ''' Output TransportChargesType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransportChargesType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransportChargesType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransportChargesType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransportChargesType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class HouseConsignmentType10 + +#Region "Private fields" + Private _sequenceNumber As String + + Private _countryOfDispatch As String + + Private _countryOfDestination As String + + Private _grossMass As Decimal + + Private _referenceNumberUCR As String + + Private _consignor As ConsignorType07 + + Private _consignee As ConsigneeType05 + + Private _additionalSupplyChainActor As List(Of AdditionalSupplyChainActorType) + + Private _departureTransportMeans As List(Of DepartureTransportMeansType05) + + Private _previousDocument As List(Of PreviousDocumentType10) + + Private _supportingDocument As List(Of SupportingDocumentType05) + + Private _transportDocument As List(Of TransportDocumentType04) + + Private _additionalReference As List(Of AdditionalReferenceType05) + + Private _additionalInformation As List(Of AdditionalInformationType03) + + Private _transportCharges As TransportChargesType + + Private _consignmentItem As List(Of ConsignmentItemType09) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._consignmentItem = New List(Of ConsignmentItemType09)() + Me._transportCharges = New TransportChargesType() + Me._additionalInformation = New List(Of AdditionalInformationType03)() + Me._additionalReference = New List(Of AdditionalReferenceType05)() + Me._transportDocument = New List(Of TransportDocumentType04)() + Me._supportingDocument = New List(Of SupportingDocumentType05)() + Me._previousDocument = New List(Of PreviousDocumentType10)() + Me._departureTransportMeans = New List(Of DepartureTransportMeansType05)() + Me._additionalSupplyChainActor = New List(Of AdditionalSupplyChainActorType)() + Me._consignee = New ConsigneeType05() + Me._consignor = New ConsignorType07() + End Sub + + + Public Property sequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property countryOfDispatch() As String + Get + Return Me._countryOfDispatch + End Get + Set + Me._countryOfDispatch = Value + End Set + End Property + + + Public Property countryOfDestination() As String + Get + Return Me._countryOfDestination + End Get + Set + Me._countryOfDestination = Value + End Set + End Property + + + Public Property grossMass() As Decimal + Get + Return Me._grossMass + End Get + Set + Me._grossMass = Value + End Set + End Property + + + Public Property referenceNumberUCR() As String + Get + Return Me._referenceNumberUCR + End Get + Set + Me._referenceNumberUCR = Value + End Set + End Property + + + Public Property Consignor() As ConsignorType07 + Get + Return Me._consignor + End Get + Set + Me._consignor = Value + End Set + End Property + + + Public Property Consignee() As ConsigneeType05 + Get + Return Me._consignee + End Get + Set + Me._consignee = Value + End Set + End Property + + + Public Property AdditionalSupplyChainActor() As List(Of AdditionalSupplyChainActorType) + Get + Return Me._additionalSupplyChainActor + End Get + Set + Me._additionalSupplyChainActor = Value + End Set + End Property + + + Public Property DepartureTransportMeans() As List(Of DepartureTransportMeansType05) + Get + Return Me._departureTransportMeans + End Get + Set + Me._departureTransportMeans = Value + End Set + End Property + + + Public Property PreviousDocument() As List(Of PreviousDocumentType10) + Get + Return Me._previousDocument + End Get + Set + Me._previousDocument = Value + End Set + End Property + + + Public Property SupportingDocument() As List(Of SupportingDocumentType05) + Get + Return Me._supportingDocument + End Get + Set + Me._supportingDocument = Value + End Set + End Property + + + Public Property TransportDocument() As List(Of TransportDocumentType04) + Get + Return Me._transportDocument + End Get + Set + Me._transportDocument = Value + End Set + End Property + + + Public Property AdditionalReference() As List(Of AdditionalReferenceType05) + Get + Return Me._additionalReference + End Get + Set + Me._additionalReference = Value + End Set + End Property + + + Public Property AdditionalInformation() As List(Of AdditionalInformationType03) + Get + Return Me._additionalInformation + End Get + Set + Me._additionalInformation = Value + End Set + End Property + + + Public Property TransportCharges() As TransportChargesType + Get + Return Me._transportCharges + End Get + Set + Me._transportCharges = Value + End Set + End Property + + + Public Property ConsignmentItem() As List(Of ConsignmentItemType09) + Get + Return Me._consignmentItem + End Get + Set + Me._consignmentItem = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(HouseConsignmentType10)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize HouseConsignmentType10 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes HouseConsignmentType10 object + ''' + ''' string to deserialize + ''' Output HouseConsignmentType10 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HouseConsignmentType10, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HouseConsignmentType10) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HouseConsignmentType10) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As HouseConsignmentType10 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), HouseConsignmentType10) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As HouseConsignmentType10 + Return CType(SerializerXml.Deserialize(s), HouseConsignmentType10) + End Function +#End Region + + ''' + ''' Serializes current HouseConsignmentType10 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an HouseConsignmentType10 object + ''' + ''' File to load and deserialize + ''' Output HouseConsignmentType10 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HouseConsignmentType10, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HouseConsignmentType10) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HouseConsignmentType10) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As HouseConsignmentType10 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class DepartureTransportMeansType05 + +#Region "Private fields" + Private _sequenceNumber As String + + Private _typeOfIdentification As String + + Private _identificationNumber As String + + Private _nationality As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property sequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property typeOfIdentification() As String + Get + Return Me._typeOfIdentification + End Get + Set + Me._typeOfIdentification = Value + End Set + End Property + + + Public Property identificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set + Me._identificationNumber = Value + End Set + End Property + + + Public Property nationality() As String + Get + Return Me._nationality + End Get + Set + Me._nationality = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DepartureTransportMeansType05)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize DepartureTransportMeansType05 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes DepartureTransportMeansType05 object + ''' + ''' string to deserialize + ''' Output DepartureTransportMeansType05 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DepartureTransportMeansType05, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DepartureTransportMeansType05) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DepartureTransportMeansType05) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DepartureTransportMeansType05 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DepartureTransportMeansType05) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As DepartureTransportMeansType05 + Return CType(SerializerXml.Deserialize(s), DepartureTransportMeansType05) + End Function +#End Region + + ''' + ''' Serializes current DepartureTransportMeansType05 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an DepartureTransportMeansType05 object + ''' + ''' File to load and deserialize + ''' Output DepartureTransportMeansType05 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DepartureTransportMeansType05, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DepartureTransportMeansType05) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DepartureTransportMeansType05) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DepartureTransportMeansType05 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PreviousDocumentType10 + +#Region "Private fields" + Private _sequenceNumber As String + + Private _type As String + + Private _referenceNumber As String + + Private _complementOfInformation As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property sequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property referenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property complementOfInformation() As String + Get + Return Me._complementOfInformation + End Get + Set + Me._complementOfInformation = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PreviousDocumentType10)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PreviousDocumentType10 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PreviousDocumentType10 object + ''' + ''' string to deserialize + ''' Output PreviousDocumentType10 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PreviousDocumentType10, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PreviousDocumentType10) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PreviousDocumentType10) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PreviousDocumentType10 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PreviousDocumentType10) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PreviousDocumentType10 + Return CType(SerializerXml.Deserialize(s), PreviousDocumentType10) + End Function +#End Region + + ''' + ''' Serializes current PreviousDocumentType10 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PreviousDocumentType10 object + ''' + ''' File to load and deserialize + ''' Output PreviousDocumentType10 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PreviousDocumentType10, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PreviousDocumentType10) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PreviousDocumentType10) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PreviousDocumentType10 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ConsignmentItemType09 + +#Region "Private fields" + Private _goodsItemNumber As String + + Private _declarationGoodsItemNumber As String + + Private _declarationType As String + + Private _countryOfDispatch As String + + Private _countryOfDestination As String + + Private _referenceNumberUCR As String + + Private _consignee As ConsigneeType02 + + Private _additionalSupplyChainActor As List(Of AdditionalSupplyChainActorType) + + Private _commodity As CommodityType07 + + Private _packaging As List(Of PackagingType03) + + Private _previousDocument As List(Of PreviousDocumentType08) + + Private _supportingDocument As List(Of SupportingDocumentType05) + + Private _transportDocument As List(Of TransportDocumentType04) + + Private _additionalReference As List(Of AdditionalReferenceType04) + + Private _additionalInformation As List(Of AdditionalInformationType03) + + Private _transportCharges As TransportChargesType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._transportCharges = New TransportChargesType() + Me._additionalInformation = New List(Of AdditionalInformationType03)() + Me._additionalReference = New List(Of AdditionalReferenceType04)() + Me._transportDocument = New List(Of TransportDocumentType04)() + Me._supportingDocument = New List(Of SupportingDocumentType05)() + Me._previousDocument = New List(Of PreviousDocumentType08)() + Me._packaging = New List(Of PackagingType03)() + Me._commodity = New CommodityType07() + Me._additionalSupplyChainActor = New List(Of AdditionalSupplyChainActorType)() + Me._consignee = New ConsigneeType02() + End Sub + + + Public Property goodsItemNumber() As String + Get + Return Me._goodsItemNumber + End Get + Set + Me._goodsItemNumber = Value + End Set + End Property + + + Public Property declarationGoodsItemNumber() As String + Get + Return Me._declarationGoodsItemNumber + End Get + Set + Me._declarationGoodsItemNumber = Value + End Set + End Property + + + Public Property declarationType() As String + Get + Return Me._declarationType + End Get + Set + Me._declarationType = Value + End Set + End Property + + + Public Property countryOfDispatch() As String + Get + Return Me._countryOfDispatch + End Get + Set + Me._countryOfDispatch = Value + End Set + End Property + + + Public Property countryOfDestination() As String + Get + Return Me._countryOfDestination + End Get + Set + Me._countryOfDestination = Value + End Set + End Property + + + Public Property referenceNumberUCR() As String + Get + Return Me._referenceNumberUCR + End Get + Set + Me._referenceNumberUCR = Value + End Set + End Property + + + Public Property Consignee() As ConsigneeType02 + Get + Return Me._consignee + End Get + Set + Me._consignee = Value + End Set + End Property + + + Public Property AdditionalSupplyChainActor() As List(Of AdditionalSupplyChainActorType) + Get + Return Me._additionalSupplyChainActor + End Get + Set + Me._additionalSupplyChainActor = Value + End Set + End Property + + + Public Property Commodity() As CommodityType07 + Get + Return Me._commodity + End Get + Set + Me._commodity = Value + End Set + End Property + + + Public Property Packaging() As List(Of PackagingType03) + Get + Return Me._packaging + End Get + Set + Me._packaging = Value + End Set + End Property + + + Public Property PreviousDocument() As List(Of PreviousDocumentType08) + Get + Return Me._previousDocument + End Get + Set + Me._previousDocument = Value + End Set + End Property + + + Public Property SupportingDocument() As List(Of SupportingDocumentType05) + Get + Return Me._supportingDocument + End Get + Set + Me._supportingDocument = Value + End Set + End Property + + + Public Property TransportDocument() As List(Of TransportDocumentType04) + Get + Return Me._transportDocument + End Get + Set + Me._transportDocument = Value + End Set + End Property + + + Public Property AdditionalReference() As List(Of AdditionalReferenceType04) + Get + Return Me._additionalReference + End Get + Set + Me._additionalReference = Value + End Set + End Property + + + Public Property AdditionalInformation() As List(Of AdditionalInformationType03) + Get + Return Me._additionalInformation + End Get + Set + Me._additionalInformation = Value + End Set + End Property + + + Public Property TransportCharges() As TransportChargesType + Get + Return Me._transportCharges + End Get + Set + Me._transportCharges = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ConsignmentItemType09)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ConsignmentItemType09 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ConsignmentItemType09 object + ''' + ''' string to deserialize + ''' Output ConsignmentItemType09 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ConsignmentItemType09, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ConsignmentItemType09) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ConsignmentItemType09) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ConsignmentItemType09 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ConsignmentItemType09) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ConsignmentItemType09 + Return CType(SerializerXml.Deserialize(s), ConsignmentItemType09) + End Function +#End Region + + ''' + ''' Serializes current ConsignmentItemType09 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ConsignmentItemType09 object + ''' + ''' File to load and deserialize + ''' Output ConsignmentItemType09 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ConsignmentItemType09, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ConsignmentItemType09) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ConsignmentItemType09) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ConsignmentItemType09 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ConsigneeType02 + +#Region "Private fields" + Private _identificationNumber As String + + Private _name As String + + Private _address As AddressType12 + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._address = New AddressType12() + End Sub + + + Public Property identificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set + Me._identificationNumber = Value + End Set + End Property + + + Public Property name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Address() As AddressType12 + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ConsigneeType02)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ConsigneeType02 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ConsigneeType02 object + ''' + ''' string to deserialize + ''' Output ConsigneeType02 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ConsigneeType02, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ConsigneeType02) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ConsigneeType02) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ConsigneeType02 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ConsigneeType02) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ConsigneeType02 + Return CType(SerializerXml.Deserialize(s), ConsigneeType02) + End Function +#End Region + + ''' + ''' Serializes current ConsigneeType02 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ConsigneeType02 object + ''' + ''' File to load and deserialize + ''' Output ConsigneeType02 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ConsigneeType02, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ConsigneeType02) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ConsigneeType02) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ConsigneeType02 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AddressType12 + +#Region "Private fields" + Private _streetAndNumber As String + + Private _postcode As String + + Private _city As String + + Private _country As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property streetAndNumber() As String + Get + Return Me._streetAndNumber + End Get + Set + Me._streetAndNumber = Value + End Set + End Property + + + Public Property postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property city() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + + Public Property country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AddressType12)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AddressType12 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AddressType12 object + ''' + ''' string to deserialize + ''' Output AddressType12 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AddressType12, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AddressType12) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AddressType12) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AddressType12 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AddressType12) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AddressType12 + Return CType(SerializerXml.Deserialize(s), AddressType12) + End Function +#End Region + + ''' + ''' Serializes current AddressType12 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AddressType12 object + ''' + ''' File to load and deserialize + ''' Output AddressType12 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AddressType12, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AddressType12) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AddressType12) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AddressType12 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class CommodityType07 + +#Region "Private fields" + Private _descriptionOfGoods As String + + Private _cusCode As String + + Private _commodityCode As CommodityCodeType02 + + Private _dangerousGoods As List(Of DangerousGoodsType01) + + Private _goodsMeasure As GoodsMeasureType02 + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._goodsMeasure = New GoodsMeasureType02() + Me._dangerousGoods = New List(Of DangerousGoodsType01)() + Me._commodityCode = New CommodityCodeType02() + End Sub + + + Public Property descriptionOfGoods() As String + Get + Return Me._descriptionOfGoods + End Get + Set + Me._descriptionOfGoods = Value + End Set + End Property + + + Public Property cusCode() As String + Get + Return Me._cusCode + End Get + Set + Me._cusCode = Value + End Set + End Property + + + Public Property CommodityCode() As CommodityCodeType02 + Get + Return Me._commodityCode + End Get + Set + Me._commodityCode = Value + End Set + End Property + + + Public Property DangerousGoods() As List(Of DangerousGoodsType01) + Get + Return Me._dangerousGoods + End Get + Set + Me._dangerousGoods = Value + End Set + End Property + + + Public Property GoodsMeasure() As GoodsMeasureType02 + Get + Return Me._goodsMeasure + End Get + Set + Me._goodsMeasure = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CommodityType07)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize CommodityType07 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes CommodityType07 object + ''' + ''' string to deserialize + ''' Output CommodityType07 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CommodityType07, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CommodityType07) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CommodityType07) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As CommodityType07 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CommodityType07) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As CommodityType07 + Return CType(SerializerXml.Deserialize(s), CommodityType07) + End Function +#End Region + + ''' + ''' Serializes current CommodityType07 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CommodityType07 object + ''' + ''' File to load and deserialize + ''' Output CommodityType07 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CommodityType07, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CommodityType07) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CommodityType07) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As CommodityType07 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class CommodityCodeType02 + +#Region "Private fields" + Private _harmonizedSystemSubHeadingCode As String + + Private _combinedNomenclatureCode As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property harmonizedSystemSubHeadingCode() As String + Get + Return Me._harmonizedSystemSubHeadingCode + End Get + Set + Me._harmonizedSystemSubHeadingCode = Value + End Set + End Property + + + Public Property combinedNomenclatureCode() As String + Get + Return Me._combinedNomenclatureCode + End Get + Set + Me._combinedNomenclatureCode = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CommodityCodeType02)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize CommodityCodeType02 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes CommodityCodeType02 object + ''' + ''' string to deserialize + ''' Output CommodityCodeType02 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CommodityCodeType02, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CommodityCodeType02) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CommodityCodeType02) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As CommodityCodeType02 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CommodityCodeType02) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As CommodityCodeType02 + Return CType(SerializerXml.Deserialize(s), CommodityCodeType02) + End Function +#End Region + + ''' + ''' Serializes current CommodityCodeType02 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CommodityCodeType02 object + ''' + ''' File to load and deserialize + ''' Output CommodityCodeType02 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CommodityCodeType02, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CommodityCodeType02) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CommodityCodeType02) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As CommodityCodeType02 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class DangerousGoodsType01 + +#Region "Private fields" + Private _sequenceNumber As String + + Private _uNNumber As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property sequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property UNNumber() As String + Get + Return Me._uNNumber + End Get + Set + Me._uNNumber = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DangerousGoodsType01)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize DangerousGoodsType01 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes DangerousGoodsType01 object + ''' + ''' string to deserialize + ''' Output DangerousGoodsType01 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DangerousGoodsType01, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DangerousGoodsType01) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DangerousGoodsType01) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DangerousGoodsType01 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DangerousGoodsType01) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As DangerousGoodsType01 + Return CType(SerializerXml.Deserialize(s), DangerousGoodsType01) + End Function +#End Region + + ''' + ''' Serializes current DangerousGoodsType01 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an DangerousGoodsType01 object + ''' + ''' File to load and deserialize + ''' Output DangerousGoodsType01 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DangerousGoodsType01, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DangerousGoodsType01) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DangerousGoodsType01) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DangerousGoodsType01 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class GoodsMeasureType02 + +#Region "Private fields" + Private _grossMass As Decimal + + Private _netMass As Decimal + + Private _supplementaryUnits As Decimal + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property grossMass() As Decimal + Get + Return Me._grossMass + End Get + Set + Me._grossMass = Value + End Set + End Property + + + Public Property netMass() As Decimal + Get + Return Me._netMass + End Get + Set + Me._netMass = Value + End Set + End Property + + + Public Property supplementaryUnits() As Decimal + Get + Return Me._supplementaryUnits + End Get + Set + Me._supplementaryUnits = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(GoodsMeasureType02)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize GoodsMeasureType02 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes GoodsMeasureType02 object + ''' + ''' string to deserialize + ''' Output GoodsMeasureType02 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GoodsMeasureType02, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GoodsMeasureType02) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GoodsMeasureType02) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As GoodsMeasureType02 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), GoodsMeasureType02) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As GoodsMeasureType02 + Return CType(SerializerXml.Deserialize(s), GoodsMeasureType02) + End Function +#End Region + + ''' + ''' Serializes current GoodsMeasureType02 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GoodsMeasureType02 object + ''' + ''' File to load and deserialize + ''' Output GoodsMeasureType02 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GoodsMeasureType02, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GoodsMeasureType02) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GoodsMeasureType02) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As GoodsMeasureType02 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PackagingType03 + +#Region "Private fields" + Private _sequenceNumber As String + + Private _typeOfPackages As String + + Private _numberOfPackages As String + + Private _shippingMarks As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property sequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property typeOfPackages() As String + Get + Return Me._typeOfPackages + End Get + Set + Me._typeOfPackages = Value + End Set + End Property + + + Public Property numberOfPackages() As String + Get + Return Me._numberOfPackages + End Get + Set + Me._numberOfPackages = Value + End Set + End Property + + + Public Property shippingMarks() As String + Get + Return Me._shippingMarks + End Get + Set + Me._shippingMarks = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PackagingType03)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PackagingType03 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PackagingType03 object + ''' + ''' string to deserialize + ''' Output PackagingType03 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackagingType03, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PackagingType03) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackagingType03) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PackagingType03 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PackagingType03) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PackagingType03 + Return CType(SerializerXml.Deserialize(s), PackagingType03) + End Function +#End Region + + ''' + ''' Serializes current PackagingType03 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PackagingType03 object + ''' + ''' File to load and deserialize + ''' Output PackagingType03 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PackagingType03, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PackagingType03) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PackagingType03) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PackagingType03 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PreviousDocumentType08 + +#Region "Private fields" + Private _sequenceNumber As String + + Private _type As String + + Private _referenceNumber As String + + Private _goodsItemNumber As String + + Private _typeOfPackages As String + + Private _numberOfPackages As String + + Private _measurementUnitAndQualifier As String + + Private _quantity As Decimal + + Private _complementOfInformation As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property sequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property referenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property goodsItemNumber() As String + Get + Return Me._goodsItemNumber + End Get + Set + Me._goodsItemNumber = Value + End Set + End Property + + + Public Property typeOfPackages() As String + Get + Return Me._typeOfPackages + End Get + Set + Me._typeOfPackages = Value + End Set + End Property + + + Public Property numberOfPackages() As String + Get + Return Me._numberOfPackages + End Get + Set + Me._numberOfPackages = Value + End Set + End Property + + + Public Property measurementUnitAndQualifier() As String + Get + Return Me._measurementUnitAndQualifier + End Get + Set + Me._measurementUnitAndQualifier = Value + End Set + End Property + + + Public Property quantity() As Decimal + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + + Public Property complementOfInformation() As String + Get + Return Me._complementOfInformation + End Get + Set + Me._complementOfInformation = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PreviousDocumentType08)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize PreviousDocumentType08 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes PreviousDocumentType08 object + ''' + ''' string to deserialize + ''' Output PreviousDocumentType08 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PreviousDocumentType08, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PreviousDocumentType08) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PreviousDocumentType08) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PreviousDocumentType08 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PreviousDocumentType08) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As PreviousDocumentType08 + Return CType(SerializerXml.Deserialize(s), PreviousDocumentType08) + End Function +#End Region + + ''' + ''' Serializes current PreviousDocumentType08 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PreviousDocumentType08 object + ''' + ''' File to load and deserialize + ''' Output PreviousDocumentType08 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PreviousDocumentType08, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PreviousDocumentType08) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PreviousDocumentType08) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PreviousDocumentType08 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AdditionalReferenceType04 + +#Region "Private fields" + Private _sequenceNumber As String + + Private _type As String + + Private _referenceNumber As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property sequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property referenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AdditionalReferenceType04)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AdditionalReferenceType04 object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AdditionalReferenceType04 object + ''' + ''' string to deserialize + ''' Output AdditionalReferenceType04 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdditionalReferenceType04, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdditionalReferenceType04) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdditionalReferenceType04) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AdditionalReferenceType04 + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AdditionalReferenceType04) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AdditionalReferenceType04 + Return CType(SerializerXml.Deserialize(s), AdditionalReferenceType04) + End Function +#End Region + + ''' + ''' Serializes current AdditionalReferenceType04 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AdditionalReferenceType04 object + ''' + ''' File to load and deserialize + ''' Output AdditionalReferenceType04 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdditionalReferenceType04, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdditionalReferenceType04) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdditionalReferenceType04) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AdditionalReferenceType04 + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Public Enum phaseIDtype + + + NCTS51 + + + NCTS50 + End Enum +End Namespace +#Enable Warning diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/CC015C.xsd b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/CC015C.xsd new file mode 100644 index 00000000..3803919c --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/CC015C.xsd @@ -0,0 +1,107 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/cNCTS_FREMD.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/cNCTS_FREMD.vb new file mode 100644 index 00000000..8672375a --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/cNCTS_FREMD.vb @@ -0,0 +1,2416 @@ + +Imports System.Data.SqlClient + Imports System.Reflection + +Public Class cNCTS_FREMD + + Property ncts_Id As Integer + Property ncts_Partnersystem As Object = "" + Property ncts_AVISO_einarbeitet As Boolean = False + Property ncts_GUID As Object = Nothing + Property ncts_Status As Object = "00" + Property ncts_Status_KEWILL_Equivalent As Object = "00" + Property ncts_dyaArt As String = "" + Property ncts_dyaAnmID As Integer + + Property ncts_ANR As Object = Nothing + Property ncts_MRN As Object = Nothing + + Property ncts_Erstellung As DateTime = Now + Property ncts_Erstellung_SB As Object = Nothing + Property ncts_LetzteBearbeitung As DateTime = Now + Property ncts_LetzteBearbeitung_SB As Object = Nothing + Property ncts_firma As Object = Nothing + Property ncts_niederlassung As Object = Nothing + + + Property ncts_Gestellt As Boolean = False + Property ncts_GestelltAm As Object = Nothing + Property ncts_Trans_Partner As Object = Nothing + Property ncts_Trans_Div1 As Object = Nothing + Property ncts_Trans_Div2 As Object = Nothing + Property ncts_Trans_Div3 As Object = Nothing + Property ncts_Trans_Referenz As Object = Nothing + Property ncts_Trans_DatumZeit As DateTime = Now + Property ncts_Trans_Version As Object = Nothing + Property ncts_NachrichtenSenderTIN As Object = Nothing + Property ncts_NachrichtenSenderNLNR As Object = Nothing + Property ncts_NachrichtenempfaengerDST As Object = Nothing + + Property ncts_ObjectName As Object = Nothing + Property ncts_ObjectAlias As Object = Nothing + Property ncts_BezugsnummerVorblendung As Object = Nothing + Property ncts_Bearbeiter As Object = Nothing + + + Property ncts_CountryOfDispatch As Object = Nothing + Property ncts_CountryOfDestination As Object = Nothing + Property ncts_Declarationtype As Object = Nothing + Property ncts_TIRCarnetNumber As Object = Nothing + Property ncts_ReductedDatasetIndicator As Object = Nothing + Property ncts_LocationOfGoods_TypeofLocation As Object = Nothing + Property ncts_LocationOfGoods_QualifierIdenfitication As Object = Nothing + Property ncts_LocationOfGoods_AdditionalIdentifier As Object = Nothing + Property ncts_LocationOfGoods_ContactPerson_Name As Object = Nothing + Property ncts_LocationOfGoods_ContactPerson_PhoneNumber As Object = Nothing + Property ncts_LocationOfGoods_ContactPerson_EMailAddress As Object = Nothing + Property ncts_CustomsOfficeOfTransitDeclared_1_RefNumber As Object = Nothing + Property ncts_CustomsOfficeOfTransitDeclared_2_RefNumber As Object = Nothing + Property ncts_CustomsOfficeOfTransitDeclared_3_RefNumber As Object = Nothing + Property ncts_CustomsOfficeOfTransitDeclared_4_RefNumber As Object = Nothing + Property ncts_CustomsOfficeOfTransitDeclared_5_RefNumber As Object = Nothing + Property ncts_CustomsOfficeOfTransitDeclared_6_RefNumber As Object = Nothing + Property ncts_CustomsOfficeOfTransitDeclared_7_RefNumber As Object = Nothing + Property ncts_CustomsOfficeOfTransitDeclared_8_RefNumber As Object = Nothing + Property ncts_CustomsOfficeOfTransitDeclared_9_RefNumber As Object = Nothing + Property ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime As Object = Nothing + Property ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime As Object = Nothing + Property ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime As Object = Nothing + Property ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime As Object = Nothing + Property ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime As Object = Nothing + Property ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime As Object = Nothing + Property ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime As Object = Nothing + Property ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime As Object = Nothing + Property ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime As Object = Nothing + Property ncts_CustomsOfficeOfDestinationDeclared As Object = Nothing + Property ncts_CustomsOfficeOfDeparture As Object = Nothing + Property ncts_CustomsOfficeOfExitForTransitDeclared As Object = Nothing + Property ncts_LimitDate As Object = Nothing + Property ncts_TransitDeclarationType As Object = Nothing + Property ncts_GrossMass As Object = Nothing + Property ncts_BindingItinerary As Object = Nothing + Property ncts_ContainerIndicator As Object = Nothing + Property ncts_InlandModeOfTransport As Object = Nothing + Property ncts_ModeOfTransportAtTheBorder As Object = Nothing + Property ncts_DepartureTransportMeans_1_TypeOfIdentification As Object = Nothing + Property ncts_DepartureTransportMeans_1_IdentificationNumber As Object = Nothing + Property ncts_DepartureTransportMeans_1_Nationality As Object = Nothing + Property ncts_DepartureTransportMeans_2_TypeOfIdentification As Object = Nothing + Property ncts_DepartureTransportMeans_2_IdentificationNumber As Object = Nothing + Property ncts_DepartureTransportMeans_2_Nationality As Object = Nothing + Property ncts_DepartureTransportMeans_3_TypeOfIdentification As Object = Nothing + Property ncts_DepartureTransportMeans_3_IdentificationNumber As Object = Nothing + Property ncts_DepartureTransportMeans_3_Nationality As Object = Nothing + Property ncts_DepartureTransportMeans_4_TypeOfIdentification As Object = Nothing + Property ncts_DepartureTransportMeans_4_IdentificationNumber As Object = Nothing + Property ncts_DepartureTransportMeans_4_Nationality As Object = Nothing + Property ncts_ActiveBorderTransportMeans_1_TypeOfIdentification As Object = Nothing + Property ncts_ActiveBorderTransportMeans_1_IdentificationNumber As Object = Nothing + Property ncts_ActiveBorderTransportMeans_1_Nationality As Object = Nothing + Property ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber As Object = Nothing + Property ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared As Object = Nothing + Property ncts_ActiveBorderTransportMeans_2_TypeOfIdentification As Object = Nothing + Property ncts_ActiveBorderTransportMeans_2_IdentificationNumber As Object = Nothing + Property ncts_ActiveBorderTransportMeans_2_Nationality As Object = Nothing + Property ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber As Object = Nothing + Property ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared As Object = Nothing + Property ncts_ActiveBorderTransportMeans_3_TypeOfIdentification As Object = Nothing + Property ncts_ActiveBorderTransportMeans_3_IdentificationNumber As Object = Nothing + Property ncts_ActiveBorderTransportMeans_3_Nationality As Object = Nothing + Property ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber As Object = Nothing + Property ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared As Object = Nothing + Property ncts_ActiveBorderTransportMeans_4_TypeOfIdentification As Object = Nothing + Property ncts_ActiveBorderTransportMeans_4_IdentificationNumber As Object = Nothing + Property ncts_ActiveBorderTransportMeans_4_Nationality As Object = Nothing + Property ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber As Object = Nothing + Property ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared As Object = Nothing + Property ncts_Authorisation_1_Type As Object = Nothing + Property ncts_Authorisation_1_ReferenceNumber As Object = Nothing + Property ncts_Authorisation_2_Type As Object = Nothing + Property ncts_Authorisation_2_ReferenceNumber As Object = Nothing + Property ncts_Authorisation_3_Type As Object = Nothing + Property ncts_Authorisation_3_ReferenceNumber As Object = Nothing + Property ncts_Authorisation_4_Type As Object = Nothing + Property ncts_Authorisation_4_ReferenceNumber As Object = Nothing + Property ncts_Authorisation_5_Type As Object = Nothing + Property ncts_Authorisation_5_ReferenceNumber As Object = Nothing + Property ncts_Authorisation_6_Type As Object = Nothing + Property ncts_Authorisation_6_ReferenceNumber As Object = Nothing + Property ncts_Authorisation_7_Type As Object = Nothing + Property ncts_Authorisation_7_ReferenceNumber As Object = Nothing + Property ncts_Authorisation_8_Type As Object = Nothing + Property ncts_Authorisation_8_ReferenceNumber As Object = Nothing + Property ncts_Authorisation_9_Type As Object = Nothing + Property ncts_Authorisation_9_ReferenceNumber As Object = Nothing + Property ncts_Consignor_AdressCode As Object = Nothing + Property ncts_Consignor_IdentificationNumber As Object = Nothing + Property ncts_Consignor_SubsidiaryNumber As Object = Nothing + Property ncts_Consignor_Name As Object = Nothing + Property ncts_Consignor_StreetNumber As Object = Nothing + Property ncts_Consignor_City As Object = Nothing + Property ncts_Consignor_Postcode As Object = Nothing + Property ncts_Consignor_Country As Object = Nothing + Property ncts_Consignor_ContactPerson_Name As Object = Nothing + Property ncts_Consignor_ContactPerson_PhoneNumber As Object = Nothing + Property ncts_Consignor_ContactPerson_EMailAddress As Object = Nothing + Property ncts_Consignee_AdressCode As Object = Nothing + Property ncts_Consignee_IdentificationNumber As Object = Nothing + Property ncts_Consignee_SubsidiaryNumber As Object = Nothing + Property ncts_Consignee_Name As Object = Nothing + Property ncts_Consignee_StreetNumber As Object = Nothing + Property ncts_Consignee_City As Object = Nothing + Property ncts_Consignee_Postcode As Object = Nothing + Property ncts_Consignee_Country As Object = Nothing + Property ncts_Consignee_ContactPerson_Name As Object = Nothing + Property ncts_Consignee_ContactPerson_PhoneNumber As Object = Nothing + Property ncts_Consignee_ContactPerson_EMailAddress As Object = Nothing + Property ncts_HolderOfTheTransitProcedure_AdressCode As Object = Nothing + Property ncts_HolderOfTheTransitProcedure_IdentificationNumber As Object = Nothing + Property ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber As Object = Nothing + Property ncts_HolderOfTheTransitProcedure_Name As Object = Nothing + Property ncts_HolderOfTheTransitProcedure_StreetNumber As Object = Nothing + Property ncts_HolderOfTheTransitProcedure_City As Object = Nothing + Property ncts_HolderOfTheTransitProcedure_Postcode As Object = Nothing + Property ncts_HolderOfTheTransitProcedure_Country As Object = Nothing + Property ncts_HolderOfTheTransitProcedure_ContactPerson_Name As Object = Nothing + Property ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber As Object = Nothing + Property ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress As Object = Nothing + Property ncts_Representative_AdressCode As Object = Nothing + Property ncts_Representative_IdentificationNumber As Object = Nothing + Property ncts_Representative_ContactPerson_Name As Object = Nothing + Property ncts_Representative_ContactPerson_PhoneNumber As Object = Nothing + Property ncts_Representative_ContactPerson_EMailAddress As Object = Nothing + Property ncts_AdditionalSupplyChainActor_1_Role As Object = Nothing + Property ncts_AdditionalSupplyChainActor_1_IdentificationNumber As Object = Nothing + Property ncts_AdditionalSupplyChainActor_2_Role As Object = Nothing + Property ncts_AdditionalSupplyChainActor_2_IdentificationNumber As Object = Nothing + Property ncts_AdditionalSupplyChainActor_3_Role As Object = Nothing + Property ncts_AdditionalSupplyChainActor_3_IdentificationNumber As Object = Nothing + Property ncts_AdditionalSupplyChainActor_4_Role As Object = Nothing + Property ncts_AdditionalSupplyChainActor_4_IdentificationNumber As Object = Nothing + Property ncts_AdditionalSupplyChainActor_5_Role As Object = Nothing + Property ncts_AdditionalSupplyChainActor_5_IdentificationNumber As Object = Nothing + Property ncts_AdditionalSupplyChainActor_6_Role As Object = Nothing + Property ncts_AdditionalSupplyChainActor_6_IdentificationNumber As Object = Nothing + Property ncts_AdditionalSupplyChainActor_7_Role As Object = Nothing + Property ncts_AdditionalSupplyChainActor_7_IdentificationNumber As Object = Nothing + Property ncts_AdditionalSupplyChainActor_8_Role As Object = Nothing + Property ncts_AdditionalSupplyChainActor_8_IdentificationNumber As Object = Nothing + Property ncts_AdditionalSupplyChainActor_9_Role As Object = Nothing + Property ncts_AdditionalSupplyChainActor_9_IdentificationNumber As Object = Nothing + Property ncts_Security As Object = Nothing + Property ncts_ReferenceNumberUCR As Object = Nothing + Property ncts_SpecificCircomstanceIndicator As Object = Nothing + Property ncts_PlaceOfLoading_Location As Object = Nothing + Property ncts_PlaceOfLoading_Country As Object = Nothing + Property ncts_PlaceOfUnLoading_Location As Object = Nothing + Property ncts_PlaceOfUnLoading_Country As Object = Nothing + Property ncts_TransportCharges As Object = Nothing + Property ncts_CountryOfRoutingOfConsignment_1 As Object = Nothing + Property ncts_CountryOfRoutingOfConsignment_2 As Object = Nothing + Property ncts_CountryOfRoutingOfConsignment_3 As Object = Nothing + Property ncts_CountryOfRoutingOfConsignment_4 As Object = Nothing + Property ncts_CountryOfRoutingOfConsignment_5 As Object = Nothing + Property ncts_CountryOfRoutingOfConsignment_6 As Object = Nothing + Property ncts_CountryOfRoutingOfConsignment_7 As Object = Nothing + Property ncts_CountryOfRoutingOfConsignment_8 As Object = Nothing + Property ncts_CountryOfRoutingOfConsignment_9 As Object = Nothing + Property ncts_CountryOfRoutingOfConsignment_10 As Object = Nothing + Property ncts_CountryOfRoutingOfConsignment_11 As Object = Nothing + Property ncts_CountryOfRoutingOfConsignment_12 As Object = Nothing + Property ncts_CountryOfRoutingOfConsignment_13 As Object = Nothing + Property ncts_CountryOfRoutingOfConsignment_14 As Object = Nothing + Property ncts_CountryOfRoutingOfConsignment_15 As Object = Nothing + Property ncts_Carrier_AdressCode As Object = Nothing + Property ncts_Carrier_IdentificationNumber As Object = Nothing + Property ncts_Carrier_SubsidiaryNumber As Object = Nothing + Property ncts_Carrier_ContactPerson_Name As Object = Nothing + Property ncts_Carrier_ContactPerson_PhoneNumber As Object = Nothing + Property ncts_Carrier_ContactPerson_EMailAddress As Object = Nothing + Property ncts_SupportingDocument_1_Type As Object = Nothing + Property ncts_SupportingDocument_1_ReferenceNumber As Object = Nothing + Property ncts_SupportingDocument_1_DocumentLineItemNumber As Object = Nothing + Property ncts_SupportingDocument_1_ComplementOfInformation As Object = Nothing + Property ncts_SupportingDocument_2_Type As Object = Nothing + Property ncts_SupportingDocument_2_ReferenceNumber As Object = Nothing + Property ncts_SupportingDocument_2_DocumentLineItemNumber As Object = Nothing + Property ncts_SupportingDocument_2_ComplementOfInformation As Object = Nothing + Property ncts_SupportingDocument_3_Type As Object = Nothing + Property ncts_SupportingDocument_3_ReferenceNumber As Object = Nothing + Property ncts_SupportingDocument_3_DocumentLineItemNumber As Object = Nothing + Property ncts_SupportingDocument_3_ComplementOfInformation As Object = Nothing + Property ncts_SupportingDocument_4_Type As Object = Nothing + Property ncts_SupportingDocument_4_ReferenceNumber As Object = Nothing + Property ncts_SupportingDocument_4_DocumentLineItemNumber As Object = Nothing + Property ncts_SupportingDocument_4_ComplementOfInformation As Object = Nothing + Property ncts_SupportingDocument_5_Type As Object = Nothing + Property ncts_SupportingDocument_5_ReferenceNumber As Object = Nothing + Property ncts_SupportingDocument_5_DocumentLineItemNumber As Object = Nothing + Property ncts_SupportingDocument_5_ComplementOfInformation As Object = Nothing + Property ncts_SupportingDocument_6_Type As Object = Nothing + Property ncts_SupportingDocument_6_ReferenceNumber As Object = Nothing + Property ncts_SupportingDocument_6_DocumentLineItemNumber As Object = Nothing + Property ncts_SupportingDocument_6_ComplementOfInformation As Object = Nothing + Property ncts_SupportingDocument_7_Type As Object = Nothing + Property ncts_SupportingDocument_7_ReferenceNumber As Object = Nothing + Property ncts_SupportingDocument_7_DocumentLineItemNumber As Object = Nothing + Property ncts_SupportingDocument_7_ComplementOfInformation As Object = Nothing + Property ncts_SupportingDocument_8_Type As Object = Nothing + Property ncts_SupportingDocument_8_ReferenceNumber As Object = Nothing + Property ncts_SupportingDocument_8_DocumentLineItemNumber As Object = Nothing + Property ncts_SupportingDocument_8_ComplementOfInformation As Object = Nothing + Property ncts_SupportingDocument_9_Type As Object = Nothing + Property ncts_SupportingDocument_9_ReferenceNumber As Object = Nothing + Property ncts_SupportingDocument_9_DocumentLineItemNumber As Object = Nothing + Property ncts_SupportingDocument_9_ComplementOfInformation As Object = Nothing + + + Property ncts_PreviousDocument_1_Type As Object = Nothing + Property ncts_PreviousDocument_1_ReferenceNumber As Object = Nothing + Property ncts_PreviousDocument_1_ComplementOfInformation As Object = Nothing + Property ncts_PreviousDocument_2_Type As Object = Nothing + Property ncts_PreviousDocument_2_ReferenceNumber As Object = Nothing + Property ncts_PreviousDocument_2_ComplementOfInformation As Object = Nothing + Property ncts_PreviousDocument_3_Type As Object = Nothing + Property ncts_PreviousDocument_3_ReferenceNumber As Object = Nothing + Property ncts_PreviousDocument_3_ComplementOfInformation As Object = Nothing + Property ncts_PreviousDocument_4_Type As Object = Nothing + Property ncts_PreviousDocument_4_ReferenceNumber As Object = Nothing + Property ncts_PreviousDocument_4_ComplementOfInformation As Object = Nothing + Property ncts_PreviousDocument_5_Type As Object = Nothing + Property ncts_PreviousDocument_5_ReferenceNumber As Object = Nothing + Property ncts_PreviousDocument_5_ComplementOfInformation As Object = Nothing + Property ncts_PreviousDocument_6_Type As Object = Nothing + Property ncts_PreviousDocument_6_ReferenceNumber As Object = Nothing + Property ncts_PreviousDocument_6_ComplementOfInformation As Object = Nothing + Property ncts_PreviousDocument_7_Type As Object = Nothing + Property ncts_PreviousDocument_7_ReferenceNumber As Object = Nothing + Property ncts_PreviousDocument_7_ComplementOfInformation As Object = Nothing + Property ncts_PreviousDocument_8_Type As Object = Nothing + Property ncts_PreviousDocument_8_ReferenceNumber As Object = Nothing + Property ncts_PreviousDocument_8_ComplementOfInformation As Object = Nothing + Property ncts_PreviousDocument_9_Type As Object = Nothing + Property ncts_PreviousDocument_9_ReferenceNumber As Object = Nothing + Property ncts_PreviousDocument_9_ComplementOfInformation As Object = Nothing + + + + Property ncts_TransportDocument_1_Type As Object = Nothing + Property ncts_TransportDocument_1_ReferenceNumber As Object = Nothing + Property ncts_TransportDocument_2_Type As Object = Nothing + Property ncts_TransportDocument_2_ReferenceNumber As Object = Nothing + Property ncts_TransportDocument_3_Type As Object = Nothing + Property ncts_TransportDocument_3_ReferenceNumber As Object = Nothing + Property ncts_TransportDocument_4_Type As Object = Nothing + Property ncts_TransportDocument_4_ReferenceNumber As Object = Nothing + Property ncts_TransportDocument_5_Type As Object = Nothing + Property ncts_TransportDocument_5_ReferenceNumber As Object = Nothing + Property ncts_TransportDocument_6_Type As Object = Nothing + Property ncts_TransportDocument_6_ReferenceNumber As Object = Nothing + Property ncts_TransportDocument_7_Type As Object = Nothing + Property ncts_TransportDocument_7_ReferenceNumber As Object = Nothing + Property ncts_TransportDocument_8_Type As Object = Nothing + Property ncts_TransportDocument_8_ReferenceNumber As Object = Nothing + Property ncts_TransportDocument_9_Type As Object = Nothing + Property ncts_TransportDocument_9_ReferenceNumber As Object = Nothing + Property ncts_AdditionalReference_1_Type As Object = Nothing + Property ncts_AdditionalReference_1_ReferenceNumber As Object = Nothing + Property ncts_AdditionalReference_2_Type As Object = Nothing + Property ncts_AdditionalReference_2_ReferenceNumber As Object = Nothing + Property ncts_AdditionalReference_3_Type As Object = Nothing + Property ncts_AdditionalReference_3_ReferenceNumber As Object = Nothing + Property ncts_AdditionalReference_4_Type As Object = Nothing + Property ncts_AdditionalReference_4_ReferenceNumber As Object = Nothing + Property ncts_AdditionalReference_5_Type As Object = Nothing + Property ncts_AdditionalReference_5_ReferenceNumber As Object = Nothing + Property ncts_AdditionalReference_6_Type As Object = Nothing + Property ncts_AdditionalReference_6_ReferenceNumber As Object = Nothing + Property ncts_AdditionalReference_7_Type As Object = Nothing + Property ncts_AdditionalReference_7_ReferenceNumber As Object = Nothing + Property ncts_AdditionalReference_8_Type As Object = Nothing + Property ncts_AdditionalReference_8_ReferenceNumber As Object = Nothing + Property ncts_AdditionalReference_9_Type As Object = Nothing + Property ncts_AdditionalReference_9_ReferenceNumber As Object = Nothing + Property ncts_AdditionalInformation_1_Code As Object = Nothing + Property ncts_AdditionalInformation_1_Text As Object = Nothing + Property ncts_AdditionalInformation_2_Code As Object = Nothing + Property ncts_AdditionalInformation_2_Text As Object = Nothing + Property ncts_AdditionalInformation_3_Code As Object = Nothing + Property ncts_AdditionalInformation_3_Text As Object = Nothing + Property ncts_AdditionalInformation_4_Code As Object = Nothing + Property ncts_AdditionalInformation_4_Text As Object = Nothing + Property ncts_AdditionalInformation_5_Code As Object = Nothing + Property ncts_AdditionalInformation_5_Text As Object = Nothing + Property ncts_AdditionalInformation_6_Code As Object = Nothing + Property ncts_AdditionalInformation_6_Text As Object = Nothing + Property ncts_AdditionalInformation_7_Code As Object = Nothing + Property ncts_AdditionalInformation_7_Text As Object = Nothing + Property ncts_AdditionalInformation_8_Code As Object = Nothing + Property ncts_AdditionalInformation_8_Text As Object = Nothing + Property ncts_AdditionalInformation_9_Code As Object = Nothing + Property ncts_AdditionalInformation_9_Text As Object = Nothing + Property ncts_AUTOIMPIndicator As Object = Nothing + Property ncts_Stammreferenz As Object = Nothing + + Property ncts_Eroeffnung As Object = Nothing + Property ncts_Ankunft As Object = Nothing + Property ncts_Erledigung As Object = Nothing + + + Property ncts_GUARANTEE As New List(Of cNCTS_FREMD_Guarantee) + Property ncts_TRANSPORTEQUIPMENT As New List(Of cNCTS_FREMD_TransportEquipment) + Property ncts_HOUSE_CONSIGNMENT As New List(Of cNCTS_FREMD_HouseConsignment) + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + + Sub New() + + End Sub + + + Sub New(ncts_Id) + Me.ncts_Id = ncts_Id + LOAD() + End Sub + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Id", ncts_Id, , True, True)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Partnersystem", ncts_Partnersystem)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AVISO_einarbeitet", ncts_AVISO_einarbeitet)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_GUID", ncts_GUID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status", ncts_Status)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status_KEWILL_Equivalent", ncts_Status_KEWILL_Equivalent)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_dyaArt", ncts_dyaArt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_dyaAnmID", ncts_dyaAnmID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ANR", ncts_ANR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_MRN", ncts_MRN)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Erstellung", ncts_Erstellung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Erstellung_SB", ncts_Erstellung_SB)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LetzteBearbeitung", ncts_LetzteBearbeitung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LetzteBearbeitung_SB", ncts_LetzteBearbeitung_SB)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_firma", ncts_firma)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_niederlassung", ncts_niederlassung)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Gestellt", ncts_Gestellt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_GestelltAm", ncts_GestelltAm)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Partner", ncts_Trans_Partner)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Div1", ncts_Trans_Div1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Div2", ncts_Trans_Div2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Div3", ncts_Trans_Div3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Referenz", ncts_Trans_Referenz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_DatumZeit", ncts_Trans_DatumZeit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Version", ncts_Trans_Version)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_NachrichtenSenderTIN", ncts_NachrichtenSenderTIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_NachrichtenSenderNLNR", ncts_NachrichtenSenderNLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_NachrichtenempfaengerDST", ncts_NachrichtenempfaengerDST)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ObjectName", ncts_ObjectName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ObjectAlias", ncts_ObjectAlias)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_BezugsnummerVorblendung", ncts_BezugsnummerVorblendung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Bearbeiter", ncts_Bearbeiter)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfDispatch", ncts_CountryOfDispatch)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfDestination", ncts_CountryOfDestination)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Declarationtype", ncts_Declarationtype)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TIRCarnetNumber", ncts_TIRCarnetNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ReductedDatasetIndicator", ncts_ReductedDatasetIndicator)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LocationOfGoods_TypeofLocation", ncts_LocationOfGoods_TypeofLocation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LocationOfGoods_QualifierIdenfitication", ncts_LocationOfGoods_QualifierIdenfitication)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LocationOfGoods_AdditionalIdentifier", ncts_LocationOfGoods_AdditionalIdentifier)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LocationOfGoods_ContactPerson_Name", ncts_LocationOfGoods_ContactPerson_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LocationOfGoods_ContactPerson_PhoneNumber", ncts_LocationOfGoods_ContactPerson_PhoneNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LocationOfGoods_ContactPerson_EMailAddress", ncts_LocationOfGoods_ContactPerson_EMailAddress)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_1_RefNumber", ncts_CustomsOfficeOfTransitDeclared_1_RefNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_2_RefNumber", ncts_CustomsOfficeOfTransitDeclared_2_RefNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_3_RefNumber", ncts_CustomsOfficeOfTransitDeclared_3_RefNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_4_RefNumber", ncts_CustomsOfficeOfTransitDeclared_4_RefNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_5_RefNumber", ncts_CustomsOfficeOfTransitDeclared_5_RefNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_6_RefNumber", ncts_CustomsOfficeOfTransitDeclared_6_RefNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_7_RefNumber", ncts_CustomsOfficeOfTransitDeclared_7_RefNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_8_RefNumber", ncts_CustomsOfficeOfTransitDeclared_8_RefNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_9_RefNumber", ncts_CustomsOfficeOfTransitDeclared_9_RefNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfDestinationDeclared", ncts_CustomsOfficeOfDestinationDeclared)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfDeparture", ncts_CustomsOfficeOfDeparture)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfExitForTransitDeclared", ncts_CustomsOfficeOfExitForTransitDeclared)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LimitDate", ncts_LimitDate)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransitDeclarationType", ncts_TransitDeclarationType)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_GrossMass", ncts_GrossMass)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_BindingItinerary", ncts_BindingItinerary)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ContainerIndicator", ncts_ContainerIndicator)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_InlandModeOfTransport", ncts_InlandModeOfTransport)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ModeOfTransportAtTheBorder", ncts_ModeOfTransportAtTheBorder)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_1_TypeOfIdentification", ncts_DepartureTransportMeans_1_TypeOfIdentification)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_1_IdentificationNumber", ncts_DepartureTransportMeans_1_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_1_Nationality", ncts_DepartureTransportMeans_1_Nationality)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_2_TypeOfIdentification", ncts_DepartureTransportMeans_2_TypeOfIdentification)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_2_IdentificationNumber", ncts_DepartureTransportMeans_2_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_2_Nationality", ncts_DepartureTransportMeans_2_Nationality)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_3_TypeOfIdentification", ncts_DepartureTransportMeans_3_TypeOfIdentification)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_3_IdentificationNumber", ncts_DepartureTransportMeans_3_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_3_Nationality", ncts_DepartureTransportMeans_3_Nationality)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_4_TypeOfIdentification", ncts_DepartureTransportMeans_4_TypeOfIdentification)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_4_IdentificationNumber", ncts_DepartureTransportMeans_4_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_4_Nationality", ncts_DepartureTransportMeans_4_Nationality)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_1_TypeOfIdentification", ncts_ActiveBorderTransportMeans_1_TypeOfIdentification)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_1_IdentificationNumber", ncts_ActiveBorderTransportMeans_1_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_1_Nationality", ncts_ActiveBorderTransportMeans_1_Nationality)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber", ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared", ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_2_TypeOfIdentification", ncts_ActiveBorderTransportMeans_2_TypeOfIdentification)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_2_IdentificationNumber", ncts_ActiveBorderTransportMeans_2_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_2_Nationality", ncts_ActiveBorderTransportMeans_2_Nationality)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber", ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared", ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_3_TypeOfIdentification", ncts_ActiveBorderTransportMeans_3_TypeOfIdentification)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_3_IdentificationNumber", ncts_ActiveBorderTransportMeans_3_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_3_Nationality", ncts_ActiveBorderTransportMeans_3_Nationality)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber", ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared", ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_4_TypeOfIdentification", ncts_ActiveBorderTransportMeans_4_TypeOfIdentification)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_4_IdentificationNumber", ncts_ActiveBorderTransportMeans_4_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_4_Nationality", ncts_ActiveBorderTransportMeans_4_Nationality)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber", ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared", ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_1_Type", ncts_Authorisation_1_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_1_ReferenceNumber", ncts_Authorisation_1_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_2_Type", ncts_Authorisation_2_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_2_ReferenceNumber", ncts_Authorisation_2_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_3_Type", ncts_Authorisation_3_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_3_ReferenceNumber", ncts_Authorisation_3_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_4_Type", ncts_Authorisation_4_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_4_ReferenceNumber", ncts_Authorisation_4_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_5_Type", ncts_Authorisation_5_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_5_ReferenceNumber", ncts_Authorisation_5_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_6_Type", ncts_Authorisation_6_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_6_ReferenceNumber", ncts_Authorisation_6_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_7_Type", ncts_Authorisation_7_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_7_ReferenceNumber", ncts_Authorisation_7_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_8_Type", ncts_Authorisation_8_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_8_ReferenceNumber", ncts_Authorisation_8_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_9_Type", ncts_Authorisation_9_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_9_ReferenceNumber", ncts_Authorisation_9_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_AdressCode", ncts_Consignor_AdressCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_IdentificationNumber", ncts_Consignor_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_SubsidiaryNumber", ncts_Consignor_SubsidiaryNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_Name", ncts_Consignor_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_StreetNumber", ncts_Consignor_StreetNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_City", ncts_Consignor_City)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_Postcode", ncts_Consignor_Postcode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_Country", ncts_Consignor_Country)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_ContactPerson_Name", ncts_Consignor_ContactPerson_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_ContactPerson_PhoneNumber", ncts_Consignor_ContactPerson_PhoneNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_ContactPerson_EMailAddress", ncts_Consignor_ContactPerson_EMailAddress)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_AdressCode", ncts_Consignee_AdressCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_IdentificationNumber", ncts_Consignee_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_SubsidiaryNumber", ncts_Consignee_SubsidiaryNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_Name", ncts_Consignee_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_StreetNumber", ncts_Consignee_StreetNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_City", ncts_Consignee_City)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_Postcode", ncts_Consignee_Postcode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_Country", ncts_Consignee_Country)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_ContactPerson_Name", ncts_Consignee_ContactPerson_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_ContactPerson_PhoneNumber", ncts_Consignee_ContactPerson_PhoneNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_ContactPerson_EMailAddress", ncts_Consignee_ContactPerson_EMailAddress)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_AdressCode", ncts_HolderOfTheTransitProcedure_AdressCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_IdentificationNumber", ncts_HolderOfTheTransitProcedure_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber", ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_Name", ncts_HolderOfTheTransitProcedure_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_StreetNumber", ncts_HolderOfTheTransitProcedure_StreetNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_City", ncts_HolderOfTheTransitProcedure_City)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_Postcode", ncts_HolderOfTheTransitProcedure_Postcode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_Country", ncts_HolderOfTheTransitProcedure_Country)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_ContactPerson_Name", ncts_HolderOfTheTransitProcedure_ContactPerson_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber", ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress", ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Representative_AdressCode", ncts_Representative_AdressCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Representative_IdentificationNumber", ncts_Representative_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Representative_ContactPerson_Name", ncts_Representative_ContactPerson_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Representative_ContactPerson_PhoneNumber", ncts_Representative_ContactPerson_PhoneNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Representative_ContactPerson_EMailAddress", ncts_Representative_ContactPerson_EMailAddress)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_1_Role", ncts_AdditionalSupplyChainActor_1_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_1_IdentificationNumber", ncts_AdditionalSupplyChainActor_1_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_2_Role", ncts_AdditionalSupplyChainActor_2_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_2_IdentificationNumber", ncts_AdditionalSupplyChainActor_2_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_3_Role", ncts_AdditionalSupplyChainActor_3_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_3_IdentificationNumber", ncts_AdditionalSupplyChainActor_3_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_4_Role", ncts_AdditionalSupplyChainActor_4_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_4_IdentificationNumber", ncts_AdditionalSupplyChainActor_4_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_5_Role", ncts_AdditionalSupplyChainActor_5_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_5_IdentificationNumber", ncts_AdditionalSupplyChainActor_5_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_6_Role", ncts_AdditionalSupplyChainActor_6_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_6_IdentificationNumber", ncts_AdditionalSupplyChainActor_6_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_7_Role", ncts_AdditionalSupplyChainActor_7_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_7_IdentificationNumber", ncts_AdditionalSupplyChainActor_7_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_8_Role", ncts_AdditionalSupplyChainActor_8_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_8_IdentificationNumber", ncts_AdditionalSupplyChainActor_8_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_9_Role", ncts_AdditionalSupplyChainActor_9_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_9_IdentificationNumber", ncts_AdditionalSupplyChainActor_9_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Security", ncts_Security)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ReferenceNumberUCR", ncts_ReferenceNumberUCR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SpecificCircomstanceIndicator", ncts_SpecificCircomstanceIndicator)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PlaceOfLoading_Location", ncts_PlaceOfLoading_Location)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PlaceOfLoading_Country", ncts_PlaceOfLoading_Country)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PlaceOfUnLoading_Location", ncts_PlaceOfUnLoading_Location)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PlaceOfUnLoading_Country", ncts_PlaceOfUnLoading_Country)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportCharges", ncts_TransportCharges)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_1", ncts_CountryOfRoutingOfConsignment_1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_2", ncts_CountryOfRoutingOfConsignment_2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_3", ncts_CountryOfRoutingOfConsignment_3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_4", ncts_CountryOfRoutingOfConsignment_4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_5", ncts_CountryOfRoutingOfConsignment_5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_6", ncts_CountryOfRoutingOfConsignment_6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_7", ncts_CountryOfRoutingOfConsignment_7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_8", ncts_CountryOfRoutingOfConsignment_8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_9", ncts_CountryOfRoutingOfConsignment_9)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_10", ncts_CountryOfRoutingOfConsignment_10)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_11", ncts_CountryOfRoutingOfConsignment_11)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_12", ncts_CountryOfRoutingOfConsignment_12)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_13", ncts_CountryOfRoutingOfConsignment_13)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_14", ncts_CountryOfRoutingOfConsignment_14)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_15", ncts_CountryOfRoutingOfConsignment_15)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Carrier_AdressCode", ncts_Carrier_AdressCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Carrier_IdentificationNumber", ncts_Carrier_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Carrier_SubsidiaryNumber", ncts_Carrier_SubsidiaryNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Carrier_ContactPerson_Name", ncts_Carrier_ContactPerson_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Carrier_ContactPerson_PhoneNumber", ncts_Carrier_ContactPerson_PhoneNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Carrier_ContactPerson_EMailAddress", ncts_Carrier_ContactPerson_EMailAddress)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_1_Type", ncts_SupportingDocument_1_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_1_ReferenceNumber", ncts_SupportingDocument_1_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_1_DocumentLineItemNumber", ncts_SupportingDocument_1_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_1_ComplementOfInformation", ncts_SupportingDocument_1_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_2_Type", ncts_SupportingDocument_2_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_2_ReferenceNumber", ncts_SupportingDocument_2_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_2_DocumentLineItemNumber", ncts_SupportingDocument_2_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_2_ComplementOfInformation", ncts_SupportingDocument_2_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_3_Type", ncts_SupportingDocument_3_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_3_ReferenceNumber", ncts_SupportingDocument_3_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_3_DocumentLineItemNumber", ncts_SupportingDocument_3_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_3_ComplementOfInformation", ncts_SupportingDocument_3_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_4_Type", ncts_SupportingDocument_4_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_4_ReferenceNumber", ncts_SupportingDocument_4_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_4_DocumentLineItemNumber", ncts_SupportingDocument_4_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_4_ComplementOfInformation", ncts_SupportingDocument_4_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_5_Type", ncts_SupportingDocument_5_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_5_ReferenceNumber", ncts_SupportingDocument_5_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_5_DocumentLineItemNumber", ncts_SupportingDocument_5_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_5_ComplementOfInformation", ncts_SupportingDocument_5_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_6_Type", ncts_SupportingDocument_6_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_6_ReferenceNumber", ncts_SupportingDocument_6_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_6_DocumentLineItemNumber", ncts_SupportingDocument_6_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_6_ComplementOfInformation", ncts_SupportingDocument_6_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_7_Type", ncts_SupportingDocument_7_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_7_ReferenceNumber", ncts_SupportingDocument_7_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_7_DocumentLineItemNumber", ncts_SupportingDocument_7_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_7_ComplementOfInformation", ncts_SupportingDocument_7_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_8_Type", ncts_SupportingDocument_8_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_8_ReferenceNumber", ncts_SupportingDocument_8_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_8_DocumentLineItemNumber", ncts_SupportingDocument_8_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_8_ComplementOfInformation", ncts_SupportingDocument_8_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_9_Type", ncts_SupportingDocument_9_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_9_ReferenceNumber", ncts_SupportingDocument_9_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_9_DocumentLineItemNumber", ncts_SupportingDocument_9_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_9_ComplementOfInformation", ncts_SupportingDocument_9_ComplementOfInformation)) + + + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_1_Type", ncts_PreviousDocument_1_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_1_ReferenceNumber", ncts_PreviousDocument_1_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_1_ComplementOfInformation", ncts_PreviousDocument_1_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_2_Type", ncts_PreviousDocument_2_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_2_ReferenceNumber", ncts_PreviousDocument_2_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_2_ComplementOfInformation", ncts_PreviousDocument_2_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_3_Type", ncts_PreviousDocument_3_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_3_ReferenceNumber", ncts_PreviousDocument_3_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_3_ComplementOfInformation", ncts_PreviousDocument_3_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_4_Type", ncts_PreviousDocument_4_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_4_ReferenceNumber", ncts_PreviousDocument_4_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_4_ComplementOfInformation", ncts_PreviousDocument_4_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_5_Type", ncts_PreviousDocument_5_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_5_ReferenceNumber", ncts_PreviousDocument_5_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_5_ComplementOfInformation", ncts_PreviousDocument_5_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_6_Type", ncts_PreviousDocument_6_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_6_ReferenceNumber", ncts_PreviousDocument_6_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_6_ComplementOfInformation", ncts_PreviousDocument_6_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_7_Type", ncts_PreviousDocument_7_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_7_ReferenceNumber", ncts_PreviousDocument_7_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_7_ComplementOfInformation", ncts_PreviousDocument_7_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_8_Type", ncts_PreviousDocument_8_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_8_ReferenceNumber", ncts_PreviousDocument_8_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_8_ComplementOfInformation", ncts_PreviousDocument_8_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_9_Type", ncts_PreviousDocument_9_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_9_ReferenceNumber", ncts_PreviousDocument_9_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_9_ComplementOfInformation", ncts_PreviousDocument_9_ComplementOfInformation)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_1_Type", ncts_TransportDocument_1_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_1_ReferenceNumber", ncts_TransportDocument_1_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_2_Type", ncts_TransportDocument_2_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_2_ReferenceNumber", ncts_TransportDocument_2_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_3_Type", ncts_TransportDocument_3_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_3_ReferenceNumber", ncts_TransportDocument_3_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_4_Type", ncts_TransportDocument_4_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_4_ReferenceNumber", ncts_TransportDocument_4_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_5_Type", ncts_TransportDocument_5_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_5_ReferenceNumber", ncts_TransportDocument_5_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_6_Type", ncts_TransportDocument_6_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_6_ReferenceNumber", ncts_TransportDocument_6_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_7_Type", ncts_TransportDocument_7_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_7_ReferenceNumber", ncts_TransportDocument_7_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_8_Type", ncts_TransportDocument_8_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_8_ReferenceNumber", ncts_TransportDocument_8_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_9_Type", ncts_TransportDocument_9_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_9_ReferenceNumber", ncts_TransportDocument_9_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_1_Type", ncts_AdditionalReference_1_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_1_ReferenceNumber", ncts_AdditionalReference_1_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_2_Type", ncts_AdditionalReference_2_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_2_ReferenceNumber", ncts_AdditionalReference_2_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_3_Type", ncts_AdditionalReference_3_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_3_ReferenceNumber", ncts_AdditionalReference_3_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_4_Type", ncts_AdditionalReference_4_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_4_ReferenceNumber", ncts_AdditionalReference_4_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_5_Type", ncts_AdditionalReference_5_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_5_ReferenceNumber", ncts_AdditionalReference_5_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_6_Type", ncts_AdditionalReference_6_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_6_ReferenceNumber", ncts_AdditionalReference_6_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_7_Type", ncts_AdditionalReference_7_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_7_ReferenceNumber", ncts_AdditionalReference_7_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_8_Type", ncts_AdditionalReference_8_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_8_ReferenceNumber", ncts_AdditionalReference_8_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_9_Type", ncts_AdditionalReference_9_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_9_ReferenceNumber", ncts_AdditionalReference_9_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_1_Code", ncts_AdditionalInformation_1_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_1_Text", ncts_AdditionalInformation_1_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_2_Code", ncts_AdditionalInformation_2_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_2_Text", ncts_AdditionalInformation_2_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_3_Code", ncts_AdditionalInformation_3_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_3_Text", ncts_AdditionalInformation_3_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_4_Code", ncts_AdditionalInformation_4_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_4_Text", ncts_AdditionalInformation_4_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_5_Code", ncts_AdditionalInformation_5_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_5_Text", ncts_AdditionalInformation_5_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_6_Code", ncts_AdditionalInformation_6_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_6_Text", ncts_AdditionalInformation_6_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_7_Code", ncts_AdditionalInformation_7_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_7_Text", ncts_AdditionalInformation_7_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_8_Code", ncts_AdditionalInformation_8_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_8_Text", ncts_AdditionalInformation_8_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_9_Code", ncts_AdditionalInformation_9_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_9_Text", ncts_AdditionalInformation_9_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AUTOIMPIndicator", ncts_AUTOIMPIndicator)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Stammreferenz", ncts_Stammreferenz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Eroeffnung", ncts_Eroeffnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Ankunft", ncts_Ankunft)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Erledigung", ncts_Erledigung)) + + + + Return list + End Function + + Public Function UPDATE_STATUS(status) As Boolean + Me.ncts_Status = status + Return Me.SAVE + End Function + + Public Function SAVE(Optional errHinweis = "") As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblNCTS_FREMD WITH(updlock,serializable) WHERE ncts_Id=@ncts_Id) " & + " BEGIN " & getUpdateCmd() & " End " & + " Else " & + " BEGIN " & getInsertCmd() & " End " & + " commit tran " + + Dim ncts_IdTMP = ncts_Id + ncts_IdTMP = SQL.doSQLVarListID(ncts_IdTMP, sqlstr, "FMZOLL", , list, , errHinweis) + If ncts_Id <= 0 Then ncts_Id = ncts_IdTMP + Return ncts_Id > 0 + End Function + + Public Function GET_PKCNT() As Integer + GET_PKCNT = 0 + For Each HC In Me.ncts_HOUSE_CONSIGNMENT + For Each HCCI In HC.nctsWP_CONSIGNMENT_ITEM + For Each PK In HCCI.nctsHCCI_PACKAGING + If PK.nctsHCCIPK_NumberOfPackages IsNot Nothing Then + GET_PKCNT += PK.nctsHCCIPK_NumberOfPackages + End If + Next + Next + Next + End Function + + + Public Function GET_POSCNT() As Integer + GET_POSCNT = 0 + For Each HC In Me.ncts_HOUSE_CONSIGNMENT + GET_POSCNT += HC.nctsWP_CONSIGNMENT_ITEM.Count + Next + End Function + + + + Public Function SAVE_ALL(Optional errHinweis = "") As Boolean + If Not SAVE(errHinweis) Then Return False + If Not SAVE_Guarantee() Or Not SAVE_HouseConsignment() Or Not SAVE_TransportEquipment() Then Return False + + Return True + End Function + + Public Function LOAD(Optional loadALL As Boolean = True) As Boolean + Try + LOAD = False + If loadALL Then + ncts_GUARANTEE.Clear() + ncts_HOUSE_CONSIGNMENT.Clear() + ncts_TRANSPORTEQUIPMENT.Clear() + End If + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("Select * FROM tblNCTS_FREMD WHERE ncts_Id=@ncts_Id ", conn) + cmd.Parameters.AddWithValue("@ncts_Id", ncts_Id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each Ll In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(Ll.Scalarvariable) + + If dr.Item(Ll.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(Ll.Text)) + End If + + Next + If loadALL Then + LOAD_Guarantee() + LOAD_HouseConsignment() + LOAD_TransportEquipment() + End If + LOAD = True + End If + dr.Close() + + End Using + End Using + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return LOAD + End Function + + + + Shared Function UPDATE_StatusById(ncts_Id As Integer, status As Integer) As String + If ncts_Id > 0 Then + Try + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Id", ncts_Id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status_KEWILL_Equivalent", status, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status", status, , True)) + 'dy_Status_KEWILL_Equivalent = status + 'dy_Status = status + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Return SQL.doSQLVarList(" UPDATE [tblNCTS_FREMD] SET ncts_Status_KEWILL_Equivalent=@ncts_Status_KEWILL_Equivalent,ncts_Status=@ncts_Status WHERE ncts_Id=@ncts_Id ", "FMZOLL", , list) + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End If + Return "" + End Function + + + Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False) As cNCTS_FREMD + Try + Dim NCTS As New cNCTS_FREMD + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_FREMD WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_LetzteBearbeitung desc", conn) + cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each Ll In NCTS.getParameterList() + Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(Ll.Scalarvariable) + + If dr.Item(Ll.Text) Is DBNull.Value Then + propInfo.SetValue(NCTS, Nothing) + Else + propInfo.SetValue(NCTS, dr.Item(Ll.Text)) + End If + + Next + If loadALL Then + NCTS.LOAD_Guarantee() + NCTS.LOAD_HouseConsignment() + NCTS.LOAD_TransportEquipment() + + End If + + dr.Close() + Return NCTS + End If + dr.Close() + End Using + End Using + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return Nothing + End Function + + + Shared Function LOADByMRN(MRN As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False) As cNCTS_FREMD + Try + Dim NCTS As New cNCTS_FREMD + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_FREMD WHERE [ncts_MRN] LIKE @MRN " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_LetzteBearbeitung desc", conn) + cmd.Parameters.AddWithValue("@MRN", MRN) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each Ll In NCTS.getParameterList() + Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(Ll.Scalarvariable) + + If dr.Item(Ll.Text) Is DBNull.Value Then + propInfo.SetValue(NCTS, Nothing) + Else + propInfo.SetValue(NCTS, dr.Item(Ll.Text)) + End If + + Next + If loadALL Then + NCTS.LOAD_Guarantee() + NCTS.LOAD_HouseConsignment() + NCTS.LOAD_TransportEquipment() + + End If + + dr.Close() + Return NCTS + End If + dr.Close() + End Using + End Using + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return Nothing + End Function + + + Public Function UPDATE_Status(status As Integer) As String + If ncts_Id > 0 Then + Try + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Id", ncts_Id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status", status, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status_KEWILL_Equivalent", status, , True)) + ncts_Status = status + ncts_Status_KEWILL_Equivalent = status + Return SQL.doSQLVarList(" UPDATE [tblNCTS_FREMD] SET ncts_Status_KEWILL_Equivalent=@ncts_Status_KEWILL_Equivalent,ncts_Status=@ncts_Status WHERE ncts_Id=@ncts_Id ", "FMZOLL", , list) + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End If + Return "" + End Function + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblNCTS_FREMD] SET " & str & " WHERE ncts_Id=@ncts_Id ") + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblNCTS_FREMD (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return "" + End Function + + Public Sub LOAD_Guarantee() + Try + ncts_GUARANTEE.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblNCTS_FREMD_Guarantee WHERE nctsGRT_NctsId=@ncts_Id ", conn) + cmd.Parameters.AddWithValue("@ncts_Id", Me.ncts_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cNCTS_FREMD_Guarantee + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + ncts_GUARANTEE.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Sub + Public Sub LOAD_TransportEquipment() + Try + ncts_TRANSPORTEQUIPMENT.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblNCTS_FREMD_TransportEquipment WHERE nctsTE_NctsId=@ncts_Id ", conn) + cmd.Parameters.AddWithValue("@ncts_Id", Me.ncts_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cNCTS_FREMD_TransportEquipment + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + ncts_TRANSPORTEQUIPMENT.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Sub + + Public Sub LOAD_HouseConsignment() + Try + ncts_HOUSE_CONSIGNMENT.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblNCTS_FREMD_HouseConsignment WHERE nctsHC_NctsId=@ncts_Id ", conn) + cmd.Parameters.AddWithValue("@ncts_Id", Me.ncts_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cNCTS_FREMD_HouseConsignment + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + l.LOAD_ConsignmentItem() + ncts_HOUSE_CONSIGNMENT.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Sub + + + Public Shared Function get_HOUSE_CONSIGNMENT(ncts_Id As Integer, Optional loadAll As Boolean = False) As List(Of cNCTS_FREMD_HouseConsignment) + Try + Dim ncts_HOUSE_CONSIGNMENT As New List(Of cNCTS_FREMD_HouseConsignment) + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblNCTS_FREMD_HouseConsignment WHERE nctsHC_NctsId=@ncts_Id ", conn) + cmd.Parameters.AddWithValue("@ncts_Id", ncts_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cNCTS_FREMD_HouseConsignment() + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + l.LOAD_ConsignmentItem() + ncts_HOUSE_CONSIGNMENT.Add(l) + End While + dr.Close() + End Using + End Using + Return ncts_HOUSE_CONSIGNMENT + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return Nothing + End Function + + Function DELETE_HouseConsignment() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblNCTS_FREMD_HouseConsignment] WHERE nctsHC_NctsId=" & Me.ncts_Id & " " + ' MsgBox(sqlstr) + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Function DELETE_ConsignmentItem() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblNCTS_FREMD_HouseConsignment_ConsignmentItem] WHERE nctsHCCI_NctsId=" & Me.ncts_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Function DELETE_ConsignmentItem_Packaging() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblNCTS_FREMD_HouseConsignment_ConsignmentItem_Packaging] WHERE nctsHCCIPK_NctsId =" & Me.ncts_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + + ' If Not SAVE_Guarantee() Or Not SAVE_TransportEquipment() Or Not SAVE_HouseConsignment + Public Function SAVE_HouseConsignment() As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + If DELETE_HouseConsignment() And DELETE_ConsignmentItem() And DELETE_ConsignmentItem_Packaging() Then + 'jetzt die Standartofferten einfügen + For Each p In ncts_HOUSE_CONSIGNMENT + p.nctsHC_NctsId = ncts_Id + If p.INSERT() Then + p.INSERT_ConsignmentItem(p.nctsHC_Id, Me.ncts_Id) + Else + Return False + End If + Next + Else + Return False + End If + + Return True + End Function + + 'Public Function SAVE_Warenposition() As Boolean + ' 'Zuserst alle OffertenPos von dem Offert löschen + ' If DELETE_Warenpositionen() And DELETE_WarenpositionPackstuecke() And DELETE_WarenpositionUnterlagen() Then + ' 'jetzt die Standartofferten einfügen + ' For Each p In ncts_WARENPOS + ' p.nctsHC_NctsId = ncts_Id + ' If p.INSERT() Then + ' p.INSERT_WarenpositionPackstuecke(p.nctsWP_Id, Me.ncts_Id) + ' p.INSERT_WarenpositionUnterlagen(p.nctsWP_Id, Me.ncts_Id) + ' Else + ' Return False + ' End If + ' Next + ' Else + ' Return False + ' End If + + ' Return True + 'End Function + + Function DELETE_Guarantee() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblNCTS_FREMD_Guarantee] WHERE nctsGRT_NctsId=" & Me.ncts_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function SAVE_Guarantee() As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + If DELETE_Guarantee() Then + 'jetzt die Standartofferten einfügen + For Each p In ncts_GUARANTEE + p.nctsGRT_NctsId = ncts_Id + If Not p.INSERT() Then + Return False + End If + Next + Else + Return False + End If + Return True + End Function + + Function DELETE_TransportEquipment() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblNCTS_FREMD_TransportEquipment] WHERE nctsTE_NctsId=" & Me.ncts_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function SAVE_TransportEquipment() As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + If DELETE_TransportEquipment() Then + 'jetzt die Standartofferten einfügen + For Each p In ncts_TRANSPORTEQUIPMENT + p.nctsTE_NctsId = ncts_Id + If Not p.INSERT() Then + Return False + End If + Next + Else + Return False + End If + Return True + End Function + + Function countSpedbuchEntrys(filiale, ncts) As Integer + If If(ncts, "") = "" Then Return 0 + Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND AtlasBezNrNCTS='" & ncts & "'", "FMZOLL") + End Function + + + + Function countSpedbuchEntrysFilialeAbf(filiale, abfertigungsnummer) As Integer + If If(abfertigungsnummer, "") = "" Then Return 0 + Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND AbfertigungsNr='" & abfertigungsnummer & "'", "FMZOLL") + End Function + + + + + + Shared Function getFiliale(ByVal bezugsNr, ByRef filialeBez) As String + getFiliale = "" + If If(bezugsNr, "").ToString.Length > 4 Then + Select Case bezugsNr.ToString.Substring(0, 4) + Case "4803" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case "4811" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case "5003" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case "5103" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case "5303" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case "5501", "5601", "5701", "5801" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case Else + If IsNumeric(bezugsNr.ToString.Substring(0, 4)) Then Return bezugsNr.ToString.Substring(0, 4) 'Case Else : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + 'Case "4801", "4803", "4805", "4807", "4811", "5003", "5103", "5303" : Return bezugsNr.ToString.Substring(0, 4) ...... derzeit nur 4803 + 'filialeBez SUB, NKD, WAI,.-.. + End Select + End If + End Function + + + Shared Function getAbfertigungsnummer(ByVal bezugsNr) As String + getAbfertigungsnummer = "" + If If(bezugsNr, "").ToString.Length > 5 Then + + Dim abf = "" + For Each s In bezugsNr.ToString.Substring(5) + If Not IsNumeric(s) Then Exit For + abf &= s + Next + + + If IsNumeric(abf) Then + If CLng(abf) < 99000000 Then ' wenn zu groß, fehlerhaft + If CLng(abf) > 18000000 And CLng(abf) < 99000000 Then + Return abf + Else + Return "18" & CInt(abf).ToString("000000") + End If + End If + End If + End If + Return "" + End Function + Sub getFilialeAbfertigungsnummerFromSendung(ByRef filiale, ByRef abfertigungsnummer, dy_SendungsId) + If dy_SendungsId IsNot Nothing AndAlso IsNumeric(dy_SendungsId) Then + Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(dy_SendungsId) + If SND IsNot Nothing Then + If SND.FilialenNr > 0 Then filiale = SND.FilialenNr + If SND.AbfertigungsNr > 0 Then abfertigungsnummer = SND.AbfertigungsNr + End If + End If + End Sub + + +End Class + + + +Public Class cNCTS_FREMD_Guarantee + + Property nctsGRT_Id As Integer + Property nctsGRT_NctsId As Integer + Property nctsGRT_Type As Object = Nothing ' VARCHAR(2) NULL, + Property nctsGRT_OtherGuaranteeReference As Object = Nothing ' VARCHAR(35) NULL, + Property nctsGRT_Currency As Object = Nothing ' VARCHAR(3) NULL, + Property nctsGRT_AmountToBeCovered As Object = Nothing ' Decimal (18, 2) NULL, + Property nctsGRT_AmountToBeCoveredFremdWaehrung As Object = Nothing ' Decimal (18, 2) NULL, + Property nctsGRT_GRN As Object = Nothing ' VARCHAR(24) NULL, + Property nctsGRT_AccessCode As Object = Nothing ' VARCHAR(4) NULL, + Property nctsGRT_AccountName As Object = Nothing ' VARCHAR(15) NULL, + Property nctsGRT_GoodsValue As Object = Nothing ' Decimal (18, 2) NULL, + Property nctsGRT_CurrencyOfGoodsValue As Object = Nothing ' VARCHAR(3) NULL, + Property nctsGRT_FractionOfGoodsValue As Object = Nothing ' Decimal (10, 2) NULL, + Property nctsGRT_CurrencyExchangeRateCustoms As Object = Nothing ' Decimal (15, 5) NULL, + Property nctsGRT_CurrencyExchangeRateAccount As Object = Nothing ' Decimal (15, 5) NULL, + Property nctsGRT_ExchangeDateCustoms As Object = Nothing ' Date NULL, + Property nctsGRT_ExchangeDateAccount As Object = Nothing ' Date NULL, + Property nctsGRT_CurrencyExchangeRateTypeCustoms As Object = Nothing ' VARCHAR(9) NULL, + Property nctsGRT_CurrencyExchangeRateTypeAccount As Object = Nothing ' VARCHAR(10) NULL, + Property nctsGRT_CalculateGoodsValueFromGoodsItems As Object = Nothing ' VARCHAR(1) NULL, + Property nctsGRT_Commentary As Object = Nothing ' VARCHAR(50) NULL, + + 'Public selButton As Object = Nothing ' Für die GUI + 'Public SA_OBJECT As Object = Nothing ' Für die GUI + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + End Sub + + 'Sub New(nctsSA_Id) + ' Me.nctsSA_Id = nctsSA_Id + ' LOAD() + ' End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_Id", nctsGRT_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_NctsId", nctsGRT_NctsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_Type", nctsGRT_Type)) ' VARCHAR(2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_OtherGuaranteeReference", nctsGRT_OtherGuaranteeReference)) ' VARCHAR(35) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_Currency", nctsGRT_Currency)) ' VARCHAR(3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_AmountToBeCovered", nctsGRT_AmountToBeCovered)) ' Decimal (18, 2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_AmountToBeCoveredFremdWaehrung", nctsGRT_AmountToBeCoveredFremdWaehrung)) ' Decimal (18, 2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_GRN", nctsGRT_GRN)) ' VARCHAR(24) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_AccessCode", nctsGRT_AccessCode)) ' VARCHAR(4) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_AccountName", nctsGRT_AccountName)) ' VARCHAR(15) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_GoodsValue", nctsGRT_GoodsValue)) ' Decimal (18, 2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_CurrencyOfGoodsValue", nctsGRT_CurrencyOfGoodsValue)) ' VARCHAR(3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_FractionOfGoodsValue", nctsGRT_FractionOfGoodsValue)) ' Decimal (10, 2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_CurrencyExchangeRateCustoms", nctsGRT_CurrencyExchangeRateCustoms)) ' Decimal (15, 5) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_CurrencyExchangeRateAccount", nctsGRT_CurrencyExchangeRateAccount)) ' Decimal (15, 5) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_ExchangeDateCustoms", nctsGRT_ExchangeDateCustoms)) ' Date NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_ExchangeDateAccount", nctsGRT_ExchangeDateAccount)) ' Date NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_CurrencyExchangeRateTypeCustoms", nctsGRT_CurrencyExchangeRateTypeCustoms)) ' VARCHAR(9) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_CurrencyExchangeRateTypeAccount", nctsGRT_CurrencyExchangeRateTypeAccount)) ' VARCHAR(10) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_CalculateGoodsValueFromGoodsItems", nctsGRT_CalculateGoodsValueFromGoodsItems)) ' VARCHAR(1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_Commentary", nctsGRT_Commentary)) ' VARCHAR(50) NULL, + + + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + 'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list) + nctsGRT_Id = SQL.doSQLVarListID(nctsGRT_Id, getInsertCmd, "FMZOLL", , list) + Return nctsGRT_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblNCTS_FREMD_Guarantee (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return "" + End Function + +End Class + + +Public Class cNCTS_FREMD_TransportEquipment + + Property nctsTE_Id As Integer + Property nctsTE_NctsId As Integer + Property nctsTE_NumberOfSeals As Object = Nothing ' VARCHAR(2) NULL, + Property nctsTE_Seal_1 As Object = Nothing ' VARCHAR(20) NULL, + Property nctsTE_Seal_2 As Object = Nothing ' VARCHAR(20) NULL, + Property nctsTE_Seal_3 As Object = Nothing ' VARCHAR(20) NULL, + Property nctsTE_Seal_4 As Object = Nothing ' VARCHAR(20) NULL, + Property nctsTE_Seal_5 As Object = Nothing ' VARCHAR(20) NULL, + Property nctsTE_Seal_6 As Object = Nothing ' VARCHAR(20) NULL, + Property nctsTE_Seal_7 As Object = Nothing ' VARCHAR(20) NULL, + Property nctsTE_Seal_8 As Object = Nothing ' VARCHAR(20) NULL, + Property nctsTE_Seal_9 As Object = Nothing ' VARCHAR(20) NULL, + Property nctsTE_Seal_10 As Object = Nothing ' VARCHAR(20) NULL, + Property nctsTE_Seal_11 As Object = Nothing ' VARCHAR(20) NULL, + Property nctsTE_Seal_12 As Object = Nothing ' VARCHAR(20) NULL, + Property nctsTE_Seal_13 As Object = Nothing ' VARCHAR(20) NULL, + Property nctsTE_Seal_14 As Object = Nothing ' VARCHAR(20) NULL, + Property nctsTE_Seal_15 As Object = Nothing ' VARCHAR(20) NULL, + Property nctsTE_ContainerIdentificationNumber As Object = Nothing ' VARCHAR(17) NULL, + Property nctsTE_GoodsReference As Object = Nothing ' VARCHAR(MAX) NULL, + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + End Sub + + 'Sub New(nctsSA_Id) + ' Me.nctsSA_Id = nctsSA_Id + ' LOAD() + ' End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Id", nctsTE_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_NctsId", nctsTE_NctsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_NumberOfSeals", nctsTE_NumberOfSeals)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_1", nctsTE_Seal_1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_2", nctsTE_Seal_2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_3", nctsTE_Seal_3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_4", nctsTE_Seal_4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_5", nctsTE_Seal_5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_6", nctsTE_Seal_6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_7", nctsTE_Seal_7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_8", nctsTE_Seal_8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_9", nctsTE_Seal_9)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_10", nctsTE_Seal_10)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_11", nctsTE_Seal_11)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_12", nctsTE_Seal_12)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_13", nctsTE_Seal_13)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_14", nctsTE_Seal_14)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_15", nctsTE_Seal_15)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_ContainerIdentificationNumber", nctsTE_ContainerIdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_GoodsReference", nctsTE_GoodsReference)) + + + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + 'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list) + nctsTE_Id = SQL.doSQLVarListID(nctsTE_Id, getInsertCmd, "FMZOLL", , list) + Return nctsTE_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblNCTS_FREMD_TransportEquipment (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return "" + End Function + +End Class + + +Public Class cNCTS_FREMD_HouseConsignment + Property nctsHC_Id As Integer + Property nctsHC_NctsId As Integer + Property nctsHC_HouseConsignMentReference As Object = Nothing + Property nctsHC_CountryOfDispatch As Object = Nothing + Property nctsHC_CountryOfDestination As Object = Nothing + Property nctsHC_GrossMass As Object = Nothing + Property nctsHC_ReferenceNumberUCR As Object = Nothing + Property nctsHC_Consignor_AdressCode As Object = Nothing + Property nctsHC_Consignor_IdentificationNumber As Object = Nothing + Property nctsHC_Consignor_SubsidiaryNumber As Object = Nothing + Property nctsHC_Consignor_Name As Object = Nothing + Property nctsHC_Consignor_StreetNumber As Object = Nothing + Property nctsHC_Consignor_City As Object = Nothing + Property nctsHC_Consignor_Postcode As Object = Nothing + Property nctsHC_Consignor_Country As Object = Nothing + Property nctsHC_Consignor_ContactPerson_Name As Object = Nothing + Property nctsHC_Consignor_ContactPerson_PhoneNumber As Object = Nothing + Property nctsHC_Consignor_ContactPerson_EMailAddress As Object = Nothing + Property nctsHC_Consignee_AdressCode As Object = Nothing + Property nctsHC_Consignee_IdentificationNumber As Object = Nothing + Property nctsHC_Consignee_SubsidiaryNumber As Object = Nothing + Property nctsHC_Consignee_Name As Object = Nothing + Property nctsHC_Consignee_StreetNumber As Object = Nothing + Property nctsHC_Consignee_City As Object = Nothing + Property nctsHC_Consignee_Postcode As Object = Nothing + Property nctsHC_Consignee_Country As Object = Nothing + Property nctsHC_Consignee_ContactPerson_Name As Object = Nothing + Property nctsHC_Consignee_ContactPerson_PhoneNumber As Object = Nothing + Property nctsHC_Consignee_ContactPerson_EMailAddress As Object = Nothing + Property nctsHC_AdditionalSupplyChainActor_1_Role As Object = Nothing + Property nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber As Object = Nothing + Property nctsHC_AdditionalSupplyChainActor_2_Role As Object = Nothing + Property nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber As Object = Nothing + Property nctsHC_AdditionalSupplyChainActor_3_Role As Object = Nothing + Property nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber As Object = Nothing + Property nctsHC_AdditionalSupplyChainActor_4_Role As Object = Nothing + Property nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber As Object = Nothing + Property nctsHC_AdditionalSupplyChainActor_5_Role As Object = Nothing + Property nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber As Object = Nothing + Property nctsHC_AdditionalSupplyChainActor_6_Role As Object = Nothing + Property nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber As Object = Nothing + Property nctsHC_AdditionalSupplyChainActor_7_Role As Object = Nothing + Property nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber As Object = Nothing + Property nctsHC_AdditionalSupplyChainActor_8_Role As Object = Nothing + Property nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber As Object = Nothing + Property nctsHC_AdditionalSupplyChainActor_9_Role As Object = Nothing + Property nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber As Object = Nothing + Property nctsHC_SupportingDocument_1_Type As Object = Nothing + Property nctsHC_SupportingDocument_1_ReferenceNumber As Object = Nothing + Property nctsHC_SupportingDocument_1_DocumentLineItemNumber As Object = Nothing + Property nctsHC_SupportingDocument_1_ComplementOfInformation As Object = Nothing + Property nctsHC_SupportingDocument_2_Type As Object = Nothing + Property nctsHC_SupportingDocument_2_ReferenceNumber As Object = Nothing + Property nctsHC_SupportingDocument_2_DocumentLineItemNumber As Object = Nothing + Property nctsHC_SupportingDocument_2_ComplementOfInformation As Object = Nothing + Property nctsHC_SupportingDocument_3_Type As Object = Nothing + Property nctsHC_SupportingDocument_3_ReferenceNumber As Object = Nothing + Property nctsHC_SupportingDocument_3_DocumentLineItemNumber As Object = Nothing + Property nctsHC_SupportingDocument_3_ComplementOfInformation As Object = Nothing + Property nctsHC_SupportingDocument_4_Type As Object = Nothing + Property nctsHC_SupportingDocument_4_ReferenceNumber As Object = Nothing + Property nctsHC_SupportingDocument_4_DocumentLineItemNumber As Object = Nothing + Property nctsHC_SupportingDocument_4_ComplementOfInformation As Object = Nothing + Property nctsHC_SupportingDocument_5_Type As Object = Nothing + Property nctsHC_SupportingDocument_5_ReferenceNumber As Object = Nothing + Property nctsHC_SupportingDocument_5_DocumentLineItemNumber As Object = Nothing + Property nctsHC_SupportingDocument_5_ComplementOfInformation As Object = Nothing + Property nctsHC_SupportingDocument_6_Type As Object = Nothing + Property nctsHC_SupportingDocument_6_ReferenceNumber As Object = Nothing + Property nctsHC_SupportingDocument_6_DocumentLineItemNumber As Object = Nothing + Property nctsHC_SupportingDocument_6_ComplementOfInformation As Object = Nothing + Property nctsHC_SupportingDocument_7_Type As Object = Nothing + Property nctsHC_SupportingDocument_7_ReferenceNumber As Object = Nothing + Property nctsHC_SupportingDocument_7_DocumentLineItemNumber As Object = Nothing + Property nctsHC_SupportingDocument_7_ComplementOfInformation As Object = Nothing + Property nctsHC_SupportingDocument_8_Type As Object = Nothing + Property nctsHC_SupportingDocument_8_ReferenceNumber As Object = Nothing + Property nctsHC_SupportingDocument_8_DocumentLineItemNumber As Object = Nothing + Property nctsHC_SupportingDocument_8_ComplementOfInformation As Object = Nothing + Property nctsHC_SupportingDocument_9_Type As Object = Nothing + Property nctsHC_SupportingDocument_9_ReferenceNumber As Object = Nothing + Property nctsHC_SupportingDocument_9_DocumentLineItemNumber As Object = Nothing + Property nctsHC_SupportingDocument_9_ComplementOfInformation As Object = Nothing + + + + + Property nctsHC_PreviousDocument_1_Type As Object = Nothing + Property nctsHC_PreviousDocument_1_ReferenceNumber As Object = Nothing + Property nctsHC_PreviousDocument_1_ComplementOfInformation As Object = Nothing + Property nctsHC_PreviousDocument_2_Type As Object = Nothing + Property nctsHC_PreviousDocument_2_ReferenceNumber As Object = Nothing + Property nctsHC_PreviousDocument_2_ComplementOfInformation As Object = Nothing + Property nctsHC_PreviousDocument_3_Type As Object = Nothing + Property nctsHC_PreviousDocument_3_ReferenceNumber As Object = Nothing + Property nctsHC_PreviousDocument_3_ComplementOfInformation As Object = Nothing + Property nctsHC_PreviousDocument_4_Type As Object = Nothing + Property nctsHC_PreviousDocument_4_ReferenceNumber As Object = Nothing + Property nctsHC_PreviousDocument_4_ComplementOfInformation As Object = Nothing + Property nctsHC_PreviousDocument_5_Type As Object = Nothing + Property nctsHC_PreviousDocument_5_ReferenceNumber As Object = Nothing + Property nctsHC_PreviousDocument_5_ComplementOfInformation As Object = Nothing + Property nctsHC_PreviousDocument_6_Type As Object = Nothing + Property nctsHC_PreviousDocument_6_ReferenceNumber As Object = Nothing + Property nctsHC_PreviousDocument_6_ComplementOfInformation As Object = Nothing + Property nctsHC_PreviousDocument_7_Type As Object = Nothing + Property nctsHC_PreviousDocument_7_ReferenceNumber As Object = Nothing + Property nctsHC_PreviousDocument_7_ComplementOfInformation As Object = Nothing + Property nctsHC_PreviousDocument_8_Type As Object = Nothing + Property nctsHC_PreviousDocument_8_ReferenceNumber As Object = Nothing + Property nctsHC_PreviousDocument_8_ComplementOfInformation As Object = Nothing + Property nctsHC_PreviousDocument_9_Type As Object = Nothing + Property nctsHC_PreviousDocument_9_ReferenceNumber As Object = Nothing + Property nctsHC_PreviousDocument_9_ComplementOfInformation As Object = Nothing + + + Property nctsHC_TransportDocument_1_Type As Object = Nothing + Property nctsHC_TransportDocument_1_ReferenceNumber As Object = Nothing + Property nctsHC_TransportDocument_2_Type As Object = Nothing + Property nctsHC_TransportDocument_2_ReferenceNumber As Object = Nothing + Property nctsHC_TransportDocument_3_Type As Object = Nothing + Property nctsHC_TransportDocument_3_ReferenceNumber As Object = Nothing + Property nctsHC_TransportDocument_4_Type As Object = Nothing + Property nctsHC_TransportDocument_4_ReferenceNumber As Object = Nothing + Property nctsHC_TransportDocument_5_Type As Object = Nothing + Property nctsHC_TransportDocument_5_ReferenceNumber As Object = Nothing + Property nctsHC_TransportDocument_6_Type As Object = Nothing + Property nctsHC_TransportDocument_6_ReferenceNumber As Object = Nothing + Property nctsHC_TransportDocument_7_Type As Object = Nothing + Property nctsHC_TransportDocument_7_ReferenceNumber As Object = Nothing + Property nctsHC_TransportDocument_8_Type As Object = Nothing + Property nctsHC_TransportDocument_8_ReferenceNumber As Object = Nothing + Property nctsHC_TransportDocument_9_Type As Object = Nothing + Property nctsHC_TransportDocument_9_ReferenceNumber As Object = Nothing + Property nctsHC_AdditionalReference_1_Type As Object = Nothing + Property nctsHC_AdditionalReference_1_ReferenceNumber As Object = Nothing + Property nctsHC_AdditionalReference_2_Type As Object = Nothing + Property nctsHC_AdditionalReference_2_ReferenceNumber As Object = Nothing + Property nctsHC_AdditionalReference_3_Type As Object = Nothing + Property nctsHC_AdditionalReference_3_ReferenceNumber As Object = Nothing + Property nctsHC_AdditionalReference_4_Type As Object = Nothing + Property nctsHC_AdditionalReference_4_ReferenceNumber As Object = Nothing + Property nctsHC_AdditionalReference_5_Type As Object = Nothing + Property nctsHC_AdditionalReference_5_ReferenceNumber As Object = Nothing + Property nctsHC_AdditionalReference_6_Type As Object = Nothing + Property nctsHC_AdditionalReference_6_ReferenceNumber As Object = Nothing + Property nctsHC_AdditionalReference_7_Type As Object = Nothing + Property nctsHC_AdditionalReference_7_ReferenceNumber As Object = Nothing + Property nctsHC_AdditionalReference_8_Type As Object = Nothing + Property nctsHC_AdditionalReference_8_ReferenceNumber As Object = Nothing + Property nctsHC_AdditionalReference_9_Type As Object = Nothing + Property nctsHC_AdditionalReference_9_ReferenceNumber As Object = Nothing + Property nctsHC_AdditionalInformation_1_Code As Object = Nothing + Property nctsHC_AdditionalInformation_1_Text As Object = Nothing + Property nctsHC_AdditionalInformation_2_Code As Object = Nothing + Property nctsHC_AdditionalInformation_2_Text As Object = Nothing + Property nctsHC_AdditionalInformation_3_Code As Object = Nothing + Property nctsHC_AdditionalInformation_3_Text As Object = Nothing + Property nctsHC_AdditionalInformation_4_Code As Object = Nothing + Property nctsHC_AdditionalInformation_4_Text As Object = Nothing + Property nctsHC_AdditionalInformation_5_Code As Object = Nothing + Property nctsHC_AdditionalInformation_5_Text As Object = Nothing + Property nctsHC_AdditionalInformation_6_Code As Object = Nothing + Property nctsHC_AdditionalInformation_6_Text As Object = Nothing + Property nctsHC_AdditionalInformation_7_Code As Object = Nothing + Property nctsHC_AdditionalInformation_7_Text As Object = Nothing + Property nctsHC_AdditionalInformation_8_Code As Object = Nothing + Property nctsHC_AdditionalInformation_8_Text As Object = Nothing + Property nctsHC_AdditionalInformation_9_Code As Object = Nothing + Property nctsHC_AdditionalInformation_9_Text As Object = Nothing + Property nctsHC_TransportCharges As Object = Nothing + + + + Property nctsWP_CONSIGNMENT_ITEM As New List(Of cNCTS_FREMD_HouseConsignment_ConsignmentItem) + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + ' Me.nctsHC_NctsId = nctsHC_NctsId + End Sub + + 'Sub New(nctsSA_Id) + ' Me.nctsSA_Id = nctsSA_Id + ' LOAD() + ' End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Id", nctsHC_Id, , True, True)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_NctsId", nctsHC_NctsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_HouseConsignMentReference", nctsHC_HouseConsignMentReference)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_CountryOfDispatch", nctsHC_CountryOfDispatch)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_CountryOfDestination", nctsHC_CountryOfDestination)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_GrossMass", nctsHC_GrossMass)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_ReferenceNumberUCR", nctsHC_ReferenceNumberUCR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_AdressCode", nctsHC_Consignor_AdressCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_IdentificationNumber", nctsHC_Consignor_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_SubsidiaryNumber", nctsHC_Consignor_SubsidiaryNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_Name", nctsHC_Consignor_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_StreetNumber", nctsHC_Consignor_StreetNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_City", nctsHC_Consignor_City)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_Postcode", nctsHC_Consignor_Postcode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_Country", nctsHC_Consignor_Country)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_ContactPerson_Name", nctsHC_Consignor_ContactPerson_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_ContactPerson_PhoneNumber", nctsHC_Consignor_ContactPerson_PhoneNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_ContactPerson_EMailAddress", nctsHC_Consignor_ContactPerson_EMailAddress)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_AdressCode", nctsHC_Consignee_AdressCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_IdentificationNumber", nctsHC_Consignee_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_SubsidiaryNumber", nctsHC_Consignee_SubsidiaryNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_Name", nctsHC_Consignee_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_StreetNumber", nctsHC_Consignee_StreetNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_City", nctsHC_Consignee_City)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_Postcode", nctsHC_Consignee_Postcode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_Country", nctsHC_Consignee_Country)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_ContactPerson_Name", nctsHC_Consignee_ContactPerson_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_ContactPerson_PhoneNumber", nctsHC_Consignee_ContactPerson_PhoneNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_ContactPerson_EMailAddress", nctsHC_Consignee_ContactPerson_EMailAddress)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_1_Role", nctsHC_AdditionalSupplyChainActor_1_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_2_Role", nctsHC_AdditionalSupplyChainActor_2_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_3_Role", nctsHC_AdditionalSupplyChainActor_3_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_4_Role", nctsHC_AdditionalSupplyChainActor_4_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_5_Role", nctsHC_AdditionalSupplyChainActor_5_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_6_Role", nctsHC_AdditionalSupplyChainActor_6_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_7_Role", nctsHC_AdditionalSupplyChainActor_7_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_8_Role", nctsHC_AdditionalSupplyChainActor_8_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_9_Role", nctsHC_AdditionalSupplyChainActor_9_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_1_Type", nctsHC_SupportingDocument_1_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_1_ReferenceNumber", nctsHC_SupportingDocument_1_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_1_DocumentLineItemNumber", nctsHC_SupportingDocument_1_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_1_ComplementOfInformation", nctsHC_SupportingDocument_1_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_2_Type", nctsHC_SupportingDocument_2_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_2_ReferenceNumber", nctsHC_SupportingDocument_2_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_2_DocumentLineItemNumber", nctsHC_SupportingDocument_2_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_2_ComplementOfInformation", nctsHC_SupportingDocument_2_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_3_Type", nctsHC_SupportingDocument_3_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_3_ReferenceNumber", nctsHC_SupportingDocument_3_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_3_DocumentLineItemNumber", nctsHC_SupportingDocument_3_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_3_ComplementOfInformation", nctsHC_SupportingDocument_3_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_4_Type", nctsHC_SupportingDocument_4_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_4_ReferenceNumber", nctsHC_SupportingDocument_4_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_4_DocumentLineItemNumber", nctsHC_SupportingDocument_4_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_4_ComplementOfInformation", nctsHC_SupportingDocument_4_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_5_Type", nctsHC_SupportingDocument_5_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_5_ReferenceNumber", nctsHC_SupportingDocument_5_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_5_DocumentLineItemNumber", nctsHC_SupportingDocument_5_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_5_ComplementOfInformation", nctsHC_SupportingDocument_5_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_6_Type", nctsHC_SupportingDocument_6_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_6_ReferenceNumber", nctsHC_SupportingDocument_6_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_6_DocumentLineItemNumber", nctsHC_SupportingDocument_6_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_6_ComplementOfInformation", nctsHC_SupportingDocument_6_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_7_Type", nctsHC_SupportingDocument_7_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_7_ReferenceNumber", nctsHC_SupportingDocument_7_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_7_DocumentLineItemNumber", nctsHC_SupportingDocument_7_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_7_ComplementOfInformation", nctsHC_SupportingDocument_7_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_8_Type", nctsHC_SupportingDocument_8_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_8_ReferenceNumber", nctsHC_SupportingDocument_8_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_8_DocumentLineItemNumber", nctsHC_SupportingDocument_8_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_8_ComplementOfInformation", nctsHC_SupportingDocument_8_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_9_Type", nctsHC_SupportingDocument_9_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_9_ReferenceNumber", nctsHC_SupportingDocument_9_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_9_DocumentLineItemNumber", nctsHC_SupportingDocument_9_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_9_ComplementOfInformation", nctsHC_SupportingDocument_9_ComplementOfInformation)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_1_Type", nctsHC_PreviousDocument_1_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_1_ReferenceNumber", nctsHC_PreviousDocument_1_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_1_ComplementOfInformation", nctsHC_PreviousDocument_1_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_2_Type", nctsHC_PreviousDocument_2_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_2_ReferenceNumber", nctsHC_PreviousDocument_2_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_2_ComplementOfInformation", nctsHC_PreviousDocument_2_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_3_Type", nctsHC_PreviousDocument_3_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_3_ReferenceNumber", nctsHC_PreviousDocument_3_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_3_ComplementOfInformation", nctsHC_PreviousDocument_3_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_4_Type", nctsHC_PreviousDocument_4_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_4_ReferenceNumber", nctsHC_PreviousDocument_4_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_4_ComplementOfInformation", nctsHC_PreviousDocument_4_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_5_Type", nctsHC_PreviousDocument_5_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_5_ReferenceNumber", nctsHC_PreviousDocument_5_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_5_ComplementOfInformation", nctsHC_PreviousDocument_5_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_6_Type", nctsHC_PreviousDocument_6_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_6_ReferenceNumber", nctsHC_PreviousDocument_6_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_6_ComplementOfInformation", nctsHC_PreviousDocument_6_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_7_Type", nctsHC_PreviousDocument_7_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_7_ReferenceNumber", nctsHC_PreviousDocument_7_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_7_ComplementOfInformation", nctsHC_PreviousDocument_7_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_8_Type", nctsHC_PreviousDocument_8_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_8_ReferenceNumber", nctsHC_PreviousDocument_8_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_8_ComplementOfInformation", nctsHC_PreviousDocument_8_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_9_Type", nctsHC_PreviousDocument_9_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_9_ReferenceNumber", nctsHC_PreviousDocument_9_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_9_ComplementOfInformation", nctsHC_PreviousDocument_9_ComplementOfInformation)) + + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_1_Type", nctsHC_TransportDocument_1_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_1_ReferenceNumber", nctsHC_TransportDocument_1_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_2_Type", nctsHC_TransportDocument_2_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_2_ReferenceNumber", nctsHC_TransportDocument_2_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_3_Type", nctsHC_TransportDocument_3_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_3_ReferenceNumber", nctsHC_TransportDocument_3_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_4_Type", nctsHC_TransportDocument_4_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_4_ReferenceNumber", nctsHC_TransportDocument_4_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_5_Type", nctsHC_TransportDocument_5_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_5_ReferenceNumber", nctsHC_TransportDocument_5_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_6_Type", nctsHC_TransportDocument_6_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_6_ReferenceNumber", nctsHC_TransportDocument_6_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_7_Type", nctsHC_TransportDocument_7_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_7_ReferenceNumber", nctsHC_TransportDocument_7_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_8_Type", nctsHC_TransportDocument_8_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_8_ReferenceNumber", nctsHC_TransportDocument_8_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_9_Type", nctsHC_TransportDocument_9_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_9_ReferenceNumber", nctsHC_TransportDocument_9_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_1_Type", nctsHC_AdditionalReference_1_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_1_ReferenceNumber", nctsHC_AdditionalReference_1_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_2_Type", nctsHC_AdditionalReference_2_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_2_ReferenceNumber", nctsHC_AdditionalReference_2_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_3_Type", nctsHC_AdditionalReference_3_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_3_ReferenceNumber", nctsHC_AdditionalReference_3_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_4_Type", nctsHC_AdditionalReference_4_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_4_ReferenceNumber", nctsHC_AdditionalReference_4_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_5_Type", nctsHC_AdditionalReference_5_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_5_ReferenceNumber", nctsHC_AdditionalReference_5_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_6_Type", nctsHC_AdditionalReference_6_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_6_ReferenceNumber", nctsHC_AdditionalReference_6_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_7_Type", nctsHC_AdditionalReference_7_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_7_ReferenceNumber", nctsHC_AdditionalReference_7_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_8_Type", nctsHC_AdditionalReference_8_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_8_ReferenceNumber", nctsHC_AdditionalReference_8_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_9_Type", nctsHC_AdditionalReference_9_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_9_ReferenceNumber", nctsHC_AdditionalReference_9_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_1_Code", nctsHC_AdditionalInformation_1_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_1_Text", nctsHC_AdditionalInformation_1_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_2_Code", nctsHC_AdditionalInformation_2_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_2_Text", nctsHC_AdditionalInformation_2_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_3_Code", nctsHC_AdditionalInformation_3_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_3_Text", nctsHC_AdditionalInformation_3_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_4_Code", nctsHC_AdditionalInformation_4_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_4_Text", nctsHC_AdditionalInformation_4_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_5_Code", nctsHC_AdditionalInformation_5_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_5_Text", nctsHC_AdditionalInformation_5_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_6_Code", nctsHC_AdditionalInformation_6_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_6_Text", nctsHC_AdditionalInformation_6_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_7_Code", nctsHC_AdditionalInformation_7_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_7_Text", nctsHC_AdditionalInformation_7_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_8_Code", nctsHC_AdditionalInformation_8_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_8_Text", nctsHC_AdditionalInformation_8_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_9_Code", nctsHC_AdditionalInformation_9_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_9_Text", nctsHC_AdditionalInformation_9_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportCharges", nctsHC_TransportCharges)) + + + + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + 'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list) + nctsHC_Id = SQL.doSQLVarListID(nctsHC_Id, getInsertCmd, "FMZOLL", , list) + Return nctsHC_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblNCTS_FREMD_HouseConsignment (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return "" + End Function + + + + + Public Sub LOAD_ConsignmentItem() + Try + nctsWP_CONSIGNMENT_ITEM.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblNCTS_FREMD_HouseConsignment_ConsignmentItem WHERE nctsHCCI_nctsHCId=@nctsHC_Id ", conn) + cmd.Parameters.AddWithValue("@nctsHC_Id", Me.nctsHC_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cNCTS_FREMD_HouseConsignment_ConsignmentItem() + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + l.LOAD_Packing() + nctsWP_CONSIGNMENT_ITEM.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Sub + + Public Function DELETE_ConsignmentItem() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblNCTS_FREMD_HouseConsignment_ConsignmentItem] WHERE nctsHCCI_nctsHCId=" & Me.nctsHC_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function INSERT_ConsignmentItem(nctsHCId, ncts_id) As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + + 'jetzt die Standartofferten einfügen + For Each p In nctsWP_CONSIGNMENT_ITEM + p.nctsHCCI_NctsHCId = nctsHCId + p.nctsHCCI_NctsId = ncts_id + If Not p.INSERT() Then + Return False + End If + Next + + Return True + End Function + + + + + + +End Class +Public Class cNCTS_FREMD_HouseConsignment_ConsignmentItem + Property nctsHCCI_Id As Integer + Property nctsHCCI_NctsId As Integer + Property nctsHCCI_NctsHCId As Integer + Property nctsHCCI_GoodsItemNumber As Object = Nothing + Property nctsHCCI_DeclarationGoodsItemNumber As Object = Nothing + Property nctsHCCI_CommodityCode As Object = Nothing + Property nctsHCCI_MethodeOfPayment As Object = Nothing + Property nctsHCCI_UNNumber_1 As Object = Nothing + Property nctsHCCI_UNNumber_2 As Object = Nothing + Property nctsHCCI_UNNumber_3 As Object = Nothing + Property nctsHCCI_UNNumber_4 As Object = Nothing + Property nctsHCCI_DeclarationType As Object = Nothing + Property nctsHCCI_ArticleCode As Object = Nothing + Property nctsHCCI_DescriptionOfGoods As Object = Nothing + Property nctsHCCI_CusCode As Object = Nothing + Property nctsHCCI_CountryOfDispatch As Object = Nothing + Property nctsHCCI_CountryOfDestination As Object = Nothing + Property nctsHCCI_GrossMass As Object = Nothing + Property nctsHCCI_NetMass As Object = Nothing + Property nctsHCCI_ReferenceNumberUCR As Object = Nothing + Property nctsHCCI_Consignor_AdressCode As Object = Nothing + Property nctsHCCI_Consignor_IdentificationNumber As Object = Nothing + Property nctsHCCI_Consignor_SubsidiaryNumber As Object = Nothing + Property nctsHCCI_Consignor_Name As Object = Nothing + Property nctsHCCI_Consignor_StreetNumber As Object = Nothing + Property nctsHCCI_Consignor_City As Object = Nothing + Property nctsHCCI_Consignor_Postcode As Object = Nothing + Property nctsHCCI_Consignor_Country As Object = Nothing + Property nctsHCCI_Consignor_ContactPerson_Name As Object = Nothing + Property nctsHCCI_Consignor_ContactPerson_PhoneNumber As Object = Nothing + Property nctsHCCI_Consignor_ContactPerson_EMailAddress As Object = Nothing + Property nctsHCCI_AdditionalSupplyChainActor_1_Role As Object = Nothing + Property nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber As Object = Nothing + Property nctsHCCI_AdditionalSupplyChainActor_2_Role As Object = Nothing + Property nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber As Object = Nothing + Property nctsHCCI_AdditionalSupplyChainActor_3_Role As Object = Nothing + Property nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber As Object = Nothing + Property nctsHCCI_AdditionalSupplyChainActor_4_Role As Object = Nothing + Property nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber As Object = Nothing + Property nctsHCCI_AdditionalSupplyChainActor_5_Role As Object = Nothing + Property nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber As Object = Nothing + Property nctsHCCI_AdditionalSupplyChainActor_6_Role As Object = Nothing + Property nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber As Object = Nothing + Property nctsHCCI_AdditionalSupplyChainActor_7_Role As Object = Nothing + Property nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber As Object = Nothing + Property nctsHCCI_AdditionalSupplyChainActor_8_Role As Object = Nothing + Property nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber As Object = Nothing + Property nctsHCCI_AdditionalSupplyChainActor_9_Role As Object = Nothing + Property nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber As Object = Nothing + Property nctsHCCI_GoodsValue As Object = Nothing + Property nctsHCCI_CurrencyOfGoodsValue As Object = Nothing + Property nctsHCCI_ExchangeRate As Object = Nothing + Property nctsHCCI_ExchangeDate As Object = Nothing + Property nctsHCCI_CurrencyExchangeRateType As Object = Nothing + Property nctsHCCI_FractionOfGoodsValue As Object = Nothing + Property nctsHCCI_GuaranteeAmount As Object = Nothing + Property nctsHCCI_PreviousDocument_1_Type As Object = Nothing + Property nctsHCCI_PreviousDocument_1_ReferenceNumber As Object = Nothing + Property nctsHCCI_PreviousDocument_1_DocumentLineItemNumber As Object = Nothing + Property nctsHCCI_PreviousDocument_1_ComplementOfInformation As Object = Nothing + Property nctsHCCI_PreviousDocument_1_GoodsItemNumber As Object = Nothing + Property nctsHCCI_PreviousDocument_2_Type As Object = Nothing + Property nctsHCCI_PreviousDocument_2_ReferenceNumber As Object = Nothing + Property nctsHCCI_PreviousDocument_2_DocumentLineItemNumber As Object = Nothing + Property nctsHCCI_PreviousDocument_2_ComplementOfInformation As Object = Nothing + Property nctsHCCI_PreviousDocument_2_GoodsItemNumber As Object = Nothing + Property nctsHCCI_PreviousDocument_3_Type As Object = Nothing + Property nctsHCCI_PreviousDocument_3_ReferenceNumber As Object = Nothing + Property nctsHCCI_PreviousDocument_3_DocumentLineItemNumber As Object = Nothing + Property nctsHCCI_PreviousDocument_3_ComplementOfInformation As Object = Nothing + Property nctsHCCI_PreviousDocument_3_GoodsItemNumber As Object = Nothing + Property nctsHCCI_PreviousDocument_4_Type As Object = Nothing + Property nctsHCCI_PreviousDocument_4_ReferenceNumber As Object = Nothing + Property nctsHCCI_PreviousDocument_4_DocumentLineItemNumber As Object = Nothing + Property nctsHCCI_PreviousDocument_4_ComplementOfInformation As Object = Nothing + Property nctsHCCI_PreviousDocument_4_GoodsItemNumber As Object = Nothing + Property nctsHCCI_PreviousDocument_5_Type As Object = Nothing + Property nctsHCCI_PreviousDocument_5_ReferenceNumber As Object = Nothing + Property nctsHCCI_PreviousDocument_5_DocumentLineItemNumber As Object = Nothing + Property nctsHCCI_PreviousDocument_5_ComplementOfInformation As Object = Nothing + Property nctsHCCI_PreviousDocument_5_GoodsItemNumber As Object = Nothing + Property nctsHCCI_PreviousDocument_6_Type As Object = Nothing + Property nctsHCCI_PreviousDocument_6_ReferenceNumber As Object = Nothing + Property nctsHCCI_PreviousDocument_6_DocumentLineItemNumber As Object = Nothing + Property nctsHCCI_PreviousDocument_6_ComplementOfInformation As Object = Nothing + Property nctsHCCI_PreviousDocument_6_GoodsItemNumber As Object = Nothing + Property nctsHCCI_PreviousDocument_7_Type As Object = Nothing + Property nctsHCCI_PreviousDocument_7_ReferenceNumber As Object = Nothing + Property nctsHCCI_PreviousDocument_7_DocumentLineItemNumber As Object = Nothing + Property nctsHCCI_PreviousDocument_7_ComplementOfInformation As Object = Nothing + Property nctsHCCI_PreviousDocument_7_GoodsItemNumber As Object = Nothing + Property nctsHCCI_PreviousDocument_8_Type As Object = Nothing + Property nctsHCCI_PreviousDocument_8_ReferenceNumber As Object = Nothing + Property nctsHCCI_PreviousDocument_8_DocumentLineItemNumber As Object = Nothing + Property nctsHCCI_PreviousDocument_8_ComplementOfInformation As Object = Nothing + Property nctsHCCI_PreviousDocument_8_GoodsItemNumber As Object = Nothing + Property nctsHCCI_PreviousDocument_9_Type As Object = Nothing + Property nctsHCCI_PreviousDocument_9_ReferenceNumber As Object = Nothing + Property nctsHCCI_PreviousDocument_9_DocumentLineItemNumber As Object = Nothing + Property nctsHCCI_PreviousDocument_9_ComplementOfInformation As Object = Nothing + Property nctsHCCI_PreviousDocument_9_GoodsItemNumber As Object = Nothing + Property nctsHCCI_SupportingDocument_1_Type As Object = Nothing + Property nctsHCCI_SupportingDocument_1_ReferenceNumber As Object = Nothing + Property nctsHCCI_SupportingDocument_1_DocumentLineItemNumber As Object = Nothing + Property nctsHCCI_SupportingDocument_1_ComplementOfInformation As Object = Nothing + Property nctsHCCI_SupportingDocument_2_Type As Object = Nothing + Property nctsHCCI_SupportingDocument_2_ReferenceNumber As Object = Nothing + Property nctsHCCI_SupportingDocument_2_DocumentLineItemNumber As Object = Nothing + Property nctsHCCI_SupportingDocument_2_ComplementOfInformation As Object = Nothing + Property nctsHCCI_SupportingDocument_3_Type As Object = Nothing + Property nctsHCCI_SupportingDocument_3_ReferenceNumber As Object = Nothing + Property nctsHCCI_SupportingDocument_3_DocumentLineItemNumber As Object = Nothing + Property nctsHCCI_SupportingDocument_3_ComplementOfInformation As Object = Nothing + Property nctsHCCI_SupportingDocument_4_Type As Object = Nothing + Property nctsHCCI_SupportingDocument_4_ReferenceNumber As Object = Nothing + Property nctsHCCI_SupportingDocument_4_DocumentLineItemNumber As Object = Nothing + Property nctsHCCI_SupportingDocument_4_ComplementOfInformation As Object = Nothing + Property nctsHCCI_SupportingDocument_5_Type As Object = Nothing + Property nctsHCCI_SupportingDocument_5_ReferenceNumber As Object = Nothing + Property nctsHCCI_SupportingDocument_5_DocumentLineItemNumber As Object = Nothing + Property nctsHCCI_SupportingDocument_5_ComplementOfInformation As Object = Nothing + Property nctsHCCI_SupportingDocument_6_Type As Object = Nothing + Property nctsHCCI_SupportingDocument_6_ReferenceNumber As Object = Nothing + Property nctsHCCI_SupportingDocument_6_DocumentLineItemNumber As Object = Nothing + Property nctsHCCI_SupportingDocument_6_ComplementOfInformation As Object = Nothing + Property nctsHCCI_SupportingDocument_7_Type As Object = Nothing + Property nctsHCCI_SupportingDocument_7_ReferenceNumber As Object = Nothing + Property nctsHCCI_SupportingDocument_7_DocumentLineItemNumber As Object = Nothing + Property nctsHCCI_SupportingDocument_7_ComplementOfInformation As Object = Nothing + Property nctsHCCI_SupportingDocument_8_Type As Object = Nothing + Property nctsHCCI_SupportingDocument_8_ReferenceNumber As Object = Nothing + Property nctsHCCI_SupportingDocument_8_DocumentLineItemNumber As Object = Nothing + Property nctsHCCI_SupportingDocument_8_ComplementOfInformation As Object = Nothing + Property nctsHCCI_SupportingDocument_9_Type As Object = Nothing + Property nctsHCCI_SupportingDocument_9_ReferenceNumber As Object = Nothing + Property nctsHCCI_SupportingDocument_9_DocumentLineItemNumber As Object = Nothing + Property nctsHCCI_SupportingDocument_9_ComplementOfInformation As Object = Nothing + Property nctsHCCI_AdditionalReference_1_Type As Object = Nothing + Property nctsHCCI_AdditionalReference_1_ReferenceNumber As Object = Nothing + Property nctsHCCI_AdditionalReference_2_Type As Object = Nothing + Property nctsHCCI_AdditionalReference_2_ReferenceNumber As Object = Nothing + Property nctsHCCI_AdditionalReference_3_Type As Object = Nothing + Property nctsHCCI_AdditionalReference_3_ReferenceNumber As Object = Nothing + Property nctsHCCI_AdditionalReference_4_Type As Object = Nothing + Property nctsHCCI_AdditionalReference_4_ReferenceNumber As Object = Nothing + Property nctsHCCI_AdditionalReference_5_Type As Object = Nothing + Property nctsHCCI_AdditionalReference_5_ReferenceNumber As Object = Nothing + Property nctsHCCI_AdditionalReference_6_Type As Object = Nothing + Property nctsHCCI_AdditionalReference_6_ReferenceNumber As Object = Nothing + Property nctsHCCI_AdditionalReference_7_Type As Object = Nothing + Property nctsHCCI_AdditionalReference_7_ReferenceNumber As Object = Nothing + Property nctsHCCI_AdditionalReference_8_Type As Object = Nothing + Property nctsHCCI_AdditionalReference_8_ReferenceNumber As Object = Nothing + Property nctsHCCI_AdditionalReference_9_Type As Object = Nothing + Property nctsHCCI_AdditionalReference_9_ReferenceNumber As Object = Nothing + Property nctsHCCI_AdditionalInformation_1_Code As Object = Nothing + Property nctsHCCI_AdditionalInformation_1_Text As Object = Nothing + Property nctsHCCI_AdditionalInformation_2_Code As Object = Nothing + Property nctsHCCI_AdditionalInformation_2_Text As Object = Nothing + Property nctsHCCI_AdditionalInformation_3_Code As Object = Nothing + Property nctsHCCI_AdditionalInformation_3_Text As Object = Nothing + Property nctsHCCI_AdditionalInformation_4_Code As Object = Nothing + Property nctsHCCI_AdditionalInformation_4_Text As Object = Nothing + Property nctsHCCI_AdditionalInformation_5_Code As Object = Nothing + Property nctsHCCI_AdditionalInformation_5_Text As Object = Nothing + Property nctsHCCI_AdditionalInformation_6_Code As Object = Nothing + Property nctsHCCI_AdditionalInformation_6_Text As Object = Nothing + Property nctsHCCI_AdditionalInformation_7_Code As Object = Nothing + Property nctsHCCI_AdditionalInformation_7_Text As Object = Nothing + Property nctsHCCI_AdditionalInformation_8_Code As Object = Nothing + Property nctsHCCI_AdditionalInformation_8_Text As Object = Nothing + Property nctsHCCI_AdditionalInformation_9_Code As Object = Nothing + Property nctsHCCI_AdditionalInformation_9_Text As Object = Nothing + + + Property nctsHCCI_PACKAGING As New List(Of cNCTS_FREMD_HouseConsignment_ConsignmentItem_Packaging) + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + ' Me.nctsHC_NctsId = nctsHC_NctsId + End Sub + + 'Sub New(nctsSA_Id) + ' Me.nctsSA_Id = nctsSA_Id + ' LOAD() + ' End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Id", nctsHCCI_Id, , True, True)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_NctsId", nctsHCCI_NctsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_NctsHCId", nctsHCCI_NctsHCId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_GoodsItemNumber", nctsHCCI_GoodsItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_DeclarationGoodsItemNumber", nctsHCCI_DeclarationGoodsItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_CommodityCode", nctsHCCI_CommodityCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_MethodeOfPayment", nctsHCCI_MethodeOfPayment)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_UNNumber_1", nctsHCCI_UNNumber_1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_UNNumber_2", nctsHCCI_UNNumber_2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_UNNumber_3", nctsHCCI_UNNumber_3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_UNNumber_4", nctsHCCI_UNNumber_4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_DeclarationType", nctsHCCI_DeclarationType)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_ArticleCode", nctsHCCI_ArticleCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_DescriptionOfGoods", nctsHCCI_DescriptionOfGoods)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_CusCode", nctsHCCI_CusCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_CountryOfDispatch", nctsHCCI_CountryOfDispatch)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_CountryOfDestination", nctsHCCI_CountryOfDestination)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_GrossMass", nctsHCCI_GrossMass)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_NetMass", nctsHCCI_NetMass)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_ReferenceNumberUCR", nctsHCCI_ReferenceNumberUCR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_AdressCode", nctsHCCI_Consignor_AdressCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_IdentificationNumber", nctsHCCI_Consignor_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_SubsidiaryNumber", nctsHCCI_Consignor_SubsidiaryNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_Name", nctsHCCI_Consignor_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_StreetNumber", nctsHCCI_Consignor_StreetNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_City", nctsHCCI_Consignor_City)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_Postcode", nctsHCCI_Consignor_Postcode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_Country", nctsHCCI_Consignor_Country)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_ContactPerson_Name", nctsHCCI_Consignor_ContactPerson_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_ContactPerson_PhoneNumber", nctsHCCI_Consignor_ContactPerson_PhoneNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_ContactPerson_EMailAddress", nctsHCCI_Consignor_ContactPerson_EMailAddress)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_1_Role", nctsHCCI_AdditionalSupplyChainActor_1_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_2_Role", nctsHCCI_AdditionalSupplyChainActor_2_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_3_Role", nctsHCCI_AdditionalSupplyChainActor_3_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_4_Role", nctsHCCI_AdditionalSupplyChainActor_4_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_5_Role", nctsHCCI_AdditionalSupplyChainActor_5_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_6_Role", nctsHCCI_AdditionalSupplyChainActor_6_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_7_Role", nctsHCCI_AdditionalSupplyChainActor_7_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_8_Role", nctsHCCI_AdditionalSupplyChainActor_8_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_9_Role", nctsHCCI_AdditionalSupplyChainActor_9_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_GoodsValue", nctsHCCI_GoodsValue)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_CurrencyOfGoodsValue", nctsHCCI_CurrencyOfGoodsValue)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_ExchangeRate", nctsHCCI_ExchangeRate)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_ExchangeDate", nctsHCCI_ExchangeDate)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_CurrencyExchangeRateType", nctsHCCI_CurrencyExchangeRateType)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_FractionOfGoodsValue", nctsHCCI_FractionOfGoodsValue)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_GuaranteeAmount", nctsHCCI_GuaranteeAmount)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_1_Type", nctsHCCI_PreviousDocument_1_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_1_ReferenceNumber", nctsHCCI_PreviousDocument_1_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_1_DocumentLineItemNumber", nctsHCCI_PreviousDocument_1_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_1_ComplementOfInformation", nctsHCCI_PreviousDocument_1_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_1_GoodsItemNumber", nctsHCCI_PreviousDocument_1_GoodsItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_2_Type", nctsHCCI_PreviousDocument_2_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_2_ReferenceNumber", nctsHCCI_PreviousDocument_2_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_2_DocumentLineItemNumber", nctsHCCI_PreviousDocument_2_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_2_ComplementOfInformation", nctsHCCI_PreviousDocument_2_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_2_GoodsItemNumber", nctsHCCI_PreviousDocument_2_GoodsItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_3_Type", nctsHCCI_PreviousDocument_3_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_3_ReferenceNumber", nctsHCCI_PreviousDocument_3_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_3_DocumentLineItemNumber", nctsHCCI_PreviousDocument_3_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_3_ComplementOfInformation", nctsHCCI_PreviousDocument_3_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_3_GoodsItemNumber", nctsHCCI_PreviousDocument_3_GoodsItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_4_Type", nctsHCCI_PreviousDocument_4_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_4_ReferenceNumber", nctsHCCI_PreviousDocument_4_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_4_DocumentLineItemNumber", nctsHCCI_PreviousDocument_4_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_4_ComplementOfInformation", nctsHCCI_PreviousDocument_4_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_4_GoodsItemNumber", nctsHCCI_PreviousDocument_4_GoodsItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_5_Type", nctsHCCI_PreviousDocument_5_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_5_ReferenceNumber", nctsHCCI_PreviousDocument_5_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_5_DocumentLineItemNumber", nctsHCCI_PreviousDocument_5_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_5_ComplementOfInformation", nctsHCCI_PreviousDocument_5_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_5_GoodsItemNumber", nctsHCCI_PreviousDocument_5_GoodsItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_6_Type", nctsHCCI_PreviousDocument_6_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_6_ReferenceNumber", nctsHCCI_PreviousDocument_6_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_6_DocumentLineItemNumber", nctsHCCI_PreviousDocument_6_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_6_ComplementOfInformation", nctsHCCI_PreviousDocument_6_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_6_GoodsItemNumber", nctsHCCI_PreviousDocument_6_GoodsItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_7_Type", nctsHCCI_PreviousDocument_7_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_7_ReferenceNumber", nctsHCCI_PreviousDocument_7_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_7_DocumentLineItemNumber", nctsHCCI_PreviousDocument_7_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_7_ComplementOfInformation", nctsHCCI_PreviousDocument_7_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_7_GoodsItemNumber", nctsHCCI_PreviousDocument_7_GoodsItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_8_Type", nctsHCCI_PreviousDocument_8_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_8_ReferenceNumber", nctsHCCI_PreviousDocument_8_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_8_DocumentLineItemNumber", nctsHCCI_PreviousDocument_8_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_8_ComplementOfInformation", nctsHCCI_PreviousDocument_8_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_8_GoodsItemNumber", nctsHCCI_PreviousDocument_8_GoodsItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_9_Type", nctsHCCI_PreviousDocument_9_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_9_ReferenceNumber", nctsHCCI_PreviousDocument_9_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_9_DocumentLineItemNumber", nctsHCCI_PreviousDocument_9_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_9_ComplementOfInformation", nctsHCCI_PreviousDocument_9_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_9_GoodsItemNumber", nctsHCCI_PreviousDocument_9_GoodsItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_1_Type", nctsHCCI_SupportingDocument_1_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_1_ReferenceNumber", nctsHCCI_SupportingDocument_1_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_1_DocumentLineItemNumber", nctsHCCI_SupportingDocument_1_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_1_ComplementOfInformation", nctsHCCI_SupportingDocument_1_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_2_Type", nctsHCCI_SupportingDocument_2_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_2_ReferenceNumber", nctsHCCI_SupportingDocument_2_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_2_DocumentLineItemNumber", nctsHCCI_SupportingDocument_2_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_2_ComplementOfInformation", nctsHCCI_SupportingDocument_2_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_3_Type", nctsHCCI_SupportingDocument_3_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_3_ReferenceNumber", nctsHCCI_SupportingDocument_3_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_3_DocumentLineItemNumber", nctsHCCI_SupportingDocument_3_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_3_ComplementOfInformation", nctsHCCI_SupportingDocument_3_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_4_Type", nctsHCCI_SupportingDocument_4_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_4_ReferenceNumber", nctsHCCI_SupportingDocument_4_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_4_DocumentLineItemNumber", nctsHCCI_SupportingDocument_4_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_4_ComplementOfInformation", nctsHCCI_SupportingDocument_4_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_5_Type", nctsHCCI_SupportingDocument_5_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_5_ReferenceNumber", nctsHCCI_SupportingDocument_5_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_5_DocumentLineItemNumber", nctsHCCI_SupportingDocument_5_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_5_ComplementOfInformation", nctsHCCI_SupportingDocument_5_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_6_Type", nctsHCCI_SupportingDocument_6_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_6_ReferenceNumber", nctsHCCI_SupportingDocument_6_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_6_DocumentLineItemNumber", nctsHCCI_SupportingDocument_6_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_6_ComplementOfInformation", nctsHCCI_SupportingDocument_6_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_7_Type", nctsHCCI_SupportingDocument_7_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_7_ReferenceNumber", nctsHCCI_SupportingDocument_7_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_7_DocumentLineItemNumber", nctsHCCI_SupportingDocument_7_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_7_ComplementOfInformation", nctsHCCI_SupportingDocument_7_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_8_Type", nctsHCCI_SupportingDocument_8_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_8_ReferenceNumber", nctsHCCI_SupportingDocument_8_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_8_DocumentLineItemNumber", nctsHCCI_SupportingDocument_8_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_8_ComplementOfInformation", nctsHCCI_SupportingDocument_8_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_9_Type", nctsHCCI_SupportingDocument_9_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_9_ReferenceNumber", nctsHCCI_SupportingDocument_9_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_9_DocumentLineItemNumber", nctsHCCI_SupportingDocument_9_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_9_ComplementOfInformation", nctsHCCI_SupportingDocument_9_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_1_Type", nctsHCCI_AdditionalReference_1_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_1_ReferenceNumber", nctsHCCI_AdditionalReference_1_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_2_Type", nctsHCCI_AdditionalReference_2_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_2_ReferenceNumber", nctsHCCI_AdditionalReference_2_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_3_Type", nctsHCCI_AdditionalReference_3_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_3_ReferenceNumber", nctsHCCI_AdditionalReference_3_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_4_Type", nctsHCCI_AdditionalReference_4_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_4_ReferenceNumber", nctsHCCI_AdditionalReference_4_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_5_Type", nctsHCCI_AdditionalReference_5_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_5_ReferenceNumber", nctsHCCI_AdditionalReference_5_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_6_Type", nctsHCCI_AdditionalReference_6_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_6_ReferenceNumber", nctsHCCI_AdditionalReference_6_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_7_Type", nctsHCCI_AdditionalReference_7_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_7_ReferenceNumber", nctsHCCI_AdditionalReference_7_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_8_Type", nctsHCCI_AdditionalReference_8_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_8_ReferenceNumber", nctsHCCI_AdditionalReference_8_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_9_Type", nctsHCCI_AdditionalReference_9_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_9_ReferenceNumber", nctsHCCI_AdditionalReference_9_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_1_Code", nctsHCCI_AdditionalInformation_1_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_1_Text", nctsHCCI_AdditionalInformation_1_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_2_Code", nctsHCCI_AdditionalInformation_2_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_2_Text", nctsHCCI_AdditionalInformation_2_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_3_Code", nctsHCCI_AdditionalInformation_3_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_3_Text", nctsHCCI_AdditionalInformation_3_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_4_Code", nctsHCCI_AdditionalInformation_4_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_4_Text", nctsHCCI_AdditionalInformation_4_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_5_Code", nctsHCCI_AdditionalInformation_5_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_5_Text", nctsHCCI_AdditionalInformation_5_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_6_Code", nctsHCCI_AdditionalInformation_6_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_6_Text", nctsHCCI_AdditionalInformation_6_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_7_Code", nctsHCCI_AdditionalInformation_7_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_7_Text", nctsHCCI_AdditionalInformation_7_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_8_Code", nctsHCCI_AdditionalInformation_8_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_8_Text", nctsHCCI_AdditionalInformation_8_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_9_Code", nctsHCCI_AdditionalInformation_9_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_9_Text", nctsHCCI_AdditionalInformation_9_Text)) + + + + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + 'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list) + nctsHCCI_Id = SQL.doSQLVarListID(nctsHCCI_Id, getInsertCmd, "FMZOLL", , list) + Return nctsHCCI_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblNCTS_FREMD_HouseConsignment_ConsignmentItem (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return "" + End Function + + + + + Public Sub LOAD_Packing() + Try + nctsHCCI_PACKAGING.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblNCTS_FREMD_HouseConsignment_ConsignmentItem_Packaging WHERE [nctsHCCIPK_NctsHCCIId]=@nctsHCCI_id ", conn) + cmd.Parameters.AddWithValue("@nctsHCCI_id", Me.nctsHCCI_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cNCTS_FREMD_HouseConsignment_ConsignmentItem_Packaging + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + nctsHCCI_PACKAGING.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Sub + + Public Function DELETE_Packing() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblNCTS_FREMD_HouseConsignment_ConsignmentItem_Packaging] WHERE nctsHCCIPK_NctsHCCIId=" & Me.nctsHCCI_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function INSERT_Packing(NctsHCCIId, NctsHCId, ncts_id) As Boolean + For Each p In nctsHCCI_PACKAGING + p.nctsHCCIPK_NctsHCCIId = NctsHCCIId + p.nctsHCCIPK_NctsHCId = NctsHCId + p.nctsHCCIPK_NctsId = ncts_id + If Not p.INSERT() Then + Return False + End If + Next + + Return True + End Function + + + + + + +End Class + + + +Public Class cNCTS_FREMD_HouseConsignment_ConsignmentItem_Packaging + + + Property nctsHCCIPK_Id As Integer + Property nctsHCCIPK_NctsId As Integer + Property nctsHCCIPK_NctsHCId As Integer + Property nctsHCCIPK_NctsHCCIId As Integer + Property nctsHCCIPK_NumberOfPackages As Object = Nothing + Property nctsHCCIPK_TypeOfPackages As Object = Nothing + Property nctsHCCIPK_ShippingMarks As Object = Nothing + Property nctsHCCIPK_GoodsItemNumber As Object = Nothing + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + ' Me.nctsWpPk_nctsWPId = nctsWpPk_nctsWPId + End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_Id", nctsHCCIPK_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_NctsId", nctsHCCIPK_NctsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_NctsHCId", nctsHCCIPK_NctsHCId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_NctsHCCIId", nctsHCCIPK_NctsHCCIId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_NumberOfPackages", nctsHCCIPK_NumberOfPackages)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_TypeOfPackages", nctsHCCIPK_TypeOfPackages)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_ShippingMarks", nctsHCCIPK_ShippingMarks)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_GoodsItemNumber", nctsHCCIPK_GoodsItemNumber)) + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + nctsHCCIPK_Id = SQL.doSQLVarListID(nctsHCCIPK_Id, getInsertCmd(), "FMZOLL", , list) + Return nctsHCCIPK_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblNCTS_FREMD_HouseConsignment_ConsignmentItem_Packaging (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return "" + End Function + +End Class diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/ctypes.xsd b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/ctypes.xsd new file mode 100644 index 00000000..105e9384 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/ctypes.xsd @@ -0,0 +1,22887 @@ + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC191C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC026C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC034C + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CD070C, CD071C, CD971C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC029C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC013C, CC015C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC017C, CC170C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 7/91 messages: CD001C, CD003C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC017C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 10/91 messages: CC029C, CC043C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC013C, CC015C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD018C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 10/91 messages: CC029C, CC043C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 10/91 messages: CC029C, CC043C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC013C, CC015C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC013C, CC015C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC017C, CC044C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 12/91 messages: CC013C, CC015C, CC017C, CC029C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC007C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC029C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC055C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC190C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC224C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC228C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 14/91 messages: CC004C, CC009C, CC019C, CC023C, CC028C, CC029C, CC035C, CC043C, CC045C, CC056C, CC060C, CC140C, CC228C, CC928C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC017C, CC141C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC029C, CC043C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC037C, CC043C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD150C, CD151C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CC013C, CC015C, CC017C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CC037C, CD150C, CD151C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 4/91 messages: CC007C, CC013C, CC015C, CC170C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 4/91 messages: CC014C, CC022C, CC026C, CC051C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 5/91 messages: CC019C, CC023C, CC035C, CC045C, CC229C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 7/91 messages: CC013C, CC015C, CC017C, CC054C, CC141C, CC170C, CC224C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 8/91 messages: CC043C, CC182C, CD003C, CD038C, CD115C, CD165C, CD180C, CD181C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 8/91 messages: CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 9/91 messages: CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD142C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD150C, CD151C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC007C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC029C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC013C, CC015C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC043C + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CC017C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + Used by 5/91 messages: CD001C, CD003C, CD038C, CD050C, CD115C + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC029C + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC013C, CC015C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD018C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC013C, CC015C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC017C, CC044C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CC190C, CD200C, CD203C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 5/91 messages: CC029C, CC043C, CD001C, CD003C, CD038C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 6/91 messages: CC025C, CD012C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC017C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC025C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC044C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC190C + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD012C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD018C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC013C, CC015C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC029C, CC043C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD200C, CD203C + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CD001C, CD003C, CD038C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 4/91 messages: CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD144C, CD145C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD144C, CD145C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC037C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC141C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD142C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC017C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC013C, CC015C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC029C, CC043C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC029C, CC043C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CC013C, CC015C, CC017C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 8/91 messages: CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 8/91 messages: CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC017C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC025C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC029C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC043C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC044C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC190C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD012C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD018C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC013C, CC015C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD200C, CD203C + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CD001C, CD003C, CD038C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 4/91 messages: CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC007C + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC017C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC025C + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC029C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC043C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC044C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC141C + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC170C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC190C + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD001C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD003C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD012C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD018C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD038C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD050C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD115C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD142C + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD160C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC013C, CC015C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD200C, CD203C + + + + + + + + + + + + + + + + + Used by 3/91 messages: CC182C, CD180C, CD181C + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC017C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC017C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC029C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC029C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC043C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC043C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC013C, CC015C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 8/91 messages: CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 8/91 messages: CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD903D + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 10/91 messages: CC029C, CC037C, CC051C, CD142C, CD143C, CD144C, CD145C, CD150C, CD151C, CD152C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC029C, CC190C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD150C, CD151C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CC009C, CC014C, CC060C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CC013C, CC015C, CC170C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 4/91 messages: CC007C, CC013C, CC015C, CC170C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC017C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC029C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC042C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD012C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD018C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CD001C, CD050C, CD160C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 4/91 messages: CD003C, CD038C, CD115C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD200C, CD203C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 11/91 messages: CC013C, CC015C, CC029C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC017C, CD018C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD971C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD070C, CD071C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CD094C, CD095C, CD144C + + + + + + + + + + + + + + + + + + + + Used by 4/91 messages: CD003C, CD038C, CD115C, CD165C + + + + + + + + + + + + + + + + + + + + Used by 47/91 messages: CC004C, CC009C, CC013C, CC014C, CC015C, CC017C, CC019C, CC022C, CC023C, CC028C, CC029C, CC035C, CC037C, CC042C, CC045C, CC051C, CC054C, CC055C, CC056C, CC060C, CC140C, CC170C, CC182C, CC190C, CC191C, CC928C, CD001C, CD006C, CD010C, CD012C, CD018C, CD024C, CD049C, CD050C, CD059C, CD118C, CD142C, CD160C, CD168C, CD180C, CD181C, CD200C, CD201C, CD203C, CD204C, CD205C, CD209C + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC141C + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD063C + + + + + + + + + + + + + + + + + + + + Used by 11/91 messages: CC007C, CC025C, CC043C, CC044C, CC057C, CD002C, CD003C, CD006C, CD018C, CD024C, CD049C + + + + + + + + + + + + + + + + + + + + + + + Used by 12/91 messages: CC013C, CC015C, CC017C, CC029C, CD001C, CD010C, CD012C, CD024C, CD050C, CD063C, CD160C, CD181C + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD200C, CD203C + + + + + + + + + + + + + + + + + + + + Used by 4/91 messages: CD003C, CD038C, CD115C, CD165C + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD094C, CD095C + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CC037C, CC042C, CC048C + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CC140C, CC141C, CD143C + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD142C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD024C, CD063C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CD164C, CD165C, CD168C + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD160C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 10/91 messages: CC013C, CC015C, CC017C, CC029C, CD001C, CD010C, CD024C, CD050C, CD063C, CD181C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 4/91 messages: CD003C, CD038C, CD115C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD094C, CD095C + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CC042C, CC190C, CC191C + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD201C, CD205C + + + + + + + + + + + + + + + + + + + + Used by 9/91 messages: CC026C, CC037C, CC224C, CC225C, CC228C, CC229C, CC231C, CD204C, CD209C + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD063C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CC182C, CD180C, CD181C + + + + + + + + + + + + + + + + + + + + + + + Used by 4/91 messages: CC023C, CC035C, CC048C, CD063C + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD152C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD150C + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD151C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD151C + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD150C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD152C + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD027C, CD038C + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD059C, CD142C + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD143C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD115C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD024C, CD063C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD114C, CD118C + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD050C, CD160C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 4/91 messages: CD003C, CD038C, CD115C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 4/91 messages: CD010C, CD024C, CD063C, CD181C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 5/91 messages: CC013C, CC015C, CC017C, CC029C, CD001C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD094C, CD095C + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC007C + + + + + + + + + + + + + + + + + + + + Used by 5/91 messages: CC013C, CC015C, CC029C, CC170C, CC190C + + + + + + + + + + + + + + + + + + + + + + + Used by 13/91 messages: CC013C, CC015C, CC025C, CC029C, CC043C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC017C, CD018C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD018C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 10/91 messages: CC029C, CC043C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC013C, CC015C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC017C, CC044C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CC013C, CC015C, CC170C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 8/91 messages: CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC029C + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC190C + + + + + + + + + + + + + + + + + + + Used by 4/91 messages: CC007C, CC013C, CC015C, CC170C + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC007C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD038C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 7/91 messages: CC043C, CC182C, CD003C, CD115C, CD165C, CD180C, CD181C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC141C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD142C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD143C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD144C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD145C + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD903D + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC048C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC190C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD078C + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC042C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC191C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC037C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CD070C, CD071C, CD971C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC022C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC906C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD906C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC056C, CC057C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 14/91 messages: CC007C, CC013C, CC015C, CC029C, CC043C, CC170C, CC182C, CC190C, CD003C, CD038C, CD115C, CD165C, CD180C, CD181C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC191C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC190C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC013C, CC015C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CC025C, CC029C, CC043C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 4/91 messages: CC017C, CC044C, CD012C, CD018C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 7/91 messages: CD001C, CD003C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 12/91 messages: CC007C, CC017C, CC043C, CC044C, CC182C, CD003C, CD018C, CD038C, CD115C, CD165C, CD180C, CD181C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 13/91 messages: CC013C, CC015C, CC029C, CC043C, CC170C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC191C + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC034C, CC037C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC029C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC224C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC013C, CC015C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD200C, CD203C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC026C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC034C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC037C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC055C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC225C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC228C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC229C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC231C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD150C, CD151C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD201C, CD205C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD204C, CD209C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC013C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC015C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC029C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD204C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD209C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD200C, CD203C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD201C, CD205C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC023C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC037C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC224C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC228C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC229C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD150C, CD151C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 4/91 messages: CC019C, CC023C, CC035C, CC045C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC906C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC917C + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD906C + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD917C + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD974C + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD975C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 6/91 messages: CC225C, CC231C, CD200C, CD201C, CD203C, CD205C + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC014C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC017C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC026C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC029C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC043C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC055C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC056C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC224C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC228C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD001C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD012C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC009C, CC060C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC013C, CC015C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC022C, CC051C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD003C, CD038C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD050C, CD160C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD115C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CC054C, CC141C, CC170C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 8/91 messages: CC004C, CC019C, CC023C, CC028C, CC035C, CC045C, CC140C, CC928C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC017C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC025C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC029C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC043C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC044C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC170C + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC190C + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD012C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD018C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC013C, CC015C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD200C, CD203C + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CD001C, CD003C, CD038C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 4/91 messages: CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC007C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD038C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CC182C, CD180C, CD181C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 4/91 messages: CC043C, CD003C, CD115C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC037C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC037C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC055C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD201C, CD205C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC009C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC014C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD010C + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC007C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC029C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC170C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC190C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC013C, CC015C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC007C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 8/91 messages: CC043C, CC182C, CD003C, CD038C, CD115C, CD165C, CD180C, CD181C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC034C + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC037C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD018C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 11/91 messages: CC025C, CC029C, CC043C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC013C, CC015C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC017C, CC044C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC017C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC029C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CC013C, CC015C, CC170C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 7/91 messages: CD001C, CD003C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CC013C, CC015C, CC017C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 8/91 messages: CC029C, CD001C, CD003C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC029C, CC190C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 4/91 messages: CC007C, CC013C, CC015C, CC170C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC017C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC017C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC029C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC043C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC191C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 10/91 messages: CC029C, CC043C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 10/91 messages: CC029C, CC043C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC013C, CC015C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC013C, CC015C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CC013C, CC015C, CC017C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 8/91 messages: CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC035C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD150C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD151C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD152C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC056C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC029C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC051C + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC060C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CC013C, CC015C, CC170C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC060C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD145C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC034C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC037C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD144C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 7/91 messages: CD001C, CD003C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 7/91 messages: CD001C, CD003C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 7/91 messages: CD001C, CD003C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC017C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC044C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD018C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 13/91 messages: CC029C, CC043C, CC182C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C, CD180C, CD181C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 4/91 messages: CC007C, CC013C, CC015C, CC170C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD411D + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD411D + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD411D + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC017C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC043C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC044C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD018C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC013C, CC015C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 9/91 messages: CC029C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD411D + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC007C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC044C + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CC025C, CC043C, CC057C + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC007C + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 8/91 messages: CC043C, CC182C, CD003C, CD038C, CD115C, CD165C, CD180C, CD181C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC004C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC007C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC009C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC013C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC014C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC015C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC017C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC019C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC022C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC025C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC028C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC029C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC042C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC043C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC044C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC045C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC048C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC051C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC054C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC056C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC057C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC060C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC140C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC170C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC191C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC928C + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD001C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD003C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD012C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD018C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD024C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD038C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD049C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD050C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD059C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD063C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD094C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD095C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD115C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD160C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD204C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 15/91 messages: CC141C, CD002C, CD010C, CD027C, CD114C, CD142C, CD143C, CD144C, CD145C, CD150C, CD151C, CD152C, CD164C, CD201C, CD205C + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC040C, CD078C + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD006C, CD209C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CD118C, CD168C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CC182C, CD180C, CD181C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 5/91 messages: CC023C, CC035C, CC055C, CD200C, CD203C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC190C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 11/91 messages: CC013C, CC015C, CC017C, CC029C, CD001C, CD003C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD018C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 10/91 messages: CC029C, CC043C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC017C, CC044C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CC013C, CC015C, CC017C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC007C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC017C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC044C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CD018C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 10/91 messages: CC029C, CC043C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CC013C, CC015C, CC170C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 8/91 messages: CC043C, CC182C, CD003C, CD038C, CD115C, CD165C, CD180C, CD181C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC007C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 8/91 messages: CC043C, CC182C, CD003C, CD038C, CD115C, CD165C, CD180C, CD181C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC060C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CD070C, CD071C, CD971C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC044C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC037C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 3/91 messages: CC037C, CD201C, CD205C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Used by 2/91 messages: CC917C, CD917C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/doc.xsd b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/doc.xsd new file mode 100644 index 00000000..e4d1a782 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/doc.xsd @@ -0,0 +1,27 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/htypes.xsd b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/htypes.xsd new file mode 100644 index 00000000..0c75d3d9 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/htypes.xsd @@ -0,0 +1,99 @@ + + + + + + + + + + + Used by all messages + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/stypes.xsd b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/stypes.xsd new file mode 100644 index 00000000..f0930821 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/stypes.xsd @@ -0,0 +1,4351 @@ + + + + + + + + + + + + + + + + + + + Used by 1/91 messages: CC037C + + + + + + + + + + + Used by 3/91 messages: CC029C, CD200C, CD203C + + + + + + + + Used by 4/91 messages: CC013C, CC015C, CC034C, CC224C + + + + + + + + + + + Used by 1/91 messages: CC026C + + + + + + + + + + + Used by 1/91 messages: CC026C + + + + + + + + + + + Used by 3/91 messages: CC013C, CC015C, CC029C + + + + + + + + + + + + + Used by 2/91 messages: CC029C, CC190C + + + + + + + + Used by 4/91 messages: CC007C, CC013C, CC015C, CC170C + + + + + + + + + + + Used by 2/91 messages: CC190C, CC191C + + + + + + + + + + + + + Used by 2/91 messages: CC004C, CC190C + + + + + + + + + + + Used by 1/91 messages: CC022C + + + + + + + + + + + Used by 1/91 messages: CC004C + + + + + + + + + + + Used by 1/91 messages: CC013C + + + + + + + + + + + + + Used by 1/91 messages: CC035C + + + + + + + + + + + Used by 2/91 messages: CD200C, CD203C + + + + + + + + + + + Used by 3/91 messages: CC013C, CC015C, CC029C + + + + + + + + + + + Used by 3/91 messages: CD006C, CD024C, CD209C + + + + + + + + + + + Used by 1/91 messages: CC037C + + + + + + + + + + + Used by 11/91 messages: CC013C, CC015C, CC017C, CC029C, CD001C, CD003C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + Used by 1/91 messages: CC007C + + + + + + + + + + + Used by 2/91 messages: CC029C, CC190C + + + + + + + + Used by 4/91 messages: CC007C, CC013C, CC015C, CC170C + + + + + + + + + + + Used by 1/91 messages: CC007C + + + + + + + + Used by 8/91 messages: CC043C, CC182C, CD003C, CD038C, CD115C, CD165C, CD180C, CD181C + + + + + + + + + + + Used by 1/91 messages: CC037C + + + + + + + + + + + Used by 13/91 messages: CC013C, CC015C, CC017C, CC029C, CD001C, CD003C, CD012C, CD018C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + Used by 2/91 messages: CC056C, CC057C + + + + + + + + + + + + + Used by 1/91 messages: CD059C + + + + + + + + + + + Used by 1/91 messages: CD059C + + + + + + + + + + + Used by 32/91 messages: CC004C, CC009C, CC019C, CC023C, CC028C, CC029C, CC035C, CC037C, CC043C, CC045C, CC055C, CC056C, CC060C, CC140C, CC182C, CC190C, CC228C, CC229C, CC928C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD142C, CD150C, CD151C, CD160C, CD165C, CD180C, CD181C + + + + + + + + Used by 4/91 messages: CC014C, CC022C, CC026C, CC051C + + + + + + + + Used by 8/91 messages: CC007C, CC013C, CC015C, CC017C, CC054C, CC141C, CC170C, CC224C + + + + + + + + + + + Used by 10/91 messages: CC007C, CC043C, CC182C, CD003C, CD038C, CD115C, CD145C, CD165C, CD180C, CD181C + + + + + + + + + + Used by 12/91 messages: CC017C, CC029C, CC042C, CD001C, CD003C, CD012C, CD018C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + Used by 13/91 messages: CC013C, CC015C, CC017C, CC029C, CC043C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + Used by 3/91 messages: CC055C, CD201C, CD205C + + + + + + + + + + Used by 7/91 messages: CD001C, CD003C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + Used by 7/91 messages: CD001C, CD003C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + Used by 1/91 messages: CD152C + + + + + + + + + + + Used by 15/91 messages: CC025C, CC029C, CC043C, CC190C, CD001C, CD003C, CD012C, CD018C, CD038C, CD050C, CD115C, CD160C, CD165C, CD200C, CD203C + + + + + + + + Used by 4/91 messages: CC013C, CC015C, CC017C, CC044C + + + + + + + + + + + Used by 3/91 messages: CC013C, CC015C, CC029C + + + + + + + + + + + Used by 1/91 messages: CC007C + + + + + + + + + + + Used by 11/91 messages: CC029C, CC043C, CD001C, CD003C, CD012C, CD018C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + Used by 4/91 messages: CC013C, CC015C, CC017C, CC044C + + + + + + + + + + + Used by 1/91 messages: CC017C + + + + + + + + + + + + + Used by 1/91 messages: CC044C + + + + + + + + + + + + + Used by 2/91 messages: CD150C, CD151C + + + + + + + + + + + + + Used by 14/91 messages: CC029C, CC043C, CC182C, CD001C, CD003C, CD012C, CD018C, CD038C, CD050C, CD115C, CD160C, CD165C, CD180C, CD181C + + + + + + + + Used by 6/91 messages: CC007C, CC013C, CC015C, CC017C, CC044C, CC170C + + + + + + + + + + + Used by 18/91 messages: CC007C, CC013C, CC015C, CC017C, CC029C, CC043C, CC170C, CC182C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C, CD180C, CD181C + + + + + + + + + + + + + Used by 1/91 messages: CC043C + + + + + + + + + + + Used by 1/91 messages: CC017C + + + + + + + + Used by 1/91 messages: CC029C + + + + + + + + + + + Used by 1/91 messages: CC060C + + + + + + + + + + + Used by 1/91 messages: CC029C + + + + + + + + Used by 4/91 messages: CC013C, CC015C, CC017C, CC170C + + + + + + + + Used by 7/91 messages: CD001C, CD003C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + Used by 2/91 messages: CC037C, CC224C + + + + + + + + + + + + + Used by 1/91 messages: CD411D + + + + + + + + + + + Used by 52/91 messages: CC004C, CC007C, CC009C, CC013C, CC014C, CC015C, CC017C, CC019C, CC022C, CC023C, CC026C, CC028C, CC029C, CC035C, CC037C, CC043C, CC045C, CC051C, CC054C, CC055C, CC056C, CC060C, CC140C, CC141C, CC170C, CC182C, CC190C, CC224C, CC228C, CC229C, CC928C, CD001C, CD003C, CD012C, CD018C, CD038C, CD050C, CD070C, CD071C, CD115C, CD142C, CD150C, CD151C, CD160C, CD165C, CD180C, CD181C, CD200C, CD203C, CD411D, CD903D, CD971C + + + + + + + + + + + Used by 13/91 messages: CC013C, CC015C, CC017C, CC029C, CC043C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + Used by 12/91 messages: CC013C, CC015C, CC017C, CC029C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + Used by 1/91 messages: CC037C + + + + + + + + + + + Used by 10/91 messages: CC013C, CC015C, CC029C, CC035C, CC037C, CC224C, CC225C, CC228C, CD200C, CD203C + + + + + + + + + + + + + Used by 18/91 messages: CC013C, CC015C, CC017C, CC025C, CC029C, CC043C, CC044C, CD001C, CD003C, CD012C, CD018C, CD038C, CD050C, CD115C, CD160C, CD165C, CD200C, CD203C + + + + + + + + + + + + + Used by 12/91 messages: CC013C, CC015C, CC017C, CC029C, CC170C, CD001C, CD003C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + Used by 18/91 messages: CC007C, CC017C, CC029C, CC042C, CC043C, CC182C, CD001C, CD003C, CD012C, CD018C, CD038C, CD050C, CD115C, CD142C, CD160C, CD165C, CD180C, CD181C + + + + + + + + + + + Used by 2/91 messages: CC009C, CC014C + + + + + + + + + + + + + Used by 3/91 messages: CC009C, CC014C, CD010C + + + + + + + + + + + Used by 17/91 messages: CC023C, CC028C, CC029C, CC035C, CC043C, CC055C, CC190C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C, CD200C, CD203C + + + + + + + + + + + Used by 22/91 messages: CC007C, CC013C, CC015C, CC017C, CC025C, CC029C, CC043C, CC044C, CC170C, CC182C, CC190C, CD001C, CD003C, CD012C, CD018C, CD038C, CD050C, CD115C, CD160C, CD165C, CD180C, CD181C + + + + + + + + Used by 7/91 messages: CD001C, CD003C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + Used by 1/91 messages: CC051C + + + + + + + + + + + Used by 1/91 messages: CC042C + + + + + + + + Used by 13/91 messages: CC013C, CC015C, CC017C, CC029C, CC043C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + Used by 1/91 messages: CC060C + + + + + + + + + + + Used by 12/91 messages: CC025C, CC029C, CC043C, CD001C, CD003C, CD012C, CD018C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + Used by 4/91 messages: CC013C, CC015C, CC017C, CC044C + + + + + + + + + + + Used by 1/91 messages: CC019C + + + + + + + + + + + Used by 1/91 messages: CC019C + + + + + + + + + + + Used by 1/91 messages: CD049C + + + + + + + + + + + + + Used by 11/91 messages: CC013C, CC015C, CC029C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + Used by 1/91 messages: CC060C + + + + + + + + + + + + + Used by 14/91 messages: CC009C, CC014C, CC029C, CC037C, CC051C, CC060C, CC190C, CD142C, CD143C, CD144C, CD145C, CD150C, CD151C, CD152C + + + + + + + + Used by 4/91 messages: CC007C, CC013C, CC015C, CC170C + + + + + + + + + + + Used by 3/91 messages: CD070C, CD071C, CD971C + + + + + + + + + + + Used by 2/91 messages: CD144C, CD145C + + + + + + + + + + + Used by 1/91 messages: CD143C + + + + + + + + + + + Used by 7/91 messages: CC022C, CC056C, CC057C, CC906C, CC917C, CD906C, CD917C + + + + + + + + + + + + + Used by 2/91 messages: CC917C, CD917C + + + + + + + + + + + Used by 2/91 messages: CC917C, CD917C + + + + + + + + + + + Used by 7/91 messages: CC022C, CC056C, CC057C, CC906C, CC917C, CD906C, CD917C + + + + + + + + + + + Used by 5/91 messages: CC022C, CC056C, CC057C, CC906C, CD906C + + + + + + + + + + + Used by 2/91 messages: CC917C, CD917C + + + + + + + + + + + Used by 2/91 messages: CC037C, CC224C + + + + + + + + + + + Used by 3/91 messages: CD070C, CD071C, CD971C + + + + + + + + + + + + + Used by 1/91 messages: CC191C + + + + + + + + + + + Used by 1/91 messages: CC037C + + + + + + + + + + + Used by 1/91 messages: CC037C + + + + + + + + + + + Used by 3/91 messages: CD070C, CD071C, CD971C + + + + + + + + + + + + + Used by 3/91 messages: CD070C, CD071C, CD971C + + + + + + + + + + + + + Used by 1/91 messages: CC191C + + + + + + + + + + + + + Used by 17/91 messages: CC013C, CC015C, CC017C, CC025C, CC029C, CC043C, CC044C, CC190C, CD001C, CD003C, CD012C, CD018C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + Used by 20/91 messages: CC013C, CC015C, CC026C, CC029C, CC034C, CC037C, CC055C, CC224C, CC225C, CC228C, CC229C, CC231C, CD150C, CD151C, CD200C, CD201C, CD203C, CD204C, CD205C, CD209C + + + + + + + + + + + Used by 13/91 messages: CC013C, CC015C, CC017C, CC029C, CC043C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + Used by 16/91 messages: CC013C, CC015C, CC017C, CC025C, CC029C, CC043C, CC044C, CD001C, CD003C, CD012C, CD018C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + Used by 3/91 messages: CC037C, CC225C, CC228C + + + + + + + + + + + Used by 1/91 messages: CC037C + + + + + + + + + + + + + Used by 1/91 messages: CD115C + + + + + + + + + + + + + Used by 3/91 messages: CC037C, CD201C, CD205C + + + + + + + + + + + + + Used by 10/91 messages: CC013C, CC015C, CC029C, CC037C, CD200C, CD201C, CD203C, CD204C, CD205C, CD209C + + + + + + + + + + + Used by 1/91 messages: CC023C + + + + + + + + + + + Used by 1/91 messages: CC023C + + + + + + + + + + + Used by 19/91 messages: CC013C, CC015C, CC017C, CC025C, CC029C, CC043C, CC044C, CC190C, CD001C, CD003C, CD012C, CD018C, CD038C, CD050C, CD115C, CD160C, CD165C, CD200C, CD203C + + + + + + + + + + + + + Used by 2/91 messages: CC029C, CC190C + + + + + + + + Used by 4/91 messages: CC007C, CC013C, CC015C, CC170C + + + + + + + + + + + Used by 12/91 messages: CC007C, CC013C, CC014C, CC015C, CC017C, CC026C, CC034C, CC044C, CC054C, CC141C, CC170C, CC224C + + + + + + + + Used by 13/91 messages: CC013C, CC015C, CC017C, CC029C, CC190C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + Used by 14/91 messages: CC029C, CC043C, CC182C, CD001C, CD003C, CD012C, CD018C, CD038C, CD050C, CD115C, CD160C, CD165C, CD180C, CD181C + + + + + + + + Used by 40/91 messages: CC004C, CC009C, CC017C, CC019C, CC022C, CC023C, CC025C, CC028C, CC029C, CC035C, CC037C, CC043C, CC045C, CC051C, CC055C, CC056C, CC057C, CC060C, CC140C, CC224C, CC225C, CC228C, CC229C, CC231C, CC928C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD142C, CD150C, CD151C, CD160C, CD165C, CD200C, CD201C, CD203C, CD205C + + + + + + + + Used by 5/91 messages: CD001C, CD003C, CD038C, CD050C, CD115C + + + + + + + + Used by 6/91 messages: CC007C, CC013C, CC015C, CC017C, CC044C, CC170C + + + + + + + + + + + Used by 14/91 messages: CC029C, CC043C, CC182C, CD001C, CD003C, CD012C, CD018C, CD038C, CD050C, CD115C, CD160C, CD165C, CD180C, CD181C + + + + + + + + Used by 6/91 messages: CC007C, CC013C, CC015C, CC017C, CC044C, CC170C + + + + + + + + + + + Used by 1/91 messages: CC007C + + + + + + + + + + + + + Used by 3/91 messages: CC182C, CD180C, CD181C + + + + + + + + + + + Used by 1/91 messages: CD144C + + + + + + + + + + + + + Used by 1/91 messages: CD144C + + + + + + + + + + + + + Used by 2/91 messages: CC009C, CC014C + + + + + + + + + + + + + Used by 14/91 messages: CC013C, CC015C, CC017C, CC029C, CC043C, CC170C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + Used by 4/91 messages: CC225C, CC228C, CC229C, CC231C + + + + + + + + + + + Used by 3/91 messages: CC037C, CC225C, CC231C + + + + + + + + + + + + + Used by 2/91 messages: CC037C, CC231C + + + + + + + + + + + Used by 2/91 messages: CC037C, CC224C + + + + + + + + + + + Used by 1/91 messages: CC009C + + + + + + + + Used by 1/91 messages: CC014C + + + + + + + + + + + Used by 14/91 messages: CC007C, CC013C, CC015C, CC029C, CC043C, CC170C, CC182C, CC190C, CD003C, CD038C, CD115C, CD165C, CD180C, CD181C + + + + + + + + + + + Used by 2/91 messages: CC037C, CC228C + + + + + + + + + + + Used by 3/91 messages: CC013C, CC015C, CC170C + + + + + + + + + + + Used by 1/91 messages: CC140C + + + + + + + + + + + Used by 1/91 messages: CD142C + + + + + + + + + + + Used by 4/91 messages: CC013C, CC015C, CC017C, CC170C + + + + + + + + Used by 8/91 messages: CC029C, CD001C, CD003C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + Used by 1/91 messages: CC037C + + + + + + + + + + + Used by 14/91 messages: CC007C, CC013C, CC015C, CC029C, CC043C, CC170C, CC182C, CC190C, CD003C, CD038C, CD115C, CD165C, CD180C, CD181C + + + + + + + + + + + Used by 1/91 messages: CC917C + + + + + + + + Used by 10/91 messages: CC004C, CC009C, CC028C, CC029C, CC056C, CC060C, CC190C, CC191C, CC906C, CC928C + + + + + + + + Used by 4/91 messages: CC013C, CC014C, CC015C, CC170C + + + + + + + + + + + Used by 1/91 messages: CC026C + + + + + + + + + + + Used by 3/91 messages: CC013C, CC015C, CC029C + + + + + + + + + + + + + Used by 91/91 messages: CC004C, CC007C, CC009C, CC013C, CC014C, CC015C, CC017C, CC019C, CC022C, CC023C, CC025C, CC026C, CC028C, CC029C, CC034C, CC035C, CC037C, CC040C, CC042C, CC043C, CC044C, CC045C, CC048C, CC051C, CC054C, CC055C, CC056C, CC057C, CC060C, CC140C, CC141C, CC170C, CC182C, CC190C, CC191C, CC224C, CC225C, CC228C, CC229C, CC231C, CC906C, CC917C, CC928C, CD001C, CD002C, CD003C, CD006C, CD010C, CD012C, CD018C, CD024C, CD027C, CD038C, CD049C, CD050C, CD059C, CD063C, CD070C, CD071C, CD078C, CD094C, CD095C, CD114C, CD115C, CD118C, CD142C, CD143C, CD144C, CD145C, CD150C, CD151C, CD152C, CD160C, CD164C, CD165C, CD168C, CD180C, CD181C, CD200C, CD201C, CD203C, CD204C, CD205C, CD209C, CD411D, CD903D, CD906C, CD917C, CD971C, CD974C, CD975C + + + + + + + + + + + + + Used by 11/91 messages: CC013C, CC015C, CC017C, CC029C, CD001C, CD003C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + Used by 13/91 messages: CC013C, CC015C, CC017C, CC029C, CC170C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + Used by 2/91 messages: CD411D, CD903D + + + + + + + + + + + + + Used by 1/91 messages: CC917C + + + + + + + + + + Used by 1/91 messages: CD917C + + + + + + + + Used by 5/91 messages: CC042C, CC048C, CC190C, CC191C, CD078C + + + + + + + + Used by 6/91 messages: CC040C, CC042C, CC048C, CC190C, CC191C, CD078C + + + + + + + + Used by 68/91 messages: CC004C, CC007C, CC009C, CC013C, CC014C, CC017C, CC019C, CC022C, CC023C, CC025C, CC028C, CC029C, CC035C, CC037C, CC043C, CC044C, CC045C, CC051C, CC054C, CC055C, CC056C, CC057C, CC060C, CC140C, CC141C, CC182C, CC906C, CD001C, CD002C, CD003C, CD006C, CD010C, CD012C, CD018C, CD024C, CD027C, CD038C, CD049C, CD050C, CD059C, CD063C, CD094C, CD095C, CD114C, CD115C, CD118C, CD142C, CD143C, CD144C, CD145C, CD150C, CD151C, CD152C, CD160C, CD164C, CD165C, CD168C, CD180C, CD181C, CD200C, CD201C, CD203C, CD204C, CD205C, CD209C, CD906C, CD974C, CD975C + + + + + + + + + + + Used by 37/91 messages: CC004C, CC009C, CC014C, CC019C, CC022C, CC023C, CC026C, CC028C, CC029C, CC035C, CC037C, CC043C, CC045C, CC051C, CC055C, CC056C, CC060C, CC140C, CC190C, CC228C, CC229C, CC928C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD142C, CD143C, CD144C, CD145C, CD150C, CD151C, CD152C, CD160C, CD165C + + + + + + + + Used by 8/91 messages: CC007C, CC013C, CC015C, CC017C, CC054C, CC141C, CC170C, CC224C + + + + + + + + + + + Used by 20/91 messages: CC007C, CC013C, CC015C, CC017C, CC029C, CC043C, CC044C, CC170C, CC182C, CD001C, CD003C, CD012C, CD018C, CD038C, CD050C, CD115C, CD160C, CD165C, CD180C, CD181C + + + + + + + + + + + Used by 17/91 messages: CC013C, CC015C, CC017C, CC025C, CC029C, CC043C, CC044C, CC190C, CD001C, CD003C, CD012C, CD018C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + Used by 1/91 messages: CC051C + + + + + + + + + + + + + Used by 1/91 messages: CC051C + + + + + + + + + + + Used by 1/91 messages: CC060C + + + + + + + + + + + + + Used by 2/91 messages: CC037C, CC225C + + + + + + + + + + + Used by 16/91 messages: CC013C, CC015C, CC017C, CC025C, CC029C, CC043C, CC044C, CD001C, CD003C, CD012C, CD018C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + Used by 3/91 messages: CC013C, CC015C, CC029C + + + + + + + + + + + Used by 20/91 messages: CC007C, CC013C, CC015C, CC017C, CC029C, CC043C, CC044C, CC170C, CC182C, CD001C, CD003C, CD012C, CD018C, CD038C, CD050C, CD115C, CD160C, CD165C, CD180C, CD181C + + + + + + + + + + + Used by 4/91 messages: CD070C, CD071C, CD411D, CD971C + + + + + + + + + + + + + Used by 8/91 messages: CC022C, CC056C, CC057C, CC906C, CC917C, CD903D, CD906C, CD917C + + + + + + + + + + + Used by 1/91 messages: CD411D + + + + + + + + + + + Used by 1/91 messages: CC029C + + + + + + + + Used by 2/91 messages: CC013C, CC015C + + + + + + + + + + + Used by 1/91 messages: CD018C + + + + + + + + Used by 2/91 messages: CC017C, CC044C + + + + + + + + + + + Used by 2/91 messages: CD118C, CD168C + + + + + + + + + + + Used by 1/91 messages: CC037C + + + + + + + + Used by 1/91 messages: CC225C + + + + + + + + + + + Used by 2/91 messages: CC034C, CC037C + + + + + + + + + + + Used by 2/91 messages: CC034C, CC037C + + + + + + + + + + + Used by 11/91 messages: CC029C, CC037C, CC051C, CC190C, CD142C, CD143C, CD144C, CD145C, CD150C, CD151C, CD152C + + + + + + + + Used by 7/91 messages: CC007C, CC009C, CC013C, CC014C, CC015C, CC060C, CC170C + + + + + + + + + + + + + Used by 1/91 messages: CC007C + + + + + + + + Used by 8/91 messages: CC043C, CC182C, CD003C, CD038C, CD115C, CD165C, CD180C, CD181C + + + + + + + + + + + Used by 36/91 messages: CC004C, CC009C, CC014C, CC019C, CC022C, CC023C, CC026C, CC028C, CC029C, CC035C, CC037C, CC043C, CC045C, CC051C, CC055C, CC056C, CC060C, CC140C, CC182C, CC190C, CC228C, CC229C, CC928C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD142C, CD150C, CD151C, CD160C, CD165C, CD180C, CD181C + + + + + + + + Used by 8/91 messages: CC007C, CC013C, CC015C, CC017C, CC054C, CC141C, CC170C, CC224C + + + + + + + + + + + Used by 2/91 messages: CC013C, CC015C + + + + + + + + + + + Used by 14/91 messages: CC007C, CC013C, CC015C, CC029C, CC043C, CC170C, CC182C, CC190C, CD003C, CD038C, CD115C, CD165C, CD180C, CD181C + + + + + + + + + + + + + Used by 3/91 messages: CC013C, CC015C, CC029C + + + + + + + + + + + Used by 2/91 messages: CC034C, CC037C + + + + + + + + + + + + + Used by 1/91 messages: CD151C + + + + + + + + + + + + + Used by 4/91 messages: CC048C, CD063C, CD150C, CD151C + + + + + + + + + + + Used by 1/91 messages: CC035C + + + + + + + + + + + Used by 1/91 messages: CC035C + + + + + + + + + + + Used by 12/91 messages: CC013C, CC015C, CC017C, CC029C, CC043C, CD001C, CD003C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + Used by 2/91 messages: CC037C, CC225C + + + + + + + + + + + Used by 1/91 messages: CC029C + + + + + + + + Used by 12/91 messages: CC029C, CC043C, CC191C, CD001C, CD003C, CD012C, CD018C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + Used by 3/91 messages: CC007C, CC013C, CC015C + + + + + + + + Used by 4/91 messages: CC013C, CC015C, CC017C, CC044C + + + + + + + + Used by 77/91 messages: CC004C, CC007C, CC009C, CC013C, CC014C, CC015C, CC017C, CC019C, CC022C, CC023C, CC025C, CC026C, CC028C, CC029C, CC035C, CC037C, CC042C, CC043C, CC044C, CC045C, CC048C, CC051C, CC054C, CC055C, CC056C, CC057C, CC060C, CC140C, CC141C, CC170C, CC182C, CC190C, CC191C, CC224C, CC225C, CC228C, CC229C, CC231C, CC928C, CD001C, CD002C, CD003C, CD006C, CD010C, CD012C, CD018C, CD024C, CD027C, CD038C, CD049C, CD050C, CD059C, CD063C, CD094C, CD095C, CD114C, CD115C, CD118C, CD142C, CD143C, CD144C, CD145C, CD150C, CD151C, CD152C, CD160C, CD164C, CD165C, CD168C, CD180C, CD181C, CD200C, CD201C, CD203C, CD204C, CD205C, CD209C + + + + + + + + + + + Used by 1/91 messages: CC029C + + + + + + + + Used by 3/91 messages: CC013C, CC015C, CC017C + + + + + + + + Used by 9/91 messages: CD001C, CD003C, CD012C, CD018C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + Used by 2/91 messages: CC056C, CC057C + + + + + + + + + + + + + Used by 2/91 messages: CC056C, CC057C + + + + + + + + + + + Used by 2/91 messages: CC056C, CC057C + + + + + + + + + + + Used by 12/91 messages: CC025C, CC029C, CC037C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C, CD204C + + + + + + + + + + + Used by 1/91 messages: CC025C + + + + + + + + + + + + + Used by 2/91 messages: CC017C, CC054C + + + + + + + + + + + Used by 2/91 messages: CC017C, CC054C + + + + + + + + + + + + + Used by 1/91 messages: CC025C + + + + + + + + + + + + + Used by 1/91 messages: CC017C + + + + + + + + + + + Used by 2/91 messages: CC009C, CC014C + + + + + + + + + + + Used by 1/91 messages: CC140C + + + + + + + + + + + Used by 4/91 messages: CD003C, CD038C, CD115C, CD165C + + + + + + + + + + + + + Used by 1/91 messages: CD143C + + + + + + + + + + + + + Used by 1/91 messages: CC191C + + + + + + + + + + + Used by 1/91 messages: CC037C + + + + + + + + + + + + + Used by 1/91 messages: CC225C + + + + + + + + + + + + + Used by 1/91 messages: CC191C + + + + + + + + + + + + + Used by 1/91 messages: CD143C + + + + + + + + + + + Used by 7/91 messages: CD001C, CD003C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + Used by 12/91 messages: CC013C, CC015C, CC017C, CC029C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + Used by 2/91 messages: CC034C, CC037C + + + + + + + + + + + + + Used by 13/91 messages: CC013C, CC015C, CC017C, CC029C, CC043C, CC191C, CD001C, CD003C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + Used by 10/91 messages: CC017C, CC029C, CC043C, CD001C, CD003C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + Used by 50/91 messages: CC007C, CC013C, CC015C, CC017C, CC022C, CC025C, CC029C, CC034C, CC037C, CC042C, CC043C, CC044C, CC048C, CC055C, CC060C, CC170C, CC182C, CC190C, CC191C, CC224C, CC225C, CC228C, CD001C, CD003C, CD010C, CD012C, CD018C, CD024C, CD038C, CD050C, CD063C, CD070C, CD071C, CD115C, CD144C, CD145C, CD150C, CD151C, CD160C, CD165C, CD180C, CD181C, CD200C, CD201C, CD203C, CD204C, CD205C, CD209C, CD411D, CD971C + + + + + + + + + + + Used by 12/91 messages: CC025C, CC029C, CC043C, CD001C, CD003C, CD012C, CD018C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + Used by 4/91 messages: CC013C, CC015C, CC017C, CC044C + + + + + + + + + + + Used by 1/91 messages: CC007C + + + + + + + + + + + + + Used by 11/91 messages: CC013C, CC015C, CC017C, CC029C, CD001C, CD003C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + Used by 3/91 messages: CD070C, CD071C, CD971C + + + + + + + + + + + Used by 2/91 messages: CC044C, CD018C + + + + + + + + + + + + + Used by 1/91 messages: CD411D + + + + + + + + + + + Used by 1/91 messages: CD411D + + + + + + + + + + + + + Used by 1/91 messages: CD975C + + + + + + + + Used by 3/91 messages: CD038C, CD094C, CD095C + + + + + + + + + + Used by 6/91 messages: CC013C, CC015C, CC029C, CC056C, CC060C, CC170C + + + + + + + + + + + + + Used by 36/91 messages: CC004C, CC009C, CC014C, CC019C, CC022C, CC023C, CC026C, CC028C, CC029C, CC035C, CC037C, CC043C, CC045C, CC051C, CC055C, CC056C, CC060C, CC140C, CC182C, CC190C, CC228C, CC229C, CC928C, CD001C, CD003C, CD012C, CD038C, CD050C, CD115C, CD142C, CD150C, CD151C, CD160C, CD165C, CD180C, CD181C + + + + + + + + Used by 8/91 messages: CC007C, CC013C, CC015C, CC017C, CC054C, CC141C, CC170C, CC224C + + + + + + + + + + + Used by 3/91 messages: CC013C, CC015C, CC190C + + + + + + + + + + + Used by 1/91 messages: CD411D + + + + + + + + + + + + + Used by 2/91 messages: CC141C, CD142C + + + + + + + + + + + Used by 26/91 messages: CC029C, CC043C, CC055C, CC060C, CC182C, CD001C, CD003C, CD012C, CD018C, CD038C, CD050C, CD070C, CD071C, CD115C, CD142C, CD143C, CD144C, CD145C, CD150C, CD151C, CD152C, CD160C, CD165C, CD180C, CD181C, CD971C + + + + + + + + Used by 5/91 messages: CC007C, CC013C, CC015C, CC017C, CC141C + + + + + + + + + + + Used by 2/91 messages: CC037C, CC224C + + + + + + + + + + + + + Used by 9/91 messages: CC013C, CC015C, CC029C, CC190C, CD001C, CD003C, CD012C, CD018C, CD038C + + + + + + + + + + + Used by 19/91 messages: CC004C, CC009C, CC019C, CC022C, CC023C, CC028C, CC029C, CC035C, CC043C, CC045C, CC051C, CC056C, CC060C, CC140C, CC928C, CD001C, CD003C, CD012C, CD038C + + + + + + + + Used by 7/91 messages: CC013C, CC014C, CC015C, CC017C, CC054C, CC141C, CC170C + + + + + + + + + + + Used by 1/91 messages: CC191C + + + + + + + + + + + Used by 1/91 messages: CC190C + + + + + + + + + + + + + Used by 1/91 messages: CC060C + + + + + + + + Used by 16/91 messages: CC013C, CC015C, CC017C, CC029C, CC043C, CC044C, CC191C, CD001C, CD003C, CD012C, CD018C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + Used by 3/91 messages: CD070C, CD071C, CD971C + + + + + + + + + + Used by 4/91 messages: CC007C, CC013C, CC015C, CC029C + + + + + + + + + + + + + Used by 20/91 messages: CC007C, CC013C, CC015C, CC017C, CC029C, CC043C, CC044C, CC170C, CC182C, CD001C, CD003C, CD012C, CD018C, CD038C, CD050C, CD115C, CD160C, CD165C, CD180C, CD181C + + + + + + + + + + + + + Used by 6/91 messages: CC007C, CC013C, CC015C, CC029C, CC170C, CC190C + + + + + + + + + + + + + Used by 16/91 messages: CC013C, CC015C, CC017C, CC025C, CC029C, CC043C, CC044C, CD001C, CD003C, CD012C, CD018C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + Used by 1/91 messages: CC044C + + + + + + + + + + + + + Used by 1/91 messages: CC044C + + + + + + + + + + + Used by 1/91 messages: CC044C + + + + + + + + + + + Used by 18/91 messages: CC007C, CC013C, CC015C, CC017C, CC029C, CC043C, CC170C, CC182C, CC190C, CD001C, CD003C, CD038C, CD050C, CD115C, CD160C, CD165C, CD180C, CD181C + + + + + + + + + + + + + Used by 15/91 messages: CC013C, CC015C, CC017C, CC025C, CC029C, CC043C, CD001C, CD003C, CD012C, CD018C, CD038C, CD050C, CD115C, CD160C, CD165C + + + + + + + + + + + + + Used by 1/91 messages: CD204C + + + + + + + + + + + Used by 1/91 messages: CC225C + + + + + + + + + + + Used by 1/91 messages: CC037C + + + + + + + + + + + Used by 1/91 messages: CC037C + + + + + + + + + + + Used by 2/91 messages: CC037C, CC224C + + + + + + + + + + + Used by 1/91 messages: CD903D + + + + + + + + + + + + + Used by 1/91 messages: CD903D + + + + + + + + + + + Used by 2/91 messages: CC045C, CD049C + + + + + + + + + + + Used by 2/91 messages: CD411D, CD903D + + + + + + + + + + + + + + + + + + + + + + + MRN (format: an18), (alias: MRNType) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Base class for all anN and an..N types + + + + + + + + + Base class for all aN and a..N + types + + + + + + + + + Trader City (format: + an..35) + + + + + + + + + + + + Container Identification Number (format: an..17) + + + + + + + + + + + + + + + + + + + + + + + Applicable at 'Conveyance reference number' (format: an..17) + + + + + + + + + + + + + + + + + + + + + + + Applicable at 'Conveyance reference number' (format: an..35) + + + + + + + + + + + + + Customs Office Reference Number + (format:an8) + + + + + + + + + + + + Country Code (format:a2) + + + + + + + + + + + + The date is in the Common Era (minus sign in years is not permitted) and time zone although not included UTC is implied + + + + + + + + + + + + Calendar dates are represented yyyy-mm-dd format, following ISO 8601. This is a W3C XML Schema date type, but without the optional timezone data. + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Base class for all n..N,M types + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + GNSS Latitude (format: an..17) + + + + + + + + + + + GNSS Longitude (format: an..17) + + + + + + + + + + + GRN (format: an..24) + + + + + + + + + + + Applicable at 'LOCATION OF GOODS' (format: an..35) + + + + + + + + + + + + + Language Code (format: a2) + + + + + + + + + + + + MRN (format: an18), (alias: MRNType) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + MRN (format: an18), (alias: MRNType) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Base class for all nN and n..N + types + + + + + + + + + + + Phase NCTS 5.1 + + + + + Phase NCTS 5.0 + + + + + + + + + + Trader Postal Code (format: an..17) + + + + + + + + + + + + + RISK ANALYSIS.RISK ANALYSIS RESULT.Code (format: an..17) + + + + + + + + + + + + + + + + Trader Street and Number (format: an..70) + + + + + + + + + + + + + + + + + + + + EORI or TCUI Number (format: an..17) + + + + + + + + + + + + + Trader Identification Number (format: + an..17) + + + + + + + + + + + + + + + + + + + + + + Applicable at 'TIR carnet number' (format: an..12) + + + + + + + + + + + + + Trader Name (format: an..70) + + + + + + + + + + + + UCR Reference Number (format: an..35) + + + + + + + + + + + + + + + + + + + + + + + UCR Reference Number (format: an..70) + + + + + + + + + + + + + Format for Year (format: YYYY) + + + + + + + diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/tcl.xsd b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/tcl.xsd new file mode 100644 index 00000000..7aebc169 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/tcl.xsd @@ -0,0 +1,974 @@ + + + + + + + + + + The values of this codelist are also available and updated in CS/RD2. + + + + + Create + + + + + Delete + + + + + Update + + + + + + + + + + + + + + + + + January + + + + + February + + + + + March + + + + + April + + + + + May + + + + + June + + + + + July + + + + + August + + + + + September + + + + + October + + + + + November + + + + + December + + + + + + + + + + + + Used for attributes that can have a positive or a negative value. The values of this codelist are also available and updated in CS/RD2. + + + + + NO + + + + + YES + + + + + + + + + + + + Defines the codes to be used for reporting errors on XML messages. The values of this codelist are also available and updated in CS/RD2. + + + + + Incorrect enumeration + + + + + Missing + + + + + Not supported in this position + + + + + Unspecified Error / Other + + + + + Too many repetitions + + + + + Element too long (length constraint) + + + + + Element too short (length constraint) + + + + + Invalid Value for the specific type + + + + + Invalid value according to the pattern + + + + + Invalid XML format + + + + + Invalid character(s) + + + + + Value is lower than the allowed lowest limit (Minimum Inclusive) + + + + + Value is greater than the allowed upper limit (Maximum Inclusive) + + + + + Value is lower than or equal to the allowed lowest limit (Minimum Exlcusive) + + + + + Value is greater than or equal to the allowed upper limit (Maximum Exclusive) + + + + + + + + + + + + The list of codes used to identify the type of messages exchanged on the Common Domain and on the External Domain (e.g. CD001B, CD302A, CC515C, CD801A).The values of this codelist are also available and updated in CS/RD2. + + + + + Amendment Acceptance + + + + + Arrival Notification + + + + + Invalidation Decision + + + + + DECLARATION AMENDMENT + + + + + DECLARATION CANCELLATION REQUEST + + + + + DECLARATION DATA + + + + + DEPARTURE CONTROL RESULTS + + + + + DISCREPANCIES + + + + + NOTIFICATION TO AMEND DECLARATION + + + + + GUARANTOR NOTIFICATION + + + + + GOODS RELEASE NOTIFICATION + + + + + GUARANTEE ACCESS CODES + + + + + MRN ALLOCATED + + + + + RELEASE FOR TRANSIT + + + + + QUERY ON GUARANTEES + + + + + RECOVERY NOTIFICATION + + + + + RESPONSE QUERY ON GUARANTEES + + + + + TRANSIT CANCELLATION NOTIFICATION TO AES + + + + + DESTINATION CONTROL RESULTS TO AES + + + + + UNLOADING PERMISSION + + + + + UNLOADING REMARKS + + + + + WRITE-OFF NOTIFICATION + + + + + RECOVERY COMMUNICATION TO AES + + + + + NO RELEASE FOR TRANSIT + + + + + REQUEST OF RELEASE + + + + + GUARANTEE NOT VALID + + + + + REJECTION FROM OFFICE OF DEPARTURE + + + + + REJECTION FROM OFFICE OF DESTINATION + + + + + CONTROL DECISION NOTIFICATION + + + + + REQUEST ON NON-ARRIVED MOVEMENT + + + + + INFORMATION ABOUT NON-ARRIVED MOVEMENT + + + + + PRESENTATION NOTIFICATION FOR THE PRE-LODGED DECLARATION + + + + + FORWARDED INCIDENT NOTIFICATION TO ED + + + + + TRANSIT PRESENTATION NOTIFICATION + + + + + TRANSIT PRESENTATION NOTIFICATION RESPONSE + + + + + INDIVIDUAL GUARANTEE VOUCHER SOLD + + + + + GUARANTEE UPDATE NOTIFICATION + + + + + COMPREHENSIVE GUARANTEE CANCELLATION LIABILITY LIBERATION + + + + + INDIVIDUAL GUARANTEE VOUCHER REVOCATION NOTIFICATION + + + + + COMPREHENSIVE GUARANTEE INVALIDATION NOTIFICATION + + + + + FUNCTIONAL NACK + + + + + XML NACK + + + + + POSITIVE ACKNOWLEDGE + + + + + AAR + + + + + AAR Request + + + + + AAR Response + + + + + ARRIVAL ADVICE + + + + + CANCELLATION NOTIFICATION + + + + + AAR-TIR-SPEED + + + + + DESTINATION CONTROL RESULTS + + + + + FORWARDED ARRIVAL ADVICE + + + + + MOVEMENT QUERY + + + + + RESPONSE TO MOVEMENT QUERY + + + + + DISCREPANCIES SOLVED NOTIFICATION + + + + + ANTICIPATED TRANSIT RECORD + + + + + CANCEL ENQUIRY NOTIFICATION + + + + + RECOVERY COMMUNICATION + + + + + NOTIFICATION OF SYSTEM UNAVAILABILITY TO CD + + + + + NOTIFICATION OF SYSTEM UNAVAILABILITY TO ND + + + + + INTER-DOMAIN LINKING + + + + + STATUS REQUEST + + + + + STATUS RESPONSE + + + + + ANTICIPATED TRANSIT RECORD REQUEST + + + + + ANTICIPATED TRANSIT RECORD RESPONSE + + + + + NOTIFICATION CROSSING FRONTIER + + + + + ENQUIRY REQUEST + + + + + ENQUIRY RESPONSE + + + + + ENQUIRY INFORMATION + + + + + ENQUIRY INFORMATION REQUEST + + + + + RECOVERY REQUEST + + + + + RECOVERY ACCEPTANCE NOTIFICATION + + + + + RECOVERY DISPATCH NOTIFICATION + + + + + ANTICIPATED EXIT FOR TRANSIT RECORD + + + + + ANTICIPATED EXIT FOR TRANSIT RECORD REQUEST + + + + + ANTICIPATED EXIT FOR TRANSIT RECORD RESPONSE + + + + + NOTIFICATION LEAVING SECURITY AREA + + + + + INCIDENT NOTIFICATION + + + + + FORWARDED INCIDENT NOTIFICATION TO CD + + + + + GUARANTEE CHECK + + + + + GUARANTEE CHECK RESULT + + + + + GUARANTEE USE + + + + + GUARANTEE USE CANCELLATION + + + + + GUARANTEE USE RESULT + + + + + CREDIT REFERENCE AMOUNT + + + + + SENDING OF STATISTICS DATA + + + + + WARNING MESSAGE + + + + + FUNCTIONAL NACK + + + + + XML NACK + + + + + FULL UNAVAILABILITY SCHEDULE + + + + + NCA Availability request + + + + + NCA Availability response + + + + + + + + + + + + This Codelist includes the countries who are maintaining their Customs Offices in CS/RD2. It lists the country codes used as the first two characters of the Customs Office Reference Number. It corresponds to the content of the code list CL009 excluding 'AX', 'GF', 'GG', 'GP', 'IM', 'JE', 'LI', 'MC', 'MF', 'MQ', 'RE', 'SJ', 'XS' and 'YT'. This codelist is used for the Customs Office List. The values of this codelist are also available and updated in CS/RD2. + + + + + Andorra + + + + + Austria + + + + + Belgium + + + + + Bulgaria + + + + + Switzerland + + + + + Cyprus + + + + + Czech Republic + + + + + Germany + + + + + Denmark + + + + + Estonia + + + + + Spain + + + + + Finland + + + + + France + + + + + United Kingdom + + + + + Greece + + + + + Croatia + + + + + Hungary + + + + + Ireland + + + + + Iceland + + + + + Italy + + + + + Lithuania + + + + + Luxembourg + + + + + Latvia + + + + + North Macedonia + + + + + Malta + + + + + Netherlands + + + + + Norway + + + + + Poland + + + + + Portugal + + + + + Romania + + + + + Serbia + + + + + Sweden + + + + + Slovenia + + + + + Slovakia + + + + + San Marino + + + + + Turkey + + + + + Ukraine + + + + + United Kingdom (Northern Ireland) + + + + + + + + + + + + Used for the attribute SYSTEM UNAVAILABILITY.System Unavailability Type. + + + + + Business service not implemented + + + + + Scheduled Unavailability + + + + + Unscheduled Unavailability + + + + + + + + + + + + Set of generic error codes, specific for AES and NCTS P5. The values of this codelist are also available and updated in CS/RD2. + + + + + Codelist violation + + + + + Condition violation (Missing) + + + + + Rule violation + + + + + Condition violation (Not allowed) + + + + + Duplicate Message ID + + + + + Transitional constraint violation + + + + + EDI violation post downgrade + + + + + Functional violation post downgrade + + + + + Unknown MRN + + + + + Message out of sequence + + + + + Invalid MRN + + + + + diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/cATEZ_ncts_api.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/cATEZ_ncts_api.vb index 784579f8..90424370 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/cATEZ_ncts_api.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/cATEZ_ncts_api.vb @@ -1,62 +1,214 @@ -Public Class cATEZ_ncts_api +Imports System.Globalization +Imports System.IO +Imports System.Xml +Imports com.sun.corba.se.spi.orb + +Public Class cATEZ_ncts_api Shared API_KEY = "2a6fe6bf-6547-4d56-b14a-8a18f94f9e94" Public Shared Sub query_declarations(startDate As Date, endDate As Date) - ' This example assumes the Chilkat API to have been previously unlocked. - ' See Global Unlock Sample for sample code. + Try + ' This example assumes the Chilkat API to have been previously unlocked. + ' See Global Unlock Sample for sample code. + VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() - Dim http As New Chilkat.Http - Dim success As Boolean + Dim http As New Chilkat.Http + Dim success As Boolean - Dim queryParams As New Chilkat.JsonObject - queryParams.UpdateString("startDate", startDate.ToString("yyyy-MM-ddTHH:mm:ss")) - queryParams.UpdateString("endDate", endDate.ToString("yyyy-MM-ddTHH:mm:ss")) - queryParams.UpdateInt("page", 0) - queryParams.UpdateInt("size", 10000) + Dim queryParams As New Chilkat.JsonObject + queryParams.UpdateString("startDate", startDate.ToString("yyyy-MM-ddTHH:mm:ss")) + queryParams.UpdateString("endDate", endDate.ToString("yyyy-MM-ddTHH:mm:ss")) + queryParams.UpdateInt("page", 0) + queryParams.UpdateInt("size", 10000) - http.SetRequestHeader("API-KEY", API_KEY) + http.SetRequestHeader("API-KEY", API_KEY) - Dim resp As Chilkat.HttpResponse = http.QuickRequestParams("GET", "https://transcode.singlewindow.io/api/tds/integrations/verag/declarations", queryParams) - If (http.LastMethodSuccess = False) Then - Debug.WriteLine(http.LastErrorText) - Exit Sub - End If + Dim resp As Chilkat.HttpResponse = http.QuickRequestParams("GET", "https://transcode.singlewindow.io/api/tds/integrations/verag/declarations", queryParams) + If (http.LastMethodSuccess = False) Then + Debug.WriteLine(http.LastErrorText) + Exit Sub + End If - Debug.WriteLine(resp.StatusCode) - Debug.WriteLine(resp.BodyStr) + Debug.WriteLine(resp.StatusCode) + Debug.WriteLine(resp.BodyStr) - 'Dim SS = VERAG_PROG_ALLGEMEIN.cNCTS_ATEZ_query_declaration_response.root.LoadFromFile("") + 'Dim SS = VERAG_PROG_ALLGEMEIN.cNCTS_ATEZ_query_declaration_response.root.LoadFromFile("") - 'For Each c In SS.properties.content + 'For Each c In SS.properties.content + 'Next + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try - 'Next End Sub - Public Shared Sub get_ie015_xml_by_mrn(MRN As String) - ' This example assumes the Chilkat API to have been previously unlocked. - ' See Global Unlock Sample for sample code. + Public Shared Function get_ie015_xml_by_mrn(MRN As String) As Boolean + Try + Dim result = False + ' This example assumes the Chilkat API to have been previously unlocked. + ' See Global Unlock Sample for sample code. + VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() - Dim http As New Chilkat.Http - Dim success As Boolean + Dim http As New Chilkat.Http + Dim success As Boolean - 'http.SetRequestHeader("API-KEY", "{{API-KEY}}") - http.SetRequestHeader("API-KEY", API_KEY) + 'http.SetRequestHeader("API-KEY", "{{API-KEY}}") + http.SetRequestHeader("API-KEY", API_KEY) - Dim sbResponseBody As New Chilkat.StringBuilder - success = http.QuickGetSb("https://transcode.singlewindow.io/api/tds/integrations/verag/declarations/messages/ie015-by-mrn/" & MRN, sbResponseBody) - If (success = False) Then - Debug.WriteLine(http.LastErrorText) - Exit Sub - End If + Dim sbResponseBody As New Chilkat.StringBuilder + success = http.QuickGetSb("https://transcode.singlewindow.io/api/tds/integrations/verag/declarations/messages/ie015-by-mrn/" & MRN, sbResponseBody) + If (success = False) Then + Debug.WriteLine(http.LastErrorText) + Return False + End If - Debug.WriteLine("Response status code = " & http.LastStatus) - Debug.WriteLine(sbResponseBody.GetAsString()) - End Sub + Debug.WriteLine("Response status code = " & http.LastStatus) + Dim responseString = (sbResponseBody.GetAsString()) + + If responseString <> "" Then + Dim tempFilePath = saveStringToTmpXML(responseString) + Dim NCTS_P5 = VERAG_PROG_ALLGEMEIN.NCTS_P5_CC015C.CC015CType.LoadFromFile(tempFilePath) + + result = saveXMLtoNCTS_FREMD(NCTS_P5, MRN) + + If File.Exists(tempFilePath) Then + File.Delete(tempFilePath) + Console.WriteLine("Temporäre Datei gelöscht.") + End If + End If + Return result + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return False + End Function + Private Shared Function saveStringToTmpXML(xmlString) As String + ' Beispiel-XML-String + ' Dim xmlString As String = "Wert" + + ' Temporäre Datei erstellen + Dim tempFilePath As String = Path.Combine(Path.GetTempPath(), Guid.NewGuid().ToString() & ".xml") + + Try + ' XML-String in die Datei schreiben + File.WriteAllText(tempFilePath, xmlString) + + ' Ausgabe des Pfads zur Kontrolle + Console.WriteLine("XML-Datei wurde gespeichert unter: " & tempFilePath) + + ' Optional: Datei laden und prüfen + Dim doc As New XmlDocument() + doc.Load(tempFilePath) + Return tempFilePath '"" doc.OuterXml + + Catch ex As Exception + Console.WriteLine("Fehler: " & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return "" + End Function + + + + + + Private Shared Function saveXMLtoNCTS_FREMD(NCTS_P5 As VERAG_PROG_ALLGEMEIN.NCTS_P5_CC015C.CC015CType, MRN As String) As Boolean + Try + + Dim NCTS_FREMD = VERAG_PROG_ALLGEMEIN.cNCTS_FREMD.LOADByMRN(MRN, True) + If NCTS_FREMD Is Nothing Then NCTS_FREMD = New cNCTS_FREMD + NCTS_FREMD.ncts_Partnersystem = "ATEZ" + NCTS_FREMD.ncts_MRN = MRN + + If NCTS_P5 IsNot Nothing Then + If NCTS_P5.TransitOperation IsNot Nothing Then + If NCTS_P5.TransitOperation.limitDate.ToString <> "01.01.0001" Then + Try + NCTS_FREMD.ncts_LimitDate = DateTime.ParseExact(DateString, "yyyy-MM-ddTHH:mm:ss", CultureInfo.InvariantCulture) + Catch ex As FormatException + Console.WriteLine("Invalid date format.") + End Try + End If + + NCTS_FREMD.ncts_ObjectName = NCTS_P5.TransitOperation.LRN + NCTS_FREMD.ncts_Declarationtype = NCTS_P5.TransitOperation.declarationType + NCTS_FREMD.ncts_TransitDeclarationType = NCTS_P5.TransitOperation.declarationType + NCTS_FREMD.ncts_Security = NCTS_P5.TransitOperation.security + NCTS_FREMD.ncts_ReductedDatasetIndicator = NCTS_P5.TransitOperation.reducedDatasetIndicator + NCTS_FREMD.ncts_BindingItinerary = NCTS_P5.TransitOperation.bindingItinerary + + End If + If NCTS_P5.CustomsOfficeOfDeparture IsNot Nothing Then NCTS_FREMD.ncts_CustomsOfficeOfDeparture = NCTS_P5.CustomsOfficeOfDeparture.referenceNumber + If NCTS_P5.CustomsOfficeOfDestinationDeclared IsNot Nothing Then NCTS_FREMD.ncts_CustomsOfficeOfDestinationDeclared = NCTS_P5.CustomsOfficeOfDestinationDeclared.referenceNumber + + + If NCTS_P5.HolderOfTheTransitProcedure IsNot Nothing Then + + NCTS_FREMD.ncts_HolderOfTheTransitProcedure_IdentificationNumber = NCTS_P5.HolderOfTheTransitProcedure.identificationNumber + NCTS_FREMD.ncts_HolderOfTheTransitProcedure_Name = NCTS_P5.HolderOfTheTransitProcedure.name + If NCTS_P5.HolderOfTheTransitProcedure.Address IsNot Nothing Then + NCTS_FREMD.ncts_HolderOfTheTransitProcedure_City = NCTS_P5.HolderOfTheTransitProcedure.Address.city + NCTS_FREMD.ncts_HolderOfTheTransitProcedure_Postcode = NCTS_P5.HolderOfTheTransitProcedure.Address.postcode + NCTS_FREMD.ncts_HolderOfTheTransitProcedure_Country = NCTS_P5.HolderOfTheTransitProcedure.Address.country + NCTS_FREMD.ncts_HolderOfTheTransitProcedure_StreetNumber = NCTS_P5.HolderOfTheTransitProcedure.Address.streetAndNumber + End If + End If + + If NCTS_P5.Guarantee IsNot Nothing AndAlso NCTS_P5.Guarantee.Count >= 0 AndAlso NCTS_P5.Guarantee(0).GuaranteeReference.Count > 0 Then + Dim GRT = New cNCTS_FREMD_Guarantee + GRT.nctsGRT_Type = NCTS_P5.Guarantee(0).guaranteeType + + GRT.nctsGRT_AccessCode = NCTS_P5.Guarantee(0).GuaranteeReference(0).accessCode + GRT.nctsGRT_GRN = NCTS_P5.Guarantee(0).GuaranteeReference(0).GRN + GRT.nctsGRT_AmountToBeCoveredFremdWaehrung = NCTS_P5.Guarantee(0).GuaranteeReference(0).amountToBeCovered + GRT.nctsGRT_Currency = NCTS_P5.Guarantee(0).GuaranteeReference(0).currency + + ' MsgBox(If(GRT.nctsGRT_Currency, "")) + '--> EUR + If GRT.nctsGRT_AmountToBeCoveredFremdWaehrung IsNot Nothing Then + If If(GRT.nctsGRT_Currency, "") <> "EUR" Then + Dim betragEUR = VERAG_PROG_ALLGEMEIN.cEZB_Waehrungskurse.EXCHANGE(GRT.nctsGRT_AmountToBeCoveredFremdWaehrung, GRT.nctsGRT_Currency, NCTS_FREMD.ncts_Trans_DatumZeit.ToShortDateString) + GRT.nctsGRT_AmountToBeCovered = If(betragEUR > 0, betragEUR, GRT.nctsGRT_AmountToBeCoveredFremdWaehrung) + Else + GRT.nctsGRT_AmountToBeCovered = GRT.nctsGRT_AmountToBeCoveredFremdWaehrung + End If + End If + + + NCTS_FREMD.ncts_GUARANTEE.Clear() + NCTS_FREMD.ncts_GUARANTEE.Add(GRT) + End If + + If NCTS_P5.Consignment IsNot Nothing AndAlso NCTS_P5.Consignment.HouseConsignment IsNot Nothing AndAlso NCTS_P5.Consignment.HouseConsignment.Count >= 0 Then + + For Each NCTS_P5_HC In NCTS_P5.Consignment.HouseConsignment + Dim HC = New cNCTS_FREMD_HouseConsignment + + HC.nctsHC_GrossMass = NCTS_P5_HC.grossMass + HC.nctsHC_ReferenceNumberUCR = NCTS_P5_HC.referenceNumberUCR + HC.nctsHC_CountryOfDestination = NCTS_P5_HC.countryOfDestination + + Next + + + + End If + Return NCTS_FREMD.SAVE_ALL 'Speichern + End If + + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Return False + End Try + + End Function End Class diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj index ef3036ea..642d5a50 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj +++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj @@ -417,6 +417,8 @@ Resources.resx + + @@ -833,6 +835,24 @@ + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + Designer